git.iko.soy/typeable/writer-cps-mtl
on master help sign in
In-situ lifting for RWST
0533c4eDaniel Mendler
src/Control/Monad/RWS/CPS.hs+1−1
compare with master
unifiedsplit
@@ -79,4 +79,4 @@ instance MonadError e m => MonadError e (RWST r w s m) where
79 catchError = CPS.liftCatch catchError
79 catchError = CPS.liftCatch catchError
80
80
81instance MonadCont m => MonadCont (RWST r w s m) where
81instance MonadCont m => MonadCont (RWST r w s m) where
82− callCC = CPS.liftCallCC callCC
82+ callCC = CPS.liftCallCC' callCC