amazonka-cloudwatch-events 1.5.0 → 1.6.0

raw patch · 26 files changed

+513/−248 lines, 26 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-cloudwatch-events.cabal +5/−5
• gen/Network/AWS/CloudWatchEvents.hs +26/−1
• gen/Network/AWS/CloudWatchEvents/DeleteRule.hs +2/−2
• gen/Network/AWS/CloudWatchEvents/DescribeEventBus.hs +10/−10
• gen/Network/AWS/CloudWatchEvents/DescribeRule.hs +19/−19
• gen/Network/AWS/CloudWatchEvents/DisableRule.hs +2/−2
• gen/Network/AWS/CloudWatchEvents/EnableRule.hs +2/−2
• gen/Network/AWS/CloudWatchEvents/ListRuleNamesByTarget.hs +15/−15
• gen/Network/AWS/CloudWatchEvents/ListRules.hs +12/−12
• gen/Network/AWS/CloudWatchEvents/ListTargetsByRule.hs +12/−12
• gen/Network/AWS/CloudWatchEvents/PutEvents.hs +9/−9
• gen/Network/AWS/CloudWatchEvents/PutPermission.hs +8/−8
• gen/Network/AWS/CloudWatchEvents/PutRule.hs +19/−17
• gen/Network/AWS/CloudWatchEvents/PutTargets.hs +14/−12
• gen/Network/AWS/CloudWatchEvents/RemovePermission.hs +2/−2
• gen/Network/AWS/CloudWatchEvents/RemoveTargets.hs +10/−10
• gen/Network/AWS/CloudWatchEvents/TestEventPattern.hs +6/−6
• gen/Network/AWS/CloudWatchEvents/Types.hs +43/−16
• gen/Network/AWS/CloudWatchEvents/Types/Product.hs +290/−81
• gen/Network/AWS/CloudWatchEvents/Types/Sum.hs +1/−1
• gen/Network/AWS/CloudWatchEvents/Waiters.hs +1/−1
• test/Main.hs +1/−1
• test/Test/AWS/CloudWatchEvents.hs +1/−1
• test/Test/AWS/CloudWatchEvents/Internal.hs +1/−1
• test/Test/AWS/Gen/CloudWatchEvents.hs +1/−1

@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-cloudwatch-events-version:               1.5.0+version:               1.6.0 synopsis:              Amazon CloudWatch Events SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -68,7 +68,7 @@         , Network.AWS.CloudWatchEvents.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-cloudwatch-events-test@@ -88,8 +88,8 @@         , Test.AWS.CloudWatchEvents.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-cloudwatch-events         , base         , bytestring

@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.CloudWatchEvents--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -106,6 +106,24 @@     -- ** RuleState     , RuleState (..) +    -- ** BatchArrayProperties+    , BatchArrayProperties+    , batchArrayProperties+    , bapSize++    -- ** BatchParameters+    , BatchParameters+    , batchParameters+    , bpRetryStrategy+    , bpArrayProperties+    , bpJobDefinition+    , bpJobName++    -- ** BatchRetryStrategy+    , BatchRetryStrategy+    , batchRetryStrategy+    , brsAttempts+     -- ** EcsParameters     , EcsParameters     , ecsParameters@@ -175,13 +193,20 @@     , rctKey     , rctValues +    -- ** SqsParameters+    , SqsParameters+    , sqsParameters+    , spMessageGroupId+     -- ** Target     , Target     , target     , tRunCommandParameters     , tKinesisParameters     , tInputTransformer+    , tSqsParameters     , tInput+    , tBatchParameters     , tEcsParameters     , tInputPath     , tRoleARN

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudWatchEvents.DeleteRule--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@  -- | The name of the rule. drName :: Lens' DeleteRule Text-drName = lens _drName (\ s a -> s{_drName = a});+drName = lens _drName (\ s a -> s{_drName = a})  instance AWSRequest DeleteRule where         type Rs DeleteRule = DeleteRuleResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudWatchEvents.DescribeEventBus--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -114,27 +114,27 @@     -> DescribeEventBusResponse describeEventBusResponse pResponseStatus_ =   DescribeEventBusResponse'-  { _debrsARN = Nothing-  , _debrsName = Nothing-  , _debrsPolicy = Nothing-  , _debrsResponseStatus = pResponseStatus_-  }+    { _debrsARN = Nothing+    , _debrsName = Nothing+    , _debrsPolicy = Nothing+    , _debrsResponseStatus = pResponseStatus_+    }   -- | The Amazon Resource Name (ARN) of the account permitted to write events to the current account. debrsARN :: Lens' DescribeEventBusResponse (Maybe Text)-debrsARN = lens _debrsARN (\ s a -> s{_debrsARN = a});+debrsARN = lens _debrsARN (\ s a -> s{_debrsARN = a})  -- | The name of the event bus. Currently, this is always @default@ . debrsName :: Lens' DescribeEventBusResponse (Maybe Text)-debrsName = lens _debrsName (\ s a -> s{_debrsName = a});+debrsName = lens _debrsName (\ s a -> s{_debrsName = a})  -- | The policy that enables the external account to send events to your account. debrsPolicy :: Lens' DescribeEventBusResponse (Maybe Text)-debrsPolicy = lens _debrsPolicy (\ s a -> s{_debrsPolicy = a});+debrsPolicy = lens _debrsPolicy (\ s a -> s{_debrsPolicy = a})  -- | -- | The response status code. debrsResponseStatus :: Lens' DescribeEventBusResponse Int-debrsResponseStatus = lens _debrsResponseStatus (\ s a -> s{_debrsResponseStatus = a});+debrsResponseStatus = lens _debrsResponseStatus (\ s a -> s{_debrsResponseStatus = a})  instance NFData DescribeEventBusResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudWatchEvents.DescribeRule--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,7 +69,7 @@  -- | The name of the rule. desName :: Lens' DescribeRule Text-desName = lens _desName (\ s a -> s{_desName = a});+desName = lens _desName (\ s a -> s{_desName = a})  instance AWSRequest DescribeRule where         type Rs DescribeRule = DescribeRuleResponse@@ -146,47 +146,47 @@     -> DescribeRuleResponse describeRuleResponse pResponseStatus_ =   DescribeRuleResponse'-  { _drrsEventPattern = Nothing-  , _drrsState = Nothing-  , _drrsARN = Nothing-  , _drrsScheduleExpression = Nothing-  , _drrsName = Nothing-  , _drrsDescription = Nothing-  , _drrsRoleARN = Nothing-  , _drrsResponseStatus = pResponseStatus_-  }+    { _drrsEventPattern = Nothing+    , _drrsState = Nothing+    , _drrsARN = Nothing+    , _drrsScheduleExpression = Nothing+    , _drrsName = Nothing+    , _drrsDescription = Nothing+    , _drrsRoleARN = Nothing+    , _drrsResponseStatus = pResponseStatus_+    }   -- | The event pattern. For more information, see <http://docs.aws.amazon.com/AmazonCloudWatch/latest/events/CloudWatchEventsandEventPatterns.html Events and Event Patterns> in the /Amazon CloudWatch Events User Guide/ . drrsEventPattern :: Lens' DescribeRuleResponse (Maybe Text)-drrsEventPattern = lens _drrsEventPattern (\ s a -> s{_drrsEventPattern = a});+drrsEventPattern = lens _drrsEventPattern (\ s a -> s{_drrsEventPattern = a})  -- | Specifies whether the rule is enabled or disabled. drrsState :: Lens' DescribeRuleResponse (Maybe RuleState)-drrsState = lens _drrsState (\ s a -> s{_drrsState = a});+drrsState = lens _drrsState (\ s a -> s{_drrsState = a})  -- | The Amazon Resource Name (ARN) of the rule. drrsARN :: Lens' DescribeRuleResponse (Maybe Text)-drrsARN = lens _drrsARN (\ s a -> s{_drrsARN = a});+drrsARN = lens _drrsARN (\ s a -> s{_drrsARN = a})  -- | The scheduling expression. For example, "cron(0 20 * * ? *)", "rate(5 minutes)". drrsScheduleExpression :: Lens' DescribeRuleResponse (Maybe Text)-drrsScheduleExpression = lens _drrsScheduleExpression (\ s a -> s{_drrsScheduleExpression = a});+drrsScheduleExpression = lens _drrsScheduleExpression (\ s a -> s{_drrsScheduleExpression = a})  -- | The name of the rule. drrsName :: Lens' DescribeRuleResponse (Maybe Text)-drrsName = lens _drrsName (\ s a -> s{_drrsName = a});+drrsName = lens _drrsName (\ s a -> s{_drrsName = a})  -- | The description of the rule. drrsDescription :: Lens' DescribeRuleResponse (Maybe Text)-drrsDescription = lens _drrsDescription (\ s a -> s{_drrsDescription = a});+drrsDescription = lens _drrsDescription (\ s a -> s{_drrsDescription = a})  -- | The Amazon Resource Name (ARN) of the IAM role associated with the rule. drrsRoleARN :: Lens' DescribeRuleResponse (Maybe Text)-drrsRoleARN = lens _drrsRoleARN (\ s a -> s{_drrsRoleARN = a});+drrsRoleARN = lens _drrsRoleARN (\ s a -> s{_drrsRoleARN = a})  -- | -- | The response status code. drrsResponseStatus :: Lens' DescribeRuleResponse Int-drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a});+drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a})  instance NFData DescribeRuleResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudWatchEvents.DisableRule--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -62,7 +62,7 @@  -- | The name of the rule. dName :: Lens' DisableRule Text-dName = lens _dName (\ s a -> s{_dName = a});+dName = lens _dName (\ s a -> s{_dName = a})  instance AWSRequest DisableRule where         type Rs DisableRule = DisableRuleResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudWatchEvents.EnableRule--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -62,7 +62,7 @@  -- | The name of the rule. erName :: Lens' EnableRule Text-erName = lens _erName (\ s a -> s{_erName = a});+erName = lens _erName (\ s a -> s{_erName = a})  instance AWSRequest EnableRule where         type Rs EnableRule = EnableRuleResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudWatchEvents.ListRuleNamesByTarget--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,23 +69,23 @@     -> ListRuleNamesByTarget listRuleNamesByTarget pTargetARN_ =   ListRuleNamesByTarget'-  { _lrnbtNextToken = Nothing-  , _lrnbtLimit = Nothing-  , _lrnbtTargetARN = pTargetARN_-  }+    { _lrnbtNextToken = Nothing+    , _lrnbtLimit = Nothing+    , _lrnbtTargetARN = pTargetARN_+    }   -- | The token returned by a previous call to retrieve the next set of results. lrnbtNextToken :: Lens' ListRuleNamesByTarget (Maybe Text)-lrnbtNextToken = lens _lrnbtNextToken (\ s a -> s{_lrnbtNextToken = a});+lrnbtNextToken = lens _lrnbtNextToken (\ s a -> s{_lrnbtNextToken = a})  -- | The maximum number of results to return. lrnbtLimit :: Lens' ListRuleNamesByTarget (Maybe Natural)-lrnbtLimit = lens _lrnbtLimit (\ s a -> s{_lrnbtLimit = a}) . mapping _Nat;+lrnbtLimit = lens _lrnbtLimit (\ s a -> s{_lrnbtLimit = a}) . mapping _Nat  -- | The Amazon Resource Name (ARN) of the target resource. lrnbtTargetARN :: Lens' ListRuleNamesByTarget Text-lrnbtTargetARN = lens _lrnbtTargetARN (\ s a -> s{_lrnbtTargetARN = a});+lrnbtTargetARN = lens _lrnbtTargetARN (\ s a -> s{_lrnbtTargetARN = a})  instance AWSRequest ListRuleNamesByTarget where         type Rs ListRuleNamesByTarget =@@ -148,22 +148,22 @@     -> ListRuleNamesByTargetResponse listRuleNamesByTargetResponse pResponseStatus_ =   ListRuleNamesByTargetResponse'-  { _lrnbtrsRuleNames = Nothing-  , _lrnbtrsNextToken = Nothing-  , _lrnbtrsResponseStatus = pResponseStatus_-  }+    { _lrnbtrsRuleNames = Nothing+    , _lrnbtrsNextToken = Nothing+    , _lrnbtrsResponseStatus = pResponseStatus_+    }   -- | The names of the rules that can invoke the given target. lrnbtrsRuleNames :: Lens' ListRuleNamesByTargetResponse [Text]-lrnbtrsRuleNames = lens _lrnbtrsRuleNames (\ s a -> s{_lrnbtrsRuleNames = a}) . _Default . _Coerce;+lrnbtrsRuleNames = lens _lrnbtrsRuleNames (\ s a -> s{_lrnbtrsRuleNames = a}) . _Default . _Coerce  -- | Indicates whether there are additional results to retrieve. If there are no more results, the value is null. lrnbtrsNextToken :: Lens' ListRuleNamesByTargetResponse (Maybe Text)-lrnbtrsNextToken = lens _lrnbtrsNextToken (\ s a -> s{_lrnbtrsNextToken = a});+lrnbtrsNextToken = lens _lrnbtrsNextToken (\ s a -> s{_lrnbtrsNextToken = a})  -- | -- | The response status code. lrnbtrsResponseStatus :: Lens' ListRuleNamesByTargetResponse Int-lrnbtrsResponseStatus = lens _lrnbtrsResponseStatus (\ s a -> s{_lrnbtrsResponseStatus = a});+lrnbtrsResponseStatus = lens _lrnbtrsResponseStatus (\ s a -> s{_lrnbtrsResponseStatus = a})  instance NFData ListRuleNamesByTargetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudWatchEvents.ListRules--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,20 +68,20 @@     :: ListRules listRules =   ListRules'-  {_lrNextToken = Nothing, _lrNamePrefix = Nothing, _lrLimit = Nothing}+    {_lrNextToken = Nothing, _lrNamePrefix = Nothing, _lrLimit = Nothing}   -- | The token returned by a previous call to retrieve the next set of results. lrNextToken :: Lens' ListRules (Maybe Text)-lrNextToken = lens _lrNextToken (\ s a -> s{_lrNextToken = a});+lrNextToken = lens _lrNextToken (\ s a -> s{_lrNextToken = a})  -- | The prefix matching the rule name. lrNamePrefix :: Lens' ListRules (Maybe Text)-lrNamePrefix = lens _lrNamePrefix (\ s a -> s{_lrNamePrefix = a});+lrNamePrefix = lens _lrNamePrefix (\ s a -> s{_lrNamePrefix = a})  -- | The maximum number of results to return. lrLimit :: Lens' ListRules (Maybe Natural)-lrLimit = lens _lrLimit (\ s a -> s{_lrLimit = a}) . mapping _Nat;+lrLimit = lens _lrLimit (\ s a -> s{_lrLimit = a}) . mapping _Nat  instance AWSRequest ListRules where         type Rs ListRules = ListRulesResponse@@ -142,22 +142,22 @@     -> ListRulesResponse listRulesResponse pResponseStatus_ =   ListRulesResponse'-  { _lrrsRules = Nothing-  , _lrrsNextToken = Nothing-  , _lrrsResponseStatus = pResponseStatus_-  }+    { _lrrsRules = Nothing+    , _lrrsNextToken = Nothing+    , _lrrsResponseStatus = pResponseStatus_+    }   -- | The rules that match the specified criteria. lrrsRules :: Lens' ListRulesResponse [Rule]-lrrsRules = lens _lrrsRules (\ s a -> s{_lrrsRules = a}) . _Default . _Coerce;+lrrsRules = lens _lrrsRules (\ s a -> s{_lrrsRules = a}) . _Default . _Coerce  -- | Indicates whether there are additional results to retrieve. If there are no more results, the value is null. lrrsNextToken :: Lens' ListRulesResponse (Maybe Text)-lrrsNextToken = lens _lrrsNextToken (\ s a -> s{_lrrsNextToken = a});+lrrsNextToken = lens _lrrsNextToken (\ s a -> s{_lrrsNextToken = a})  -- | -- | The response status code. lrrsResponseStatus :: Lens' ListRulesResponse Int-lrrsResponseStatus = lens _lrrsResponseStatus (\ s a -> s{_lrrsResponseStatus = a});+lrrsResponseStatus = lens _lrrsResponseStatus (\ s a -> s{_lrrsResponseStatus = a})  instance NFData ListRulesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudWatchEvents.ListTargetsByRule--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,20 +69,20 @@     -> ListTargetsByRule listTargetsByRule pRule_ =   ListTargetsByRule'-  {_ltbrNextToken = Nothing, _ltbrLimit = Nothing, _ltbrRule = pRule_}+    {_ltbrNextToken = Nothing, _ltbrLimit = Nothing, _ltbrRule = pRule_}   -- | The token returned by a previous call to retrieve the next set of results. ltbrNextToken :: Lens' ListTargetsByRule (Maybe Text)-ltbrNextToken = lens _ltbrNextToken (\ s a -> s{_ltbrNextToken = a});+ltbrNextToken = lens _ltbrNextToken (\ s a -> s{_ltbrNextToken = a})  -- | The maximum number of results to return. ltbrLimit :: Lens' ListTargetsByRule (Maybe Natural)-ltbrLimit = lens _ltbrLimit (\ s a -> s{_ltbrLimit = a}) . mapping _Nat;+ltbrLimit = lens _ltbrLimit (\ s a -> s{_ltbrLimit = a}) . mapping _Nat  -- | The name of the rule. ltbrRule :: Lens' ListTargetsByRule Text-ltbrRule = lens _ltbrRule (\ s a -> s{_ltbrRule = a});+ltbrRule = lens _ltbrRule (\ s a -> s{_ltbrRule = a})  instance AWSRequest ListTargetsByRule where         type Rs ListTargetsByRule = ListTargetsByRuleResponse@@ -143,22 +143,22 @@     -> ListTargetsByRuleResponse listTargetsByRuleResponse pResponseStatus_ =   ListTargetsByRuleResponse'-  { _ltbrrsNextToken = Nothing-  , _ltbrrsTargets = Nothing-  , _ltbrrsResponseStatus = pResponseStatus_-  }+    { _ltbrrsNextToken = Nothing+    , _ltbrrsTargets = Nothing+    , _ltbrrsResponseStatus = pResponseStatus_+    }   -- | Indicates whether there are additional results to retrieve. If there are no more results, the value is null. ltbrrsNextToken :: Lens' ListTargetsByRuleResponse (Maybe Text)-ltbrrsNextToken = lens _ltbrrsNextToken (\ s a -> s{_ltbrrsNextToken = a});+ltbrrsNextToken = lens _ltbrrsNextToken (\ s a -> s{_ltbrrsNextToken = a})  -- | The targets assigned to the rule. ltbrrsTargets :: Lens' ListTargetsByRuleResponse (Maybe (NonEmpty Target))-ltbrrsTargets = lens _ltbrrsTargets (\ s a -> s{_ltbrrsTargets = a}) . mapping _List1;+ltbrrsTargets = lens _ltbrrsTargets (\ s a -> s{_ltbrrsTargets = a}) . mapping _List1  -- | -- | The response status code. ltbrrsResponseStatus :: Lens' ListTargetsByRuleResponse Int-ltbrrsResponseStatus = lens _ltbrrsResponseStatus (\ s a -> s{_ltbrrsResponseStatus = a});+ltbrrsResponseStatus = lens _ltbrrsResponseStatus (\ s a -> s{_ltbrrsResponseStatus = a})  instance NFData ListTargetsByRuleResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudWatchEvents.PutEvents--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@  -- | The entry that defines an event in your system. You can specify several parameters for the entry such as the source and type of the event, resources associated with the event, and so on. peEntries :: Lens' PutEvents (NonEmpty PutEventsRequestEntry)-peEntries = lens _peEntries (\ s a -> s{_peEntries = a}) . _List1;+peEntries = lens _peEntries (\ s a -> s{_peEntries = a}) . _List1  instance AWSRequest PutEvents where         type Rs PutEvents = PutEventsResponse@@ -122,22 +122,22 @@     -> PutEventsResponse putEventsResponse pResponseStatus_ =   PutEventsResponse'-  { _persFailedEntryCount = Nothing-  , _persEntries = Nothing-  , _persResponseStatus = pResponseStatus_-  }+    { _persFailedEntryCount = Nothing+    , _persEntries = Nothing+    , _persResponseStatus = pResponseStatus_+    }   -- | The number of failed entries. persFailedEntryCount :: Lens' PutEventsResponse (Maybe Int)-persFailedEntryCount = lens _persFailedEntryCount (\ s a -> s{_persFailedEntryCount = a});+persFailedEntryCount = lens _persFailedEntryCount (\ s a -> s{_persFailedEntryCount = a})  -- | The successfully and unsuccessfully ingested events results. If the ingestion was successful, the entry has the event ID in it. Otherwise, you can use the error code and error message to identify the problem with the entry. persEntries :: Lens' PutEventsResponse [PutEventsResultEntry]-persEntries = lens _persEntries (\ s a -> s{_persEntries = a}) . _Default . _Coerce;+persEntries = lens _persEntries (\ s a -> s{_persEntries = a}) . _Default . _Coerce  -- | -- | The response status code. persResponseStatus :: Lens' PutEventsResponse Int-persResponseStatus = lens _persResponseStatus (\ s a -> s{_persResponseStatus = a});+persResponseStatus = lens _persResponseStatus (\ s a -> s{_persResponseStatus = a})  instance NFData PutEventsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudWatchEvents.PutPermission--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -73,23 +73,23 @@     -> PutPermission putPermission pAction_ pPrincipal_ pStatementId_ =   PutPermission'-  { _ppAction = pAction_-  , _ppPrincipal = pPrincipal_-  , _ppStatementId = pStatementId_-  }+    { _ppAction = pAction_+    , _ppPrincipal = pPrincipal_+    , _ppStatementId = pStatementId_+    }   -- | The action that you are enabling the other account to perform. Currently, this must be @events:PutEvents@ . ppAction :: Lens' PutPermission Text-ppAction = lens _ppAction (\ s a -> s{_ppAction = a});+ppAction = lens _ppAction (\ s a -> s{_ppAction = a})  -- | The 12-digit AWS account ID that you are permitting to put events to your default event bus. Specify "*" to permit any account to put events to your default event bus. If you specify "*", avoid creating rules that may match undesirable events. To create more secure rules, make sure that the event pattern for each rule contains an @account@ field with a specific account ID from which to receive events. Rules with an account field do not match any events sent from other accounts. ppPrincipal :: Lens' PutPermission Text-ppPrincipal = lens _ppPrincipal (\ s a -> s{_ppPrincipal = a});+ppPrincipal = lens _ppPrincipal (\ s a -> s{_ppPrincipal = a})  -- | An identifier string for the external account that you are granting permissions to. If you later want to revoke the permission for this external account, specify this @StatementId@ when you run 'RemovePermission' . ppStatementId :: Lens' PutPermission Text-ppStatementId = lens _ppStatementId (\ s a -> s{_ppStatementId = a});+ppStatementId = lens _ppStatementId (\ s a -> s{_ppStatementId = a})  instance AWSRequest PutPermission where         type Rs PutPermission = PutPermissionResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudWatchEvents.PutRule--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,8 @@ -- Creates or updates the specified rule. Rules are enabled by default, or based on value of the state. You can disable a rule using 'DisableRule' . -- --+-- If you are updating an existing rule, the rule is completely replaced with what you specify in this @PutRule@ command. If you omit arguments in @PutRule@ , the old values for those arguments are not kept. Instead, they are replaced with null values.+-- -- When you create or update a rule, incoming events might not immediately start matching to new or updated rules. Please allow a short period of time for changes to take effect. -- -- A rule must contain at least an EventPattern or ScheduleExpression. Rules with EventPatterns are triggered when a matching event is observed. Rules with ScheduleExpressions self-trigger based on the given schedule. A rule can have both an EventPattern and a ScheduleExpression, in which case the rule triggers on matching events as well as on a schedule.@@ -86,38 +88,38 @@     -> PutRule putRule pName_ =   PutRule'-  { _prEventPattern = Nothing-  , _prState = Nothing-  , _prScheduleExpression = Nothing-  , _prDescription = Nothing-  , _prRoleARN = Nothing-  , _prName = pName_-  }+    { _prEventPattern = Nothing+    , _prState = Nothing+    , _prScheduleExpression = Nothing+    , _prDescription = Nothing+    , _prRoleARN = Nothing+    , _prName = pName_+    }   -- | The event pattern. For more information, see <http://docs.aws.amazon.com/AmazonCloudWatch/latest/events/CloudWatchEventsandEventPatterns.html Events and Event Patterns> in the /Amazon CloudWatch Events User Guide/ . prEventPattern :: Lens' PutRule (Maybe Text)-prEventPattern = lens _prEventPattern (\ s a -> s{_prEventPattern = a});+prEventPattern = lens _prEventPattern (\ s a -> s{_prEventPattern = a})  -- | Indicates whether the rule is enabled or disabled. prState :: Lens' PutRule (Maybe RuleState)-prState = lens _prState (\ s a -> s{_prState = a});+prState = lens _prState (\ s a -> s{_prState = a})  -- | The scheduling expression. For example, "cron(0 20 * * ? *)" or "rate(5 minutes)". prScheduleExpression :: Lens' PutRule (Maybe Text)-prScheduleExpression = lens _prScheduleExpression (\ s a -> s{_prScheduleExpression = a});+prScheduleExpression = lens _prScheduleExpression (\ s a -> s{_prScheduleExpression = a})  -- | A description of the rule. prDescription :: Lens' PutRule (Maybe Text)-prDescription = lens _prDescription (\ s a -> s{_prDescription = a});+prDescription = lens _prDescription (\ s a -> s{_prDescription = a})  -- | The Amazon Resource Name (ARN) of the IAM role associated with the rule. prRoleARN :: Lens' PutRule (Maybe Text)-prRoleARN = lens _prRoleARN (\ s a -> s{_prRoleARN = a});+prRoleARN = lens _prRoleARN (\ s a -> s{_prRoleARN = a})  -- | The name of the rule that you are creating or updating. prName :: Lens' PutRule Text-prName = lens _prName (\ s a -> s{_prName = a});+prName = lens _prName (\ s a -> s{_prName = a})  instance AWSRequest PutRule where         type Rs PutRule = PutRuleResponse@@ -177,15 +179,15 @@     -> PutRuleResponse putRuleResponse pResponseStatus_ =   PutRuleResponse'-  {_prrsRuleARN = Nothing, _prrsResponseStatus = pResponseStatus_}+    {_prrsRuleARN = Nothing, _prrsResponseStatus = pResponseStatus_}   -- | The Amazon Resource Name (ARN) of the rule. prrsRuleARN :: Lens' PutRuleResponse (Maybe Text)-prrsRuleARN = lens _prrsRuleARN (\ s a -> s{_prrsRuleARN = a});+prrsRuleARN = lens _prrsRuleARN (\ s a -> s{_prrsRuleARN = a})  -- | -- | The response status code. prrsResponseStatus :: Lens' PutRuleResponse Int-prrsResponseStatus = lens _prrsResponseStatus (\ s a -> s{_prrsResponseStatus = a});+prrsResponseStatus = lens _prrsResponseStatus (\ s a -> s{_prrsResponseStatus = a})  instance NFData PutRuleResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudWatchEvents.PutTargets--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -37,13 +37,15 @@ -- --     * AWS Step Functions state machines --+--     * AWS Batch jobs+-- --     * Pipelines in Amazon Code Pipeline -- --     * Amazon Inspector assessment templates -- --     * Amazon SNS topics -----     * Amazon SQS queues+--     * Amazon SQS queues, including FIFO queues -- --     * The default event bus of another AWS account --@@ -71,7 +73,7 @@ -- -- ----- When you specify @Input@ , @InputPath@ , or @InputTransformer@ , you must use JSON dot notation, not bracket notation.+-- When you specify @InputPath@ or @InputTransformer@ , you must use JSON dot notation, not bracket notation. -- -- When you add targets to a rule and the associated rule triggers soon after, new or updated targets might not be immediately invoked. Please allow a short period of time for changes to take effect. --@@ -126,11 +128,11 @@  -- | The name of the rule. ptRule :: Lens' PutTargets Text-ptRule = lens _ptRule (\ s a -> s{_ptRule = a});+ptRule = lens _ptRule (\ s a -> s{_ptRule = a})  -- | The targets to update or add to the rule. ptTargets :: Lens' PutTargets (NonEmpty Target)-ptTargets = lens _ptTargets (\ s a -> s{_ptTargets = a}) . _List1;+ptTargets = lens _ptTargets (\ s a -> s{_ptTargets = a}) . _List1  instance AWSRequest PutTargets where         type Rs PutTargets = PutTargetsResponse@@ -191,22 +193,22 @@     -> PutTargetsResponse putTargetsResponse pResponseStatus_ =   PutTargetsResponse'-  { _ptrsFailedEntryCount = Nothing-  , _ptrsFailedEntries = Nothing-  , _ptrsResponseStatus = pResponseStatus_-  }+    { _ptrsFailedEntryCount = Nothing+    , _ptrsFailedEntries = Nothing+    , _ptrsResponseStatus = pResponseStatus_+    }   -- | The number of failed entries. ptrsFailedEntryCount :: Lens' PutTargetsResponse (Maybe Int)-ptrsFailedEntryCount = lens _ptrsFailedEntryCount (\ s a -> s{_ptrsFailedEntryCount = a});+ptrsFailedEntryCount = lens _ptrsFailedEntryCount (\ s a -> s{_ptrsFailedEntryCount = a})  -- | The failed target entries. ptrsFailedEntries :: Lens' PutTargetsResponse [PutTargetsResultEntry]-ptrsFailedEntries = lens _ptrsFailedEntries (\ s a -> s{_ptrsFailedEntries = a}) . _Default . _Coerce;+ptrsFailedEntries = lens _ptrsFailedEntries (\ s a -> s{_ptrsFailedEntries = a}) . _Default . _Coerce  -- | -- | The response status code. ptrsResponseStatus :: Lens' PutTargetsResponse Int-ptrsResponseStatus = lens _ptrsResponseStatus (\ s a -> s{_ptrsResponseStatus = a});+ptrsResponseStatus = lens _ptrsResponseStatus (\ s a -> s{_ptrsResponseStatus = a})  instance NFData PutTargetsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudWatchEvents.RemovePermission--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -61,7 +61,7 @@  -- | The statement ID corresponding to the account that is no longer allowed to put events to the default event bus. rpStatementId :: Lens' RemovePermission Text-rpStatementId = lens _rpStatementId (\ s a -> s{_rpStatementId = a});+rpStatementId = lens _rpStatementId (\ s a -> s{_rpStatementId = a})  instance AWSRequest RemovePermission where         type Rs RemovePermission = RemovePermissionResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudWatchEvents.RemoveTargets--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -74,11 +74,11 @@  -- | The name of the rule. rtRule :: Lens' RemoveTargets Text-rtRule = lens _rtRule (\ s a -> s{_rtRule = a});+rtRule = lens _rtRule (\ s a -> s{_rtRule = a})  -- | The IDs of the targets to remove from the rule. rtIds :: Lens' RemoveTargets (NonEmpty Text)-rtIds = lens _rtIds (\ s a -> s{_rtIds = a}) . _List1;+rtIds = lens _rtIds (\ s a -> s{_rtIds = a}) . _List1  instance AWSRequest RemoveTargets where         type Rs RemoveTargets = RemoveTargetsResponse@@ -138,22 +138,22 @@     -> RemoveTargetsResponse removeTargetsResponse pResponseStatus_ =   RemoveTargetsResponse'-  { _rtrsFailedEntryCount = Nothing-  , _rtrsFailedEntries = Nothing-  , _rtrsResponseStatus = pResponseStatus_-  }+    { _rtrsFailedEntryCount = Nothing+    , _rtrsFailedEntries = Nothing+    , _rtrsResponseStatus = pResponseStatus_+    }   -- | The number of failed entries. rtrsFailedEntryCount :: Lens' RemoveTargetsResponse (Maybe Int)-rtrsFailedEntryCount = lens _rtrsFailedEntryCount (\ s a -> s{_rtrsFailedEntryCount = a});+rtrsFailedEntryCount = lens _rtrsFailedEntryCount (\ s a -> s{_rtrsFailedEntryCount = a})  -- | The failed target entries. rtrsFailedEntries :: Lens' RemoveTargetsResponse [RemoveTargetsResultEntry]-rtrsFailedEntries = lens _rtrsFailedEntries (\ s a -> s{_rtrsFailedEntries = a}) . _Default . _Coerce;+rtrsFailedEntries = lens _rtrsFailedEntries (\ s a -> s{_rtrsFailedEntries = a}) . _Default . _Coerce  -- | -- | The response status code. rtrsResponseStatus :: Lens' RemoveTargetsResponse Int-rtrsResponseStatus = lens _rtrsResponseStatus (\ s a -> s{_rtrsResponseStatus = a});+rtrsResponseStatus = lens _rtrsResponseStatus (\ s a -> s{_rtrsResponseStatus = a})  instance NFData RemoveTargetsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudWatchEvents.TestEventPattern--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,11 +71,11 @@  -- | The event pattern. For more information, see <http://docs.aws.amazon.com/AmazonCloudWatch/latest/events/CloudWatchEventsandEventPatterns.html Events and Event Patterns> in the /Amazon CloudWatch Events User Guide/ . tepEventPattern :: Lens' TestEventPattern Text-tepEventPattern = lens _tepEventPattern (\ s a -> s{_tepEventPattern = a});+tepEventPattern = lens _tepEventPattern (\ s a -> s{_tepEventPattern = a})  -- | The event, in JSON format, to test against the event pattern. tepEvent :: Lens' TestEventPattern Text-tepEvent = lens _tepEvent (\ s a -> s{_tepEvent = a});+tepEvent = lens _tepEvent (\ s a -> s{_tepEvent = a})  instance AWSRequest TestEventPattern where         type Rs TestEventPattern = TestEventPatternResponse@@ -131,15 +131,15 @@     -> TestEventPatternResponse testEventPatternResponse pResponseStatus_ =   TestEventPatternResponse'-  {_teprsResult = Nothing, _teprsResponseStatus = pResponseStatus_}+    {_teprsResult = Nothing, _teprsResponseStatus = pResponseStatus_}   -- | Indicates whether the event matches the event pattern. teprsResult :: Lens' TestEventPatternResponse (Maybe Bool)-teprsResult = lens _teprsResult (\ s a -> s{_teprsResult = a});+teprsResult = lens _teprsResult (\ s a -> s{_teprsResult = a})  -- | -- | The response status code. teprsResponseStatus :: Lens' TestEventPatternResponse Int-teprsResponseStatus = lens _teprsResponseStatus (\ s a -> s{_teprsResponseStatus = a});+teprsResponseStatus = lens _teprsResponseStatus (\ s a -> s{_teprsResponseStatus = a})  instance NFData TestEventPatternResponse where

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.CloudWatchEvents.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -26,6 +26,24 @@     -- * RuleState     , RuleState (..) +    -- * BatchArrayProperties+    , BatchArrayProperties+    , batchArrayProperties+    , bapSize++    -- * BatchParameters+    , BatchParameters+    , batchParameters+    , bpRetryStrategy+    , bpArrayProperties+    , bpJobDefinition+    , bpJobName++    -- * BatchRetryStrategy+    , BatchRetryStrategy+    , batchRetryStrategy+    , brsAttempts+     -- * EcsParameters     , EcsParameters     , ecsParameters@@ -95,13 +113,20 @@     , rctKey     , rctValues +    -- * SqsParameters+    , SqsParameters+    , sqsParameters+    , spMessageGroupId+     -- * Target     , Target     , target     , tRunCommandParameters     , tKinesisParameters     , tInputTransformer+    , tSqsParameters     , tInput+    , tBatchParameters     , tEcsParameters     , tInputPath     , tRoleARN@@ -119,24 +144,24 @@ cloudWatchEvents :: Service cloudWatchEvents =   Service-  { _svcAbbrev = "CloudWatchEvents"-  , _svcSigner = v4-  , _svcPrefix = "events"-  , _svcVersion = "2015-10-07"-  , _svcEndpoint = defaultEndpoint cloudWatchEvents-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseJSONError "CloudWatchEvents"-  , _svcRetry = retry-  }+    { _svcAbbrev = "CloudWatchEvents"+    , _svcSigner = v4+    , _svcPrefix = "events"+    , _svcVersion = "2015-10-07"+    , _svcEndpoint = defaultEndpoint cloudWatchEvents+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "CloudWatchEvents"+    , _svcRetry = retry+    }   where     retry =       Exponential-      { _retryBase = 5.0e-2-      , _retryGrowth = 2-      , _retryAttempts = 5-      , _retryCheck = check-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -145,6 +170,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.CloudWatchEvents.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,156 @@ import Network.AWS.Lens import Network.AWS.Prelude +-- | The array properties for the submitted job, such as the size of the array. The array size can be between 2 and 10,000. If you specify array properties for a job, it becomes an array job. This parameter is used only if the target is an AWS Batch job.+--+--+--+-- /See:/ 'batchArrayProperties' smart constructor.+newtype BatchArrayProperties = BatchArrayProperties'+  { _bapSize :: Maybe Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'BatchArrayProperties' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'bapSize' - The size of the array, if this is an array batch job. Valid values are integers between 2 and 10,000.+batchArrayProperties+    :: BatchArrayProperties+batchArrayProperties = BatchArrayProperties' {_bapSize = Nothing}+++-- | The size of the array, if this is an array batch job. Valid values are integers between 2 and 10,000.+bapSize :: Lens' BatchArrayProperties (Maybe Int)+bapSize = lens _bapSize (\ s a -> s{_bapSize = a})++instance FromJSON BatchArrayProperties where+        parseJSON+          = withObject "BatchArrayProperties"+              (\ x -> BatchArrayProperties' <$> (x .:? "Size"))++instance Hashable BatchArrayProperties where++instance NFData BatchArrayProperties where++instance ToJSON BatchArrayProperties where+        toJSON BatchArrayProperties'{..}+          = object (catMaybes [("Size" .=) <$> _bapSize])++-- | The custom parameters to be used when the target is an AWS Batch job.+--+--+--+-- /See:/ 'batchParameters' smart constructor.+data BatchParameters = BatchParameters'+  { _bpRetryStrategy   :: !(Maybe BatchRetryStrategy)+  , _bpArrayProperties :: !(Maybe BatchArrayProperties)+  , _bpJobDefinition   :: !Text+  , _bpJobName         :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'BatchParameters' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'bpRetryStrategy' - The retry strategy to use for failed jobs, if the target is an AWS Batch job. The retry strategy is the number of times to retry the failed job execution. Valid values are 1 to 10. When you specify a retry strategy here, it overrides the retry strategy defined in the job definition.+--+-- * 'bpArrayProperties' - The array properties for the submitted job, such as the size of the array. The array size can be between 2 and 10,000. If you specify array properties for a job, it becomes an array job. This parameter is used only if the target is an AWS Batch job.+--+-- * 'bpJobDefinition' - The ARN or name of the job definition to use if the event target is an AWS Batch job. This job definition must already exist.+--+-- * 'bpJobName' - The name to use for this execution of the job, if the target is an AWS Batch job.+batchParameters+    :: Text -- ^ 'bpJobDefinition'+    -> Text -- ^ 'bpJobName'+    -> BatchParameters+batchParameters pJobDefinition_ pJobName_ =+  BatchParameters'+    { _bpRetryStrategy = Nothing+    , _bpArrayProperties = Nothing+    , _bpJobDefinition = pJobDefinition_+    , _bpJobName = pJobName_+    }+++-- | The retry strategy to use for failed jobs, if the target is an AWS Batch job. The retry strategy is the number of times to retry the failed job execution. Valid values are 1 to 10. When you specify a retry strategy here, it overrides the retry strategy defined in the job definition.+bpRetryStrategy :: Lens' BatchParameters (Maybe BatchRetryStrategy)+bpRetryStrategy = lens _bpRetryStrategy (\ s a -> s{_bpRetryStrategy = a})++-- | The array properties for the submitted job, such as the size of the array. The array size can be between 2 and 10,000. If you specify array properties for a job, it becomes an array job. This parameter is used only if the target is an AWS Batch job.+bpArrayProperties :: Lens' BatchParameters (Maybe BatchArrayProperties)+bpArrayProperties = lens _bpArrayProperties (\ s a -> s{_bpArrayProperties = a})++-- | The ARN or name of the job definition to use if the event target is an AWS Batch job. This job definition must already exist.+bpJobDefinition :: Lens' BatchParameters Text+bpJobDefinition = lens _bpJobDefinition (\ s a -> s{_bpJobDefinition = a})++-- | The name to use for this execution of the job, if the target is an AWS Batch job.+bpJobName :: Lens' BatchParameters Text+bpJobName = lens _bpJobName (\ s a -> s{_bpJobName = a})++instance FromJSON BatchParameters where+        parseJSON+          = withObject "BatchParameters"+              (\ x ->+                 BatchParameters' <$>+                   (x .:? "RetryStrategy") <*> (x .:? "ArrayProperties")+                     <*> (x .: "JobDefinition")+                     <*> (x .: "JobName"))++instance Hashable BatchParameters where++instance NFData BatchParameters where++instance ToJSON BatchParameters where+        toJSON BatchParameters'{..}+          = object+              (catMaybes+                 [("RetryStrategy" .=) <$> _bpRetryStrategy,+                  ("ArrayProperties" .=) <$> _bpArrayProperties,+                  Just ("JobDefinition" .= _bpJobDefinition),+                  Just ("JobName" .= _bpJobName)])++-- | The retry strategy to use for failed jobs, if the target is an AWS Batch job. If you specify a retry strategy here, it overrides the retry strategy defined in the job definition.+--+--+--+-- /See:/ 'batchRetryStrategy' smart constructor.+newtype BatchRetryStrategy = BatchRetryStrategy'+  { _brsAttempts :: Maybe Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'BatchRetryStrategy' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'brsAttempts' - The number of times to attempt to retry, if the job fails. Valid values are 1 to 10.+batchRetryStrategy+    :: BatchRetryStrategy+batchRetryStrategy = BatchRetryStrategy' {_brsAttempts = Nothing}+++-- | The number of times to attempt to retry, if the job fails. Valid values are 1 to 10.+brsAttempts :: Lens' BatchRetryStrategy (Maybe Int)+brsAttempts = lens _brsAttempts (\ s a -> s{_brsAttempts = a})++instance FromJSON BatchRetryStrategy where+        parseJSON+          = withObject "BatchRetryStrategy"+              (\ x -> BatchRetryStrategy' <$> (x .:? "Attempts"))++instance Hashable BatchRetryStrategy where++instance NFData BatchRetryStrategy where++instance ToJSON BatchRetryStrategy where+        toJSON BatchRetryStrategy'{..}+          = object+              (catMaybes [("Attempts" .=) <$> _brsAttempts])+ -- | The custom parameters to be used when the target is an Amazon ECS cluster. -- --@@ -44,16 +194,16 @@     -> EcsParameters ecsParameters pTaskDefinitionARN_ =   EcsParameters'-  {_epTaskCount = Nothing, _epTaskDefinitionARN = pTaskDefinitionARN_}+    {_epTaskCount = Nothing, _epTaskDefinitionARN = pTaskDefinitionARN_}   -- | The number of tasks to create based on the @TaskDefinition@ . The default is one. epTaskCount :: Lens' EcsParameters (Maybe Natural)-epTaskCount = lens _epTaskCount (\ s a -> s{_epTaskCount = a}) . mapping _Nat;+epTaskCount = lens _epTaskCount (\ s a -> s{_epTaskCount = a}) . mapping _Nat  -- | The ARN of the task definition to use if the event target is an Amazon ECS cluster. epTaskDefinitionARN :: Lens' EcsParameters Text-epTaskDefinitionARN = lens _epTaskDefinitionARN (\ s a -> s{_epTaskDefinitionARN = a});+epTaskDefinitionARN = lens _epTaskDefinitionARN (\ s a -> s{_epTaskDefinitionARN = a})  instance FromJSON EcsParameters where         parseJSON@@ -96,16 +246,16 @@     -> InputTransformer inputTransformer pInputTemplate_ =   InputTransformer'-  {_itInputPathsMap = Nothing, _itInputTemplate = pInputTemplate_}+    {_itInputPathsMap = Nothing, _itInputTemplate = pInputTemplate_}   -- | Map of JSON paths to be extracted from the event. These are key-value pairs, where each value is a JSON path. You must use JSON dot notation, not bracket notation. itInputPathsMap :: Lens' InputTransformer (HashMap Text Text)-itInputPathsMap = lens _itInputPathsMap (\ s a -> s{_itInputPathsMap = a}) . _Default . _Map;+itInputPathsMap = lens _itInputPathsMap (\ s a -> s{_itInputPathsMap = a}) . _Default . _Map  -- | Input template where you can use the values of the keys from @InputPathsMap@ to customize the data sent to the target. itInputTemplate :: Lens' InputTransformer Text-itInputTemplate = lens _itInputTemplate (\ s a -> s{_itInputTemplate = a});+itInputTemplate = lens _itInputTemplate (\ s a -> s{_itInputTemplate = a})  instance FromJSON InputTransformer where         parseJSON@@ -150,7 +300,7 @@  -- | The JSON path to be extracted from the event and used as the partition key. For more information, see <http://docs.aws.amazon.com/streams/latest/dev/key-concepts.html#partition-key Amazon Kinesis Streams Key Concepts> in the /Amazon Kinesis Streams Developer Guide/ . kpPartitionKeyPath :: Lens' KinesisParameters Text-kpPartitionKeyPath = lens _kpPartitionKeyPath (\ s a -> s{_kpPartitionKeyPath = a});+kpPartitionKeyPath = lens _kpPartitionKeyPath (\ s a -> s{_kpPartitionKeyPath = a})  instance FromJSON KinesisParameters where         parseJSON@@ -194,38 +344,38 @@ -- -- * 'pereSource' - The source of the event. ----- * 'pereDetail' - In the JSON sense, an object containing fields, which may also contain nested subobjects. No constraints are imposed on its contents.+-- * 'pereDetail' - A valid JSON string. There is no other schema imposed. The JSON string may contain fields and nested subobjects. putEventsRequestEntry     :: PutEventsRequestEntry putEventsRequestEntry =   PutEventsRequestEntry'-  { _pereTime = Nothing-  , _pereDetailType = Nothing-  , _pereResources = Nothing-  , _pereSource = Nothing-  , _pereDetail = Nothing-  }+    { _pereTime = Nothing+    , _pereDetailType = Nothing+    , _pereResources = Nothing+    , _pereSource = Nothing+    , _pereDetail = Nothing+    }   -- | The timestamp of the event, per <https://www.rfc-editor.org/rfc/rfc3339.txt RFC3339> . If no timestamp is provided, the timestamp of the 'PutEvents' call is used. pereTime :: Lens' PutEventsRequestEntry (Maybe UTCTime)-pereTime = lens _pereTime (\ s a -> s{_pereTime = a}) . mapping _Time;+pereTime = lens _pereTime (\ s a -> s{_pereTime = a}) . mapping _Time  -- | Free-form string used to decide what fields to expect in the event detail. pereDetailType :: Lens' PutEventsRequestEntry (Maybe Text)-pereDetailType = lens _pereDetailType (\ s a -> s{_pereDetailType = a});+pereDetailType = lens _pereDetailType (\ s a -> s{_pereDetailType = a})  -- | AWS resources, identified by Amazon Resource Name (ARN), which the event primarily concerns. Any number, including zero, may be present. pereResources :: Lens' PutEventsRequestEntry [Text]-pereResources = lens _pereResources (\ s a -> s{_pereResources = a}) . _Default . _Coerce;+pereResources = lens _pereResources (\ s a -> s{_pereResources = a}) . _Default . _Coerce  -- | The source of the event. pereSource :: Lens' PutEventsRequestEntry (Maybe Text)-pereSource = lens _pereSource (\ s a -> s{_pereSource = a});+pereSource = lens _pereSource (\ s a -> s{_pereSource = a}) --- | In the JSON sense, an object containing fields, which may also contain nested subobjects. No constraints are imposed on its contents.+-- | A valid JSON string. There is no other schema imposed. The JSON string may contain fields and nested subobjects. pereDetail :: Lens' PutEventsRequestEntry (Maybe Text)-pereDetail = lens _pereDetail (\ s a -> s{_pereDetail = a});+pereDetail = lens _pereDetail (\ s a -> s{_pereDetail = a})  instance Hashable PutEventsRequestEntry where @@ -266,23 +416,23 @@     :: PutEventsResultEntry putEventsResultEntry =   PutEventsResultEntry'-  { _pereErrorCode = Nothing-  , _pereErrorMessage = Nothing-  , _pereEventId = Nothing-  }+    { _pereErrorCode = Nothing+    , _pereErrorMessage = Nothing+    , _pereEventId = Nothing+    }   -- | The error code that indicates why the event submission failed. pereErrorCode :: Lens' PutEventsResultEntry (Maybe Text)-pereErrorCode = lens _pereErrorCode (\ s a -> s{_pereErrorCode = a});+pereErrorCode = lens _pereErrorCode (\ s a -> s{_pereErrorCode = a})  -- | The error message that explains why the event submission failed. pereErrorMessage :: Lens' PutEventsResultEntry (Maybe Text)-pereErrorMessage = lens _pereErrorMessage (\ s a -> s{_pereErrorMessage = a});+pereErrorMessage = lens _pereErrorMessage (\ s a -> s{_pereErrorMessage = a})  -- | The ID of the event. pereEventId :: Lens' PutEventsResultEntry (Maybe Text)-pereEventId = lens _pereEventId (\ s a -> s{_pereEventId = a});+pereEventId = lens _pereEventId (\ s a -> s{_pereEventId = a})  instance FromJSON PutEventsResultEntry where         parseJSON@@ -321,23 +471,23 @@     :: PutTargetsResultEntry putTargetsResultEntry =   PutTargetsResultEntry'-  { _ptreTargetId = Nothing-  , _ptreErrorCode = Nothing-  , _ptreErrorMessage = Nothing-  }+    { _ptreTargetId = Nothing+    , _ptreErrorCode = Nothing+    , _ptreErrorMessage = Nothing+    }   -- | The ID of the target. ptreTargetId :: Lens' PutTargetsResultEntry (Maybe Text)-ptreTargetId = lens _ptreTargetId (\ s a -> s{_ptreTargetId = a});+ptreTargetId = lens _ptreTargetId (\ s a -> s{_ptreTargetId = a})  -- | The error code that indicates why the target addition failed. If the value is @ConcurrentModificationException@ , too many requests were made at the same time. ptreErrorCode :: Lens' PutTargetsResultEntry (Maybe Text)-ptreErrorCode = lens _ptreErrorCode (\ s a -> s{_ptreErrorCode = a});+ptreErrorCode = lens _ptreErrorCode (\ s a -> s{_ptreErrorCode = a})  -- | The error message that explains why the target addition failed. ptreErrorMessage :: Lens' PutTargetsResultEntry (Maybe Text)-ptreErrorMessage = lens _ptreErrorMessage (\ s a -> s{_ptreErrorMessage = a});+ptreErrorMessage = lens _ptreErrorMessage (\ s a -> s{_ptreErrorMessage = a})  instance FromJSON PutTargetsResultEntry where         parseJSON@@ -376,23 +526,23 @@     :: RemoveTargetsResultEntry removeTargetsResultEntry =   RemoveTargetsResultEntry'-  { _rtreTargetId = Nothing-  , _rtreErrorCode = Nothing-  , _rtreErrorMessage = Nothing-  }+    { _rtreTargetId = Nothing+    , _rtreErrorCode = Nothing+    , _rtreErrorMessage = Nothing+    }   -- | The ID of the target. rtreTargetId :: Lens' RemoveTargetsResultEntry (Maybe Text)-rtreTargetId = lens _rtreTargetId (\ s a -> s{_rtreTargetId = a});+rtreTargetId = lens _rtreTargetId (\ s a -> s{_rtreTargetId = a})  -- | The error code that indicates why the target removal failed. If the value is @ConcurrentModificationException@ , too many requests were made at the same time. rtreErrorCode :: Lens' RemoveTargetsResultEntry (Maybe Text)-rtreErrorCode = lens _rtreErrorCode (\ s a -> s{_rtreErrorCode = a});+rtreErrorCode = lens _rtreErrorCode (\ s a -> s{_rtreErrorCode = a})  -- | The error message that explains why the target removal failed. rtreErrorMessage :: Lens' RemoveTargetsResultEntry (Maybe Text)-rtreErrorMessage = lens _rtreErrorMessage (\ s a -> s{_rtreErrorMessage = a});+rtreErrorMessage = lens _rtreErrorMessage (\ s a -> s{_rtreErrorMessage = a})  instance FromJSON RemoveTargetsResultEntry where         parseJSON@@ -443,43 +593,43 @@     :: Rule rule =   Rule'-  { _rEventPattern = Nothing-  , _rState = Nothing-  , _rARN = Nothing-  , _rScheduleExpression = Nothing-  , _rName = Nothing-  , _rDescription = Nothing-  , _rRoleARN = Nothing-  }+    { _rEventPattern = Nothing+    , _rState = Nothing+    , _rARN = Nothing+    , _rScheduleExpression = Nothing+    , _rName = Nothing+    , _rDescription = Nothing+    , _rRoleARN = Nothing+    }   -- | The event pattern of the rule. For more information, see <http://docs.aws.amazon.com/AmazonCloudWatch/latest/events/CloudWatchEventsandEventPatterns.html Events and Event Patterns> in the /Amazon CloudWatch Events User Guide/ . rEventPattern :: Lens' Rule (Maybe Text)-rEventPattern = lens _rEventPattern (\ s a -> s{_rEventPattern = a});+rEventPattern = lens _rEventPattern (\ s a -> s{_rEventPattern = a})  -- | The state of the rule. rState :: Lens' Rule (Maybe RuleState)-rState = lens _rState (\ s a -> s{_rState = a});+rState = lens _rState (\ s a -> s{_rState = a})  -- | The Amazon Resource Name (ARN) of the rule. rARN :: Lens' Rule (Maybe Text)-rARN = lens _rARN (\ s a -> s{_rARN = a});+rARN = lens _rARN (\ s a -> s{_rARN = a})  -- | The scheduling expression. For example, "cron(0 20 * * ? *)", "rate(5 minutes)". rScheduleExpression :: Lens' Rule (Maybe Text)-rScheduleExpression = lens _rScheduleExpression (\ s a -> s{_rScheduleExpression = a});+rScheduleExpression = lens _rScheduleExpression (\ s a -> s{_rScheduleExpression = a})  -- | The name of the rule. rName :: Lens' Rule (Maybe Text)-rName = lens _rName (\ s a -> s{_rName = a});+rName = lens _rName (\ s a -> s{_rName = a})  -- | The description of the rule. rDescription :: Lens' Rule (Maybe Text)-rDescription = lens _rDescription (\ s a -> s{_rDescription = a});+rDescription = lens _rDescription (\ s a -> s{_rDescription = a})  -- | The Amazon Resource Name (ARN) of the role that is used for target invocation. rRoleARN :: Lens' Rule (Maybe Text)-rRoleARN = lens _rRoleARN (\ s a -> s{_rRoleARN = a});+rRoleARN = lens _rRoleARN (\ s a -> s{_rRoleARN = a})  instance FromJSON Rule where         parseJSON@@ -521,7 +671,7 @@  -- | Currently, we support including only one RunCommandTarget block, which specifies either an array of InstanceIds or a tag. rcpRunCommandTargets :: Lens' RunCommandParameters (NonEmpty RunCommandTarget)-rcpRunCommandTargets = lens _rcpRunCommandTargets (\ s a -> s{_rcpRunCommandTargets = a}) . _List1;+rcpRunCommandTargets = lens _rcpRunCommandTargets (\ s a -> s{_rcpRunCommandTargets = a}) . _List1  instance FromJSON RunCommandParameters where         parseJSON@@ -568,11 +718,11 @@  -- | Can be either @tag:@ /tag-key/ or @InstanceIds@ . rctKey :: Lens' RunCommandTarget Text-rctKey = lens _rctKey (\ s a -> s{_rctKey = a});+rctKey = lens _rctKey (\ s a -> s{_rctKey = a})  -- | If @Key@ is @tag:@ /tag-key/ , @Values@ is a list of tag values. If @Key@ is @InstanceIds@ , @Values@ is a list of Amazon EC2 instance IDs. rctValues :: Lens' RunCommandTarget (NonEmpty Text)-rctValues = lens _rctValues (\ s a -> s{_rctValues = a}) . _List1;+rctValues = lens _rctValues (\ s a -> s{_rctValues = a}) . _List1  instance FromJSON RunCommandTarget where         parseJSON@@ -592,6 +742,45 @@                  [Just ("Key" .= _rctKey),                   Just ("Values" .= _rctValues)]) +-- | This structure includes the custom parameter to be used when the target is an SQS FIFO queue.+--+--+--+-- /See:/ 'sqsParameters' smart constructor.+newtype SqsParameters = SqsParameters'+  { _spMessageGroupId :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'SqsParameters' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'spMessageGroupId' - The FIFO message group ID to use as the target.+sqsParameters+    :: SqsParameters+sqsParameters = SqsParameters' {_spMessageGroupId = Nothing}+++-- | The FIFO message group ID to use as the target.+spMessageGroupId :: Lens' SqsParameters (Maybe Text)+spMessageGroupId = lens _spMessageGroupId (\ s a -> s{_spMessageGroupId = a})++instance FromJSON SqsParameters where+        parseJSON+          = withObject "SqsParameters"+              (\ x -> SqsParameters' <$> (x .:? "MessageGroupId"))++instance Hashable SqsParameters where++instance NFData SqsParameters where++instance ToJSON SqsParameters where+        toJSON SqsParameters'{..}+          = object+              (catMaybes+                 [("MessageGroupId" .=) <$> _spMessageGroupId])+ -- | Targets are the resources to be invoked when a rule is triggered. Target types include EC2 instances, AWS Lambda functions, Amazon Kinesis streams, Amazon ECS tasks, AWS Step Functions state machines, Run Command, and built-in targets. -- --@@ -601,7 +790,9 @@   { _tRunCommandParameters :: !(Maybe RunCommandParameters)   , _tKinesisParameters    :: !(Maybe KinesisParameters)   , _tInputTransformer     :: !(Maybe InputTransformer)+  , _tSqsParameters        :: !(Maybe SqsParameters)   , _tInput                :: !(Maybe Text)+  , _tBatchParameters      :: !(Maybe BatchParameters)   , _tEcsParameters        :: !(Maybe EcsParameters)   , _tInputPath            :: !(Maybe Text)   , _tRoleARN              :: !(Maybe Text)@@ -620,8 +811,12 @@ -- -- * 'tInputTransformer' - Settings to enable you to provide custom input to a target based on certain event data. You can extract one or more key-value pairs from the event and then use that data to send customized input to the target. ----- * 'tInput' - Valid JSON text passed to the target. In this case, nothing from the event itself is passed to the target. You must use JSON dot notation, not bracket notation. For more information, see <http://www.rfc-editor.org/rfc/rfc7159.txt The JavaScript Object Notation (JSON) Data Interchange Format> .+-- * 'tSqsParameters' - Contains the message group ID to use when the target is a FIFO queue. --+-- * 'tInput' - Valid JSON text passed to the target. In this case, nothing from the event itself is passed to the target. For more information, see <http://www.rfc-editor.org/rfc/rfc7159.txt The JavaScript Object Notation (JSON) Data Interchange Format> .+--+-- * 'tBatchParameters' - Contains the job definition, job name, and other parameters if the event target is an AWS Batch job. For more information about AWS Batch, see <http://docs.aws.amazon.com/batch/latest/userguide/jobs.html Jobs> in the /AWS Batch User Guide/ .+-- -- * 'tEcsParameters' - Contains the Amazon ECS task definition and task count to be used, if the event target is an Amazon ECS task. For more information about Amazon ECS tasks, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task_defintions.html Task Definitions > in the /Amazon EC2 Container Service Developer Guide/ . -- -- * 'tInputPath' - The value of the JSONPath that is used for extracting part of the matched event when passing it to the target. You must use JSON dot notation, not bracket notation. For more information about JSON paths, see <http://goessner.net/articles/JsonPath/ JSONPath> .@@ -637,53 +832,63 @@     -> Target target pId_ pARN_ =   Target'-  { _tRunCommandParameters = Nothing-  , _tKinesisParameters = Nothing-  , _tInputTransformer = Nothing-  , _tInput = Nothing-  , _tEcsParameters = Nothing-  , _tInputPath = Nothing-  , _tRoleARN = Nothing-  , _tId = pId_-  , _tARN = pARN_-  }+    { _tRunCommandParameters = Nothing+    , _tKinesisParameters = Nothing+    , _tInputTransformer = Nothing+    , _tSqsParameters = Nothing+    , _tInput = Nothing+    , _tBatchParameters = Nothing+    , _tEcsParameters = Nothing+    , _tInputPath = Nothing+    , _tRoleARN = Nothing+    , _tId = pId_+    , _tARN = pARN_+    }   -- | Parameters used when you are using the rule to invoke Amazon EC2 Run Command. tRunCommandParameters :: Lens' Target (Maybe RunCommandParameters)-tRunCommandParameters = lens _tRunCommandParameters (\ s a -> s{_tRunCommandParameters = a});+tRunCommandParameters = lens _tRunCommandParameters (\ s a -> s{_tRunCommandParameters = a})  -- | The custom parameter you can use to control shard assignment, when the target is an Amazon Kinesis stream. If you do not include this parameter, the default is to use the @eventId@ as the partition key. tKinesisParameters :: Lens' Target (Maybe KinesisParameters)-tKinesisParameters = lens _tKinesisParameters (\ s a -> s{_tKinesisParameters = a});+tKinesisParameters = lens _tKinesisParameters (\ s a -> s{_tKinesisParameters = a})  -- | Settings to enable you to provide custom input to a target based on certain event data. You can extract one or more key-value pairs from the event and then use that data to send customized input to the target. tInputTransformer :: Lens' Target (Maybe InputTransformer)-tInputTransformer = lens _tInputTransformer (\ s a -> s{_tInputTransformer = a});+tInputTransformer = lens _tInputTransformer (\ s a -> s{_tInputTransformer = a}) --- | Valid JSON text passed to the target. In this case, nothing from the event itself is passed to the target. You must use JSON dot notation, not bracket notation. For more information, see <http://www.rfc-editor.org/rfc/rfc7159.txt The JavaScript Object Notation (JSON) Data Interchange Format> .+-- | Contains the message group ID to use when the target is a FIFO queue.+tSqsParameters :: Lens' Target (Maybe SqsParameters)+tSqsParameters = lens _tSqsParameters (\ s a -> s{_tSqsParameters = a})++-- | Valid JSON text passed to the target. In this case, nothing from the event itself is passed to the target. For more information, see <http://www.rfc-editor.org/rfc/rfc7159.txt The JavaScript Object Notation (JSON) Data Interchange Format> . tInput :: Lens' Target (Maybe Text)-tInput = lens _tInput (\ s a -> s{_tInput = a});+tInput = lens _tInput (\ s a -> s{_tInput = a}) +-- | Contains the job definition, job name, and other parameters if the event target is an AWS Batch job. For more information about AWS Batch, see <http://docs.aws.amazon.com/batch/latest/userguide/jobs.html Jobs> in the /AWS Batch User Guide/ .+tBatchParameters :: Lens' Target (Maybe BatchParameters)+tBatchParameters = lens _tBatchParameters (\ s a -> s{_tBatchParameters = a})+ -- | Contains the Amazon ECS task definition and task count to be used, if the event target is an Amazon ECS task. For more information about Amazon ECS tasks, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task_defintions.html Task Definitions > in the /Amazon EC2 Container Service Developer Guide/ . tEcsParameters :: Lens' Target (Maybe EcsParameters)-tEcsParameters = lens _tEcsParameters (\ s a -> s{_tEcsParameters = a});+tEcsParameters = lens _tEcsParameters (\ s a -> s{_tEcsParameters = a})  -- | The value of the JSONPath that is used for extracting part of the matched event when passing it to the target. You must use JSON dot notation, not bracket notation. For more information about JSON paths, see <http://goessner.net/articles/JsonPath/ JSONPath> . tInputPath :: Lens' Target (Maybe Text)-tInputPath = lens _tInputPath (\ s a -> s{_tInputPath = a});+tInputPath = lens _tInputPath (\ s a -> s{_tInputPath = a})  -- | The Amazon Resource Name (ARN) of the IAM role to be used for this target when the rule is triggered. If one rule triggers multiple targets, you can use a different IAM role for each target. tRoleARN :: Lens' Target (Maybe Text)-tRoleARN = lens _tRoleARN (\ s a -> s{_tRoleARN = a});+tRoleARN = lens _tRoleARN (\ s a -> s{_tRoleARN = a})  -- | The ID of the target. tId :: Lens' Target Text-tId = lens _tId (\ s a -> s{_tId = a});+tId = lens _tId (\ s a -> s{_tId = a})  -- | The Amazon Resource Name (ARN) of the target. tARN :: Lens' Target Text-tARN = lens _tARN (\ s a -> s{_tARN = a});+tARN = lens _tARN (\ s a -> s{_tARN = a})  instance FromJSON Target where         parseJSON@@ -693,7 +898,9 @@                    (x .:? "RunCommandParameters") <*>                      (x .:? "KinesisParameters")                      <*> (x .:? "InputTransformer")+                     <*> (x .:? "SqsParameters")                      <*> (x .:? "Input")+                     <*> (x .:? "BatchParameters")                      <*> (x .:? "EcsParameters")                      <*> (x .:? "InputPath")                      <*> (x .:? "RoleArn")@@ -712,7 +919,9 @@                     _tRunCommandParameters,                   ("KinesisParameters" .=) <$> _tKinesisParameters,                   ("InputTransformer" .=) <$> _tInputTransformer,+                  ("SqsParameters" .=) <$> _tSqsParameters,                   ("Input" .=) <$> _tInput,+                  ("BatchParameters" .=) <$> _tBatchParameters,                   ("EcsParameters" .=) <$> _tEcsParameters,                   ("InputPath" .=) <$> _tInputPath,                   ("RoleArn" .=) <$> _tRoleARN, Just ("Id" .= _tId),

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.CloudWatchEvents.Types.Sum--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.CloudWatchEvents.Waiters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

@@ -2,7 +2,7 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

@@ -3,7 +3,7 @@  -- | -- Module      : Test.AWS.CloudWatchEvents--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : experimental

@@ -3,7 +3,7 @@  -- | -- Module      : Test.AWS.CloudWatchEvents.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : experimental

@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.CloudWatchEvents--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated