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
(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
(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