prettyPrintResponse :: String
                    -> String
                    -> Response
                    -> String
prettyPrintResponse indentation time resp =
    intercalate "\n" $ map (((++) prefix) . BC.unpack) $ message resp
  where
    prefix :: String
    prefix = indentation ++ "[" ++ time ++ "][RSP][" ++ show (responseCodeToInt $ code resp) ++ "] "
prettyPrintResponse :: String
                    -> String
                    -> Response
                    -> String
prettyPrintResponse indentation time resp =
    intercalate "\n" $ map (((++) prefix) . BC.unpack) $ message resp
  where
    prefix :: String
    prefix = indentation ++ "[" ++ time ++ "][RSP][" ++ show (responseCodeToInt $ code resp) ++ "] "
prettyPrintResponse indentation time resp =
    intercalate "\n" $ map (((++) prefix) . BC.unpack) $ message resp
  where
    prefix :: String
    prefix = indentation ++ "[" ++ time ++ "][RSP][" ++ show (responseCodeToInt $ code resp) ++ "] "