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

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

(limited to 'Assistant')

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
-- 
cgit v1.2.3