@@ -765,10 +765,17 @@ hydrateElement elementTag cfg child = do
765 result <- HydrationDomBuilderT $ lift $ runReaderT (unHydrationDomBuilderT child) env'
765 result <- HydrationDomBuilderT $ lift $ runReaderT (unHydrationDomBuilderT child) env'
766 wrapResult <- liftIO newEmptyMVar
766 wrapResult <- liftIO newEmptyMVar
767 let skipAttr = "data-hydration-skip" :: DOM.JSString
767 let skipAttr = "data-hydration-skip" :: DOM.JSString
768+ ssrAttr = "data-ssr" :: DOM.JSString
768− hasSkipAttribute :: DOM.Element -> HydrationRunnerT t m Bool
769+ shouldSkip :: DOM.Element -> HydrationRunnerT t m Bool
769− hasSkipAttribute e = case cfg ^. namespace of
770+ shouldSkip e = case cfg ^. namespace of
770− Nothing -> hasAttribute e skipAttr
772+ skip <- hasAttribute e skipAttr
773+ ssr <- hasAttribute e ssrAttr
774+ pure $ skip || not ssr
771− Just ns -> hasAttributeNS e (Just ns) skipAttr
776+ skip <- hasAttributeNS e (Just ns) skipAttr
777+ ssr <- hasAttributeNS e (Just ns) ssrAttr
778+ pure $ skip || not ssr
772 childDom <- liftIO $ readIORef childDelayedRef
779 childDom <- liftIO $ readIORef childDelayedRef
773 let rawCfg = extractRawElementConfig cfg
780 let rawCfg = extractRawElementConfig cfg
774 doc <- askDocument
781 doc <- askDocument
@@ -783,7 +790,7 @@ hydrateElement elementTag cfg child = do
784 Just node -> DOM.castTo DOM.Element node >>= \case
791 Just node -> DOM.castTo DOM.Element node >>= \case
785 Nothing -> go (Just node) -- this node is not an element, skip
792 Nothing -> go (Just node) -- this node is not an element, skip
786− Just e -> hasSkipAttribute e >>= \case
793+ Just e -> shouldSkip e >>= \case
787 True -> go (Just node) -- this element is explicitly marked for being skipped by hydration
794 True -> go (Just node) -- this element is explicitly marked for being skipped by hydration
788 False -> do
795 False -> do
789 t <- Element.getTagName e
796 t <- Element.getTagName e