amazonka-route53 0.2.1 → 0.2.2

raw patch · 30 files changed

+93/−94 lines, 30 filesdep ~amazonka-corePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: amazonka-core

API changes (from Hackage documentation)

Files

• amazonka-route53.cabal +2/−2
• gen/Network/AWS/Route53/AssociateVPCWithHostedZone.hs +2/−2
• gen/Network/AWS/Route53/ChangeResourceRecordSets.hs +2/−2
• gen/Network/AWS/Route53/ChangeTagsForResource.hs +2/−2
• gen/Network/AWS/Route53/CreateHealthCheck.hs +2/−2
• gen/Network/AWS/Route53/CreateHostedZone.hs +2/−2
• gen/Network/AWS/Route53/CreateReusableDelegationSet.hs +2/−2
• gen/Network/AWS/Route53/DeleteHealthCheck.hs +2/−2
• gen/Network/AWS/Route53/DeleteHostedZone.hs +2/−2
• gen/Network/AWS/Route53/DeleteReusableDelegationSet.hs +2/−2
• gen/Network/AWS/Route53/DisassociateVPCFromHostedZone.hs +2/−2
• gen/Network/AWS/Route53/GetChange.hs +2/−2
• gen/Network/AWS/Route53/GetCheckerIpRanges.hs +2/−2
• gen/Network/AWS/Route53/GetGeoLocation.hs +2/−2
• gen/Network/AWS/Route53/GetHealthCheck.hs +2/−2
• gen/Network/AWS/Route53/GetHealthCheckCount.hs +2/−2
• gen/Network/AWS/Route53/GetHealthCheckLastFailureReason.hs +2/−2
• gen/Network/AWS/Route53/GetHealthCheckStatus.hs +2/−2
• gen/Network/AWS/Route53/GetHostedZone.hs +2/−2
• gen/Network/AWS/Route53/GetReusableDelegationSet.hs +2/−2
• gen/Network/AWS/Route53/ListGeoLocations.hs +2/−2
• gen/Network/AWS/Route53/ListHealthChecks.hs +2/−2
• gen/Network/AWS/Route53/ListHostedZones.hs +11/−12
• gen/Network/AWS/Route53/ListResourceRecordSets.hs +2/−2
• gen/Network/AWS/Route53/ListReusableDelegationSets.hs +2/−2
• gen/Network/AWS/Route53/ListTagsForResource.hs +2/−2
• gen/Network/AWS/Route53/ListTagsForResources.hs +2/−2
• gen/Network/AWS/Route53/Types.hs +26/−26
• gen/Network/AWS/Route53/UpdateHealthCheck.hs +2/−2
• gen/Network/AWS/Route53/UpdateHostedZoneComment.hs +2/−2

@@ -1,5 +1,5 @@ name:                  amazonka-route53-version:               0.2.1+version:               0.2.2 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.2.1.*+          amazonka-core == 0.2.2.*         , base          >= 4.7     && < 5

@@ -58,7 +58,7 @@     { _avpcwhzComment      :: Maybe Text     , _avpcwhzHostedZoneId :: Text     , _avpcwhzVPC          :: VPC-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'AssociateVPCWithHostedZone' constructor. --@@ -97,7 +97,7 @@  newtype AssociateVPCWithHostedZoneResponse = AssociateVPCWithHostedZoneResponse     { _avpcwhzrChangeInfo :: ChangeInfo-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'AssociateVPCWithHostedZoneResponse' constructor. --

@@ -71,7 +71,7 @@ data ChangeResourceRecordSets = ChangeResourceRecordSets     { _crrsChangeBatch  :: ChangeBatch     , _crrsHostedZoneId :: Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ChangeResourceRecordSets' constructor. --@@ -100,7 +100,7 @@  newtype ChangeResourceRecordSetsResponse = ChangeResourceRecordSetsResponse     { _crrsrChangeInfo :: ChangeInfo-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ChangeResourceRecordSetsResponse' constructor. --

@@ -51,7 +51,7 @@     , _ctfrRemoveTagKeys :: List1 "Key" Text     , _ctfrResourceId    :: Text     , _ctfrResourceType  :: TagResourceType-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ChangeTagsForResource' constructor. --@@ -101,7 +101,7 @@ ctfrResourceType = lens _ctfrResourceType (\s a -> s { _ctfrResourceType = a })  data ChangeTagsForResourceResponse = ChangeTagsForResourceResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'ChangeTagsForResourceResponse' constructor. changeTagsForResourceResponse :: ChangeTagsForResourceResponse

@@ -55,7 +55,7 @@ data CreateHealthCheck = CreateHealthCheck     { _chcCallerReference   :: Text     , _chcHealthCheckConfig :: HealthCheckConfig-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'CreateHealthCheck' constructor. --@@ -92,7 +92,7 @@ data CreateHealthCheckResponse = CreateHealthCheckResponse     { _chcrHealthCheck :: HealthCheck     , _chcrLocation    :: Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'CreateHealthCheckResponse' constructor. --

@@ -79,7 +79,7 @@     , _chzHostedZoneConfig :: Maybe HostedZoneConfig     , _chzName             :: Text     , _chzVPC              :: Maybe VPC-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'CreateHostedZone' constructor. --@@ -152,7 +152,7 @@     , _chzrHostedZone    :: HostedZone     , _chzrLocation      :: Text     , _chzrVPC           :: Maybe VPC-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'CreateHostedZoneResponse' constructor. --

@@ -58,7 +58,7 @@ data CreateReusableDelegationSet = CreateReusableDelegationSet     { _crdsCallerReference :: Text     , _crdsHostedZoneId    :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'CreateReusableDelegationSet' constructor. --@@ -94,7 +94,7 @@ data CreateReusableDelegationSetResponse = CreateReusableDelegationSetResponse     { _crdsrDelegationSet :: DelegationSet     , _crdsrLocation      :: Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'CreateReusableDelegationSetResponse' constructor. --

@@ -56,7 +56,7 @@  newtype DeleteHealthCheck = DeleteHealthCheck     { _dhcHealthCheckId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'DeleteHealthCheck' constructor. --@@ -75,7 +75,7 @@ dhcHealthCheckId = lens _dhcHealthCheckId (\s a -> s { _dhcHealthCheckId = a })  data DeleteHealthCheckResponse = DeleteHealthCheckResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'DeleteHealthCheckResponse' constructor. deleteHealthCheckResponse :: DeleteHealthCheckResponse

@@ -59,7 +59,7 @@  newtype DeleteHostedZone = DeleteHostedZone     { _dhzId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'DeleteHostedZone' constructor. --@@ -79,7 +79,7 @@  newtype DeleteHostedZoneResponse = DeleteHostedZoneResponse     { _dhzrChangeInfo :: ChangeInfo-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'DeleteHostedZoneResponse' constructor. --

@@ -54,7 +54,7 @@  newtype DeleteReusableDelegationSet = DeleteReusableDelegationSet     { _drdsId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'DeleteReusableDelegationSet' constructor. --@@ -73,7 +73,7 @@ drdsId = lens _drdsId (\s a -> s { _drdsId = a })  data DeleteReusableDelegationSetResponse = DeleteReusableDelegationSetResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'DeleteReusableDelegationSetResponse' constructor. deleteReusableDelegationSetResponse :: DeleteReusableDelegationSetResponse

@@ -59,7 +59,7 @@     { _dvpcfhzComment      :: Maybe Text     , _dvpcfhzHostedZoneId :: Text     , _dvpcfhzVPC          :: VPC-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'DisassociateVPCFromHostedZone' constructor. --@@ -97,7 +97,7 @@  newtype DisassociateVPCFromHostedZoneResponse = DisassociateVPCFromHostedZoneResponse     { _dvpcfhzrChangeInfo :: ChangeInfo-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'DisassociateVPCFromHostedZoneResponse' constructor. --

@@ -57,7 +57,7 @@  newtype GetChange = GetChange     { _gcId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'GetChange' constructor. --@@ -79,7 +79,7 @@  newtype GetChangeResponse = GetChangeResponse     { _gcrChangeInfo :: ChangeInfo-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'GetChangeResponse' constructor. --

@@ -48,7 +48,7 @@ import qualified GHC.Exts  data GetCheckerIpRanges = GetCheckerIpRanges-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'GetCheckerIpRanges' constructor. getCheckerIpRanges :: GetCheckerIpRanges@@ -56,7 +56,7 @@  newtype GetCheckerIpRangesResponse = GetCheckerIpRangesResponse     { _gcirrCheckerIpRanges :: List "CheckerIpRanges" Text-    } deriving (Eq, Ord, Show, Monoid, Semigroup)+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList GetCheckerIpRangesResponse where     type Item GetCheckerIpRangesResponse = Text

@@ -54,7 +54,7 @@     { _gglContinentCode   :: Maybe Text     , _gglCountryCode     :: Maybe Text     , _gglSubdivisionCode :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'GetGeoLocation' constructor. --@@ -101,7 +101,7 @@  newtype GetGeoLocationResponse = GetGeoLocationResponse     { _gglrGeoLocationDetails :: GeoLocationDetails-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'GetGeoLocationResponse' constructor. --

@@ -49,7 +49,7 @@  newtype GetHealthCheck = GetHealthCheck     { _ghcHealthCheckId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'GetHealthCheck' constructor. --@@ -69,7 +69,7 @@  newtype GetHealthCheckResponse = GetHealthCheckResponse     { _ghcrHealthCheck :: HealthCheck-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'GetHealthCheckResponse' constructor. --

@@ -46,7 +46,7 @@ import qualified GHC.Exts  data GetHealthCheckCount = GetHealthCheckCount-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'GetHealthCheckCount' constructor. getHealthCheckCount :: GetHealthCheckCount@@ -54,7 +54,7 @@  newtype GetHealthCheckCountResponse = GetHealthCheckCountResponse     { _ghccrHealthCheckCount :: Integer-    } deriving (Eq, Ord, Show, Enum, Num, Integral, Real)+    } deriving (Eq, Ord, Read, Show, Enum, Num, Integral, Real)  -- | 'GetHealthCheckCountResponse' constructor. --

@@ -52,7 +52,7 @@  newtype GetHealthCheckLastFailureReason = GetHealthCheckLastFailureReason     { _ghclfrHealthCheckId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'GetHealthCheckLastFailureReason' constructor. --@@ -74,7 +74,7 @@  newtype GetHealthCheckLastFailureReasonResponse = GetHealthCheckLastFailureReasonResponse     { _ghclfrrHealthCheckObservations :: List "HealthCheckObservation" HealthCheckObservation-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList GetHealthCheckLastFailureReasonResponse where     type Item GetHealthCheckLastFailureReasonResponse = HealthCheckObservation

@@ -50,7 +50,7 @@  newtype GetHealthCheckStatus = GetHealthCheckStatus     { _ghcsHealthCheckId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'GetHealthCheckStatus' constructor. --@@ -72,7 +72,7 @@  newtype GetHealthCheckStatusResponse = GetHealthCheckStatusResponse     { _ghcsrHealthCheckObservations :: List "HealthCheckObservation" HealthCheckObservation-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList GetHealthCheckStatusResponse where     type Item GetHealthCheckStatusResponse = HealthCheckObservation

@@ -52,7 +52,7 @@  newtype GetHostedZone = GetHostedZone     { _ghzId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'GetHostedZone' constructor. --@@ -75,7 +75,7 @@     { _ghzrDelegationSet :: Maybe DelegationSet     , _ghzrHostedZone    :: HostedZone     , _ghzrVPCs          :: List1 "VPC" VPC-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'GetHostedZoneResponse' constructor. --

@@ -49,7 +49,7 @@  newtype GetReusableDelegationSet = GetReusableDelegationSet     { _grdsId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'GetReusableDelegationSet' constructor. --@@ -70,7 +70,7 @@  newtype GetReusableDelegationSetResponse = GetReusableDelegationSetResponse     { _grdsrDelegationSet :: DelegationSet-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'GetReusableDelegationSetResponse' constructor. --

@@ -70,7 +70,7 @@     , _lglStartContinentCode   :: Maybe Text     , _lglStartCountryCode     :: Maybe Text     , _lglStartSubdivisionCode :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'ListGeoLocations' constructor. --@@ -131,7 +131,7 @@     , _lglrNextContinentCode      :: Maybe Text     , _lglrNextCountryCode        :: Maybe Text     , _lglrNextSubdivisionCode    :: Maybe Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ListGeoLocationsResponse' constructor. --

@@ -61,7 +61,7 @@ data ListHealthChecks = ListHealthChecks     { _lhcMarker   :: Maybe Text     , _lhcMaxItems :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'ListHealthChecks' constructor. --@@ -93,7 +93,7 @@     , _lhcrMarker       :: Text     , _lhcrMaxItems     :: Text     , _lhcrNextMarker   :: Maybe Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ListHealthChecksResponse' constructor. --

@@ -64,7 +64,7 @@     { _lhzDelegationSetId :: Maybe Text     , _lhzMarker          :: Maybe Text     , _lhzMaxItems        :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'ListHostedZones' constructor. --@@ -100,10 +100,10 @@ data ListHostedZonesResponse = ListHostedZonesResponse     { _lhzrHostedZones :: List "HostedZone" HostedZone     , _lhzrIsTruncated :: Bool-    , _lhzrMarker      :: Text+    , _lhzrMarker      :: Maybe Text     , _lhzrMaxItems    :: Text     , _lhzrNextMarker  :: Maybe Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ListHostedZonesResponse' constructor. --@@ -113,21 +113,20 @@ -- -- * 'lhzrIsTruncated' @::@ 'Bool' ----- * 'lhzrMarker' @::@ 'Text'+-- * 'lhzrMarker' @::@ 'Maybe' 'Text' -- -- * 'lhzrMaxItems' @::@ 'Text' -- -- * 'lhzrNextMarker' @::@ 'Maybe' 'Text' ---listHostedZonesResponse :: Text -- ^ 'lhzrMarker'-                        -> Bool -- ^ 'lhzrIsTruncated'+listHostedZonesResponse :: Bool -- ^ 'lhzrIsTruncated'                         -> Text -- ^ 'lhzrMaxItems'                         -> ListHostedZonesResponse-listHostedZonesResponse p1 p2 p3 = ListHostedZonesResponse-    { _lhzrMarker      = p1-    , _lhzrIsTruncated = p2-    , _lhzrMaxItems    = p3+listHostedZonesResponse p1 p2 = ListHostedZonesResponse+    { _lhzrIsTruncated = p1+    , _lhzrMaxItems    = p2     , _lhzrHostedZones = mempty+    , _lhzrMarker      = Nothing     , _lhzrNextMarker  = Nothing     } @@ -147,7 +146,7 @@ -- | 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.-lhzrMarker :: Lens' ListHostedZonesResponse Text+lhzrMarker :: Lens' ListHostedZonesResponse (Maybe Text) lhzrMarker = lens _lhzrMarker (\s a -> s { _lhzrMarker = a })  -- | The maximum number of hosted zones to be included in the response body. If@@ -190,7 +189,7 @@     parseXML x = ListHostedZonesResponse         <$> x .@? "HostedZones" .!@ mempty         <*> x .@  "IsTruncated"-        <*> x .@  "Marker"+        <*> x .@? "Marker"         <*> x .@  "MaxItems"         <*> x .@? "NextMarker" 

@@ -100,7 +100,7 @@     , _lrrsStartRecordIdentifier :: Maybe Text     , _lrrsStartRecordName       :: Maybe Text     , _lrrsStartRecordType       :: Maybe RecordType-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ListResourceRecordSets' constructor. --@@ -172,7 +172,7 @@     , _lrrsrNextRecordName       :: Maybe Text     , _lrrsrNextRecordType       :: Maybe RecordType     , _lrrsrResourceRecordSets   :: List "ResourceRecordSet" ResourceRecordSet-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ListResourceRecordSetsResponse' constructor. --

@@ -63,7 +63,7 @@ data ListReusableDelegationSets = ListReusableDelegationSets     { _lrdsMarker   :: Maybe Text     , _lrdsMaxItems :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'ListReusableDelegationSets' constructor. --@@ -96,7 +96,7 @@     , _lrdsrMarker         :: Text     , _lrdsrMaxItems       :: Text     , _lrdsrNextMarker     :: Maybe Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ListReusableDelegationSetsResponse' constructor. --

@@ -49,7 +49,7 @@ data ListTagsForResource = ListTagsForResource     { _ltfrResourceId   :: Text     , _ltfrResourceType :: TagResourceType-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ListTagsForResource' constructor. --@@ -81,7 +81,7 @@  newtype ListTagsForResourceResponse = ListTagsForResourceResponse     { _ltfrrResourceTagSet :: ResourceTagSet-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ListTagsForResourceResponse' constructor. --

@@ -49,7 +49,7 @@ data ListTagsForResources = ListTagsForResources     { _ltfr1ResourceIds  :: List1 "ResourceId" Text     , _ltfr1ResourceType :: TagResourceType-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ListTagsForResources' constructor. --@@ -83,7 +83,7 @@  newtype ListTagsForResourcesResponse = ListTagsForResourcesResponse     { _ltfrrResourceTagSets :: List "ResourceTagSet" ResourceTagSet-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList ListTagsForResourcesResponse where     type Item ListTagsForResourcesResponse = ResourceTagSet

@@ -203,7 +203,7 @@ data Route53  instance AWSService Route53 where-    type Sg Route53 = V3+    type Sg Route53 = V4     type Er Route53 = RESTError      service = service'@@ -249,7 +249,7 @@     { _atDNSName              :: Text     , _atEvaluateTargetHealth :: Bool     , _atHostedZoneId         :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'AliasTarget' constructor. --@@ -318,7 +318,7 @@  newtype ResourceRecord = ResourceRecord     { _rrValue :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'ResourceRecord' constructor. --@@ -348,7 +348,7 @@ data Tag = Tag     { _tagKey   :: Maybe Text     , _tagValue :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'Tag' constructor. --@@ -390,7 +390,7 @@     , _gldCountryName     :: Maybe Text     , _gldSubdivisionCode :: Maybe Text     , _gldSubdivisionName :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'GeoLocationDetails' constructor. --@@ -480,7 +480,7 @@     , _hcHealthCheckConfig  :: HealthCheckConfig     , _hcHealthCheckVersion :: Nat     , _hcId                 :: Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'HealthCheck' constructor. --@@ -556,7 +556,7 @@     | UsEast1      -- ^ us-east-1     | UsWest1      -- ^ us-west-1     | UsWest2      -- ^ us-west-2-      deriving (Eq, Ord, Show, Generic, Enum)+      deriving (Eq, Ord, Read, Show, Generic, Enum)  instance Hashable VPCRegion @@ -609,7 +609,7 @@     | SPF   -- ^ SPF     | SRV   -- ^ SRV     | TXT   -- ^ TXT-      deriving (Eq, Ord, Show, Generic, Enum)+      deriving (Eq, Ord, Read, Show, Generic, Enum)  instance Hashable RecordType @@ -655,7 +655,7 @@     = Create  -- ^ CREATE     | Delete' -- ^ DELETE     | Upsert  -- ^ UPSERT-      deriving (Eq, Ord, Show, Generic, Enum)+      deriving (Eq, Ord, Read, Show, Generic, Enum)  instance Hashable ChangeAction @@ -686,7 +686,7 @@ data TagResourceType     = Healthcheck -- ^ healthcheck     | Hostedzone  -- ^ hostedzone-      deriving (Eq, Ord, Show, Generic, Enum)+      deriving (Eq, Ord, Read, Show, Generic, Enum)  instance Hashable TagResourceType @@ -721,7 +721,7 @@     , _hccResourcePath             :: Maybe Text     , _hccSearchString             :: Maybe Text     , _hccType                     :: HealthCheckType-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'HealthCheckConfig' constructor. --@@ -836,7 +836,7 @@ data Change = Change     { _cAction            :: ChangeAction     , _cResourceRecordSet :: ResourceRecordSet-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'Change' constructor. --@@ -879,7 +879,7 @@ data Failover     = Primary   -- ^ PRIMARY     | Secondary -- ^ SECONDARY-      deriving (Eq, Ord, Show, Generic, Enum)+      deriving (Eq, Ord, Read, Show, Generic, Enum)  instance Hashable Failover @@ -911,7 +911,7 @@     , _hzId                     :: Text     , _hzName                   :: Text     , _hzResourceRecordSetCount :: Maybe Integer-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'HostedZone' constructor. --@@ -993,7 +993,7 @@     { _rtsResourceId   :: Maybe Text     , _rtsResourceType :: Maybe TagResourceType     , _rtsTags         :: List1 "Tag" Tag-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ResourceTagSet' constructor. --@@ -1047,7 +1047,7 @@ data ChangeStatus     = Insync  -- ^ INSYNC     | Pending -- ^ PENDING-      deriving (Eq, Ord, Show, Generic, Enum)+      deriving (Eq, Ord, Read, Show, Generic, Enum)  instance Hashable ChangeStatus @@ -1076,7 +1076,7 @@ data ChangeBatch = ChangeBatch     { _cbChanges :: List1 "Change" Change     , _cbComment :: Maybe Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ChangeBatch' constructor. --@@ -1116,7 +1116,7 @@ data StatusReport = StatusReport     { _srCheckedTime :: Maybe ISO8601     , _srStatus      :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'StatusReport' constructor. --@@ -1160,7 +1160,7 @@     | Https         -- ^ HTTPS     | HttpsStrMatch -- ^ HTTPS_STR_MATCH     | Tcp           -- ^ TCP-      deriving (Eq, Ord, Show, Generic, Enum)+      deriving (Eq, Ord, Read, Show, Generic, Enum)  instance Hashable HealthCheckType @@ -1195,7 +1195,7 @@ data VPC = VPC     { _vpcVPCId     :: Maybe Text     , _vpcVPCRegion :: Maybe VPCRegion-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'VPC' constructor. --@@ -1233,7 +1233,7 @@ data HostedZoneConfig = HostedZoneConfig     { _hzcComment     :: Maybe Text     , _hzcPrivateZone :: Maybe Bool-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'HostedZoneConfig' constructor. --@@ -1283,7 +1283,7 @@     , _rrsTTL             :: Maybe Nat     , _rrsType            :: RecordType     , _rrsWeight          :: Maybe Nat-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ResourceRecordSet' constructor. --@@ -1434,7 +1434,7 @@     { _dsCallerReference :: Maybe Text     , _dsId              :: Maybe Text     , _dsNameServers     :: List1 "NameServer" Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'DelegationSet' constructor. --@@ -1487,7 +1487,7 @@     , _ciId          :: Text     , _ciStatus      :: ChangeStatus     , _ciSubmittedAt :: ISO8601-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ChangeInfo' constructor. --@@ -1561,7 +1561,7 @@     { _glContinentCode   :: Maybe Text     , _glCountryCode     :: Maybe Text     , _glSubdivisionCode :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'GeoLocation' constructor. --@@ -1622,7 +1622,7 @@ data HealthCheckObservation = HealthCheckObservation     { _hcoIPAddress    :: Maybe Text     , _hcoStatusReport :: Maybe StatusReport-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'HealthCheckObservation' constructor. --

@@ -66,7 +66,7 @@     , _uhcPort                     :: Maybe Nat     , _uhcResourcePath             :: Maybe Text     , _uhcSearchString             :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'UpdateHealthCheck' constructor. --@@ -168,7 +168,7 @@  newtype UpdateHealthCheckResponse = UpdateHealthCheckResponse     { _uhcrHealthCheck :: HealthCheck-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'UpdateHealthCheckResponse' constructor. --

@@ -54,7 +54,7 @@ data UpdateHostedZoneComment = UpdateHostedZoneComment     { _uhzcComment :: Maybe Text     , _uhzcId      :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'UpdateHostedZoneComment' constructor. --@@ -81,7 +81,7 @@  newtype UpdateHostedZoneCommentResponse = UpdateHostedZoneCommentResponse     { _uhzcrHostedZone :: HostedZone-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'UpdateHostedZoneCommentResponse' constructor. --