1 module Control.Monad.X.Cont (Cont,runCont,module T) where
3 import Control.Monad.X.Identity
4 import qualified Control.Monad.X.ContT as C
5 import Control.Monad.X.Trans as T
7 type Cont r = C.ContT r Identity
9 runCont :: Cont a a -> a
10 runCont m = runIdentity (C.runCont m)