diff options
| -rw-r--r-- | Build/DesktopFile.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Build/DesktopFile.hs b/Build/DesktopFile.hs index abb5788a8..6c62b88bc 100644 --- a/Build/DesktopFile.hs +++ b/Build/DesktopFile.hs @@ -17,6 +17,7 @@ import Utility.Monad import Locations.UserConfig import Utility.OSX import Assistant.Install.AutoStart +import Assistant.Install.Menu import Control.Applicative import System.Directory @@ -42,7 +43,7 @@ inDestDir f = do writeFDODesktop :: FilePath -> IO () writeFDODesktop command = do datadir <- ifM systemwideInstall ( return systemDataDir, userDataDir ) - writeDesktopMenuFile (desktop command) + installMenu command =<< inDestDir (desktopMenuFilePath "git-annex" datadir) configdir <- ifM systemwideInstall ( return systemConfigDir, userConfigDir ) |