summaryrefslogtreecommitdiff
path: root/Assistant
diff options
context:
space:
mode:
Diffstat (limited to 'Assistant')
-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