hashirama/reanimate
Watch
1
0
Fork
You've already forked reanimate
 0
mirror of https://github.com/reanimate/reanimate.git synced 2026-09-14 09:32:22 +00:00
Code Issues Projects Releases Wiki Activity

Kill timeout thread if working finished in time.

Browse source
This commit is contained in:
David 2019-03-01 11:27:39 +01:00
commit 85e4a59a7c
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
server/Main.hs
View file

@ -98,11 +98,12 @@ withTimeout queue conn t action = do
worker <- forkIO (action >> putMVar finished ()) worker <- forkIO (action >> putMVar finished ())
timer <- forkIO $ do timer <- forkIO $ do
threadDelay (10^6 * t) threadDelay (10^6 * t)
putMVar finished ()
putStrLn "Timeout" putStrLn "Timeout"
killThread worker killThread worker
_ <- getChanContents queue _ <- getChanContents queue
writeChan queue $ T.pack $ "Error" ++ "Timeout" writeChan queue $ T.pack $ "Error" ++ "Timeout"
putMVar finished ()
takeMVar finished `onException` do takeMVar finished `onException` do
killThread worker killThread worker
killThread timer killThread timer