@@ -179,10 +179,10 @@ someUntil p end = first <$> ((:) <$> p) <*> manyUntil p end
179179
180180-- ** HTML parsers
181181
182−openTag :: PandocMonad m => String -> MuseParser m Attr
182+openTag :: PandocMonad m => String -> MuseParser m [(String, String)]
183183openTag tag = do
184184 (TagOpen _ attr, _) <- htmlTag(~== TagOpen tag [])
185− return $ htmlAttrToPandoc attr
185+ return $ attr
186186
187187closeTag :: PandocMonad m => String -> MuseParser m ()
188188closeTag tag = void $ htmlTag (~== TagClose tag)
@@ -194,7 +194,7 @@ htmlElement :: PandocMonad m
194194htmlElement tag = try $ do
195195 attr <- openTag tag
196196 content <- manyTill anyChar $ closeTag tag
197− return (attr, content)
197+ return (htmlAttrToPandoc attr, content)
198198
199199htmlBlock :: PandocMonad m
200200 => String -- ^ Tag name
@@ -223,7 +223,7 @@ parseHtmlContent tag = try $ do
223223 manyTill spaceChar eol
224224 content <- parseBlocksTill $ try $ count (sourceColumn pos - 1) spaceChar >> closeTag tag
225225 manyTill spaceChar eol -- closing tag must be followed by optional whitespace and newline
226− return (attr, content)
226+ return (htmlAttrToPandoc attr, content)
227227
228228-- ** Directive parsers
229229
@@ -427,7 +427,7 @@ exampleTag = try $ do
427427literalTag :: PandocMonad m => MuseParser m (F Blocks)
428428literalTag = try $ do
429429 many spaceChar
430− attr <- openTag "literal"
430+ attr <- htmlAttrToPandoc <$> openTag "literal"
431431 manyTill spaceChar eol
432432 content <- manyTill anyChar $ closeTag "literal"
433433 manyTill spaceChar eol