From 4246f66333d522b30688f21a6b17bd2259451240 Mon Sep 17 00:00:00 2001 From: Luke Lau Date: Tue, 26 Nov 2019 19:08:08 +0000 Subject: [PATCH] Pretty print last received messages --- src/Language/Haskell/LSP/Test/Exceptions.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Language/Haskell/LSP/Test/Exceptions.hs b/src/Language/Haskell/LSP/Test/Exceptions.hs index 88cf57d..713b25f 100644 --- a/src/Language/Haskell/LSP/Test/Exceptions.hs +++ b/src/Language/Haskell/LSP/Test/Exceptions.hs @@ -27,13 +27,13 @@ instance Show SessionException where show (Timeout lastMsg) = "Timed out waiting to receive a message from the server." ++ case lastMsg of - Just msg -> "\nLast message received: " ++ show msg + Just msg -> "\nLast message received:\n" ++ B.unpack (encodePretty msg) Nothing -> mempty 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" ++ - "Last message received: " ++ show lastMsg + "Last message received:\n" ++ B.unpack (encodePretty lastMsg) show (ReplayOutOfOrder received expected) = let expected' = nub expected getJsonDiff = lines . B.unpack . encodePretty -- 2.30.2