Regenerating types with Read instances

amazonka-autoscaling/gen/Network/AWS/AutoScaling/AttachInstances.hs

@@ -51,7 +51,7 @@ import qualified GHC.Exts
 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' AttachInstances [Text]
 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

amazonka-autoscaling/gen/Network/AWS/AutoScaling/CompleteLifecycleAction.hs

@@ -63,7 +63,7 @@ data CompleteLifecycleAction = CompleteLifecycleAction
     , _claLifecycleActionResult :: Text
     , _claLifecycleActionToken  :: Text
     , _claLifecycleHookName     :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'CompleteLifecycleAction' constructor.
 --
@@ -113,7 +113,7 @@ claLifecycleHookName =
     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

amazonka-autoscaling/gen/Network/AWS/AutoScaling/CreateAutoScalingGroup.hs

@@ -79,7 +79,7 @@ data CreateAutoScalingGroup = CreateAutoScalingGroup
     , _casgTags                    :: List "member" Tag
     , _casgTerminationPolicies     :: List "member" Text
     , _casgVPCZoneIdentifier       :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateAutoScalingGroup' constructor.
 --
@@ -264,7 +264,7 @@ casgVPCZoneIdentifier =
     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

amazonka-autoscaling/gen/Network/AWS/AutoScaling/CreateLaunchConfiguration.hs

@@ -81,7 +81,7 @@ data CreateLaunchConfiguration = CreateLaunchConfiguration
     , _clcSecurityGroups           :: List "member" Text
     , _clcSpotPrice                :: Maybe Text
     , _clcUserData                 :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateLaunchConfiguration' constructor.
 --
@@ -279,7 +279,7 @@ clcUserData :: Lens' CreateLaunchConfiguration (Maybe Text)
 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

amazonka-autoscaling/gen/Network/AWS/AutoScaling/CreateOrUpdateTags.hs

@@ -52,7 +52,7 @@ import qualified GHC.Exts
 
 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' CreateOrUpdateTags [Tag]
 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

amazonka-autoscaling/gen/Network/AWS/AutoScaling/DeleteAutoScalingGroup.hs

@@ -53,7 +53,7 @@ import qualified GHC.Exts
 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' DeleteAutoScalingGroup (Maybe Bool)
 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

amazonka-autoscaling/gen/Network/AWS/AutoScaling/DeleteLaunchConfiguration.hs

@@ -50,7 +50,7 @@ import qualified GHC.Exts
 
 newtype DeleteLaunchConfiguration = DeleteLaunchConfiguration
     { _dlcLaunchConfigurationName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteLaunchConfiguration' constructor.
 --
@@ -71,7 +71,7 @@ dlcLaunchConfigurationName =
         (\s a -> s { _dlcLaunchConfigurationName = a })
 
 data DeleteLaunchConfigurationResponse = DeleteLaunchConfigurationResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeleteLaunchConfigurationResponse' constructor.
 deleteLaunchConfigurationResponse :: DeleteLaunchConfigurationResponse

amazonka-autoscaling/gen/Network/AWS/AutoScaling/DeleteLifecycleHook.hs

@@ -51,7 +51,7 @@ import qualified GHC.Exts
 data DeleteLifecycleHook = DeleteLifecycleHook
     { _dlh1AutoScalingGroupName :: Text
     , _dlh1LifecycleHookName    :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DeleteLifecycleHook' constructor.
 --
@@ -81,7 +81,7 @@ dlh1LifecycleHookName =
     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

amazonka-autoscaling/gen/Network/AWS/AutoScaling/DeleteNotificationConfiguration.hs

@@ -49,7 +49,7 @@ import qualified GHC.Exts
 data DeleteNotificationConfiguration = DeleteNotificationConfiguration
     { _dncAutoScalingGroupName :: Text
     , _dncTopicARN             :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DeleteNotificationConfiguration' constructor.
 --
@@ -78,7 +78,7 @@ dncTopicARN :: Lens' DeleteNotificationConfiguration Text
 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

amazonka-autoscaling/gen/Network/AWS/AutoScaling/DeletePolicy.hs

@@ -49,7 +49,7 @@ import qualified GHC.Exts
 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' DeletePolicy Text
 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

amazonka-autoscaling/gen/Network/AWS/AutoScaling/DeleteScheduledAction.hs

@@ -49,7 +49,7 @@ import qualified GHC.Exts
 data DeleteScheduledAction = DeleteScheduledAction
     { _dsaAutoScalingGroupName :: Maybe Text
     , _dsaScheduledActionName  :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DeleteScheduledAction' constructor.
 --
@@ -77,7 +77,7 @@ dsaScheduledActionName =
     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

amazonka-autoscaling/gen/Network/AWS/AutoScaling/DeleteTags.hs

@@ -47,7 +47,7 @@ import qualified GHC.Exts
 
 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' DeleteTags [Tag]
 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

amazonka-autoscaling/gen/Network/AWS/AutoScaling/DescribeAccountLimits.hs

@@ -49,7 +49,7 @@ import Network.AWS.AutoScaling.Types
 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 @@ describeAccountLimits = DescribeAccountLimits
 data DescribeAccountLimitsResponse = DescribeAccountLimitsResponse
     { _dalrMaxNumberOfAutoScalingGroups    :: Maybe Int
     , _dalrMaxNumberOfLaunchConfigurations :: Maybe Int
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeAccountLimitsResponse' constructor.
 --

amazonka-autoscaling/gen/Network/AWS/AutoScaling/DescribeAdjustmentTypes.hs

@@ -46,15 +46,15 @@ import Network.AWS.AutoScaling.Types
 import qualified GHC.Exts
 
 data DescribeAdjustmentTypes = DescribeAdjustmentTypes
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DescribeAdjustmentTypes' constructor.
 describeAdjustmentTypes :: DescribeAdjustmentTypes
 describeAdjustmentTypes = DescribeAdjustmentTypes
 
 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

amazonka-autoscaling/gen/Network/AWS/AutoScaling/DescribeAutoScalingGroups.hs

@@ -60,7 +60,7 @@ data DescribeAutoScalingGroups = DescribeAutoScalingGroups
     { _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 @@ dasgNextToken = lens _dasgNextToken (\s a -> s { _dasgNextToken = a })
 data DescribeAutoScalingGroupsResponse = DescribeAutoScalingGroupsResponse
     { _dasgrAutoScalingGroups :: List "member" AutoScalingGroup
     , _dasgrNextToken         :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeAutoScalingGroupsResponse' constructor.
 --

amazonka-autoscaling/gen/Network/AWS/AutoScaling/DescribeAutoScalingInstances.hs

@@ -60,7 +60,7 @@ data DescribeAutoScalingInstances = DescribeAutoScalingInstances
     { _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 @@ dasiNextToken = lens _dasiNextToken (\s a -> s { _dasiNextToken = a })
 data DescribeAutoScalingInstancesResponse = DescribeAutoScalingInstancesResponse
     { _dasirAutoScalingInstances :: List "member" AutoScalingInstanceDetails
     , _dasirNextToken            :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeAutoScalingInstancesResponse' constructor.
 --

amazonka-autoscaling/gen/Network/AWS/AutoScaling/DescribeAutoScalingNotificationTypes.hs

@@ -46,15 +46,15 @@ import Network.AWS.AutoScaling.Types
 import qualified GHC.Exts
 
 data DescribeAutoScalingNotificationTypes = DescribeAutoScalingNotificationTypes
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DescribeAutoScalingNotificationTypes' constructor.
 describeAutoScalingNotificationTypes :: DescribeAutoScalingNotificationTypes
 describeAutoScalingNotificationTypes = DescribeAutoScalingNotificationTypes
 
 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

amazonka-autoscaling/gen/Network/AWS/AutoScaling/DescribeLaunchConfigurations.hs

@@ -60,7 +60,7 @@ data DescribeLaunchConfigurations = DescribeLaunchConfigurations
     { _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 @@ dlcNextToken = lens _dlcNextToken (\s a -> s { _dlcNextToken = a })
 data DescribeLaunchConfigurationsResponse = DescribeLaunchConfigurationsResponse
     { _dlcrLaunchConfigurations :: List "member" LaunchConfiguration
     , _dlcrNextToken            :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeLaunchConfigurationsResponse' constructor.
 --

amazonka-autoscaling/gen/Network/AWS/AutoScaling/DescribeLifecycleHookTypes.hs

@@ -46,15 +46,15 @@ import Network.AWS.AutoScaling.Types
 import qualified GHC.Exts
 
 data DescribeLifecycleHookTypes = DescribeLifecycleHookTypes
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DescribeLifecycleHookTypes' constructor.
 describeLifecycleHookTypes :: DescribeLifecycleHookTypes
 describeLifecycleHookTypes = DescribeLifecycleHookTypes
 
 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

amazonka-autoscaling/gen/Network/AWS/AutoScaling/DescribeLifecycleHooks.hs

@@ -51,7 +51,7 @@ import qualified GHC.Exts
 data DescribeLifecycleHooks = DescribeLifecycleHooks
     { _dlhAutoScalingGroupName :: Text
     , _dlhLifecycleHookNames   :: List "member" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeLifecycleHooks' constructor.
 --
@@ -81,7 +81,7 @@ dlhLifecycleHookNames =
 
 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

amazonka-autoscaling/gen/Network/AWS/AutoScaling/DescribeMetricCollectionTypes.hs

@@ -53,7 +53,7 @@ import Network.AWS.AutoScaling.Types
 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 @@ describeMetricCollectionTypes = DescribeMetricCollectionTypes
 data DescribeMetricCollectionTypesResponse = DescribeMetricCollectionTypesResponse
     { _dmctrGranularities :: List "member" MetricGranularityType
     , _dmctrMetrics       :: List "member" MetricCollectionType
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeMetricCollectionTypesResponse' constructor.
 --

amazonka-autoscaling/gen/Network/AWS/AutoScaling/DescribeNotificationConfigurations.hs

@@ -55,7 +55,7 @@ data DescribeNotificationConfigurations = DescribeNotificationConfigurations
     { _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 @@ dncNextToken = lens _dncNextToken (\s a -> s { _dncNextToken = a })
 data DescribeNotificationConfigurationsResponse = DescribeNotificationConfigurationsResponse
     { _dncrNextToken                  :: Maybe Text
     , _dncrNotificationConfigurations :: List "member" NotificationConfiguration
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeNotificationConfigurationsResponse' constructor.
 --