amazonka-autoscaling 0.2.1 → 0.2.2

raw patch · 47 files changed

+272/−216 lines, 47 filesdep ~amazonka-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core

API changes (from Hackage documentation)

Files

• amazonka-autoscaling.cabal +2/−2
• gen/Network/AWS/AutoScaling/AttachInstances.hs +2/−2
• gen/Network/AWS/AutoScaling/CompleteLifecycleAction.hs +2/−2
• gen/Network/AWS/AutoScaling/CreateAutoScalingGroup.hs +2/−2
• gen/Network/AWS/AutoScaling/CreateLaunchConfiguration.hs +77/−50
• gen/Network/AWS/AutoScaling/CreateOrUpdateTags.hs +2/−2
• gen/Network/AWS/AutoScaling/DeleteAutoScalingGroup.hs +2/−2
• gen/Network/AWS/AutoScaling/DeleteLaunchConfiguration.hs +2/−2
• gen/Network/AWS/AutoScaling/DeleteLifecycleHook.hs +2/−2
• gen/Network/AWS/AutoScaling/DeleteNotificationConfiguration.hs +2/−2
• gen/Network/AWS/AutoScaling/DeletePolicy.hs +2/−2
• gen/Network/AWS/AutoScaling/DeleteScheduledAction.hs +2/−2
• gen/Network/AWS/AutoScaling/DeleteTags.hs +2/−2
• gen/Network/AWS/AutoScaling/DescribeAccountLimits.hs +2/−2
• gen/Network/AWS/AutoScaling/DescribeAdjustmentTypes.hs +2/−2
• gen/Network/AWS/AutoScaling/DescribeAutoScalingGroups.hs +2/−2
• gen/Network/AWS/AutoScaling/DescribeAutoScalingInstances.hs +2/−2
• gen/Network/AWS/AutoScaling/DescribeAutoScalingNotificationTypes.hs +2/−2
• gen/Network/AWS/AutoScaling/DescribeLaunchConfigurations.hs +2/−2
• gen/Network/AWS/AutoScaling/DescribeLifecycleHookTypes.hs +2/−2
• gen/Network/AWS/AutoScaling/DescribeLifecycleHooks.hs +2/−2
• gen/Network/AWS/AutoScaling/DescribeMetricCollectionTypes.hs +2/−2
• gen/Network/AWS/AutoScaling/DescribeNotificationConfigurations.hs +2/−2
• gen/Network/AWS/AutoScaling/DescribePolicies.hs +2/−2
• gen/Network/AWS/AutoScaling/DescribeScalingActivities.hs +2/−2
• gen/Network/AWS/AutoScaling/DescribeScalingProcessTypes.hs +2/−2
• gen/Network/AWS/AutoScaling/DescribeScheduledActions.hs +2/−2
• gen/Network/AWS/AutoScaling/DescribeTags.hs +2/−2
• gen/Network/AWS/AutoScaling/DescribeTerminationPolicyTypes.hs +2/−2
• gen/Network/AWS/AutoScaling/DetachInstances.hs +2/−2
• gen/Network/AWS/AutoScaling/DisableMetricsCollection.hs +2/−2
• gen/Network/AWS/AutoScaling/EnableMetricsCollection.hs +2/−2
• gen/Network/AWS/AutoScaling/EnterStandby.hs +2/−2
• gen/Network/AWS/AutoScaling/ExecutePolicy.hs +2/−2
• gen/Network/AWS/AutoScaling/ExitStandby.hs +2/−2
• gen/Network/AWS/AutoScaling/PutLifecycleHook.hs +2/−2
• gen/Network/AWS/AutoScaling/PutNotificationConfiguration.hs +2/−2
• gen/Network/AWS/AutoScaling/PutScalingPolicy.hs +2/−2
• gen/Network/AWS/AutoScaling/PutScheduledUpdateGroupAction.hs +2/−2
• gen/Network/AWS/AutoScaling/RecordLifecycleActionHeartbeat.hs +2/−2
• gen/Network/AWS/AutoScaling/ResumeProcesses.hs +2/−2
• gen/Network/AWS/AutoScaling/SetDesiredCapacity.hs +2/−2
• gen/Network/AWS/AutoScaling/SetInstanceHealth.hs +2/−2
• gen/Network/AWS/AutoScaling/SuspendProcesses.hs +2/−2
• gen/Network/AWS/AutoScaling/TerminateInstanceInAutoScalingGroup.hs +2/−2
• gen/Network/AWS/AutoScaling/Types.hs +105/−76
• gen/Network/AWS/AutoScaling/UpdateAutoScalingGroup.hs +2/−2

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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 <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/vpc-classiclink.html ClassicLink> 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 <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/vpc-classiclink.html ClassicLink> 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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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. --

@@ -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

@@ -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. --

@@ -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. --

@@ -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

@@ -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. --

@@ -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

@@ -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

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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

@@ -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. --

@@ -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. --

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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. --

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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. --

@@ -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 <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/vpc-classiclink.html ClassicLink> 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 <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/vpc-classiclink.html ClassicLink> 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 

@@ -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