From 4f5802c80d43a7e60b66ca56651312d00a1deb13 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 6 May 2003 10:14:52 +0000
Subject: [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.

---
 src/HaddockHtml.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3