summaryrefslogtreecommitdiff
path: root/src/wrapper.hs
diff options
context:
space:
mode:
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