From 6e04194e84a9e44852fda5dd2eaf3577a4c63349 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 21 May 2013 21:40:37 -0400 Subject: [PATCH] perhaps this fixes the stall tbd --- Assistant/XMPP/Git.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Assistant/XMPP/Git.hs b/Assistant/XMPP/Git.hs index c314042e6c..1e8ccca622 100644 --- a/Assistant/XMPP/Git.hs +++ b/Assistant/XMPP/Git.hs @@ -137,7 +137,7 @@ xmppPush cid gitpush = runPush SendPack cid $ do liftIO $ do mapM_ killThread [t1, t2] mapM_ hClose [inh, outh, controlh] - + return r where toxmpp seqnum inh = do @@ -167,6 +167,7 @@ xmppPush cid gitpush = runPush SendPack cid $ do liftIO $ do hPrint controlh (ExitFailure 1) hFlush controlh + killThread =<< myThreadId installwrapper tmpdir = liftIO $ do createDirectoryIfMissing True tmpdir