+ show (Timeout lastMsg) =
+ "Timed out waiting to receive a message from the server." ++
+ case lastMsg of
+ Just msg -> "\nLast message received:\n" ++ B.unpack (encodePretty msg)
+ Nothing -> mempty
+ show NoContentLengthHeader = "Couldn't read Content-Length header from the server."