XMPP: Fix a file descriptor leak.
This commit is contained in:
parent
18b92f97fe
commit
c092b4fc16
2 changed files with 2 additions and 0 deletions
|
@ -137,6 +137,7 @@ xmppPush cid gitpush = do
|
|||
liftIO $ do
|
||||
mapM_ killThread [t1, t2]
|
||||
mapM_ hClose [inh, outh, controlh]
|
||||
closeFd writecontrol
|
||||
|
||||
return r
|
||||
where
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue