diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.0.0` +`1.0.1` ## Description diff --git a/amazonka-route53.cabal b/amazonka-route53.cabal --- a/amazonka-route53.cabal +++ b/amazonka-route53.cabal @@ -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 diff --git a/gen/Network/AWS/Route53/ListHostedZones.hs b/gen/Network/AWS/Route53/ListHostedZones.hs --- a/gen/Network/AWS/Route53/ListHostedZones.hs +++ b/gen/Network/AWS/Route53/ListHostedZones.hs @@ -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 diff --git a/gen/Network/AWS/Route53/Types/Sum.hs b/gen/Network/AWS/Route53/Types/Sum.hs --- a/gen/Network/AWS/Route53/Types/Sum.hs +++ b/gen/Network/AWS/Route53/Types/Sum.hs @@ -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