aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorsimonmar <unknown>2003-05-06 10:14:52 +0000
committersimonmar <unknown>2003-05-06 10:14:52 +0000
commit4f5802c80d43a7e60b66ca56651312d00a1deb13 (patch)
tree6b1ac1434458260f14e936ef90c11d7d431b671c /src
parent4162b2b988e593e003f815418f84f72d9e6a9ed8 (diff)
[haddock @ 2003-05-06 10:14:52 by simonmar]
Don't turn a single DocCodeBlock into a DocMonospaced, because that tends to remove the line breaks in the code.
Diffstat (limited to 'src')
-rw-r--r--src/HaddockHtml.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs
index 56bfa05d..d5454a9c 100644
--- a/src/HaddockHtml.hs
+++ b/src/HaddockHtml.hs
@@ -898,7 +898,8 @@ docToHtml doc = markup htmlMarkup (unParagraph (markup htmlCleanup doc))
-- separate them. So we catch the single paragraph case and transform it
-- here.
unParagraph (DocParagraph d) = d
-unParagraph (DocCodeBlock d) = (DocMonospaced d)
+--NO: This eliminates line breaks in the code block: (SDM, 6/5/2003)
+--unParagraph (DocCodeBlock d) = (DocMonospaced d)
unParagraph doc = doc
htmlCleanup :: DocMarkup [HsQName] Doc