git.iko.soy/typeable/ether
on master help sign in
Add missing MonadBaseControl instance
f9f16d0Vladislav Zavialov
ether/src/Control/Monad/Trans/Ether/Dispatch.hs+10
compare with master
unifiedsplit
@@ -69,6 +69,16 @@ instance
69 liftWith = MC.defaultLiftWith pack unpack
69 liftWith = MC.defaultLiftWith pack unpack
70 restoreT = MC.defaultRestoreT pack
70 restoreT = MC.defaultRestoreT pack
71
71
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+
72type instance Lift.StT (Dispatch dp trans) a = Lift.StT trans a
82type instance Lift.StT (Dispatch dp trans) a = Lift.StT trans a
73
83
74instance Lift.LiftLocal trans => Lift.LiftLocal (Dispatch dp trans) where
84instance Lift.LiftLocal trans => Lift.LiftLocal (Dispatch dp trans) where