close handles

2014-11-18 16:36:34 -04:00 · 2014-11-18 16:36:34 -04:00 · c008813bec
parent efa5b12516
commit c008813bec
1 changed files with 8 additions and 4 deletions
--- a/src/Propellor/CmdLine.hs
+++ b/src/Propellor/CmdLine.hs
@ -325,7 +325,11 @@ gitPush hin hout = void $ fromstdin `concurrently` tostdout
 	connect fromh toh = do
 		b <- B.hGetSome fromh 40960
 		hPutStrLn stderr $ show ("from", fromh, "to", toh, b)
-		unless (B.null b) $ do
+		if B.null b
+			then do
+				hClose fromh
+				hClose toh
+			else do
 				B.hPut toh b
 				hFlush toh
 				connect fromh toh