aws-ses-easy 0.0.0 → 0.1.0

raw patch · 3 files changed

+6/−6 lines, 3 files

Files

• aws-ses-easy.cabal +2/−2
• library/Aws/Ses/Easy/Service.hs +3/−3
• package.yaml +1/−1

@@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 4a1665dedd80d3f81d6afde6fc2e45d73d6b1fdbc8668fb88dc7324bd531c2fc+-- hash: 2af2e52057d79537f56a932c925ed483263b42f5b8080e360e995529eace2f1d  name:           aws-ses-easy-version:        0.0.0+version:        0.1.0 synopsis:       Wrapper over Amazonka's SES description:    Opinionated use of Amazonka's SES for ease category:       Network

@@ -13,13 +13,13 @@   class Monad m => Service m where-  sendEmail :: Email -> (Email -> m ()) -> m ()+  sendEmail :: Email -> m () -> m () -sendEmail' :: (MonadIO m, MonadReader s m, MonadCatch m) => (s -> Aws.Env) -> Email -> (Email -> m ()) -> m ()+sendEmail' :: (MonadIO m, MonadReader s m, MonadCatch m) => (s -> Aws.Env) -> Email -> m () -> m () sendEmail' getEnv email failed = do   env <- asks getEnv   let msg = fromEmail email-  _ <- catching_ Aws._MessageRejected (awsSendEmail env msg >> return ()) (failed email)+  _ <- catching_ Aws._MessageRejected (awsSendEmail env msg >> return ()) failed   return ()   where     awsSendEmail env msg = liftIO $ Aws.runResourceT . Aws.runAWS env $ Aws.send msg

@@ -1,5 +1,5 @@ name: aws-ses-easy-version: '0.0.0'+version: '0.1.0' github: jxv/aws-ses-easy license: BSD3 license-file: LICENSE.md