aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends/Xhtml/Util.hs
diff options
context:
space:
mode:
authorMark Lentczner <markl@glyphic.com>2010-04-03 19:14:22 +0000
committerMark Lentczner <markl@glyphic.com>2010-04-03 19:14:22 +0000
commitf78afee6309a1f1baffc20b09639625a37944062 (patch)
treeff6353611d25ffeedf4554d27975ff0a85218c11 /src/Haddock/Backends/Xhtml/Util.hs
parent4929e83c917d8b54ec3e2a0f945876b235e9faca (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.hs4
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