diff options
| -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} |