diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-05-26 21:27:44 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-05-26 21:27:44 -0400 |
| commit | cadfe3d0c03cd9e10c7bc9111565738839ca306d (patch) | |
| tree | 1c9deea1e9f6ec47a8c20be830ea32379ab3d310 | |
| parent | d90b01f1085865ba2a6e2b31de82a9c6933d8d31 (diff) | |
3 more fd leaks
| -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 |