@@ -111,7 +111,7 @@ data StaticDomHandler (a :: k) (b :: k) = StaticDomHandler
111111
112112instance DomSpace StaticDomSpace where
113113 type RawTextNode StaticDomSpace = ()
114− type RawElement StaticDomSpace = ByteString
114+ type RawElement StaticDomSpace = ()
115115 type RawEvent StaticDomSpace = StaticDomEvent
116116 type DomHandler StaticDomSpace = StaticDomHandler
117117 type DomHandler1 StaticDomSpace = StaticDomHandler
@@ -137,7 +137,7 @@ instance SupportsStaticDomBuilder t m => DomBuilder t (StaticDomBuilderT t m) wh
137137 let open = mconcat [constant ("<" <> tagBS <> " "), attrs1, constant ">"]
138138 let close = constant $ "</" <> tagBS <> ">" -- TODO handle elements without closing tags
139139 modify $ (:) $ mconcat [open, innerHtml, close]
140− return (Element es (error "Static.element RawElement was used"), result)
140+ return (Element es (), result)
141141
142142 {-# INLINABLE placeholder #-}
143143 placeholder (PlaceholderConfig toInsertAbove _delete) = StaticDomBuilderT $ do