import Language.Haskell.LSP.Messages
import Language.Haskell.LSP.Test.Exceptions
import qualified Data.HashMap.Strict as HM
import Language.Haskell.LSP.Messages
import Language.Haskell.LSP.Test.Exceptions
import qualified Data.HashMap.Strict as HM
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)