diff options
| author | simonmar <unknown> | 2003-08-19 09:09:03 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2003-08-19 09:09:03 +0000 |
| commit | d5f6a4b53fdd82b8ff89687672a5e91a082b635d (patch) | |
| tree | e29c28178d05894afd4b0b850b4edc00028e7317 /src/HaddockParse.y | |
| parent | ea54ebc01fc0a448ed523530a3a52271191337f1 (diff) | |
[haddock @ 2003-08-19 09:09:03 by simonmar]
Further wibbles to the syntax.
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 |