amazonka-cloudfront 0.1.3 → 0.1.4

raw patch · 2 files changed

+22/−22 lines, 2 filesdep ~amazonka-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core

API changes (from Hackage documentation)

Files

• amazonka-cloudfront.cabal +2/−2
• gen/Network/AWS/CloudFront/Types.hs +20/−20

@@ -1,5 +1,5 @@ name:                  amazonka-cloudfront-version:               0.1.3+version:               0.1.4 synopsis:              Amazon CloudFront SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -69,5 +69,5 @@     other-modules:      build-depends:-          amazonka-core == 0.1.3.*+          amazonka-core == 0.1.4.*         , base          >= 4.7     && < 5

@@ -619,7 +619,7 @@ instance Hashable SSLSupportMethod  instance FromText SSLSupportMethod where-    parser = takeText >>= \case+    parser = takeLowerText >>= \case         "sni-only" -> pure SniOnly         "vip"      -> pure Vip         e          -> fail $@@ -824,7 +824,7 @@ instance Hashable ViewerProtocolPolicy  instance FromText ViewerProtocolPolicy where-    parser = takeText >>= \case+    parser = takeLowerText >>= \case         "allow-all"         -> pure AllowAll         "https-only"        -> pure HttpsOnly         "redirect-to-https" -> pure RedirectToHttps@@ -1168,7 +1168,7 @@ instance Hashable OriginProtocolPolicy  instance FromText OriginProtocolPolicy where-    parser = takeText >>= \case+    parser = takeLowerText >>= \case         "http-only"    -> pure HttpOnly         "match-viewer" -> pure MatchViewer         e              -> fail $@@ -2160,10 +2160,10 @@ instance Hashable PriceClass  instance FromText PriceClass where-    parser = takeText >>= \case-        "PriceClass_100" -> pure PriceClass100-        "PriceClass_200" -> pure PriceClass200-        "PriceClass_All" -> pure PriceClassAll+    parser = takeLowerText >>= \case+        "priceclass_100" -> pure PriceClass100+        "priceclass_200" -> pure PriceClass200+        "priceclass_all" -> pure PriceClassAll         e                -> fail $             "Failure parsing PriceClass from " ++ show e @@ -2631,14 +2631,14 @@ instance Hashable Method  instance FromText Method where-    parser = takeText >>= \case-        "DELETE"  -> pure Delete'-        "GET"     -> pure Get-        "HEAD"    -> pure Head'-        "OPTIONS" -> pure Options-        "PATCH"   -> pure Patch-        "POST"    -> pure Post-        "PUT"     -> pure Put+    parser = takeLowerText >>= \case+        "delete"  -> pure Delete'+        "get"     -> pure Get+        "head"    -> pure Head'+        "options" -> pure Options+        "patch"   -> pure Patch+        "post"    -> pure Post+        "put"     -> pure Put         e         -> fail $             "Failure parsing Method from " ++ show e @@ -2670,9 +2670,9 @@ instance Hashable MinimumProtocolVersion  instance FromText MinimumProtocolVersion where-    parser = takeText >>= \case-        "SSLv3" -> pure SSLv3-        "TLSv1" -> pure TLSv1+    parser = takeLowerText >>= \case+        "sslv3" -> pure SSLv3+        "tlsv1" -> pure TLSv1         e       -> fail $             "Failure parsing MinimumProtocolVersion from " ++ show e @@ -2805,7 +2805,7 @@ instance Hashable ItemSelection  instance FromText ItemSelection where-    parser = takeText >>= \case+    parser = takeLowerText >>= \case         "all"       -> pure All         "none"      -> pure None         "whitelist" -> pure Whitelist@@ -3693,7 +3693,7 @@ instance Hashable GeoRestrictionType  instance FromText GeoRestrictionType where-    parser = takeText >>= \case+    parser = takeLowerText >>= \case         "blacklist" -> pure GRTBlacklist         "none"      -> pure GRTNone         "whitelist" -> pure GRTWhitelist