amazonka-emr 1.2.0.2 → 1.3.0

raw patch · 19 files changed

+362/−361 lines, 19 filesdep ~amazonka-coredep ~amazonka-emrdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-emr, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-emr.cabal +5/−5
• gen/Network/AWS/EMR.hs +11/−11
• gen/Network/AWS/EMR/AddInstanceGroups.hs +8/−8
• gen/Network/AWS/EMR/AddJobFlowSteps.hs +9/−9
• gen/Network/AWS/EMR/AddTags.hs +8/−8
• gen/Network/AWS/EMR/DescribeCluster.hs +9/−9
• gen/Network/AWS/EMR/DescribeStep.hs +9/−9
• gen/Network/AWS/EMR/ListBootstrapActions.hs +8/−8
• gen/Network/AWS/EMR/ListClusters.hs +10/−10
• gen/Network/AWS/EMR/ListInstanceGroups.hs +8/−8
• gen/Network/AWS/EMR/ListInstances.hs +20/−20
• gen/Network/AWS/EMR/ListSteps.hs +10/−10
• gen/Network/AWS/EMR/RemoveTags.hs +8/−8
• gen/Network/AWS/EMR/RunJobFlow.hs +42/−42
• gen/Network/AWS/EMR/Types.hs +4/−4
• gen/Network/AWS/EMR/Types/Product.hs +46/−45
• gen/Network/AWS/EMR/Types/Sum.hs +102/−102
• test/Test/AWS/Gen/EMR.hs +44/−44

@@ -8,7 +8,7 @@  ## Version -`1.2.0.2`+`1.3.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-emr-version:               1.2.0.2+version:               1.3.0 synopsis:              Amazon Elastic MapReduce SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -69,7 +69,7 @@         , Network.AWS.EMR.Types.Sum      build-depends:-          amazonka-core == 1.2.0.*+          amazonka-core == 1.3.0.*         , base          >= 4.7     && < 5  test-suite amazonka-emr-test@@ -89,9 +89,9 @@         , Test.AWS.EMR.Internal      build-depends:-          amazonka-core == 1.2.0.*-        , amazonka-test == 1.2.0.*-        , amazonka-emr == 1.2.0.*+          amazonka-core == 1.3.0.*+        , amazonka-test == 1.3.0.*+        , amazonka-emr == 1.3.0.*         , base         , bytestring         , lens

@@ -53,23 +53,23 @@     -- ** TerminateJobFlows     , module Network.AWS.EMR.TerminateJobFlows -    -- ** RemoveTags-    , module Network.AWS.EMR.RemoveTags-     -- ** DescribeStep     , module Network.AWS.EMR.DescribeStep +    -- ** RemoveTags+    , module Network.AWS.EMR.RemoveTags+     -- ** DescribeCluster     , module Network.AWS.EMR.DescribeCluster -    -- ** ModifyInstanceGroups-    , module Network.AWS.EMR.ModifyInstanceGroups+    -- ** SetTerminationProtection+    , module Network.AWS.EMR.SetTerminationProtection      -- ** AddJobFlowSteps     , module Network.AWS.EMR.AddJobFlowSteps -    -- ** SetTerminationProtection-    , module Network.AWS.EMR.SetTerminationProtection+    -- ** ModifyInstanceGroups+    , module Network.AWS.EMR.ModifyInstanceGroups      -- ** ListSteps (Paginated)     , module Network.AWS.EMR.ListSteps@@ -133,8 +133,8 @@     -- ** Application     , Application     , application-    , aAdditionalInfo     , aArgs+    , aAdditionalInfo     , aName     , aVersion @@ -155,9 +155,9 @@     , cluLogURI     , cluRunningAMIVersion     , cluMasterPublicDNSName-    , cluAutoTerminate     , cluTerminationProtected     , cluVisibleToAllUsers+    , cluAutoTerminate     , cluApplications     , cluTags     , cluServiceRole@@ -213,8 +213,8 @@     , eiaEC2KeyName     , eiaEmrManagedSlaveSecurityGroup     , eiaAdditionalSlaveSecurityGroups-    , eiaIAMInstanceProfile     , eiaAdditionalMasterSecurityGroups+    , eiaIAMInstanceProfile     , eiaEmrManagedMasterSecurityGroup     , eiaEC2SubnetId     , eiaEC2AvailabilityZone@@ -321,8 +321,8 @@     -- ** JobFlowInstancesConfig     , JobFlowInstancesConfig     , jobFlowInstancesConfig-    , jficSlaveInstanceType     , jficEC2KeyName+    , jficSlaveInstanceType     , jficInstanceCount     , jficEmrManagedSlaveSecurityGroup     , jficAdditionalSlaveSecurityGroups

@@ -36,7 +36,7 @@     -- * Response Lenses     , aigrsJobFlowId     , aigrsInstanceGroupIds-    , aigrsStatus+    , aigrsResponseStatus     ) where  import           Network.AWS.EMR.Types@@ -116,7 +116,7 @@ data AddInstanceGroupsResponse = AddInstanceGroupsResponse'     { _aigrsJobFlowId        :: !(Maybe Text)     , _aigrsInstanceGroupIds :: !(Maybe [Text])-    , _aigrsStatus           :: !Int+    , _aigrsResponseStatus   :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'AddInstanceGroupsResponse' with the minimum fields required to make a request.@@ -127,15 +127,15 @@ -- -- * 'aigrsInstanceGroupIds' ----- * 'aigrsStatus'+-- * 'aigrsResponseStatus' addInstanceGroupsResponse-    :: Int -- ^ 'aigrsStatus'+    :: Int -- ^ 'aigrsResponseStatus'     -> AddInstanceGroupsResponse-addInstanceGroupsResponse pStatus_ =+addInstanceGroupsResponse pResponseStatus_ =     AddInstanceGroupsResponse'     { _aigrsJobFlowId = Nothing     , _aigrsInstanceGroupIds = Nothing-    , _aigrsStatus = pStatus_+    , _aigrsResponseStatus = pResponseStatus_     }  -- | The job flow ID in which the instance groups are added.@@ -147,5 +147,5 @@ aigrsInstanceGroupIds = lens _aigrsInstanceGroupIds (\ s a -> s{_aigrsInstanceGroupIds = a}) . _Default . _Coerce;  -- | The response status code.-aigrsStatus :: Lens' AddInstanceGroupsResponse Int-aigrsStatus = lens _aigrsStatus (\ s a -> s{_aigrsStatus = a});+aigrsResponseStatus :: Lens' AddInstanceGroupsResponse Int+aigrsResponseStatus = lens _aigrsResponseStatus (\ s a -> s{_aigrsResponseStatus = a});

@@ -59,7 +59,7 @@     , AddJobFlowStepsResponse     -- * Response Lenses     , ajfsrsStepIds-    , ajfsrsStatus+    , ajfsrsResponseStatus     ) where  import           Network.AWS.EMR.Types@@ -136,8 +136,8 @@ -- -- /See:/ 'addJobFlowStepsResponse' smart constructor. data AddJobFlowStepsResponse = AddJobFlowStepsResponse'-    { _ajfsrsStepIds :: !(Maybe [Text])-    , _ajfsrsStatus  :: !Int+    { _ajfsrsStepIds        :: !(Maybe [Text])+    , _ajfsrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'AddJobFlowStepsResponse' with the minimum fields required to make a request.@@ -146,14 +146,14 @@ -- -- * 'ajfsrsStepIds' ----- * 'ajfsrsStatus'+-- * 'ajfsrsResponseStatus' addJobFlowStepsResponse-    :: Int -- ^ 'ajfsrsStatus'+    :: Int -- ^ 'ajfsrsResponseStatus'     -> AddJobFlowStepsResponse-addJobFlowStepsResponse pStatus_ =+addJobFlowStepsResponse pResponseStatus_ =     AddJobFlowStepsResponse'     { _ajfsrsStepIds = Nothing-    , _ajfsrsStatus = pStatus_+    , _ajfsrsResponseStatus = pResponseStatus_     }  -- | The identifiers of the list of steps added to the job flow.@@ -161,5 +161,5 @@ ajfsrsStepIds = lens _ajfsrsStepIds (\ s a -> s{_ajfsrsStepIds = a}) . _Default . _Coerce;  -- | The response status code.-ajfsrsStatus :: Lens' AddJobFlowStepsResponse Int-ajfsrsStatus = lens _ajfsrsStatus (\ s a -> s{_ajfsrsStatus = a});+ajfsrsResponseStatus :: Lens' AddJobFlowStepsResponse Int+ajfsrsResponseStatus = lens _ajfsrsResponseStatus (\ s a -> s{_ajfsrsResponseStatus = a});

@@ -37,7 +37,7 @@     , addTagsResponse     , AddTagsResponse     -- * Response Lenses-    , atrsStatus+    , atrsResponseStatus     ) where  import           Network.AWS.EMR.Types@@ -115,22 +115,22 @@ -- -- /See:/ 'addTagsResponse' smart constructor. newtype AddTagsResponse = AddTagsResponse'-    { _atrsStatus :: Int+    { _atrsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'AddTagsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'atrsStatus'+-- * 'atrsResponseStatus' addTagsResponse-    :: Int -- ^ 'atrsStatus'+    :: Int -- ^ 'atrsResponseStatus'     -> AddTagsResponse-addTagsResponse pStatus_ =+addTagsResponse pResponseStatus_ =     AddTagsResponse'-    { _atrsStatus = pStatus_+    { _atrsResponseStatus = pResponseStatus_     }  -- | The response status code.-atrsStatus :: Lens' AddTagsResponse Int-atrsStatus = lens _atrsStatus (\ s a -> s{_atrsStatus = a});+atrsResponseStatus :: Lens' AddTagsResponse Int+atrsResponseStatus = lens _atrsResponseStatus (\ s a -> s{_atrsResponseStatus = a});

@@ -35,7 +35,7 @@     , describeClusterResponse     , DescribeClusterResponse     -- * Response Lenses-    , dcrsStatus+    , dcrsResponseStatus     , dcrsCluster     ) where @@ -102,30 +102,30 @@ -- -- /See:/ 'describeClusterResponse' smart constructor. data DescribeClusterResponse = DescribeClusterResponse'-    { _dcrsStatus  :: !Int-    , _dcrsCluster :: !Cluster+    { _dcrsResponseStatus :: !Int+    , _dcrsCluster        :: !Cluster     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeClusterResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dcrsStatus'+-- * 'dcrsResponseStatus' -- -- * 'dcrsCluster' describeClusterResponse-    :: Int -- ^ 'dcrsStatus'+    :: Int -- ^ 'dcrsResponseStatus'     -> Cluster -- ^ 'dcrsCluster'     -> DescribeClusterResponse-describeClusterResponse pStatus_ pCluster_ =+describeClusterResponse pResponseStatus_ pCluster_ =     DescribeClusterResponse'-    { _dcrsStatus = pStatus_+    { _dcrsResponseStatus = pResponseStatus_     , _dcrsCluster = pCluster_     }  -- | The response status code.-dcrsStatus :: Lens' DescribeClusterResponse Int-dcrsStatus = lens _dcrsStatus (\ s a -> s{_dcrsStatus = a});+dcrsResponseStatus :: Lens' DescribeClusterResponse Int+dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});  -- | This output contains the details for the requested cluster. dcrsCluster :: Lens' DescribeClusterResponse Cluster

@@ -35,7 +35,7 @@     , DescribeStepResponse     -- * Response Lenses     , dsrsStep-    , dsrsStatus+    , dsrsResponseStatus     ) where  import           Network.AWS.EMR.Types@@ -112,8 +112,8 @@ -- -- /See:/ 'describeStepResponse' smart constructor. data DescribeStepResponse = DescribeStepResponse'-    { _dsrsStep   :: !(Maybe Step)-    , _dsrsStatus :: !Int+    { _dsrsStep           :: !(Maybe Step)+    , _dsrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeStepResponse' with the minimum fields required to make a request.@@ -122,14 +122,14 @@ -- -- * 'dsrsStep' ----- * 'dsrsStatus'+-- * 'dsrsResponseStatus' describeStepResponse-    :: Int -- ^ 'dsrsStatus'+    :: Int -- ^ 'dsrsResponseStatus'     -> DescribeStepResponse-describeStepResponse pStatus_ =+describeStepResponse pResponseStatus_ =     DescribeStepResponse'     { _dsrsStep = Nothing-    , _dsrsStatus = pStatus_+    , _dsrsResponseStatus = pResponseStatus_     }  -- | The step details for the requested step identifier.@@ -137,5 +137,5 @@ dsrsStep = lens _dsrsStep (\ s a -> s{_dsrsStep = a});  -- | The response status code.-dsrsStatus :: Lens' DescribeStepResponse Int-dsrsStatus = lens _dsrsStatus (\ s a -> s{_dsrsStatus = a});+dsrsResponseStatus :: Lens' DescribeStepResponse Int+dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a});

@@ -39,7 +39,7 @@     -- * Response Lenses     , lbarsBootstrapActions     , lbarsMarker-    , lbarsStatus+    , lbarsResponseStatus     ) where  import           Network.AWS.EMR.Types@@ -130,7 +130,7 @@ data ListBootstrapActionsResponse = ListBootstrapActionsResponse'     { _lbarsBootstrapActions :: !(Maybe [Command])     , _lbarsMarker           :: !(Maybe Text)-    , _lbarsStatus           :: !Int+    , _lbarsResponseStatus   :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListBootstrapActionsResponse' with the minimum fields required to make a request.@@ -141,15 +141,15 @@ -- -- * 'lbarsMarker' ----- * 'lbarsStatus'+-- * 'lbarsResponseStatus' listBootstrapActionsResponse-    :: Int -- ^ 'lbarsStatus'+    :: Int -- ^ 'lbarsResponseStatus'     -> ListBootstrapActionsResponse-listBootstrapActionsResponse pStatus_ =+listBootstrapActionsResponse pResponseStatus_ =     ListBootstrapActionsResponse'     { _lbarsBootstrapActions = Nothing     , _lbarsMarker = Nothing-    , _lbarsStatus = pStatus_+    , _lbarsResponseStatus = pResponseStatus_     }  -- | The bootstrap actions associated with the cluster .@@ -162,5 +162,5 @@ lbarsMarker = lens _lbarsMarker (\ s a -> s{_lbarsMarker = a});  -- | The response status code.-lbarsStatus :: Lens' ListBootstrapActionsResponse Int-lbarsStatus = lens _lbarsStatus (\ s a -> s{_lbarsStatus = a});+lbarsResponseStatus :: Lens' ListBootstrapActionsResponse Int+lbarsResponseStatus = lens _lbarsResponseStatus (\ s a -> s{_lbarsResponseStatus = a});

@@ -44,7 +44,7 @@     -- * Response Lenses     , lcrsMarker     , lcrsClusters-    , lcrsStatus+    , lcrsResponseStatus     ) where  import           Network.AWS.EMR.Types@@ -148,9 +148,9 @@ -- -- /See:/ 'listClustersResponse' smart constructor. data ListClustersResponse = ListClustersResponse'-    { _lcrsMarker   :: !(Maybe Text)-    , _lcrsClusters :: !(Maybe [ClusterSummary])-    , _lcrsStatus   :: !Int+    { _lcrsMarker         :: !(Maybe Text)+    , _lcrsClusters       :: !(Maybe [ClusterSummary])+    , _lcrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListClustersResponse' with the minimum fields required to make a request.@@ -161,15 +161,15 @@ -- -- * 'lcrsClusters' ----- * 'lcrsStatus'+-- * 'lcrsResponseStatus' listClustersResponse-    :: Int -- ^ 'lcrsStatus'+    :: Int -- ^ 'lcrsResponseStatus'     -> ListClustersResponse-listClustersResponse pStatus_ =+listClustersResponse pResponseStatus_ =     ListClustersResponse'     { _lcrsMarker = Nothing     , _lcrsClusters = Nothing-    , _lcrsStatus = pStatus_+    , _lcrsResponseStatus = pResponseStatus_     }  -- | The pagination token that indicates the next set of results to retrieve.@@ -181,5 +181,5 @@ lcrsClusters = lens _lcrsClusters (\ s a -> s{_lcrsClusters = a}) . _Default . _Coerce;  -- | The response status code.-lcrsStatus :: Lens' ListClustersResponse Int-lcrsStatus = lens _lcrsStatus (\ s a -> s{_lcrsStatus = a});+lcrsResponseStatus :: Lens' ListClustersResponse Int+lcrsResponseStatus = lens _lcrsResponseStatus (\ s a -> s{_lcrsResponseStatus = a});

@@ -38,7 +38,7 @@     -- * Response Lenses     , ligrsMarker     , ligrsInstanceGroups-    , ligrsStatus+    , ligrsResponseStatus     ) where  import           Network.AWS.EMR.Types@@ -128,7 +128,7 @@ data ListInstanceGroupsResponse = ListInstanceGroupsResponse'     { _ligrsMarker         :: !(Maybe Text)     , _ligrsInstanceGroups :: !(Maybe [InstanceGroup])-    , _ligrsStatus         :: !Int+    , _ligrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListInstanceGroupsResponse' with the minimum fields required to make a request.@@ -139,15 +139,15 @@ -- -- * 'ligrsInstanceGroups' ----- * 'ligrsStatus'+-- * 'ligrsResponseStatus' listInstanceGroupsResponse-    :: Int -- ^ 'ligrsStatus'+    :: Int -- ^ 'ligrsResponseStatus'     -> ListInstanceGroupsResponse-listInstanceGroupsResponse pStatus_ =+listInstanceGroupsResponse pResponseStatus_ =     ListInstanceGroupsResponse'     { _ligrsMarker = Nothing     , _ligrsInstanceGroups = Nothing-    , _ligrsStatus = pStatus_+    , _ligrsResponseStatus = pResponseStatus_     }  -- | The pagination token that indicates the next set of results to retrieve.@@ -159,5 +159,5 @@ ligrsInstanceGroups = lens _ligrsInstanceGroups (\ s a -> s{_ligrsInstanceGroups = a}) . _Default . _Coerce;  -- | The response status code.-ligrsStatus :: Lens' ListInstanceGroupsResponse Int-ligrsStatus = lens _ligrsStatus (\ s a -> s{_ligrsStatus = a});+ligrsResponseStatus :: Lens' ListInstanceGroupsResponse Int+ligrsResponseStatus = lens _ligrsResponseStatus (\ s a -> s{_ligrsResponseStatus = a});

@@ -42,9 +42,9 @@     , listInstancesResponse     , ListInstancesResponse     -- * Response Lenses-    , lirsInstances     , lirsMarker-    , lirsStatus+    , lirsInstances+    , lirsResponseStatus     ) where  import           Network.AWS.EMR.Types@@ -116,7 +116,7 @@           = receiveJSON               (\ s h x ->                  ListInstancesResponse' <$>-                   (x .?> "Instances" .!@ mempty) <*> (x .?> "Marker")+                   (x .?> "Marker") <*> (x .?> "Instances" .!@ mempty)                      <*> (pure (fromEnum s)))  instance ToHeaders ListInstances where@@ -147,38 +147,38 @@ -- -- /See:/ 'listInstancesResponse' smart constructor. data ListInstancesResponse = ListInstancesResponse'-    { _lirsInstances :: !(Maybe [Instance])-    , _lirsMarker    :: !(Maybe Text)-    , _lirsStatus    :: !Int+    { _lirsMarker         :: !(Maybe Text)+    , _lirsInstances      :: !(Maybe [Instance])+    , _lirsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListInstancesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lirsInstances'--- -- * 'lirsMarker' ----- * 'lirsStatus'+-- * 'lirsInstances'+--+-- * 'lirsResponseStatus' listInstancesResponse-    :: Int -- ^ 'lirsStatus'+    :: Int -- ^ 'lirsResponseStatus'     -> ListInstancesResponse-listInstancesResponse pStatus_ =+listInstancesResponse pResponseStatus_ =     ListInstancesResponse'-    { _lirsInstances = Nothing-    , _lirsMarker = Nothing-    , _lirsStatus = pStatus_+    { _lirsMarker = Nothing+    , _lirsInstances = Nothing+    , _lirsResponseStatus = pResponseStatus_     } --- | The list of instances for the cluster and given filters.-lirsInstances :: Lens' ListInstancesResponse [Instance]-lirsInstances = lens _lirsInstances (\ s a -> s{_lirsInstances = a}) . _Default . _Coerce;- -- | The pagination token that indicates the next set of results to retrieve. lirsMarker :: Lens' ListInstancesResponse (Maybe Text) lirsMarker = lens _lirsMarker (\ s a -> s{_lirsMarker = a}); +-- | The list of instances for the cluster and given filters.+lirsInstances :: Lens' ListInstancesResponse [Instance]+lirsInstances = lens _lirsInstances (\ s a -> s{_lirsInstances = a}) . _Default . _Coerce;+ -- | The response status code.-lirsStatus :: Lens' ListInstancesResponse Int-lirsStatus = lens _lirsStatus (\ s a -> s{_lirsStatus = a});+lirsResponseStatus :: Lens' ListInstancesResponse Int+lirsResponseStatus = lens _lirsResponseStatus (\ s a -> s{_lirsResponseStatus = a});

@@ -40,7 +40,7 @@     -- * Response Lenses     , lsrsSteps     , lsrsMarker-    , lsrsStatus+    , lsrsResponseStatus     ) where  import           Network.AWS.EMR.Types@@ -143,9 +143,9 @@ -- -- /See:/ 'listStepsResponse' smart constructor. data ListStepsResponse = ListStepsResponse'-    { _lsrsSteps  :: !(Maybe [StepSummary])-    , _lsrsMarker :: !(Maybe Text)-    , _lsrsStatus :: !Int+    { _lsrsSteps          :: !(Maybe [StepSummary])+    , _lsrsMarker         :: !(Maybe Text)+    , _lsrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListStepsResponse' with the minimum fields required to make a request.@@ -156,15 +156,15 @@ -- -- * 'lsrsMarker' ----- * 'lsrsStatus'+-- * 'lsrsResponseStatus' listStepsResponse-    :: Int -- ^ 'lsrsStatus'+    :: Int -- ^ 'lsrsResponseStatus'     -> ListStepsResponse-listStepsResponse pStatus_ =+listStepsResponse pResponseStatus_ =     ListStepsResponse'     { _lsrsSteps = Nothing     , _lsrsMarker = Nothing-    , _lsrsStatus = pStatus_+    , _lsrsResponseStatus = pResponseStatus_     }  -- | The filtered list of steps for the cluster.@@ -176,5 +176,5 @@ lsrsMarker = lens _lsrsMarker (\ s a -> s{_lsrsMarker = a});  -- | The response status code.-lsrsStatus :: Lens' ListStepsResponse Int-lsrsStatus = lens _lsrsStatus (\ s a -> s{_lsrsStatus = a});+lsrsResponseStatus :: Lens' ListStepsResponse Int+lsrsResponseStatus = lens _lsrsResponseStatus (\ s a -> s{_lsrsResponseStatus = a});

@@ -40,7 +40,7 @@     , removeTagsResponse     , RemoveTagsResponse     -- * Response Lenses-    , rtrsStatus+    , rtrsResponseStatus     ) where  import           Network.AWS.EMR.Types@@ -116,22 +116,22 @@ -- -- /See:/ 'removeTagsResponse' smart constructor. newtype RemoveTagsResponse = RemoveTagsResponse'-    { _rtrsStatus :: Int+    { _rtrsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'RemoveTagsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rtrsStatus'+-- * 'rtrsResponseStatus' removeTagsResponse-    :: Int -- ^ 'rtrsStatus'+    :: Int -- ^ 'rtrsResponseStatus'     -> RemoveTagsResponse-removeTagsResponse pStatus_ =+removeTagsResponse pResponseStatus_ =     RemoveTagsResponse'-    { _rtrsStatus = pStatus_+    { _rtrsResponseStatus = pResponseStatus_     }  -- | The response status code.-rtrsStatus :: Lens' RemoveTagsResponse Int-rtrsStatus = lens _rtrsStatus (\ s a -> s{_rtrsStatus = a});+rtrsResponseStatus :: Lens' RemoveTagsResponse Int+rtrsResponseStatus = lens _rtrsResponseStatus (\ s a -> s{_rtrsResponseStatus = a});

@@ -55,14 +55,14 @@     , rjfAMIVersion     , rjfAdditionalInfo     , rjfConfigurations-    , rjfJobFlowRole     , rjfSteps+    , rjfJobFlowRole     , rjfBootstrapActions     , rjfReleaseLabel-    , rjfNewSupportedProducts     , rjfLogURI-    , rjfSupportedProducts+    , rjfNewSupportedProducts     , rjfVisibleToAllUsers+    , rjfSupportedProducts     , rjfApplications     , rjfTags     , rjfServiceRole@@ -74,7 +74,7 @@     , RunJobFlowResponse     -- * Response Lenses     , rjfrsJobFlowId-    , rjfrsStatus+    , rjfrsResponseStatus     ) where  import           Network.AWS.EMR.Types@@ -90,14 +90,14 @@     { _rjfAMIVersion           :: !(Maybe Text)     , _rjfAdditionalInfo       :: !(Maybe Text)     , _rjfConfigurations       :: !(Maybe [Configuration])-    , _rjfJobFlowRole          :: !(Maybe Text)     , _rjfSteps                :: !(Maybe [StepConfig])+    , _rjfJobFlowRole          :: !(Maybe Text)     , _rjfBootstrapActions     :: !(Maybe [BootstrapActionConfig])     , _rjfReleaseLabel         :: !(Maybe Text)-    , _rjfNewSupportedProducts :: !(Maybe [SupportedProductConfig])     , _rjfLogURI               :: !(Maybe Text)-    , _rjfSupportedProducts    :: !(Maybe [Text])+    , _rjfNewSupportedProducts :: !(Maybe [SupportedProductConfig])     , _rjfVisibleToAllUsers    :: !(Maybe Bool)+    , _rjfSupportedProducts    :: !(Maybe [Text])     , _rjfApplications         :: !(Maybe [Application])     , _rjfTags                 :: !(Maybe [Tag])     , _rjfServiceRole          :: !(Maybe Text)@@ -115,22 +115,22 @@ -- -- * 'rjfConfigurations' ----- * 'rjfJobFlowRole'--- -- * 'rjfSteps' --+-- * 'rjfJobFlowRole'+-- -- * 'rjfBootstrapActions' -- -- * 'rjfReleaseLabel' ----- * 'rjfNewSupportedProducts'--- -- * 'rjfLogURI' ----- * 'rjfSupportedProducts'+-- * 'rjfNewSupportedProducts' -- -- * 'rjfVisibleToAllUsers' --+-- * 'rjfSupportedProducts'+-- -- * 'rjfApplications' -- -- * 'rjfTags'@@ -149,14 +149,14 @@     { _rjfAMIVersion = Nothing     , _rjfAdditionalInfo = Nothing     , _rjfConfigurations = Nothing-    , _rjfJobFlowRole = Nothing     , _rjfSteps = Nothing+    , _rjfJobFlowRole = Nothing     , _rjfBootstrapActions = Nothing     , _rjfReleaseLabel = Nothing-    , _rjfNewSupportedProducts = Nothing     , _rjfLogURI = Nothing-    , _rjfSupportedProducts = Nothing+    , _rjfNewSupportedProducts = Nothing     , _rjfVisibleToAllUsers = Nothing+    , _rjfSupportedProducts = Nothing     , _rjfApplications = Nothing     , _rjfTags = Nothing     , _rjfServiceRole = Nothing@@ -195,16 +195,16 @@ rjfConfigurations :: Lens' RunJobFlow [Configuration] rjfConfigurations = lens _rjfConfigurations (\ s a -> s{_rjfConfigurations = a}) . _Default . _Coerce; +-- | A list of steps to be executed by the job flow.+rjfSteps :: Lens' RunJobFlow [StepConfig]+rjfSteps = lens _rjfSteps (\ s a -> s{_rjfSteps = a}) . _Default . _Coerce;+ -- | An IAM role for the job flow. The EC2 instances of the job flow assume -- this role. The default role is 'EMRJobflowDefault'. In order to use the -- default role, you must have already created it using the CLI. rjfJobFlowRole :: Lens' RunJobFlow (Maybe Text) rjfJobFlowRole = lens _rjfJobFlowRole (\ s a -> s{_rjfJobFlowRole = a}); --- | A list of steps to be executed by the job flow.-rjfSteps :: Lens' RunJobFlow [StepConfig]-rjfSteps = lens _rjfSteps (\ s a -> s{_rjfSteps = a}) . _Default . _Coerce;- -- | A list of bootstrap actions that will be run before Hadoop is started on -- the cluster nodes. rjfBootstrapActions :: Lens' RunJobFlow [BootstrapActionConfig]@@ -217,6 +217,11 @@ rjfReleaseLabel :: Lens' RunJobFlow (Maybe Text) rjfReleaseLabel = lens _rjfReleaseLabel (\ s a -> s{_rjfReleaseLabel = a}); +-- | The location in Amazon S3 to write the log files of the job flow. If a+-- value is not provided, logs are not created.+rjfLogURI :: Lens' RunJobFlow (Maybe Text)+rjfLogURI = lens _rjfLogURI (\ s a -> s{_rjfLogURI = a});+ -- | For Amazon EMR releases 3.x and 2.x. For Amazon EMR releases 4.x and -- greater, use Applications. --@@ -242,10 +247,13 @@ rjfNewSupportedProducts :: Lens' RunJobFlow [SupportedProductConfig] rjfNewSupportedProducts = lens _rjfNewSupportedProducts (\ s a -> s{_rjfNewSupportedProducts = a}) . _Default . _Coerce; --- | The location in Amazon S3 to write the log files of the job flow. If a--- value is not provided, logs are not created.-rjfLogURI :: Lens' RunJobFlow (Maybe Text)-rjfLogURI = lens _rjfLogURI (\ s a -> s{_rjfLogURI = a});+-- | Whether the job flow is visible to all IAM users of the AWS account+-- associated with the job flow. If this value is set to 'true', all IAM+-- users of that AWS account can view and (if they have the proper policy+-- permissions set) manage the job flow. If it is set to 'false', only the+-- IAM user that created the job flow can view and manage it.+rjfVisibleToAllUsers :: Lens' RunJobFlow (Maybe Bool)+rjfVisibleToAllUsers = lens _rjfVisibleToAllUsers (\ s a -> s{_rjfVisibleToAllUsers = a});  -- | For Amazon EMR releases 3.x and 2.x. For Amazon EMR releases 4.x and -- greater, use Applications.@@ -260,14 +268,6 @@ rjfSupportedProducts :: Lens' RunJobFlow [Text] rjfSupportedProducts = lens _rjfSupportedProducts (\ s a -> s{_rjfSupportedProducts = a}) . _Default . _Coerce; --- | Whether the job flow is visible to all IAM users of the AWS account--- associated with the job flow. If this value is set to 'true', all IAM--- users of that AWS account can view and (if they have the proper policy--- permissions set) manage the job flow. If it is set to 'false', only the--- IAM user that created the job flow can view and manage it.-rjfVisibleToAllUsers :: Lens' RunJobFlow (Maybe Bool)-rjfVisibleToAllUsers = lens _rjfVisibleToAllUsers (\ s a -> s{_rjfVisibleToAllUsers = a});- -- | Amazon EMR releases 4.x or later. -- -- A list of applications for the cluster. Valid values are: \"Hadoop\",@@ -319,15 +319,15 @@                  [("AmiVersion" .=) <$> _rjfAMIVersion,                   ("AdditionalInfo" .=) <$> _rjfAdditionalInfo,                   ("Configurations" .=) <$> _rjfConfigurations,-                  ("JobFlowRole" .=) <$> _rjfJobFlowRole,                   ("Steps" .=) <$> _rjfSteps,+                  ("JobFlowRole" .=) <$> _rjfJobFlowRole,                   ("BootstrapActions" .=) <$> _rjfBootstrapActions,                   ("ReleaseLabel" .=) <$> _rjfReleaseLabel,+                  ("LogUri" .=) <$> _rjfLogURI,                   ("NewSupportedProducts" .=) <$>                     _rjfNewSupportedProducts,-                  ("LogUri" .=) <$> _rjfLogURI,-                  ("SupportedProducts" .=) <$> _rjfSupportedProducts,                   ("VisibleToAllUsers" .=) <$> _rjfVisibleToAllUsers,+                  ("SupportedProducts" .=) <$> _rjfSupportedProducts,                   ("Applications" .=) <$> _rjfApplications,                   ("Tags" .=) <$> _rjfTags,                   ("ServiceRole" .=) <$> _rjfServiceRole,@@ -344,8 +344,8 @@ -- -- /See:/ 'runJobFlowResponse' smart constructor. data RunJobFlowResponse = RunJobFlowResponse'-    { _rjfrsJobFlowId :: !(Maybe Text)-    , _rjfrsStatus    :: !Int+    { _rjfrsJobFlowId      :: !(Maybe Text)+    , _rjfrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'RunJobFlowResponse' with the minimum fields required to make a request.@@ -354,14 +354,14 @@ -- -- * 'rjfrsJobFlowId' ----- * 'rjfrsStatus'+-- * 'rjfrsResponseStatus' runJobFlowResponse-    :: Int -- ^ 'rjfrsStatus'+    :: Int -- ^ 'rjfrsResponseStatus'     -> RunJobFlowResponse-runJobFlowResponse pStatus_ =+runJobFlowResponse pResponseStatus_ =     RunJobFlowResponse'     { _rjfrsJobFlowId = Nothing-    , _rjfrsStatus = pStatus_+    , _rjfrsResponseStatus = pResponseStatus_     }  -- | An unique identifier for the job flow.@@ -369,5 +369,5 @@ rjfrsJobFlowId = lens _rjfrsJobFlowId (\ s a -> s{_rjfrsJobFlowId = a});  -- | The response status code.-rjfrsStatus :: Lens' RunJobFlowResponse Int-rjfrsStatus = lens _rjfrsStatus (\ s a -> s{_rjfrsStatus = a});+rjfrsResponseStatus :: Lens' RunJobFlowResponse Int+rjfrsResponseStatus = lens _rjfrsResponseStatus (\ s a -> s{_rjfrsResponseStatus = a});

@@ -59,8 +59,8 @@     -- * Application     , Application     , application-    , aAdditionalInfo     , aArgs+    , aAdditionalInfo     , aName     , aVersion @@ -81,9 +81,9 @@     , cluLogURI     , cluRunningAMIVersion     , cluMasterPublicDNSName-    , cluAutoTerminate     , cluTerminationProtected     , cluVisibleToAllUsers+    , cluAutoTerminate     , cluApplications     , cluTags     , cluServiceRole@@ -139,8 +139,8 @@     , eiaEC2KeyName     , eiaEmrManagedSlaveSecurityGroup     , eiaAdditionalSlaveSecurityGroups-    , eiaIAMInstanceProfile     , eiaAdditionalMasterSecurityGroups+    , eiaIAMInstanceProfile     , eiaEmrManagedMasterSecurityGroup     , eiaEC2SubnetId     , eiaEC2AvailabilityZone@@ -247,8 +247,8 @@     -- * JobFlowInstancesConfig     , JobFlowInstancesConfig     , jobFlowInstancesConfig-    , jficSlaveInstanceType     , jficEC2KeyName+    , jficSlaveInstanceType     , jficInstanceCount     , jficEmrManagedSlaveSecurityGroup     , jficAdditionalSlaveSecurityGroups

@@ -41,8 +41,8 @@ -- -- /See:/ 'application' smart constructor. data Application = Application'-    { _aAdditionalInfo :: !(Maybe (Map Text Text))-    , _aArgs           :: !(Maybe [Text])+    { _aArgs           :: !(Maybe [Text])+    , _aAdditionalInfo :: !(Maybe (Map Text Text))     , _aName           :: !(Maybe Text)     , _aVersion        :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -51,10 +51,10 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'aAdditionalInfo'--- -- * 'aArgs' --+-- * 'aAdditionalInfo'+-- -- * 'aName' -- -- * 'aVersion'@@ -62,22 +62,22 @@     :: Application application =     Application'-    { _aAdditionalInfo = Nothing-    , _aArgs = Nothing+    { _aArgs = Nothing+    , _aAdditionalInfo = Nothing     , _aName = Nothing     , _aVersion = Nothing     } +-- | Arguments for Amazon EMR to pass to the application.+aArgs :: Lens' Application [Text]+aArgs = lens _aArgs (\ s a -> s{_aArgs = a}) . _Default . _Coerce;+ -- | This option is for advanced users only. This is meta information about -- third-party applications that third-party vendors use for testing -- purposes. aAdditionalInfo :: Lens' Application (HashMap Text Text) aAdditionalInfo = lens _aAdditionalInfo (\ s a -> s{_aAdditionalInfo = a}) . _Default . _Map; --- | Arguments for Amazon EMR to pass to the application.-aArgs :: Lens' Application [Text]-aArgs = lens _aArgs (\ s a -> s{_aArgs = a}) . _Default . _Coerce;- -- | The name of the application. aName :: Lens' Application (Maybe Text) aName = lens _aName (\ s a -> s{_aName = a});@@ -91,8 +91,8 @@           = withObject "Application"               (\ x ->                  Application' <$>-                   (x .:? "AdditionalInfo" .!= mempty) <*>-                     (x .:? "Args" .!= mempty)+                   (x .:? "Args" .!= mempty) <*>+                     (x .:? "AdditionalInfo" .!= mempty)                      <*> (x .:? "Name")                      <*> (x .:? "Version")) @@ -100,8 +100,9 @@         toJSON Application'{..}           = object               (catMaybes-                 [("AdditionalInfo" .=) <$> _aAdditionalInfo,-                  ("Args" .=) <$> _aArgs, ("Name" .=) <$> _aName,+                 [("Args" .=) <$> _aArgs,+                  ("AdditionalInfo" .=) <$> _aAdditionalInfo,+                  ("Name" .=) <$> _aName,                   ("Version" .=) <$> _aVersion])  -- | Configuration of a bootstrap action.@@ -158,9 +159,9 @@     , _cluLogURI                  :: !(Maybe Text)     , _cluRunningAMIVersion       :: !(Maybe Text)     , _cluMasterPublicDNSName     :: !(Maybe Text)-    , _cluAutoTerminate           :: !(Maybe Bool)     , _cluTerminationProtected    :: !(Maybe Bool)     , _cluVisibleToAllUsers       :: !(Maybe Bool)+    , _cluAutoTerminate           :: !(Maybe Bool)     , _cluApplications            :: !(Maybe [Application])     , _cluTags                    :: !(Maybe [Tag])     , _cluServiceRole             :: !(Maybe Text)@@ -189,12 +190,12 @@ -- -- * 'cluMasterPublicDNSName' ----- * 'cluAutoTerminate'--- -- * 'cluTerminationProtected' -- -- * 'cluVisibleToAllUsers' --+-- * 'cluAutoTerminate'+-- -- * 'cluApplications' -- -- * 'cluTags'@@ -221,9 +222,9 @@     , _cluLogURI = Nothing     , _cluRunningAMIVersion = Nothing     , _cluMasterPublicDNSName = Nothing-    , _cluAutoTerminate = Nothing     , _cluTerminationProtected = Nothing     , _cluVisibleToAllUsers = Nothing+    , _cluAutoTerminate = Nothing     , _cluApplications = Nothing     , _cluTags = Nothing     , _cluServiceRole = Nothing@@ -273,11 +274,6 @@ cluMasterPublicDNSName :: Lens' Cluster (Maybe Text) cluMasterPublicDNSName = lens _cluMasterPublicDNSName (\ s a -> s{_cluMasterPublicDNSName = a}); --- | Specifies whether the cluster should terminate after completing all--- steps.-cluAutoTerminate :: Lens' Cluster (Maybe Bool)-cluAutoTerminate = lens _cluAutoTerminate (\ s a -> s{_cluAutoTerminate = a});- -- | Indicates whether Amazon EMR will lock the cluster to prevent the EC2 -- instances from being terminated by an API call or user intervention, or -- in the event of a cluster error.@@ -293,6 +289,11 @@ cluVisibleToAllUsers :: Lens' Cluster (Maybe Bool) cluVisibleToAllUsers = lens _cluVisibleToAllUsers (\ s a -> s{_cluVisibleToAllUsers = a}); +-- | Specifies whether the cluster should terminate after completing all+-- steps.+cluAutoTerminate :: Lens' Cluster (Maybe Bool)+cluAutoTerminate = lens _cluAutoTerminate (\ s a -> s{_cluAutoTerminate = a});+ -- | The applications installed on this cluster. cluApplications :: Lens' Cluster [Application] cluApplications = lens _cluApplications (\ s a -> s{_cluApplications = a}) . _Default . _Coerce;@@ -331,9 +332,9 @@                      <*> (x .:? "LogUri")                      <*> (x .:? "RunningAmiVersion")                      <*> (x .:? "MasterPublicDnsName")-                     <*> (x .:? "AutoTerminate")                      <*> (x .:? "TerminationProtected")                      <*> (x .:? "VisibleToAllUsers")+                     <*> (x .:? "AutoTerminate")                      <*> (x .:? "Applications" .!= mempty)                      <*> (x .:? "Tags" .!= mempty)                      <*> (x .:? "ServiceRole")@@ -657,8 +658,8 @@     { _eiaEC2KeyName                     :: !(Maybe Text)     , _eiaEmrManagedSlaveSecurityGroup   :: !(Maybe Text)     , _eiaAdditionalSlaveSecurityGroups  :: !(Maybe [Text])-    , _eiaIAMInstanceProfile             :: !(Maybe Text)     , _eiaAdditionalMasterSecurityGroups :: !(Maybe [Text])+    , _eiaIAMInstanceProfile             :: !(Maybe Text)     , _eiaEmrManagedMasterSecurityGroup  :: !(Maybe Text)     , _eiaEC2SubnetId                    :: !(Maybe Text)     , _eiaEC2AvailabilityZone            :: !(Maybe Text)@@ -674,10 +675,10 @@ -- -- * 'eiaAdditionalSlaveSecurityGroups' ----- * 'eiaIAMInstanceProfile'--- -- * 'eiaAdditionalMasterSecurityGroups' --+-- * 'eiaIAMInstanceProfile'+-- -- * 'eiaEmrManagedMasterSecurityGroup' -- -- * 'eiaEC2SubnetId'@@ -690,8 +691,8 @@     { _eiaEC2KeyName = Nothing     , _eiaEmrManagedSlaveSecurityGroup = Nothing     , _eiaAdditionalSlaveSecurityGroups = Nothing-    , _eiaIAMInstanceProfile = Nothing     , _eiaAdditionalMasterSecurityGroups = Nothing+    , _eiaIAMInstanceProfile = Nothing     , _eiaEmrManagedMasterSecurityGroup = Nothing     , _eiaEC2SubnetId = Nothing     , _eiaEC2AvailabilityZone = Nothing@@ -711,15 +712,15 @@ eiaAdditionalSlaveSecurityGroups :: Lens' EC2InstanceAttributes [Text] eiaAdditionalSlaveSecurityGroups = lens _eiaAdditionalSlaveSecurityGroups (\ s a -> s{_eiaAdditionalSlaveSecurityGroups = a}) . _Default . _Coerce; +-- | A list of additional Amazon EC2 security group IDs for the master node.+eiaAdditionalMasterSecurityGroups :: Lens' EC2InstanceAttributes [Text]+eiaAdditionalMasterSecurityGroups = lens _eiaAdditionalMasterSecurityGroups (\ s a -> s{_eiaAdditionalMasterSecurityGroups = a}) . _Default . _Coerce;+ -- | The IAM role that was specified when the job flow was launched. The EC2 -- instances of the job flow assume this role. eiaIAMInstanceProfile :: Lens' EC2InstanceAttributes (Maybe Text) eiaIAMInstanceProfile = lens _eiaIAMInstanceProfile (\ s a -> s{_eiaIAMInstanceProfile = a}); --- | A list of additional Amazon EC2 security group IDs for the master node.-eiaAdditionalMasterSecurityGroups :: Lens' EC2InstanceAttributes [Text]-eiaAdditionalMasterSecurityGroups = lens _eiaAdditionalMasterSecurityGroups (\ s a -> s{_eiaAdditionalMasterSecurityGroups = a}) . _Default . _Coerce;- -- | The identifier of the Amazon EC2 security group (managed by Amazon -- Elastic MapReduce) for the master node. eiaEmrManagedMasterSecurityGroup :: Lens' EC2InstanceAttributes (Maybe Text)@@ -749,9 +750,9 @@                      (x .:? "EmrManagedSlaveSecurityGroup")                      <*>                      (x .:? "AdditionalSlaveSecurityGroups" .!= mempty)-                     <*> (x .:? "IamInstanceProfile")                      <*>                      (x .:? "AdditionalMasterSecurityGroups" .!= mempty)+                     <*> (x .:? "IamInstanceProfile")                      <*> (x .:? "EmrManagedMasterSecurityGroup")                      <*> (x .:? "Ec2SubnetId")                      <*> (x .:? "Ec2AvailabilityZone"))@@ -1497,8 +1498,8 @@ -- -- /See:/ 'jobFlowInstancesConfig' smart constructor. data JobFlowInstancesConfig = JobFlowInstancesConfig'-    { _jficSlaveInstanceType              :: !(Maybe Text)-    , _jficEC2KeyName                     :: !(Maybe Text)+    { _jficEC2KeyName                     :: !(Maybe Text)+    , _jficSlaveInstanceType              :: !(Maybe Text)     , _jficInstanceCount                  :: !(Maybe Int)     , _jficEmrManagedSlaveSecurityGroup   :: !(Maybe Text)     , _jficAdditionalSlaveSecurityGroups  :: !(Maybe [Text])@@ -1517,10 +1518,10 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'jficSlaveInstanceType'--- -- * 'jficEC2KeyName' --+-- * 'jficSlaveInstanceType'+-- -- * 'jficInstanceCount' -- -- * 'jficEmrManagedSlaveSecurityGroup'@@ -1548,8 +1549,8 @@     :: JobFlowInstancesConfig jobFlowInstancesConfig =     JobFlowInstancesConfig'-    { _jficSlaveInstanceType = Nothing-    , _jficEC2KeyName = Nothing+    { _jficEC2KeyName = Nothing+    , _jficSlaveInstanceType = Nothing     , _jficInstanceCount = Nothing     , _jficEmrManagedSlaveSecurityGroup = Nothing     , _jficAdditionalSlaveSecurityGroups = Nothing@@ -1564,15 +1565,15 @@     , _jficPlacement = Nothing     } --- | The EC2 instance type of the slave nodes.-jficSlaveInstanceType :: Lens' JobFlowInstancesConfig (Maybe Text)-jficSlaveInstanceType = lens _jficSlaveInstanceType (\ s a -> s{_jficSlaveInstanceType = a});- -- | The name of the Amazon EC2 key pair that can be used to ssh to the -- master node as the user called \"hadoop.\" jficEC2KeyName :: Lens' JobFlowInstancesConfig (Maybe Text) jficEC2KeyName = lens _jficEC2KeyName (\ s a -> s{_jficEC2KeyName = a}); +-- | The EC2 instance type of the slave nodes.+jficSlaveInstanceType :: Lens' JobFlowInstancesConfig (Maybe Text)+jficSlaveInstanceType = lens _jficSlaveInstanceType (\ s a -> s{_jficSlaveInstanceType = a});+ -- | The number of Amazon EC2 instances used to execute the job flow. jficInstanceCount :: Lens' JobFlowInstancesConfig (Maybe Int) jficInstanceCount = lens _jficInstanceCount (\ s a -> s{_jficInstanceCount = a});@@ -1643,8 +1644,8 @@         toJSON JobFlowInstancesConfig'{..}           = object               (catMaybes-                 [("SlaveInstanceType" .=) <$> _jficSlaveInstanceType,-                  ("Ec2KeyName" .=) <$> _jficEC2KeyName,+                 [("Ec2KeyName" .=) <$> _jficEC2KeyName,+                  ("SlaveInstanceType" .=) <$> _jficSlaveInstanceType,                   ("InstanceCount" .=) <$> _jficInstanceCount,                   ("EmrManagedSlaveSecurityGroup" .=) <$>                     _jficEmrManagedSlaveSecurityGroup,

@@ -54,36 +54,36 @@     parseJSON = parseJSONText "ActionOnFailure"  data ClusterState-    = Bootstrapping-    | Running-    | Starting-    | Terminated-    | TerminatedWithErrors-    | Terminating-    | Waiting+    = CSBootstrapping+    | CSRunning+    | CSStarting+    | CSTerminated+    | CSTerminatedWithErrors+    | CSTerminating+    | CSWaiting     deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)  instance FromText ClusterState where     parser = takeLowerText >>= \case-        "bootstrapping" -> pure Bootstrapping-        "running" -> pure Running-        "starting" -> pure Starting-        "terminated" -> pure Terminated-        "terminated_with_errors" -> pure TerminatedWithErrors-        "terminating" -> pure Terminating-        "waiting" -> pure Waiting+        "bootstrapping" -> pure CSBootstrapping+        "running" -> pure CSRunning+        "starting" -> pure CSStarting+        "terminated" -> pure CSTerminated+        "terminated_with_errors" -> pure CSTerminatedWithErrors+        "terminating" -> pure CSTerminating+        "waiting" -> pure CSWaiting         e -> fromTextError $ "Failure parsing ClusterState from value: '" <> e            <> "'. Accepted values: BOOTSTRAPPING, RUNNING, STARTING, TERMINATED, TERMINATED_WITH_ERRORS, TERMINATING, WAITING"  instance ToText ClusterState where     toText = \case-        Bootstrapping -> "BOOTSTRAPPING"-        Running -> "RUNNING"-        Starting -> "STARTING"-        Terminated -> "TERMINATED"-        TerminatedWithErrors -> "TERMINATED_WITH_ERRORS"-        Terminating -> "TERMINATING"-        Waiting -> "WAITING"+        CSBootstrapping -> "BOOTSTRAPPING"+        CSRunning -> "RUNNING"+        CSStarting -> "STARTING"+        CSTerminated -> "TERMINATED"+        CSTerminatedWithErrors -> "TERMINATED_WITH_ERRORS"+        CSTerminating -> "TERMINATING"+        CSWaiting -> "WAITING"  instance Hashable     ClusterState instance ToByteString ClusterState@@ -97,36 +97,36 @@     parseJSON = parseJSONText "ClusterState"  data ClusterStateChangeReasonCode-    = AllStepsCompleted-    | BootstrapFailure-    | InstanceFailure-    | InternalError-    | StepFailure-    | UserRequest-    | ValidationError+    = CSCRCAllStepsCompleted+    | CSCRCBootstrapFailure+    | CSCRCInstanceFailure+    | CSCRCInternalError+    | CSCRCStepFailure+    | CSCRCUserRequest+    | CSCRCValidationError     deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)  instance FromText ClusterStateChangeReasonCode where     parser = takeLowerText >>= \case-        "all_steps_completed" -> pure AllStepsCompleted-        "bootstrap_failure" -> pure BootstrapFailure-        "instance_failure" -> pure InstanceFailure-        "internal_error" -> pure InternalError-        "step_failure" -> pure StepFailure-        "user_request" -> pure UserRequest-        "validation_error" -> pure ValidationError+        "all_steps_completed" -> pure CSCRCAllStepsCompleted+        "bootstrap_failure" -> pure CSCRCBootstrapFailure+        "instance_failure" -> pure CSCRCInstanceFailure+        "internal_error" -> pure CSCRCInternalError+        "step_failure" -> pure CSCRCStepFailure+        "user_request" -> pure CSCRCUserRequest+        "validation_error" -> pure CSCRCValidationError         e -> fromTextError $ "Failure parsing ClusterStateChangeReasonCode from value: '" <> e            <> "'. Accepted values: ALL_STEPS_COMPLETED, BOOTSTRAP_FAILURE, INSTANCE_FAILURE, INTERNAL_ERROR, STEP_FAILURE, USER_REQUEST, VALIDATION_ERROR"  instance ToText ClusterStateChangeReasonCode where     toText = \case-        AllStepsCompleted -> "ALL_STEPS_COMPLETED"-        BootstrapFailure -> "BOOTSTRAP_FAILURE"-        InstanceFailure -> "INSTANCE_FAILURE"-        InternalError -> "INTERNAL_ERROR"-        StepFailure -> "STEP_FAILURE"-        UserRequest -> "USER_REQUEST"-        ValidationError -> "VALIDATION_ERROR"+        CSCRCAllStepsCompleted -> "ALL_STEPS_COMPLETED"+        CSCRCBootstrapFailure -> "BOOTSTRAP_FAILURE"+        CSCRCInstanceFailure -> "INSTANCE_FAILURE"+        CSCRCInternalError -> "INTERNAL_ERROR"+        CSCRCStepFailure -> "STEP_FAILURE"+        CSCRCUserRequest -> "USER_REQUEST"+        CSCRCValidationError -> "VALIDATION_ERROR"  instance Hashable     ClusterStateChangeReasonCode instance ToByteString ClusterStateChangeReasonCode@@ -137,45 +137,45 @@     parseJSON = parseJSONText "ClusterStateChangeReasonCode"  data InstanceGroupState-    = IGSArrested-    | IGSBootstrapping-    | IGSEnded-    | IGSProvisioning-    | IGSResizing-    | IGSRunning-    | IGSShuttingDown-    | IGSSuspended-    | IGSTerminated-    | IGSTerminating+    = Arrested+    | Bootstrapping+    | Ended+    | Provisioning+    | Resizing+    | Running+    | ShuttingDown+    | Suspended+    | Terminated+    | Terminating     deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)  instance FromText InstanceGroupState where     parser = takeLowerText >>= \case-        "arrested" -> pure IGSArrested-        "bootstrapping" -> pure IGSBootstrapping-        "ended" -> pure IGSEnded-        "provisioning" -> pure IGSProvisioning-        "resizing" -> pure IGSResizing-        "running" -> pure IGSRunning-        "shutting_down" -> pure IGSShuttingDown-        "suspended" -> pure IGSSuspended-        "terminated" -> pure IGSTerminated-        "terminating" -> pure IGSTerminating+        "arrested" -> pure Arrested+        "bootstrapping" -> pure Bootstrapping+        "ended" -> pure Ended+        "provisioning" -> pure Provisioning+        "resizing" -> pure Resizing+        "running" -> pure Running+        "shutting_down" -> pure ShuttingDown+        "suspended" -> pure Suspended+        "terminated" -> pure Terminated+        "terminating" -> pure Terminating         e -> fromTextError $ "Failure parsing InstanceGroupState from value: '" <> e            <> "'. Accepted values: ARRESTED, BOOTSTRAPPING, ENDED, PROVISIONING, RESIZING, RUNNING, SHUTTING_DOWN, SUSPENDED, TERMINATED, TERMINATING"  instance ToText InstanceGroupState where     toText = \case-        IGSArrested -> "ARRESTED"-        IGSBootstrapping -> "BOOTSTRAPPING"-        IGSEnded -> "ENDED"-        IGSProvisioning -> "PROVISIONING"-        IGSResizing -> "RESIZING"-        IGSRunning -> "RUNNING"-        IGSShuttingDown -> "SHUTTING_DOWN"-        IGSSuspended -> "SUSPENDED"-        IGSTerminated -> "TERMINATED"-        IGSTerminating -> "TERMINATING"+        Arrested -> "ARRESTED"+        Bootstrapping -> "BOOTSTRAPPING"+        Ended -> "ENDED"+        Provisioning -> "PROVISIONING"+        Resizing -> "RESIZING"+        Running -> "RUNNING"+        ShuttingDown -> "SHUTTING_DOWN"+        Suspended -> "SUSPENDED"+        Terminated -> "TERMINATED"+        Terminating -> "TERMINATING"  instance Hashable     InstanceGroupState instance ToByteString InstanceGroupState@@ -186,27 +186,27 @@     parseJSON = parseJSONText "InstanceGroupState"  data InstanceGroupStateChangeReasonCode-    = IGSCRCClusterTerminated-    | IGSCRCInstanceFailure-    | IGSCRCInternalError-    | IGSCRCValidationError+    = ClusterTerminated+    | InstanceFailure+    | InternalError+    | ValidationError     deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)  instance FromText InstanceGroupStateChangeReasonCode where     parser = takeLowerText >>= \case-        "cluster_terminated" -> pure IGSCRCClusterTerminated-        "instance_failure" -> pure IGSCRCInstanceFailure-        "internal_error" -> pure IGSCRCInternalError-        "validation_error" -> pure IGSCRCValidationError+        "cluster_terminated" -> pure ClusterTerminated+        "instance_failure" -> pure InstanceFailure+        "internal_error" -> pure InternalError+        "validation_error" -> pure ValidationError         e -> fromTextError $ "Failure parsing InstanceGroupStateChangeReasonCode from value: '" <> e            <> "'. Accepted values: CLUSTER_TERMINATED, INSTANCE_FAILURE, INTERNAL_ERROR, VALIDATION_ERROR"  instance ToText InstanceGroupStateChangeReasonCode where     toText = \case-        IGSCRCClusterTerminated -> "CLUSTER_TERMINATED"-        IGSCRCInstanceFailure -> "INSTANCE_FAILURE"-        IGSCRCInternalError -> "INTERNAL_ERROR"-        IGSCRCValidationError -> "VALIDATION_ERROR"+        ClusterTerminated -> "CLUSTER_TERMINATED"+        InstanceFailure -> "INSTANCE_FAILURE"+        InternalError -> "INTERNAL_ERROR"+        ValidationError -> "VALIDATION_ERROR"  instance Hashable     InstanceGroupStateChangeReasonCode instance ToByteString InstanceGroupStateChangeReasonCode@@ -217,24 +217,24 @@     parseJSON = parseJSONText "InstanceGroupStateChangeReasonCode"  data InstanceGroupType-    = IGTCore-    | IGTMaster-    | IGTTask+    = Core+    | Master+    | Task     deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)  instance FromText InstanceGroupType where     parser = takeLowerText >>= \case-        "core" -> pure IGTCore-        "master" -> pure IGTMaster-        "task" -> pure IGTTask+        "core" -> pure Core+        "master" -> pure Master+        "task" -> pure Task         e -> fromTextError $ "Failure parsing InstanceGroupType from value: '" <> e            <> "'. Accepted values: CORE, MASTER, TASK"  instance ToText InstanceGroupType where     toText = \case-        IGTCore -> "CORE"-        IGTMaster -> "MASTER"-        IGTTask -> "TASK"+        Core -> "CORE"+        Master -> "MASTER"+        Task -> "TASK"  instance Hashable     InstanceGroupType instance ToByteString InstanceGroupType@@ -248,24 +248,24 @@     parseJSON = parseJSONText "InstanceGroupType"  data InstanceRoleType-    = Core-    | Master-    | Task+    = IRTCore+    | IRTMaster+    | IRTTask     deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)  instance FromText InstanceRoleType where     parser = takeLowerText >>= \case-        "core" -> pure Core-        "master" -> pure Master-        "task" -> pure Task+        "core" -> pure IRTCore+        "master" -> pure IRTMaster+        "task" -> pure IRTTask         e -> fromTextError $ "Failure parsing InstanceRoleType from value: '" <> e            <> "'. Accepted values: CORE, MASTER, TASK"  instance ToText InstanceRoleType where     toText = \case-        Core -> "CORE"-        Master -> "MASTER"-        Task -> "TASK"+        IRTCore -> "CORE"+        IRTMaster -> "MASTER"+        IRTTask -> "TASK"  instance Hashable     InstanceRoleType instance ToByteString InstanceRoleType

@@ -37,23 +37,23 @@ --         , testTerminateJobFlows $ --             terminateJobFlows -----         , testRemoveTags $---             removeTags--- --         , testDescribeStep $ --             describeStep --+--         , testRemoveTags $+--             removeTags+-- --         , testDescribeCluster $ --             describeCluster -----         , testModifyInstanceGroups $---             modifyInstanceGroups+--         , testSetTerminationProtection $+--             setTerminationProtection -- --         , testAddJobFlowSteps $ --             addJobFlowSteps -----         , testSetTerminationProtection $---             setTerminationProtection+--         , testModifyInstanceGroups $+--             modifyInstanceGroups -- --         , testListSteps $ --             listSteps@@ -88,23 +88,23 @@ --         , testTerminateJobFlowsResponse $ --             terminateJobFlowsResponse -----         , testRemoveTagsResponse $---             removeTagsResponse--- --         , testDescribeStepResponse $ --             describeStepResponse --+--         , testRemoveTagsResponse $+--             removeTagsResponse+-- --         , testDescribeClusterResponse $ --             describeClusterResponse -----         , testModifyInstanceGroupsResponse $---             modifyInstanceGroupsResponse+--         , testSetTerminationProtectionResponse $+--             setTerminationProtectionResponse -- --         , testAddJobFlowStepsResponse $ --             addJobFlowStepsResponse -----         , testSetTerminationProtectionResponse $---             setTerminationProtectionResponse+--         , testModifyInstanceGroupsResponse $+--             modifyInstanceGroupsResponse -- --         , testListStepsResponse $ --             listStepsResponse@@ -147,35 +147,35 @@     "TerminateJobFlows"     "fixture/TerminateJobFlows.yaml" -testRemoveTags :: RemoveTags -> TestTree-testRemoveTags = req-    "RemoveTags"-    "fixture/RemoveTags.yaml"- testDescribeStep :: DescribeStep -> TestTree testDescribeStep = req     "DescribeStep"     "fixture/DescribeStep.yaml" +testRemoveTags :: RemoveTags -> TestTree+testRemoveTags = req+    "RemoveTags"+    "fixture/RemoveTags.yaml"+ testDescribeCluster :: DescribeCluster -> TestTree testDescribeCluster = req     "DescribeCluster"     "fixture/DescribeCluster.yaml" -testModifyInstanceGroups :: ModifyInstanceGroups -> TestTree-testModifyInstanceGroups = req-    "ModifyInstanceGroups"-    "fixture/ModifyInstanceGroups.yaml"+testSetTerminationProtection :: SetTerminationProtection -> TestTree+testSetTerminationProtection = req+    "SetTerminationProtection"+    "fixture/SetTerminationProtection.yaml"  testAddJobFlowSteps :: AddJobFlowSteps -> TestTree testAddJobFlowSteps = req     "AddJobFlowSteps"     "fixture/AddJobFlowSteps.yaml" -testSetTerminationProtection :: SetTerminationProtection -> TestTree-testSetTerminationProtection = req-    "SetTerminationProtection"-    "fixture/SetTerminationProtection.yaml"+testModifyInstanceGroups :: ModifyInstanceGroups -> TestTree+testModifyInstanceGroups = req+    "ModifyInstanceGroups"+    "fixture/ModifyInstanceGroups.yaml"  testListSteps :: ListSteps -> TestTree testListSteps = req@@ -235,13 +235,6 @@     eMR     (Proxy :: Proxy TerminateJobFlows) -testRemoveTagsResponse :: RemoveTagsResponse -> TestTree-testRemoveTagsResponse = res-    "RemoveTagsResponse"-    "fixture/RemoveTagsResponse.proto"-    eMR-    (Proxy :: Proxy RemoveTags)- testDescribeStepResponse :: DescribeStepResponse -> TestTree testDescribeStepResponse = res     "DescribeStepResponse"@@ -249,6 +242,13 @@     eMR     (Proxy :: Proxy DescribeStep) +testRemoveTagsResponse :: RemoveTagsResponse -> TestTree+testRemoveTagsResponse = res+    "RemoveTagsResponse"+    "fixture/RemoveTagsResponse.proto"+    eMR+    (Proxy :: Proxy RemoveTags)+ testDescribeClusterResponse :: DescribeClusterResponse -> TestTree testDescribeClusterResponse = res     "DescribeClusterResponse"@@ -256,12 +256,12 @@     eMR     (Proxy :: Proxy DescribeCluster) -testModifyInstanceGroupsResponse :: ModifyInstanceGroupsResponse -> TestTree-testModifyInstanceGroupsResponse = res-    "ModifyInstanceGroupsResponse"-    "fixture/ModifyInstanceGroupsResponse.proto"+testSetTerminationProtectionResponse :: SetTerminationProtectionResponse -> TestTree+testSetTerminationProtectionResponse = res+    "SetTerminationProtectionResponse"+    "fixture/SetTerminationProtectionResponse.proto"     eMR-    (Proxy :: Proxy ModifyInstanceGroups)+    (Proxy :: Proxy SetTerminationProtection)  testAddJobFlowStepsResponse :: AddJobFlowStepsResponse -> TestTree testAddJobFlowStepsResponse = res@@ -270,12 +270,12 @@     eMR     (Proxy :: Proxy AddJobFlowSteps) -testSetTerminationProtectionResponse :: SetTerminationProtectionResponse -> TestTree-testSetTerminationProtectionResponse = res-    "SetTerminationProtectionResponse"-    "fixture/SetTerminationProtectionResponse.proto"+testModifyInstanceGroupsResponse :: ModifyInstanceGroupsResponse -> TestTree+testModifyInstanceGroupsResponse = res+    "ModifyInstanceGroupsResponse"+    "fixture/ModifyInstanceGroupsResponse.proto"     eMR-    (Proxy :: Proxy SetTerminationProtection)+    (Proxy :: Proxy ModifyInstanceGroups)  testListStepsResponse :: ListStepsResponse -> TestTree testListStepsResponse = res