diff options
Diffstat (limited to 'src/HaddockHtml.hs')
| -rw-r--r-- | src/HaddockHtml.hs | 3 |
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 |