3 more fd leaks

This commit is contained in:
Joey Hess 2013-05-26 21:27:44 -04:00
parent c092b4fc16
commit c15a0b796e

View file

@ -137,7 +137,7 @@ xmppPush cid gitpush = do
liftIO $ do
mapM_ killThread [t1, t2]
mapM_ hClose [inh, outh, controlh]
closeFd writecontrol
mapM_ closeFd [Fd inf, Fd outf, Fd controlf]
return r
where