From b8dbfe209d85d26d4b89d9d47b7d0604f6e05c46 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 21 Jun 2002 12:43:06 +0000
Subject: [haddock @ 2002-06-21 12:43:06 by simonmar] When we have a single
 code block paragraph, don't place it in <pre>..</pre>, just use <tt>..</tt>
 to avoid generating extra vertical white space in some browsers.

---
 src/HaddockHtml.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/HaddockHtml.hs')

diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs
index 4739c84b..80a06806 100644
--- a/src/HaddockHtml.hs
+++ b/src/HaddockHtml.hs
@@ -861,6 +861,7 @@ htmlMarkup = Markup {
 -- If the doc is a single paragraph, don't surround it with <P> (this causes
 -- ugly extra whitespace with some browsers).
 docToHtml (DocParagraph p) = docToHtml p
+docToHtml (DocCodeBlock p) = docToHtml (DocMonospaced p)
 docToHtml doc = markup htmlMarkup doc
 
 -- -----------------------------------------------------------------------------
-- 
cgit v1.2.3