Tue Jan 9 14:14:34 CET 2007 Simon Marlow <simonmar@microsoft.com>
* allow blank lines inside a @...@ code block
Please merge this to the 6.8.2 branch
| '@' seq1 '@' { DocMonospaced $2 }
seq1 :: { HsDoc RdrName }
| '@' seq1 '@' { DocMonospaced $2 }
seq1 :: { HsDoc RdrName }
- : elem1 seq1 { docAppend $1 $2 }
+ : PARA seq1 { docAppend (DocString "\n") $2 }
+ | elem1 seq1 { docAppend $1 $2 }
| elem1 { $1 }
elem1 :: { HsDoc RdrName }
| elem1 { $1 }
elem1 :: { HsDoc RdrName }