[commit: haddock] ghc-7.6: Fix parser bug (9d46da4)

Repository : ssh://darcs.haskell.org//srv/darcs/haddock

On branch  : ghc-7.6

http://hackage.haskell.org/trac/ghc/changeset/9d46da45a53678469d5fe4ef33f37bba45294633

>---------------------------------------------------------------

commit 9d46da45a53678469d5fe4ef33f37bba45294633
Author: Simon Hengel <[email protected]>
Date:   Tue Oct 9 15:15:04 2012 +0200

    Fix parser bug

>---------------------------------------------------------------

 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 aec4c64..0d8dd95 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 }