From 9738bf8ce2cfb9ed9acc296580fb044ef2adb995 Mon Sep 17 00:00:00 2001 From: Daniil Iaitskov Date: Wed, 6 Jan 2021 19:50:25 +0300 Subject: [PATCH] ses-custom-port-and-http make port/protocol configurable in SES --- Aws/Ses/Core.hs | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/Aws/Ses/Core.hs b/Aws/Ses/Core.hs index 446d3b09..9db69ef3 100644 --- a/Aws/Ses/Core.hs +++ b/Aws/Ses/Core.hs @@ -73,6 +73,8 @@ data SesConfiguration qt = SesConfiguration { sesiHttpMethod :: Method , sesiHost :: B.ByteString + , sesiPort :: Int + , sesiProtocol :: Protocol } deriving (Show) @@ -96,18 +98,20 @@ sesUsWest2 :: B.ByteString sesUsWest2 = "email.us-west-2.amazonaws.com" sesHttpsGet :: B.ByteString -> SesConfiguration qt -sesHttpsGet endpoint = SesConfiguration Get endpoint +sesHttpsGet endpoint = + SesConfiguration Get endpoint (defaultPort HTTPS) HTTPS sesHttpsPost :: B.ByteString -> SesConfiguration NormalQuery -sesHttpsPost endpoint = SesConfiguration PostQuery endpoint +sesHttpsPost endpoint = + SesConfiguration PostQuery endpoint (defaultPort HTTPS) HTTPS sesSignQuery :: [(B.ByteString, B.ByteString)] -> SesConfiguration qt -> SignatureData -> SignedQuery sesSignQuery query si sd = SignedQuery { sqMethod = sesiHttpMethod si - , sqProtocol = HTTPS + , sqProtocol = sesiProtocol si , sqHost = sesiHost si - , sqPort = defaultPort HTTPS + , sqPort = sesiPort si , sqPath = "/" , sqQuery = HTTP.simpleQueryToQuery query' , sqDate = Just $ signatureTime sd