@@ -47,8 +47,8 @@ toJson extraFields (Report title subregion pre post) =
4747 let
4848 fields =
4949 [ "tag" .= title
50− , "overview" .= displayS (renderPretty 1 80 pre) ""
51− , "details" .= displayS (renderPretty 1 80 post) ""
50+ , "overview" .= nonAnsiRender pre
51+ , "details" .= nonAnsiRender post
5252 ]
5353 in
5454 (subregion, fields ++ extraFields)
@@ -93,9 +93,16 @@ toHandle handle location region rprt source =
9393
9494toString :: String -> R.Region -> Report -> String -> String
9595toString location region rprt source =
96− displayS
97− (stripAnsi (renderPretty 1 80 (toDoc location region rprt source)))
98− ""
96+ nonAnsiRender (toDoc location region rprt source)
97+
98+
99+
100+-- DOC TO STRING WITH NO ANSI CODES
101+
102+
103+nonAnsiRender :: Doc -> String
104+nonAnsiRender doc =
105+ displayS (stripAnsi (renderPretty 1 80 doc)) ""
99106
100107
101108stripAnsi :: SimpleDoc -> SimpleDoc