@@ -34,7 +34,7 @@ tokensToForest = f (PStack [] [])
3434 Doctype _ -> f (pushFlatSibling t pstack) ts
3535
3636nonClosing :: [Text]
37−nonClosing = ["br", "hr", "img"]
37+nonClosing = ["br", "hr", "img", "meta", "area", "base", "col", "command", "embed", "input", "keygen", "link", "param", "source", "track", "wbr"]
3838
3939data ParseTokenForestError =
4040 ParseTokenForestErrorBracketMismatch PStack (Maybe Token)