cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

set handles to binary mode

This commit is contained in:
Joey Hess 2014-11-18 16:45:31 -04:00
parent 66b4adfff6
commit 12aa7f4948
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Propellor/CmdLine.hs
View File

@ -323,6 +323,8 @@ gitPush hin hout = void $ fromstdin `concurrently` tostdout
h <- fdToHandle hin h <- fdToHandle hin
connect h stdout connect h stdout
connect fromh toh = do connect fromh toh = do
hSetBinaryMode fromh True
hSetBinaryMode toh True
b <- B.hGetSome fromh 40960 b <- B.hGetSome fromh 40960
hPutStrLn stderr $ show ("from", fromh, "to", toh, b) hPutStrLn stderr $ show ("from", fromh, "to", toh, b)
if B.null b if B.null b