2013-07-09 23:56:30 +00:00
|
|
|
{- Generating and installing a desktop menu entry file and icon,
|
2012-09-06 16:43:46 +00:00
|
|
|
- and a desktop autostart file. (And OSX equivilants.)
|
2012-08-02 00:49:02 +00:00
|
|
|
-
|
2015-01-21 16:50:09 +00:00
|
|
|
- Copyright 2012 Joey Hess <id@joeyh.name>
|
2012-08-02 00:49:02 +00:00
|
|
|
-
|
|
|
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
|
|
|
-}
|
|
|
|
|
|
2013-04-17 15:57:46 +00:00
|
|
|
module Main where
|
|
|
|
|
|
2013-04-24 15:08:35 +00:00
|
|
|
import Build.DesktopFile
|
|
|
|
|
|
|
|
|
|
import System.Environment
|
2012-09-06 16:58:46 +00:00
|
|
|
|
2012-09-26 20:50:04 +00:00
|
|
|
main :: IO ()
|
2012-08-02 01:04:25 +00:00
|
|
|
main = getArgs >>= go
|
2012-11-11 04:51:07 +00:00
|
|
|
where
|
|
|
|
|
go [] = error "specify git-annex command"
|
|
|
|
|
go (command:_) = install command
|
