diff options
| -rw-r--r-- | Assistant/XMPP/Git.hs | 2 |
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 |