@@ -593,9 +593,6 @@ instance PerformEvent t m => PerformEvent t (ImmediateDomBuilderT t m) where
593 {-# INLINABLE performEvent #-}
593 {-# INLINABLE performEvent #-}
594 performEvent e = lift $ performEvent e
594 performEvent e = lift $ performEvent e
596−instance ExhaustiblePerformEvent t m => ExhaustiblePerformEvent t (ImmediateDomBuilderT t m) where
597− withPerformEventExhausted a = liftWith $ \run -> withPerformEventExhausted $ run a
599instance PostBuild t m => PostBuild t (ImmediateDomBuilderT t m) where
596instance PostBuild t m => PostBuild t (ImmediateDomBuilderT t m) where
600 {-# INLINABLE getPostBuild #-}
597 {-# INLINABLE getPostBuild #-}
601 getPostBuild = lift getPostBuild
598 getPostBuild = lift getPostBuild