XMPP: Fix a file descriptor leak.

This commit is contained in:
Joey Hess 2013-05-26 20:49:16 -04:00
parent 18b92f97fe
commit c092b4fc16
2 changed files with 2 additions and 0 deletions

View file

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