diff options
| -rw-r--r-- | Assistant/XMPP/Git.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Assistant/XMPP/Git.hs b/Assistant/XMPP/Git.hs index c314042e6..1e8ccca62 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 |