diff options
| author | simonmar <unknown> | 2002-05-29 09:09:49 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-05-29 09:09:49 +0000 |
| commit | 093f7e538e89d8f9a1f8362ba76a233b7c286a4f (patch) | |
| tree | aaad2f56e181ee3d873702c37d26709bc690f1ed /src/HaddockParse.y | |
| parent | 7e474ebfea020e4ed59324fbd9f8baf4b6fab705 (diff) | |
[haddock @ 2002-05-29 09:09:49 by simonmar]
Back out previous change until we can find a better way to do this.
Diffstat (limited to 'src/HaddockParse.y')
| -rw-r--r-- | src/HaddockParse.y | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/HaddockParse.y b/src/HaddockParse.y index 17fbf2f4..f74d2b69 100644 --- a/src/HaddockParse.y +++ b/src/HaddockParse.y @@ -12,13 +12,13 @@ import HsParseMonad %token SQUO { TokSpecial '\'' } BQUO { TokSpecial '`' } DQUO { TokSpecial '\"' } + '/' { TokSpecial '/' } '@' { TokSpecial '@' } URL { TokURL $$ } '*' { TokBullet } '(n)' { TokNumber } '>' { TokBirdTrack } PARA { TokPara } - EMPH { TokEmph $$ } STRING { TokString $$ } %monad { Either String } @@ -67,7 +67,7 @@ seq1 :: { Doc } elem1 :: { Doc } : STRING { DocString $1 } - | EMPH { DocEmphasis (DocString $1) } + | '/' STRING '/' { DocEmphasis (DocString $2) } | URL { DocURL $1 } | squo STRING squo { strToHsQNames $2 } | DQUO STRING DQUO { DocModule $2 } |