amazonka-route53 0.1.3 → 0.1.4

raw patch · 2 files changed

+31/−31 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-route53.cabal +2/−2
• gen/Network/AWS/Route53/Types.hs +29/−29

@@ -1,5 +1,5 @@ name:                  amazonka-route53-version:               0.1.3+version:               0.1.4 synopsis:              Amazon Route 53 SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -72,5 +72,5 @@           Network.AWS.Route53.Internal      build-depends:-          amazonka-core == 0.1.3.*+          amazonka-core == 0.1.4.*         , base          >= 4.7     && < 5

@@ -561,7 +561,7 @@ instance Hashable VPCRegion  instance FromText VPCRegion where-    parser = takeText >>= \case+    parser = takeLowerText >>= \case         "ap-northeast-1" -> pure ApNortheast1         "ap-southeast-1" -> pure ApSoutheast1         "ap-southeast-2" -> pure ApSoutheast2@@ -614,17 +614,17 @@ instance Hashable RecordType  instance FromText RecordType where-    parser = takeText >>= \case-        "A"     -> pure A-        "AAAA"  -> pure AAAA-        "CNAME" -> pure CNAME-        "MX"    -> pure MX-        "NS"    -> pure NS-        "PTR"   -> pure PTR-        "SOA"   -> pure SOA-        "SPF"   -> pure SPF-        "SRV"   -> pure SRV-        "TXT"   -> pure TXT+    parser = takeLowerText >>= \case+        "a"     -> pure A+        "aaaa"  -> pure AAAA+        "cname" -> pure CNAME+        "mx"    -> pure MX+        "ns"    -> pure NS+        "ptr"   -> pure PTR+        "soa"   -> pure SOA+        "spf"   -> pure SPF+        "srv"   -> pure SRV+        "txt"   -> pure TXT         e       -> fail $             "Failure parsing RecordType from " ++ show e @@ -660,10 +660,10 @@ instance Hashable ChangeAction  instance FromText ChangeAction where-    parser = takeText >>= \case-        "CREATE" -> pure Create-        "DELETE" -> pure Delete'-        "UPSERT" -> pure Upsert+    parser = takeLowerText >>= \case+        "create" -> pure Create+        "delete" -> pure Delete'+        "upsert" -> pure Upsert         e        -> fail $             "Failure parsing ChangeAction from " ++ show e @@ -691,7 +691,7 @@ instance Hashable TagResourceType  instance FromText TagResourceType where-    parser = takeText >>= \case+    parser = takeLowerText >>= \case         "healthcheck" -> pure Healthcheck         "hostedzone"  -> pure Hostedzone         e             -> fail $@@ -884,9 +884,9 @@ instance Hashable Failover  instance FromText Failover where-    parser = takeText >>= \case-        "PRIMARY"   -> pure Primary-        "SECONDARY" -> pure Secondary+    parser = takeLowerText >>= \case+        "primary"   -> pure Primary+        "secondary" -> pure Secondary         e           -> fail $             "Failure parsing Failover from " ++ show e @@ -1052,9 +1052,9 @@ instance Hashable ChangeStatus  instance FromText ChangeStatus where-    parser = takeText >>= \case-        "INSYNC"  -> pure Insync-        "PENDING" -> pure Pending+    parser = takeLowerText >>= \case+        "insync"  -> pure Insync+        "pending" -> pure Pending         e         -> fail $             "Failure parsing ChangeStatus from " ++ show e @@ -1165,12 +1165,12 @@ instance Hashable HealthCheckType  instance FromText HealthCheckType where-    parser = takeText >>= \case-        "HTTP"            -> pure Http-        "HTTP_STR_MATCH"  -> pure HttpStrMatch-        "HTTPS"           -> pure Https-        "HTTPS_STR_MATCH" -> pure HttpsStrMatch-        "TCP"             -> pure Tcp+    parser = takeLowerText >>= \case+        "http"            -> pure Http+        "http_str_match"  -> pure HttpStrMatch+        "https"           -> pure Https+        "https_str_match" -> pure HttpsStrMatch+        "tcp"             -> pure Tcp         e                 -> fail $             "Failure parsing HealthCheckType from " ++ show e