From 12aa7f494869b99f6b2792dde56568daebb11726 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 18 Nov 2014 16:45:31 -0400 Subject: set handles to binary mode --- src/Propellor/CmdLine.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/Propellor/CmdLine.hs') 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 -- cgit v1.2.3