diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-05-26 20:49:16 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-05-26 20:49:16 -0400 |
| commit | d90b01f1085865ba2a6e2b31de82a9c6933d8d31 (patch) | |
| tree | d0953ce94813de4de5e44db1a970d908c0a4bac3 /Assistant/XMPP | |
| parent | 030d9eb3f89ab397f93ab7b10bec2526d86ce4ef (diff) | |
XMPP: Fix a file descriptor leak.
Diffstat (limited to 'Assistant/XMPP')
| -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 |