packages feed

ses-html 0.3.0.1 → 0.4.0.0

raw patch · 2 files changed

+7/−6 lines, 2 filesdep ~timePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: time

API changes (from Hackage documentation)

- Network.SES: instance Eq PublicKey
- Network.SES: instance Eq SecretKey
- Network.SES: instance Read SESErrorType
- Network.SES: instance Show PublicKey
- Network.SES: instance Show Region
- Network.SES: instance Show SESError
- Network.SES: instance Show SESErrorType
- Network.SES: instance Show SESResult
- Network.SES: instance Show SecretKey
+ Network.SES: instance GHC.Classes.Eq Network.SES.PublicKey
+ Network.SES: instance GHC.Classes.Eq Network.SES.SecretKey
+ Network.SES: instance GHC.Read.Read Network.SES.SESErrorType
+ Network.SES: instance GHC.Show.Show Network.SES.PublicKey
+ Network.SES: instance GHC.Show.Show Network.SES.Region
+ Network.SES: instance GHC.Show.Show Network.SES.SESError
+ Network.SES: instance GHC.Show.Show Network.SES.SESErrorType
+ Network.SES: instance GHC.Show.Show Network.SES.SESResult
+ Network.SES: instance GHC.Show.Show Network.SES.SecretKey
- Network.SES: type SESErrorCode = Int
+ Network.SES: type SESErrorCode = Int Error Code returned from SES XML response
- Network.SES: type SESErrorMessage = ByteString
+ Network.SES: type SESErrorMessage = ByteString Error Message returned from SES Message

Files

ses-html.cabal view
@@ -1,5 +1,5 @@ name:                ses-html-version:             0.3.0.1+version:             0.4.0.0 synopsis:            Send HTML formatted emails using Amazon's SES REST API with blaze license:             BSD3 license-file:        LICENSE@@ -28,7 +28,7 @@                      , http-streams                      , HsOpenSSL                      , tagsoup-                     , time == 1.5.*+                     , time >= 1.6.0.1  source-repository head    type: git
src/Network/SES.hs view
@@ -210,16 +210,17 @@       case result of         Left s -> connectionError s         Right _ -> do-           receiveResponse con $ \resp is -> -               do closeConnection con-                  if getStatusCode resp == 200 +            sesResult <- receiveResponse con $ \resp is -> +                if getStatusCode resp == 200                      then returnSuccess                     else do bs <- concatHandler resp is                             let tags = parseTags bs                                  code = let c = getFromTagSoup "Code" tags-                                       in fromMaybe UnknownErrorType (readMaybe (unpack c) :: Maybe SESErrorType)+                                        in fromMaybe UnknownErrorType (readMaybe (unpack c) :: Maybe SESErrorType)                                 sesMsg  = getFromTagSoup "Message" tags                             return $ Error $ SESError (getStatusCode resp) code sesMsg+            closeConnection con+            return sesResult   where     getFromTagSoup x tags = let [ _, TagText d] = filterFront . filterBack $ tags                                  filterFront = dropWhile (/=(TagOpen x []))