TextDocumentDocumentLink -> RspDocumentLink . decoded
DocumentLinkResolve -> RspDocumentLinkResolve . decoded
TextDocumentWillSaveWaitUntil -> RspWillSaveWaitUntil . 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)
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)