diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-08-01 21:04:25 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-08-01 21:05:27 -0400 |
| commit | e78b13c42807f598d9dd7e449a5980c26f731f72 (patch) | |
| tree | b832bea706a7ffaa1f98214797c17dcce1f0825e /Build | |
| parent | ed07546288733a13129a866ce70ea2f94d6259cb (diff) | |
hook desktop menu file installation into makefile and cabal
Diffstat (limited to 'Build')
| -rw-r--r-- | Build/InstallDesktopFile.hs (renamed from Build/Desktop.hs) | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Build/Desktop.hs b/Build/InstallDesktopFile.hs index b35b0c010..b4a56a2cb 100644 --- a/Build/Desktop.hs +++ b/Build/InstallDesktopFile.hs @@ -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 |