diff options
| author | Simon Hengel <sol@typeful.net> | 2012-10-09 15:15:04 +0200 |
|---|---|---|
| committer | Simon Hengel <sol@typeful.net> | 2012-10-09 15:15:04 +0200 |
| commit | 9d46da45a53678469d5fe4ef33f37bba45294633 (patch) | |
| tree | 9497cb05e5fe1bcd6b63315b8d752b970647a372 | |
| parent | d9c5e0eea99dccf85bfa6f29b70b64ddd916d86c (diff) | |
Fix parser bug
| -rw-r--r-- | src/Haddock/Lex.x | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Haddock/Lex.x b/src/Haddock/Lex.x index aec4c647..0d8dd954 100644 --- a/src/Haddock/Lex.x +++ b/src/Haddock/Lex.x @@ -50,7 +50,7 @@ $ident = [$alphanum \'\_\.\!\#\$\%\&\*\+\/\<\=\>\?\@\\\\\^\|\-\~\:] <0,para> { $ws* \n ; $ws* \> { begin birdtrack } - $ws* prop \> .* \n { strtoken TokProperty } + $ws* prop \> .* \n { strtoken TokProperty `andBegin` property} $ws* \>\>\> { strtoken TokExamplePrompt `andBegin` exampleexpr } $ws* [\*\-] { token TokBullet `andBegin` string } $ws* \[ { token TokDefStart `andBegin` def } @@ -75,6 +75,8 @@ $ident = [$alphanum \'\_\.\!\#\$\%\&\*\+\/\<\=\>\?\@\\\\\^\|\-\~\:] <birdtrack> .* \n? { strtokenNL TokBirdTrack `andBegin` line } +<property> () { token TokPara `andBegin` para } + <example> { $ws* \n { token TokPara `andBegin` para } $ws* \>\>\> { strtoken TokExamplePrompt `andBegin` exampleexpr } |