diff options
| author | simonmar <unknown> | 2003-05-06 10:14:52 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2003-05-06 10:14:52 +0000 |
| commit | 4f5802c80d43a7e60b66ca56651312d00a1deb13 (patch) | |
| tree | 6b1ac1434458260f14e936ef90c11d7d431b671c | |
| parent | 4162b2b988e593e003f815418f84f72d9e6a9ed8 (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.
| -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 |