aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/HaddockParse.y14
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 =