diff options
| author | simonmar <unknown> | 2003-05-06 10:04:47 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2003-05-06 10:04:47 +0000 |
| commit | d4f638de2dde1bbf9904cfd7d795f1b6b585f8f4 (patch) | |
| tree | 462e9aad8e1525a39faaf18043342f647767fb65 | |
| parent | 1b52cffda665edefd3091b496aabef4f92873813 (diff) | |
[haddock @ 2003-05-06 10:04:47 by simonmar]
Catch another case of a paragraph containing just a DocMonospaced that
should turn into a DocCodeBlock.
| -rw-r--r-- | src/HsSyn.lhs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/HsSyn.lhs b/src/HsSyn.lhs index cee4fdd8..511dfd54 100644 --- a/src/HsSyn.lhs +++ b/src/HsSyn.lhs @@ -1,5 +1,5 @@ % ----------------------------------------------------------------------------- -% $Id: HsSyn.lhs,v 1.16 2002/11/11 09:32:57 simonmar Exp $ +% $Id: HsSyn.lhs,v 1.17 2003/05/06 10:04:47 simonmar Exp $ % % (c) The GHC Team, 1997-2002 % @@ -486,6 +486,9 @@ docParagraph (DocAppend (DocString s1) (DocAppend (DocMonospaced p) (DocString s2))) | all isSpace s1 && all isSpace s2 = DocCodeBlock p +docParagraph (DocAppend (DocMonospaced p) (DocString s2)) + | all isSpace s2 + = DocCodeBlock p docParagraph p = DocParagraph p \end{code} |