Control/Monad/X/Cont.hs

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