@@ -276,6 +276,7 @@ localRunner (HydrationRunnerT m) s parent = do
276 s0 <- HydrationRunnerT get
276 s0 <- HydrationRunnerT get
277 (a, s') <- HydrationRunnerT $ lift $ local (\_ -> parent) $ runStateT m (s0 { _hydrationState_previousNode = s })
277 (a, s') <- HydrationRunnerT $ lift $ local (\_ -> parent) $ runStateT m (s0 { _hydrationState_previousNode = s })
278 traverse_ removeSubsequentNodes $ _hydrationState_previousNode s'
278 traverse_ removeSubsequentNodes $ _hydrationState_previousNode s'
279+ HydrationRunnerT $ modify' $ \hs -> hs { _hydrationState_failed = _hydrationState_failed s' }
281{-# INLINABLE runHydrationRunnerT #-}
282{-# INLINABLE runHydrationRunnerT #-}
@@ -1195,6 +1196,7 @@ hydrateTextNode doc t = do
1196 go parent mLastNode = maybe (Node.getFirstChild parent) Node.getNextSibling mLastNode >>= \case
1197 go parent mLastNode = maybe (Node.getFirstChild parent) Node.getNextSibling mLastNode >>= \case
1197 Nothing -> do
1198 Nothing -> do
1199+ HydrationRunnerT $ modify' $ \s -> s { _hydrationState_failed = True }
1198 n <- createTextNode doc t
1200 n <- createTextNode doc t
1199 insertAfterPreviousNode n
1201 insertAfterPreviousNode n
@@ -1210,6 +1212,7 @@ hydrateTextNode doc t = do
1210 DOM.splitText_ originalNode $ fromIntegral $ T.length t
1212 DOM.splitText_ originalNode $ fromIntegral $ T.length t
1211 return originalNode
1213 return originalNode
1212 Nothing -> do
1214 Nothing -> do
1215+ HydrationRunnerT $ modify' $ \s -> s { _hydrationState_failed = True }
1213 n <- createTextNode doc t
1216 n <- createTextNode doc t
1214 insertAfterPreviousNode n
1217 insertAfterPreviousNode n