From 14a25b287cb937cd5dbdd532971d3733326b18c4 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Sat, 21 Nov 2009 05:23:09 +0000
Subject: Fixed htmlComment parser.

(Added a needed try.)

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

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs
index e1f1e1af5..aef9e1962 100644
--- a/src/Text/Pandoc/Readers/HTML.hs
+++ b/src/Text/Pandoc/Readers/HTML.hs
@@ -348,7 +348,7 @@ htmlComment :: GenParser Char st [Char]
 htmlComment = try $ do
   string "<!--"
   comment <- many $ noneOf "-"
-                 <|> try (char '-' >>~ notFollowedBy (char '-' >> char '>'))
+               <|> try (char '-' >>~ notFollowedBy (try (char '-' >> char '>')))
   string "-->"
   return $ "<!--" ++ comment ++ "-->"
 
-- 
cgit v1.2.3