@@ -51,7 +51,8 @@ isOk c = isAscii c && isAlphaNum c
5151
5252convertTag :: MediaBag -> Maybe String -> Tag String -> IO (Tag String)
5353convertTag media sourceURL t@(TagOpen tagname as)
54− | tagname `elem` ["img", "embed", "video", "input", "audio", "source"] = do
54+ | tagname `elem`
55+ ["img", "embed", "video", "input", "audio", "source", "track"] = do
5556 as' <- mapM processAttribute as
5657 return $ TagOpen tagname as'
5758 where processAttribute (x,y) =