import System.IO.Error
import Language.Haskell.LSP.Types
import Language.Haskell.LSP.Types.Lens
- hiding ( error )
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
+ CustomClientMethod{} -> RspCustomServer . 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)