Log session messages, don't know why it was ever a good idea to hide them 💩

[opengl.git] / src / Language / Haskell / LSP / Test / Parsing.hs

diff --git a/src/Language/Haskell/LSP/Test/Parsing.hs b/src/Language/Haskell/LSP/Test/Parsing.hs
index fdc2e958bafc45eae1e02deceba80ba4e03657b4..db5e4433b582dde899d7b0ae908eb1fa52b4a850 100644 (file)
--- a/src/Language/Haskell/LSP/Test/Parsing.hs
+++ b/src/Language/Haskell/LSP/Test/Parsing.hs
@@ -17,8 +17,9 @@ import Language.Haskell.LSP.Types hiding (error)
 import Language.Haskell.LSP.Test.Exceptions
 import Language.Haskell.LSP.Test.Messages
 import Language.Haskell.LSP.Test.Session
+import System.Console.ANSI
 
-satisfy :: (MonadIO m, MonadSessionConfig m) => (a -> Bool) -> ConduitParser a m a
+satisfy :: (MonadIO m, MonadSessionConfig m) => (FromServerMessage -> Bool) -> ConduitParser FromServerMessage m FromServerMessage
 satisfy pred = do
   timeout <- timeout <$> lift sessionConfig
   tId <- liftIO myThreadId
@@ -27,6 +28,12 @@ satisfy pred = do
     throwTo tId TimeoutException
   x <- await
   liftIO $ killThread timeoutThread
+
+  liftIO $ do
+    setSGR [SetColor Foreground Vivid Magenta]
+    putStrLn $ "<-- " ++ B.unpack (encodeMsg x)
+    setSGR [Reset]
+
   if pred x
     then return x
     else empty