@@ -1043,18 +1043,16 @@ mountDomFragment :: (PerformEvent t m, MonadIO m, MonadIO (Performable m), Monad
10431043mountDomFragment fragment setFragment = do
10441044 parent <- askParent
10451045 extractFragment fragment
1046− mountInBetween <- do
1047− before <- textNodeInternal ("" :: Text)
1048− _ <- appendChild parent $ Just $ _domFragment_document fragment
1049− after <- textNodeInternal ("" :: Text)
1050− xs <- foldDyn (\new (previous, _) -> (new, Just previous)) (fragment, Nothing) setFragment
1051− performEvent_ $ ffor (updated xs) $ \(childFragment, Just previousFragment) -> do
1052− extractFragment previousFragment
1053− extractFragment childFragment
1054− insertBefore (_domFragment_document childFragment) after
1055− liftIO $ writeIORef (_domFragment_state childFragment) $ FragmentState_Mounted (before, after)
1056− return (before, after)
1057− liftIO $ writeIORef (_domFragment_state fragment) $ FragmentState_Mounted mountInBetween
1046+ before <- textNodeInternal ("" :: Text)
1047+ _ <- appendChild parent $ Just $ _domFragment_document fragment
1048+ after <- textNodeInternal ("" :: Text)
1049+ xs <- foldDyn (\new (previous, _) -> (new, Just previous)) (fragment, Nothing) setFragment
1050+ performEvent_ $ ffor (updated xs) $ \(childFragment, Just previousFragment) -> do
1051+ extractFragment previousFragment
1052+ extractFragment childFragment
1053+ insertBefore (_domFragment_document childFragment) after
1054+ liftIO $ writeIORef (_domFragment_state childFragment) $ FragmentState_Mounted (before, after)
1055+ liftIO $ writeIORef (_domFragment_state fragment) $ FragmentState_Mounted (before, after)
10581056
10591057extractFragment :: MonadIO m => DomFragment -> m ()
10601058extractFragment fragment = do