amazonka-route53 1.0.0 → 1.0.1

raw patch · 4 files changed

+50/−50 lines, 4 filesdep ~amazonka-coredep ~amazonka-route53dep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: amazonka-core, amazonka-route53, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-route53.cabal +5/−5
• gen/Network/AWS/Route53/ListHostedZones.hs +17/−17
• gen/Network/AWS/Route53/Types/Sum.hs +27/−27

@@ -8,7 +8,7 @@  ## Version -`1.0.0`+`1.0.1`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-route53-version:               1.0.0+version:               1.0.1 synopsis:              Amazon Route 53 SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -85,7 +85,7 @@         , Network.AWS.Route53.Types.Sum      build-depends:-          amazonka-core == 1.0.0.*+          amazonka-core == 1.0.1.*         , base          >= 4.7     && < 5  test-suite amazonka-route53-test@@ -104,9 +104,9 @@         , Test.AWS.Route53.Internal      build-depends:-          amazonka-core == 1.0.0-        , amazonka-test == 1.0.0-        , amazonka-route53 == 1.0.0+          amazonka-core == 1.0.1+        , amazonka-test == 1.0.1+        , amazonka-route53 == 1.0.1         , base         , bytestring         , lens

@@ -46,10 +46,10 @@     , listHostedZonesResponse     , ListHostedZonesResponse     -- * Response Lenses+    , lhzrsMarker     , lhzrsNextMarker     , lhzrsStatus     , lhzrsHostedZones-    , lhzrsMarker     , lhzrsIsTruncated     , lhzrsMaxItems     ) where@@ -130,10 +130,11 @@           = receiveXML               (\ s h x ->                  ListHostedZonesResponse' <$>-                   (x .@? "NextMarker") <*> (pure (fromEnum s)) <*>+                   (x .@? "Marker") <*> (x .@? "NextMarker") <*>+                     (pure (fromEnum s))+                     <*>                      (x .@? "HostedZones" .!@ mempty >>=                         parseXMLList "HostedZone")-                     <*> (x .@ "Marker")                      <*> (x .@ "IsTruncated")                      <*> (x .@ "MaxItems")) @@ -153,10 +154,10 @@ -- -- /See:/ 'listHostedZonesResponse' smart constructor. data ListHostedZonesResponse = ListHostedZonesResponse'-    { _lhzrsNextMarker  :: !(Maybe Text)+    { _lhzrsMarker      :: !(Maybe Text)+    , _lhzrsNextMarker  :: !(Maybe Text)     , _lhzrsStatus      :: !Int     , _lhzrsHostedZones :: ![HostedZone]-    , _lhzrsMarker      :: !Text     , _lhzrsIsTruncated :: !Bool     , _lhzrsMaxItems    :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -165,33 +166,38 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'lhzrsMarker'+-- -- * 'lhzrsNextMarker' -- -- * 'lhzrsStatus' -- -- * 'lhzrsHostedZones' ----- * 'lhzrsMarker'--- -- * 'lhzrsIsTruncated' -- -- * 'lhzrsMaxItems' listHostedZonesResponse     :: Int -- ^ 'lhzrsStatus'-    -> Text -- ^ 'lhzrsMarker'     -> Bool -- ^ 'lhzrsIsTruncated'     -> Text -- ^ 'lhzrsMaxItems'     -> ListHostedZonesResponse-listHostedZonesResponse pStatus_ pMarker_ pIsTruncated_ pMaxItems_ =+listHostedZonesResponse pStatus_ pIsTruncated_ pMaxItems_ =     ListHostedZonesResponse'-    { _lhzrsNextMarker = Nothing+    { _lhzrsMarker = Nothing+    , _lhzrsNextMarker = Nothing     , _lhzrsStatus = pStatus_     , _lhzrsHostedZones = mempty-    , _lhzrsMarker = pMarker_     , _lhzrsIsTruncated = pIsTruncated_     , _lhzrsMaxItems = pMaxItems_     } +-- | If the request returned more than one page of results, submit another+-- request and specify the value of 'NextMarker' from the last response in+-- the 'marker' parameter to get the next page of results.+lhzrsMarker :: Lens' ListHostedZonesResponse (Maybe Text)+lhzrsMarker = lens _lhzrsMarker (\ s a -> s{_lhzrsMarker = a});+ -- | Indicates where to continue listing hosted zones. If -- ListHostedZonesResponse$IsTruncated is 'true', make another request to -- 'ListHostedZones' and include the value of the 'NextMarker' element in@@ -207,12 +213,6 @@ -- associated with the current AWS account. lhzrsHostedZones :: Lens' ListHostedZonesResponse [HostedZone] lhzrsHostedZones = lens _lhzrsHostedZones (\ s a -> s{_lhzrsHostedZones = a}) . _Coerce;---- | If the request returned more than one page of results, submit another--- request and specify the value of 'NextMarker' from the last response in--- the 'marker' parameter to get the next page of results.-lhzrsMarker :: Lens' ListHostedZonesResponse Text-lhzrsMarker = lens _lhzrsMarker (\ s a -> s{_lhzrsMarker = a});  -- | A flag indicating whether there are more hosted zones to be listed. If -- your results were truncated, you can make a follow-up request for the

@@ -32,13 +32,13 @@         "delete" -> pure Delete         "upsert" -> pure Upsert         e -> fromTextError $ "Failure parsing ChangeAction from value: '" <> e-           <> "'. Accepted values: create, delete, upsert"+           <> "'. Accepted values: CREATE, DELETE, UPSERT"  instance ToText ChangeAction where     toText = \case-        Create -> "create"-        Delete -> "delete"-        Upsert -> "upsert"+        Create -> "CREATE"+        Delete -> "DELETE"+        Upsert -> "UPSERT"  instance Hashable     ChangeAction instance ToByteString ChangeAction@@ -58,12 +58,12 @@         "insync" -> pure Insync         "pending" -> pure Pending         e -> fromTextError $ "Failure parsing ChangeStatus from value: '" <> e-           <> "'. Accepted values: insync, pending"+           <> "'. Accepted values: INSYNC, PENDING"  instance ToText ChangeStatus where     toText = \case-        Insync -> "insync"-        Pending -> "pending"+        Insync -> "INSYNC"+        Pending -> "PENDING"  instance Hashable     ChangeStatus instance ToByteString ChangeStatus@@ -83,12 +83,12 @@         "primary" -> pure Primary         "secondary" -> pure Secondary         e -> fromTextError $ "Failure parsing Failover from value: '" <> e-           <> "'. Accepted values: primary, secondary"+           <> "'. Accepted values: PRIMARY, SECONDARY"  instance ToText Failover where     toText = \case-        Primary -> "primary"-        Secondary -> "secondary"+        Primary -> "PRIMARY"+        Secondary -> "SECONDARY"  instance Hashable     Failover instance ToByteString Failover@@ -117,15 +117,15 @@         "http_str_match" -> pure HTTPStrMatch         "tcp" -> pure TCP         e -> fromTextError $ "Failure parsing HealthCheckType from value: '" <> e-           <> "'. Accepted values: http, https, https_str_match, http_str_match, tcp"+           <> "'. Accepted values: HTTP, HTTPS, HTTPS_STR_MATCH, HTTP_STR_MATCH, TCP"  instance ToText HealthCheckType where     toText = \case-        HTTP -> "http"-        HTTPS -> "https"-        HTTPSStrMatch -> "https_str_match"-        HTTPStrMatch -> "http_str_match"-        TCP -> "tcp"+        HTTP -> "HTTP"+        HTTPS -> "HTTPS"+        HTTPSStrMatch -> "HTTPS_STR_MATCH"+        HTTPStrMatch -> "HTTP_STR_MATCH"+        TCP -> "TCP"  instance Hashable     HealthCheckType instance ToByteString HealthCheckType@@ -164,20 +164,20 @@         "srv" -> pure Srv         "txt" -> pure Txt         e -> fromTextError $ "Failure parsing RecordType from value: '" <> e-           <> "'. Accepted values: a, aaaa, cname, mx, ns, ptr, soa, spf, srv, txt"+           <> "'. Accepted values: A, AAAA, CNAME, MX, NS, PTR, SOA, SPF, SRV, TXT"  instance ToText RecordType where     toText = \case-        A -> "a"-        Aaaa -> "aaaa"-        Cname -> "cname"-        MX -> "mx"-        NS -> "ns"-        Ptr -> "ptr"-        Soa -> "soa"-        Spf -> "spf"-        Srv -> "srv"-        Txt -> "txt"+        A -> "A"+        Aaaa -> "AAAA"+        Cname -> "CNAME"+        MX -> "MX"+        NS -> "NS"+        Ptr -> "PTR"+        Soa -> "SOA"+        Spf -> "SPF"+        Srv -> "SRV"+        Txt -> "TXT"  instance Hashable     RecordType instance ToByteString RecordType