summaryrefslogtreecommitdiff
path: root/src/wrapper.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/wrapper.hs')
-rw-r--r--src/wrapper.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/wrapper.hs b/src/wrapper.hs
index 3c5c15d1..6912e204 100644
--- a/src/wrapper.hs
+++ b/src/wrapper.hs
@@ -22,6 +22,7 @@ import Utility.Exception
import Control.Monad
import Control.Monad.IfElse
+import Control.Applicative
import System.Directory
import System.FilePath
import System.Environment (getArgs)
@@ -73,7 +74,7 @@ wrapper args propellordir propellorbin = do
)
checkRepo = whenM (doesFileExist disthead) $ do
- headrev <- readFile disthead
+ headrev <- takeWhile (/= '\n') <$> readFile disthead
changeWorkingDirectory propellordir
headknown <- catchMaybeIO $
withQuietOutput createProcessSuccess $