import Language.Haskell.LSP.Types as LSP hiding (error)
import Language.Haskell.LSP.Test.Messages
import Language.Haskell.LSP.Test.Session
-import System.Console.ANSI
satisfy :: (FromServerMessage -> Bool) -> Session FromServerMessage
satisfy pred = do
if pred x
then do
- liftIO $ do
- setSGR [SetColor Foreground Vivid Magenta]
- putStrLn $ "<-- " ++ B.unpack (encodeMsg x)
- setSGR [Reset]
+ logMsg LogServer x
return x
else empty