prettyPrintResult :: String
                  -> Result ()
                  -> String
prettyPrintResult indentation rs =
    let (report, header) = case rs of
            SMTPOK r _ -> (r, "Success")
            SMTPKO r   -> (r, "Failure")
    in indentation ++ header ++ "\n" ++ (prettyPrintReports (indentation ++ "  ") report)
prettyPrintResult :: String
                  -> Result ()
                  -> String
prettyPrintResult indentation rs =
    let (report, header) = case rs of
            SMTPOK r _ -> (r, "Success")
            SMTPKO r   -> (r, "Failure")
    in indentation ++ header ++ "\n" ++ (prettyPrintReports (indentation ++ "  ") report)
prettyPrintResult indentation rs =
    let (report, header) = case rs of
            SMTPOK r _ -> (r, "Success")
            SMTPKO r   -> (r, "Failure")
    in indentation ++ header ++ "\n" ++ (prettyPrintReports (indentation ++ "  ") report)