diff options
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 |