@@ -58,11 +58,6 @@ instance PrimMonad m => PrimMonad (StaticDomBuilderT x m) where
58 type PrimState (StaticDomBuilderT x m) = PrimState m
58 type PrimState (StaticDomBuilderT x m) = PrimState m
59 primitive = lift . primitive
59 primitive = lift . primitive
61−instance MonadTransControl (StaticDomBuilderT t) where
62− type StT (StaticDomBuilderT t) a = StT (StateT [Behavior t Builder]) a
63− liftWith = defaultLiftWith StaticDomBuilderT unStaticDomBuilderT
64− restoreT = defaultRestoreT StaticDomBuilderT
66instance MonadTrans (StaticDomBuilderT t) where
61instance MonadTrans (StaticDomBuilderT t) where
67 lift = StaticDomBuilderT . lift
62 lift = StaticDomBuilderT . lift