diff --git a/amazonka-autoscaling.cabal b/amazonka-autoscaling.cabal --- a/amazonka-autoscaling.cabal +++ b/amazonka-autoscaling.cabal @@ -1,5 +1,5 @@ name: amazonka-autoscaling -version: 0.2.1 +version: 0.2.2 synopsis: Amazon Auto Scaling SDK. homepage: https://github.com/brendanhay/amazonka license: OtherLicense @@ -90,5 +90,5 @@ other-modules: build-depends: - amazonka-core == 0.2.1.* + amazonka-core == 0.2.2.* , base >= 4.7 && < 5 diff --git a/gen/Network/AWS/AutoScaling/AttachInstances.hs b/gen/Network/AWS/AutoScaling/AttachInstances.hs --- a/gen/Network/AWS/AutoScaling/AttachInstances.hs +++ b/gen/Network/AWS/AutoScaling/AttachInstances.hs @@ -51,7 +51,7 @@ data AttachInstances = AttachInstances { _aiAutoScalingGroupName :: Text , _aiInstanceIds :: List "member" Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'AttachInstances' constructor. -- @@ -78,7 +78,7 @@ aiInstanceIds = lens _aiInstanceIds (\s a -> s { _aiInstanceIds = a }) . _List data AttachInstancesResponse = AttachInstancesResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'AttachInstancesResponse' constructor. attachInstancesResponse :: AttachInstancesResponse diff --git a/gen/Network/AWS/AutoScaling/CompleteLifecycleAction.hs b/gen/Network/AWS/AutoScaling/CompleteLifecycleAction.hs --- a/gen/Network/AWS/AutoScaling/CompleteLifecycleAction.hs +++ b/gen/Network/AWS/AutoScaling/CompleteLifecycleAction.hs @@ -63,7 +63,7 @@ , _claLifecycleActionResult :: Text , _claLifecycleActionToken :: Text , _claLifecycleHookName :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'CompleteLifecycleAction' constructor. -- @@ -113,7 +113,7 @@ lens _claLifecycleHookName (\s a -> s { _claLifecycleHookName = a }) data CompleteLifecycleActionResponse = CompleteLifecycleActionResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'CompleteLifecycleActionResponse' constructor. completeLifecycleActionResponse :: CompleteLifecycleActionResponse diff --git a/gen/Network/AWS/AutoScaling/CreateAutoScalingGroup.hs b/gen/Network/AWS/AutoScaling/CreateAutoScalingGroup.hs --- a/gen/Network/AWS/AutoScaling/CreateAutoScalingGroup.hs +++ b/gen/Network/AWS/AutoScaling/CreateAutoScalingGroup.hs @@ -79,7 +79,7 @@ , _casgTags :: List "member" Tag , _casgTerminationPolicies :: List "member" Text , _casgVPCZoneIdentifier :: Maybe Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'CreateAutoScalingGroup' constructor. -- @@ -264,7 +264,7 @@ lens _casgVPCZoneIdentifier (\s a -> s { _casgVPCZoneIdentifier = a }) data CreateAutoScalingGroupResponse = CreateAutoScalingGroupResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'CreateAutoScalingGroupResponse' constructor. createAutoScalingGroupResponse :: CreateAutoScalingGroupResponse diff --git a/gen/Network/AWS/AutoScaling/CreateLaunchConfiguration.hs b/gen/Network/AWS/AutoScaling/CreateLaunchConfiguration.hs --- a/gen/Network/AWS/AutoScaling/CreateLaunchConfiguration.hs +++ b/gen/Network/AWS/AutoScaling/CreateLaunchConfiguration.hs @@ -38,6 +38,8 @@ -- ** Request lenses , clcAssociatePublicIpAddress , clcBlockDeviceMappings + , clcClassicLinkVPCId + , clcClassicLinkVPCSecurityGroups , clcEbsOptimized , clcIamInstanceProfile , clcImageId @@ -65,23 +67,25 @@ import qualified GHC.Exts data CreateLaunchConfiguration = CreateLaunchConfiguration - { _clcAssociatePublicIpAddress :: Maybe Bool - , _clcBlockDeviceMappings :: List "member" BlockDeviceMapping - , _clcEbsOptimized :: Maybe Bool - , _clcIamInstanceProfile :: Maybe Text - , _clcImageId :: Maybe Text - , _clcInstanceId :: Maybe Text - , _clcInstanceMonitoring :: Maybe InstanceMonitoring - , _clcInstanceType :: Maybe Text - , _clcKernelId :: Maybe Text - , _clcKeyName :: Maybe Text - , _clcLaunchConfigurationName :: Text - , _clcPlacementTenancy :: Maybe Text - , _clcRamdiskId :: Maybe Text - , _clcSecurityGroups :: List "member" Text - , _clcSpotPrice :: Maybe Text - , _clcUserData :: Maybe Text - } deriving (Eq, Show) + { _clcAssociatePublicIpAddress :: Maybe Bool + , _clcBlockDeviceMappings :: List "member" BlockDeviceMapping + , _clcClassicLinkVPCId :: Maybe Text + , _clcClassicLinkVPCSecurityGroups :: List "member" Text + , _clcEbsOptimized :: Maybe Bool + , _clcIamInstanceProfile :: Maybe Text + , _clcImageId :: Maybe Text + , _clcInstanceId :: Maybe Text + , _clcInstanceMonitoring :: Maybe InstanceMonitoring + , _clcInstanceType :: Maybe Text + , _clcKernelId :: Maybe Text + , _clcKeyName :: Maybe Text + , _clcLaunchConfigurationName :: Text + , _clcPlacementTenancy :: Maybe Text + , _clcRamdiskId :: Maybe Text + , _clcSecurityGroups :: List "member" Text + , _clcSpotPrice :: Maybe Text + , _clcUserData :: Maybe Text + } deriving (Eq, Read, Show) -- | 'CreateLaunchConfiguration' constructor. -- @@ -91,6 +95,10 @@ -- -- * 'clcBlockDeviceMappings' @::@ ['BlockDeviceMapping'] -- +-- * 'clcClassicLinkVPCId' @::@ 'Maybe' 'Text' +-- +-- * 'clcClassicLinkVPCSecurityGroups' @::@ ['Text'] +-- -- * 'clcEbsOptimized' @::@ 'Maybe' 'Bool' -- -- * 'clcIamInstanceProfile' @::@ 'Maybe' 'Text' @@ -122,22 +130,24 @@ createLaunchConfiguration :: Text -- ^ 'clcLaunchConfigurationName' -> CreateLaunchConfiguration createLaunchConfiguration p1 = CreateLaunchConfiguration - { _clcLaunchConfigurationName = p1 - , _clcImageId = Nothing - , _clcKeyName = Nothing - , _clcSecurityGroups = mempty - , _clcUserData = Nothing - , _clcInstanceId = Nothing - , _clcInstanceType = Nothing - , _clcKernelId = Nothing - , _clcRamdiskId = Nothing - , _clcBlockDeviceMappings = mempty - , _clcInstanceMonitoring = Nothing - , _clcSpotPrice = Nothing - , _clcIamInstanceProfile = Nothing - , _clcEbsOptimized = Nothing - , _clcAssociatePublicIpAddress = Nothing - , _clcPlacementTenancy = Nothing + { _clcLaunchConfigurationName = p1 + , _clcImageId = Nothing + , _clcKeyName = Nothing + , _clcSecurityGroups = mempty + , _clcClassicLinkVPCId = Nothing + , _clcClassicLinkVPCSecurityGroups = mempty + , _clcUserData = Nothing + , _clcInstanceId = Nothing + , _clcInstanceType = Nothing + , _clcKernelId = Nothing + , _clcRamdiskId = Nothing + , _clcBlockDeviceMappings = mempty + , _clcInstanceMonitoring = Nothing + , _clcSpotPrice = Nothing + , _clcIamInstanceProfile = Nothing + , _clcEbsOptimized = Nothing + , _clcAssociatePublicIpAddress = Nothing + , _clcPlacementTenancy = Nothing } -- | Used for groups that launch instances into a virtual private cloud (VPC). @@ -161,6 +171,21 @@ lens _clcBlockDeviceMappings (\s a -> s { _clcBlockDeviceMappings = a }) . _List +-- | The ID of a ClassicLink-enabled VPC to link your EC2-Classic instances to. +-- This parameter can only be used if you are launching EC2-Classic instances. +-- For more information, see in the /Amazon Elastic Compute CloudUser Guide/. +clcClassicLinkVPCId :: Lens' CreateLaunchConfiguration (Maybe Text) +clcClassicLinkVPCId = + lens _clcClassicLinkVPCId (\s a -> s { _clcClassicLinkVPCId = a }) + +-- | The IDs of one or more security groups for the VPC specified in 'ClassicLinkVPCId'. This parameter is required if 'ClassicLinkVPCId' is specified, and cannot be +-- used otherwise. For more information, see in the /Amazon ElasticCompute Cloud User Guide/. +clcClassicLinkVPCSecurityGroups :: Lens' CreateLaunchConfiguration [Text] +clcClassicLinkVPCSecurityGroups = + lens _clcClassicLinkVPCSecurityGroups + (\s a -> s { _clcClassicLinkVPCSecurityGroups = a }) + . _List + -- | Indicates whether the instance is optimized for Amazon EBS I/O. By default, -- the instance is not optimized for EBS I/O. The optimization provides -- dedicated throughput to Amazon EBS and an optimized configuration stack to @@ -279,7 +304,7 @@ clcUserData = lens _clcUserData (\s a -> s { _clcUserData = a }) data CreateLaunchConfigurationResponse = CreateLaunchConfigurationResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'CreateLaunchConfigurationResponse' constructor. createLaunchConfigurationResponse :: CreateLaunchConfigurationResponse @@ -290,22 +315,24 @@ instance ToQuery CreateLaunchConfiguration where toQuery CreateLaunchConfiguration{..} = mconcat - [ "AssociatePublicIpAddress" =? _clcAssociatePublicIpAddress - , "BlockDeviceMappings" =? _clcBlockDeviceMappings - , "EbsOptimized" =? _clcEbsOptimized - , "IamInstanceProfile" =? _clcIamInstanceProfile - , "ImageId" =? _clcImageId - , "InstanceId" =? _clcInstanceId - , "InstanceMonitoring" =? _clcInstanceMonitoring - , "InstanceType" =? _clcInstanceType - , "KernelId" =? _clcKernelId - , "KeyName" =? _clcKeyName - , "LaunchConfigurationName" =? _clcLaunchConfigurationName - , "PlacementTenancy" =? _clcPlacementTenancy - , "RamdiskId" =? _clcRamdiskId - , "SecurityGroups" =? _clcSecurityGroups - , "SpotPrice" =? _clcSpotPrice - , "UserData" =? _clcUserData + [ "AssociatePublicIpAddress" =? _clcAssociatePublicIpAddress + , "BlockDeviceMappings" =? _clcBlockDeviceMappings + , "ClassicLinkVPCId" =? _clcClassicLinkVPCId + , "ClassicLinkVPCSecurityGroups" =? _clcClassicLinkVPCSecurityGroups + , "EbsOptimized" =? _clcEbsOptimized + , "IamInstanceProfile" =? _clcIamInstanceProfile + , "ImageId" =? _clcImageId + , "InstanceId" =? _clcInstanceId + , "InstanceMonitoring" =? _clcInstanceMonitoring + , "InstanceType" =? _clcInstanceType + , "KernelId" =? _clcKernelId + , "KeyName" =? _clcKeyName + , "LaunchConfigurationName" =? _clcLaunchConfigurationName + , "PlacementTenancy" =? _clcPlacementTenancy + , "RamdiskId" =? _clcRamdiskId + , "SecurityGroups" =? _clcSecurityGroups + , "SpotPrice" =? _clcSpotPrice + , "UserData" =? _clcUserData ] instance ToHeaders CreateLaunchConfiguration diff --git a/gen/Network/AWS/AutoScaling/CreateOrUpdateTags.hs b/gen/Network/AWS/AutoScaling/CreateOrUpdateTags.hs --- a/gen/Network/AWS/AutoScaling/CreateOrUpdateTags.hs +++ b/gen/Network/AWS/AutoScaling/CreateOrUpdateTags.hs @@ -52,7 +52,7 @@ newtype CreateOrUpdateTags = CreateOrUpdateTags { _coutTags :: List "member" Tag - } deriving (Eq, Show, Monoid, Semigroup) + } deriving (Eq, Read, Show, Monoid, Semigroup) instance GHC.Exts.IsList CreateOrUpdateTags where type Item CreateOrUpdateTags = Tag @@ -91,7 +91,7 @@ coutTags = lens _coutTags (\s a -> s { _coutTags = a }) . _List data CreateOrUpdateTagsResponse = CreateOrUpdateTagsResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'CreateOrUpdateTagsResponse' constructor. createOrUpdateTagsResponse :: CreateOrUpdateTagsResponse diff --git a/gen/Network/AWS/AutoScaling/DeleteAutoScalingGroup.hs b/gen/Network/AWS/AutoScaling/DeleteAutoScalingGroup.hs --- a/gen/Network/AWS/AutoScaling/DeleteAutoScalingGroup.hs +++ b/gen/Network/AWS/AutoScaling/DeleteAutoScalingGroup.hs @@ -53,7 +53,7 @@ data DeleteAutoScalingGroup = DeleteAutoScalingGroup { _dasgAutoScalingGroupName :: Text , _dasgForceDelete :: Maybe Bool - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'DeleteAutoScalingGroup' constructor. -- @@ -83,7 +83,7 @@ dasgForceDelete = lens _dasgForceDelete (\s a -> s { _dasgForceDelete = a }) data DeleteAutoScalingGroupResponse = DeleteAutoScalingGroupResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'DeleteAutoScalingGroupResponse' constructor. deleteAutoScalingGroupResponse :: DeleteAutoScalingGroupResponse diff --git a/gen/Network/AWS/AutoScaling/DeleteLaunchConfiguration.hs b/gen/Network/AWS/AutoScaling/DeleteLaunchConfiguration.hs --- a/gen/Network/AWS/AutoScaling/DeleteLaunchConfiguration.hs +++ b/gen/Network/AWS/AutoScaling/DeleteLaunchConfiguration.hs @@ -50,7 +50,7 @@ newtype DeleteLaunchConfiguration = DeleteLaunchConfiguration { _dlcLaunchConfigurationName :: Text - } deriving (Eq, Ord, Show, Monoid, IsString) + } deriving (Eq, Ord, Read, Show, Monoid, IsString) -- | 'DeleteLaunchConfiguration' constructor. -- @@ -71,7 +71,7 @@ (\s a -> s { _dlcLaunchConfigurationName = a }) data DeleteLaunchConfigurationResponse = DeleteLaunchConfigurationResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'DeleteLaunchConfigurationResponse' constructor. deleteLaunchConfigurationResponse :: DeleteLaunchConfigurationResponse diff --git a/gen/Network/AWS/AutoScaling/DeleteLifecycleHook.hs b/gen/Network/AWS/AutoScaling/DeleteLifecycleHook.hs --- a/gen/Network/AWS/AutoScaling/DeleteLifecycleHook.hs +++ b/gen/Network/AWS/AutoScaling/DeleteLifecycleHook.hs @@ -51,7 +51,7 @@ data DeleteLifecycleHook = DeleteLifecycleHook { _dlh1AutoScalingGroupName :: Text , _dlh1LifecycleHookName :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'DeleteLifecycleHook' constructor. -- @@ -81,7 +81,7 @@ lens _dlh1LifecycleHookName (\s a -> s { _dlh1LifecycleHookName = a }) data DeleteLifecycleHookResponse = DeleteLifecycleHookResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'DeleteLifecycleHookResponse' constructor. deleteLifecycleHookResponse :: DeleteLifecycleHookResponse diff --git a/gen/Network/AWS/AutoScaling/DeleteNotificationConfiguration.hs b/gen/Network/AWS/AutoScaling/DeleteNotificationConfiguration.hs --- a/gen/Network/AWS/AutoScaling/DeleteNotificationConfiguration.hs +++ b/gen/Network/AWS/AutoScaling/DeleteNotificationConfiguration.hs @@ -49,7 +49,7 @@ data DeleteNotificationConfiguration = DeleteNotificationConfiguration { _dncAutoScalingGroupName :: Text , _dncTopicARN :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'DeleteNotificationConfiguration' constructor. -- @@ -78,7 +78,7 @@ dncTopicARN = lens _dncTopicARN (\s a -> s { _dncTopicARN = a }) data DeleteNotificationConfigurationResponse = DeleteNotificationConfigurationResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'DeleteNotificationConfigurationResponse' constructor. deleteNotificationConfigurationResponse :: DeleteNotificationConfigurationResponse diff --git a/gen/Network/AWS/AutoScaling/DeletePolicy.hs b/gen/Network/AWS/AutoScaling/DeletePolicy.hs --- a/gen/Network/AWS/AutoScaling/DeletePolicy.hs +++ b/gen/Network/AWS/AutoScaling/DeletePolicy.hs @@ -49,7 +49,7 @@ data DeletePolicy = DeletePolicy { _dpAutoScalingGroupName :: Maybe Text , _dpPolicyName :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'DeletePolicy' constructor. -- @@ -76,7 +76,7 @@ dpPolicyName = lens _dpPolicyName (\s a -> s { _dpPolicyName = a }) data DeletePolicyResponse = DeletePolicyResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'DeletePolicyResponse' constructor. deletePolicyResponse :: DeletePolicyResponse diff --git a/gen/Network/AWS/AutoScaling/DeleteScheduledAction.hs b/gen/Network/AWS/AutoScaling/DeleteScheduledAction.hs --- a/gen/Network/AWS/AutoScaling/DeleteScheduledAction.hs +++ b/gen/Network/AWS/AutoScaling/DeleteScheduledAction.hs @@ -49,7 +49,7 @@ data DeleteScheduledAction = DeleteScheduledAction { _dsaAutoScalingGroupName :: Maybe Text , _dsaScheduledActionName :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'DeleteScheduledAction' constructor. -- @@ -77,7 +77,7 @@ lens _dsaScheduledActionName (\s a -> s { _dsaScheduledActionName = a }) data DeleteScheduledActionResponse = DeleteScheduledActionResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'DeleteScheduledActionResponse' constructor. deleteScheduledActionResponse :: DeleteScheduledActionResponse diff --git a/gen/Network/AWS/AutoScaling/DeleteTags.hs b/gen/Network/AWS/AutoScaling/DeleteTags.hs --- a/gen/Network/AWS/AutoScaling/DeleteTags.hs +++ b/gen/Network/AWS/AutoScaling/DeleteTags.hs @@ -47,7 +47,7 @@ newtype DeleteTags = DeleteTags { _dtTags :: List "member" Tag - } deriving (Eq, Show, Monoid, Semigroup) + } deriving (Eq, Read, Show, Monoid, Semigroup) instance GHC.Exts.IsList DeleteTags where type Item DeleteTags = Tag @@ -73,7 +73,7 @@ dtTags = lens _dtTags (\s a -> s { _dtTags = a }) . _List data DeleteTagsResponse = DeleteTagsResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'DeleteTagsResponse' constructor. deleteTagsResponse :: DeleteTagsResponse diff --git a/gen/Network/AWS/AutoScaling/DescribeAccountLimits.hs b/gen/Network/AWS/AutoScaling/DescribeAccountLimits.hs --- a/gen/Network/AWS/AutoScaling/DescribeAccountLimits.hs +++ b/gen/Network/AWS/AutoScaling/DescribeAccountLimits.hs @@ -49,7 +49,7 @@ import qualified GHC.Exts data DescribeAccountLimits = DescribeAccountLimits - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'DescribeAccountLimits' constructor. describeAccountLimits :: DescribeAccountLimits @@ -58,7 +58,7 @@ data DescribeAccountLimitsResponse = DescribeAccountLimitsResponse { _dalrMaxNumberOfAutoScalingGroups :: Maybe Int , _dalrMaxNumberOfLaunchConfigurations :: Maybe Int - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'DescribeAccountLimitsResponse' constructor. -- diff --git a/gen/Network/AWS/AutoScaling/DescribeAdjustmentTypes.hs b/gen/Network/AWS/AutoScaling/DescribeAdjustmentTypes.hs --- a/gen/Network/AWS/AutoScaling/DescribeAdjustmentTypes.hs +++ b/gen/Network/AWS/AutoScaling/DescribeAdjustmentTypes.hs @@ -46,7 +46,7 @@ import qualified GHC.Exts data DescribeAdjustmentTypes = DescribeAdjustmentTypes - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'DescribeAdjustmentTypes' constructor. describeAdjustmentTypes :: DescribeAdjustmentTypes @@ -54,7 +54,7 @@ newtype DescribeAdjustmentTypesResponse = DescribeAdjustmentTypesResponse { _datrAdjustmentTypes :: List "member" AdjustmentType - } deriving (Eq, Show, Monoid, Semigroup) + } deriving (Eq, Read, Show, Monoid, Semigroup) instance GHC.Exts.IsList DescribeAdjustmentTypesResponse where type Item DescribeAdjustmentTypesResponse = AdjustmentType diff --git a/gen/Network/AWS/AutoScaling/DescribeAutoScalingGroups.hs b/gen/Network/AWS/AutoScaling/DescribeAutoScalingGroups.hs --- a/gen/Network/AWS/AutoScaling/DescribeAutoScalingGroups.hs +++ b/gen/Network/AWS/AutoScaling/DescribeAutoScalingGroups.hs @@ -60,7 +60,7 @@ { _dasgAutoScalingGroupNames :: List "member" Text , _dasgMaxRecords :: Maybe Int , _dasgNextToken :: Maybe Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'DescribeAutoScalingGroups' constructor. -- @@ -98,7 +98,7 @@ data DescribeAutoScalingGroupsResponse = DescribeAutoScalingGroupsResponse { _dasgrAutoScalingGroups :: List "member" AutoScalingGroup , _dasgrNextToken :: Maybe Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'DescribeAutoScalingGroupsResponse' constructor. -- diff --git a/gen/Network/AWS/AutoScaling/DescribeAutoScalingInstances.hs b/gen/Network/AWS/AutoScaling/DescribeAutoScalingInstances.hs --- a/gen/Network/AWS/AutoScaling/DescribeAutoScalingInstances.hs +++ b/gen/Network/AWS/AutoScaling/DescribeAutoScalingInstances.hs @@ -60,7 +60,7 @@ { _dasiInstanceIds :: List "member" Text , _dasiMaxRecords :: Maybe Int , _dasiNextToken :: Maybe Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'DescribeAutoScalingInstances' constructor. -- @@ -97,7 +97,7 @@ data DescribeAutoScalingInstancesResponse = DescribeAutoScalingInstancesResponse { _dasirAutoScalingInstances :: List "member" AutoScalingInstanceDetails , _dasirNextToken :: Maybe Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'DescribeAutoScalingInstancesResponse' constructor. -- diff --git a/gen/Network/AWS/AutoScaling/DescribeAutoScalingNotificationTypes.hs b/gen/Network/AWS/AutoScaling/DescribeAutoScalingNotificationTypes.hs --- a/gen/Network/AWS/AutoScaling/DescribeAutoScalingNotificationTypes.hs +++ b/gen/Network/AWS/AutoScaling/DescribeAutoScalingNotificationTypes.hs @@ -46,7 +46,7 @@ import qualified GHC.Exts data DescribeAutoScalingNotificationTypes = DescribeAutoScalingNotificationTypes - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'DescribeAutoScalingNotificationTypes' constructor. describeAutoScalingNotificationTypes :: DescribeAutoScalingNotificationTypes @@ -54,7 +54,7 @@ newtype DescribeAutoScalingNotificationTypesResponse = DescribeAutoScalingNotificationTypesResponse { _dasntrAutoScalingNotificationTypes :: List "member" Text - } deriving (Eq, Ord, Show, Monoid, Semigroup) + } deriving (Eq, Ord, Read, Show, Monoid, Semigroup) instance GHC.Exts.IsList DescribeAutoScalingNotificationTypesResponse where type Item DescribeAutoScalingNotificationTypesResponse = Text diff --git a/gen/Network/AWS/AutoScaling/DescribeLaunchConfigurations.hs b/gen/Network/AWS/AutoScaling/DescribeLaunchConfigurations.hs --- a/gen/Network/AWS/AutoScaling/DescribeLaunchConfigurations.hs +++ b/gen/Network/AWS/AutoScaling/DescribeLaunchConfigurations.hs @@ -60,7 +60,7 @@ { _dlcLaunchConfigurationNames :: List "member" Text , _dlcMaxRecords :: Maybe Int , _dlcNextToken :: Maybe Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'DescribeLaunchConfigurations' constructor. -- @@ -98,7 +98,7 @@ data DescribeLaunchConfigurationsResponse = DescribeLaunchConfigurationsResponse { _dlcrLaunchConfigurations :: List "member" LaunchConfiguration , _dlcrNextToken :: Maybe Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'DescribeLaunchConfigurationsResponse' constructor. -- diff --git a/gen/Network/AWS/AutoScaling/DescribeLifecycleHookTypes.hs b/gen/Network/AWS/AutoScaling/DescribeLifecycleHookTypes.hs --- a/gen/Network/AWS/AutoScaling/DescribeLifecycleHookTypes.hs +++ b/gen/Network/AWS/AutoScaling/DescribeLifecycleHookTypes.hs @@ -46,7 +46,7 @@ import qualified GHC.Exts data DescribeLifecycleHookTypes = DescribeLifecycleHookTypes - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'DescribeLifecycleHookTypes' constructor. describeLifecycleHookTypes :: DescribeLifecycleHookTypes @@ -54,7 +54,7 @@ newtype DescribeLifecycleHookTypesResponse = DescribeLifecycleHookTypesResponse { _dlhtrLifecycleHookTypes :: List "member" Text - } deriving (Eq, Ord, Show, Monoid, Semigroup) + } deriving (Eq, Ord, Read, Show, Monoid, Semigroup) instance GHC.Exts.IsList DescribeLifecycleHookTypesResponse where type Item DescribeLifecycleHookTypesResponse = Text diff --git a/gen/Network/AWS/AutoScaling/DescribeLifecycleHooks.hs b/gen/Network/AWS/AutoScaling/DescribeLifecycleHooks.hs --- a/gen/Network/AWS/AutoScaling/DescribeLifecycleHooks.hs +++ b/gen/Network/AWS/AutoScaling/DescribeLifecycleHooks.hs @@ -51,7 +51,7 @@ data DescribeLifecycleHooks = DescribeLifecycleHooks { _dlhAutoScalingGroupName :: Text , _dlhLifecycleHookNames :: List "member" Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'DescribeLifecycleHooks' constructor. -- @@ -81,7 +81,7 @@ newtype DescribeLifecycleHooksResponse = DescribeLifecycleHooksResponse { _dlhrLifecycleHooks :: List "member" LifecycleHook - } deriving (Eq, Show, Monoid, Semigroup) + } deriving (Eq, Read, Show, Monoid, Semigroup) instance GHC.Exts.IsList DescribeLifecycleHooksResponse where type Item DescribeLifecycleHooksResponse = LifecycleHook diff --git a/gen/Network/AWS/AutoScaling/DescribeMetricCollectionTypes.hs b/gen/Network/AWS/AutoScaling/DescribeMetricCollectionTypes.hs --- a/gen/Network/AWS/AutoScaling/DescribeMetricCollectionTypes.hs +++ b/gen/Network/AWS/AutoScaling/DescribeMetricCollectionTypes.hs @@ -53,7 +53,7 @@ import qualified GHC.Exts data DescribeMetricCollectionTypes = DescribeMetricCollectionTypes - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'DescribeMetricCollectionTypes' constructor. describeMetricCollectionTypes :: DescribeMetricCollectionTypes @@ -62,7 +62,7 @@ data DescribeMetricCollectionTypesResponse = DescribeMetricCollectionTypesResponse { _dmctrGranularities :: List "member" MetricGranularityType , _dmctrMetrics :: List "member" MetricCollectionType - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'DescribeMetricCollectionTypesResponse' constructor. -- diff --git a/gen/Network/AWS/AutoScaling/DescribeNotificationConfigurations.hs b/gen/Network/AWS/AutoScaling/DescribeNotificationConfigurations.hs --- a/gen/Network/AWS/AutoScaling/DescribeNotificationConfigurations.hs +++ b/gen/Network/AWS/AutoScaling/DescribeNotificationConfigurations.hs @@ -55,7 +55,7 @@ { _dncAutoScalingGroupNames :: List "member" Text , _dncMaxRecords :: Maybe Int , _dncNextToken :: Maybe Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'DescribeNotificationConfigurations' constructor. -- @@ -93,7 +93,7 @@ data DescribeNotificationConfigurationsResponse = DescribeNotificationConfigurationsResponse { _dncrNextToken :: Maybe Text , _dncrNotificationConfigurations :: List "member" NotificationConfiguration - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'DescribeNotificationConfigurationsResponse' constructor. -- diff --git a/gen/Network/AWS/AutoScaling/DescribePolicies.hs b/gen/Network/AWS/AutoScaling/DescribePolicies.hs --- a/gen/Network/AWS/AutoScaling/DescribePolicies.hs +++ b/gen/Network/AWS/AutoScaling/DescribePolicies.hs @@ -61,7 +61,7 @@ , _dp1MaxRecords :: Maybe Int , _dp1NextToken :: Maybe Text , _dp1PolicyNames :: List "member" Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'DescribePolicies' constructor. -- @@ -107,7 +107,7 @@ data DescribePoliciesResponse = DescribePoliciesResponse { _dprNextToken :: Maybe Text , _dprScalingPolicies :: List "member" ScalingPolicy - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'DescribePoliciesResponse' constructor. -- diff --git a/gen/Network/AWS/AutoScaling/DescribeScalingActivities.hs b/gen/Network/AWS/AutoScaling/DescribeScalingActivities.hs --- a/gen/Network/AWS/AutoScaling/DescribeScalingActivities.hs +++ b/gen/Network/AWS/AutoScaling/DescribeScalingActivities.hs @@ -64,7 +64,7 @@ , _dsa2AutoScalingGroupName :: Maybe Text , _dsa2MaxRecords :: Maybe Int , _dsa2NextToken :: Maybe Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'DescribeScalingActivities' constructor. -- @@ -112,7 +112,7 @@ data DescribeScalingActivitiesResponse = DescribeScalingActivitiesResponse { _dsar1Activities :: List "member" Activity , _dsar1NextToken :: Maybe Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'DescribeScalingActivitiesResponse' constructor. -- diff --git a/gen/Network/AWS/AutoScaling/DescribeScalingProcessTypes.hs b/gen/Network/AWS/AutoScaling/DescribeScalingProcessTypes.hs --- a/gen/Network/AWS/AutoScaling/DescribeScalingProcessTypes.hs +++ b/gen/Network/AWS/AutoScaling/DescribeScalingProcessTypes.hs @@ -46,7 +46,7 @@ import qualified GHC.Exts data DescribeScalingProcessTypes = DescribeScalingProcessTypes - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'DescribeScalingProcessTypes' constructor. describeScalingProcessTypes :: DescribeScalingProcessTypes @@ -54,7 +54,7 @@ newtype DescribeScalingProcessTypesResponse = DescribeScalingProcessTypesResponse { _dsptrProcesses :: List "member" ProcessType - } deriving (Eq, Show, Monoid, Semigroup) + } deriving (Eq, Read, Show, Monoid, Semigroup) instance GHC.Exts.IsList DescribeScalingProcessTypesResponse where type Item DescribeScalingProcessTypesResponse = ProcessType diff --git a/gen/Network/AWS/AutoScaling/DescribeScheduledActions.hs b/gen/Network/AWS/AutoScaling/DescribeScheduledActions.hs --- a/gen/Network/AWS/AutoScaling/DescribeScheduledActions.hs +++ b/gen/Network/AWS/AutoScaling/DescribeScheduledActions.hs @@ -61,7 +61,7 @@ , _dsa1NextToken :: Maybe Text , _dsa1ScheduledActionNames :: List "member" Text , _dsa1StartTime :: Maybe ISO8601 - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'DescribeScheduledActions' constructor. -- @@ -130,7 +130,7 @@ data DescribeScheduledActionsResponse = DescribeScheduledActionsResponse { _dsarNextToken :: Maybe Text , _dsarScheduledUpdateGroupActions :: List "member" ScheduledUpdateGroupAction - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'DescribeScheduledActionsResponse' constructor. -- diff --git a/gen/Network/AWS/AutoScaling/DescribeTags.hs b/gen/Network/AWS/AutoScaling/DescribeTags.hs --- a/gen/Network/AWS/AutoScaling/DescribeTags.hs +++ b/gen/Network/AWS/AutoScaling/DescribeTags.hs @@ -63,7 +63,7 @@ { _dtFilters :: List "member" Filter , _dtMaxRecords :: Maybe Int , _dtNextToken :: Maybe Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'DescribeTags' constructor. -- @@ -101,7 +101,7 @@ data DescribeTagsResponse = DescribeTagsResponse { _dtrNextToken :: Maybe Text , _dtrTags :: List "member" TagDescription - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'DescribeTagsResponse' constructor. -- diff --git a/gen/Network/AWS/AutoScaling/DescribeTerminationPolicyTypes.hs b/gen/Network/AWS/AutoScaling/DescribeTerminationPolicyTypes.hs --- a/gen/Network/AWS/AutoScaling/DescribeTerminationPolicyTypes.hs +++ b/gen/Network/AWS/AutoScaling/DescribeTerminationPolicyTypes.hs @@ -46,7 +46,7 @@ import qualified GHC.Exts data DescribeTerminationPolicyTypes = DescribeTerminationPolicyTypes - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'DescribeTerminationPolicyTypes' constructor. describeTerminationPolicyTypes :: DescribeTerminationPolicyTypes @@ -54,7 +54,7 @@ newtype DescribeTerminationPolicyTypesResponse = DescribeTerminationPolicyTypesResponse { _dtptrTerminationPolicyTypes :: List "member" Text - } deriving (Eq, Ord, Show, Monoid, Semigroup) + } deriving (Eq, Ord, Read, Show, Monoid, Semigroup) instance GHC.Exts.IsList DescribeTerminationPolicyTypesResponse where type Item DescribeTerminationPolicyTypesResponse = Text diff --git a/gen/Network/AWS/AutoScaling/DetachInstances.hs b/gen/Network/AWS/AutoScaling/DetachInstances.hs --- a/gen/Network/AWS/AutoScaling/DetachInstances.hs +++ b/gen/Network/AWS/AutoScaling/DetachInstances.hs @@ -58,7 +58,7 @@ { _diAutoScalingGroupName :: Text , _diInstanceIds :: List "member" Text , _diShouldDecrementDesiredCapacity :: Bool - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'DetachInstances' constructor. -- @@ -97,7 +97,7 @@ newtype DetachInstancesResponse = DetachInstancesResponse { _dirActivities :: List "member" Activity - } deriving (Eq, Show, Monoid, Semigroup) + } deriving (Eq, Read, Show, Monoid, Semigroup) instance GHC.Exts.IsList DetachInstancesResponse where type Item DetachInstancesResponse = Activity diff --git a/gen/Network/AWS/AutoScaling/DisableMetricsCollection.hs b/gen/Network/AWS/AutoScaling/DisableMetricsCollection.hs --- a/gen/Network/AWS/AutoScaling/DisableMetricsCollection.hs +++ b/gen/Network/AWS/AutoScaling/DisableMetricsCollection.hs @@ -50,7 +50,7 @@ data DisableMetricsCollection = DisableMetricsCollection { _dmcAutoScalingGroupName :: Text , _dmcMetrics :: List "member" Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'DisableMetricsCollection' constructor. -- @@ -95,7 +95,7 @@ dmcMetrics = lens _dmcMetrics (\s a -> s { _dmcMetrics = a }) . _List data DisableMetricsCollectionResponse = DisableMetricsCollectionResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'DisableMetricsCollectionResponse' constructor. disableMetricsCollectionResponse :: DisableMetricsCollectionResponse diff --git a/gen/Network/AWS/AutoScaling/EnableMetricsCollection.hs b/gen/Network/AWS/AutoScaling/EnableMetricsCollection.hs --- a/gen/Network/AWS/AutoScaling/EnableMetricsCollection.hs +++ b/gen/Network/AWS/AutoScaling/EnableMetricsCollection.hs @@ -55,7 +55,7 @@ { _emcAutoScalingGroupName :: Text , _emcGranularity :: Text , _emcMetrics :: List "member" Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'EnableMetricsCollection' constructor. -- @@ -114,7 +114,7 @@ emcMetrics = lens _emcMetrics (\s a -> s { _emcMetrics = a }) . _List data EnableMetricsCollectionResponse = EnableMetricsCollectionResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'EnableMetricsCollectionResponse' constructor. enableMetricsCollectionResponse :: EnableMetricsCollectionResponse diff --git a/gen/Network/AWS/AutoScaling/EnterStandby.hs b/gen/Network/AWS/AutoScaling/EnterStandby.hs --- a/gen/Network/AWS/AutoScaling/EnterStandby.hs +++ b/gen/Network/AWS/AutoScaling/EnterStandby.hs @@ -55,7 +55,7 @@ { _esAutoScalingGroupName :: Text , _esInstanceIds :: List "member" Text , _esShouldDecrementDesiredCapacity :: Bool - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'EnterStandby' constructor. -- @@ -97,7 +97,7 @@ newtype EnterStandbyResponse = EnterStandbyResponse { _esr1Activities :: List "member" Activity - } deriving (Eq, Show, Monoid, Semigroup) + } deriving (Eq, Read, Show, Monoid, Semigroup) instance GHC.Exts.IsList EnterStandbyResponse where type Item EnterStandbyResponse = Activity diff --git a/gen/Network/AWS/AutoScaling/ExecutePolicy.hs b/gen/Network/AWS/AutoScaling/ExecutePolicy.hs --- a/gen/Network/AWS/AutoScaling/ExecutePolicy.hs +++ b/gen/Network/AWS/AutoScaling/ExecutePolicy.hs @@ -51,7 +51,7 @@ { _epAutoScalingGroupName :: Maybe Text , _epHonorCooldown :: Maybe Bool , _epPolicyName :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'ExecutePolicy' constructor. -- @@ -93,7 +93,7 @@ epPolicyName = lens _epPolicyName (\s a -> s { _epPolicyName = a }) data ExecutePolicyResponse = ExecutePolicyResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'ExecutePolicyResponse' constructor. executePolicyResponse :: ExecutePolicyResponse diff --git a/gen/Network/AWS/AutoScaling/ExitStandby.hs b/gen/Network/AWS/AutoScaling/ExitStandby.hs --- a/gen/Network/AWS/AutoScaling/ExitStandby.hs +++ b/gen/Network/AWS/AutoScaling/ExitStandby.hs @@ -53,7 +53,7 @@ data ExitStandby = ExitStandby { _es1AutoScalingGroupName :: Text , _es1InstanceIds :: List "member" Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'ExitStandby' constructor. -- @@ -81,7 +81,7 @@ newtype ExitStandbyResponse = ExitStandbyResponse { _esrActivities :: List "member" Activity - } deriving (Eq, Show, Monoid, Semigroup) + } deriving (Eq, Read, Show, Monoid, Semigroup) instance GHC.Exts.IsList ExitStandbyResponse where type Item ExitStandbyResponse = Activity diff --git a/gen/Network/AWS/AutoScaling/PutLifecycleHook.hs b/gen/Network/AWS/AutoScaling/PutLifecycleHook.hs --- a/gen/Network/AWS/AutoScaling/PutLifecycleHook.hs +++ b/gen/Network/AWS/AutoScaling/PutLifecycleHook.hs @@ -74,7 +74,7 @@ , _plhNotificationMetadata :: Maybe Text , _plhNotificationTargetARN :: Maybe Text , _plhRoleARN :: Maybe Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'PutLifecycleHook' constructor. -- @@ -189,7 +189,7 @@ plhRoleARN = lens _plhRoleARN (\s a -> s { _plhRoleARN = a }) data PutLifecycleHookResponse = PutLifecycleHookResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'PutLifecycleHookResponse' constructor. putLifecycleHookResponse :: PutLifecycleHookResponse diff --git a/gen/Network/AWS/AutoScaling/PutNotificationConfiguration.hs b/gen/Network/AWS/AutoScaling/PutNotificationConfiguration.hs --- a/gen/Network/AWS/AutoScaling/PutNotificationConfiguration.hs +++ b/gen/Network/AWS/AutoScaling/PutNotificationConfiguration.hs @@ -57,7 +57,7 @@ { _pncAutoScalingGroupName :: Text , _pncNotificationTypes :: List "member" Text , _pncTopicARN :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'PutNotificationConfiguration' constructor. -- @@ -96,7 +96,7 @@ pncTopicARN = lens _pncTopicARN (\s a -> s { _pncTopicARN = a }) data PutNotificationConfigurationResponse = PutNotificationConfigurationResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'PutNotificationConfigurationResponse' constructor. putNotificationConfigurationResponse :: PutNotificationConfigurationResponse diff --git a/gen/Network/AWS/AutoScaling/PutScalingPolicy.hs b/gen/Network/AWS/AutoScaling/PutScalingPolicy.hs --- a/gen/Network/AWS/AutoScaling/PutScalingPolicy.hs +++ b/gen/Network/AWS/AutoScaling/PutScalingPolicy.hs @@ -62,7 +62,7 @@ , _pspMinAdjustmentStep :: Maybe Int , _pspPolicyName :: Text , _pspScalingAdjustment :: Int - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'PutScalingPolicy' constructor. -- @@ -140,7 +140,7 @@ newtype PutScalingPolicyResponse = PutScalingPolicyResponse { _psprPolicyARN :: Maybe Text - } deriving (Eq, Ord, Show, Monoid) + } deriving (Eq, Ord, Read, Show, Monoid) -- | 'PutScalingPolicyResponse' constructor. -- diff --git a/gen/Network/AWS/AutoScaling/PutScheduledUpdateGroupAction.hs b/gen/Network/AWS/AutoScaling/PutScheduledUpdateGroupAction.hs --- a/gen/Network/AWS/AutoScaling/PutScheduledUpdateGroupAction.hs +++ b/gen/Network/AWS/AutoScaling/PutScheduledUpdateGroupAction.hs @@ -73,7 +73,7 @@ , _psugaScheduledActionName :: Text , _psugaStartTime :: Maybe ISO8601 , _psugaTime :: Maybe ISO8601 - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'PutScheduledUpdateGroupAction' constructor. -- @@ -169,7 +169,7 @@ psugaTime = lens _psugaTime (\s a -> s { _psugaTime = a }) . mapping _Time data PutScheduledUpdateGroupActionResponse = PutScheduledUpdateGroupActionResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'PutScheduledUpdateGroupActionResponse' constructor. putScheduledUpdateGroupActionResponse :: PutScheduledUpdateGroupActionResponse diff --git a/gen/Network/AWS/AutoScaling/RecordLifecycleActionHeartbeat.hs b/gen/Network/AWS/AutoScaling/RecordLifecycleActionHeartbeat.hs --- a/gen/Network/AWS/AutoScaling/RecordLifecycleActionHeartbeat.hs +++ b/gen/Network/AWS/AutoScaling/RecordLifecycleActionHeartbeat.hs @@ -61,7 +61,7 @@ { _rlahAutoScalingGroupName :: Text , _rlahLifecycleActionToken :: Text , _rlahLifecycleHookName :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'RecordLifecycleActionHeartbeat' constructor. -- @@ -103,7 +103,7 @@ lens _rlahLifecycleHookName (\s a -> s { _rlahLifecycleHookName = a }) data RecordLifecycleActionHeartbeatResponse = RecordLifecycleActionHeartbeatResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'RecordLifecycleActionHeartbeatResponse' constructor. recordLifecycleActionHeartbeatResponse :: RecordLifecycleActionHeartbeatResponse diff --git a/gen/Network/AWS/AutoScaling/ResumeProcesses.hs b/gen/Network/AWS/AutoScaling/ResumeProcesses.hs --- a/gen/Network/AWS/AutoScaling/ResumeProcesses.hs +++ b/gen/Network/AWS/AutoScaling/ResumeProcesses.hs @@ -52,7 +52,7 @@ data ResumeProcesses = ResumeProcesses { _rpAutoScalingGroupName :: Text , _rpScalingProcesses :: List "member" Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'ResumeProcesses' constructor. -- @@ -84,7 +84,7 @@ . _List data ResumeProcessesResponse = ResumeProcessesResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'ResumeProcessesResponse' constructor. resumeProcessesResponse :: ResumeProcessesResponse diff --git a/gen/Network/AWS/AutoScaling/SetDesiredCapacity.hs b/gen/Network/AWS/AutoScaling/SetDesiredCapacity.hs --- a/gen/Network/AWS/AutoScaling/SetDesiredCapacity.hs +++ b/gen/Network/AWS/AutoScaling/SetDesiredCapacity.hs @@ -51,7 +51,7 @@ { _sdcAutoScalingGroupName :: Text , _sdcDesiredCapacity :: Int , _sdcHonorCooldown :: Maybe Bool - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'SetDesiredCapacity' constructor. -- @@ -91,7 +91,7 @@ sdcHonorCooldown = lens _sdcHonorCooldown (\s a -> s { _sdcHonorCooldown = a }) data SetDesiredCapacityResponse = SetDesiredCapacityResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'SetDesiredCapacityResponse' constructor. setDesiredCapacityResponse :: SetDesiredCapacityResponse diff --git a/gen/Network/AWS/AutoScaling/SetInstanceHealth.hs b/gen/Network/AWS/AutoScaling/SetInstanceHealth.hs --- a/gen/Network/AWS/AutoScaling/SetInstanceHealth.hs +++ b/gen/Network/AWS/AutoScaling/SetInstanceHealth.hs @@ -53,7 +53,7 @@ { _sihHealthStatus :: Text , _sihInstanceId :: Text , _sihShouldRespectGracePeriod :: Maybe Bool - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'SetInstanceHealth' constructor. -- @@ -96,7 +96,7 @@ (\s a -> s { _sihShouldRespectGracePeriod = a }) data SetInstanceHealthResponse = SetInstanceHealthResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'SetInstanceHealthResponse' constructor. setInstanceHealthResponse :: SetInstanceHealthResponse diff --git a/gen/Network/AWS/AutoScaling/SuspendProcesses.hs b/gen/Network/AWS/AutoScaling/SuspendProcesses.hs --- a/gen/Network/AWS/AutoScaling/SuspendProcesses.hs +++ b/gen/Network/AWS/AutoScaling/SuspendProcesses.hs @@ -58,7 +58,7 @@ data SuspendProcesses = SuspendProcesses { _spAutoScalingGroupName :: Text , _spScalingProcesses :: List "member" Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'SuspendProcesses' constructor. -- @@ -90,7 +90,7 @@ . _List data SuspendProcessesResponse = SuspendProcessesResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'SuspendProcessesResponse' constructor. suspendProcessesResponse :: SuspendProcessesResponse diff --git a/gen/Network/AWS/AutoScaling/TerminateInstanceInAutoScalingGroup.hs b/gen/Network/AWS/AutoScaling/TerminateInstanceInAutoScalingGroup.hs --- a/gen/Network/AWS/AutoScaling/TerminateInstanceInAutoScalingGroup.hs +++ b/gen/Network/AWS/AutoScaling/TerminateInstanceInAutoScalingGroup.hs @@ -55,7 +55,7 @@ data TerminateInstanceInAutoScalingGroup = TerminateInstanceInAutoScalingGroup { _tiiasgInstanceId :: Text , _tiiasgShouldDecrementDesiredCapacity :: Bool - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'TerminateInstanceInAutoScalingGroup' constructor. -- @@ -86,7 +86,7 @@ newtype TerminateInstanceInAutoScalingGroupResponse = TerminateInstanceInAutoScalingGroupResponse { _tiiasgrActivity :: Maybe Activity - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'TerminateInstanceInAutoScalingGroupResponse' constructor. -- diff --git a/gen/Network/AWS/AutoScaling/Types.hs b/gen/Network/AWS/AutoScaling/Types.hs --- a/gen/Network/AWS/AutoScaling/Types.hs +++ b/gen/Network/AWS/AutoScaling/Types.hs @@ -70,6 +70,8 @@ , launchConfiguration , lcAssociatePublicIpAddress , lcBlockDeviceMappings + , lcClassicLinkVPCId + , lcClassicLinkVPCSecurityGroups , lcCreatedTime , lcEbsOptimized , lcIamInstanceProfile @@ -309,7 +311,7 @@ , _tdResourceId :: Text , _tdResourceType :: Text , _tdValue :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'TagDescription' constructor. -- @@ -386,7 +388,7 @@ , _tagResourceId :: Text , _tagResourceType :: Text , _tagValue :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'Tag' constructor. -- @@ -461,7 +463,7 @@ { _ncAutoScalingGroupName :: Maybe Text , _ncNotificationType :: Maybe Text , _ncTopicARN :: Maybe Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'NotificationConfiguration' constructor. -- @@ -513,7 +515,7 @@ , _bdmEbs :: Maybe Ebs , _bdmNoDevice :: Maybe Bool , _bdmVirtualName :: Maybe Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'BlockDeviceMapping' constructor. -- @@ -572,24 +574,26 @@ ] data LaunchConfiguration = LaunchConfiguration - { _lcAssociatePublicIpAddress :: Maybe Bool - , _lcBlockDeviceMappings :: List "member" BlockDeviceMapping - , _lcCreatedTime :: ISO8601 - , _lcEbsOptimized :: Maybe Bool - , _lcIamInstanceProfile :: Maybe Text - , _lcImageId :: Text - , _lcInstanceMonitoring :: Maybe InstanceMonitoring - , _lcInstanceType :: Text - , _lcKernelId :: Maybe Text - , _lcKeyName :: Maybe Text - , _lcLaunchConfigurationARN :: Maybe Text - , _lcLaunchConfigurationName :: Text - , _lcPlacementTenancy :: Maybe Text - , _lcRamdiskId :: Maybe Text - , _lcSecurityGroups :: List "member" Text - , _lcSpotPrice :: Maybe Text - , _lcUserData :: Maybe Text - } deriving (Eq, Show) + { _lcAssociatePublicIpAddress :: Maybe Bool + , _lcBlockDeviceMappings :: List "member" BlockDeviceMapping + , _lcClassicLinkVPCId :: Maybe Text + , _lcClassicLinkVPCSecurityGroups :: List "member" Text + , _lcCreatedTime :: ISO8601 + , _lcEbsOptimized :: Maybe Bool + , _lcIamInstanceProfile :: Maybe Text + , _lcImageId :: Text + , _lcInstanceMonitoring :: Maybe InstanceMonitoring + , _lcInstanceType :: Text + , _lcKernelId :: Maybe Text + , _lcKeyName :: Maybe Text + , _lcLaunchConfigurationARN :: Maybe Text + , _lcLaunchConfigurationName :: Text + , _lcPlacementTenancy :: Maybe Text + , _lcRamdiskId :: Maybe Text + , _lcSecurityGroups :: List "member" Text + , _lcSpotPrice :: Maybe Text + , _lcUserData :: Maybe Text + } deriving (Eq, Read, Show) -- | 'LaunchConfiguration' constructor. -- @@ -599,6 +603,10 @@ -- -- * 'lcBlockDeviceMappings' @::@ ['BlockDeviceMapping'] -- +-- * 'lcClassicLinkVPCId' @::@ 'Maybe' 'Text' +-- +-- * 'lcClassicLinkVPCSecurityGroups' @::@ ['Text'] +-- -- * 'lcCreatedTime' @::@ 'UTCTime' -- -- * 'lcEbsOptimized' @::@ 'Maybe' 'Bool' @@ -635,23 +643,25 @@ -> UTCTime -- ^ 'lcCreatedTime' -> LaunchConfiguration launchConfiguration p1 p2 p3 p4 = LaunchConfiguration - { _lcLaunchConfigurationName = p1 - , _lcImageId = p2 - , _lcInstanceType = p3 - , _lcCreatedTime = withIso _Time (const id) p4 - , _lcLaunchConfigurationARN = Nothing - , _lcKeyName = Nothing - , _lcSecurityGroups = mempty - , _lcUserData = Nothing - , _lcKernelId = Nothing - , _lcRamdiskId = Nothing - , _lcBlockDeviceMappings = mempty - , _lcInstanceMonitoring = Nothing - , _lcSpotPrice = Nothing - , _lcIamInstanceProfile = Nothing - , _lcEbsOptimized = Nothing - , _lcAssociatePublicIpAddress = Nothing - , _lcPlacementTenancy = Nothing + { _lcLaunchConfigurationName = p1 + , _lcImageId = p2 + , _lcInstanceType = p3 + , _lcCreatedTime = withIso _Time (const id) p4 + , _lcLaunchConfigurationARN = Nothing + , _lcKeyName = Nothing + , _lcSecurityGroups = mempty + , _lcClassicLinkVPCId = Nothing + , _lcClassicLinkVPCSecurityGroups = mempty + , _lcUserData = Nothing + , _lcKernelId = Nothing + , _lcRamdiskId = Nothing + , _lcBlockDeviceMappings = mempty + , _lcInstanceMonitoring = Nothing + , _lcSpotPrice = Nothing + , _lcIamInstanceProfile = Nothing + , _lcEbsOptimized = Nothing + , _lcAssociatePublicIpAddress = Nothing + , _lcPlacementTenancy = Nothing } -- | Specifies whether the EC2 instances are associated with a public IP address ('true') or not ('false'). @@ -667,6 +677,21 @@ lens _lcBlockDeviceMappings (\s a -> s { _lcBlockDeviceMappings = a }) . _List +-- | The ID of a ClassicLink-enabled VPC to link your EC2-Classic instances to. +-- This parameter can only be used if you are launching EC2-Classic instances. +-- For more information, see in the /Amazon Elastic Compute CloudUser Guide/. +lcClassicLinkVPCId :: Lens' LaunchConfiguration (Maybe Text) +lcClassicLinkVPCId = + lens _lcClassicLinkVPCId (\s a -> s { _lcClassicLinkVPCId = a }) + +-- | The IDs of one or more security groups for the VPC specified in 'ClassicLinkVPCId'. This parameter is required if 'ClassicLinkVPCId' is specified, and cannot be +-- used otherwise. For more information, see in the /Amazon ElasticCompute Cloud User Guide/. +lcClassicLinkVPCSecurityGroups :: Lens' LaunchConfiguration [Text] +lcClassicLinkVPCSecurityGroups = + lens _lcClassicLinkVPCSecurityGroups + (\s a -> s { _lcClassicLinkVPCSecurityGroups = a }) + . _List + -- | The creation date and time for the launch configuration. lcCreatedTime :: Lens' LaunchConfiguration UTCTime lcCreatedTime = lens _lcCreatedTime (\s a -> s { _lcCreatedTime = a }) . _Time @@ -741,6 +766,8 @@ parseXML x = LaunchConfiguration <$> x .@? "AssociatePublicIpAddress" <*> x .@? "BlockDeviceMappings" .!@ mempty + <*> x .@? "ClassicLinkVPCId" + <*> x .@? "ClassicLinkVPCSecurityGroups" .!@ mempty <*> x .@ "CreatedTime" <*> x .@? "EbsOptimized" <*> x .@? "IamInstanceProfile" @@ -759,23 +786,25 @@ instance ToQuery LaunchConfiguration where toQuery LaunchConfiguration{..} = mconcat - [ "AssociatePublicIpAddress" =? _lcAssociatePublicIpAddress - , "BlockDeviceMappings" =? _lcBlockDeviceMappings - , "CreatedTime" =? _lcCreatedTime - , "EbsOptimized" =? _lcEbsOptimized - , "IamInstanceProfile" =? _lcIamInstanceProfile - , "ImageId" =? _lcImageId - , "InstanceMonitoring" =? _lcInstanceMonitoring - , "InstanceType" =? _lcInstanceType - , "KernelId" =? _lcKernelId - , "KeyName" =? _lcKeyName - , "LaunchConfigurationARN" =? _lcLaunchConfigurationARN - , "LaunchConfigurationName" =? _lcLaunchConfigurationName - , "PlacementTenancy" =? _lcPlacementTenancy - , "RamdiskId" =? _lcRamdiskId - , "SecurityGroups" =? _lcSecurityGroups - , "SpotPrice" =? _lcSpotPrice - , "UserData" =? _lcUserData + [ "AssociatePublicIpAddress" =? _lcAssociatePublicIpAddress + , "BlockDeviceMappings" =? _lcBlockDeviceMappings + , "ClassicLinkVPCId" =? _lcClassicLinkVPCId + , "ClassicLinkVPCSecurityGroups" =? _lcClassicLinkVPCSecurityGroups + , "CreatedTime" =? _lcCreatedTime + , "EbsOptimized" =? _lcEbsOptimized + , "IamInstanceProfile" =? _lcIamInstanceProfile + , "ImageId" =? _lcImageId + , "InstanceMonitoring" =? _lcInstanceMonitoring + , "InstanceType" =? _lcInstanceType + , "KernelId" =? _lcKernelId + , "KeyName" =? _lcKeyName + , "LaunchConfigurationARN" =? _lcLaunchConfigurationARN + , "LaunchConfigurationName" =? _lcLaunchConfigurationName + , "PlacementTenancy" =? _lcPlacementTenancy + , "RamdiskId" =? _lcRamdiskId + , "SecurityGroups" =? _lcSecurityGroups + , "SpotPrice" =? _lcSpotPrice + , "UserData" =? _lcUserData ] data AutoScalingGroup = AutoScalingGroup @@ -799,7 +828,7 @@ , _asgTags :: List "member" TagDescription , _asgTerminationPolicies :: List "member" Text , _asgVPCZoneIdentifier :: Maybe Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'AutoScalingGroup' constructor. -- @@ -1043,7 +1072,7 @@ , _sp1PolicyARN :: Maybe Text , _sp1PolicyName :: Maybe Text , _sp1ScalingAdjustment :: Maybe Int - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ScalingPolicy' constructor. -- @@ -1144,7 +1173,7 @@ newtype InstanceMonitoring = InstanceMonitoring { _imEnabled :: Maybe Bool - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'InstanceMonitoring' constructor. -- @@ -1181,7 +1210,7 @@ , _sugaScheduledActionName :: Maybe Text , _sugaStartTime :: Maybe ISO8601 , _sugaTime :: Maybe ISO8601 - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'ScheduledUpdateGroupAction' constructor. -- @@ -1303,7 +1332,7 @@ data ScalingProcessQuery = ScalingProcessQuery { _spqAutoScalingGroupName :: Text , _spqScalingProcesses :: List "member" Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'ScalingProcessQuery' constructor. -- @@ -1351,7 +1380,7 @@ , _ebsSnapshotId :: Maybe Text , _ebsVolumeSize :: Maybe Nat , _ebsVolumeType :: Maybe Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'Ebs' constructor. -- @@ -1436,7 +1465,7 @@ newtype AdjustmentType = AdjustmentType { _atAdjustmentType :: Maybe Text - } deriving (Eq, Ord, Show, Monoid) + } deriving (Eq, Ord, Read, Show, Monoid) -- | 'AdjustmentType' constructor. -- @@ -1467,7 +1496,7 @@ newtype MetricCollectionType = MetricCollectionType { _mctMetric :: Maybe Text - } deriving (Eq, Ord, Show, Monoid) + } deriving (Eq, Ord, Read, Show, Monoid) -- | 'MetricCollectionType' constructor. -- @@ -1503,7 +1532,7 @@ , _lhNotificationMetadata :: Maybe Text , _lhNotificationTargetARN :: Maybe Text , _lhRoleARN :: Maybe Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'LifecycleHook' constructor. -- @@ -1630,7 +1659,7 @@ , _aStartTime :: ISO8601 , _aStatusCode :: ScalingActivityStatusCode , _aStatusMessage :: Maybe Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'Activity' constructor. -- @@ -1746,7 +1775,7 @@ data SuspendedProcess = SuspendedProcess { _spProcessName :: Maybe Text , _spSuspensionReason :: Maybe Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'SuspendedProcess' constructor. -- @@ -1784,7 +1813,7 @@ newtype MetricGranularityType = MetricGranularityType { _mgtGranularity :: Maybe Text - } deriving (Eq, Ord, Show, Monoid) + } deriving (Eq, Ord, Read, Show, Monoid) -- | 'MetricGranularityType' constructor. -- @@ -1813,7 +1842,7 @@ data Filter = Filter { _fName :: Text , _fValues :: List "member" Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'Filter' constructor. -- @@ -1851,7 +1880,7 @@ newtype ProcessType = ProcessType { _ptProcessName :: Text - } deriving (Eq, Ord, Show, Monoid, IsString) + } deriving (Eq, Ord, Read, Show, Monoid, IsString) -- | 'ProcessType' constructor. -- @@ -1881,7 +1910,7 @@ data Alarm = Alarm { _aAlarmARN :: Maybe Text , _aAlarmName :: Maybe Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'Alarm' constructor. -- @@ -1919,7 +1948,7 @@ data EnabledMetric = EnabledMetric { _emGranularity :: Maybe Text , _emMetric :: Maybe Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'EnabledMetric' constructor. -- @@ -1960,7 +1989,7 @@ , _iInstanceId :: Text , _iLaunchConfigurationName :: Text , _iLifecycleState :: LifecycleState - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'Instance' constructor. -- @@ -2048,7 +2077,7 @@ | Terminating -- ^ Terminating | TerminatingProceed -- ^ Terminating:Proceed | TerminatingWait -- ^ Terminating:Wait - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable LifecycleState @@ -2100,7 +2129,7 @@ , _asidInstanceId :: Text , _asidLaunchConfigurationName :: Text , _asidLifecycleState :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'AutoScalingInstanceDetails' constructor. -- @@ -2196,7 +2225,7 @@ | WaitingForInstanceId -- ^ WaitingForInstanceId | WaitingForSpotInstanceId -- ^ WaitingForSpotInstanceId | WaitingForSpotInstanceRequestId -- ^ WaitingForSpotInstanceRequestId - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable ScalingActivityStatusCode diff --git a/gen/Network/AWS/AutoScaling/UpdateAutoScalingGroup.hs b/gen/Network/AWS/AutoScaling/UpdateAutoScalingGroup.hs --- a/gen/Network/AWS/AutoScaling/UpdateAutoScalingGroup.hs +++ b/gen/Network/AWS/AutoScaling/UpdateAutoScalingGroup.hs @@ -91,7 +91,7 @@ , _uasgPlacementGroup :: Maybe Text , _uasgTerminationPolicies :: List "member" Text , _uasgVPCZoneIdentifier :: Maybe Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'UpdateAutoScalingGroup' constructor. -- @@ -223,7 +223,7 @@ lens _uasgVPCZoneIdentifier (\s a -> s { _uasgVPCZoneIdentifier = a }) data UpdateAutoScalingGroupResponse = UpdateAutoScalingGroupResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'UpdateAutoScalingGroupResponse' constructor. updateAutoScalingGroupResponse :: UpdateAutoScalingGroupResponse