diff options
Diffstat (limited to 'src/HaddockParse.y')
| -rw-r--r-- | src/HaddockParse.y | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/HaddockParse.y b/src/HaddockParse.y index e1a1cb8c..29b3b70a 100644 --- a/src/HaddockParse.y +++ b/src/HaddockParse.y @@ -65,15 +65,15 @@ seq1 :: { Doc } elem1 :: { Doc } : STRING { DocString $1 } - | '/' strings '/' { DocEmphasis $2 } + | '/' strings '/' { DocEmphasis (DocString $2) } | URL { DocURL $1 } | ANAME { DocAName $1 } | IDENT { DocIdentifier $1 } - | DQUO STRING DQUO { DocModule $2 } + | DQUO strings DQUO { DocModule $2 } -strings :: { Doc } - : STRING { DocString $1 } - | STRING strings { docAppend (DocString $1) $2 } +strings :: { String } + : STRING { $1 } + | STRING strings { $1 ++ $2 } { happyError :: [Token] -> Either String a |