Apply suggestions from code review

Co-authored-by: fendor <fendor@users.noreply.github.com>

Author: soulomoon

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

@@ -147,9 +147,9 @@ runServerWith ::
 runServerWith ioLogger logger clientIn clientOut serverDefinition = do
   ioLogger <& Starting `WithSeverity` Info
   cout <- atomically newTChan :: IO (TChan FromServerMessage)
-  withAsync (sendServer ioLogger cout clientOut) $ \_sendAsync -> do
+  withAsync (sendServer ioLogger cout clientOut) $ \sendServerAsync -> do
     let sendMsg = atomically . writeTChan cout
-    res <- ioLoop ioLogger logger clientIn serverDefinition emptyVFS sendMsg (wait _sendAsync)
+    res <- ioLoop ioLogger logger clientIn serverDefinition emptyVFS sendMsg (wait sendServerAsync)
     ioLogger <& ServerStopped `WithSeverity` Info
     return res
 

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

@@ -761,7 +761,7 @@ isExiting = do
   b <- resExit . resState <$> getLspEnv
   r <- liftIO $ C.waitBarrierMaybe b
   pure $ case r of
-    Just _ -> True
+    Just () -> True
     Nothing -> False
 
 -- | Blocks until the server receives a 'shutdown' request.