mime-mail-ses 0.2.2.2 → 0.3.0

raw patch · 2 files changed

+17/−4 lines, 2 filesdep −http-client-conduitdep ~http-conduit

Dependencies removed: http-client-conduit

Dependency ranges changed: http-conduit

Files

• Network/Mail/Mime/SES.hs +15/−1
• mime-mail-ses.cabal +2/−3

@@ -4,6 +4,9 @@     ( sendMailSES     , renderSendMailSES     , SES (..)+    , usEast1+    , usWest2+    , euWest1     ) where  import           Control.Exception           (Exception, throwIO)@@ -37,6 +40,7 @@     , sesTo        :: [ByteString]     , sesAccessKey :: ByteString     , sesSecretKey :: ByteString+    , sesRegion    :: Text     }  renderSendMailSES :: MonadIO m => Manager -> SES -> Mail -> m ()@@ -47,7 +51,8 @@     now <- getCurrentTime     let date = S8.pack $ format now         sig = makeSig date $ sesSecretKey ses-    req' <- parseUrl "https://email.us-east-1.amazonaws.com"+        region = T.unpack $ sesRegion ses+    req' <- parseUrl $ concat ["https://email.", region , ".amazonaws.com"]     let auth = S8.concat             [ "AWS3-HTTPS AWSAccessKeyId="             , sesAccessKey ses@@ -125,3 +130,12 @@ makeSig :: ByteString -> ByteString -> ByteString makeSig payload key =     encode $ toBytes (hmacGetDigest $ hmac key payload :: Digest SHA256)++usEast1 :: Text+usEast1 = "us-east-1"++usWest2 :: Text+usWest2 = "us-west-2"++euWest1 :: Text+euWest1 = "eu-west-1"

@@ -1,5 +1,5 @@ Name:                mime-mail-ses-Version:             0.2.2.2+Version:             0.3.0 Synopsis:            Send mime-mail messages via Amazon SES Homepage:            http://github.com/snoyberg/mime-mail License:             MIT@@ -18,8 +18,7 @@                      , time               >= 1.1                      , old-locale                      , http-client        >= 0.2.2.2-                     , http-client-conduit-                     , http-conduit       >= 0.2.0.1+                     , http-conduit       >= 2.1                      , mime-mail          >= 0.3                      , transformers       >= 0.2                      , http-types         >= 0.6.8