Control/Monad/X/Reader.hs

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