From 176447e389a799a12b93d7de00c4bd1b9e4932f6 Mon Sep 17 00:00:00 2001 From: David Date: Fri, 1 Mar 2019 11:31:31 +0100 Subject: [PATCH] Remove thread from active list when it has finished. --- server/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/server/Main.hs b/server/Main.hs index 936230b..6c73801 100644 --- a/server/Main.hs +++ b/server/Main.hs @@ -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 }