From cecfb2024ea61b9934df02115e40c7e1a54535d8 Mon Sep 17 00:00:00 2001 From: jneira Date: Tue, 9 Jul 2019 14:36:35 +0200 Subject: [PATCH] Use a SessionException instead an error, to ignore the error when server is down --- src/Language/Haskell/LSP/Test/Decoding.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Language/Haskell/LSP/Test/Decoding.hs b/src/Language/Haskell/LSP/Test/Decoding.hs index 27c7770..af91928 100644 --- a/src/Language/Haskell/LSP/Test/Decoding.hs +++ b/src/Language/Haskell/LSP/Test/Decoding.hs @@ -32,7 +32,7 @@ getNextMessage :: Handle -> IO B.ByteString getNextMessage h = do headers <- getHeaders h case read . init <$> lookup "Content-Length" headers of - Nothing -> error "Couldn't read Content-Length header" + Nothing -> throw NoContentLengthHeader Just size -> B.hGet h size addHeader :: B.ByteString -> B.ByteString -- 2.30.2