summaryrefslogtreecommitdiff
path: root/src/wrapper.hs
diff options
context:
space:
mode:
authorJoey Hess2014-08-19 15:23:29 -0400
committerJoey Hess2014-08-19 15:23:29 -0400
commit8e45b0f77bb7f4dbf7572b126f2959afc63d5ce9 (patch)
tree1bdba5dcb4ea5fe6347f032a7173b8afad0f73d8 /src/wrapper.hs
parent1830f501ee7d8ca7832cbd337629b0d9225baedb (diff)
warnings
Diffstat (limited to 'src/wrapper.hs')
-rw-r--r--src/wrapper.hs5
1 files changed, 2 insertions, 3 deletions
diff --git a/src/wrapper.hs b/src/wrapper.hs
index 7f681641..f323a541 100644
--- a/src/wrapper.hs
+++ b/src/wrapper.hs
@@ -18,7 +18,6 @@ import Utility.UserInfo
import Utility.Monad
import Utility.Process
import Utility.SafeCommand
-import Utility.Directory
import Utility.Exception
import Control.Monad
@@ -64,11 +63,11 @@ wrapper args propellordir propellorbin = do
disthead = propellordir </> "head"
checkRepo = whenM (doesFileExist disthead) $ do
- head <- readFile disthead
+ headrev <- readFile disthead
changeWorkingDirectory propellordir
headknown <- catchMaybeIO $
withQuietOutput createProcessSuccess $
- proc "git" ["log", head]
+ proc "git" ["log", headrev]
when (headknown == Nothing)
warnoutofdate
warnoutofdate = do