import Data.Aeson
import Language.Haskell.LSP.Messages
-import Language.Haskell.LSP.Types hiding (error)
+import Language.Haskell.LSP.Types
isServerResponse :: FromServerMessage -> Bool
isServerResponse (RspInitialize _) = True
isServerResponse (RspCompletionItemResolve _) = True
isServerResponse (RspSignatureHelp _) = True
isServerResponse (RspDefinition _) = True
+isServerResponse (RspTypeDefinition _) = True
isServerResponse (RspFindReferences _) = True
isServerResponse (RspDocumentHighlights _) = True
isServerResponse (RspDocumentSymbols _) = True
(RspDocumentLink m) -> response m
(RspDocumentLinkResolve m) -> response m
(RspWillSaveWaitUntil m) -> response m
+ (RspTypeDefinition m) -> response m
+ (RspImplementation m) -> response m
+ (RspDocumentColor m) -> response m
+ (RspColorPresentation m) -> response m
+ (RspFoldingRange m) -> response m
(NotPublishDiagnostics m) -> notification m
(NotLogMessage m) -> notification m
(NotShowMessage m) -> notification m
+ (NotProgressStart m) -> notification m
+ (NotProgressReport m) -> notification m
+ (NotProgressDone m) -> notification m
(NotTelemetry m) -> notification m
(NotCancelRequestFromServer m) -> notification m
(ReqDocumentLink m) -> request m
(ReqDocumentLinkResolve m) -> request m
(ReqWillSaveWaitUntil m) -> request m
+ (ReqImplementation m) -> request m
+ (ReqTypeDefinition m) -> request m
+ (ReqDocumentColor m) -> request m
+ (ReqColorPresentation m) -> request m
+ (ReqFoldingRange m) -> request m
(RspApplyWorkspaceEdit m) -> response m
(RspFromClient m) -> response m
(NotInitialized m) -> notification m
(NotWillSaveTextDocument m) -> notification m
(NotDidSaveTextDocument m) -> notification m
(NotDidChangeWatchedFiles m) -> notification m
+ (NotDidChangeWorkspaceFolders m) -> notification m
+ (NotProgressCancel m) -> notification m
(UnknownFromClientMessage m) -> error $ "Unknown message sent from client: " ++ show m