@@ -740,7 +740,7 @@ pSpace = many1 (satisfy isSpace) >> return B.space
740740--
741741
742742eitherBlockOrInline :: [String]
743−eitherBlockOrInline = ["audio", "applet", "button", "iframe",
743+eitherBlockOrInline = ["audio", "applet", "button", "iframe", "embed",
744744 "del", "ins",
745745 "progress", "map", "area", "noscript", "script",
746746 "object", "svg", "video", "source"]
@@ -758,7 +758,7 @@ blockHtmlTags :: [String]
758758blockHtmlTags = ["?xml", "!DOCTYPE", "address", "article", "aside",
759759 "blockquote", "body", "button", "canvas",
760760 "caption", "center", "col", "colgroup", "dd", "dir", "div",
761− "dl", "dt", "embed", "fieldset", "figcaption", "figure",
761+ "dl", "dt", "fieldset", "figcaption", "figure",
762762 "footer", "form", "h1", "h2", "h3", "h4",
763763 "h5", "h6", "head", "header", "hgroup", "hr", "html",
764764 "isindex", "menu", "noframes", "ol", "output", "p", "pre",