projects
/
lsp-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add initialWorkspaceFolders config option
[lsp-test.git]
/
src
/
Language
/
Haskell
/
LSP
/
Test
/
Exceptions.hs
diff --git
a/src/Language/Haskell/LSP/Test/Exceptions.hs
b/src/Language/Haskell/LSP/Test/Exceptions.hs
index 713b25f101a23429668a1f29207e8f2c4a63645e..c1fec6f0d83057ee71dbcb81845e10b6f6aa9678 100644
(file)
--- a/
src/Language/Haskell/LSP/Test/Exceptions.hs
+++ b/
src/Language/Haskell/LSP/Test/Exceptions.hs
@@
-1,7
+1,6
@@
module Language.Haskell.LSP.Test.Exceptions where
import Control.Exception
module Language.Haskell.LSP.Test.Exceptions where
import Control.Exception
-import Language.Haskell.LSP.Messages
import Language.Haskell.LSP.Types
import Data.Aeson
import Data.Aeson.Encode.Pretty
import Language.Haskell.LSP.Types
import Data.Aeson
import Data.Aeson.Encode.Pretty
@@
-17,8
+16,9
@@
data SessionException = Timeout (Maybe FromServerMessage)
| ReplayOutOfOrder FromServerMessage [FromServerMessage]
| UnexpectedDiagnostics
| IncorrectApplyEditRequest String
| ReplayOutOfOrder FromServerMessage [FromServerMessage]
| UnexpectedDiagnostics
| IncorrectApplyEditRequest String
- | UnexpectedResponseError
LspIdRsp
ResponseError
+ | UnexpectedResponseError
SomeLspId
ResponseError
| UnexpectedServerTermination
| UnexpectedServerTermination
+ | IllegalInitSequenceMessage FromServerMessage
deriving Eq
instance Exception SessionException
deriving Eq
instance Exception SessionException
@@
-50,6
+50,9
@@
instance Show SessionException where
show (UnexpectedResponseError lid e) = "Received an exepected error in a response for id " ++ show lid ++ ":\n"
++ show e
show UnexpectedServerTermination = "Language server unexpectedly terminated"
show (UnexpectedResponseError lid e) = "Received an exepected error in a response for id " ++ show lid ++ ":\n"
++ show e
show UnexpectedServerTermination = "Language server unexpectedly terminated"
+ show (IllegalInitSequenceMessage msg) =
+ "Received an illegal message between the initialize request and response:\n"
+ ++ B.unpack (encodePretty msg)
-- | A predicate that matches on any 'SessionException'
anySessionException :: SessionException -> Bool
-- | A predicate that matches on any 'SessionException'
anySessionException :: SessionException -> Bool