@@ -115,11 +115,10 @@ htmlElement :: PandocMonad m => String -> MuseParser m (Attr, String)
115115htmlElement tag = try $ do
116116 (TagOpen _ attr, _) <- htmlTag (~== TagOpen tag [])
117117 content <- manyTill anyChar (endtag <|> endofinput)
118− return (htmlAttrToPandoc attr, trim content)
118+ return (htmlAttrToPandoc attr, content)
119119 where
120120 endtag = void $ htmlTag (~== TagClose tag)
121121 endofinput = lookAhead $ try $ skipMany blankline >> skipSpaces >> eof
122− trim = dropWhile (=='\n') . reverse . dropWhile (=='\n') . reverse
123122
124123htmlAttrToPandoc :: [Attribute String] -> Attr
125124htmlAttrToPandoc attrs = (ident, classes, keyvals)
@@ -132,7 +131,7 @@ parseHtmlContentWithAttrs :: PandocMonad m
132131 => String -> MuseParser m a -> MuseParser m (Attr, [a])
133132parseHtmlContentWithAttrs tag parser = do
134133 (attr, content) <- htmlElement tag
135− parsedContent <- try $ parseContent content
134+ parsedContent <- try $ parseContent (content ++ "\n")
136135 return (attr, parsedContent)
137136 where
138137 parseContent = parseFromString $ nested $ manyTill parser endOfContent