From ff5c7d6ddfabadf0afe24e33a5487d630fbbd406 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 15 Aug 2003 14:42:59 +0000
Subject: [haddock @ 2003-08-15 14:42:59 by simonmar] Convert the lexer to
 Alex, and fix a bug in the process.

---
 src/HaddockParse.y | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/HaddockParse.y')

diff --git a/src/HaddockParse.y b/src/HaddockParse.y
index 15eda968..db712c42 100644
--- a/src/HaddockParse.y
+++ b/src/HaddockParse.y
@@ -14,7 +14,7 @@ import HsSyn
 	URL	{ TokURL $$ }
 	'*'	{ TokBullet }
 	'(n)'	{ TokNumber }
-	'>'	{ TokBirdTrack }
+	'>..'	{ TokBirdTrack $$ }
 	IDENT   { TokIdent $$ }
 	PARA    { TokPara }
 	STRING	{ TokString $$ }
@@ -48,8 +48,8 @@ para    :: { Doc }
 	| codepara		{ DocCodeBlock $1 }
 
 codepara :: { Doc }
-	: '>' seq codepara	{ docAppend $2 $3 }
-	| '>' seq		{ $2 }
+	: '>..' codepara	{ docAppend (DocString $1) $2 }
+	| '>..'			{ DocString $1 }
 
 seq	:: { Doc }
 	: elem seq		{ docAppend $1 $2 }
-- 
cgit v1.2.3