From 1fe28483bddef1a1f8139b1ba8e8129fa14090e6 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Tue, 21 Jul 2009 08:02:03 +0000
Subject: Fixed bug in HTML comment parser.

Resolves Issue #157.  ('try' in the wrong place.)

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1605 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 src/Text/Pandoc/Readers/HTML.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs
index c988c68d2..506f77d1b 100644
--- a/src/Text/Pandoc/Readers/HTML.hs
+++ b/src/Text/Pandoc/Readers/HTML.hs
@@ -346,8 +346,8 @@ rawHtmlBlock' = do notFollowedBy' (htmlTag "/body" <|> htmlTag "/html")
 htmlComment :: GenParser Char st [Char]
 htmlComment = try $ do
   string "<!--"
-  comment <- many (   (satisfy (/='-'))
-                  <|> (char '-' >>~ notFollowedBy (try $ char '-' >> char '>')))
+  comment <- many $ noneOf "-"
+                 <|> try (char '-' >>~ notFollowedBy (char '-' >> char '>'))
   string "-->"
   return $ "<!--" ++ comment ++ "-->"
 
-- 
cgit v1.2.3