[haddock @ 2002-05-07 15:37:15 by simonmar]

Allow code blocks to be denoted with bird-tracks in addition to [...].

1 files changed, 7 insertions, 1 deletions

diff --git a/src/HaddockParse.y b/src/HaddockParse.y
index a406f3e4..87fb1af6 100644
--- a/src/HaddockParse.y
+++ b/src/HaddockParse.y
@@ -15,6 +15,7 @@ import HaddockTypes
 	URL	{ TokURL $$ }
 	'*'	{ TokBullet }
 	'(n)'	{ TokNumber }
+	'>'	{ TokBirdTrack }
 	PARA    { TokPara }
 	STRING	{ TokString $$ }
 
@@ -44,9 +45,14 @@ olpara  :: { ParsedDoc }
 
 para    :: { ParsedDoc }
 	: seq			{ docParagraph $1 }
+	| codepara		{ DocCodeBlock $1 }
+
+codepara :: { ParsedDoc }
+	: '>' seq codepara	{ docAppend $2 $3 }
+	| '>' seq		{ $2 }
 
 seq	:: { ParsedDoc }
-	: elem seq		{ DocAppend $1 $2 }
+	: elem seq		{ docAppend $1 $2 }
 	| elem			{ $1 }
 
 elem	:: { ParsedDoc }