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