From: jneira <atreyu.bbb@gmail.com>
Date: Tue, 9 Jul 2019 12:36:35 +0000 (+0200)
Subject: Use a SessionException instead an error, to ignore the error when server is down
X-Git-Tag: 0.6.1.0~2^2~21
X-Git-Url: http://git.lukelau.me/?p=lsp-test.git;a=commitdiff_plain;h=cecfb2024ea61b9934df02115e40c7e1a54535d8

Use a SessionException instead an error, to ignore the error when server is down
---

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