diff options
| author | simonmar <unknown> | 2003-08-15 14:42:59 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2003-08-15 14:42:59 +0000 |
| commit | ff5c7d6ddfabadf0afe24e33a5487d630fbbd406 (patch) | |
| tree | c0301ea6f2423c1dafdf581cdeaa50f09e6c1ac6 /src/HaddockParse.y | |
| parent | e9d8085c4018838f62dbd6a06757cf3e31c35cf2 (diff) | |
[haddock @ 2003-08-15 14:42:59 by simonmar]
Convert the lexer to Alex, and fix a bug in the process.
Diffstat (limited to 'src/HaddockParse.y')
| -rw-r--r-- | src/HaddockParse.y | 6 |
1 files changed, 3 insertions, 3 deletions
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 } |