mirror of
https://github.com/jgm/pandoc.git
synced 2026-09-26 01:15:53 +00:00
@@ -51,7 +51,8 @@ isOk c = isAscii c && isAlphaNum c
|
||||
|
||||
convertTag :: MediaBag -> Maybe String -> Tag String -> IO (Tag String)
|
||||
convertTag media sourceURL t@(TagOpen tagname as)
|
||||
| tagname `elem` ["img", "embed", "video", "input", "audio", "source"] = do
|
||||
| tagname `elem`
|
||||
["img", "embed", "video", "input", "audio", "source", "track"] = do
|
||||
as' <- mapM processAttribute as
|
||||
return $ TagOpen tagname as'
|
||||
where processAttribute (x,y) =
|
||||
|
||||
Reference in New Issue
Block a user