aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSimon Hengel <sol@typeful.net>2012-10-09 15:15:04 +0200
committerSimon Hengel <sol@typeful.net>2012-10-09 15:15:04 +0200
commit9d46da45a53678469d5fe4ef33f37bba45294633 (patch)
tree9497cb05e5fe1bcd6b63315b8d752b970647a372
parentd9c5e0eea99dccf85bfa6f29b70b64ddd916d86c (diff)
Fix parser bug
-rw-r--r--src/Haddock/Lex.x4
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 }