@@ -141,7 +141,7 @@ import Data.Text (Text)
141import Foreign.JavaScript.Internal.Utils
141import Foreign.JavaScript.Internal.Utils
142import Foreign.JavaScript.TH
142import Foreign.JavaScript.TH
143import GHCJS.DOM.Document (Document, createDocumentFragment, createElement, createElementNS, createTextNode, createComment)
143import GHCJS.DOM.Document (Document, createDocumentFragment, createElement, createElementNS, createTextNode, createComment)
144−import GHCJS.DOM.Element (getScrollTop, removeAttribute, removeAttributeNS, setAttribute, setAttributeNS, hasAttribute, hasAttributeNS)
144+import GHCJS.DOM.Element (getScrollTop, removeAttribute, removeAttributeNS, setAttribute, setAttributeNS, hasAttribute)
145import GHCJS.DOM.EventM (EventM, event, on)
145import GHCJS.DOM.EventM (EventM, event, on)
146import GHCJS.DOM.KeyboardEvent as KeyboardEvent
146import GHCJS.DOM.KeyboardEvent as KeyboardEvent
147import GHCJS.DOM.MouseEvent
147import GHCJS.DOM.MouseEvent
@@ -766,15 +766,10 @@ hydrateElement elementTag cfg child = do
766 let skipAttr = "data-hydration-skip" :: DOM.JSString
766 let skipAttr = "data-hydration-skip" :: DOM.JSString
767 ssrAttr = "data-ssr" :: DOM.JSString
767 ssrAttr = "data-ssr" :: DOM.JSString
768 shouldSkip :: DOM.Element -> HydrationRunnerT t m Bool
768 shouldSkip :: DOM.Element -> HydrationRunnerT t m Bool
769− shouldSkip e = case cfg ^. namespace of
769+ shouldSkip e = do
771− skip <- hasAttribute e skipAttr
770+ skip <- hasAttribute e skipAttr
772− ssr <- hasAttribute e ssrAttr
771+ ssr <- hasAttribute e ssrAttr
773− pure $ skip || not ssr
775− skip <- hasAttributeNS e (Just ns) skipAttr
776− ssr <- hasAttributeNS e (Just ns) ssrAttr
777− pure $ skip || not ssr
772+ pure $ skip || not ssr
778 childDom <- liftIO $ readIORef childDelayedRef
773 childDom <- liftIO $ readIORef childDelayedRef
779 let rawCfg = extractRawElementConfig cfg
774 let rawCfg = extractRawElementConfig cfg
780 doc <- askDocument
775 doc <- askDocument