From: Zubin Duggal <zubin@cmi.ac.in>
Date: Thu, 4 Jun 2020 16:49:17 +0000 (+0530)
Subject: Minor cleanup
X-Git-Tag: 0.13.0.0~7^2~20
X-Git-Url: https://git.lukelau.me/?p=lsp-test.git;a=commitdiff_plain;h=8b2c929b82594c3c95a94852a06e9f4a733d40f6

Minor cleanup
---

diff --git a/lsp-test.cabal b/lsp-test.cabal
index 2b89d3d..68b560b 100644
--- a/lsp-test.cabal
+++ b/lsp-test.cabal
@@ -72,7 +72,6 @@ library
                        Language.Haskell.LSP.Test.Decoding
                        Language.Haskell.LSP.Test.Exceptions
                        Language.Haskell.LSP.Test.Files
-                       Language.Haskell.LSP.Test.Messages
                        Language.Haskell.LSP.Test.Parsing
                        Language.Haskell.LSP.Test.Server
                        Language.Haskell.LSP.Test.Session
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
 
diff --git a/src/Language/Haskell/LSP/Test/Messages.hs b/src/Language/Haskell/LSP/Test/Messages.hs
deleted file mode 100644
index c225f13..0000000
--- a/src/Language/Haskell/LSP/Test/Messages.hs
+++ /dev/null
@@ -1,5 +0,0 @@
-{-# LANGUAGE RankNTypes #-}
-module Language.Haskell.LSP.Test.Messages where
-
-import Data.Aeson
-import Language.Haskell.LSP.Types
diff --git a/src/Language/Haskell/LSP/Test/Parsing.hs b/src/Language/Haskell/LSP/Test/Parsing.hs
index d1fec45..6c3c64a 100644
--- a/src/Language/Haskell/LSP/Test/Parsing.hs
+++ b/src/Language/Haskell/LSP/Test/Parsing.hs
@@ -1,5 +1,6 @@
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE PolyKinds #-}
 {-# LANGUAGE KindSignatures #-}
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE GADTs #-}
@@ -11,6 +12,7 @@ module Language.Haskell.LSP.Test.Parsing
   ( -- $receiving
     satisfy
   , satisfyMaybe
+  , message
   , anyRequest
   , anyResponse
   , anyNotification
@@ -33,7 +35,6 @@ import qualified Data.Text as T
 import Data.Typeable
 import Language.Haskell.LSP.Types
 import qualified Language.Haskell.LSP.Types.Lens as LSP
-import Language.Haskell.LSP.Test.Messages
 import Language.Haskell.LSP.Test.Session
 
 -- $receiving
@@ -100,14 +101,8 @@ satisfyMaybe pred = do
 named :: T.Text -> Session a -> Session a
 named s (Session x) = Session (Data.Conduit.Parser.named s x)
 
-{-
--- | Matches a message of type @a@.
-message :: forall a. (Typeable a, FromJSON a) => Session a
-message =
-  let parser = decode . encodeMsg :: FromServerMessage -> Maybe a
-  in named (T.pack $ show $ head $ snd $ splitTyConApp $ last $ typeRepArgs $ typeOf parser) $
-     satisfyMaybe parser
--}
+message :: SServerMethod m -> Session (ServerMessage m)
+message = undefined -- TODO
 
 -- | Matches if the message is a notification.
 anyNotification :: Session FromServerMessage
diff --git a/src/Language/Haskell/LSP/Test/Replay.hs b/src/Language/Haskell/LSP/Test/Replay.hs
index 2e3c514..f1272d5 100644
--- a/src/Language/Haskell/LSP/Test/Replay.hs
+++ b/src/Language/Haskell/LSP/Test/Replay.hs
@@ -1,7 +1,7 @@
 -- | A testing tool for replaying captured client logs back to a server,
 -- and validating that the server output matches up with another log.
 module Language.Haskell.LSP.Test.Replay
-  ( replaySession
+  ( -- replaySession
   )
 where
 
@@ -24,10 +24,10 @@ import           Language.Haskell.LSP.Test
 import           Language.Haskell.LSP.Test.Compat
 import           Language.Haskell.LSP.Test.Files
 import           Language.Haskell.LSP.Test.Decoding
-import           Language.Haskell.LSP.Test.Messages
 import           Language.Haskell.LSP.Test.Server
 import           Language.Haskell.LSP.Test.Session
 
+{-
 -- | Replays a captured client output and
 -- makes sure it matches up with an expected response.
 -- The session directory should have a captured session file in it
@@ -233,3 +233,4 @@ swapPid :: Int -> T.Text -> T.Text
 swapPid pid t
   | hasPid t = T.append (T.pack $ show pid) $ T.dropWhile (/= ':') t
   | otherwise = t
+-}