@@ -55,7 +55,7 @@ import Text.Pandoc.Class (PandocMonad (..))
5555import Text.Pandoc.Definition
5656import Text.Pandoc.Logging
5757import Text.Pandoc.Options
58−import Text.Pandoc.Parsing hiding (nested)
58+import Text.Pandoc.Parsing
5959import Text.Pandoc.Readers.HTML (htmlTag)
6060import Text.Pandoc.Shared (crFilter)
6161import Text.Pandoc.XML (fromEntities)
@@ -102,15 +102,6 @@ parseBlocks = do
102102eol :: Stream s m Char => ParserT s st m ()
103103eol = void newline <|> eof
104104
105−nested :: PandocMonad m => MuseParser m a -> MuseParser m a
106−nested p = do
107− nestlevel <- stateMaxNestingLevel <$> getState
108− guard $ nestlevel > 0
109− updateState $ \st -> st{ stateMaxNestingLevel = stateMaxNestingLevel st - 1 }
110− res <- p
111− updateState $ \st -> st{ stateMaxNestingLevel = nestlevel }
112− return res
113−
114105htmlElement :: PandocMonad m => String -> MuseParser m (Attr, String)
115106htmlElement tag = try $ do
116107 (TagOpen _ attr, _) <- htmlTag (~== TagOpen tag [])
@@ -133,7 +124,7 @@ parseHtmlContentWithAttrs tag parser = do
133124 parsedContent <- parseContent (content ++ "\n")
134125 return (attr, parsedContent)
135126 where
136− parseContent = parseFromString $ nested $ manyTill parser endOfContent
127+ parseContent = parseFromString $ manyTill parser endOfContent
137128 endOfContent = try $ skipMany blankline >> skipSpaces >> eof
138129
139130parseHtmlContent :: PandocMonad m => String -> MuseParser m a -> MuseParser m [a]