summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-05-26 21:27:44 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-05-26 21:27:44 -0400
commitcadfe3d0c03cd9e10c7bc9111565738839ca306d (patch)
tree1c9deea1e9f6ec47a8c20be830ea32379ab3d310
parentd90b01f1085865ba2a6e2b31de82a9c6933d8d31 (diff)
3 more fd leaks
-rw-r--r--Assistant/XMPP/Git.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/XMPP/Git.hs b/Assistant/XMPP/Git.hs
index b42a2d533..405f84517 100644
--- a/Assistant/XMPP/Git.hs
+++ b/Assistant/XMPP/Git.hs
@@ -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