Changed failure message in anyHtmlBlockTag (minor change).
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1153 788f1e2b-df1e-0410-8736-df70ead52e1b
commitdad8e163301f7f5894f7b7e491577427b7e05d7a
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
dateMon 24 Dec 2007, 04:22 (19 years ago)
parent6802d28
Text/Pandoc/Readers/HTML.hs+1−1
@@ -183,7 +183,7 @@ isBlock tag = (extractTagType tag) `elem` blockHtmlTags
183183
184184anyHtmlBlockTag = try $ do
185185 tag <- anyHtmlTag <|> anyHtmlEndTag
186− if isBlock tag then return tag else fail "inline tag"
186+ if isBlock tag then return tag else fail "not a block tag"
187187
188188anyHtmlInlineTag = try $ do
189189 tag <- anyHtmlTag <|> anyHtmlEndTag