Try bound?

Author: michaelpj

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]