summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Propellor/CmdLine.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Propellor/CmdLine.hs b/src/Propellor/CmdLine.hs
index 8591395d..f22abc43 100644
--- a/src/Propellor/CmdLine.hs
+++ b/src/Propellor/CmdLine.hs
@@ -323,6 +323,8 @@ gitPush hin hout = void $ fromstdin `concurrently` tostdout
h <- fdToHandle hin
connect h stdout
connect fromh toh = do
+ hSetBinaryMode fromh True
+ hSetBinaryMode toh True
b <- B.hGetSome fromh 40960
hPutStrLn stderr $ show ("from", fromh, "to", toh, b)
if B.null b