Regenerating all service product types with appropriate Hashable inst…

…ances

amazonka-apigateway/gen/Network/AWS/APIGateway/Types/Product.hs

@@ -109,6 +109,8 @@ instance FromJSON APIKey where
                      <*> (x .:? "lastUpdatedDate")
                      <*> (x .:? "description"))
 
+instance Hashable APIKey
+
 -- | Represents an AWS account that is associated with Amazon API Gateway.
 --
 -- /See:/ 'account' smart constructor.
@@ -150,6 +152,8 @@ instance FromJSON Account where
                    (x .:? "cloudwatchRoleArn") <*>
                      (x .:? "throttleSettings"))
 
+instance Hashable Account
+
 -- | Represents an authorization layer for methods. If enabled on a method,
 -- API Gateway will activate the authorizer when a client calls the method.
 --
@@ -267,6 +271,8 @@ instance FromJSON Authorizer where
                      <*> (x .:? "identitySource")
                      <*> (x .:? "authorizerCredentials"))
 
+instance Hashable Authorizer
+
 -- | Represents the base path that callers of the API that must provide as
 -- part of the URL after the domain name.
 --
@@ -316,6 +322,8 @@ instance FromJSON BasePathMapping where
                    (x .:? "stage") <*> (x .:? "basePath") <*>
                      (x .:? "restApiId"))
 
+instance Hashable BasePathMapping
+
 -- | /See:/ 'clientCertificate' smart constructor.
 data ClientCertificate = ClientCertificate'
     { _ccPemEncodedCertificate :: !(Maybe Text)
@@ -380,6 +388,8 @@ instance FromJSON ClientCertificate where
                      <*> (x .:? "expirationDate")
                      <*> (x .:? "description"))
 
+instance Hashable ClientCertificate
+
 -- | An immutable representation of a < RestApi> resource that can be called
 -- by users using < Stages>. A deployment must be associated with a
 -- < Stage> for it to be callable over the Internet.
@@ -440,6 +450,8 @@ instance FromJSON Deployment where
                      <*> (x .:? "id")
                      <*> (x .:? "description"))
 
+instance Hashable Deployment
+
 -- | Represents a domain name that is contained in a simpler, more intuitive
 -- URL that can be called.
 --
@@ -500,6 +512,8 @@ instance FromJSON DomainName where
                      <*> (x .:? "certificateUploadDate")
                      <*> (x .:? "distributionDomainName"))
 
+instance Hashable DomainName
+
 -- | Represents a HTTP, AWS, or Mock integration.
 --
 -- /See:/ 'integration' smart constructor.
@@ -626,6 +640,8 @@ instance FromJSON Integration where
                      <*> (x .:? "type")
                      <*> (x .:? "cacheKeyParameters" .!= mempty))
 
+instance Hashable Integration
+
 -- | Represents an integration response. The status code must map to an
 -- existing < MethodResponse>, and parameters and templates can be used to
 -- transform the backend response.
@@ -699,6 +715,8 @@ instance FromJSON IntegrationResponse where
                      <*> (x .:? "statusCode")
                      <*> (x .:? "responseParameters" .!= mempty))
 
+instance Hashable IntegrationResponse
+
 -- | Represents a method.
 --
 -- /See:/ 'method' smart constructor.
@@ -805,6 +823,8 @@ instance FromJSON Method where
                      <*> (x .:? "apiKeyRequired")
                      <*> (x .:? "methodIntegration"))
 
+instance Hashable Method
+
 -- | Represents a method response. Amazon API Gateway sends back the status
 -- code to the caller as the HTTP status code. Parameters and models can be
 -- used to transform the response from the method\'s integration.
@@ -864,6 +884,8 @@ instance FromJSON MethodResponse where
                      (x .:? "statusCode")
                      <*> (x .:? "responseParameters" .!= mempty))
 
+instance Hashable MethodResponse
+
 -- | Specifies the method setting properties.
 --
 -- /See:/ 'methodSetting' smart constructor.
@@ -1003,6 +1025,8 @@ instance FromJSON MethodSetting where
                      <*> (x .:? "throttlingRateLimit")
                      <*> (x .:? "unauthorizedCacheControlHeaderStrategy"))
 
+instance Hashable MethodSetting
+
 -- | Represents a summary of a < Method> resource, given a particular date
 -- and time.
 --
@@ -1043,6 +1067,8 @@ instance FromJSON MethodSnapshot where
                    (x .:? "authorizationType") <*>
                      (x .:? "apiKeyRequired"))
 
+instance Hashable MethodSnapshot
+
 -- | Represents the structure of a request or response payload for a method.
 --
 -- /See:/ 'model' smart constructor.
@@ -1108,6 +1134,8 @@ instance FromJSON Model where
                      <*> (x .:? "description")
                      <*> (x .:? "contentType"))
 
+instance Hashable Model
+
 -- | A single patch operation to apply to the specified resource. Please
 -- refer to http:\/\/tools.ietf.org\/html\/rfc6902#section-4 for an
 -- explanation of how each operation is used.
@@ -1164,6 +1192,8 @@ poValue = lens _poValue (\ s a -> s{_poValue = a});
 poFrom :: Lens' PatchOperation (Maybe Text)
 poFrom = lens _poFrom (\ s a -> s{_poFrom = a});
 
+instance Hashable PatchOperation
+
 instance ToJSON PatchOperation where
         toJSON PatchOperation'{..}
           = object
@@ -1237,6 +1267,8 @@ instance FromJSON Resource where
                      <*> (x .:? "resourceMethods" .!= mempty)
                      <*> (x .:? "parentId"))
 
+instance Hashable Resource
+
 -- | Represents a REST API.
 --
 -- /See:/ 'restAPI' smart constructor.
@@ -1295,6 +1327,8 @@ instance FromJSON RestAPI where
                      (x .:? "id")
                      <*> (x .:? "description"))
 
+instance Hashable RestAPI
+
 -- | Represents a unique identifier for a version of a deployed < RestApi>
 -- that is callable by users.
 --
@@ -1424,6 +1458,8 @@ instance FromJSON Stage where
                      <*> (x .:? "stageName")
                      <*> (x .:? "description"))
 
+instance Hashable Stage
+
 -- | A reference to a unique stage identified in the format
 -- '{restApiId}\/{stage}'.
 --
@@ -1457,6 +1493,8 @@ skRestAPIId = lens _skRestAPIId (\ s a -> s{_skRestAPIId = a});
 skStageName :: Lens' StageKey (Maybe Text)
 skStageName = lens _skStageName (\ s a -> s{_skStageName = a});
 
+instance Hashable StageKey
+
 instance ToJSON StageKey where
         toJSON StageKey'{..}
           = object
@@ -1501,3 +1539,5 @@ instance FromJSON ThrottleSettings where
               (\ x ->
                  ThrottleSettings' <$>
                    (x .:? "burstLimit") <*> (x .:? "rateLimit"))
+
+instance Hashable ThrottleSettings

amazonka-autoscaling/gen/Network/AWS/AutoScaling/Types/Product.hs

@@ -136,6 +136,8 @@ instance FromXML Activity where
                 <*> (x .@ "StartTime")
                 <*> (x .@ "StatusCode")
 
+instance Hashable Activity
+
 -- | Describes a policy adjustment type.
 --
 -- For more information, see
@@ -168,6 +170,8 @@ instance FromXML AdjustmentType where
         parseXML x
           = AdjustmentType' <$> (x .@? "AdjustmentType")
 
+instance Hashable AdjustmentType
+
 -- | Describes an alarm.
 --
 -- /See:/ 'alarm' smart constructor.
@@ -204,6 +208,8 @@ instance FromXML Alarm where
           = Alarm' <$>
               (x .@? "AlarmName") <*> (x .@? "AlarmARN")
 
+instance Hashable Alarm
+
 -- | Describes an Auto Scaling group.
 --
 -- /See:/ 'autoScalingGroup' smart constructor.
@@ -445,6 +451,8 @@ instance FromXML AutoScalingGroup where
                 <*> (x .@ "HealthCheckType")
                 <*> (x .@ "CreatedTime")
 
+instance Hashable AutoScalingGroup
+
 -- | Describes an EC2 instance associated with an Auto Scaling group.
 --
 -- /See:/ 'autoScalingInstanceDetails' smart constructor.
@@ -538,6 +546,8 @@ instance FromXML AutoScalingInstanceDetails where
                 <*> (x .@ "LaunchConfigurationName")
                 <*> (x .@ "ProtectedFromScaleIn")
 
+instance Hashable AutoScalingInstanceDetails
+
 -- | Describes a block device mapping.
 --
 -- /See:/ 'blockDeviceMapping' smart constructor.
@@ -598,6 +608,8 @@ instance FromXML BlockDeviceMapping where
                 (x .@? "Ebs")
                 <*> (x .@ "DeviceName")
 
+instance Hashable BlockDeviceMapping
+
 instance ToQuery BlockDeviceMapping where
         toQuery BlockDeviceMapping'{..}
           = mconcat
@@ -702,6 +714,8 @@ instance FromXML EBS where
                 <*> (x .@? "VolumeType")
                 <*> (x .@? "SnapshotId")
 
+instance Hashable EBS
+
 instance ToQuery EBS where
         toQuery EBS'{..}
           = mconcat
@@ -764,6 +778,8 @@ instance FromXML EnabledMetric where
           = EnabledMetric' <$>
               (x .@? "Granularity") <*> (x .@? "Metric")
 
+instance Hashable EnabledMetric
+
 -- | Describes a filter.
 --
 -- /See:/ 'filter'' smart constructor.
@@ -797,6 +813,8 @@ fValues = lens _fValues (\ s a -> s{_fValues = a}) . _Default . _Coerce;
 fName :: Lens' Filter Text
 fName = lens _fName (\ s a -> s{_fName = a});
 
+instance Hashable Filter
+
 instance ToQuery Filter where
         toQuery Filter'{..}
           = mconcat
@@ -886,6 +904,8 @@ instance FromXML Instance where
                 <*> (x .@ "HealthStatus")
                 <*> (x .@ "ProtectedFromScaleIn")
 
+instance Hashable Instance
+
 -- | Describes whether instance monitoring is enabled.
 --
 -- /See:/ 'instanceMonitoring' smart constructor.
@@ -913,6 +933,8 @@ instance FromXML InstanceMonitoring where
         parseXML x
           = InstanceMonitoring' <$> (x .@? "Enabled")
 
+instance Hashable InstanceMonitoring
+
 instance ToQuery InstanceMonitoring where
         toQuery InstanceMonitoring'{..}
           = mconcat ["Enabled" =: _imEnabled]
@@ -1132,6 +1154,8 @@ instance FromXML LaunchConfiguration where
                 <*> (x .@ "InstanceType")
                 <*> (x .@ "CreatedTime")
 
+instance Hashable LaunchConfiguration
+
 -- | Describes a lifecycle hook, which tells Auto Scaling that you want to
 -- perform an action when an instance launches or terminates. When you have
 -- a lifecycle hook in place, the Auto Scaling group will either:
@@ -1266,6 +1290,8 @@ instance FromXML LifecycleHook where
                 <*> (x .@? "LifecycleTransition")
                 <*> (x .@? "RoleARN")
 
+instance Hashable LifecycleHook
+
 -- | Describes the state of a load balancer.
 --
 -- /See:/ 'loadBalancerState' smart constructor.
@@ -1317,6 +1343,8 @@ instance FromXML LoadBalancerState where
           = LoadBalancerState' <$>
               (x .@? "State") <*> (x .@? "LoadBalancerName")
 
+instance Hashable LoadBalancerState
+
 -- | Describes a metric.
 --
 -- /See:/ 'metricCollectionType' smart constructor.
@@ -1361,6 +1389,8 @@ instance FromXML MetricCollectionType where
         parseXML x
           = MetricCollectionType' <$> (x .@? "Metric")
 
+instance Hashable MetricCollectionType
+
 -- | Describes a granularity of a metric.
 --
 -- /See:/ 'metricGranularityType' smart constructor.
@@ -1388,6 +1418,8 @@ instance FromXML MetricGranularityType where
         parseXML x
           = MetricGranularityType' <$> (x .@? "Granularity")
 
+instance Hashable MetricGranularityType
+
 -- | Describes a notification.
 --
 -- /See:/ 'notificationConfiguration' smart constructor.
@@ -1445,6 +1477,8 @@ instance FromXML NotificationConfiguration where
               (x .@? "TopicARN") <*> (x .@? "AutoScalingGroupName")
                 <*> (x .@? "NotificationType")
 
+instance Hashable NotificationConfiguration
+
 -- | Describes a process type.
 --
 -- For more information, see
@@ -1493,6 +1527,8 @@ ptProcessName = lens _ptProcessName (\ s a -> s{_ptProcessName = a});
 instance FromXML ProcessType where
         parseXML x = ProcessType' <$> (x .@ "ProcessName")
 
+instance Hashable ProcessType
+
 -- | Describes a scaling policy.
 --
 -- /See:/ 'scalingPolicy' smart constructor.
@@ -1645,6 +1681,8 @@ instance FromXML ScalingPolicy where
                 <*> (x .@? "MetricAggregationType")
                 <*> (x .@? "MinAdjustmentMagnitude")
 
+instance Hashable ScalingPolicy
+
 -- | /See:/ 'scalingProcessQuery' smart constructor.
 data ScalingProcessQuery = ScalingProcessQuery'
     { _spqScalingProcesses     :: !(Maybe [Text])
@@ -1692,6 +1730,8 @@ spqScalingProcesses = lens _spqScalingProcesses (\ s a -> s{_spqScalingProcesses
 spqAutoScalingGroupName :: Lens' ScalingProcessQuery Text
 spqAutoScalingGroupName = lens _spqAutoScalingGroupName (\ s a -> s{_spqAutoScalingGroupName = a});
 
+instance Hashable ScalingProcessQuery
+
 instance ToQuery ScalingProcessQuery where
         toQuery ScalingProcessQuery'{..}
           = mconcat
@@ -1813,6 +1853,8 @@ instance FromXML ScheduledUpdateGroupAction where
                 <*> (x .@? "AutoScalingGroupName")
                 <*> (x .@? "EndTime")
 
+instance Hashable ScheduledUpdateGroupAction
+
 -- | Describes an adjustment based on the difference between the value of the
 -- aggregated CloudWatch metric and the breach threshold that you\'ve
 -- defined for the alarm.
@@ -1903,6 +1945,8 @@ instance FromXML StepAdjustment where
                 (x .@? "MetricIntervalUpperBound")
                 <*> (x .@ "ScalingAdjustment")
 
+instance Hashable StepAdjustment
+
 instance ToQuery StepAdjustment where
         toQuery StepAdjustment'{..}
           = mconcat
@@ -1949,6 +1993,8 @@ instance FromXML SuspendedProcess where
           = SuspendedProcess' <$>
               (x .@? "ProcessName") <*> (x .@? "SuspensionReason")
 
+instance Hashable SuspendedProcess
+
 -- | Describes a tag for an Auto Scaling group.
 --
 -- /See:/ 'tag' smart constructor.
@@ -2010,6 +2056,8 @@ tagPropagateAtLaunch = lens _tagPropagateAtLaunch (\ s a -> s{_tagPropagateAtLau
 tagValue :: Lens' Tag Text
 tagValue = lens _tagValue (\ s a -> s{_tagValue = a});
 
+instance Hashable Tag
+
 instance ToQuery Tag where
         toQuery Tag'{..}
           = mconcat
@@ -2086,3 +2134,5 @@ instance FromXML TagDescription where
                 (x .@ "Key")
                 <*> (x .@ "PropagateAtLaunch")
                 <*> (x .@ "Value")
+
+instance Hashable TagDescription