diff options
| author | Joey Hess <joey@kitenet.net> | 2014-11-18 16:45:31 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-11-18 16:45:31 -0400 |
| commit | 12aa7f494869b99f6b2792dde56568daebb11726 (patch) | |
| tree | c98281694ad7b04dd85cb24796a9b70208657e6e /src | |
| parent | 66b4adfff6dcd5db2584a2a022412c09149441f0 (diff) | |
set handles to binary mode
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/CmdLine.hs | 2 |
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 |