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

Merge branch 'assistant-fixes' of https://github.com/np/git-annex into assistant

Browse source
This commit is contained in:
Joey Hess 2012-08-02 18:43:02 -04:00
commit e6603f3b11
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Build/InstallDesktopFile.hs
View file

@ -10,8 +10,12 @@ module Build.InstallDesktopFile where
import Utility.Exception
import Utility.FreeDesktop
import Utility.Path
import Locations.UserConfig
import Control.Applicative
import Control.Monad
import System.Directory
import System.Environment
import System.Posix.User
@ -48,7 +52,7 @@ writeDesktop command = do
when (uid /= 0) $ do
programfile <- programFile
createDirectoryIfMissing True (parentDir programFile)
createDirectoryIfMissing True (parentDir programfile)
writeFile programfile command
main = getArgs >>= go