Try bound?

haskell · Jun 20, 2022 · 0a7f4a7 · 0a7f4a7
1 parent 0907ca2
commit 0a7f4a7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lsp/src/Language/LSP/Server/Control.hs b/lsp/src/Language/LSP/Server/Control.hs
@@ -135,7 +135,7 @@ runServerWith ioLogger logger clientIn clientOut serverDefinition = do
         recvMsg
 
   -- Bind all the threads together so that any of them terminating will terminate everything
-  _ <- Async.withAsync serverOut $ \a1 ->
+  _ <- Async.withAsyncBound serverOut $ \a1 ->
       Async.withAsync serverIn $ \a2 ->
         Async.withAsync processingLoop $ \a3 ->
           Async.waitAny [a1, a2, a3]