X-Git-Url: https://git.lukelau.me/?p=lsp-test.git;a=blobdiff_plain;f=src%2FLanguage%2FHaskell%2FLSP%2FTest.hs;h=845ff2593464b482f3b1d447ef113a2983d5d2d2;hp=6fefc038aea73482f66e6c6590399ada620ef0a0;hb=8b2c929b82594c3c95a94852a06e9f4a733d40f6;hpb=98d03792f46f3ac870c010a78944822569e76763

diff --git a/src/Language/Haskell/LSP/Test.hs b/src/Language/Haskell/LSP/Test.hs
index 6fefc03..845ff25 100644
--- a/src/Language/Haskell/LSP/Test.hs
+++ b/src/Language/Haskell/LSP/Test.hs
@@ -259,9 +259,6 @@ getDocumentEdit doc = do
       let mMap = req ^. params . edit . changes
         in maybe False (HashMap.member (doc ^. uri)) mMap
 
-message :: SServerMethod m -> Session (ServerMessage m)
-message = undefined -- TODO
-
 -- | Sends a request to the server and waits for its response.
 -- Will skip any messages in between the request and the response
 -- @
@@ -292,10 +289,7 @@ sendRequest method params = do
   liftIO $ modifyMVar_ reqMap $
     \r -> return $ fromJust $ updateRequestMap r id method
 
-  let mkSession :: Session () -> Session ()
-      mkSession x = x
-
-  mkSession $ case splitClientMethod method of
+  ~() <- case splitClientMethod method of
     IsClientReq -> sendMessage mess
     IsClientEither -> sendMessage $ ReqMess mess