X-Git-Url: http://git.megacz.com/?p=wix.git;a=blobdiff_plain;f=src%2FHtml.lhs;h=5784cb5a71b0d36f6561e005d91f3d431aa9c73f;hp=7a61bd4e64d71c6500990b425d792b3a1d6cfbf1;hb=5957ec155f716b36c7f3cd776bc74318ff3cb523;hpb=d6cca41c056cb20446676e4229ecedabb60688f9 diff --git a/src/Html.lhs b/src/Html.lhs index 7a61bd4..5784cb5 100644 --- a/src/Html.lhs +++ b/src/Html.lhs @@ -313,7 +313,7 @@ htmlEscapeChar '\'' = "'" htmlEscapeChar '\"' = """ htmlEscapeChar c = [c] -pre x = "\n
"++ (pre' x) ++ "\n
\n" +pre x = "\n
"++ (pre' x) ++ "\n
\n" where pre' (' ':b) = " "++(pre' b) pre' ('\n':b) = "
\n"++(pre' b)