mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

perhaps this fixes the stall tbd

Browse source
This commit is contained in:
Joey Hess 2013-05-21 21:40:37 -04:00
parent a600471a23
commit 6e04194e84
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Assistant/XMPP/Git.hs
View file

@ -137,7 +137,7 @@ xmppPush cid gitpush = runPush SendPack cid $ do
liftIO $ do liftIO $ do
mapM_ killThread [t1, t2] mapM_ killThread [t1, t2]
mapM_ hClose [inh, outh, controlh] mapM_ hClose [inh, outh, controlh]
return r return r
where where
toxmpp seqnum inh = do toxmpp seqnum inh = do
@ -167,6 +167,7 @@ xmppPush cid gitpush = runPush SendPack cid $ do
liftIO $ do liftIO $ do
hPrint controlh (ExitFailure 1) hPrint controlh (ExitFailure 1)
hFlush controlh hFlush controlh
killThread =<< myThreadId
installwrapper tmpdir = liftIO $ do installwrapper tmpdir = liftIO $ do
createDirectoryIfMissing True tmpdir createDirectoryIfMissing True tmpdir