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