[project @ 2003-06-04 14:52:09 by ralf]
[packages/old-time.git] / 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