@@ -113,11 +113,10 @@ nested p = do
113113htmlElement :: PandocMonad m => String -> MuseParser m (Attr, String)
114114htmlElement tag = try $ do
115115 (TagOpen _ attr, _) <- htmlTag (~== TagOpen tag [])
116− content <- manyTill anyChar (endtag <|> endofinput)
116+ content <- manyTill anyChar endtag
117117 return (htmlAttrToPandoc attr, content)
118118 where
119− endtag = void $ htmlTag (~== TagClose tag)
120− endofinput = lookAhead $ try $ skipMany blankline >> skipSpaces >> eof
119+ endtag = void $ htmlTag (~== TagClose tag)
121120
122121htmlAttrToPandoc :: [Attribute String] -> Attr
123122htmlAttrToPandoc attrs = (ident, classes, keyvals)