Added track to list of tags treated by --self-contained.

Closes #1664.
This commit is contained in:
John MacFarlane
2014-10-04 11:39:08 -07:00
parent 08ac33815b
commit bf00556c72
+2 -1
View File
@@ -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) =