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