mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

3 more fd leaks

Browse source
This commit is contained in:
Joey Hess 2013-05-26 21:27:44 -04:00
parent c092b4fc16
commit c15a0b796e
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/XMPP/Git.hs
View file

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