From c15a0b796e2dfadd5849ecd9335b316a5baa8d7c Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 26 May 2013 21:27:44 -0400
Subject: [PATCH] 3 more fd leaks

---
 Assistant/XMPP/Git.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Assistant/XMPP/Git.hs b/Assistant/XMPP/Git.hs
index b42a2d5339..405f84517f 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