Try another thing

Author: michaelpj

lsp/src/Language/LSP/Server/Control.hs

@@ -134,7 +134,10 @@ runServerWith ioLogger logger clientIn clientOut serverDefinition = do
         recvMsg
 
   -- Bind all the threads together so that any of them terminating will terminate everything
-  serverOut `Async.race_` serverIn `Async.race_` processingLoop
+  _ <- Async.withAsync serverOut $ \a1 ->
+    Async.withAsync serverIn $ \a2 ->
+      Async.withAsync processingLoop $ \a3 ->
+        Async.waitAny [a1, a2, a3]
 
   ioLogger <& Stopping `WithSeverity` Info
   return 0