Control/Monad/X/Resume.hs

   1 module Control.Monad.X.Resume (Resume, hyper, module T) where
   2
   3 import Control.Monad.X.Identity
   4 import qualified Control.Monad.X.ResumeT as R
   5 import Control.Monad.X.Trans as T
   6
   7 type Resume   = R.ResumeT Identity
   8
   9 hyper         :: Resume a -> a
  10 hyper m       = runIdentity (R.hyper m)
  11
  12