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