hook desktop menu file installation into makefile and cabal

This commit is contained in:
Joey Hess 2012-08-01 21:04:25 -04:00
parent ed07546288
commit e78b13c428
3 changed files with 15 additions and 1 deletions

View file

@ -5,7 +5,7 @@
- Licensed under the GNU GPL version 3 or higher.
-}
module Build.Desktop where
module Build.InstallDesktopFile where
import Utility.Exception
import Utility.FreeDesktop
@ -32,3 +32,8 @@ writeDesktop d = do
then userDesktopMenuFilePath "git-annex"
else return $ systemDesktopMenuFilePath "git-annex"
writeDesktopMenuFile d dest
main = getArgs >>= go
where
go [] = error "specify git-annex command"
go (command:_) = writeDesktop $ desktop command