- where jsonEqual :: (FromJSON a, Eq a) => a -> B.ByteString -> Bool
- jsonEqual x y = Just x == decode y
-
- deleteFirstJson _ [] = []
- deleteFirstJson msg (x:xs)
- | jsonEqual msg x = xs
- | otherwise = x:deleteFirstJson msg xs
-
- -- firstExpected :: Show a => a
- firstExpected = head $ filter (not . isNotification) expectedMsgs
-
- response :: LSP.ResponseMessage Value -> Session [B.ByteString]