diff options
Diffstat (limited to 'Assistant/XMPP/Git.hs')
| -rw-r--r-- | Assistant/XMPP/Git.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Assistant/XMPP/Git.hs b/Assistant/XMPP/Git.hs index 01585a711..b42a2d533 100644 --- a/Assistant/XMPP/Git.hs +++ b/Assistant/XMPP/Git.hs @@ -137,6 +137,7 @@ xmppPush cid gitpush = do liftIO $ do mapM_ killThread [t1, t2] mapM_ hClose [inh, outh, controlh] + closeFd writecontrol return r where |