diff options
author | Mark Lentczner <markl@glyphic.com> | 2010-04-03 19:14:22 +0000 |
---|---|---|
committer | Mark Lentczner <markl@glyphic.com> | 2010-04-03 19:14:22 +0000 |
commit | f78afee6309a1f1baffc20b09639625a37944062 (patch) | |
tree | ff6353611d25ffeedf4554d27975ff0a85218c11 /src/Haddock/Backends/Xhtml/Util.hs | |
parent | 4929e83c917d8b54ec3e2a0f945876b235e9faca (diff) |
clean up Doc formatting code
- add CSS for lists
- renderToString now uses showHtml since prettyHtml messes up <pre> sections
Diffstat (limited to 'src/Haddock/Backends/Xhtml/Util.hs')
-rw-r--r-- | src/Haddock/Backends/Xhtml/Util.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/Backends/Xhtml/Util.hs b/src/Haddock/Backends/Xhtml/Util.hs index b7f3a8d4..cbaf6766 100644 --- a/src/Haddock/Backends/Xhtml/Util.hs +++ b/src/Haddock/Backends/Xhtml/Util.hs @@ -70,8 +70,8 @@ spliceURL maybe_file maybe_mod maybe_name maybe_loc url = run url renderToString :: Html -> String --- renderToString = showHtml -- for production -renderToString = prettyHtml -- for debugging +renderToString = showHtml -- for production +--renderToString = prettyHtml -- for debugging hsep :: [Html] -> Html hsep [] = noHtml |