amazonka-opsworks 0.2.1 → 0.2.2

raw patch · 67 files changed

+177/−177 lines, 67 filesdep ~amazonka-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core

API changes (from Hackage documentation)

Files

• amazonka-opsworks.cabal +2/−2
• gen/Network/AWS/OpsWorks/AssignInstance.hs +2/−2
• gen/Network/AWS/OpsWorks/AssignVolume.hs +2/−2
• gen/Network/AWS/OpsWorks/AssociateElasticIp.hs +2/−2
• gen/Network/AWS/OpsWorks/AttachElasticLoadBalancer.hs +2/−2
• gen/Network/AWS/OpsWorks/CloneStack.hs +2/−2
• gen/Network/AWS/OpsWorks/CreateApp.hs +2/−2
• gen/Network/AWS/OpsWorks/CreateDeployment.hs +2/−2
• gen/Network/AWS/OpsWorks/CreateInstance.hs +2/−2
• gen/Network/AWS/OpsWorks/CreateLayer.hs +2/−2
• gen/Network/AWS/OpsWorks/CreateStack.hs +2/−2
• gen/Network/AWS/OpsWorks/CreateUserProfile.hs +2/−2
• gen/Network/AWS/OpsWorks/DeleteApp.hs +2/−2
• gen/Network/AWS/OpsWorks/DeleteInstance.hs +2/−2
• gen/Network/AWS/OpsWorks/DeleteLayer.hs +2/−2
• gen/Network/AWS/OpsWorks/DeleteStack.hs +2/−2
• gen/Network/AWS/OpsWorks/DeleteUserProfile.hs +2/−2
• gen/Network/AWS/OpsWorks/DeregisterElasticIp.hs +2/−2
• gen/Network/AWS/OpsWorks/DeregisterInstance.hs +2/−2
• gen/Network/AWS/OpsWorks/DeregisterRdsDbInstance.hs +2/−2
• gen/Network/AWS/OpsWorks/DeregisterVolume.hs +2/−2
• gen/Network/AWS/OpsWorks/DescribeApps.hs +2/−2
• gen/Network/AWS/OpsWorks/DescribeCommands.hs +2/−2
• gen/Network/AWS/OpsWorks/DescribeDeployments.hs +2/−2
• gen/Network/AWS/OpsWorks/DescribeElasticIps.hs +2/−2
• gen/Network/AWS/OpsWorks/DescribeElasticLoadBalancers.hs +2/−2
• gen/Network/AWS/OpsWorks/DescribeInstances.hs +2/−2
• gen/Network/AWS/OpsWorks/DescribeLayers.hs +2/−2
• gen/Network/AWS/OpsWorks/DescribeLoadBasedAutoScaling.hs +2/−2
• gen/Network/AWS/OpsWorks/DescribeMyUserProfile.hs +2/−2
• gen/Network/AWS/OpsWorks/DescribePermissions.hs +2/−2
• gen/Network/AWS/OpsWorks/DescribeRaidArrays.hs +2/−2
• gen/Network/AWS/OpsWorks/DescribeRdsDbInstances.hs +2/−2
• gen/Network/AWS/OpsWorks/DescribeServiceErrors.hs +2/−2
• gen/Network/AWS/OpsWorks/DescribeStackProvisioningParameters.hs +2/−2
• gen/Network/AWS/OpsWorks/DescribeStackSummary.hs +2/−2
• gen/Network/AWS/OpsWorks/DescribeStacks.hs +2/−2
• gen/Network/AWS/OpsWorks/DescribeTimeBasedAutoScaling.hs +2/−2
• gen/Network/AWS/OpsWorks/DescribeUserProfiles.hs +2/−2
• gen/Network/AWS/OpsWorks/DescribeVolumes.hs +2/−2
• gen/Network/AWS/OpsWorks/DetachElasticLoadBalancer.hs +2/−2
• gen/Network/AWS/OpsWorks/DisassociateElasticIp.hs +2/−2
• gen/Network/AWS/OpsWorks/GetHostnameSuggestion.hs +2/−2
• gen/Network/AWS/OpsWorks/RebootInstance.hs +2/−2
• gen/Network/AWS/OpsWorks/RegisterElasticIp.hs +2/−2
• gen/Network/AWS/OpsWorks/RegisterInstance.hs +2/−2
• gen/Network/AWS/OpsWorks/RegisterRdsDbInstance.hs +2/−2
• gen/Network/AWS/OpsWorks/RegisterVolume.hs +2/−2
• gen/Network/AWS/OpsWorks/SetLoadBasedAutoScaling.hs +2/−2
• gen/Network/AWS/OpsWorks/SetPermission.hs +2/−2
• gen/Network/AWS/OpsWorks/SetTimeBasedAutoScaling.hs +2/−2
• gen/Network/AWS/OpsWorks/StartInstance.hs +2/−2
• gen/Network/AWS/OpsWorks/StartStack.hs +2/−2
• gen/Network/AWS/OpsWorks/StopInstance.hs +2/−2
• gen/Network/AWS/OpsWorks/StopStack.hs +2/−2
• gen/Network/AWS/OpsWorks/Types.hs +45/−45
• gen/Network/AWS/OpsWorks/UnassignInstance.hs +2/−2
• gen/Network/AWS/OpsWorks/UnassignVolume.hs +2/−2
• gen/Network/AWS/OpsWorks/UpdateApp.hs +2/−2
• gen/Network/AWS/OpsWorks/UpdateElasticIp.hs +2/−2
• gen/Network/AWS/OpsWorks/UpdateInstance.hs +2/−2
• gen/Network/AWS/OpsWorks/UpdateLayer.hs +2/−2
• gen/Network/AWS/OpsWorks/UpdateMyUserProfile.hs +2/−2
• gen/Network/AWS/OpsWorks/UpdateRdsDbInstance.hs +2/−2
• gen/Network/AWS/OpsWorks/UpdateStack.hs +2/−2
• gen/Network/AWS/OpsWorks/UpdateUserProfile.hs +2/−2
• gen/Network/AWS/OpsWorks/UpdateVolume.hs +2/−2

@@ -1,5 +1,5 @@ name:                  amazonka-opsworks-version:               0.2.1+version:               0.2.2 synopsis:              Amazon OpsWorks SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -106,5 +106,5 @@     other-modules:      build-depends:-          amazonka-core == 0.2.1.*+          amazonka-core == 0.2.2.*         , base          >= 4.7     && < 5

@@ -54,7 +54,7 @@ data AssignInstance = AssignInstance     { _aiInstanceId :: Text     , _aiLayerIds   :: List "LayerIds" Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'AssignInstance' constructor. --@@ -81,7 +81,7 @@ aiLayerIds = lens _aiLayerIds (\s a -> s { _aiLayerIds = a }) . _List  data AssignInstanceResponse = AssignInstanceResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'AssignInstanceResponse' constructor. assignInstanceResponse :: AssignInstanceResponse

@@ -54,7 +54,7 @@ data AssignVolume = AssignVolume     { _avInstanceId :: Maybe Text     , _avVolumeId   :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'AssignVolume' constructor. --@@ -80,7 +80,7 @@ avVolumeId = lens _avVolumeId (\s a -> s { _avVolumeId = a })  data AssignVolumeResponse = AssignVolumeResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'AssignVolumeResponse' constructor. assignVolumeResponse :: AssignVolumeResponse

@@ -55,7 +55,7 @@ data AssociateElasticIp = AssociateElasticIp     { _aeiElasticIp  :: Text     , _aeiInstanceId :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'AssociateElasticIp' constructor. --@@ -81,7 +81,7 @@ aeiInstanceId = lens _aeiInstanceId (\s a -> s { _aeiInstanceId = a })  data AssociateElasticIpResponse = AssociateElasticIpResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'AssociateElasticIpResponse' constructor. associateElasticIpResponse :: AssociateElasticIpResponse

@@ -57,7 +57,7 @@ data AttachElasticLoadBalancer = AttachElasticLoadBalancer     { _aelbElasticLoadBalancerName :: Text     , _aelbLayerId                 :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'AttachElasticLoadBalancer' constructor. --@@ -87,7 +87,7 @@ aelbLayerId = lens _aelbLayerId (\s a -> s { _aelbLayerId = a })  data AttachElasticLoadBalancerResponse = AttachElasticLoadBalancerResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'AttachElasticLoadBalancerResponse' constructor. attachElasticLoadBalancerResponse :: AttachElasticLoadBalancerResponse

@@ -93,7 +93,7 @@     , _cs1UseCustomCookbooks        :: Maybe Bool     , _cs1UseOpsworksSecurityGroups :: Maybe Bool     , _cs1VpcId                     :: Maybe Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'CloneStack' constructor. --@@ -345,7 +345,7 @@  newtype CloneStackResponse = CloneStackResponse     { _csrStackId :: Maybe Text-    } deriving (Eq, Ord, Show, Monoid)+    } deriving (Eq, Ord, Read, Show, Monoid)  -- | 'CloneStackResponse' constructor. --

@@ -75,7 +75,7 @@     , _caSslConfiguration :: Maybe SslConfiguration     , _caStackId          :: Text     , _caType             :: AppType-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'CreateApp' constructor. --@@ -185,7 +185,7 @@  newtype CreateAppResponse = CreateAppResponse     { _carAppId :: Maybe Text-    } deriving (Eq, Ord, Show, Monoid)+    } deriving (Eq, Ord, Read, Show, Monoid)  -- | 'CreateAppResponse' constructor. --

@@ -64,7 +64,7 @@     , _cdCustomJson  :: Maybe Text     , _cdInstanceIds :: List "InstanceIds" Text     , _cdStackId     :: Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'CreateDeployment' constructor. --@@ -128,7 +128,7 @@  newtype CreateDeploymentResponse = CreateDeploymentResponse     { _cdrDeploymentId :: Maybe Text-    } deriving (Eq, Ord, Show, Monoid)+    } deriving (Eq, Ord, Read, Show, Monoid)  -- | 'CreateDeploymentResponse' constructor. --

@@ -81,7 +81,7 @@     , _ciStackId              :: Text     , _ciSubnetId             :: Maybe Text     , _ciVirtualizationType   :: Maybe Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'CreateInstance' constructor. --@@ -229,7 +229,7 @@  newtype CreateInstanceResponse = CreateInstanceResponse     { _cirInstanceId :: Maybe Text-    } deriving (Eq, Ord, Show, Monoid)+    } deriving (Eq, Ord, Read, Show, Monoid)  -- | 'CreateInstanceResponse' constructor. --

@@ -90,7 +90,7 @@     , _clType                        :: LayerType     , _clUseEbsOptimizedInstances    :: Maybe Bool     , _clVolumeConfigurations        :: List "VolumeConfigurations" VolumeConfiguration-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'CreateLayer' constructor. --@@ -250,7 +250,7 @@  newtype CreateLayerResponse = CreateLayerResponse     { _clrLayerId :: Maybe Text-    } deriving (Eq, Ord, Show, Monoid)+    } deriving (Eq, Ord, Read, Show, Monoid)  -- | 'CreateLayerResponse' constructor. --

@@ -87,7 +87,7 @@     , _csUseCustomCookbooks        :: Maybe Bool     , _csUseOpsworksSecurityGroups :: Maybe Bool     , _csVpcId                     :: Maybe Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'CreateStack' constructor. --@@ -308,7 +308,7 @@  newtype CreateStackResponse = CreateStackResponse     { _csr1StackId :: Maybe Text-    } deriving (Eq, Ord, Show, Monoid)+    } deriving (Eq, Ord, Read, Show, Monoid)  -- | 'CreateStackResponse' constructor. --

@@ -59,7 +59,7 @@     , _cupIamUserArn          :: Text     , _cupSshPublicKey        :: Maybe Text     , _cupSshUsername         :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'CreateUserProfile' constructor. --@@ -106,7 +106,7 @@  newtype CreateUserProfileResponse = CreateUserProfileResponse     { _cuprIamUserArn :: Maybe Text-    } deriving (Eq, Ord, Show, Monoid)+    } deriving (Eq, Ord, Read, Show, Monoid)  -- | 'CreateUserProfileResponse' constructor. --

@@ -51,7 +51,7 @@  newtype DeleteApp = DeleteApp     { _daAppId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'DeleteApp' constructor. --@@ -70,7 +70,7 @@ daAppId = lens _daAppId (\s a -> s { _daAppId = a })  data DeleteAppResponse = DeleteAppResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'DeleteAppResponse' constructor. deleteAppResponse :: DeleteAppResponse

@@ -58,7 +58,7 @@     { _diDeleteElasticIp :: Maybe Bool     , _diDeleteVolumes   :: Maybe Bool     , _diInstanceId      :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'DeleteInstance' constructor. --@@ -92,7 +92,7 @@ diInstanceId = lens _diInstanceId (\s a -> s { _diInstanceId = a })  data DeleteInstanceResponse = DeleteInstanceResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'DeleteInstanceResponse' constructor. deleteInstanceResponse :: DeleteInstanceResponse

@@ -52,7 +52,7 @@  newtype DeleteLayer = DeleteLayer     { _dlLayerId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'DeleteLayer' constructor. --@@ -71,7 +71,7 @@ dlLayerId = lens _dlLayerId (\s a -> s { _dlLayerId = a })  data DeleteLayerResponse = DeleteLayerResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'DeleteLayerResponse' constructor. deleteLayerResponse :: DeleteLayerResponse

@@ -52,7 +52,7 @@  newtype DeleteStack = DeleteStack     { _dsStackId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'DeleteStack' constructor. --@@ -71,7 +71,7 @@ dsStackId = lens _dsStackId (\s a -> s { _dsStackId = a })  data DeleteStackResponse = DeleteStackResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'DeleteStackResponse' constructor. deleteStackResponse :: DeleteStackResponse

@@ -51,7 +51,7 @@  newtype DeleteUserProfile = DeleteUserProfile     { _dupIamUserArn :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'DeleteUserProfile' constructor. --@@ -70,7 +70,7 @@ dupIamUserArn = lens _dupIamUserArn (\s a -> s { _dupIamUserArn = a })  data DeleteUserProfileResponse = DeleteUserProfileResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'DeleteUserProfileResponse' constructor. deleteUserProfileResponse :: DeleteUserProfileResponse

@@ -52,7 +52,7 @@  newtype DeregisterElasticIp = DeregisterElasticIp     { _dei1ElasticIp :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'DeregisterElasticIp' constructor. --@@ -71,7 +71,7 @@ dei1ElasticIp = lens _dei1ElasticIp (\s a -> s { _dei1ElasticIp = a })  data DeregisterElasticIpResponse = DeregisterElasticIpResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'DeregisterElasticIpResponse' constructor. deregisterElasticIpResponse :: DeregisterElasticIpResponse

@@ -53,7 +53,7 @@  newtype DeregisterInstance = DeregisterInstance     { _di1InstanceId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'DeregisterInstance' constructor. --@@ -72,7 +72,7 @@ di1InstanceId = lens _di1InstanceId (\s a -> s { _di1InstanceId = a })  data DeregisterInstanceResponse = DeregisterInstanceResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'DeregisterInstanceResponse' constructor. deregisterInstanceResponse :: DeregisterInstanceResponse

@@ -51,7 +51,7 @@  newtype DeregisterRdsDbInstance = DeregisterRdsDbInstance     { _drdiRdsDbInstanceArn :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'DeregisterRdsDbInstance' constructor. --@@ -71,7 +71,7 @@     lens _drdiRdsDbInstanceArn (\s a -> s { _drdiRdsDbInstanceArn = a })  data DeregisterRdsDbInstanceResponse = DeregisterRdsDbInstanceResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'DeregisterRdsDbInstanceResponse' constructor. deregisterRdsDbInstanceResponse :: DeregisterRdsDbInstanceResponse

@@ -52,7 +52,7 @@  newtype DeregisterVolume = DeregisterVolume     { _dvVolumeId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'DeregisterVolume' constructor. --@@ -71,7 +71,7 @@ dvVolumeId = lens _dvVolumeId (\s a -> s { _dvVolumeId = a })  data DeregisterVolumeResponse = DeregisterVolumeResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'DeregisterVolumeResponse' constructor. deregisterVolumeResponse :: DeregisterVolumeResponse

@@ -57,7 +57,7 @@ data DescribeApps = DescribeApps     { _daAppIds  :: List "AppIds" Text     , _daStackId :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'DescribeApps' constructor. --@@ -85,7 +85,7 @@  newtype DescribeAppsResponse = DescribeAppsResponse     { _darApps :: List "Apps" App-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeAppsResponse where     type Item DescribeAppsResponse = App

@@ -59,7 +59,7 @@     { _dcCommandIds   :: List "CommandIds" Text     , _dcDeploymentId :: Maybe Text     , _dcInstanceId   :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'DescribeCommands' constructor. --@@ -96,7 +96,7 @@  newtype DescribeCommandsResponse = DescribeCommandsResponse     { _dcrCommands :: List "Commands" Command-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeCommandsResponse where     type Item DescribeCommandsResponse = Command

@@ -59,7 +59,7 @@     { _ddAppId         :: Maybe Text     , _ddDeploymentIds :: List "DeploymentIds" Text     , _ddStackId       :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'DescribeDeployments' constructor. --@@ -95,7 +95,7 @@  newtype DescribeDeploymentsResponse = DescribeDeploymentsResponse     { _ddrDeployments :: List "Deployments" Deployment-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeDeploymentsResponse where     type Item DescribeDeploymentsResponse = Deployment

@@ -59,7 +59,7 @@     { _deiInstanceId :: Maybe Text     , _deiIps        :: List "Ips" Text     , _deiStackId    :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'DescribeElasticIps' constructor. --@@ -98,7 +98,7 @@  newtype DescribeElasticIpsResponse = DescribeElasticIpsResponse     { _deirElasticIps :: List "ElasticIps" ElasticIp-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeElasticIpsResponse where     type Item DescribeElasticIpsResponse = ElasticIp

@@ -57,7 +57,7 @@ data DescribeElasticLoadBalancers = DescribeElasticLoadBalancers     { _delbLayerIds :: List "LayerIds" Text     , _delbStackId  :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'DescribeElasticLoadBalancers' constructor. --@@ -84,7 +84,7 @@  newtype DescribeElasticLoadBalancersResponse = DescribeElasticLoadBalancersResponse     { _delbrElasticLoadBalancers :: List "ElasticLoadBalancers" ElasticLoadBalancer-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeElasticLoadBalancersResponse where     type Item DescribeElasticLoadBalancersResponse = ElasticLoadBalancer

@@ -59,7 +59,7 @@     { _diInstanceIds :: List "InstanceIds" Text     , _diLayerId     :: Maybe Text     , _diStackId     :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'DescribeInstances' constructor. --@@ -95,7 +95,7 @@  newtype DescribeInstancesResponse = DescribeInstancesResponse     { _dirInstances :: List "Instances" Instance-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeInstancesResponse where     type Item DescribeInstancesResponse = Instance

@@ -57,7 +57,7 @@ data DescribeLayers = DescribeLayers     { _dlLayerIds :: List "LayerIds" Text     , _dlStackId  :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'DescribeLayers' constructor. --@@ -85,7 +85,7 @@  newtype DescribeLayersResponse = DescribeLayersResponse     { _dlrLayers :: List "Layers" Layer-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeLayersResponse where     type Item DescribeLayersResponse = Layer

@@ -55,7 +55,7 @@  newtype DescribeLoadBasedAutoScaling = DescribeLoadBasedAutoScaling     { _dlbasLayerIds :: List "LayerIds" Text-    } deriving (Eq, Ord, Show, Monoid, Semigroup)+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeLoadBasedAutoScaling where     type Item DescribeLoadBasedAutoScaling = Text@@ -80,7 +80,7 @@  newtype DescribeLoadBasedAutoScalingResponse = DescribeLoadBasedAutoScalingResponse     { _dlbasrLoadBasedAutoScalingConfigurations :: List "LoadBasedAutoScalingConfigurations" LoadBasedAutoScalingConfiguration-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeLoadBasedAutoScalingResponse where     type Item DescribeLoadBasedAutoScalingResponse = LoadBasedAutoScalingConfiguration

@@ -50,7 +50,7 @@ import qualified GHC.Exts  data DescribeMyUserProfile = DescribeMyUserProfile-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'DescribeMyUserProfile' constructor. describeMyUserProfile :: DescribeMyUserProfile@@ -58,7 +58,7 @@  newtype DescribeMyUserProfileResponse = DescribeMyUserProfileResponse     { _dmuprUserProfile :: Maybe SelfUserProfile-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'DescribeMyUserProfileResponse' constructor. --

@@ -55,7 +55,7 @@ data DescribePermissions = DescribePermissions     { _dpIamUserArn :: Maybe Text     , _dpStackId    :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'DescribePermissions' constructor. --@@ -82,7 +82,7 @@  newtype DescribePermissionsResponse = DescribePermissionsResponse     { _dprPermissions :: List "Permissions" Permission-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribePermissionsResponse where     type Item DescribePermissionsResponse = Permission

@@ -59,7 +59,7 @@     { _draInstanceId   :: Maybe Text     , _draRaidArrayIds :: List "RaidArrayIds" Text     , _draStackId      :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'DescribeRaidArrays' constructor. --@@ -95,7 +95,7 @@  newtype DescribeRaidArraysResponse = DescribeRaidArraysResponse     { _drarRaidArrays :: List "RaidArrays" RaidArray-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeRaidArraysResponse where     type Item DescribeRaidArraysResponse = RaidArray

@@ -55,7 +55,7 @@ data DescribeRdsDbInstances = DescribeRdsDbInstances     { _drdiRdsDbInstanceArns :: List "RdsDbInstanceArns" Text     , _drdiStackId           :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'DescribeRdsDbInstances' constructor. --@@ -85,7 +85,7 @@  newtype DescribeRdsDbInstancesResponse = DescribeRdsDbInstancesResponse     { _drdirRdsDbInstances :: List "RdsDbInstances" RdsDbInstance-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeRdsDbInstancesResponse where     type Item DescribeRdsDbInstancesResponse = RdsDbInstance

@@ -57,7 +57,7 @@     { _dseInstanceId      :: Maybe Text     , _dseServiceErrorIds :: List "ServiceErrorIds" Text     , _dseStackId         :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'DescribeServiceErrors' constructor. --@@ -95,7 +95,7 @@  newtype DescribeServiceErrorsResponse = DescribeServiceErrorsResponse     { _dserServiceErrors :: List "ServiceErrors" ServiceError'-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeServiceErrorsResponse where     type Item DescribeServiceErrorsResponse = ServiceError'

@@ -54,7 +54,7 @@  newtype DescribeStackProvisioningParameters = DescribeStackProvisioningParameters     { _dsppStackId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'DescribeStackProvisioningParameters' constructor. --@@ -75,7 +75,7 @@ data DescribeStackProvisioningParametersResponse = DescribeStackProvisioningParametersResponse     { _dspprAgentInstallerUrl :: Maybe Text     , _dspprParameters        :: Map Text Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'DescribeStackProvisioningParametersResponse' constructor. --

@@ -54,7 +54,7 @@  newtype DescribeStackSummary = DescribeStackSummary     { _dssStackId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'DescribeStackSummary' constructor. --@@ -74,7 +74,7 @@  newtype DescribeStackSummaryResponse = DescribeStackSummaryResponse     { _dssrStackSummary :: Maybe StackSummary-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'DescribeStackSummaryResponse' constructor. --

@@ -53,7 +53,7 @@  newtype DescribeStacks = DescribeStacks     { _dsStackIds :: List "StackIds" Text-    } deriving (Eq, Ord, Show, Monoid, Semigroup)+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeStacks where     type Item DescribeStacks = Text@@ -79,7 +79,7 @@  newtype DescribeStacksResponse = DescribeStacksResponse     { _dsrStacks :: List "Stacks" Stack-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeStacksResponse where     type Item DescribeStacksResponse = Stack

@@ -55,7 +55,7 @@  newtype DescribeTimeBasedAutoScaling = DescribeTimeBasedAutoScaling     { _dtbasInstanceIds :: List "InstanceIds" Text-    } deriving (Eq, Ord, Show, Monoid, Semigroup)+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeTimeBasedAutoScaling where     type Item DescribeTimeBasedAutoScaling = Text@@ -80,7 +80,7 @@  newtype DescribeTimeBasedAutoScalingResponse = DescribeTimeBasedAutoScalingResponse     { _dtbasrTimeBasedAutoScalingConfigurations :: List "TimeBasedAutoScalingConfigurations" TimeBasedAutoScalingConfiguration-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeTimeBasedAutoScalingResponse where     type Item DescribeTimeBasedAutoScalingResponse = TimeBasedAutoScalingConfiguration

@@ -53,7 +53,7 @@  newtype DescribeUserProfiles = DescribeUserProfiles     { _dupIamUserArns :: List "IamUserArns" Text-    } deriving (Eq, Ord, Show, Monoid, Semigroup)+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeUserProfiles where     type Item DescribeUserProfiles = Text@@ -78,7 +78,7 @@  newtype DescribeUserProfilesResponse = DescribeUserProfilesResponse     { _duprUserProfiles :: List "UserProfiles" UserProfile-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeUserProfilesResponse where     type Item DescribeUserProfilesResponse = UserProfile

@@ -61,7 +61,7 @@     , _dvRaidArrayId :: Maybe Text     , _dvStackId     :: Maybe Text     , _dvVolumeIds   :: List "VolumeIds" Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'DescribeVolumes' constructor. --@@ -105,7 +105,7 @@  newtype DescribeVolumesResponse = DescribeVolumesResponse     { _dvrVolumes :: List "Volumes" Volume-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeVolumesResponse where     type Item DescribeVolumesResponse = Volume

@@ -53,7 +53,7 @@ data DetachElasticLoadBalancer = DetachElasticLoadBalancer     { _delbElasticLoadBalancerName :: Text     , _delbLayerId                 :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'DetachElasticLoadBalancer' constructor. --@@ -82,7 +82,7 @@ delbLayerId = lens _delbLayerId (\s a -> s { _delbLayerId = a })  data DetachElasticLoadBalancerResponse = DetachElasticLoadBalancerResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'DetachElasticLoadBalancerResponse' constructor. detachElasticLoadBalancerResponse :: DetachElasticLoadBalancerResponse

@@ -52,7 +52,7 @@  newtype DisassociateElasticIp = DisassociateElasticIp     { _deiElasticIp :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'DisassociateElasticIp' constructor. --@@ -71,7 +71,7 @@ deiElasticIp = lens _deiElasticIp (\s a -> s { _deiElasticIp = a })  data DisassociateElasticIpResponse = DisassociateElasticIpResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'DisassociateElasticIpResponse' constructor. disassociateElasticIpResponse :: DisassociateElasticIpResponse

@@ -55,7 +55,7 @@  newtype GetHostnameSuggestion = GetHostnameSuggestion     { _ghsLayerId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'GetHostnameSuggestion' constructor. --@@ -76,7 +76,7 @@ data GetHostnameSuggestionResponse = GetHostnameSuggestionResponse     { _ghsrHostname :: Maybe Text     , _ghsrLayerId  :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'GetHostnameSuggestionResponse' constructor. --

@@ -51,7 +51,7 @@  newtype RebootInstance = RebootInstance     { _riInstanceId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'RebootInstance' constructor. --@@ -70,7 +70,7 @@ riInstanceId = lens _riInstanceId (\s a -> s { _riInstanceId = a })  data RebootInstanceResponse = RebootInstanceResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'RebootInstanceResponse' constructor. rebootInstanceResponse :: RebootInstanceResponse

@@ -58,7 +58,7 @@ data RegisterElasticIp = RegisterElasticIp     { _reiElasticIp :: Text     , _reiStackId   :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'RegisterElasticIp' constructor. --@@ -86,7 +86,7 @@  newtype RegisterElasticIpResponse = RegisterElasticIpResponse     { _reirElasticIp :: Maybe Text-    } deriving (Eq, Ord, Show, Monoid)+    } deriving (Eq, Ord, Read, Show, Monoid)  -- | 'RegisterElasticIpResponse' constructor. --

@@ -70,7 +70,7 @@     , _riRsaPublicKey            :: Maybe Text     , _riRsaPublicKeyFingerprint :: Maybe Text     , _riStackId                 :: Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'RegisterInstance' constructor. --@@ -136,7 +136,7 @@  newtype RegisterInstanceResponse = RegisterInstanceResponse     { _rirInstanceId :: Maybe Text-    } deriving (Eq, Ord, Show, Monoid)+    } deriving (Eq, Ord, Read, Show, Monoid)  -- | 'RegisterInstanceResponse' constructor. --

@@ -57,7 +57,7 @@     , _rrdiDbUser           :: Text     , _rrdiRdsDbInstanceArn :: Text     , _rrdiStackId          :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'RegisterRdsDbInstance' constructor. --@@ -101,7 +101,7 @@ rrdiStackId = lens _rrdiStackId (\s a -> s { _rrdiStackId = a })  data RegisterRdsDbInstanceResponse = RegisterRdsDbInstanceResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'RegisterRdsDbInstanceResponse' constructor. registerRdsDbInstanceResponse :: RegisterRdsDbInstanceResponse

@@ -58,7 +58,7 @@ data RegisterVolume = RegisterVolume     { _rvEc2VolumeId :: Maybe Text     , _rvStackId     :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'RegisterVolume' constructor. --@@ -85,7 +85,7 @@  newtype RegisterVolumeResponse = RegisterVolumeResponse     { _rvrVolumeId :: Maybe Text-    } deriving (Eq, Ord, Show, Monoid)+    } deriving (Eq, Ord, Read, Show, Monoid)  -- | 'RegisterVolumeResponse' constructor. --

@@ -63,7 +63,7 @@     , _slbasEnable      :: Maybe Bool     , _slbasLayerId     :: Text     , _slbasUpScaling   :: Maybe AutoScalingThresholds-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'SetLoadBasedAutoScaling' constructor. --@@ -107,7 +107,7 @@ slbasUpScaling = lens _slbasUpScaling (\s a -> s { _slbasUpScaling = a })  data SetLoadBasedAutoScalingResponse = SetLoadBasedAutoScalingResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'SetLoadBasedAutoScalingResponse' constructor. setLoadBasedAutoScalingResponse :: SetLoadBasedAutoScalingResponse

@@ -59,7 +59,7 @@     , _spIamUserArn :: Text     , _spLevel      :: Maybe Text     , _spStackId    :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'SetPermission' constructor. --@@ -111,7 +111,7 @@ spStackId = lens _spStackId (\s a -> s { _spStackId = a })  data SetPermissionResponse = SetPermissionResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'SetPermissionResponse' constructor. setPermissionResponse :: SetPermissionResponse

@@ -54,7 +54,7 @@ data SetTimeBasedAutoScaling = SetTimeBasedAutoScaling     { _stbasAutoScalingSchedule :: Maybe WeeklyAutoScalingSchedule     , _stbasInstanceId          :: Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'SetTimeBasedAutoScaling' constructor. --@@ -82,7 +82,7 @@ stbasInstanceId = lens _stbasInstanceId (\s a -> s { _stbasInstanceId = a })  data SetTimeBasedAutoScalingResponse = SetTimeBasedAutoScalingResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'SetTimeBasedAutoScalingResponse' constructor. setTimeBasedAutoScalingResponse :: SetTimeBasedAutoScalingResponse

@@ -51,7 +51,7 @@  newtype StartInstance = StartInstance     { _si1InstanceId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'StartInstance' constructor. --@@ -70,7 +70,7 @@ si1InstanceId = lens _si1InstanceId (\s a -> s { _si1InstanceId = a })  data StartInstanceResponse = StartInstanceResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'StartInstanceResponse' constructor. startInstanceResponse :: StartInstanceResponse

@@ -51,7 +51,7 @@  newtype StartStack = StartStack     { _ss2StackId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'StartStack' constructor. --@@ -70,7 +70,7 @@ ss2StackId = lens _ss2StackId (\s a -> s { _ss2StackId = a })  data StartStackResponse = StartStackResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'StartStackResponse' constructor. startStackResponse :: StartStackResponse

@@ -54,7 +54,7 @@  newtype StopInstance = StopInstance     { _siInstanceId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'StopInstance' constructor. --@@ -73,7 +73,7 @@ siInstanceId = lens _siInstanceId (\s a -> s { _siInstanceId = a })  data StopInstanceResponse = StopInstanceResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'StopInstanceResponse' constructor. stopInstanceResponse :: StopInstanceResponse

@@ -51,7 +51,7 @@  newtype StopStack = StopStack     { _ss1StackId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'StopStack' constructor. --@@ -70,7 +70,7 @@ ss1StackId = lens _ss1StackId (\s a -> s { _ss1StackId = a })  data StopStackResponse = StopStackResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'StopStackResponse' constructor. stopStackResponse :: StopStackResponse

@@ -513,7 +513,7 @@     { _scCertificate :: Text     , _scChain       :: Maybe Text     , _scPrivateKey  :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'SslConfiguration' constructor. --@@ -563,7 +563,7 @@ data VirtualizationType     = Hvm         -- ^ hvm     | Paravirtual -- ^ paravirtual-      deriving (Eq, Ord, Show, Generic, Enum)+      deriving (Eq, Ord, Read, Show, Generic, Enum)  instance Hashable VirtualizationType @@ -600,7 +600,7 @@     , _cLogUrl         :: Maybe Text     , _cStatus         :: Maybe Text     , _cType           :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'Command' constructor. --@@ -725,7 +725,7 @@     , _raSize             :: Maybe Int     , _raStackId          :: Maybe Text     , _raVolumeType       :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'RaidArray' constructor. --@@ -871,7 +871,7 @@     , _elbStackId                 :: Maybe Text     , _elbSubnetIds               :: List "SubnetIds" Text     , _elbVpcId                   :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'ElasticLoadBalancer' constructor. --@@ -978,7 +978,7 @@  newtype LifecycleEventConfiguration = LifecycleEventConfiguration     { _lecShutdown :: Maybe ShutdownEventConfiguration-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'LifecycleEventConfiguration' constructor. --@@ -1015,7 +1015,7 @@     , _rdiRdsDbInstanceArn     :: Maybe Text     , _rdiRegion               :: Maybe Text     , _rdiStackId              :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'RdsDbInstance' constructor. --@@ -1121,7 +1121,7 @@     = AutoBundleOnDeploy -- ^ AutoBundleOnDeploy     | DocumentRoot       -- ^ DocumentRoot     | RailsEnv           -- ^ RailsEnv-      deriving (Eq, Ord, Show, Generic, Enum)+      deriving (Eq, Ord, Read, Show, Generic, Enum)  instance Hashable AppAttributesKeys @@ -1156,7 +1156,7 @@     , _seServiceErrorId :: Maybe Text     , _seStackId        :: Maybe Text     , _seType           :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'ServiceError'' constructor. --@@ -1234,7 +1234,7 @@     , _ssLayersCount    :: Maybe Int     , _ssName           :: Maybe Text     , _ssStackId        :: Maybe Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'StackSummary' constructor. --@@ -1307,7 +1307,7 @@  data StackAttributesKeys     = Color -- ^ Color-      deriving (Eq, Ord, Show, Generic, Enum)+      deriving (Eq, Ord, Read, Show, Generic, Enum)  instance Hashable StackAttributesKeys @@ -1335,7 +1335,7 @@     , _lbascEnable      :: Maybe Bool     , _lbascLayerId     :: Maybe Text     , _lbascUpScaling   :: Maybe AutoScalingThresholds-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'LoadBasedAutoScalingConfiguration' constructor. --@@ -1395,7 +1395,7 @@     | Git     -- ^ git     | S3      -- ^ s3     | Svn     -- ^ svn-      deriving (Eq, Ord, Show, Generic, Enum)+      deriving (Eq, Ord, Read, Show, Generic, Enum)  instance Hashable SourceType @@ -1439,7 +1439,7 @@     , _vStatus           :: Maybe Text     , _vVolumeId         :: Maybe Text     , _vVolumeType       :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'Volume' constructor. --@@ -1577,7 +1577,7 @@ data ChefConfiguration = ChefConfiguration     { _ccBerkshelfVersion :: Maybe Text     , _ccManageBerkshelf  :: Maybe Bool-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'ChefConfiguration' constructor. --@@ -1625,7 +1625,7 @@     | PhpApp           -- ^ php-app     | RailsApp         -- ^ rails-app     | Web              -- ^ web-      deriving (Eq, Ord, Show, Generic, Enum)+      deriving (Eq, Ord, Read, Show, Generic, Enum)  instance Hashable LayerType @@ -1674,7 +1674,7 @@     , _astLoadThreshold      :: Maybe Double     , _astMemoryThreshold    :: Maybe Double     , _astThresholdsWaitTime :: Maybe Nat-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'AutoScalingThresholds' constructor. --@@ -1773,7 +1773,7 @@     , _appSslConfiguration :: Maybe SslConfiguration     , _appStackId          :: Maybe Text     , _appType             :: Maybe AppType-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'App' constructor. --@@ -1927,7 +1927,7 @@     , _eiIp         :: Maybe Text     , _eiName       :: Maybe Text     , _eiRegion     :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'ElasticIp' constructor. --@@ -1992,7 +1992,7 @@ data ShutdownEventConfiguration = ShutdownEventConfiguration     { _secDelayUntilElbConnectionsDrained :: Maybe Bool     , _secExecutionTimeout                :: Maybe Int-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'ShutdownEventConfiguration' constructor. --@@ -2035,7 +2035,7 @@ data InstanceIdentity = InstanceIdentity     { _iiDocument  :: Maybe Text     , _iiSignature :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'InstanceIdentity' constructor. --@@ -2077,7 +2077,7 @@     , _upName                :: Maybe Text     , _upSshPublicKey        :: Maybe Text     , _upSshUsername         :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'UserProfile' constructor. --@@ -2144,7 +2144,7 @@ data AutoScalingType     = Load  -- ^ load     | Timer -- ^ timer-      deriving (Eq, Ord, Show, Generic, Enum)+      deriving (Eq, Ord, Read, Show, Generic, Enum)  instance Hashable AutoScalingType @@ -2177,7 +2177,7 @@     , _sType     :: Maybe SourceType     , _sUrl      :: Maybe Text     , _sUsername :: Maybe Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'Source' constructor. --@@ -2262,7 +2262,7 @@     { _dsArn          :: Maybe Text     , _dsDatabaseName :: Maybe Text     , _dsType         :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'DataSource' constructor. --@@ -2310,7 +2310,7 @@ data Architecture     = I386  -- ^ i386     | X8664 -- ^ x86_64-      deriving (Eq, Ord, Show, Generic, Enum)+      deriving (Eq, Ord, Read, Show, Generic, Enum)  instance Hashable Architecture @@ -2339,7 +2339,7 @@ data StackConfigurationManager = StackConfigurationManager     { _scmName    :: Maybe Text     , _scmVersion :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'StackConfigurationManager' constructor. --@@ -2400,7 +2400,7 @@     | RailsStack                  -- ^ RailsStack     | RubyVersion                 -- ^ RubyVersion     | RubygemsVersion             -- ^ RubygemsVersion-      deriving (Eq, Ord, Show, Generic, Enum)+      deriving (Eq, Ord, Read, Show, Generic, Enum)  instance Hashable LayerAttributesKeys @@ -2477,7 +2477,7 @@     , _vcRaidLevel     :: Maybe Int     , _vcSize          :: Int     , _vcVolumeType    :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'VolumeConfiguration' constructor. --@@ -2558,7 +2558,7 @@     { _roFamily  :: Maybe Text     , _roName    :: Maybe Text     , _roVersion :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'ReportedOs' constructor. --@@ -2608,7 +2608,7 @@     , _pIamUserArn :: Maybe Text     , _pLevel      :: Maybe Text     , _pStackId    :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'Permission' constructor. --@@ -2678,7 +2678,7 @@     { _evKey    :: Text     , _evSecure :: Maybe Bool     , _evValue  :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'EnvironmentVariable' constructor. --@@ -2751,7 +2751,7 @@     , _lType                        :: Maybe LayerType     , _lUseEbsOptimizedInstances    :: Maybe Bool     , _lVolumeConfigurations        :: List "VolumeConfigurations" VolumeConfiguration-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'Layer' constructor. --@@ -2982,7 +2982,7 @@     , _rSetup     :: List "Setup" Text     , _rShutdown  :: List "Shutdown" Text     , _rUndeploy  :: List "Undeploy" Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'Recipes' constructor. --@@ -3047,7 +3047,7 @@ data TimeBasedAutoScalingConfiguration = TimeBasedAutoScalingConfiguration     { _tbascAutoScalingSchedule :: Maybe WeeklyAutoScalingSchedule     , _tbascInstanceId          :: Maybe Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'TimeBasedAutoScalingConfiguration' constructor. --@@ -3089,7 +3089,7 @@     , _supName         :: Maybe Text     , _supSshPublicKey :: Maybe Text     , _supSshUsername  :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'SelfUserProfile' constructor. --@@ -3145,7 +3145,7 @@ data RootDeviceType     = Ebs           -- ^ ebs     | InstanceStore -- ^ instance-store-      deriving (Eq, Ord, Show, Generic, Enum)+      deriving (Eq, Ord, Read, Show, Generic, Enum)  instance Hashable RootDeviceType @@ -3193,7 +3193,7 @@     , _sUseCustomCookbooks        :: Maybe Bool     , _sUseOpsworksSecurityGroups :: Maybe Bool     , _sVpcId                     :: Maybe Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'Stack' constructor. --@@ -3426,7 +3426,7 @@ data DeploymentCommand = DeploymentCommand     { _dcArgs :: Map Text (List "Args" Text)     , _dcName :: DeploymentCommandName-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'DeploymentCommand' constructor. --@@ -3498,7 +3498,7 @@     , _wassThursday  :: Map Text Text     , _wassTuesday   :: Map Text Text     , _wassWednesday :: Map Text Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'WeeklyAutoScalingSchedule' constructor. --@@ -3589,7 +3589,7 @@     | Undeploy              -- ^ undeploy     | UpdateCustomCookbooks -- ^ update_custom_cookbooks     | UpdateDependencies    -- ^ update_dependencies-      deriving (Eq, Ord, Show, Generic, Enum)+      deriving (Eq, Ord, Read, Show, Generic, Enum)  instance Hashable DeploymentCommandName @@ -3665,7 +3665,7 @@     , _iStatus                   :: Maybe Text     , _iSubnetId                 :: Maybe Text     , _iVirtualizationType       :: Maybe VirtualizationType-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'Instance' constructor. --@@ -4020,7 +4020,7 @@     , _dInstanceIds  :: List "InstanceIds" Text     , _dStackId      :: Maybe Text     , _dStatus       :: Maybe Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'Deployment' constructor. --@@ -4172,7 +4172,7 @@     , _icTerminated     :: Maybe Int     , _icTerminating    :: Maybe Int     , _icUnassigning    :: Maybe Int-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'InstancesCount' constructor. --@@ -4367,7 +4367,7 @@     | Php    -- ^ php     | Rails  -- ^ rails     | Static -- ^ static-      deriving (Eq, Ord, Show, Generic, Enum)+      deriving (Eq, Ord, Read, Show, Generic, Enum)  instance Hashable AppType 

@@ -54,7 +54,7 @@  newtype UnassignInstance = UnassignInstance     { _ui1InstanceId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'UnassignInstance' constructor. --@@ -73,7 +73,7 @@ ui1InstanceId = lens _ui1InstanceId (\s a -> s { _ui1InstanceId = a })  data UnassignInstanceResponse = UnassignInstanceResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'UnassignInstanceResponse' constructor. unassignInstanceResponse :: UnassignInstanceResponse

@@ -52,7 +52,7 @@  newtype UnassignVolume = UnassignVolume     { _uvVolumeId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'UnassignVolume' constructor. --@@ -71,7 +71,7 @@ uvVolumeId = lens _uvVolumeId (\s a -> s { _uvVolumeId = a })  data UnassignVolumeResponse = UnassignVolumeResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'UnassignVolumeResponse' constructor. unassignVolumeResponse :: UnassignVolumeResponse

@@ -71,7 +71,7 @@     , _uaName             :: Maybe Text     , _uaSslConfiguration :: Maybe SslConfiguration     , _uaType             :: Maybe AppType-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'UpdateApp' constructor. --@@ -168,7 +168,7 @@ uaType = lens _uaType (\s a -> s { _uaType = a })  data UpdateAppResponse = UpdateAppResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'UpdateAppResponse' constructor. updateAppResponse :: UpdateAppResponse

@@ -53,7 +53,7 @@ data UpdateElasticIp = UpdateElasticIp     { _ueiElasticIp :: Text     , _ueiName      :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'UpdateElasticIp' constructor. --@@ -79,7 +79,7 @@ ueiName = lens _ueiName (\s a -> s { _ueiName = a })  data UpdateElasticIpResponse = UpdateElasticIpResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'UpdateElasticIpResponse' constructor. updateElasticIpResponse :: UpdateElasticIpResponse

@@ -71,7 +71,7 @@     , _uiLayerIds             :: List "LayerIds" Text     , _uiOs                   :: Maybe Text     , _uiSshKeyName           :: Maybe Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'UpdateInstance' constructor. --@@ -184,7 +184,7 @@ uiSshKeyName = lens _uiSshKeyName (\s a -> s { _uiSshKeyName = a })  data UpdateInstanceResponse = UpdateInstanceResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'UpdateInstanceResponse' constructor. updateInstanceResponse :: UpdateInstanceResponse

@@ -79,7 +79,7 @@     , _ulShortname                   :: Maybe Text     , _ulUseEbsOptimizedInstances    :: Maybe Bool     , _ulVolumeConfigurations        :: List "VolumeConfigurations" VolumeConfiguration-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'UpdateLayer' constructor. --@@ -225,7 +225,7 @@         . _List  data UpdateLayerResponse = UpdateLayerResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'UpdateLayerResponse' constructor. updateLayerResponse :: UpdateLayerResponse

@@ -51,7 +51,7 @@  newtype UpdateMyUserProfile = UpdateMyUserProfile     { _umupSshPublicKey :: Maybe Text-    } deriving (Eq, Ord, Show, Monoid)+    } deriving (Eq, Ord, Read, Show, Monoid)  -- | 'UpdateMyUserProfile' constructor. --@@ -69,7 +69,7 @@ umupSshPublicKey = lens _umupSshPublicKey (\s a -> s { _umupSshPublicKey = a })  data UpdateMyUserProfileResponse = UpdateMyUserProfileResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'UpdateMyUserProfileResponse' constructor. updateMyUserProfileResponse :: UpdateMyUserProfileResponse

@@ -55,7 +55,7 @@     { _urdiDbPassword       :: Maybe Text     , _urdiDbUser           :: Maybe Text     , _urdiRdsDbInstanceArn :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'UpdateRdsDbInstance' constructor. --@@ -89,7 +89,7 @@     lens _urdiRdsDbInstanceArn (\s a -> s { _urdiRdsDbInstanceArn = a })  data UpdateRdsDbInstanceResponse = UpdateRdsDbInstanceResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'UpdateRdsDbInstanceResponse' constructor. updateRdsDbInstanceResponse :: UpdateRdsDbInstanceResponse

@@ -83,7 +83,7 @@     , _usStackId                   :: Text     , _usUseCustomCookbooks        :: Maybe Bool     , _usUseOpsworksSecurityGroups :: Maybe Bool-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'UpdateStack' constructor. --@@ -280,7 +280,7 @@         (\s a -> s { _usUseOpsworksSecurityGroups = a })  data UpdateStackResponse = UpdateStackResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'UpdateStackResponse' constructor. updateStackResponse :: UpdateStackResponse

@@ -57,7 +57,7 @@     , _uupIamUserArn          :: Text     , _uupSshPublicKey        :: Maybe Text     , _uupSshUsername         :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'UpdateUserProfile' constructor. --@@ -103,7 +103,7 @@ uupSshUsername = lens _uupSshUsername (\s a -> s { _uupSshUsername = a })  data UpdateUserProfileResponse = UpdateUserProfileResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'UpdateUserProfileResponse' constructor. updateUserProfileResponse :: UpdateUserProfileResponse

@@ -55,7 +55,7 @@     { _uv1MountPoint :: Maybe Text     , _uv1Name       :: Maybe Text     , _uv1VolumeId   :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'UpdateVolume' constructor. --@@ -88,7 +88,7 @@ uv1VolumeId = lens _uv1VolumeId (\s a -> s { _uv1VolumeId = a })  data UpdateVolumeResponse = UpdateVolumeResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'UpdateVolumeResponse' constructor. updateVolumeResponse :: UpdateVolumeResponse