@@ -5,11 +5,19 @@ import Control.Monad.Reader
55import Control.Applicative
66import Network.API.Mandrill.Types
77
8+
9+--------------------------------------------------------------------------------
810newtype MandrillT m a = MandrillT {
911 runMandrillT :: ReaderT MandrillKey m a
1012 } deriving (MonadTrans, MonadReader MandrillKey,
1113 Functor, Applicative, Monad, MonadIO)
1214
15+
16+--------------------------------------------------------------------------------
17+type Mandrill = MandrillT IO
18+
19+
20+--------------------------------------------------------------------------------
1321runMandrill :: MonadIO m
1422 => MandrillKey
1523 -> MandrillT m a