@@ -69,6 +69,16 @@ instance
6969 liftWith = MC.defaultLiftWith pack unpack
7070 restoreT = MC.defaultRestoreT pack
7171
72+instance
73+ ( MC.MonadBaseControl b m
74+ , MC.MonadTransControl trans
75+ , Monad (trans m)
76+ ) => MC.MonadBaseControl b (Dispatch dp trans m)
77+ where
78+ type StM (Dispatch dp trans m) a = MC.ComposeSt trans m a
79+ liftBaseWith = MC.defaultLiftBaseWith
80+ restoreM = MC.defaultRestoreM
81+
7282type instance Lift.StT (Dispatch dp trans) a = Lift.StT trans a
7383
7484instance Lift.LiftLocal trans => Lift.LiftLocal (Dispatch dp trans) where