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

Remove thread from active list when it has finished.

Browse source 
Former-commit-id: 3b5a36ed001e5eae0dddb1c8f5be354662d1c02d
This commit is contained in:
David 2019-03-01 11:31:31 +01:00
commit 20ee97c53c
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
msg <- receiveData conn :: IO T.Text
stopWorker conn thread
putMVar thread =<< forkIO (generateResponse conn msg)
putMVar thread =<< forkIO (generateResponse conn msg >> tryTakeMVar thread >> return ())
where
opts = defaultConnectionOptions
{ connectionCompressionOptions = PermessageDeflateCompression defaultPermessageDeflate }