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