diff options
| -rw-r--r-- | src/HaddockParse.y | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/src/HaddockParse.y b/src/HaddockParse.y index dfb1a116..789f0d94 100644 --- a/src/HaddockParse.y +++ b/src/HaddockParse.y @@ -56,12 +56,7 @@ seq :: { ParsedDoc } | elem { $1 } elem :: { ParsedDoc } - : STRING { DocString $1 } - | '/' STRING '/' { DocEmphasis (DocString $2) } - | URL { DocURL $1 } - | SQUO STRING SQUO { DocIdentifier $2 } - | BQUO STRING SQUO { DocIdentifier $2 } - | DQUO STRING DQUO { DocModule $2 } + : elem1 { $1 } | '@' seq1 '@' { DocMonospaced $2 } seq1 :: { ParsedDoc } @@ -72,10 +67,13 @@ elem1 :: { ParsedDoc } : STRING { DocString $1 } | '/' STRING '/' { DocEmphasis (DocString $2) } | URL { DocURL $1 } - | SQUO STRING SQUO { DocIdentifier $2 } - | BQUO STRING SQUO { DocIdentifier $2 } + | squo STRING squo { DocIdentifier $2 } | DQUO STRING DQUO { DocModule $2 } +squo :: { () } + : SQUO { () } + | BQUO { () } + { happyError :: [Token] -> Either String a happyError toks = |