@@ -422,7 +422,7 @@ mkHasFocus e = do
424{-# INLINABLE insertImmediateAbove #-}
424{-# INLINABLE insertImmediateAbove #-}
425−insertImmediateAbove :: (Reflex t, IsNode placeholder, PerformEvent t m, MonadIO (Performable m)) => placeholder -> Event t (ImmediateDomBuilderT t (Performable m) a) -> ImmediateDomBuilderT t m (Event t a)
425+insertImmediateAbove :: (IsNode placeholder, PerformEvent t m, MonadIO (Performable m)) => placeholder -> Event t (ImmediateDomBuilderT t (Performable m) a) -> ImmediateDomBuilderT t m (Event t a)
426insertImmediateAbove n toInsertAbove = do
426insertImmediateAbove n toInsertAbove = do
427 events <- askEvents
427 events <- askEvents
428 lift $ performEvent $ ffor toInsertAbove $ \new -> do
428 lift $ performEvent $ ffor toInsertAbove $ \new -> do