mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

recent change broke this

Browse source
This commit is contained in:
Joey Hess 2013-04-20 19:35:33 -04:00
parent cefe2fac2d
commit 5faedad2d6
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Build/DesktopFile.hs
View file

@ -17,6 +17,7 @@ import Utility.Monad
import Locations.UserConfig import Locations.UserConfig
import Utility.OSX import Utility.OSX
import Assistant.Install.AutoStart import Assistant.Install.AutoStart
import Assistant.Install.Menu
import Control.Applicative import Control.Applicative
import System.Directory import System.Directory
@ -42,7 +43,7 @@ inDestDir f = do
writeFDODesktop :: FilePath -> IO () writeFDODesktop :: FilePath -> IO ()
writeFDODesktop command = do writeFDODesktop command = do
datadir <- ifM systemwideInstall ( return systemDataDir, userDataDir ) datadir <- ifM systemwideInstall ( return systemDataDir, userDataDir )
writeDesktopMenuFile (desktop command) installMenu command
=<< inDestDir (desktopMenuFilePath "git-annex" datadir) =<< inDestDir (desktopMenuFilePath "git-annex" datadir)
configdir <- ifM systemwideInstall ( return systemConfigDir, userConfigDir ) configdir <- ifM systemwideInstall ( return systemConfigDir, userConfigDir )