mime-mail-ses 0.3.2.2 → 0.3.2.3
raw patch · 3 files changed
+18/−2 lines, 3 files
Files
- ChangeLog.md +4/−0
- Network/Mail/Mime/SES.hs +13/−1
- mime-mail-ses.cabal +1/−1
ChangeLog.md view
@@ -1,3 +1,7 @@+## 0.3.2.3++http-client 0.5 support+ ## 0.3.2.2 `time` 1.5 support
Network/Mail/Mime/SES.hs view
@@ -27,7 +27,13 @@ import Data.Time.Format (formatTime) import Data.Typeable (Typeable) import Data.XML.Types (Content (ContentText), Event (EventBeginElement, EventContent))-import Network.HTTP.Client (Manager, checkStatus, parseUrl,+import Network.HTTP.Client (Manager,+#if MIN_VERSION_http_client(0, 5, 0)+ parseRequest,+#else+ checkStatus,+ parseUrl,+#endif requestHeaders, responseBody, responseStatus, urlEncodedBody, withResponse)@@ -60,7 +66,11 @@ let date = S8.pack $ format now sig = makeSig date $ sesSecretKey ses region = T.unpack $ sesRegion ses+#if MIN_VERSION_http_client(0, 5, 0)+ req' <- parseRequest $ concat ["https://email.", region , ".amazonaws.com"]+#else req' <- parseUrl $ concat ["https://email.", region , ".amazonaws.com"]+#endif let auth = S8.concat [ "AWS3-HTTPS AWSAccessKeyId=" , sesAccessKey ses@@ -72,7 +82,9 @@ [ ("Date", date) , ("X-Amzn-Authorization", auth) ]+#if !MIN_VERSION_http_client(0, 5, 0) , checkStatus = \_ _ _ -> Nothing+#endif } withResponse req manager $ \res -> bodyReaderSource (responseBody res)
mime-mail-ses.cabal view
@@ -1,5 +1,5 @@ Name: mime-mail-ses-Version: 0.3.2.2+Version: 0.3.2.3 Synopsis: Send mime-mail messages via Amazon SES description: Hackage documentation generation is not reliable. For up to date documentation, please see: <http://www.stackage.org/package/mime-mail-ses>. Homepage: http://github.com/snoyberg/mime-mail