From 94e25cb61ead81331fd114f15801c362ee68df45 Mon Sep 17 00:00:00 2001 From: jneira Date: Tue, 9 Jul 2019 14:35:04 +0200 Subject: [PATCH] Add new NoContentLengthHeader SessionException to replace raw error --- src/Language/Haskell/LSP/Test/Exceptions.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/Language/Haskell/LSP/Test/Exceptions.hs b/src/Language/Haskell/LSP/Test/Exceptions.hs index b1e0635..dd31ea3 100644 --- a/src/Language/Haskell/LSP/Test/Exceptions.hs +++ b/src/Language/Haskell/LSP/Test/Exceptions.hs @@ -12,6 +12,7 @@ import qualified Data.ByteString.Lazy.Char8 as B -- | An exception that can be thrown during a 'Haskell.LSP.Test.Session.Session' data SessionException = Timeout + | NoContentLengthHeader | UnexpectedMessage String FromServerMessage | ReplayOutOfOrder FromServerMessage [FromServerMessage] | UnexpectedDiagnostics @@ -24,6 +25,7 @@ instance Exception SessionException instance Show SessionException where show Timeout = "Timed out waiting to receive a message from the server." + show NoContentLengthHeader = "Couldn't read Content-Length header from the server." show (UnexpectedMessage expected lastMsg) = "Received an unexpected message from the server:\n" ++ "Was parsing: " ++ expected ++ "\n" ++ -- 2.30.2