From 9d46da45a53678469d5fe4ef33f37bba45294633 Mon Sep 17 00:00:00 2001
From: Simon Hengel <sol@typeful.net>
Date: Tue, 9 Oct 2012 15:15:04 +0200
Subject: Fix parser bug

---
 src/Haddock/Lex.x | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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 }
-- 
cgit v1.2.3