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

Fix imports and casing in Build.InstallDesktopFile

Browse source
This commit is contained in:
Nicolas Pouillard 2012-08-02 20:11:41 +02:00
parent 6b38227bad
commit e11946796d
1 changed files with 5 additions and 1 deletions
Show stats 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