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

Remove thread from active list when it has finished.

Browse source
This commit is contained in:
David 2019-03-01 11:31:31 +01:00
commit 176447e389
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
server/Main.hs
View file

@ -24,7 +24,7 @@ main = do
forever $ do forever $ do
msg <- receiveData conn :: IO T.Text msg <- receiveData conn :: IO T.Text
stopWorker conn thread stopWorker conn thread
putMVar thread =<< forkIO (generateResponse conn msg) putMVar thread =<< forkIO (generateResponse conn msg >> tryTakeMVar thread >> return ())
where where
opts = defaultConnectionOptions opts = defaultConnectionOptions
{ connectionCompressionOptions = PermessageDeflateCompression defaultPermessageDeflate } { connectionCompressionOptions = PermessageDeflateCompression defaultPermessageDeflate }