aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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