diff options
author | Joey Hess <joey@kitenet.net> | 2012-08-02 18:43:02 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-08-02 18:43:02 -0400 |
commit | e6603f3b1177204c3b93be6a820103f3bfbde322 (patch) | |
tree | 4ee9468c53cdcc73b84c39d87e48f3a038c6c148 | |
parent | 74fc9fcbe68ce7802d44499e8b5dc5c5d186ee66 (diff) | |
parent | e11946796d05a733290a47e9cead0b2a2e58d272 (diff) |
Merge branch 'assistant-fixes' of https://github.com/np/git-annex into assistant
-rw-r--r-- | Build/InstallDesktopFile.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Build/InstallDesktopFile.hs b/Build/InstallDesktopFile.hs index ab2773bf1..891431ebe 100644 --- a/Build/InstallDesktopFile.hs +++ b/Build/InstallDesktopFile.hs @@ -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 |