-matchResponseMsgType :: FromClientMessage -> B.ByteString -> FromServerMessage
-matchResponseMsgType req bytes = case req of
- ReqInitialize _ -> RspInitialize $ fromJust $ decode bytes
- ReqShutdown _ -> RspShutdown $ fromJust $ decode bytes
- ReqHover _ -> RspHover $ fromJust $ decode bytes
- ReqCompletion _ -> RspCompletion $ fromJust $ decode bytes
- ReqCompletionItemResolve _ ->
- RspCompletionItemResolve $ fromJust $ decode bytes
- ReqSignatureHelp _ -> RspSignatureHelp $ fromJust $ decode bytes
- ReqDefinition _ -> RspDefinition $ fromJust $ decode bytes
- ReqFindReferences _ -> RspFindReferences $ fromJust $ decode bytes
- ReqDocumentHighlights _ -> RspDocumentHighlights $ fromJust $ decode bytes
- ReqDocumentSymbols _ -> RspDocumentSymbols $ fromJust $ decode bytes
- ReqWorkspaceSymbols _ -> RspWorkspaceSymbols $ fromJust $ decode bytes
- ReqCodeAction _ -> RspCodeAction $ fromJust $ decode bytes
- ReqCodeLens _ -> RspCodeLens $ fromJust $ decode bytes
- ReqCodeLensResolve _ -> RspCodeLensResolve $ fromJust $ decode bytes
- ReqDocumentFormatting _ -> RspDocumentFormatting $ fromJust $ decode bytes
- ReqDocumentRangeFormatting _ ->
- RspDocumentRangeFormatting $ fromJust $ decode bytes
- ReqDocumentOnTypeFormatting _ ->
- RspDocumentOnTypeFormatting $ fromJust $ decode bytes
- ReqRename _ -> RspRename $ fromJust $ decode bytes
- ReqExecuteCommand _ -> RspExecuteCommand $ fromJust $ decode bytes
- ReqDocumentLink _ -> RspDocumentLink $ fromJust $ decode bytes
- ReqDocumentLinkResolve _ -> RspDocumentLinkResolve $ fromJust $ decode bytes
- ReqWillSaveWaitUntil _ -> RspWillSaveWaitUntil $ fromJust $ decode bytes
- x -> error $ "Not a request: " ++ show x
+matchResponseMsgType :: ClientMethod -> B.ByteString -> FromServerMessage
+matchResponseMsgType req = case req of
+ Initialize -> RspInitialize . decoded
+ Shutdown -> RspShutdown . decoded
+ TextDocumentHover -> RspHover . decoded
+ TextDocumentCompletion -> RspCompletion . decoded
+ CompletionItemResolve -> RspCompletionItemResolve . decoded
+ TextDocumentSignatureHelp -> RspSignatureHelp . decoded
+ TextDocumentDefinition -> RspDefinition . decoded
+ TextDocumentTypeDefinition -> RspTypeDefinition . decoded
+ TextDocumentReferences -> RspFindReferences . decoded
+ TextDocumentDocumentHighlight -> RspDocumentHighlights . decoded
+ TextDocumentDocumentSymbol -> RspDocumentSymbols . decoded
+ WorkspaceSymbol -> RspWorkspaceSymbols . decoded
+ TextDocumentCodeAction -> RspCodeAction . decoded
+ TextDocumentCodeLens -> RspCodeLens . decoded
+ CodeLensResolve -> RspCodeLensResolve . decoded
+ TextDocumentFormatting -> RspDocumentFormatting . decoded
+ TextDocumentRangeFormatting -> RspDocumentRangeFormatting . decoded
+ TextDocumentOnTypeFormatting -> RspDocumentOnTypeFormatting . decoded
+ TextDocumentRename -> RspRename . decoded
+ WorkspaceExecuteCommand -> RspExecuteCommand . decoded
+ TextDocumentDocumentLink -> RspDocumentLink . decoded
+ DocumentLinkResolve -> RspDocumentLinkResolve . decoded
+ TextDocumentWillSaveWaitUntil -> RspWillSaveWaitUntil . decoded
+ x -> error . ((show x ++ " is not a request: ") ++) . show
+ where decoded x = fromMaybe (error $ "Couldn't decode response for the request type: "
+ ++ show req ++ "\n" ++ show x)
+ (decode x)