From e11946796d05a733290a47e9cead0b2a2e58d272 Mon Sep 17 00:00:00 2001 From: Nicolas Pouillard Date: Thu, 2 Aug 2012 20:11:41 +0200 Subject: [PATCH] Fix imports and casing in Build.InstallDesktopFile --- Build/InstallDesktopFile.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/Build/InstallDesktopFile.hs b/Build/InstallDesktopFile.hs index ab2773bf11..891431ebe2 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