Partial fix for issue 14.

Ignore-this: 93060e4b19a975843eaab1185af52545

darcs-hash:20100130214452-c9c37-5b222060fbac6ea2f470224da766c6c3577a7c37.gz

1 files changed, 1 insertions, 1 deletions

diff --git a/Parsers.hs b/Parsers.hs
index 58e3bcd..48c5748 100644
--- a/Parsers.hs
+++ b/Parsers.hs
@@ -51,7 +51,7 @@ textParser c = do s <- many1 $
 --   accepts only parsers with return type Char.
 notFollowedBy' :: Parser a -> Parser b -> Parser a
 notFollowedBy' p e = do x <- p
-                        notFollowedBy (e >> return '*')
+                        notFollowedBy $ try (e >> return '*')
                         return x
 
 -- | Parsers a string wrapped in a color specification.