summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJoey Hess2014-11-18 16:45:31 -0400
committerJoey Hess2014-11-18 16:45:31 -0400
commit12aa7f494869b99f6b2792dde56568daebb11726 (patch)
treec98281694ad7b04dd85cb24796a9b70208657e6e /src
parent66b4adfff6dcd5db2584a2a022412c09149441f0 (diff)
set handles to binary mode
Diffstat (limited to 'src')
-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