amazonka-lex-models 1.5.0 → 1.6.0

raw patch · 51 files changed

+1745/−939 lines, 51 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-lex-models.cabal +7/−5
• fixture/GetImport.yaml +10/−0
• fixture/GetImportResponse.proto +0/−0
• fixture/StartImport.yaml +10/−0
• fixture/StartImportResponse.proto +0/−0
• gen/Network/AWS/LexModels.hs +31/−11
• gen/Network/AWS/LexModels/CreateBotVersion.hs +36/−36
• gen/Network/AWS/LexModels/CreateIntentVersion.hs +36/−36
• gen/Network/AWS/LexModels/CreateSlotTypeVersion.hs +22/−22
• gen/Network/AWS/LexModels/DeleteBot.hs +2/−2
• gen/Network/AWS/LexModels/DeleteBotAlias.hs +3/−3
• gen/Network/AWS/LexModels/DeleteBotChannelAssociation.hs +5/−5
• gen/Network/AWS/LexModels/DeleteBotVersion.hs +3/−3
• gen/Network/AWS/LexModels/DeleteIntent.hs +2/−2
• gen/Network/AWS/LexModels/DeleteIntentVersion.hs +3/−3
• gen/Network/AWS/LexModels/DeleteSlotType.hs +2/−2
• gen/Network/AWS/LexModels/DeleteSlotTypeVersion.hs +3/−3
• gen/Network/AWS/LexModels/DeleteUtterances.hs +4/−4
• gen/Network/AWS/LexModels/GetBot.hs +36/−36
• gen/Network/AWS/LexModels/GetBotAlias.hs +20/−20
• gen/Network/AWS/LexModels/GetBotAliases.hs +27/−17
• gen/Network/AWS/LexModels/GetBotChannelAssociation.hs +45/−25
• gen/Network/AWS/LexModels/GetBotChannelAssociations.hs +30/−19
• gen/Network/AWS/LexModels/GetBotVersions.hs +22/−12
• gen/Network/AWS/LexModels/GetBots.hs +22/−12
• gen/Network/AWS/LexModels/GetBuiltinIntent.hs +11/−11
• gen/Network/AWS/LexModels/GetBuiltinIntents.hs +27/−17
• gen/Network/AWS/LexModels/GetBuiltinSlotTypes.hs +27/−17
• gen/Network/AWS/LexModels/GetExport.hs +27/−27
• gen/Network/AWS/LexModels/GetImport.hs +188/−0
• gen/Network/AWS/LexModels/GetIntent.hs +101/−101
• gen/Network/AWS/LexModels/GetIntentVersions.hs +22/−12
• gen/Network/AWS/LexModels/GetIntents.hs +22/−12
• gen/Network/AWS/LexModels/GetSlotType.hs +59/−59
• gen/Network/AWS/LexModels/GetSlotTypeVersions.hs +22/−12
• gen/Network/AWS/LexModels/GetSlotTypes.hs +25/−15
• gen/Network/AWS/LexModels/GetUtterancesView.hs +15/−19
• gen/Network/AWS/LexModels/PutBot.hs +80/−60
• gen/Network/AWS/LexModels/PutBotAlias.hs +29/−29
• gen/Network/AWS/LexModels/PutIntent.hs +80/−60
• gen/Network/AWS/LexModels/PutSlotType.hs +52/−32
• gen/Network/AWS/LexModels/StartImport.hs +207/−0
• gen/Network/AWS/LexModels/Types.hs +30/−16
• gen/Network/AWS/LexModels/Types/Product.hs +165/−134
• gen/Network/AWS/LexModels/Types/Sum.hs +133/−22
• gen/Network/AWS/LexModels/Waiters.hs +1/−1
• test/Main.hs +1/−1
• test/Test/AWS/Gen/LexModels.hs +37/−1
• test/Test/AWS/LexModels.hs +1/−1
• test/Test/AWS/LexModels/Internal.hs +1/−1

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

@@ -1,5 +1,5 @@ name:                  amazonka-lex-models-version:               1.5.0+version:               1.6.0 synopsis:              Amazon Lex Model Building Service 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,6 +68,7 @@         , Network.AWS.LexModels.GetBuiltinIntents         , Network.AWS.LexModels.GetBuiltinSlotTypes         , Network.AWS.LexModels.GetExport+        , Network.AWS.LexModels.GetImport         , Network.AWS.LexModels.GetIntent         , Network.AWS.LexModels.GetIntentVersions         , Network.AWS.LexModels.GetIntents@@ -79,6 +80,7 @@         , Network.AWS.LexModels.PutBotAlias         , Network.AWS.LexModels.PutIntent         , Network.AWS.LexModels.PutSlotType+        , Network.AWS.LexModels.StartImport         , Network.AWS.LexModels.Types         , Network.AWS.LexModels.Waiters @@ -87,7 +89,7 @@         , Network.AWS.LexModels.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-lex-models-test@@ -107,8 +109,8 @@         , Test.AWS.LexModels.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-lex-models         , base         , bytestring

@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/models.lex/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  models.lex.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/models.lex/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  models.lex.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.LexModels--- 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@@ -53,7 +53,7 @@     -- ** DeleteIntentVersion     , module Network.AWS.LexModels.DeleteIntentVersion -    -- ** GetBotAliases+    -- ** GetBotAliases (Paginated)     , module Network.AWS.LexModels.GetBotAliases      -- ** DeleteBotChannelAssociation@@ -71,7 +71,7 @@     -- ** DeleteIntent     , module Network.AWS.LexModels.DeleteIntent -    -- ** GetBuiltinIntents+    -- ** GetBuiltinIntents (Paginated)     , module Network.AWS.LexModels.GetBuiltinIntents      -- ** PutBot@@ -80,7 +80,10 @@     -- ** DeleteBot     , module Network.AWS.LexModels.DeleteBot -    -- ** GetIntentVersions+    -- ** GetImport+    , module Network.AWS.LexModels.GetImport++    -- ** GetIntentVersions (Paginated)     , module Network.AWS.LexModels.GetIntentVersions      -- ** GetBuiltinIntent@@ -89,22 +92,22 @@     -- ** PutBotAlias     , module Network.AWS.LexModels.PutBotAlias -    -- ** GetBotVersions+    -- ** GetBotVersions (Paginated)     , module Network.AWS.LexModels.GetBotVersions -    -- ** GetBotChannelAssociations+    -- ** GetBotChannelAssociations (Paginated)     , module Network.AWS.LexModels.GetBotChannelAssociations      -- ** DeleteBotAlias     , module Network.AWS.LexModels.DeleteBotAlias -    -- ** GetSlotTypes+    -- ** GetSlotTypes (Paginated)     , module Network.AWS.LexModels.GetSlotTypes      -- ** DeleteUtterances     , module Network.AWS.LexModels.DeleteUtterances -    -- ** GetBots+    -- ** GetBots (Paginated)     , module Network.AWS.LexModels.GetBots      -- ** GetBot@@ -131,22 +134,25 @@     -- ** DeleteSlotType     , module Network.AWS.LexModels.DeleteSlotType +    -- ** StartImport+    , module Network.AWS.LexModels.StartImport+     -- ** GetBotChannelAssociation     , module Network.AWS.LexModels.GetBotChannelAssociation      -- ** PutSlotType     , module Network.AWS.LexModels.PutSlotType -    -- ** GetBuiltinSlotTypes+    -- ** GetBuiltinSlotTypes (Paginated)     , module Network.AWS.LexModels.GetBuiltinSlotTypes      -- ** GetUtterancesView     , module Network.AWS.LexModels.GetUtterancesView -    -- ** GetSlotTypeVersions+    -- ** GetSlotTypeVersions (Paginated)     , module Network.AWS.LexModels.GetSlotTypeVersions -    -- ** GetIntents+    -- ** GetIntents (Paginated)     , module Network.AWS.LexModels.GetIntents      -- ** GetBotAlias@@ -154,6 +160,9 @@      -- * Types +    -- ** ChannelStatus+    , ChannelStatus (..)+     -- ** ChannelType     , ChannelType (..) @@ -169,12 +178,18 @@     -- ** FulfillmentActivityType     , FulfillmentActivityType (..) +    -- ** ImportStatus+    , ImportStatus (..)+     -- ** LexStatus     , LexStatus (..)      -- ** Locale     , Locale (..) +    -- ** MergeStrategy+    , MergeStrategy (..)+     -- ** ProcessBehavior     , ProcessBehavior (..) @@ -204,6 +219,8 @@     -- ** BotChannelAssociation     , BotChannelAssociation     , botChannelAssociation+    , bcaFailureReason+    , bcaStatus     , bcaBotAlias     , bcaBotName     , bcaBotConfiguration@@ -281,6 +298,7 @@     -- ** Message     , Message     , message+    , mGroupNumber     , mContentType     , mContent @@ -358,6 +376,7 @@ import Network.AWS.LexModels.GetBuiltinIntents import Network.AWS.LexModels.GetBuiltinSlotTypes import Network.AWS.LexModels.GetExport+import Network.AWS.LexModels.GetImport import Network.AWS.LexModels.GetIntent import Network.AWS.LexModels.GetIntents import Network.AWS.LexModels.GetIntentVersions@@ -369,6 +388,7 @@ import Network.AWS.LexModels.PutBotAlias import Network.AWS.LexModels.PutIntent import Network.AWS.LexModels.PutSlotType+import Network.AWS.LexModels.StartImport import Network.AWS.LexModels.Types import Network.AWS.LexModels.Waiters 

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.CreateBotVersion--- 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@@ -86,11 +86,11 @@  -- | Identifies a specific revision of the @> LATEST@ version of the bot. If you specify a checksum and the @> LATEST@ version of the bot has a different checksum, a @PreconditionFailedException@ exception is returned and Amazon Lex doesn't publish a new version. If you don't specify a checksum, Amazon Lex publishes the @> LATEST@ version. cbvChecksum :: Lens' CreateBotVersion (Maybe Text)-cbvChecksum = lens _cbvChecksum (\ s a -> s{_cbvChecksum = a});+cbvChecksum = lens _cbvChecksum (\ s a -> s{_cbvChecksum = a})  -- | The name of the bot that you want to create a new version of. The name is case sensitive. cbvName :: Lens' CreateBotVersion Text-cbvName = lens _cbvName (\ s a -> s{_cbvName = a});+cbvName = lens _cbvName (\ s a -> s{_cbvName = a})  instance AWSRequest CreateBotVersion where         type Rs CreateBotVersion = CreateBotVersionResponse@@ -199,87 +199,87 @@     -> CreateBotVersionResponse createBotVersionResponse pResponseStatus_ =   CreateBotVersionResponse'-  { _cbvrsFailureReason = Nothing-  , _cbvrsStatus = Nothing-  , _cbvrsAbortStatement = Nothing-  , _cbvrsIntents = Nothing-  , _cbvrsChecksum = Nothing-  , _cbvrsLocale = Nothing-  , _cbvrsCreatedDate = Nothing-  , _cbvrsName = Nothing-  , _cbvrsVersion = Nothing-  , _cbvrsIdleSessionTTLInSeconds = Nothing-  , _cbvrsClarificationPrompt = Nothing-  , _cbvrsVoiceId = Nothing-  , _cbvrsLastUpdatedDate = Nothing-  , _cbvrsChildDirected = Nothing-  , _cbvrsDescription = Nothing-  , _cbvrsResponseStatus = pResponseStatus_-  }+    { _cbvrsFailureReason = Nothing+    , _cbvrsStatus = Nothing+    , _cbvrsAbortStatement = Nothing+    , _cbvrsIntents = Nothing+    , _cbvrsChecksum = Nothing+    , _cbvrsLocale = Nothing+    , _cbvrsCreatedDate = Nothing+    , _cbvrsName = Nothing+    , _cbvrsVersion = Nothing+    , _cbvrsIdleSessionTTLInSeconds = Nothing+    , _cbvrsClarificationPrompt = Nothing+    , _cbvrsVoiceId = Nothing+    , _cbvrsLastUpdatedDate = Nothing+    , _cbvrsChildDirected = Nothing+    , _cbvrsDescription = Nothing+    , _cbvrsResponseStatus = pResponseStatus_+    }   -- | If @status@ is @FAILED@ , Amazon Lex provides the reason that it failed to build the bot. cbvrsFailureReason :: Lens' CreateBotVersionResponse (Maybe Text)-cbvrsFailureReason = lens _cbvrsFailureReason (\ s a -> s{_cbvrsFailureReason = a});+cbvrsFailureReason = lens _cbvrsFailureReason (\ s a -> s{_cbvrsFailureReason = a})  -- | When you send a request to create or update a bot, Amazon Lex sets the @status@ response element to @BUILDING@ . After Amazon Lex builds the bot, it sets @status@ to @READY@ . If Amazon Lex can't build the bot, it sets @status@ to @FAILED@ . Amazon Lex returns the reason for the failure in the @failureReason@ response element. cbvrsStatus :: Lens' CreateBotVersionResponse (Maybe LexStatus)-cbvrsStatus = lens _cbvrsStatus (\ s a -> s{_cbvrsStatus = a});+cbvrsStatus = lens _cbvrsStatus (\ s a -> s{_cbvrsStatus = a})  -- | The message that Amazon Lex uses to abort a conversation. For more information, see 'PutBot' . cbvrsAbortStatement :: Lens' CreateBotVersionResponse (Maybe Statement)-cbvrsAbortStatement = lens _cbvrsAbortStatement (\ s a -> s{_cbvrsAbortStatement = a});+cbvrsAbortStatement = lens _cbvrsAbortStatement (\ s a -> s{_cbvrsAbortStatement = a})  -- | An array of @Intent@ objects. For more information, see 'PutBot' . cbvrsIntents :: Lens' CreateBotVersionResponse [Intent]-cbvrsIntents = lens _cbvrsIntents (\ s a -> s{_cbvrsIntents = a}) . _Default . _Coerce;+cbvrsIntents = lens _cbvrsIntents (\ s a -> s{_cbvrsIntents = a}) . _Default . _Coerce  -- | Checksum identifying the version of the bot that was created. cbvrsChecksum :: Lens' CreateBotVersionResponse (Maybe Text)-cbvrsChecksum = lens _cbvrsChecksum (\ s a -> s{_cbvrsChecksum = a});+cbvrsChecksum = lens _cbvrsChecksum (\ s a -> s{_cbvrsChecksum = a})  -- | Specifies the target locale for the bot. cbvrsLocale :: Lens' CreateBotVersionResponse (Maybe Locale)-cbvrsLocale = lens _cbvrsLocale (\ s a -> s{_cbvrsLocale = a});+cbvrsLocale = lens _cbvrsLocale (\ s a -> s{_cbvrsLocale = a})  -- | The date when the bot version was created. cbvrsCreatedDate :: Lens' CreateBotVersionResponse (Maybe UTCTime)-cbvrsCreatedDate = lens _cbvrsCreatedDate (\ s a -> s{_cbvrsCreatedDate = a}) . mapping _Time;+cbvrsCreatedDate = lens _cbvrsCreatedDate (\ s a -> s{_cbvrsCreatedDate = a}) . mapping _Time  -- | The name of the bot. cbvrsName :: Lens' CreateBotVersionResponse (Maybe Text)-cbvrsName = lens _cbvrsName (\ s a -> s{_cbvrsName = a});+cbvrsName = lens _cbvrsName (\ s a -> s{_cbvrsName = a})  -- | The version of the bot. cbvrsVersion :: Lens' CreateBotVersionResponse (Maybe Text)-cbvrsVersion = lens _cbvrsVersion (\ s a -> s{_cbvrsVersion = a});+cbvrsVersion = lens _cbvrsVersion (\ s a -> s{_cbvrsVersion = a})  -- | The maximum time in seconds that Amazon Lex retains the data gathered in a conversation. For more information, see 'PutBot' . cbvrsIdleSessionTTLInSeconds :: Lens' CreateBotVersionResponse (Maybe Natural)-cbvrsIdleSessionTTLInSeconds = lens _cbvrsIdleSessionTTLInSeconds (\ s a -> s{_cbvrsIdleSessionTTLInSeconds = a}) . mapping _Nat;+cbvrsIdleSessionTTLInSeconds = lens _cbvrsIdleSessionTTLInSeconds (\ s a -> s{_cbvrsIdleSessionTTLInSeconds = a}) . mapping _Nat  -- | The message that Amazon Lex uses when it doesn't understand the user's request. For more information, see 'PutBot' . cbvrsClarificationPrompt :: Lens' CreateBotVersionResponse (Maybe Prompt)-cbvrsClarificationPrompt = lens _cbvrsClarificationPrompt (\ s a -> s{_cbvrsClarificationPrompt = a});+cbvrsClarificationPrompt = lens _cbvrsClarificationPrompt (\ s a -> s{_cbvrsClarificationPrompt = a})  -- | The Amazon Polly voice ID that Amazon Lex uses for voice interactions with the user. cbvrsVoiceId :: Lens' CreateBotVersionResponse (Maybe Text)-cbvrsVoiceId = lens _cbvrsVoiceId (\ s a -> s{_cbvrsVoiceId = a});+cbvrsVoiceId = lens _cbvrsVoiceId (\ s a -> s{_cbvrsVoiceId = a})  -- | The date when the @> LATEST@ version of this bot was updated. cbvrsLastUpdatedDate :: Lens' CreateBotVersionResponse (Maybe UTCTime)-cbvrsLastUpdatedDate = lens _cbvrsLastUpdatedDate (\ s a -> s{_cbvrsLastUpdatedDate = a}) . mapping _Time;+cbvrsLastUpdatedDate = lens _cbvrsLastUpdatedDate (\ s a -> s{_cbvrsLastUpdatedDate = a}) . mapping _Time  -- | For each Amazon Lex bot created with the Amazon Lex Model Building Service, you must specify whether your use of Amazon Lex is related to a website, program, or other application that is directed or targeted, in whole or in part, to children under age 13 and subject to the Children's Online Privacy Protection Act (COPPA) by specifying @true@ or @false@ in the @childDirected@ field. By specifying @true@ in the @childDirected@ field, you confirm that your use of Amazon Lex __is__ related to a website, program, or other application that is directed or targeted, in whole or in part, to children under age 13 and subject to COPPA. By specifying @false@ in the @childDirected@ field, you confirm that your use of Amazon Lex __is not__ related to a website, program, or other application that is directed or targeted, in whole or in part, to children under age 13 and subject to COPPA. You may not specify a default value for the @childDirected@ field that does not accurately reflect whether your use of Amazon Lex is related to a website, program, or other application that is directed or targeted, in whole or in part, to children under age 13 and subject to COPPA. If your use of Amazon Lex relates to a website, program, or other application that is directed in whole or in part, to children under age 13, you must obtain any required verifiable parental consent under COPPA. For information regarding the use of Amazon Lex in connection with websites, programs, or other applications that are directed or targeted, in whole or in part, to children under age 13, see the <https://aws.amazon.com/lex/faqs#data-security Amazon Lex FAQ.> cbvrsChildDirected :: Lens' CreateBotVersionResponse (Maybe Bool)-cbvrsChildDirected = lens _cbvrsChildDirected (\ s a -> s{_cbvrsChildDirected = a});+cbvrsChildDirected = lens _cbvrsChildDirected (\ s a -> s{_cbvrsChildDirected = a})  -- | A description of the bot. cbvrsDescription :: Lens' CreateBotVersionResponse (Maybe Text)-cbvrsDescription = lens _cbvrsDescription (\ s a -> s{_cbvrsDescription = a});+cbvrsDescription = lens _cbvrsDescription (\ s a -> s{_cbvrsDescription = a})  -- | -- | The response status code. cbvrsResponseStatus :: Lens' CreateBotVersionResponse Int-cbvrsResponseStatus = lens _cbvrsResponseStatus (\ s a -> s{_cbvrsResponseStatus = a});+cbvrsResponseStatus = lens _cbvrsResponseStatus (\ s a -> s{_cbvrsResponseStatus = a})  instance NFData CreateBotVersionResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.CreateIntentVersion--- 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@@ -86,11 +86,11 @@  -- | Checksum of the @> LATEST@ version of the intent that should be used to create the new version. If you specify a checksum and the @> LATEST@ version of the intent has a different checksum, Amazon Lex returns a @PreconditionFailedException@ exception and doesn't publish a new version. If you don't specify a checksum, Amazon Lex publishes the @> LATEST@ version. civChecksum :: Lens' CreateIntentVersion (Maybe Text)-civChecksum = lens _civChecksum (\ s a -> s{_civChecksum = a});+civChecksum = lens _civChecksum (\ s a -> s{_civChecksum = a})  -- | The name of the intent that you want to create a new version of. The name is case sensitive. civName :: Lens' CreateIntentVersion Text-civName = lens _civName (\ s a -> s{_civName = a});+civName = lens _civName (\ s a -> s{_civName = a})  instance AWSRequest CreateIntentVersion where         type Rs CreateIntentVersion =@@ -201,87 +201,87 @@     -> CreateIntentVersionResponse createIntentVersionResponse pResponseStatus_ =   CreateIntentVersionResponse'-  { _civrsFulfillmentActivity = Nothing-  , _civrsSlots = Nothing-  , _civrsRejectionStatement = Nothing-  , _civrsChecksum = Nothing-  , _civrsConclusionStatement = Nothing-  , _civrsSampleUtterances = Nothing-  , _civrsParentIntentSignature = Nothing-  , _civrsCreatedDate = Nothing-  , _civrsName = Nothing-  , _civrsVersion = Nothing-  , _civrsFollowUpPrompt = Nothing-  , _civrsLastUpdatedDate = Nothing-  , _civrsConfirmationPrompt = Nothing-  , _civrsDialogCodeHook = Nothing-  , _civrsDescription = Nothing-  , _civrsResponseStatus = pResponseStatus_-  }+    { _civrsFulfillmentActivity = Nothing+    , _civrsSlots = Nothing+    , _civrsRejectionStatement = Nothing+    , _civrsChecksum = Nothing+    , _civrsConclusionStatement = Nothing+    , _civrsSampleUtterances = Nothing+    , _civrsParentIntentSignature = Nothing+    , _civrsCreatedDate = Nothing+    , _civrsName = Nothing+    , _civrsVersion = Nothing+    , _civrsFollowUpPrompt = Nothing+    , _civrsLastUpdatedDate = Nothing+    , _civrsConfirmationPrompt = Nothing+    , _civrsDialogCodeHook = Nothing+    , _civrsDescription = Nothing+    , _civrsResponseStatus = pResponseStatus_+    }   -- | Describes how the intent is fulfilled. civrsFulfillmentActivity :: Lens' CreateIntentVersionResponse (Maybe FulfillmentActivity)-civrsFulfillmentActivity = lens _civrsFulfillmentActivity (\ s a -> s{_civrsFulfillmentActivity = a});+civrsFulfillmentActivity = lens _civrsFulfillmentActivity (\ s a -> s{_civrsFulfillmentActivity = a})  -- | An array of slot types that defines the information required to fulfill the intent. civrsSlots :: Lens' CreateIntentVersionResponse [Slot]-civrsSlots = lens _civrsSlots (\ s a -> s{_civrsSlots = a}) . _Default . _Coerce;+civrsSlots = lens _civrsSlots (\ s a -> s{_civrsSlots = a}) . _Default . _Coerce  -- | If the user answers "no" to the question defined in @confirmationPrompt@ , Amazon Lex responds with this statement to acknowledge that the intent was canceled. civrsRejectionStatement :: Lens' CreateIntentVersionResponse (Maybe Statement)-civrsRejectionStatement = lens _civrsRejectionStatement (\ s a -> s{_civrsRejectionStatement = a});+civrsRejectionStatement = lens _civrsRejectionStatement (\ s a -> s{_civrsRejectionStatement = a})  -- | Checksum of the intent version created. civrsChecksum :: Lens' CreateIntentVersionResponse (Maybe Text)-civrsChecksum = lens _civrsChecksum (\ s a -> s{_civrsChecksum = a});+civrsChecksum = lens _civrsChecksum (\ s a -> s{_civrsChecksum = a})  -- | After the Lambda function specified in the @fulfillmentActivity@ field fulfills the intent, Amazon Lex conveys this statement to the user. civrsConclusionStatement :: Lens' CreateIntentVersionResponse (Maybe Statement)-civrsConclusionStatement = lens _civrsConclusionStatement (\ s a -> s{_civrsConclusionStatement = a});+civrsConclusionStatement = lens _civrsConclusionStatement (\ s a -> s{_civrsConclusionStatement = a})  -- | An array of sample utterances configured for the intent. civrsSampleUtterances :: Lens' CreateIntentVersionResponse [Text]-civrsSampleUtterances = lens _civrsSampleUtterances (\ s a -> s{_civrsSampleUtterances = a}) . _Default . _Coerce;+civrsSampleUtterances = lens _civrsSampleUtterances (\ s a -> s{_civrsSampleUtterances = a}) . _Default . _Coerce  -- | A unique identifier for a built-in intent. civrsParentIntentSignature :: Lens' CreateIntentVersionResponse (Maybe Text)-civrsParentIntentSignature = lens _civrsParentIntentSignature (\ s a -> s{_civrsParentIntentSignature = a});+civrsParentIntentSignature = lens _civrsParentIntentSignature (\ s a -> s{_civrsParentIntentSignature = a})  -- | The date that the intent was created. civrsCreatedDate :: Lens' CreateIntentVersionResponse (Maybe UTCTime)-civrsCreatedDate = lens _civrsCreatedDate (\ s a -> s{_civrsCreatedDate = a}) . mapping _Time;+civrsCreatedDate = lens _civrsCreatedDate (\ s a -> s{_civrsCreatedDate = a}) . mapping _Time  -- | The name of the intent. civrsName :: Lens' CreateIntentVersionResponse (Maybe Text)-civrsName = lens _civrsName (\ s a -> s{_civrsName = a});+civrsName = lens _civrsName (\ s a -> s{_civrsName = a})  -- | The version number assigned to the new version of the intent. civrsVersion :: Lens' CreateIntentVersionResponse (Maybe Text)-civrsVersion = lens _civrsVersion (\ s a -> s{_civrsVersion = a});+civrsVersion = lens _civrsVersion (\ s a -> s{_civrsVersion = a})  -- | If defined, Amazon Lex uses this prompt to solicit additional user activity after the intent is fulfilled. civrsFollowUpPrompt :: Lens' CreateIntentVersionResponse (Maybe FollowUpPrompt)-civrsFollowUpPrompt = lens _civrsFollowUpPrompt (\ s a -> s{_civrsFollowUpPrompt = a});+civrsFollowUpPrompt = lens _civrsFollowUpPrompt (\ s a -> s{_civrsFollowUpPrompt = a})  -- | The date that the intent was updated. civrsLastUpdatedDate :: Lens' CreateIntentVersionResponse (Maybe UTCTime)-civrsLastUpdatedDate = lens _civrsLastUpdatedDate (\ s a -> s{_civrsLastUpdatedDate = a}) . mapping _Time;+civrsLastUpdatedDate = lens _civrsLastUpdatedDate (\ s a -> s{_civrsLastUpdatedDate = a}) . mapping _Time  -- | If defined, the prompt that Amazon Lex uses to confirm the user's intent before fulfilling it. civrsConfirmationPrompt :: Lens' CreateIntentVersionResponse (Maybe Prompt)-civrsConfirmationPrompt = lens _civrsConfirmationPrompt (\ s a -> s{_civrsConfirmationPrompt = a});+civrsConfirmationPrompt = lens _civrsConfirmationPrompt (\ s a -> s{_civrsConfirmationPrompt = a})  -- | If defined, Amazon Lex invokes this Lambda function for each user input. civrsDialogCodeHook :: Lens' CreateIntentVersionResponse (Maybe CodeHook)-civrsDialogCodeHook = lens _civrsDialogCodeHook (\ s a -> s{_civrsDialogCodeHook = a});+civrsDialogCodeHook = lens _civrsDialogCodeHook (\ s a -> s{_civrsDialogCodeHook = a})  -- | A description of the intent. civrsDescription :: Lens' CreateIntentVersionResponse (Maybe Text)-civrsDescription = lens _civrsDescription (\ s a -> s{_civrsDescription = a});+civrsDescription = lens _civrsDescription (\ s a -> s{_civrsDescription = a})  -- | -- | The response status code. civrsResponseStatus :: Lens' CreateIntentVersionResponse Int-civrsResponseStatus = lens _civrsResponseStatus (\ s a -> s{_civrsResponseStatus = a});+civrsResponseStatus = lens _civrsResponseStatus (\ s a -> s{_civrsResponseStatus = a})  instance NFData CreateIntentVersionResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.CreateSlotTypeVersion--- 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@@ -79,11 +79,11 @@  -- | Checksum for the @> LATEST@ version of the slot type that you want to publish. If you specify a checksum and the @> LATEST@ version of the slot type has a different checksum, Amazon Lex returns a @PreconditionFailedException@ exception and doesn't publish the new version. If you don't specify a checksum, Amazon Lex publishes the @> LATEST@ version. cstvChecksum :: Lens' CreateSlotTypeVersion (Maybe Text)-cstvChecksum = lens _cstvChecksum (\ s a -> s{_cstvChecksum = a});+cstvChecksum = lens _cstvChecksum (\ s a -> s{_cstvChecksum = a})  -- | The name of the slot type that you want to create a new version for. The name is case sensitive. cstvName :: Lens' CreateSlotTypeVersion Text-cstvName = lens _cstvName (\ s a -> s{_cstvName = a});+cstvName = lens _cstvName (\ s a -> s{_cstvName = a})  instance AWSRequest CreateSlotTypeVersion where         type Rs CreateSlotTypeVersion =@@ -167,52 +167,52 @@     -> CreateSlotTypeVersionResponse createSlotTypeVersionResponse pResponseStatus_ =   CreateSlotTypeVersionResponse'-  { _cstvrsChecksum = Nothing-  , _cstvrsValueSelectionStrategy = Nothing-  , _cstvrsCreatedDate = Nothing-  , _cstvrsName = Nothing-  , _cstvrsVersion = Nothing-  , _cstvrsLastUpdatedDate = Nothing-  , _cstvrsDescription = Nothing-  , _cstvrsEnumerationValues = Nothing-  , _cstvrsResponseStatus = pResponseStatus_-  }+    { _cstvrsChecksum = Nothing+    , _cstvrsValueSelectionStrategy = Nothing+    , _cstvrsCreatedDate = Nothing+    , _cstvrsName = Nothing+    , _cstvrsVersion = Nothing+    , _cstvrsLastUpdatedDate = Nothing+    , _cstvrsDescription = Nothing+    , _cstvrsEnumerationValues = Nothing+    , _cstvrsResponseStatus = pResponseStatus_+    }   -- | Checksum of the @> LATEST@ version of the slot type. cstvrsChecksum :: Lens' CreateSlotTypeVersionResponse (Maybe Text)-cstvrsChecksum = lens _cstvrsChecksum (\ s a -> s{_cstvrsChecksum = a});+cstvrsChecksum = lens _cstvrsChecksum (\ s a -> s{_cstvrsChecksum = a})  -- | The strategy that Amazon Lex uses to determine the value of the slot. For more information, see 'PutSlotType' . cstvrsValueSelectionStrategy :: Lens' CreateSlotTypeVersionResponse (Maybe SlotValueSelectionStrategy)-cstvrsValueSelectionStrategy = lens _cstvrsValueSelectionStrategy (\ s a -> s{_cstvrsValueSelectionStrategy = a});+cstvrsValueSelectionStrategy = lens _cstvrsValueSelectionStrategy (\ s a -> s{_cstvrsValueSelectionStrategy = a})  -- | The date that the slot type was created. cstvrsCreatedDate :: Lens' CreateSlotTypeVersionResponse (Maybe UTCTime)-cstvrsCreatedDate = lens _cstvrsCreatedDate (\ s a -> s{_cstvrsCreatedDate = a}) . mapping _Time;+cstvrsCreatedDate = lens _cstvrsCreatedDate (\ s a -> s{_cstvrsCreatedDate = a}) . mapping _Time  -- | The name of the slot type. cstvrsName :: Lens' CreateSlotTypeVersionResponse (Maybe Text)-cstvrsName = lens _cstvrsName (\ s a -> s{_cstvrsName = a});+cstvrsName = lens _cstvrsName (\ s a -> s{_cstvrsName = a})  -- | The version assigned to the new slot type version. cstvrsVersion :: Lens' CreateSlotTypeVersionResponse (Maybe Text)-cstvrsVersion = lens _cstvrsVersion (\ s a -> s{_cstvrsVersion = a});+cstvrsVersion = lens _cstvrsVersion (\ s a -> s{_cstvrsVersion = a})  -- | The date that the slot type was updated. When you create a resource, the creation date and last update date are the same. cstvrsLastUpdatedDate :: Lens' CreateSlotTypeVersionResponse (Maybe UTCTime)-cstvrsLastUpdatedDate = lens _cstvrsLastUpdatedDate (\ s a -> s{_cstvrsLastUpdatedDate = a}) . mapping _Time;+cstvrsLastUpdatedDate = lens _cstvrsLastUpdatedDate (\ s a -> s{_cstvrsLastUpdatedDate = a}) . mapping _Time  -- | A description of the slot type. cstvrsDescription :: Lens' CreateSlotTypeVersionResponse (Maybe Text)-cstvrsDescription = lens _cstvrsDescription (\ s a -> s{_cstvrsDescription = a});+cstvrsDescription = lens _cstvrsDescription (\ s a -> s{_cstvrsDescription = a})  -- | A list of @EnumerationValue@ objects that defines the values that the slot type can take. cstvrsEnumerationValues :: Lens' CreateSlotTypeVersionResponse (Maybe (NonEmpty EnumerationValue))-cstvrsEnumerationValues = lens _cstvrsEnumerationValues (\ s a -> s{_cstvrsEnumerationValues = a}) . mapping _List1;+cstvrsEnumerationValues = lens _cstvrsEnumerationValues (\ s a -> s{_cstvrsEnumerationValues = a}) . mapping _List1  -- | -- | The response status code. cstvrsResponseStatus :: Lens' CreateSlotTypeVersionResponse Int-cstvrsResponseStatus = lens _cstvrsResponseStatus (\ s a -> s{_cstvrsResponseStatus = a});+cstvrsResponseStatus = lens _cstvrsResponseStatus (\ s a -> s{_cstvrsResponseStatus = a})  instance NFData CreateSlotTypeVersionResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.DeleteBot--- 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 bot. The name is case sensitive. dbName :: Lens' DeleteBot Text-dbName = lens _dbName (\ s a -> s{_dbName = a});+dbName = lens _dbName (\ s a -> s{_dbName = a})  instance AWSRequest DeleteBot where         type Rs DeleteBot = DeleteBotResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.DeleteBotAlias--- 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,11 +68,11 @@  -- | The name of the alias to delete. The name is case sensitive. dbaName :: Lens' DeleteBotAlias Text-dbaName = lens _dbaName (\ s a -> s{_dbaName = a});+dbaName = lens _dbaName (\ s a -> s{_dbaName = a})  -- | The name of the bot that the alias points to. dbaBotName :: Lens' DeleteBotAlias Text-dbaBotName = lens _dbaBotName (\ s a -> s{_dbaBotName = a});+dbaBotName = lens _dbaBotName (\ s a -> s{_dbaBotName = a})  instance AWSRequest DeleteBotAlias where         type Rs DeleteBotAlias = DeleteBotAliasResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.DeleteBotChannelAssociation--- 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 @@     -> DeleteBotChannelAssociation deleteBotChannelAssociation pName_ pBotName_ pBotAlias_ =   DeleteBotChannelAssociation'-  {_dbcaName = pName_, _dbcaBotName = pBotName_, _dbcaBotAlias = pBotAlias_}+    {_dbcaName = pName_, _dbcaBotName = pBotName_, _dbcaBotAlias = pBotAlias_}   -- | The name of the association. The name is case sensitive. dbcaName :: Lens' DeleteBotChannelAssociation Text-dbcaName = lens _dbcaName (\ s a -> s{_dbcaName = a});+dbcaName = lens _dbcaName (\ s a -> s{_dbcaName = a})  -- | The name of the Amazon Lex bot. dbcaBotName :: Lens' DeleteBotChannelAssociation Text-dbcaBotName = lens _dbcaBotName (\ s a -> s{_dbcaBotName = a});+dbcaBotName = lens _dbcaBotName (\ s a -> s{_dbcaBotName = a})  -- | An alias that points to the specific version of the Amazon Lex bot to which this association is being made. dbcaBotAlias :: Lens' DeleteBotChannelAssociation Text-dbcaBotAlias = lens _dbcaBotAlias (\ s a -> s{_dbcaBotAlias = a});+dbcaBotAlias = lens _dbcaBotAlias (\ s a -> s{_dbcaBotAlias = a})  instance AWSRequest DeleteBotChannelAssociation where         type Rs DeleteBotChannelAssociation =

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.DeleteBotVersion--- 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,11 +68,11 @@  -- | The name of the bot. dbvName :: Lens' DeleteBotVersion Text-dbvName = lens _dbvName (\ s a -> s{_dbvName = a});+dbvName = lens _dbvName (\ s a -> s{_dbvName = a})  -- | The version of the bot to delete. You cannot delete the @> LATEST@ version of the bot. To delete the @> LATEST@ version, use the 'DeleteBot' operation. dbvVersion :: Lens' DeleteBotVersion Text-dbvVersion = lens _dbvVersion (\ s a -> s{_dbvVersion = a});+dbvVersion = lens _dbvVersion (\ s a -> s{_dbvVersion = a})  instance AWSRequest DeleteBotVersion where         type Rs DeleteBotVersion = DeleteBotVersionResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.DeleteIntent--- 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 intent. The name is case sensitive. diName :: Lens' DeleteIntent Text-diName = lens _diName (\ s a -> s{_diName = a});+diName = lens _diName (\ s a -> s{_diName = a})  instance AWSRequest DeleteIntent where         type Rs DeleteIntent = DeleteIntentResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.DeleteIntentVersion--- 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,11 +68,11 @@  -- | The name of the intent. divName :: Lens' DeleteIntentVersion Text-divName = lens _divName (\ s a -> s{_divName = a});+divName = lens _divName (\ s a -> s{_divName = a})  -- | The version of the intent to delete. You cannot delete the @> LATEST@ version of the intent. To delete the @> LATEST@ version, use the 'DeleteIntent' operation. divVersion :: Lens' DeleteIntentVersion Text-divVersion = lens _divVersion (\ s a -> s{_divVersion = a});+divVersion = lens _divVersion (\ s a -> s{_divVersion = a})  instance AWSRequest DeleteIntentVersion where         type Rs DeleteIntentVersion =

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.DeleteSlotType--- 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 slot type. The name is case sensitive. dstName :: Lens' DeleteSlotType Text-dstName = lens _dstName (\ s a -> s{_dstName = a});+dstName = lens _dstName (\ s a -> s{_dstName = a})  instance AWSRequest DeleteSlotType where         type Rs DeleteSlotType = DeleteSlotTypeResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.DeleteSlotTypeVersion--- 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,11 +68,11 @@  -- | The name of the slot type. dstvName :: Lens' DeleteSlotTypeVersion Text-dstvName = lens _dstvName (\ s a -> s{_dstvName = a});+dstvName = lens _dstvName (\ s a -> s{_dstvName = a})  -- | The version of the slot type to delete. You cannot delete the @> LATEST@ version of the slot type. To delete the @> LATEST@ version, use the 'DeleteSlotType' operation. dstvVersion :: Lens' DeleteSlotTypeVersion Text-dstvVersion = lens _dstvVersion (\ s a -> s{_dstvVersion = a});+dstvVersion = lens _dstvVersion (\ s a -> s{_dstvVersion = a})  instance AWSRequest DeleteSlotTypeVersion where         type Rs DeleteSlotTypeVersion =

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.DeleteUtterances--- 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,7 +21,7 @@ -- Deletes stored utterances. -- ----- Amazon Lex stores the utterances that users send to your bot unless the @childDirected@ field in the bot is set to @true@ . Utterances are stored for 15 days for use with the 'GetUtterancesView' operation, and then stored indefinately for use in improving the ability of your bot to respond to user input.+-- Amazon Lex stores the utterances that users send to your bot. Utterances are stored for 15 days for use with the 'GetUtterancesView' operation, and then stored indefinitely for use in improving the ability of your bot to respond to user input. -- -- Use the @DeleteStoredUtterances@ operation to manually delete stored utterances for a specific user. --@@ -72,11 +72,11 @@  -- | The name of the bot that stored the utterances. duBotName :: Lens' DeleteUtterances Text-duBotName = lens _duBotName (\ s a -> s{_duBotName = a});+duBotName = lens _duBotName (\ s a -> s{_duBotName = a})  -- | The unique identifier for the user that made the utterances. This is the user ID that was sent in the <http://docs.aws.amazon.com/lex/latest/dg/API_runtime_PostContent.html PostContent> or <http://docs.aws.amazon.com/lex/latest/dg/API_runtime_PostText.html PostText> operation request that contained the utterance. duUserId :: Lens' DeleteUtterances Text-duUserId = lens _duUserId (\ s a -> s{_duUserId = a});+duUserId = lens _duUserId (\ s a -> s{_duUserId = a})  instance AWSRequest DeleteUtterances where         type Rs DeleteUtterances = DeleteUtterancesResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.GetBot--- 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@@ -85,11 +85,11 @@  -- | The name of the bot. The name is case sensitive. gbName :: Lens' GetBot Text-gbName = lens _gbName (\ s a -> s{_gbName = a});+gbName = lens _gbName (\ s a -> s{_gbName = a})  -- | The version or alias of the bot. gbVersionOrAlias :: Lens' GetBot Text-gbVersionOrAlias = lens _gbVersionOrAlias (\ s a -> s{_gbVersionOrAlias = a});+gbVersionOrAlias = lens _gbVersionOrAlias (\ s a -> s{_gbVersionOrAlias = a})  instance AWSRequest GetBot where         type Rs GetBot = GetBotResponse@@ -195,87 +195,87 @@     -> GetBotResponse getBotResponse pResponseStatus_ =   GetBotResponse'-  { _gbrsFailureReason = Nothing-  , _gbrsStatus = Nothing-  , _gbrsAbortStatement = Nothing-  , _gbrsIntents = Nothing-  , _gbrsChecksum = Nothing-  , _gbrsLocale = Nothing-  , _gbrsCreatedDate = Nothing-  , _gbrsName = Nothing-  , _gbrsVersion = Nothing-  , _gbrsIdleSessionTTLInSeconds = Nothing-  , _gbrsClarificationPrompt = Nothing-  , _gbrsVoiceId = Nothing-  , _gbrsLastUpdatedDate = Nothing-  , _gbrsChildDirected = Nothing-  , _gbrsDescription = Nothing-  , _gbrsResponseStatus = pResponseStatus_-  }+    { _gbrsFailureReason = Nothing+    , _gbrsStatus = Nothing+    , _gbrsAbortStatement = Nothing+    , _gbrsIntents = Nothing+    , _gbrsChecksum = Nothing+    , _gbrsLocale = Nothing+    , _gbrsCreatedDate = Nothing+    , _gbrsName = Nothing+    , _gbrsVersion = Nothing+    , _gbrsIdleSessionTTLInSeconds = Nothing+    , _gbrsClarificationPrompt = Nothing+    , _gbrsVoiceId = Nothing+    , _gbrsLastUpdatedDate = Nothing+    , _gbrsChildDirected = Nothing+    , _gbrsDescription = Nothing+    , _gbrsResponseStatus = pResponseStatus_+    }   -- | If @status@ is @FAILED@ , Amazon Lex explains why it failed to build the bot. gbrsFailureReason :: Lens' GetBotResponse (Maybe Text)-gbrsFailureReason = lens _gbrsFailureReason (\ s a -> s{_gbrsFailureReason = a});+gbrsFailureReason = lens _gbrsFailureReason (\ s a -> s{_gbrsFailureReason = a})  -- | The status of the bot. If the bot is ready to run, the status is @READY@ . If there was a problem with building the bot, the status is @FAILED@ and the @failureReason@ explains why the bot did not build. If the bot was saved but not built, the status is @NOT BUILT@ . gbrsStatus :: Lens' GetBotResponse (Maybe LexStatus)-gbrsStatus = lens _gbrsStatus (\ s a -> s{_gbrsStatus = a});+gbrsStatus = lens _gbrsStatus (\ s a -> s{_gbrsStatus = a})  -- | The message that Amazon Lex returns when the user elects to end the conversation without completing it. For more information, see 'PutBot' . gbrsAbortStatement :: Lens' GetBotResponse (Maybe Statement)-gbrsAbortStatement = lens _gbrsAbortStatement (\ s a -> s{_gbrsAbortStatement = a});+gbrsAbortStatement = lens _gbrsAbortStatement (\ s a -> s{_gbrsAbortStatement = a})  -- | An array of @intent@ objects. For more information, see 'PutBot' . gbrsIntents :: Lens' GetBotResponse [Intent]-gbrsIntents = lens _gbrsIntents (\ s a -> s{_gbrsIntents = a}) . _Default . _Coerce;+gbrsIntents = lens _gbrsIntents (\ s a -> s{_gbrsIntents = a}) . _Default . _Coerce  -- | Checksum of the bot used to identify a specific revision of the bot's @> LATEST@ version. gbrsChecksum :: Lens' GetBotResponse (Maybe Text)-gbrsChecksum = lens _gbrsChecksum (\ s a -> s{_gbrsChecksum = a});+gbrsChecksum = lens _gbrsChecksum (\ s a -> s{_gbrsChecksum = a})  -- | The target locale for the bot. gbrsLocale :: Lens' GetBotResponse (Maybe Locale)-gbrsLocale = lens _gbrsLocale (\ s a -> s{_gbrsLocale = a});+gbrsLocale = lens _gbrsLocale (\ s a -> s{_gbrsLocale = a})  -- | The date that the bot was created. gbrsCreatedDate :: Lens' GetBotResponse (Maybe UTCTime)-gbrsCreatedDate = lens _gbrsCreatedDate (\ s a -> s{_gbrsCreatedDate = a}) . mapping _Time;+gbrsCreatedDate = lens _gbrsCreatedDate (\ s a -> s{_gbrsCreatedDate = a}) . mapping _Time  -- | The name of the bot. gbrsName :: Lens' GetBotResponse (Maybe Text)-gbrsName = lens _gbrsName (\ s a -> s{_gbrsName = a});+gbrsName = lens _gbrsName (\ s a -> s{_gbrsName = a})  -- | The version of the bot. For a new bot, the version is always @> LATEST@ . gbrsVersion :: Lens' GetBotResponse (Maybe Text)-gbrsVersion = lens _gbrsVersion (\ s a -> s{_gbrsVersion = a});+gbrsVersion = lens _gbrsVersion (\ s a -> s{_gbrsVersion = a})  -- | The maximum time in seconds that Amazon Lex retains the data gathered in a conversation. For more information, see 'PutBot' . gbrsIdleSessionTTLInSeconds :: Lens' GetBotResponse (Maybe Natural)-gbrsIdleSessionTTLInSeconds = lens _gbrsIdleSessionTTLInSeconds (\ s a -> s{_gbrsIdleSessionTTLInSeconds = a}) . mapping _Nat;+gbrsIdleSessionTTLInSeconds = lens _gbrsIdleSessionTTLInSeconds (\ s a -> s{_gbrsIdleSessionTTLInSeconds = a}) . mapping _Nat  -- | The message Amazon Lex uses when it doesn't understand the user's request. For more information, see 'PutBot' . gbrsClarificationPrompt :: Lens' GetBotResponse (Maybe Prompt)-gbrsClarificationPrompt = lens _gbrsClarificationPrompt (\ s a -> s{_gbrsClarificationPrompt = a});+gbrsClarificationPrompt = lens _gbrsClarificationPrompt (\ s a -> s{_gbrsClarificationPrompt = a})  -- | The Amazon Polly voice ID that Amazon Lex uses for voice interaction with the user. For more information, see 'PutBot' . gbrsVoiceId :: Lens' GetBotResponse (Maybe Text)-gbrsVoiceId = lens _gbrsVoiceId (\ s a -> s{_gbrsVoiceId = a});+gbrsVoiceId = lens _gbrsVoiceId (\ s a -> s{_gbrsVoiceId = a})  -- | The date that the bot was updated. When you create a resource, the creation date and last updated date are the same. gbrsLastUpdatedDate :: Lens' GetBotResponse (Maybe UTCTime)-gbrsLastUpdatedDate = lens _gbrsLastUpdatedDate (\ s a -> s{_gbrsLastUpdatedDate = a}) . mapping _Time;+gbrsLastUpdatedDate = lens _gbrsLastUpdatedDate (\ s a -> s{_gbrsLastUpdatedDate = a}) . mapping _Time  -- | For each Amazon Lex bot created with the Amazon Lex Model Building Service, you must specify whether your use of Amazon Lex is related to a website, program, or other application that is directed or targeted, in whole or in part, to children under age 13 and subject to the Children's Online Privacy Protection Act (COPPA) by specifying @true@ or @false@ in the @childDirected@ field. By specifying @true@ in the @childDirected@ field, you confirm that your use of Amazon Lex __is__ related to a website, program, or other application that is directed or targeted, in whole or in part, to children under age 13 and subject to COPPA. By specifying @false@ in the @childDirected@ field, you confirm that your use of Amazon Lex __is not__ related to a website, program, or other application that is directed or targeted, in whole or in part, to children under age 13 and subject to COPPA. You may not specify a default value for the @childDirected@ field that does not accurately reflect whether your use of Amazon Lex is related to a website, program, or other application that is directed or targeted, in whole or in part, to children under age 13 and subject to COPPA. If your use of Amazon Lex relates to a website, program, or other application that is directed in whole or in part, to children under age 13, you must obtain any required verifiable parental consent under COPPA. For information regarding the use of Amazon Lex in connection with websites, programs, or other applications that are directed or targeted, in whole or in part, to children under age 13, see the <https://aws.amazon.com/lex/faqs#data-security Amazon Lex FAQ.> gbrsChildDirected :: Lens' GetBotResponse (Maybe Bool)-gbrsChildDirected = lens _gbrsChildDirected (\ s a -> s{_gbrsChildDirected = a});+gbrsChildDirected = lens _gbrsChildDirected (\ s a -> s{_gbrsChildDirected = a})  -- | A description of the bot. gbrsDescription :: Lens' GetBotResponse (Maybe Text)-gbrsDescription = lens _gbrsDescription (\ s a -> s{_gbrsDescription = a});+gbrsDescription = lens _gbrsDescription (\ s a -> s{_gbrsDescription = a})  -- | -- | The response status code. gbrsResponseStatus :: Lens' GetBotResponse Int-gbrsResponseStatus = lens _gbrsResponseStatus (\ s a -> s{_gbrsResponseStatus = a});+gbrsResponseStatus = lens _gbrsResponseStatus (\ s a -> s{_gbrsResponseStatus = a})  instance NFData GetBotResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.GetBotAlias--- 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@@ -77,11 +77,11 @@  -- | The name of the bot alias. The name is case sensitive. gbasName :: Lens' GetBotAlias Text-gbasName = lens _gbasName (\ s a -> s{_gbasName = a});+gbasName = lens _gbasName (\ s a -> s{_gbasName = a})  -- | The name of the bot. gbasBotName :: Lens' GetBotAlias Text-gbasBotName = lens _gbasBotName (\ s a -> s{_gbasBotName = a});+gbasBotName = lens _gbasBotName (\ s a -> s{_gbasBotName = a})  instance AWSRequest GetBotAlias where         type Rs GetBotAlias = GetBotAliasResponse@@ -155,47 +155,47 @@     -> GetBotAliasResponse getBotAliasResponse pResponseStatus_ =   GetBotAliasResponse'-  { _gbasrsChecksum = Nothing-  , _gbasrsBotVersion = Nothing-  , _gbasrsBotName = Nothing-  , _gbasrsCreatedDate = Nothing-  , _gbasrsName = Nothing-  , _gbasrsLastUpdatedDate = Nothing-  , _gbasrsDescription = Nothing-  , _gbasrsResponseStatus = pResponseStatus_-  }+    { _gbasrsChecksum = Nothing+    , _gbasrsBotVersion = Nothing+    , _gbasrsBotName = Nothing+    , _gbasrsCreatedDate = Nothing+    , _gbasrsName = Nothing+    , _gbasrsLastUpdatedDate = Nothing+    , _gbasrsDescription = Nothing+    , _gbasrsResponseStatus = pResponseStatus_+    }   -- | Checksum of the bot alias. gbasrsChecksum :: Lens' GetBotAliasResponse (Maybe Text)-gbasrsChecksum = lens _gbasrsChecksum (\ s a -> s{_gbasrsChecksum = a});+gbasrsChecksum = lens _gbasrsChecksum (\ s a -> s{_gbasrsChecksum = a})  -- | The version of the bot that the alias points to. gbasrsBotVersion :: Lens' GetBotAliasResponse (Maybe Text)-gbasrsBotVersion = lens _gbasrsBotVersion (\ s a -> s{_gbasrsBotVersion = a});+gbasrsBotVersion = lens _gbasrsBotVersion (\ s a -> s{_gbasrsBotVersion = a})  -- | The name of the bot that the alias points to. gbasrsBotName :: Lens' GetBotAliasResponse (Maybe Text)-gbasrsBotName = lens _gbasrsBotName (\ s a -> s{_gbasrsBotName = a});+gbasrsBotName = lens _gbasrsBotName (\ s a -> s{_gbasrsBotName = a})  -- | The date that the bot alias was created. gbasrsCreatedDate :: Lens' GetBotAliasResponse (Maybe UTCTime)-gbasrsCreatedDate = lens _gbasrsCreatedDate (\ s a -> s{_gbasrsCreatedDate = a}) . mapping _Time;+gbasrsCreatedDate = lens _gbasrsCreatedDate (\ s a -> s{_gbasrsCreatedDate = a}) . mapping _Time  -- | The name of the bot alias. gbasrsName :: Lens' GetBotAliasResponse (Maybe Text)-gbasrsName = lens _gbasrsName (\ s a -> s{_gbasrsName = a});+gbasrsName = lens _gbasrsName (\ s a -> s{_gbasrsName = a})  -- | The date that the bot alias was updated. When you create a resource, the creation date and the last updated date are the same. gbasrsLastUpdatedDate :: Lens' GetBotAliasResponse (Maybe UTCTime)-gbasrsLastUpdatedDate = lens _gbasrsLastUpdatedDate (\ s a -> s{_gbasrsLastUpdatedDate = a}) . mapping _Time;+gbasrsLastUpdatedDate = lens _gbasrsLastUpdatedDate (\ s a -> s{_gbasrsLastUpdatedDate = a}) . mapping _Time  -- | A description of the bot alias. gbasrsDescription :: Lens' GetBotAliasResponse (Maybe Text)-gbasrsDescription = lens _gbasrsDescription (\ s a -> s{_gbasrsDescription = a});+gbasrsDescription = lens _gbasrsDescription (\ s a -> s{_gbasrsDescription = a})  -- | -- | The response status code. gbasrsResponseStatus :: Lens' GetBotAliasResponse Int-gbasrsResponseStatus = lens _gbasrsResponseStatus (\ s a -> s{_gbasrsResponseStatus = a});+gbasrsResponseStatus = lens _gbasrsResponseStatus (\ s a -> s{_gbasrsResponseStatus = a})  instance NFData GetBotAliasResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.GetBotAliases--- 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@@ -23,6 +23,8 @@ -- -- This operation requires permissions for the @lex:GetBotAliases@ action. --+--+-- This operation returns paginated results. module Network.AWS.LexModels.GetBotAliases     (     -- * Creating a Request@@ -46,6 +48,7 @@ import Network.AWS.Lens import Network.AWS.LexModels.Types import Network.AWS.LexModels.Types.Product+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -75,29 +78,36 @@     -> GetBotAliases getBotAliases pBotName_ =   GetBotAliases'-  { _gbaNameContains = Nothing-  , _gbaNextToken = Nothing-  , _gbaMaxResults = Nothing-  , _gbaBotName = pBotName_-  }+    { _gbaNameContains = Nothing+    , _gbaNextToken = Nothing+    , _gbaMaxResults = Nothing+    , _gbaBotName = pBotName_+    }   -- | Substring to match in bot alias names. An alias will be returned if any part of its name matches the substring. For example, "xyz" matches both "xyzabc" and "abcxyz." gbaNameContains :: Lens' GetBotAliases (Maybe Text)-gbaNameContains = lens _gbaNameContains (\ s a -> s{_gbaNameContains = a});+gbaNameContains = lens _gbaNameContains (\ s a -> s{_gbaNameContains = a})  -- | A pagination token for fetching the next page of aliases. If the response to this call is truncated, Amazon Lex returns a pagination token in the response. To fetch the next page of aliases, specify the pagination token in the next request. gbaNextToken :: Lens' GetBotAliases (Maybe Text)-gbaNextToken = lens _gbaNextToken (\ s a -> s{_gbaNextToken = a});+gbaNextToken = lens _gbaNextToken (\ s a -> s{_gbaNextToken = a})  -- | The maximum number of aliases to return in the response. The default is 50. . gbaMaxResults :: Lens' GetBotAliases (Maybe Natural)-gbaMaxResults = lens _gbaMaxResults (\ s a -> s{_gbaMaxResults = a}) . mapping _Nat;+gbaMaxResults = lens _gbaMaxResults (\ s a -> s{_gbaMaxResults = a}) . mapping _Nat  -- | The name of the bot. gbaBotName :: Lens' GetBotAliases Text-gbaBotName = lens _gbaBotName (\ s a -> s{_gbaBotName = a});+gbaBotName = lens _gbaBotName (\ s a -> s{_gbaBotName = a}) +instance AWSPager GetBotAliases where+        page rq rs+          | stop (rs ^. gbarsNextToken) = Nothing+          | stop (rs ^. gbarsBotAliases) = Nothing+          | otherwise =+            Just $ rq & gbaNextToken .~ rs ^. gbarsNextToken+ instance AWSRequest GetBotAliases where         type Rs GetBotAliases = GetBotAliasesResponse         request = get lexModels@@ -153,22 +163,22 @@     -> GetBotAliasesResponse getBotAliasesResponse pResponseStatus_ =   GetBotAliasesResponse'-  { _gbarsNextToken = Nothing-  , _gbarsBotAliases = Nothing-  , _gbarsResponseStatus = pResponseStatus_-  }+    { _gbarsNextToken = Nothing+    , _gbarsBotAliases = Nothing+    , _gbarsResponseStatus = pResponseStatus_+    }   -- | A pagination token for fetching next page of aliases. If the response to this call is truncated, Amazon Lex returns a pagination token in the response. To fetch the next page of aliases, specify the pagination token in the next request. gbarsNextToken :: Lens' GetBotAliasesResponse (Maybe Text)-gbarsNextToken = lens _gbarsNextToken (\ s a -> s{_gbarsNextToken = a});+gbarsNextToken = lens _gbarsNextToken (\ s a -> s{_gbarsNextToken = a})  -- | An array of @BotAliasMetadata@ objects, each describing a bot alias. gbarsBotAliases :: Lens' GetBotAliasesResponse [BotAliasMetadata]-gbarsBotAliases = lens _gbarsBotAliases (\ s a -> s{_gbarsBotAliases = a}) . _Default . _Coerce;+gbarsBotAliases = lens _gbarsBotAliases (\ s a -> s{_gbarsBotAliases = a}) . _Default . _Coerce  -- | -- | The response status code. gbarsResponseStatus :: Lens' GetBotAliasesResponse Int-gbarsResponseStatus = lens _gbarsResponseStatus (\ s a -> s{_gbarsResponseStatus = a});+gbarsResponseStatus = lens _gbarsResponseStatus (\ s a -> s{_gbarsResponseStatus = a})  instance NFData GetBotAliasesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.GetBotChannelAssociation--- 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,6 +37,8 @@     , getBotChannelAssociationResponse     , GetBotChannelAssociationResponse     -- * Response Lenses+    , gbcarsFailureReason+    , gbcarsStatus     , gbcarsBotAlias     , gbcarsBotName     , gbcarsBotConfiguration@@ -78,20 +80,20 @@     -> GetBotChannelAssociation getBotChannelAssociation pName_ pBotName_ pBotAlias_ =   GetBotChannelAssociation'-  {_gName = pName_, _gBotName = pBotName_, _gBotAlias = pBotAlias_}+    {_gName = pName_, _gBotName = pBotName_, _gBotAlias = pBotAlias_}   -- | The name of the association between the bot and the channel. The name is case sensitive. gName :: Lens' GetBotChannelAssociation Text-gName = lens _gName (\ s a -> s{_gName = a});+gName = lens _gName (\ s a -> s{_gName = a})  -- | The name of the Amazon Lex bot. gBotName :: Lens' GetBotChannelAssociation Text-gBotName = lens _gBotName (\ s a -> s{_gBotName = a});+gBotName = lens _gBotName (\ s a -> s{_gBotName = a})  -- | An alias pointing to the specific version of the Amazon Lex bot to which this association is being made. gBotAlias :: Lens' GetBotChannelAssociation Text-gBotAlias = lens _gBotAlias (\ s a -> s{_gBotAlias = a});+gBotAlias = lens _gBotAlias (\ s a -> s{_gBotAlias = a})  instance AWSRequest GetBotChannelAssociation where         type Rs GetBotChannelAssociation =@@ -101,8 +103,10 @@           = receiveJSON               (\ s h x ->                  GetBotChannelAssociationResponse' <$>-                   (x .?> "botAlias") <*> (x .?> "botName") <*>-                     (x .?> "botConfiguration" .!@ mempty)+                   (x .?> "failureReason") <*> (x .?> "status") <*>+                     (x .?> "botAlias")+                     <*> (x .?> "botName")+                     <*> (x .?> "botConfiguration" .!@ mempty)                      <*> (x .?> "createdDate")                      <*> (x .?> "name")                      <*> (x .?> "type")@@ -131,7 +135,9 @@  -- | /See:/ 'getBotChannelAssociationResponse' smart constructor. data GetBotChannelAssociationResponse = GetBotChannelAssociationResponse'-  { _gbcarsBotAlias         :: !(Maybe Text)+  { _gbcarsFailureReason    :: !(Maybe Text)+  , _gbcarsStatus           :: !(Maybe ChannelStatus)+  , _gbcarsBotAlias         :: !(Maybe Text)   , _gbcarsBotName          :: !(Maybe Text)   , _gbcarsBotConfiguration :: !(Maybe (Sensitive (Map Text Text)))   , _gbcarsCreatedDate      :: !(Maybe POSIX)@@ -146,6 +152,10 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'gbcarsFailureReason' - If @status@ is @FAILED@ , Amazon Lex provides the reason that it failed to create the association.+--+-- * 'gbcarsStatus' - The status of the bot channel.      * @CREATED@ - The channel has been created and is ready for use.     * @IN_PROGRESS@ - Channel creation is in progress.     * @FAILED@ - There was an error creating the channel. For information about the reason for the failure, see the @failureReason@ field.+-- -- * 'gbcarsBotAlias' - An alias pointing to the specific version of the Amazon Lex bot to which this association is being made. -- -- * 'gbcarsBotName' - The name of the Amazon Lex bot.@@ -166,48 +176,58 @@     -> GetBotChannelAssociationResponse getBotChannelAssociationResponse pResponseStatus_ =   GetBotChannelAssociationResponse'-  { _gbcarsBotAlias = Nothing-  , _gbcarsBotName = Nothing-  , _gbcarsBotConfiguration = Nothing-  , _gbcarsCreatedDate = Nothing-  , _gbcarsName = Nothing-  , _gbcarsType = Nothing-  , _gbcarsDescription = Nothing-  , _gbcarsResponseStatus = pResponseStatus_-  }+    { _gbcarsFailureReason = Nothing+    , _gbcarsStatus = Nothing+    , _gbcarsBotAlias = Nothing+    , _gbcarsBotName = Nothing+    , _gbcarsBotConfiguration = Nothing+    , _gbcarsCreatedDate = Nothing+    , _gbcarsName = Nothing+    , _gbcarsType = Nothing+    , _gbcarsDescription = Nothing+    , _gbcarsResponseStatus = pResponseStatus_+    }  +-- | If @status@ is @FAILED@ , Amazon Lex provides the reason that it failed to create the association.+gbcarsFailureReason :: Lens' GetBotChannelAssociationResponse (Maybe Text)+gbcarsFailureReason = lens _gbcarsFailureReason (\ s a -> s{_gbcarsFailureReason = a})++-- | The status of the bot channel.      * @CREATED@ - The channel has been created and is ready for use.     * @IN_PROGRESS@ - Channel creation is in progress.     * @FAILED@ - There was an error creating the channel. For information about the reason for the failure, see the @failureReason@ field.+gbcarsStatus :: Lens' GetBotChannelAssociationResponse (Maybe ChannelStatus)+gbcarsStatus = lens _gbcarsStatus (\ s a -> s{_gbcarsStatus = a})+ -- | An alias pointing to the specific version of the Amazon Lex bot to which this association is being made. gbcarsBotAlias :: Lens' GetBotChannelAssociationResponse (Maybe Text)-gbcarsBotAlias = lens _gbcarsBotAlias (\ s a -> s{_gbcarsBotAlias = a});+gbcarsBotAlias = lens _gbcarsBotAlias (\ s a -> s{_gbcarsBotAlias = a})  -- | The name of the Amazon Lex bot. gbcarsBotName :: Lens' GetBotChannelAssociationResponse (Maybe Text)-gbcarsBotName = lens _gbcarsBotName (\ s a -> s{_gbcarsBotName = a});+gbcarsBotName = lens _gbcarsBotName (\ s a -> s{_gbcarsBotName = a})  -- | Provides information that the messaging platform needs to communicate with the Amazon Lex bot. gbcarsBotConfiguration :: Lens' GetBotChannelAssociationResponse (Maybe (HashMap Text Text))-gbcarsBotConfiguration = lens _gbcarsBotConfiguration (\ s a -> s{_gbcarsBotConfiguration = a}) . mapping (_Sensitive . _Map);+gbcarsBotConfiguration = lens _gbcarsBotConfiguration (\ s a -> s{_gbcarsBotConfiguration = a}) . mapping (_Sensitive . _Map)  -- | The date that the association between the bot and the channel was created. gbcarsCreatedDate :: Lens' GetBotChannelAssociationResponse (Maybe UTCTime)-gbcarsCreatedDate = lens _gbcarsCreatedDate (\ s a -> s{_gbcarsCreatedDate = a}) . mapping _Time;+gbcarsCreatedDate = lens _gbcarsCreatedDate (\ s a -> s{_gbcarsCreatedDate = a}) . mapping _Time  -- | The name of the association between the bot and the channel. gbcarsName :: Lens' GetBotChannelAssociationResponse (Maybe Text)-gbcarsName = lens _gbcarsName (\ s a -> s{_gbcarsName = a});+gbcarsName = lens _gbcarsName (\ s a -> s{_gbcarsName = a})  -- | The type of the messaging platform. gbcarsType :: Lens' GetBotChannelAssociationResponse (Maybe ChannelType)-gbcarsType = lens _gbcarsType (\ s a -> s{_gbcarsType = a});+gbcarsType = lens _gbcarsType (\ s a -> s{_gbcarsType = a})  -- | A description of the association between the bot and the channel. gbcarsDescription :: Lens' GetBotChannelAssociationResponse (Maybe Text)-gbcarsDescription = lens _gbcarsDescription (\ s a -> s{_gbcarsDescription = a});+gbcarsDescription = lens _gbcarsDescription (\ s a -> s{_gbcarsDescription = a})  -- | -- | The response status code. gbcarsResponseStatus :: Lens' GetBotChannelAssociationResponse Int-gbcarsResponseStatus = lens _gbcarsResponseStatus (\ s a -> s{_gbcarsResponseStatus = a});+gbcarsResponseStatus = lens _gbcarsResponseStatus (\ s a -> s{_gbcarsResponseStatus = a})  instance NFData GetBotChannelAssociationResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.GetBotChannelAssociations--- 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@@ -23,6 +23,8 @@ -- -- The @GetBotChannelAssociations@ operation requires permissions for the @lex:GetBotChannelAssociations@ action. --+--+-- This operation returns paginated results. module Network.AWS.LexModels.GetBotChannelAssociations     (     -- * Creating a Request@@ -47,6 +49,7 @@ import Network.AWS.Lens import Network.AWS.LexModels.Types import Network.AWS.LexModels.Types.Product+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -80,34 +83,42 @@     -> GetBotChannelAssociations getBotChannelAssociations pBotName_ pBotAlias_ =   GetBotChannelAssociations'-  { _gbcaNameContains = Nothing-  , _gbcaNextToken = Nothing-  , _gbcaMaxResults = Nothing-  , _gbcaBotName = pBotName_-  , _gbcaBotAlias = pBotAlias_-  }+    { _gbcaNameContains = Nothing+    , _gbcaNextToken = Nothing+    , _gbcaMaxResults = Nothing+    , _gbcaBotName = pBotName_+    , _gbcaBotAlias = pBotAlias_+    }   -- | Substring to match in channel association names. An association will be returned if any part of its name matches the substring. For example, "xyz" matches both "xyzabc" and "abcxyz." To return all bot channel associations, use a hyphen ("-") as the @nameContains@ parameter. gbcaNameContains :: Lens' GetBotChannelAssociations (Maybe Text)-gbcaNameContains = lens _gbcaNameContains (\ s a -> s{_gbcaNameContains = a});+gbcaNameContains = lens _gbcaNameContains (\ s a -> s{_gbcaNameContains = a})  -- | A pagination token for fetching the next page of associations. If the response to this call is truncated, Amazon Lex returns a pagination token in the response. To fetch the next page of associations, specify the pagination token in the next request. gbcaNextToken :: Lens' GetBotChannelAssociations (Maybe Text)-gbcaNextToken = lens _gbcaNextToken (\ s a -> s{_gbcaNextToken = a});+gbcaNextToken = lens _gbcaNextToken (\ s a -> s{_gbcaNextToken = a})  -- | The maximum number of associations to return in the response. The default is 50. gbcaMaxResults :: Lens' GetBotChannelAssociations (Maybe Natural)-gbcaMaxResults = lens _gbcaMaxResults (\ s a -> s{_gbcaMaxResults = a}) . mapping _Nat;+gbcaMaxResults = lens _gbcaMaxResults (\ s a -> s{_gbcaMaxResults = a}) . mapping _Nat  -- | The name of the Amazon Lex bot in the association. gbcaBotName :: Lens' GetBotChannelAssociations Text-gbcaBotName = lens _gbcaBotName (\ s a -> s{_gbcaBotName = a});+gbcaBotName = lens _gbcaBotName (\ s a -> s{_gbcaBotName = a})  -- | An alias pointing to the specific version of the Amazon Lex bot to which this association is being made. gbcaBotAlias :: Lens' GetBotChannelAssociations Text-gbcaBotAlias = lens _gbcaBotAlias (\ s a -> s{_gbcaBotAlias = a});+gbcaBotAlias = lens _gbcaBotAlias (\ s a -> s{_gbcaBotAlias = a}) +instance AWSPager GetBotChannelAssociations where+        page rq rs+          | stop (rs ^. gbcasrsNextToken) = Nothing+          | stop (rs ^. gbcasrsBotChannelAssociations) =+            Nothing+          | otherwise =+            Just $ rq & gbcaNextToken .~ rs ^. gbcasrsNextToken+ instance AWSRequest GetBotChannelAssociations where         type Rs GetBotChannelAssociations =              GetBotChannelAssociationsResponse@@ -166,23 +177,23 @@     -> GetBotChannelAssociationsResponse getBotChannelAssociationsResponse pResponseStatus_ =   GetBotChannelAssociationsResponse'-  { _gbcasrsBotChannelAssociations = Nothing-  , _gbcasrsNextToken = Nothing-  , _gbcasrsResponseStatus = pResponseStatus_-  }+    { _gbcasrsBotChannelAssociations = Nothing+    , _gbcasrsNextToken = Nothing+    , _gbcasrsResponseStatus = pResponseStatus_+    }   -- | An array of objects, one for each association, that provides information about the Amazon Lex bot and its association with the channel. gbcasrsBotChannelAssociations :: Lens' GetBotChannelAssociationsResponse [BotChannelAssociation]-gbcasrsBotChannelAssociations = lens _gbcasrsBotChannelAssociations (\ s a -> s{_gbcasrsBotChannelAssociations = a}) . _Default . _Coerce;+gbcasrsBotChannelAssociations = lens _gbcasrsBotChannelAssociations (\ s a -> s{_gbcasrsBotChannelAssociations = a}) . _Default . _Coerce  -- | A pagination token that fetches the next page of associations. If the response to this call is truncated, Amazon Lex returns a pagination token in the response. To fetch the next page of associations, specify the pagination token in the next request. gbcasrsNextToken :: Lens' GetBotChannelAssociationsResponse (Maybe Text)-gbcasrsNextToken = lens _gbcasrsNextToken (\ s a -> s{_gbcasrsNextToken = a});+gbcasrsNextToken = lens _gbcasrsNextToken (\ s a -> s{_gbcasrsNextToken = a})  -- | -- | The response status code. gbcasrsResponseStatus :: Lens' GetBotChannelAssociationsResponse Int-gbcasrsResponseStatus = lens _gbcasrsResponseStatus (\ s a -> s{_gbcasrsResponseStatus = a});+gbcasrsResponseStatus = lens _gbcasrsResponseStatus (\ s a -> s{_gbcasrsResponseStatus = a})  instance NFData GetBotChannelAssociationsResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.GetBotVersions--- 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@@ -27,6 +27,8 @@ -- -- This operation requires permissions for the @lex:GetBotVersions@ action. --+--+-- This operation returns paginated results. module Network.AWS.LexModels.GetBotVersions     (     -- * Creating a Request@@ -49,6 +51,7 @@ import Network.AWS.Lens import Network.AWS.LexModels.Types import Network.AWS.LexModels.Types.Product+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -75,21 +78,28 @@     -> GetBotVersions getBotVersions pName_ =   GetBotVersions'-  {_gbvNextToken = Nothing, _gbvMaxResults = Nothing, _gbvName = pName_}+    {_gbvNextToken = Nothing, _gbvMaxResults = Nothing, _gbvName = pName_}   -- | A pagination token for fetching the next page of bot versions. If the response to this call is truncated, Amazon Lex returns a pagination token in the response. To fetch the next page of versions, specify the pagination token in the next request. gbvNextToken :: Lens' GetBotVersions (Maybe Text)-gbvNextToken = lens _gbvNextToken (\ s a -> s{_gbvNextToken = a});+gbvNextToken = lens _gbvNextToken (\ s a -> s{_gbvNextToken = a})  -- | The maximum number of bot versions to return in the response. The default is 10. gbvMaxResults :: Lens' GetBotVersions (Maybe Natural)-gbvMaxResults = lens _gbvMaxResults (\ s a -> s{_gbvMaxResults = a}) . mapping _Nat;+gbvMaxResults = lens _gbvMaxResults (\ s a -> s{_gbvMaxResults = a}) . mapping _Nat  -- | The name of the bot for which versions should be returned. gbvName :: Lens' GetBotVersions Text-gbvName = lens _gbvName (\ s a -> s{_gbvName = a});+gbvName = lens _gbvName (\ s a -> s{_gbvName = a}) +instance AWSPager GetBotVersions where+        page rq rs+          | stop (rs ^. gbvrsNextToken) = Nothing+          | stop (rs ^. gbvrsBots) = Nothing+          | otherwise =+            Just $ rq & gbvNextToken .~ rs ^. gbvrsNextToken+ instance AWSRequest GetBotVersions where         type Rs GetBotVersions = GetBotVersionsResponse         request = get lexModels@@ -143,22 +153,22 @@     -> GetBotVersionsResponse getBotVersionsResponse pResponseStatus_ =   GetBotVersionsResponse'-  { _gbvrsBots = Nothing-  , _gbvrsNextToken = Nothing-  , _gbvrsResponseStatus = pResponseStatus_-  }+    { _gbvrsBots = Nothing+    , _gbvrsNextToken = Nothing+    , _gbvrsResponseStatus = pResponseStatus_+    }   -- | An array of @BotMetadata@ objects, one for each numbered version of the bot plus one for the @> LATEST@ version. gbvrsBots :: Lens' GetBotVersionsResponse [BotMetadata]-gbvrsBots = lens _gbvrsBots (\ s a -> s{_gbvrsBots = a}) . _Default . _Coerce;+gbvrsBots = lens _gbvrsBots (\ s a -> s{_gbvrsBots = a}) . _Default . _Coerce  -- | A pagination token for fetching the next page of bot versions. If the response to this call is truncated, Amazon Lex returns a pagination token in the response. To fetch the next page of versions, specify the pagination token in the next request. gbvrsNextToken :: Lens' GetBotVersionsResponse (Maybe Text)-gbvrsNextToken = lens _gbvrsNextToken (\ s a -> s{_gbvrsNextToken = a});+gbvrsNextToken = lens _gbvrsNextToken (\ s a -> s{_gbvrsNextToken = a})  -- | -- | The response status code. gbvrsResponseStatus :: Lens' GetBotVersionsResponse Int-gbvrsResponseStatus = lens _gbvrsResponseStatus (\ s a -> s{_gbvrsResponseStatus = a});+gbvrsResponseStatus = lens _gbvrsResponseStatus (\ s a -> s{_gbvrsResponseStatus = a})  instance NFData GetBotVersionsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.GetBots--- 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@@ -29,6 +29,8 @@ -- -- This operation requires permission for the @lex:GetBots@ action. --+--+-- This operation returns paginated results. module Network.AWS.LexModels.GetBots     (     -- * Creating a Request@@ -51,6 +53,7 @@ import Network.AWS.Lens import Network.AWS.LexModels.Types import Network.AWS.LexModels.Types.Product+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -76,21 +79,28 @@     :: GetBots getBots =   GetBots'-  {_gbNameContains = Nothing, _gbNextToken = Nothing, _gbMaxResults = Nothing}+    {_gbNameContains = Nothing, _gbNextToken = Nothing, _gbMaxResults = Nothing}   -- | Substring to match in bot names. A bot will be returned if any part of its name matches the substring. For example, "xyz" matches both "xyzabc" and "abcxyz." gbNameContains :: Lens' GetBots (Maybe Text)-gbNameContains = lens _gbNameContains (\ s a -> s{_gbNameContains = a});+gbNameContains = lens _gbNameContains (\ s a -> s{_gbNameContains = a})  -- | A pagination token that fetches the next page of bots. If the response to this call is truncated, Amazon Lex returns a pagination token in the response. To fetch the next page of bots, specify the pagination token in the next request. gbNextToken :: Lens' GetBots (Maybe Text)-gbNextToken = lens _gbNextToken (\ s a -> s{_gbNextToken = a});+gbNextToken = lens _gbNextToken (\ s a -> s{_gbNextToken = a})  -- | The maximum number of bots to return in the response that the request will return. The default is 10. gbMaxResults :: Lens' GetBots (Maybe Natural)-gbMaxResults = lens _gbMaxResults (\ s a -> s{_gbMaxResults = a}) . mapping _Nat;+gbMaxResults = lens _gbMaxResults (\ s a -> s{_gbMaxResults = a}) . mapping _Nat +instance AWSPager GetBots where+        page rq rs+          | stop (rs ^. gbsrsNextToken) = Nothing+          | stop (rs ^. gbsrsBots) = Nothing+          | otherwise =+            Just $ rq & gbNextToken .~ rs ^. gbsrsNextToken+ instance AWSRequest GetBots where         type Rs GetBots = GetBotsResponse         request = get lexModels@@ -144,22 +154,22 @@     -> GetBotsResponse getBotsResponse pResponseStatus_ =   GetBotsResponse'-  { _gbsrsBots = Nothing-  , _gbsrsNextToken = Nothing-  , _gbsrsResponseStatus = pResponseStatus_-  }+    { _gbsrsBots = Nothing+    , _gbsrsNextToken = Nothing+    , _gbsrsResponseStatus = pResponseStatus_+    }   -- | An array of @botMetadata@ objects, with one entry for each bot. gbsrsBots :: Lens' GetBotsResponse [BotMetadata]-gbsrsBots = lens _gbsrsBots (\ s a -> s{_gbsrsBots = a}) . _Default . _Coerce;+gbsrsBots = lens _gbsrsBots (\ s a -> s{_gbsrsBots = a}) . _Default . _Coerce  -- | If the response is truncated, it includes a pagination token that you can specify in your next request to fetch the next page of bots. gbsrsNextToken :: Lens' GetBotsResponse (Maybe Text)-gbsrsNextToken = lens _gbsrsNextToken (\ s a -> s{_gbsrsNextToken = a});+gbsrsNextToken = lens _gbsrsNextToken (\ s a -> s{_gbsrsNextToken = a})  -- | -- | The response status code. gbsrsResponseStatus :: Lens' GetBotsResponse Int-gbsrsResponseStatus = lens _gbsrsResponseStatus (\ s a -> s{_gbsrsResponseStatus = a});+gbsrsResponseStatus = lens _gbsrsResponseStatus (\ s a -> s{_gbsrsResponseStatus = a})  instance NFData GetBotsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.GetBuiltinIntent--- 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@@ -67,7 +67,7 @@  -- | The unique identifier for a built-in intent. To find the signature for an intent, see <https://developer.amazon.com/public/solutions/alexa/alexa-skills-kit/docs/built-in-intent-ref/standard-intents Standard Built-in Intents> in the /Alexa Skills Kit/ . gbiSignature :: Lens' GetBuiltinIntent Text-gbiSignature = lens _gbiSignature (\ s a -> s{_gbiSignature = a});+gbiSignature = lens _gbiSignature (\ s a -> s{_gbiSignature = a})  instance AWSRequest GetBuiltinIntent where         type Rs GetBuiltinIntent = GetBuiltinIntentResponse@@ -123,27 +123,27 @@     -> GetBuiltinIntentResponse getBuiltinIntentResponse pResponseStatus_ =   GetBuiltinIntentResponse'-  { _gbirsSignature = Nothing-  , _gbirsSlots = Nothing-  , _gbirsSupportedLocales = Nothing-  , _gbirsResponseStatus = pResponseStatus_-  }+    { _gbirsSignature = Nothing+    , _gbirsSlots = Nothing+    , _gbirsSupportedLocales = Nothing+    , _gbirsResponseStatus = pResponseStatus_+    }   -- | The unique identifier for a built-in intent. gbirsSignature :: Lens' GetBuiltinIntentResponse (Maybe Text)-gbirsSignature = lens _gbirsSignature (\ s a -> s{_gbirsSignature = a});+gbirsSignature = lens _gbirsSignature (\ s a -> s{_gbirsSignature = a})  -- | An array of @BuiltinIntentSlot@ objects, one entry for each slot type in the intent. gbirsSlots :: Lens' GetBuiltinIntentResponse [BuiltinIntentSlot]-gbirsSlots = lens _gbirsSlots (\ s a -> s{_gbirsSlots = a}) . _Default . _Coerce;+gbirsSlots = lens _gbirsSlots (\ s a -> s{_gbirsSlots = a}) . _Default . _Coerce  -- | A list of locales that the intent supports. gbirsSupportedLocales :: Lens' GetBuiltinIntentResponse [Locale]-gbirsSupportedLocales = lens _gbirsSupportedLocales (\ s a -> s{_gbirsSupportedLocales = a}) . _Default . _Coerce;+gbirsSupportedLocales = lens _gbirsSupportedLocales (\ s a -> s{_gbirsSupportedLocales = a}) . _Default . _Coerce  -- | -- | The response status code. gbirsResponseStatus :: Lens' GetBuiltinIntentResponse Int-gbirsResponseStatus = lens _gbirsResponseStatus (\ s a -> s{_gbirsResponseStatus = a});+gbirsResponseStatus = lens _gbirsResponseStatus (\ s a -> s{_gbirsResponseStatus = a})  instance NFData GetBuiltinIntentResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.GetBuiltinIntents--- 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@@ -23,6 +23,8 @@ -- -- This operation requires permission for the @lex:GetBuiltinIntents@ action. --+--+-- This operation returns paginated results. module Network.AWS.LexModels.GetBuiltinIntents     (     -- * Creating a Request@@ -46,6 +48,7 @@ import Network.AWS.Lens import Network.AWS.LexModels.Types import Network.AWS.LexModels.Types.Product+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -74,29 +77,36 @@     :: GetBuiltinIntents getBuiltinIntents =   GetBuiltinIntents'-  { _gbiLocale = Nothing-  , _gbiNextToken = Nothing-  , _gbiSignatureContains = Nothing-  , _gbiMaxResults = Nothing-  }+    { _gbiLocale = Nothing+    , _gbiNextToken = Nothing+    , _gbiSignatureContains = Nothing+    , _gbiMaxResults = Nothing+    }   -- | A list of locales that the intent supports. gbiLocale :: Lens' GetBuiltinIntents (Maybe Locale)-gbiLocale = lens _gbiLocale (\ s a -> s{_gbiLocale = a});+gbiLocale = lens _gbiLocale (\ s a -> s{_gbiLocale = a})  -- | A pagination token that fetches the next page of intents. If this API call is truncated, Amazon Lex returns a pagination token in the response. To fetch the next page of intents, use the pagination token in the next request. gbiNextToken :: Lens' GetBuiltinIntents (Maybe Text)-gbiNextToken = lens _gbiNextToken (\ s a -> s{_gbiNextToken = a});+gbiNextToken = lens _gbiNextToken (\ s a -> s{_gbiNextToken = a})  -- | Substring to match in built-in intent signatures. An intent will be returned if any part of its signature matches the substring. For example, "xyz" matches both "xyzabc" and "abcxyz." To find the signature for an intent, see <https://developer.amazon.com/public/solutions/alexa/alexa-skills-kit/docs/built-in-intent-ref/standard-intents Standard Built-in Intents> in the /Alexa Skills Kit/ . gbiSignatureContains :: Lens' GetBuiltinIntents (Maybe Text)-gbiSignatureContains = lens _gbiSignatureContains (\ s a -> s{_gbiSignatureContains = a});+gbiSignatureContains = lens _gbiSignatureContains (\ s a -> s{_gbiSignatureContains = a})  -- | The maximum number of intents to return in the response. The default is 10. gbiMaxResults :: Lens' GetBuiltinIntents (Maybe Natural)-gbiMaxResults = lens _gbiMaxResults (\ s a -> s{_gbiMaxResults = a}) . mapping _Nat;+gbiMaxResults = lens _gbiMaxResults (\ s a -> s{_gbiMaxResults = a}) . mapping _Nat +instance AWSPager GetBuiltinIntents where+        page rq rs+          | stop (rs ^. grsNextToken) = Nothing+          | stop (rs ^. grsIntents) = Nothing+          | otherwise =+            Just $ rq & gbiNextToken .~ rs ^. grsNextToken+ instance AWSRequest GetBuiltinIntents where         type Rs GetBuiltinIntents = GetBuiltinIntentsResponse         request = get lexModels@@ -151,22 +161,22 @@     -> GetBuiltinIntentsResponse getBuiltinIntentsResponse pResponseStatus_ =   GetBuiltinIntentsResponse'-  { _grsIntents = Nothing-  , _grsNextToken = Nothing-  , _grsResponseStatus = pResponseStatus_-  }+    { _grsIntents = Nothing+    , _grsNextToken = Nothing+    , _grsResponseStatus = pResponseStatus_+    }   -- | An array of @builtinIntentMetadata@ objects, one for each intent in the response. grsIntents :: Lens' GetBuiltinIntentsResponse [BuiltinIntentMetadata]-grsIntents = lens _grsIntents (\ s a -> s{_grsIntents = a}) . _Default . _Coerce;+grsIntents = lens _grsIntents (\ s a -> s{_grsIntents = a}) . _Default . _Coerce  -- | A pagination token that fetches the next page of intents. If the response to this API call is truncated, Amazon Lex returns a pagination token in the response. To fetch the next page of intents, specify the pagination token in the next request. grsNextToken :: Lens' GetBuiltinIntentsResponse (Maybe Text)-grsNextToken = lens _grsNextToken (\ s a -> s{_grsNextToken = a});+grsNextToken = lens _grsNextToken (\ s a -> s{_grsNextToken = a})  -- | -- | The response status code. grsResponseStatus :: Lens' GetBuiltinIntentsResponse Int-grsResponseStatus = lens _grsResponseStatus (\ s a -> s{_grsResponseStatus = a});+grsResponseStatus = lens _grsResponseStatus (\ s a -> s{_grsResponseStatus = a})  instance NFData GetBuiltinIntentsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.GetBuiltinSlotTypes--- 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@@ -25,6 +25,8 @@ -- -- This operation requires permission for the @lex:GetBuiltInSlotTypes@ action. --+--+-- This operation returns paginated results. module Network.AWS.LexModels.GetBuiltinSlotTypes     (     -- * Creating a Request@@ -48,6 +50,7 @@ import Network.AWS.Lens import Network.AWS.LexModels.Types import Network.AWS.LexModels.Types.Product+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -76,29 +79,36 @@     :: GetBuiltinSlotTypes getBuiltinSlotTypes =   GetBuiltinSlotTypes'-  { _gbstLocale = Nothing-  , _gbstNextToken = Nothing-  , _gbstSignatureContains = Nothing-  , _gbstMaxResults = Nothing-  }+    { _gbstLocale = Nothing+    , _gbstNextToken = Nothing+    , _gbstSignatureContains = Nothing+    , _gbstMaxResults = Nothing+    }   -- | A list of locales that the slot type supports. gbstLocale :: Lens' GetBuiltinSlotTypes (Maybe Locale)-gbstLocale = lens _gbstLocale (\ s a -> s{_gbstLocale = a});+gbstLocale = lens _gbstLocale (\ s a -> s{_gbstLocale = a})  -- | A pagination token that fetches the next page of slot types. If the response to this API call is truncated, Amazon Lex returns a pagination token in the response. To fetch the next page of slot types, specify the pagination token in the next request. gbstNextToken :: Lens' GetBuiltinSlotTypes (Maybe Text)-gbstNextToken = lens _gbstNextToken (\ s a -> s{_gbstNextToken = a});+gbstNextToken = lens _gbstNextToken (\ s a -> s{_gbstNextToken = a})  -- | Substring to match in built-in slot type signatures. A slot type will be returned if any part of its signature matches the substring. For example, "xyz" matches both "xyzabc" and "abcxyz." gbstSignatureContains :: Lens' GetBuiltinSlotTypes (Maybe Text)-gbstSignatureContains = lens _gbstSignatureContains (\ s a -> s{_gbstSignatureContains = a});+gbstSignatureContains = lens _gbstSignatureContains (\ s a -> s{_gbstSignatureContains = a})  -- | The maximum number of slot types to return in the response. The default is 10. gbstMaxResults :: Lens' GetBuiltinSlotTypes (Maybe Natural)-gbstMaxResults = lens _gbstMaxResults (\ s a -> s{_gbstMaxResults = a}) . mapping _Nat;+gbstMaxResults = lens _gbstMaxResults (\ s a -> s{_gbstMaxResults = a}) . mapping _Nat +instance AWSPager GetBuiltinSlotTypes where+        page rq rs+          | stop (rs ^. gbstrsNextToken) = Nothing+          | stop (rs ^. gbstrsSlotTypes) = Nothing+          | otherwise =+            Just $ rq & gbstNextToken .~ rs ^. gbstrsNextToken+ instance AWSRequest GetBuiltinSlotTypes where         type Rs GetBuiltinSlotTypes =              GetBuiltinSlotTypesResponse@@ -155,22 +165,22 @@     -> GetBuiltinSlotTypesResponse getBuiltinSlotTypesResponse pResponseStatus_ =   GetBuiltinSlotTypesResponse'-  { _gbstrsNextToken = Nothing-  , _gbstrsSlotTypes = Nothing-  , _gbstrsResponseStatus = pResponseStatus_-  }+    { _gbstrsNextToken = Nothing+    , _gbstrsSlotTypes = Nothing+    , _gbstrsResponseStatus = pResponseStatus_+    }   -- | If the response is truncated, the response includes a pagination token that you can use in your next request to fetch the next page of slot types. gbstrsNextToken :: Lens' GetBuiltinSlotTypesResponse (Maybe Text)-gbstrsNextToken = lens _gbstrsNextToken (\ s a -> s{_gbstrsNextToken = a});+gbstrsNextToken = lens _gbstrsNextToken (\ s a -> s{_gbstrsNextToken = a})  -- | An array of @BuiltInSlotTypeMetadata@ objects, one entry for each slot type returned. gbstrsSlotTypes :: Lens' GetBuiltinSlotTypesResponse [BuiltinSlotTypeMetadata]-gbstrsSlotTypes = lens _gbstrsSlotTypes (\ s a -> s{_gbstrsSlotTypes = a}) . _Default . _Coerce;+gbstrsSlotTypes = lens _gbstrsSlotTypes (\ s a -> s{_gbstrsSlotTypes = a}) . _Default . _Coerce  -- | -- | The response status code. gbstrsResponseStatus :: Lens' GetBuiltinSlotTypesResponse Int-gbstrsResponseStatus = lens _gbstrsResponseStatus (\ s a -> s{_gbstrsResponseStatus = a});+gbstrsResponseStatus = lens _gbstrsResponseStatus (\ s a -> s{_gbstrsResponseStatus = a})  instance NFData GetBuiltinSlotTypesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.GetExport--- 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@@ -81,28 +81,28 @@     -> GetExport getExport pName_ pVersion_ pResourceType_ pExportType_ =   GetExport'-  { _geName = pName_-  , _geVersion = pVersion_-  , _geResourceType = pResourceType_-  , _geExportType = pExportType_-  }+    { _geName = pName_+    , _geVersion = pVersion_+    , _geResourceType = pResourceType_+    , _geExportType = pExportType_+    }   -- | The name of the bot to export. geName :: Lens' GetExport Text-geName = lens _geName (\ s a -> s{_geName = a});+geName = lens _geName (\ s a -> s{_geName = a})  -- | The version of the bot to export. geVersion :: Lens' GetExport Text-geVersion = lens _geVersion (\ s a -> s{_geVersion = a});+geVersion = lens _geVersion (\ s a -> s{_geVersion = a})  -- | The type of resource to export. geResourceType :: Lens' GetExport ResourceType-geResourceType = lens _geResourceType (\ s a -> s{_geResourceType = a});+geResourceType = lens _geResourceType (\ s a -> s{_geResourceType = a})  -- | The format of the exported data. geExportType :: Lens' GetExport ExportType-geExportType = lens _geExportType (\ s a -> s{_geExportType = a});+geExportType = lens _geExportType (\ s a -> s{_geExportType = a})  instance AWSRequest GetExport where         type Rs GetExport = GetExportResponse@@ -177,47 +177,47 @@     -> GetExportResponse getExportResponse pResponseStatus_ =   GetExportResponse'-  { _gersFailureReason = Nothing-  , _gersResourceType = Nothing-  , _gersExportStatus = Nothing-  , _gersUrl = Nothing-  , _gersExportType = Nothing-  , _gersName = Nothing-  , _gersVersion = Nothing-  , _gersResponseStatus = pResponseStatus_-  }+    { _gersFailureReason = Nothing+    , _gersResourceType = Nothing+    , _gersExportStatus = Nothing+    , _gersUrl = Nothing+    , _gersExportType = Nothing+    , _gersName = Nothing+    , _gersVersion = Nothing+    , _gersResponseStatus = pResponseStatus_+    }   -- | If @status@ is @FAILED@ , Amazon Lex provides the reason that it failed to export the resource. gersFailureReason :: Lens' GetExportResponse (Maybe Text)-gersFailureReason = lens _gersFailureReason (\ s a -> s{_gersFailureReason = a});+gersFailureReason = lens _gersFailureReason (\ s a -> s{_gersFailureReason = a})  -- | The type of the exported resource. gersResourceType :: Lens' GetExportResponse (Maybe ResourceType)-gersResourceType = lens _gersResourceType (\ s a -> s{_gersResourceType = a});+gersResourceType = lens _gersResourceType (\ s a -> s{_gersResourceType = a})  -- | The status of the export.      * @IN_PROGRESS@ - The export is in progress.     * @READY@ - The export is complete.     * @FAILED@ - The export could not be completed. gersExportStatus :: Lens' GetExportResponse (Maybe ExportStatus)-gersExportStatus = lens _gersExportStatus (\ s a -> s{_gersExportStatus = a});+gersExportStatus = lens _gersExportStatus (\ s a -> s{_gersExportStatus = a})  -- | An S3 pre-signed URL that provides the location of the exported resource. The exported resource is a ZIP archive that contains the exported resource in JSON format. The structure of the archive may change. Your code should not rely on the archive structure. gersUrl :: Lens' GetExportResponse (Maybe Text)-gersUrl = lens _gersUrl (\ s a -> s{_gersUrl = a});+gersUrl = lens _gersUrl (\ s a -> s{_gersUrl = a})  -- | The format of the exported data. gersExportType :: Lens' GetExportResponse (Maybe ExportType)-gersExportType = lens _gersExportType (\ s a -> s{_gersExportType = a});+gersExportType = lens _gersExportType (\ s a -> s{_gersExportType = a})  -- | The name of the bot being exported. gersName :: Lens' GetExportResponse (Maybe Text)-gersName = lens _gersName (\ s a -> s{_gersName = a});+gersName = lens _gersName (\ s a -> s{_gersName = a})  -- | The version of the bot being exported. gersVersion :: Lens' GetExportResponse (Maybe Text)-gersVersion = lens _gersVersion (\ s a -> s{_gersVersion = a});+gersVersion = lens _gersVersion (\ s a -> s{_gersVersion = a})  -- | -- | The response status code. gersResponseStatus :: Lens' GetExportResponse Int-gersResponseStatus = lens _gersResponseStatus (\ s a -> s{_gersResponseStatus = a});+gersResponseStatus = lens _gersResponseStatus (\ s a -> s{_gersResponseStatus = a})  instance NFData GetExportResponse where

@@ -0,0 +1,188 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.LexModels.GetImport+-- 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+-- Portability : non-portable (GHC extensions)+--+-- Gets information about an import job started with the @StartImport@ operation.+--+--+module Network.AWS.LexModels.GetImport+    (+    -- * Creating a Request+      getImport+    , GetImport+    -- * Request Lenses+    , giImportId++    -- * Destructuring the Response+    , getImportResponse+    , GetImportResponse+    -- * Response Lenses+    , girsFailureReason+    , girsResourceType+    , girsImportId+    , girsCreatedDate+    , girsName+    , girsMergeStrategy+    , girsImportStatus+    , girsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.LexModels.Types+import Network.AWS.LexModels.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getImport' smart constructor.+newtype GetImport = GetImport'+  { _giImportId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetImport' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'giImportId' - The identifier of the import job information to return.+getImport+    :: Text -- ^ 'giImportId'+    -> GetImport+getImport pImportId_ = GetImport' {_giImportId = pImportId_}+++-- | The identifier of the import job information to return.+giImportId :: Lens' GetImport Text+giImportId = lens _giImportId (\ s a -> s{_giImportId = a})++instance AWSRequest GetImport where+        type Rs GetImport = GetImportResponse+        request = get lexModels+        response+          = receiveJSON+              (\ s h x ->+                 GetImportResponse' <$>+                   (x .?> "failureReason" .!@ mempty) <*>+                     (x .?> "resourceType")+                     <*> (x .?> "importId")+                     <*> (x .?> "createdDate")+                     <*> (x .?> "name")+                     <*> (x .?> "mergeStrategy")+                     <*> (x .?> "importStatus")+                     <*> (pure (fromEnum s)))++instance Hashable GetImport where++instance NFData GetImport where++instance ToHeaders GetImport where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToPath GetImport where+        toPath GetImport'{..}+          = mconcat ["/imports/", toBS _giImportId]++instance ToQuery GetImport where+        toQuery = const mempty++-- | /See:/ 'getImportResponse' smart constructor.+data GetImportResponse = GetImportResponse'+  { _girsFailureReason  :: !(Maybe [Text])+  , _girsResourceType   :: !(Maybe ResourceType)+  , _girsImportId       :: !(Maybe Text)+  , _girsCreatedDate    :: !(Maybe POSIX)+  , _girsName           :: !(Maybe Text)+  , _girsMergeStrategy  :: !(Maybe MergeStrategy)+  , _girsImportStatus   :: !(Maybe ImportStatus)+  , _girsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetImportResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'girsFailureReason' - A string that describes why an import job failed to complete.+--+-- * 'girsResourceType' - The type of resource imported.+--+-- * 'girsImportId' - The identifier for the specific import job.+--+-- * 'girsCreatedDate' - A timestamp for the date and time that the import job was created.+--+-- * 'girsName' - The name given to the import job.+--+-- * 'girsMergeStrategy' - The action taken when there was a conflict between an existing resource and a resource in the import file.+--+-- * 'girsImportStatus' - The status of the import job. If the status is @FAILED@ , you can get the reason for the failure from the @failureReason@ field.+--+-- * 'girsResponseStatus' - -- | The response status code.+getImportResponse+    :: Int -- ^ 'girsResponseStatus'+    -> GetImportResponse+getImportResponse pResponseStatus_ =+  GetImportResponse'+    { _girsFailureReason = Nothing+    , _girsResourceType = Nothing+    , _girsImportId = Nothing+    , _girsCreatedDate = Nothing+    , _girsName = Nothing+    , _girsMergeStrategy = Nothing+    , _girsImportStatus = Nothing+    , _girsResponseStatus = pResponseStatus_+    }+++-- | A string that describes why an import job failed to complete.+girsFailureReason :: Lens' GetImportResponse [Text]+girsFailureReason = lens _girsFailureReason (\ s a -> s{_girsFailureReason = a}) . _Default . _Coerce++-- | The type of resource imported.+girsResourceType :: Lens' GetImportResponse (Maybe ResourceType)+girsResourceType = lens _girsResourceType (\ s a -> s{_girsResourceType = a})++-- | The identifier for the specific import job.+girsImportId :: Lens' GetImportResponse (Maybe Text)+girsImportId = lens _girsImportId (\ s a -> s{_girsImportId = a})++-- | A timestamp for the date and time that the import job was created.+girsCreatedDate :: Lens' GetImportResponse (Maybe UTCTime)+girsCreatedDate = lens _girsCreatedDate (\ s a -> s{_girsCreatedDate = a}) . mapping _Time++-- | The name given to the import job.+girsName :: Lens' GetImportResponse (Maybe Text)+girsName = lens _girsName (\ s a -> s{_girsName = a})++-- | The action taken when there was a conflict between an existing resource and a resource in the import file.+girsMergeStrategy :: Lens' GetImportResponse (Maybe MergeStrategy)+girsMergeStrategy = lens _girsMergeStrategy (\ s a -> s{_girsMergeStrategy = a})++-- | The status of the import job. If the status is @FAILED@ , you can get the reason for the failure from the @failureReason@ field.+girsImportStatus :: Lens' GetImportResponse (Maybe ImportStatus)+girsImportStatus = lens _girsImportStatus (\ s a -> s{_girsImportStatus = a})++-- | -- | The response status code.+girsResponseStatus :: Lens' GetImportResponse Int+girsResponseStatus = lens _girsResponseStatus (\ s a -> s{_girsResponseStatus = a})++instance NFData GetImportResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.GetIntent--- 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@@ -36,22 +36,22 @@     , getIntentResponse     , GetIntentResponse     -- * Response Lenses-    , girsFulfillmentActivity-    , girsSlots-    , girsRejectionStatement-    , girsChecksum-    , girsConclusionStatement-    , girsSampleUtterances-    , girsParentIntentSignature-    , girsCreatedDate-    , girsName-    , girsVersion-    , girsFollowUpPrompt-    , girsLastUpdatedDate-    , girsConfirmationPrompt-    , girsDialogCodeHook-    , girsDescription-    , girsResponseStatus+    , getrsFulfillmentActivity+    , getrsSlots+    , getrsRejectionStatement+    , getrsChecksum+    , getrsConclusionStatement+    , getrsSampleUtterances+    , getrsParentIntentSignature+    , getrsCreatedDate+    , getrsName+    , getrsVersion+    , getrsFollowUpPrompt+    , getrsLastUpdatedDate+    , getrsConfirmationPrompt+    , getrsDialogCodeHook+    , getrsDescription+    , getrsResponseStatus     ) where  import Network.AWS.Lens@@ -85,11 +85,11 @@  -- | The name of the intent. The name is case sensitive. giName :: Lens' GetIntent Text-giName = lens _giName (\ s a -> s{_giName = a});+giName = lens _giName (\ s a -> s{_giName = a})  -- | The version of the intent. giVersion :: Lens' GetIntent Text-giVersion = lens _giVersion (\ s a -> s{_giVersion = a});+giVersion = lens _giVersion (\ s a -> s{_giVersion = a})  instance AWSRequest GetIntent where         type Rs GetIntent = GetIntentResponse@@ -137,22 +137,22 @@  -- | /See:/ 'getIntentResponse' smart constructor. data GetIntentResponse = GetIntentResponse'-  { _girsFulfillmentActivity   :: !(Maybe FulfillmentActivity)-  , _girsSlots                 :: !(Maybe [Slot])-  , _girsRejectionStatement    :: !(Maybe Statement)-  , _girsChecksum              :: !(Maybe Text)-  , _girsConclusionStatement   :: !(Maybe Statement)-  , _girsSampleUtterances      :: !(Maybe [Text])-  , _girsParentIntentSignature :: !(Maybe Text)-  , _girsCreatedDate           :: !(Maybe POSIX)-  , _girsName                  :: !(Maybe Text)-  , _girsVersion               :: !(Maybe Text)-  , _girsFollowUpPrompt        :: !(Maybe FollowUpPrompt)-  , _girsLastUpdatedDate       :: !(Maybe POSIX)-  , _girsConfirmationPrompt    :: !(Maybe Prompt)-  , _girsDialogCodeHook        :: !(Maybe CodeHook)-  , _girsDescription           :: !(Maybe Text)-  , _girsResponseStatus        :: !Int+  { _getrsFulfillmentActivity   :: !(Maybe FulfillmentActivity)+  , _getrsSlots                 :: !(Maybe [Slot])+  , _getrsRejectionStatement    :: !(Maybe Statement)+  , _getrsChecksum              :: !(Maybe Text)+  , _getrsConclusionStatement   :: !(Maybe Statement)+  , _getrsSampleUtterances      :: !(Maybe [Text])+  , _getrsParentIntentSignature :: !(Maybe Text)+  , _getrsCreatedDate           :: !(Maybe POSIX)+  , _getrsName                  :: !(Maybe Text)+  , _getrsVersion               :: !(Maybe Text)+  , _getrsFollowUpPrompt        :: !(Maybe FollowUpPrompt)+  , _getrsLastUpdatedDate       :: !(Maybe POSIX)+  , _getrsConfirmationPrompt    :: !(Maybe Prompt)+  , _getrsDialogCodeHook        :: !(Maybe CodeHook)+  , _getrsDescription           :: !(Maybe Text)+  , _getrsResponseStatus        :: !Int   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -160,123 +160,123 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'girsFulfillmentActivity' - Describes how the intent is fulfilled. For more information, see 'PutIntent' .+-- * 'getrsFulfillmentActivity' - Describes how the intent is fulfilled. For more information, see 'PutIntent' . ----- * 'girsSlots' - An array of intent slots configured for the intent.+-- * 'getrsSlots' - An array of intent slots configured for the intent. ----- * 'girsRejectionStatement' - If the user answers "no" to the question defined in @confirmationPrompt@ , Amazon Lex responds with this statement to acknowledge that the intent was canceled.+-- * 'getrsRejectionStatement' - If the user answers "no" to the question defined in @confirmationPrompt@ , Amazon Lex responds with this statement to acknowledge that the intent was canceled. ----- * 'girsChecksum' - Checksum of the intent.+-- * 'getrsChecksum' - Checksum of the intent. ----- * 'girsConclusionStatement' - After the Lambda function specified in the @fulfillmentActivity@ element fulfills the intent, Amazon Lex conveys this statement to the user.+-- * 'getrsConclusionStatement' - After the Lambda function specified in the @fulfillmentActivity@ element fulfills the intent, Amazon Lex conveys this statement to the user. ----- * 'girsSampleUtterances' - An array of sample utterances configured for the intent.+-- * 'getrsSampleUtterances' - An array of sample utterances configured for the intent. ----- * 'girsParentIntentSignature' - A unique identifier for a built-in intent.+-- * 'getrsParentIntentSignature' - A unique identifier for a built-in intent. ----- * 'girsCreatedDate' - The date that the intent was created.+-- * 'getrsCreatedDate' - The date that the intent was created. ----- * 'girsName' - The name of the intent.+-- * 'getrsName' - The name of the intent. ----- * 'girsVersion' - The version of the intent.+-- * 'getrsVersion' - The version of the intent. ----- * 'girsFollowUpPrompt' - If defined in the bot, Amazon Lex uses this prompt to solicit additional user activity after the intent is fulfilled. For more information, see 'PutIntent' .+-- * 'getrsFollowUpPrompt' - If defined in the bot, Amazon Lex uses this prompt to solicit additional user activity after the intent is fulfilled. For more information, see 'PutIntent' . ----- * 'girsLastUpdatedDate' - The date that the intent was updated. When you create a resource, the creation date and the last updated date are the same.+-- * 'getrsLastUpdatedDate' - The date that the intent was updated. When you create a resource, the creation date and the last updated date are the same. ----- * 'girsConfirmationPrompt' - If defined in the bot, Amazon Lex uses prompt to confirm the intent before fulfilling the user's request. For more information, see 'PutIntent' .+-- * 'getrsConfirmationPrompt' - If defined in the bot, Amazon Lex uses prompt to confirm the intent before fulfilling the user's request. For more information, see 'PutIntent' . ----- * 'girsDialogCodeHook' - If defined in the bot, Amazon Amazon Lex invokes this Lambda function for each user input. For more information, see 'PutIntent' .+-- * 'getrsDialogCodeHook' - If defined in the bot, Amazon Amazon Lex invokes this Lambda function for each user input. For more information, see 'PutIntent' . ----- * 'girsDescription' - A description of the intent.+-- * 'getrsDescription' - A description of the intent. ----- * 'girsResponseStatus' - -- | The response status code.+-- * 'getrsResponseStatus' - -- | The response status code. getIntentResponse-    :: Int -- ^ 'girsResponseStatus'+    :: Int -- ^ 'getrsResponseStatus'     -> GetIntentResponse getIntentResponse pResponseStatus_ =   GetIntentResponse'-  { _girsFulfillmentActivity = Nothing-  , _girsSlots = Nothing-  , _girsRejectionStatement = Nothing-  , _girsChecksum = Nothing-  , _girsConclusionStatement = Nothing-  , _girsSampleUtterances = Nothing-  , _girsParentIntentSignature = Nothing-  , _girsCreatedDate = Nothing-  , _girsName = Nothing-  , _girsVersion = Nothing-  , _girsFollowUpPrompt = Nothing-  , _girsLastUpdatedDate = Nothing-  , _girsConfirmationPrompt = Nothing-  , _girsDialogCodeHook = Nothing-  , _girsDescription = Nothing-  , _girsResponseStatus = pResponseStatus_-  }+    { _getrsFulfillmentActivity = Nothing+    , _getrsSlots = Nothing+    , _getrsRejectionStatement = Nothing+    , _getrsChecksum = Nothing+    , _getrsConclusionStatement = Nothing+    , _getrsSampleUtterances = Nothing+    , _getrsParentIntentSignature = Nothing+    , _getrsCreatedDate = Nothing+    , _getrsName = Nothing+    , _getrsVersion = Nothing+    , _getrsFollowUpPrompt = Nothing+    , _getrsLastUpdatedDate = Nothing+    , _getrsConfirmationPrompt = Nothing+    , _getrsDialogCodeHook = Nothing+    , _getrsDescription = Nothing+    , _getrsResponseStatus = pResponseStatus_+    }   -- | Describes how the intent is fulfilled. For more information, see 'PutIntent' .-girsFulfillmentActivity :: Lens' GetIntentResponse (Maybe FulfillmentActivity)-girsFulfillmentActivity = lens _girsFulfillmentActivity (\ s a -> s{_girsFulfillmentActivity = a});+getrsFulfillmentActivity :: Lens' GetIntentResponse (Maybe FulfillmentActivity)+getrsFulfillmentActivity = lens _getrsFulfillmentActivity (\ s a -> s{_getrsFulfillmentActivity = a})  -- | An array of intent slots configured for the intent.-girsSlots :: Lens' GetIntentResponse [Slot]-girsSlots = lens _girsSlots (\ s a -> s{_girsSlots = a}) . _Default . _Coerce;+getrsSlots :: Lens' GetIntentResponse [Slot]+getrsSlots = lens _getrsSlots (\ s a -> s{_getrsSlots = a}) . _Default . _Coerce  -- | If the user answers "no" to the question defined in @confirmationPrompt@ , Amazon Lex responds with this statement to acknowledge that the intent was canceled.-girsRejectionStatement :: Lens' GetIntentResponse (Maybe Statement)-girsRejectionStatement = lens _girsRejectionStatement (\ s a -> s{_girsRejectionStatement = a});+getrsRejectionStatement :: Lens' GetIntentResponse (Maybe Statement)+getrsRejectionStatement = lens _getrsRejectionStatement (\ s a -> s{_getrsRejectionStatement = a})  -- | Checksum of the intent.-girsChecksum :: Lens' GetIntentResponse (Maybe Text)-girsChecksum = lens _girsChecksum (\ s a -> s{_girsChecksum = a});+getrsChecksum :: Lens' GetIntentResponse (Maybe Text)+getrsChecksum = lens _getrsChecksum (\ s a -> s{_getrsChecksum = a})  -- | After the Lambda function specified in the @fulfillmentActivity@ element fulfills the intent, Amazon Lex conveys this statement to the user.-girsConclusionStatement :: Lens' GetIntentResponse (Maybe Statement)-girsConclusionStatement = lens _girsConclusionStatement (\ s a -> s{_girsConclusionStatement = a});+getrsConclusionStatement :: Lens' GetIntentResponse (Maybe Statement)+getrsConclusionStatement = lens _getrsConclusionStatement (\ s a -> s{_getrsConclusionStatement = a})  -- | An array of sample utterances configured for the intent.-girsSampleUtterances :: Lens' GetIntentResponse [Text]-girsSampleUtterances = lens _girsSampleUtterances (\ s a -> s{_girsSampleUtterances = a}) . _Default . _Coerce;+getrsSampleUtterances :: Lens' GetIntentResponse [Text]+getrsSampleUtterances = lens _getrsSampleUtterances (\ s a -> s{_getrsSampleUtterances = a}) . _Default . _Coerce  -- | A unique identifier for a built-in intent.-girsParentIntentSignature :: Lens' GetIntentResponse (Maybe Text)-girsParentIntentSignature = lens _girsParentIntentSignature (\ s a -> s{_girsParentIntentSignature = a});+getrsParentIntentSignature :: Lens' GetIntentResponse (Maybe Text)+getrsParentIntentSignature = lens _getrsParentIntentSignature (\ s a -> s{_getrsParentIntentSignature = a})  -- | The date that the intent was created.-girsCreatedDate :: Lens' GetIntentResponse (Maybe UTCTime)-girsCreatedDate = lens _girsCreatedDate (\ s a -> s{_girsCreatedDate = a}) . mapping _Time;+getrsCreatedDate :: Lens' GetIntentResponse (Maybe UTCTime)+getrsCreatedDate = lens _getrsCreatedDate (\ s a -> s{_getrsCreatedDate = a}) . mapping _Time  -- | The name of the intent.-girsName :: Lens' GetIntentResponse (Maybe Text)-girsName = lens _girsName (\ s a -> s{_girsName = a});+getrsName :: Lens' GetIntentResponse (Maybe Text)+getrsName = lens _getrsName (\ s a -> s{_getrsName = a})  -- | The version of the intent.-girsVersion :: Lens' GetIntentResponse (Maybe Text)-girsVersion = lens _girsVersion (\ s a -> s{_girsVersion = a});+getrsVersion :: Lens' GetIntentResponse (Maybe Text)+getrsVersion = lens _getrsVersion (\ s a -> s{_getrsVersion = a})  -- | If defined in the bot, Amazon Lex uses this prompt to solicit additional user activity after the intent is fulfilled. For more information, see 'PutIntent' .-girsFollowUpPrompt :: Lens' GetIntentResponse (Maybe FollowUpPrompt)-girsFollowUpPrompt = lens _girsFollowUpPrompt (\ s a -> s{_girsFollowUpPrompt = a});+getrsFollowUpPrompt :: Lens' GetIntentResponse (Maybe FollowUpPrompt)+getrsFollowUpPrompt = lens _getrsFollowUpPrompt (\ s a -> s{_getrsFollowUpPrompt = a})  -- | The date that the intent was updated. When you create a resource, the creation date and the last updated date are the same.-girsLastUpdatedDate :: Lens' GetIntentResponse (Maybe UTCTime)-girsLastUpdatedDate = lens _girsLastUpdatedDate (\ s a -> s{_girsLastUpdatedDate = a}) . mapping _Time;+getrsLastUpdatedDate :: Lens' GetIntentResponse (Maybe UTCTime)+getrsLastUpdatedDate = lens _getrsLastUpdatedDate (\ s a -> s{_getrsLastUpdatedDate = a}) . mapping _Time  -- | If defined in the bot, Amazon Lex uses prompt to confirm the intent before fulfilling the user's request. For more information, see 'PutIntent' .-girsConfirmationPrompt :: Lens' GetIntentResponse (Maybe Prompt)-girsConfirmationPrompt = lens _girsConfirmationPrompt (\ s a -> s{_girsConfirmationPrompt = a});+getrsConfirmationPrompt :: Lens' GetIntentResponse (Maybe Prompt)+getrsConfirmationPrompt = lens _getrsConfirmationPrompt (\ s a -> s{_getrsConfirmationPrompt = a})  -- | If defined in the bot, Amazon Amazon Lex invokes this Lambda function for each user input. For more information, see 'PutIntent' .-girsDialogCodeHook :: Lens' GetIntentResponse (Maybe CodeHook)-girsDialogCodeHook = lens _girsDialogCodeHook (\ s a -> s{_girsDialogCodeHook = a});+getrsDialogCodeHook :: Lens' GetIntentResponse (Maybe CodeHook)+getrsDialogCodeHook = lens _getrsDialogCodeHook (\ s a -> s{_getrsDialogCodeHook = a})  -- | A description of the intent.-girsDescription :: Lens' GetIntentResponse (Maybe Text)-girsDescription = lens _girsDescription (\ s a -> s{_girsDescription = a});+getrsDescription :: Lens' GetIntentResponse (Maybe Text)+getrsDescription = lens _getrsDescription (\ s a -> s{_getrsDescription = a})  -- | -- | The response status code.-girsResponseStatus :: Lens' GetIntentResponse Int-girsResponseStatus = lens _girsResponseStatus (\ s a -> s{_girsResponseStatus = a});+getrsResponseStatus :: Lens' GetIntentResponse Int+getrsResponseStatus = lens _getrsResponseStatus (\ s a -> s{_getrsResponseStatus = a})  instance NFData GetIntentResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.GetIntentVersions--- 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@@ -27,6 +27,8 @@ -- -- This operation requires permissions for the @lex:GetIntentVersions@ action. --+--+-- This operation returns paginated results. module Network.AWS.LexModels.GetIntentVersions     (     -- * Creating a Request@@ -49,6 +51,7 @@ import Network.AWS.Lens import Network.AWS.LexModels.Types import Network.AWS.LexModels.Types.Product+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -75,21 +78,28 @@     -> GetIntentVersions getIntentVersions pName_ =   GetIntentVersions'-  {_givNextToken = Nothing, _givMaxResults = Nothing, _givName = pName_}+    {_givNextToken = Nothing, _givMaxResults = Nothing, _givName = pName_}   -- | A pagination token for fetching the next page of intent versions. If the response to this call is truncated, Amazon Lex returns a pagination token in the response. To fetch the next page of versions, specify the pagination token in the next request. givNextToken :: Lens' GetIntentVersions (Maybe Text)-givNextToken = lens _givNextToken (\ s a -> s{_givNextToken = a});+givNextToken = lens _givNextToken (\ s a -> s{_givNextToken = a})  -- | The maximum number of intent versions to return in the response. The default is 10. givMaxResults :: Lens' GetIntentVersions (Maybe Natural)-givMaxResults = lens _givMaxResults (\ s a -> s{_givMaxResults = a}) . mapping _Nat;+givMaxResults = lens _givMaxResults (\ s a -> s{_givMaxResults = a}) . mapping _Nat  -- | The name of the intent for which versions should be returned. givName :: Lens' GetIntentVersions Text-givName = lens _givName (\ s a -> s{_givName = a});+givName = lens _givName (\ s a -> s{_givName = a}) +instance AWSPager GetIntentVersions where+        page rq rs+          | stop (rs ^. givrsNextToken) = Nothing+          | stop (rs ^. givrsIntents) = Nothing+          | otherwise =+            Just $ rq & givNextToken .~ rs ^. givrsNextToken+ instance AWSRequest GetIntentVersions where         type Rs GetIntentVersions = GetIntentVersionsResponse         request = get lexModels@@ -143,22 +153,22 @@     -> GetIntentVersionsResponse getIntentVersionsResponse pResponseStatus_ =   GetIntentVersionsResponse'-  { _givrsIntents = Nothing-  , _givrsNextToken = Nothing-  , _givrsResponseStatus = pResponseStatus_-  }+    { _givrsIntents = Nothing+    , _givrsNextToken = Nothing+    , _givrsResponseStatus = pResponseStatus_+    }   -- | An array of @IntentMetadata@ objects, one for each numbered version of the intent plus one for the @> LATEST@ version. givrsIntents :: Lens' GetIntentVersionsResponse [IntentMetadata]-givrsIntents = lens _givrsIntents (\ s a -> s{_givrsIntents = a}) . _Default . _Coerce;+givrsIntents = lens _givrsIntents (\ s a -> s{_givrsIntents = a}) . _Default . _Coerce  -- | A pagination token for fetching the next page of intent versions. If the response to this call is truncated, Amazon Lex returns a pagination token in the response. To fetch the next page of versions, specify the pagination token in the next request. givrsNextToken :: Lens' GetIntentVersionsResponse (Maybe Text)-givrsNextToken = lens _givrsNextToken (\ s a -> s{_givrsNextToken = a});+givrsNextToken = lens _givrsNextToken (\ s a -> s{_givrsNextToken = a})  -- | -- | The response status code. givrsResponseStatus :: Lens' GetIntentVersionsResponse Int-givrsResponseStatus = lens _givrsResponseStatus (\ s a -> s{_givrsResponseStatus = a});+givrsResponseStatus = lens _givrsResponseStatus (\ s a -> s{_givrsResponseStatus = a})  instance NFData GetIntentVersionsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.GetIntents--- 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@@ -29,6 +29,8 @@ -- -- The operation requires permission for the @lex:GetIntents@ action. --+--+-- This operation returns paginated results. module Network.AWS.LexModels.GetIntents     (     -- * Creating a Request@@ -51,6 +53,7 @@ import Network.AWS.Lens import Network.AWS.LexModels.Types import Network.AWS.LexModels.Types.Product+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -76,21 +79,28 @@     :: GetIntents getIntents =   GetIntents'-  {_giNameContains = Nothing, _giNextToken = Nothing, _giMaxResults = Nothing}+    {_giNameContains = Nothing, _giNextToken = Nothing, _giMaxResults = Nothing}   -- | Substring to match in intent names. An intent will be returned if any part of its name matches the substring. For example, "xyz" matches both "xyzabc" and "abcxyz." giNameContains :: Lens' GetIntents (Maybe Text)-giNameContains = lens _giNameContains (\ s a -> s{_giNameContains = a});+giNameContains = lens _giNameContains (\ s a -> s{_giNameContains = a})  -- | A pagination token that fetches the next page of intents. If the response to this API call is truncated, Amazon Lex returns a pagination token in the response. To fetch the next page of intents, specify the pagination token in the next request. giNextToken :: Lens' GetIntents (Maybe Text)-giNextToken = lens _giNextToken (\ s a -> s{_giNextToken = a});+giNextToken = lens _giNextToken (\ s a -> s{_giNextToken = a})  -- | The maximum number of intents to return in the response. The default is 10. giMaxResults :: Lens' GetIntents (Maybe Natural)-giMaxResults = lens _giMaxResults (\ s a -> s{_giMaxResults = a}) . mapping _Nat;+giMaxResults = lens _giMaxResults (\ s a -> s{_giMaxResults = a}) . mapping _Nat +instance AWSPager GetIntents where+        page rq rs+          | stop (rs ^. gisrsNextToken) = Nothing+          | stop (rs ^. gisrsIntents) = Nothing+          | otherwise =+            Just $ rq & giNextToken .~ rs ^. gisrsNextToken+ instance AWSRequest GetIntents where         type Rs GetIntents = GetIntentsResponse         request = get lexModels@@ -144,22 +154,22 @@     -> GetIntentsResponse getIntentsResponse pResponseStatus_ =   GetIntentsResponse'-  { _gisrsIntents = Nothing-  , _gisrsNextToken = Nothing-  , _gisrsResponseStatus = pResponseStatus_-  }+    { _gisrsIntents = Nothing+    , _gisrsNextToken = Nothing+    , _gisrsResponseStatus = pResponseStatus_+    }   -- | An array of @Intent@ objects. For more information, see 'PutBot' . gisrsIntents :: Lens' GetIntentsResponse [IntentMetadata]-gisrsIntents = lens _gisrsIntents (\ s a -> s{_gisrsIntents = a}) . _Default . _Coerce;+gisrsIntents = lens _gisrsIntents (\ s a -> s{_gisrsIntents = a}) . _Default . _Coerce  -- | If the response is truncated, the response includes a pagination token that you can specify in your next request to fetch the next page of intents. gisrsNextToken :: Lens' GetIntentsResponse (Maybe Text)-gisrsNextToken = lens _gisrsNextToken (\ s a -> s{_gisrsNextToken = a});+gisrsNextToken = lens _gisrsNextToken (\ s a -> s{_gisrsNextToken = a})  -- | -- | The response status code. gisrsResponseStatus :: Lens' GetIntentsResponse Int-gisrsResponseStatus = lens _gisrsResponseStatus (\ s a -> s{_gisrsResponseStatus = a});+gisrsResponseStatus = lens _gisrsResponseStatus (\ s a -> s{_gisrsResponseStatus = a})  instance NFData GetIntentsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.GetSlotType--- 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@@ -36,15 +36,15 @@     , getSlotTypeResponse     , GetSlotTypeResponse     -- * Response Lenses-    , getrsChecksum-    , getrsValueSelectionStrategy-    , getrsCreatedDate-    , getrsName-    , getrsVersion-    , getrsLastUpdatedDate-    , getrsDescription-    , getrsEnumerationValues-    , getrsResponseStatus+    , gstsrsChecksum+    , gstsrsValueSelectionStrategy+    , gstsrsCreatedDate+    , gstsrsName+    , gstsrsVersion+    , gstsrsLastUpdatedDate+    , gstsrsDescription+    , gstsrsEnumerationValues+    , gstsrsResponseStatus     ) where  import Network.AWS.Lens@@ -78,11 +78,11 @@  -- | The name of the slot type. The name is case sensitive. gstName :: Lens' GetSlotType Text-gstName = lens _gstName (\ s a -> s{_gstName = a});+gstName = lens _gstName (\ s a -> s{_gstName = a})  -- | The version of the slot type. gstVersion :: Lens' GetSlotType Text-gstVersion = lens _gstVersion (\ s a -> s{_gstVersion = a});+gstVersion = lens _gstVersion (\ s a -> s{_gstVersion = a})  instance AWSRequest GetSlotType where         type Rs GetSlotType = GetSlotTypeResponse@@ -123,15 +123,15 @@  -- | /See:/ 'getSlotTypeResponse' smart constructor. data GetSlotTypeResponse = GetSlotTypeResponse'-  { _getrsChecksum               :: !(Maybe Text)-  , _getrsValueSelectionStrategy :: !(Maybe SlotValueSelectionStrategy)-  , _getrsCreatedDate            :: !(Maybe POSIX)-  , _getrsName                   :: !(Maybe Text)-  , _getrsVersion                :: !(Maybe Text)-  , _getrsLastUpdatedDate        :: !(Maybe POSIX)-  , _getrsDescription            :: !(Maybe Text)-  , _getrsEnumerationValues      :: !(Maybe (List1 EnumerationValue))-  , _getrsResponseStatus         :: !Int+  { _gstsrsChecksum               :: !(Maybe Text)+  , _gstsrsValueSelectionStrategy :: !(Maybe SlotValueSelectionStrategy)+  , _gstsrsCreatedDate            :: !(Maybe POSIX)+  , _gstsrsName                   :: !(Maybe Text)+  , _gstsrsVersion                :: !(Maybe Text)+  , _gstsrsLastUpdatedDate        :: !(Maybe POSIX)+  , _gstsrsDescription            :: !(Maybe Text)+  , _gstsrsEnumerationValues      :: !(Maybe (List1 EnumerationValue))+  , _gstsrsResponseStatus         :: !Int   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -139,74 +139,74 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'getrsChecksum' - Checksum of the @> LATEST@ version of the slot type.+-- * 'gstsrsChecksum' - Checksum of the @> LATEST@ version of the slot type. ----- * 'getrsValueSelectionStrategy' - The strategy that Amazon Lex uses to determine the value of the slot. For more information, see 'PutSlotType' .+-- * 'gstsrsValueSelectionStrategy' - The strategy that Amazon Lex uses to determine the value of the slot. For more information, see 'PutSlotType' . ----- * 'getrsCreatedDate' - The date that the slot type was created.+-- * 'gstsrsCreatedDate' - The date that the slot type was created. ----- * 'getrsName' - The name of the slot type.+-- * 'gstsrsName' - The name of the slot type. ----- * 'getrsVersion' - The version of the slot type.+-- * 'gstsrsVersion' - The version of the slot type. ----- * 'getrsLastUpdatedDate' - The date that the slot type was updated. When you create a resource, the creation date and last update date are the same.+-- * 'gstsrsLastUpdatedDate' - The date that the slot type was updated. When you create a resource, the creation date and last update date are the same. ----- * 'getrsDescription' - A description of the slot type.+-- * 'gstsrsDescription' - A description of the slot type. ----- * 'getrsEnumerationValues' - A list of @EnumerationValue@ objects that defines the values that the slot type can take.+-- * 'gstsrsEnumerationValues' - A list of @EnumerationValue@ objects that defines the values that the slot type can take. ----- * 'getrsResponseStatus' - -- | The response status code.+-- * 'gstsrsResponseStatus' - -- | The response status code. getSlotTypeResponse-    :: Int -- ^ 'getrsResponseStatus'+    :: Int -- ^ 'gstsrsResponseStatus'     -> GetSlotTypeResponse getSlotTypeResponse pResponseStatus_ =   GetSlotTypeResponse'-  { _getrsChecksum = Nothing-  , _getrsValueSelectionStrategy = Nothing-  , _getrsCreatedDate = Nothing-  , _getrsName = Nothing-  , _getrsVersion = Nothing-  , _getrsLastUpdatedDate = Nothing-  , _getrsDescription = Nothing-  , _getrsEnumerationValues = Nothing-  , _getrsResponseStatus = pResponseStatus_-  }+    { _gstsrsChecksum = Nothing+    , _gstsrsValueSelectionStrategy = Nothing+    , _gstsrsCreatedDate = Nothing+    , _gstsrsName = Nothing+    , _gstsrsVersion = Nothing+    , _gstsrsLastUpdatedDate = Nothing+    , _gstsrsDescription = Nothing+    , _gstsrsEnumerationValues = Nothing+    , _gstsrsResponseStatus = pResponseStatus_+    }   -- | Checksum of the @> LATEST@ version of the slot type.-getrsChecksum :: Lens' GetSlotTypeResponse (Maybe Text)-getrsChecksum = lens _getrsChecksum (\ s a -> s{_getrsChecksum = a});+gstsrsChecksum :: Lens' GetSlotTypeResponse (Maybe Text)+gstsrsChecksum = lens _gstsrsChecksum (\ s a -> s{_gstsrsChecksum = a})  -- | The strategy that Amazon Lex uses to determine the value of the slot. For more information, see 'PutSlotType' .-getrsValueSelectionStrategy :: Lens' GetSlotTypeResponse (Maybe SlotValueSelectionStrategy)-getrsValueSelectionStrategy = lens _getrsValueSelectionStrategy (\ s a -> s{_getrsValueSelectionStrategy = a});+gstsrsValueSelectionStrategy :: Lens' GetSlotTypeResponse (Maybe SlotValueSelectionStrategy)+gstsrsValueSelectionStrategy = lens _gstsrsValueSelectionStrategy (\ s a -> s{_gstsrsValueSelectionStrategy = a})  -- | The date that the slot type was created.-getrsCreatedDate :: Lens' GetSlotTypeResponse (Maybe UTCTime)-getrsCreatedDate = lens _getrsCreatedDate (\ s a -> s{_getrsCreatedDate = a}) . mapping _Time;+gstsrsCreatedDate :: Lens' GetSlotTypeResponse (Maybe UTCTime)+gstsrsCreatedDate = lens _gstsrsCreatedDate (\ s a -> s{_gstsrsCreatedDate = a}) . mapping _Time  -- | The name of the slot type.-getrsName :: Lens' GetSlotTypeResponse (Maybe Text)-getrsName = lens _getrsName (\ s a -> s{_getrsName = a});+gstsrsName :: Lens' GetSlotTypeResponse (Maybe Text)+gstsrsName = lens _gstsrsName (\ s a -> s{_gstsrsName = a})  -- | The version of the slot type.-getrsVersion :: Lens' GetSlotTypeResponse (Maybe Text)-getrsVersion = lens _getrsVersion (\ s a -> s{_getrsVersion = a});+gstsrsVersion :: Lens' GetSlotTypeResponse (Maybe Text)+gstsrsVersion = lens _gstsrsVersion (\ s a -> s{_gstsrsVersion = a})  -- | The date that the slot type was updated. When you create a resource, the creation date and last update date are the same.-getrsLastUpdatedDate :: Lens' GetSlotTypeResponse (Maybe UTCTime)-getrsLastUpdatedDate = lens _getrsLastUpdatedDate (\ s a -> s{_getrsLastUpdatedDate = a}) . mapping _Time;+gstsrsLastUpdatedDate :: Lens' GetSlotTypeResponse (Maybe UTCTime)+gstsrsLastUpdatedDate = lens _gstsrsLastUpdatedDate (\ s a -> s{_gstsrsLastUpdatedDate = a}) . mapping _Time  -- | A description of the slot type.-getrsDescription :: Lens' GetSlotTypeResponse (Maybe Text)-getrsDescription = lens _getrsDescription (\ s a -> s{_getrsDescription = a});+gstsrsDescription :: Lens' GetSlotTypeResponse (Maybe Text)+gstsrsDescription = lens _gstsrsDescription (\ s a -> s{_gstsrsDescription = a})  -- | A list of @EnumerationValue@ objects that defines the values that the slot type can take.-getrsEnumerationValues :: Lens' GetSlotTypeResponse (Maybe (NonEmpty EnumerationValue))-getrsEnumerationValues = lens _getrsEnumerationValues (\ s a -> s{_getrsEnumerationValues = a}) . mapping _List1;+gstsrsEnumerationValues :: Lens' GetSlotTypeResponse (Maybe (NonEmpty EnumerationValue))+gstsrsEnumerationValues = lens _gstsrsEnumerationValues (\ s a -> s{_gstsrsEnumerationValues = a}) . mapping _List1  -- | -- | The response status code.-getrsResponseStatus :: Lens' GetSlotTypeResponse Int-getrsResponseStatus = lens _getrsResponseStatus (\ s a -> s{_getrsResponseStatus = a});+gstsrsResponseStatus :: Lens' GetSlotTypeResponse Int+gstsrsResponseStatus = lens _gstsrsResponseStatus (\ s a -> s{_gstsrsResponseStatus = a})  instance NFData GetSlotTypeResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.GetSlotTypeVersions--- 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@@ -27,6 +27,8 @@ -- -- This operation requires permissions for the @lex:GetSlotTypeVersions@ action. --+--+-- This operation returns paginated results. module Network.AWS.LexModels.GetSlotTypeVersions     (     -- * Creating a Request@@ -49,6 +51,7 @@ import Network.AWS.Lens import Network.AWS.LexModels.Types import Network.AWS.LexModels.Types.Product+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -75,21 +78,28 @@     -> GetSlotTypeVersions getSlotTypeVersions pName_ =   GetSlotTypeVersions'-  {_gstvNextToken = Nothing, _gstvMaxResults = Nothing, _gstvName = pName_}+    {_gstvNextToken = Nothing, _gstvMaxResults = Nothing, _gstvName = pName_}   -- | A pagination token for fetching the next page of slot type versions. If the response to this call is truncated, Amazon Lex returns a pagination token in the response. To fetch the next page of versions, specify the pagination token in the next request. gstvNextToken :: Lens' GetSlotTypeVersions (Maybe Text)-gstvNextToken = lens _gstvNextToken (\ s a -> s{_gstvNextToken = a});+gstvNextToken = lens _gstvNextToken (\ s a -> s{_gstvNextToken = a})  -- | The maximum number of slot type versions to return in the response. The default is 10. gstvMaxResults :: Lens' GetSlotTypeVersions (Maybe Natural)-gstvMaxResults = lens _gstvMaxResults (\ s a -> s{_gstvMaxResults = a}) . mapping _Nat;+gstvMaxResults = lens _gstvMaxResults (\ s a -> s{_gstvMaxResults = a}) . mapping _Nat  -- | The name of the slot type for which versions should be returned. gstvName :: Lens' GetSlotTypeVersions Text-gstvName = lens _gstvName (\ s a -> s{_gstvName = a});+gstvName = lens _gstvName (\ s a -> s{_gstvName = a}) +instance AWSPager GetSlotTypeVersions where+        page rq rs+          | stop (rs ^. gstvrsNextToken) = Nothing+          | stop (rs ^. gstvrsSlotTypes) = Nothing+          | otherwise =+            Just $ rq & gstvNextToken .~ rs ^. gstvrsNextToken+ instance AWSRequest GetSlotTypeVersions where         type Rs GetSlotTypeVersions =              GetSlotTypeVersionsResponse@@ -146,22 +156,22 @@     -> GetSlotTypeVersionsResponse getSlotTypeVersionsResponse pResponseStatus_ =   GetSlotTypeVersionsResponse'-  { _gstvrsNextToken = Nothing-  , _gstvrsSlotTypes = Nothing-  , _gstvrsResponseStatus = pResponseStatus_-  }+    { _gstvrsNextToken = Nothing+    , _gstvrsSlotTypes = Nothing+    , _gstvrsResponseStatus = pResponseStatus_+    }   -- | A pagination token for fetching the next page of slot type versions. If the response to this call is truncated, Amazon Lex returns a pagination token in the response. To fetch the next page of versions, specify the pagination token in the next request. gstvrsNextToken :: Lens' GetSlotTypeVersionsResponse (Maybe Text)-gstvrsNextToken = lens _gstvrsNextToken (\ s a -> s{_gstvrsNextToken = a});+gstvrsNextToken = lens _gstvrsNextToken (\ s a -> s{_gstvrsNextToken = a})  -- | An array of @SlotTypeMetadata@ objects, one for each numbered version of the slot type plus one for the @> LATEST@ version. gstvrsSlotTypes :: Lens' GetSlotTypeVersionsResponse [SlotTypeMetadata]-gstvrsSlotTypes = lens _gstvrsSlotTypes (\ s a -> s{_gstvrsSlotTypes = a}) . _Default . _Coerce;+gstvrsSlotTypes = lens _gstvrsSlotTypes (\ s a -> s{_gstvrsSlotTypes = a}) . _Default . _Coerce  -- | -- | The response status code. gstvrsResponseStatus :: Lens' GetSlotTypeVersionsResponse Int-gstvrsResponseStatus = lens _gstvrsResponseStatus (\ s a -> s{_gstvrsResponseStatus = a});+gstvrsResponseStatus = lens _gstvrsResponseStatus (\ s a -> s{_gstvrsResponseStatus = a})  instance NFData GetSlotTypeVersionsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.GetSlotTypes--- 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@@ -29,6 +29,8 @@ -- -- The operation requires permission for the @lex:GetSlotTypes@ action. --+--+-- This operation returns paginated results. module Network.AWS.LexModels.GetSlotTypes     (     -- * Creating a Request@@ -51,6 +53,7 @@ import Network.AWS.Lens import Network.AWS.LexModels.Types import Network.AWS.LexModels.Types.Product+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -76,24 +79,31 @@     :: GetSlotTypes getSlotTypes =   GetSlotTypes'-  { _gstNameContains = Nothing-  , _gstNextToken = Nothing-  , _gstMaxResults = Nothing-  }+    { _gstNameContains = Nothing+    , _gstNextToken = Nothing+    , _gstMaxResults = Nothing+    }   -- | Substring to match in slot type names. A slot type will be returned if any part of its name matches the substring. For example, "xyz" matches both "xyzabc" and "abcxyz." gstNameContains :: Lens' GetSlotTypes (Maybe Text)-gstNameContains = lens _gstNameContains (\ s a -> s{_gstNameContains = a});+gstNameContains = lens _gstNameContains (\ s a -> s{_gstNameContains = a})  -- | A pagination token that fetches the next page of slot types. If the response to this API call is truncated, Amazon Lex returns a pagination token in the response. To fetch next page of slot types, specify the pagination token in the next request. gstNextToken :: Lens' GetSlotTypes (Maybe Text)-gstNextToken = lens _gstNextToken (\ s a -> s{_gstNextToken = a});+gstNextToken = lens _gstNextToken (\ s a -> s{_gstNextToken = a})  -- | The maximum number of slot types to return in the response. The default is 10. gstMaxResults :: Lens' GetSlotTypes (Maybe Natural)-gstMaxResults = lens _gstMaxResults (\ s a -> s{_gstMaxResults = a}) . mapping _Nat;+gstMaxResults = lens _gstMaxResults (\ s a -> s{_gstMaxResults = a}) . mapping _Nat +instance AWSPager GetSlotTypes where+        page rq rs+          | stop (rs ^. gstrsNextToken) = Nothing+          | stop (rs ^. gstrsSlotTypes) = Nothing+          | otherwise =+            Just $ rq & gstNextToken .~ rs ^. gstrsNextToken+ instance AWSRequest GetSlotTypes where         type Rs GetSlotTypes = GetSlotTypesResponse         request = get lexModels@@ -148,22 +158,22 @@     -> GetSlotTypesResponse getSlotTypesResponse pResponseStatus_ =   GetSlotTypesResponse'-  { _gstrsNextToken = Nothing-  , _gstrsSlotTypes = Nothing-  , _gstrsResponseStatus = pResponseStatus_-  }+    { _gstrsNextToken = Nothing+    , _gstrsSlotTypes = Nothing+    , _gstrsResponseStatus = pResponseStatus_+    }   -- | If the response is truncated, it includes a pagination token that you can specify in your next request to fetch the next page of slot types. gstrsNextToken :: Lens' GetSlotTypesResponse (Maybe Text)-gstrsNextToken = lens _gstrsNextToken (\ s a -> s{_gstrsNextToken = a});+gstrsNextToken = lens _gstrsNextToken (\ s a -> s{_gstrsNextToken = a})  -- | An array of objects, one for each slot type, that provides information such as the name of the slot type, the version, and a description. gstrsSlotTypes :: Lens' GetSlotTypesResponse [SlotTypeMetadata]-gstrsSlotTypes = lens _gstrsSlotTypes (\ s a -> s{_gstrsSlotTypes = a}) . _Default . _Coerce;+gstrsSlotTypes = lens _gstrsSlotTypes (\ s a -> s{_gstrsSlotTypes = a}) . _Default . _Coerce  -- | -- | The response status code. gstrsResponseStatus :: Lens' GetSlotTypesResponse Int-gstrsResponseStatus = lens _gstrsResponseStatus (\ s a -> s{_gstrsResponseStatus = a});+gstrsResponseStatus = lens _gstrsResponseStatus (\ s a -> s{_gstrsResponseStatus = a})  instance NFData GetSlotTypesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.GetUtterancesView--- 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@@ -25,10 +25,6 @@ -- -- After you publish a new version of a bot, you can get information about the old version and the new so that you can compare the performance across the two versions. ----- Data is available for the last 15 days. You can request information for up to 5 versions in each request. The response contains information about a maximum of 100 utterances for each version.------ If the bot's @childDirected@ field is set to @true@ , utterances for the bot are not stored and cannot be retrieved with the @GetUtterancesView@ operation. For more information, see 'PutBot' .--- -- This operation requires permissions for the @lex:GetUtterancesView@ action. -- module Network.AWS.LexModels.GetUtterancesView@@ -81,23 +77,23 @@     -> GetUtterancesView getUtterancesView pBotName_ pBotVersions_ pStatusType_ =   GetUtterancesView'-  { _guvBotName = pBotName_-  , _guvBotVersions = _List1 # pBotVersions_-  , _guvStatusType = pStatusType_-  }+    { _guvBotName = pBotName_+    , _guvBotVersions = _List1 # pBotVersions_+    , _guvStatusType = pStatusType_+    }   -- | The name of the bot for which utterance information should be returned. guvBotName :: Lens' GetUtterancesView Text-guvBotName = lens _guvBotName (\ s a -> s{_guvBotName = a});+guvBotName = lens _guvBotName (\ s a -> s{_guvBotName = a})  -- | An array of bot versions for which utterance information should be returned. The limit is 5 versions per request. guvBotVersions :: Lens' GetUtterancesView (NonEmpty Text)-guvBotVersions = lens _guvBotVersions (\ s a -> s{_guvBotVersions = a}) . _List1;+guvBotVersions = lens _guvBotVersions (\ s a -> s{_guvBotVersions = a}) . _List1  -- | To return utterances that were recognized and handled, use@Detected@ . To return utterances that were not recognized, use @Missed@ . guvStatusType :: Lens' GetUtterancesView StatusType-guvStatusType = lens _guvStatusType (\ s a -> s{_guvStatusType = a});+guvStatusType = lens _guvStatusType (\ s a -> s{_guvStatusType = a})  instance AWSRequest GetUtterancesView where         type Rs GetUtterancesView = GetUtterancesViewResponse@@ -153,22 +149,22 @@     -> GetUtterancesViewResponse getUtterancesViewResponse pResponseStatus_ =   GetUtterancesViewResponse'-  { _guvrsBotName = Nothing-  , _guvrsUtterances = Nothing-  , _guvrsResponseStatus = pResponseStatus_-  }+    { _guvrsBotName = Nothing+    , _guvrsUtterances = Nothing+    , _guvrsResponseStatus = pResponseStatus_+    }   -- | The name of the bot for which utterance information was returned. guvrsBotName :: Lens' GetUtterancesViewResponse (Maybe Text)-guvrsBotName = lens _guvrsBotName (\ s a -> s{_guvrsBotName = a});+guvrsBotName = lens _guvrsBotName (\ s a -> s{_guvrsBotName = a})  -- | An array of 'UtteranceList' objects, each containing a list of 'UtteranceData' objects describing the utterances that were processed by your bot. The response contains a maximum of 100 @UtteranceData@ objects for each version. guvrsUtterances :: Lens' GetUtterancesViewResponse [UtteranceList]-guvrsUtterances = lens _guvrsUtterances (\ s a -> s{_guvrsUtterances = a}) . _Default . _Coerce;+guvrsUtterances = lens _guvrsUtterances (\ s a -> s{_guvrsUtterances = a}) . _Default . _Coerce  -- | -- | The response status code. guvrsResponseStatus :: Lens' GetUtterancesViewResponse Int-guvrsResponseStatus = lens _guvrsResponseStatus (\ s a -> s{_guvrsResponseStatus = a});+guvrsResponseStatus = lens _guvrsResponseStatus (\ s a -> s{_guvrsResponseStatus = a})  instance NFData GetUtterancesViewResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.LexModels.PutBot--- 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 -- Portability : non-portable (GHC extensions) ----- Creates an Amazon Lex conversational bot or replaces an existing bot. When you create or update a bot you are only required to specify a name. You can use this to add intents later, or to remove intents from an existing bot. When you create a bot with a name only, the bot is created or updated but Amazon Lex returns the response @FAILED@ . You can build the bot after you add one or more intents. For more information about Amazon Lex bots, see 'how-it-works' .+-- Creates an Amazon Lex conversational bot or replaces an existing bot. When you create or update a bot you are only required to specify a name, a locale, and whether the bot is directed toward children under age 13. You can use this to add intents later, or to remove intents from an existing bot. When you create a bot with the minimum information, the bot is created or updated but Amazon Lex returns the response @FAILED@ . You can build the bot after you add one or more intents. For more information about Amazon Lex bots, see 'how-it-works' . -- -- -- If you specify the name of an existing bot, the fields in the request replace the existing values in the @> LATEST@ version of the bot. Amazon Lex removes any fields that you don't provide values for in the request, except for the @idleTTLInSeconds@ and @privacySettings@ fields, which are set to their default values. If you don't specify values for required fields, Amazon Lex throws an exception.@@ -38,6 +38,7 @@     , pbIdleSessionTTLInSeconds     , pbClarificationPrompt     , pbVoiceId+    , pbCreateVersion     , pbDescription     , pbName     , pbLocale@@ -60,6 +61,7 @@     , pbrsClarificationPrompt     , pbrsVoiceId     , pbrsLastUpdatedDate+    , pbrsCreateVersion     , pbrsChildDirected     , pbrsDescription     , pbrsResponseStatus@@ -81,6 +83,7 @@   , _pbIdleSessionTTLInSeconds :: !(Maybe Nat)   , _pbClarificationPrompt     :: !(Maybe Prompt)   , _pbVoiceId                 :: !(Maybe Text)+  , _pbCreateVersion           :: !(Maybe Bool)   , _pbDescription             :: !(Maybe Text)   , _pbName                    :: !Text   , _pbLocale                  :: !Locale@@ -98,7 +101,7 @@ -- -- * 'pbChecksum' - Identifies a specific revision of the @> LATEST@ version. When you create a new bot, leave the @checksum@ field blank. If you specify a checksum you get a @BadRequestException@ exception. When you want to update a bot, set the @checksum@ field to the checksum of the most recent revision of the @> LATEST@ version. If you don't specify the @checksum@ field, or if the checksum does not match the @> LATEST@ version, you get a @PreconditionFailedException@ exception. ----- * 'pbProcessBehavior' - If you set the @processBehavior@ element to @Build@ , Amazon Lex builds the bot so that it can be run. If you set the element to @Save@ Amazon Lex saves the bot, but doesn't build it.  If you don't specify this value, the default value is @Save@ .+-- * 'pbProcessBehavior' - If you set the @processBehavior@ element to @BUILD@ , Amazon Lex builds the bot so that it can be run. If you set the element to @SAVE@ Amazon Lex saves the bot, but doesn't build it.  If you don't specify this value, the default value is @BUILD@ . -- -- * 'pbIdleSessionTTLInSeconds' - The maximum time in seconds that Amazon Lex retains the data gathered in a conversation. A user interaction session remains active for the amount of time specified. If no conversation occurs during this time, the session expires and Amazon Lex deletes any data provided before the timeout. For example, suppose that a user chooses the OrderPizza intent, but gets sidetracked halfway through placing an order. If the user doesn't complete the order within the specified time, Amazon Lex discards the slot information that it gathered, and the user must start over. If you don't include the @idleSessionTTLInSeconds@ element in a @PutBot@ operation request, Amazon Lex uses the default value. This is also true if the request replaces an existing bot. The default is 300 seconds (5 minutes). --@@ -106,6 +109,8 @@ -- -- * 'pbVoiceId' - The Amazon Polly voice ID that you want Amazon Lex to use for voice interactions with the user. The locale configured for the voice must match the locale of the bot. For more information, see <http://docs.aws.amazon.com/polly/latest/dg/voicelist.html Available Voices> in the /Amazon Polly Developer Guide/ . --+-- * 'pbCreateVersion' - Undocumented member.+-- -- * 'pbDescription' - A description of the bot. -- -- * 'pbName' - The name of the bot. The name is /not/ case sensitive.@@ -120,63 +125,68 @@     -> PutBot putBot pName_ pLocale_ pChildDirected_ =   PutBot'-  { _pbAbortStatement = Nothing-  , _pbIntents = Nothing-  , _pbChecksum = Nothing-  , _pbProcessBehavior = Nothing-  , _pbIdleSessionTTLInSeconds = Nothing-  , _pbClarificationPrompt = Nothing-  , _pbVoiceId = Nothing-  , _pbDescription = Nothing-  , _pbName = pName_-  , _pbLocale = pLocale_-  , _pbChildDirected = pChildDirected_-  }+    { _pbAbortStatement = Nothing+    , _pbIntents = Nothing+    , _pbChecksum = Nothing+    , _pbProcessBehavior = Nothing+    , _pbIdleSessionTTLInSeconds = Nothing+    , _pbClarificationPrompt = Nothing+    , _pbVoiceId = Nothing+    , _pbCreateVersion = Nothing+    , _pbDescription = Nothing+    , _pbName = pName_+    , _pbLocale = pLocale_+    , _pbChildDirected = pChildDirected_+    }   -- | When Amazon Lex can't understand the user's input in context, it tries to elicit the information a few times. After that, Amazon Lex sends the message defined in @abortStatement@ to the user, and then aborts the conversation. To set the number of retries, use the @valueElicitationPrompt@ field for the slot type.  For example, in a pizza ordering bot, Amazon Lex might ask a user "What type of crust would you like?" If the user's response is not one of the expected responses (for example, "thin crust, "deep dish," etc.), Amazon Lex tries to elicit a correct response a few more times.  For example, in a pizza ordering application, @OrderPizza@ might be one of the intents. This intent might require the @CrustType@ slot. You specify the @valueElicitationPrompt@ field when you create the @CrustType@ slot. pbAbortStatement :: Lens' PutBot (Maybe Statement)-pbAbortStatement = lens _pbAbortStatement (\ s a -> s{_pbAbortStatement = a});+pbAbortStatement = lens _pbAbortStatement (\ s a -> s{_pbAbortStatement = a})  -- | An array of @Intent@ objects. Each intent represents a command that a user can express. For example, a pizza ordering bot might support an OrderPizza intent. For more information, see 'how-it-works' . pbIntents :: Lens' PutBot [Intent]-pbIntents = lens _pbIntents (\ s a -> s{_pbIntents = a}) . _Default . _Coerce;+pbIntents = lens _pbIntents (\ s a -> s{_pbIntents = a}) . _Default . _Coerce  -- | Identifies a specific revision of the @> LATEST@ version. When you create a new bot, leave the @checksum@ field blank. If you specify a checksum you get a @BadRequestException@ exception. When you want to update a bot, set the @checksum@ field to the checksum of the most recent revision of the @> LATEST@ version. If you don't specify the @checksum@ field, or if the checksum does not match the @> LATEST@ version, you get a @PreconditionFailedException@ exception. pbChecksum :: Lens' PutBot (Maybe Text)-pbChecksum = lens _pbChecksum (\ s a -> s{_pbChecksum = a});+pbChecksum = lens _pbChecksum (\ s a -> s{_pbChecksum = a}) --- | If you set the @processBehavior@ element to @Build@ , Amazon Lex builds the bot so that it can be run. If you set the element to @Save@ Amazon Lex saves the bot, but doesn't build it.  If you don't specify this value, the default value is @Save@ .+-- | If you set the @processBehavior@ element to @BUILD@ , Amazon Lex builds the bot so that it can be run. If you set the element to @SAVE@ Amazon Lex saves the bot, but doesn't build it.  If you don't specify this value, the default value is @BUILD@ . pbProcessBehavior :: Lens' PutBot (Maybe ProcessBehavior)-pbProcessBehavior = lens _pbProcessBehavior (\ s a -> s{_pbProcessBehavior = a});+pbProcessBehavior = lens _pbProcessBehavior (\ s a -> s{_pbProcessBehavior = a})  -- | The maximum time in seconds that Amazon Lex retains the data gathered in a conversation. A user interaction session remains active for the amount of time specified. If no conversation occurs during this time, the session expires and Amazon Lex deletes any data provided before the timeout. For example, suppose that a user chooses the OrderPizza intent, but gets sidetracked halfway through placing an order. If the user doesn't complete the order within the specified time, Amazon Lex discards the slot information that it gathered, and the user must start over. If you don't include the @idleSessionTTLInSeconds@ element in a @PutBot@ operation request, Amazon Lex uses the default value. This is also true if the request replaces an existing bot. The default is 300 seconds (5 minutes). pbIdleSessionTTLInSeconds :: Lens' PutBot (Maybe Natural)-pbIdleSessionTTLInSeconds = lens _pbIdleSessionTTLInSeconds (\ s a -> s{_pbIdleSessionTTLInSeconds = a}) . mapping _Nat;+pbIdleSessionTTLInSeconds = lens _pbIdleSessionTTLInSeconds (\ s a -> s{_pbIdleSessionTTLInSeconds = a}) . mapping _Nat  -- | When Amazon Lex doesn't understand the user's intent, it uses this message to get clarification. To specify how many times Amazon Lex should repeate the clarification prompt, use the @maxAttempts@ field. If Amazon Lex still doesn't understand, it sends the message in the @abortStatement@ field.  When you create a clarification prompt, make sure that it suggests the correct response from the user. for example, for a bot that orders pizza and drinks, you might create this clarification prompt: "What would you like to do? You can say 'Order a pizza' or 'Order a drink.'" pbClarificationPrompt :: Lens' PutBot (Maybe Prompt)-pbClarificationPrompt = lens _pbClarificationPrompt (\ s a -> s{_pbClarificationPrompt = a});+pbClarificationPrompt = lens _pbClarificationPrompt (\ s a -> s{_pbClarificationPrompt = a})  -- | The Amazon Polly voice ID that you want Amazon Lex to use for voice interactions with the user. The locale configured for the voice must match the locale of the bot. For more information, see <http://docs.aws.amazon.com/polly/latest/dg/voicelist.html Available Voices> in the /Amazon Polly Developer Guide/ . pbVoiceId :: Lens' PutBot (Maybe Text)-pbVoiceId = lens _pbVoiceId (\ s a -> s{_pbVoiceId = a});+pbVoiceId = lens _pbVoiceId (\ s a -> s{_pbVoiceId = a}) +-- | Undocumented member.+pbCreateVersion :: Lens' PutBot (Maybe Bool)+pbCreateVersion = lens _pbCreateVersion (\ s a -> s{_pbCreateVersion = a})+ -- | A description of the bot. pbDescription :: Lens' PutBot (Maybe Text)-pbDescription = lens _pbDescription (\ s a -> s{_pbDescription = a});+pbDescription = lens _pbDescription (\ s a -> s{_pbDescription = a})  -- | The name of the bot. The name is /not/ case sensitive. pbName :: Lens' PutBot Text-pbName = lens _pbName (\ s a -> s{_pbName = a});+pbName = lens _pbName (\ s a -> s{_pbName = a})  -- | Specifies the target locale for the bot. Any intent used in the bot must be compatible with the locale of the bot.  The default is @en-US@ . pbLocale :: Lens' PutBot Locale-pbLocale = lens _pbLocale (\ s a -> s{_pbLocale = a});+pbLocale = lens _pbLocale (\ s a -> s{_pbLocale = a})  -- | For each Amazon Lex bot created with the Amazon Lex Model Building Service, you must specify whether your use of Amazon Lex is related to a website, program, or other application that is directed or targeted, in whole or in part, to children under age 13 and subject to the Children's Online Privacy Protection Act (COPPA) by specifying @true@ or @false@ in the @childDirected@ field. By specifying @true@ in the @childDirected@ field, you confirm that your use of Amazon Lex __is__ related to a website, program, or other application that is directed or targeted, in whole or in part, to children under age 13 and subject to COPPA. By specifying @false@ in the @childDirected@ field, you confirm that your use of Amazon Lex __is not__ related to a website, program, or other application that is directed or targeted, in whole or in part, to children under age 13 and subject to COPPA. You may not specify a default value for the @childDirected@ field that does not accurately reflect whether your use of Amazon Lex is related to a website, program, or other application that is directed or targeted, in whole or in part, to children under age 13 and subject to COPPA. If your use of Amazon Lex relates to a website, program, or other application that is directed in whole or in part, to children under age 13, you must obtain any required verifiable parental consent under COPPA. For information regarding the use of Amazon Lex in connection with websites, programs, or other applications that are directed or targeted, in whole or in part, to children under age 13, see the <https://aws.amazon.com/lex/faqs#data-security Amazon Lex FAQ.> pbChildDirected :: Lens' PutBot Bool-pbChildDirected = lens _pbChildDirected (\ s a -> s{_pbChildDirected = a});+pbChildDirected = lens _pbChildDirected (\ s a -> s{_pbChildDirected = a})  instance AWSRequest PutBot where         type Rs PutBot = PutBotResponse@@ -197,6 +207,7 @@                      <*> (x .?> "clarificationPrompt")                      <*> (x .?> "voiceId")                      <*> (x .?> "lastUpdatedDate")+                     <*> (x .?> "createVersion")                      <*> (x .?> "childDirected")                      <*> (x .?> "description")                      <*> (pure (fromEnum s)))@@ -225,6 +236,7 @@                   ("clarificationPrompt" .=) <$>                     _pbClarificationPrompt,                   ("voiceId" .=) <$> _pbVoiceId,+                  ("createVersion" .=) <$> _pbCreateVersion,                   ("description" .=) <$> _pbDescription,                   Just ("locale" .= _pbLocale),                   Just ("childDirected" .= _pbChildDirected)])@@ -252,6 +264,7 @@   , _pbrsClarificationPrompt     :: !(Maybe Prompt)   , _pbrsVoiceId                 :: !(Maybe Text)   , _pbrsLastUpdatedDate         :: !(Maybe POSIX)+  , _pbrsCreateVersion           :: !(Maybe Bool)   , _pbrsChildDirected           :: !(Maybe Bool)   , _pbrsDescription             :: !(Maybe Text)   , _pbrsResponseStatus          :: !Int@@ -288,6 +301,8 @@ -- -- * 'pbrsLastUpdatedDate' - The date that the bot was updated. When you create a resource, the creation date and last updated date are the same. --+-- * 'pbrsCreateVersion' - Undocumented member.+-- -- * 'pbrsChildDirected' - For each Amazon Lex bot created with the Amazon Lex Model Building Service, you must specify whether your use of Amazon Lex is related to a website, program, or other application that is directed or targeted, in whole or in part, to children under age 13 and subject to the Children's Online Privacy Protection Act (COPPA) by specifying @true@ or @false@ in the @childDirected@ field. By specifying @true@ in the @childDirected@ field, you confirm that your use of Amazon Lex __is__ related to a website, program, or other application that is directed or targeted, in whole or in part, to children under age 13 and subject to COPPA. By specifying @false@ in the @childDirected@ field, you confirm that your use of Amazon Lex __is not__ related to a website, program, or other application that is directed or targeted, in whole or in part, to children under age 13 and subject to COPPA. You may not specify a default value for the @childDirected@ field that does not accurately reflect whether your use of Amazon Lex is related to a website, program, or other application that is directed or targeted, in whole or in part, to children under age 13 and subject to COPPA. If your use of Amazon Lex relates to a website, program, or other application that is directed in whole or in part, to children under age 13, you must obtain any required verifiable parental consent under COPPA. For information regarding the use of Amazon Lex in connection with websites, programs, or other applications that are directed or targeted, in whole or in part, to children under age 13, see the <https://aws.amazon.com/lex/faqs#data-security Amazon Lex FAQ.> -- -- * 'pbrsDescription' - A description of the bot.@@ -298,87 +313,92 @@     -> PutBotResponse putBotResponse pResponseStatus_ =   PutBotResponse'-  { _pbrsFailureReason = Nothing-  , _pbrsStatus = Nothing-  , _pbrsAbortStatement = Nothing-  , _pbrsIntents = Nothing-  , _pbrsChecksum = Nothing-  , _pbrsLocale = Nothing-  , _pbrsCreatedDate = Nothing-  , _pbrsName = Nothing-  , _pbrsVersion = Nothing-  , _pbrsIdleSessionTTLInSeconds = Nothing-  , _pbrsClarificationPrompt = Nothing-  , _pbrsVoiceId = Nothing-  , _pbrsLastUpdatedDate = Nothing-  , _pbrsChildDirected = Nothing-  , _pbrsDescription = Nothing-  , _pbrsResponseStatus = pResponseStatus_-  }+    { _pbrsFailureReason = Nothing+    , _pbrsStatus = Nothing+    , _pbrsAbortStatement = Nothing+    , _pbrsIntents = Nothing+    , _pbrsChecksum = Nothing+    , _pbrsLocale = Nothing+    , _pbrsCreatedDate = Nothing+    , _pbrsName = Nothing+    , _pbrsVersion = Nothing+    , _pbrsIdleSessionTTLInSeconds = Nothing+    , _pbrsClarificationPrompt = Nothing+    , _pbrsVoiceId = Nothing+    , _pbrsLastUpdatedDate = Nothing+    , _pbrsCreateVersion = Nothing+    , _pbrsChildDirected = Nothing+    , _pbrsDescription = Nothing+    , _pbrsResponseStatus = pResponseStatus_+    }   -- | If @status@ is @FAILED@ , Amazon Lex provides the reason that it failed to build the bot. pbrsFailureReason :: Lens' PutBotResponse (Maybe Text)-pbrsFailureReason = lens _pbrsFailureReason (\ s a -> s{_pbrsFailureReason = a});+pbrsFailureReason = lens _pbrsFailureReason (\ s a -> s{_pbrsFailureReason = a})  -- | When you send a request to create a bot with @processBehavior@ set to @BUILD@ , Amazon Lex sets the @status@ response element to @BUILDING@ . After Amazon Lex builds the bot, it sets @status@ to @READY@ . If Amazon Lex can't build the bot, Amazon Lex sets @status@ to @FAILED@ . Amazon Lex returns the reason for the failure in the @failureReason@ response element.  When you set @processBehavior@ to @SAVE@ , Amazon Lex sets the status code to @NOT BUILT@ . pbrsStatus :: Lens' PutBotResponse (Maybe LexStatus)-pbrsStatus = lens _pbrsStatus (\ s a -> s{_pbrsStatus = a});+pbrsStatus = lens _pbrsStatus (\ s a -> s{_pbrsStatus = a})  -- | The message that Amazon Lex uses to abort a conversation. For more information, see 'PutBot' . pbrsAbortStatement :: Lens' PutBotResponse (Maybe Statement)-pbrsAbortStatement = lens _pbrsAbortStatement (\ s a -> s{_pbrsAbortStatement = a});+pbrsAbortStatement = lens _pbrsAbortStatement (\ s a -> s{_pbrsAbortStatement = a})  -- | An array of @Intent@ objects. For more information, see 'PutBot' . pbrsIntents :: Lens' PutBotResponse [Intent]-pbrsIntents = lens _pbrsIntents (\ s a -> s{_pbrsIntents = a}) . _Default . _Coerce;+pbrsIntents = lens _pbrsIntents (\ s a -> s{_pbrsIntents = a}) . _Default . _Coerce  -- | Checksum of the bot that you created. pbrsChecksum :: Lens' PutBotResponse (Maybe Text)-pbrsChecksum = lens _pbrsChecksum (\ s a -> s{_pbrsChecksum = a});+pbrsChecksum = lens _pbrsChecksum (\ s a -> s{_pbrsChecksum = a})  -- | The target locale for the bot. pbrsLocale :: Lens' PutBotResponse (Maybe Locale)-pbrsLocale = lens _pbrsLocale (\ s a -> s{_pbrsLocale = a});+pbrsLocale = lens _pbrsLocale (\ s a -> s{_pbrsLocale = a})  -- | The date that the bot was created. pbrsCreatedDate :: Lens' PutBotResponse (Maybe UTCTime)-pbrsCreatedDate = lens _pbrsCreatedDate (\ s a -> s{_pbrsCreatedDate = a}) . mapping _Time;+pbrsCreatedDate = lens _pbrsCreatedDate (\ s a -> s{_pbrsCreatedDate = a}) . mapping _Time  -- | The name of the bot. pbrsName :: Lens' PutBotResponse (Maybe Text)-pbrsName = lens _pbrsName (\ s a -> s{_pbrsName = a});+pbrsName = lens _pbrsName (\ s a -> s{_pbrsName = a})  -- | The version of the bot. For a new bot, the version is always @> LATEST@ . pbrsVersion :: Lens' PutBotResponse (Maybe Text)-pbrsVersion = lens _pbrsVersion (\ s a -> s{_pbrsVersion = a});+pbrsVersion = lens _pbrsVersion (\ s a -> s{_pbrsVersion = a})  -- | The maximum length of time that Amazon Lex retains the data gathered in a conversation. For more information, see 'PutBot' . pbrsIdleSessionTTLInSeconds :: Lens' PutBotResponse (Maybe Natural)-pbrsIdleSessionTTLInSeconds = lens _pbrsIdleSessionTTLInSeconds (\ s a -> s{_pbrsIdleSessionTTLInSeconds = a}) . mapping _Nat;+pbrsIdleSessionTTLInSeconds = lens _pbrsIdleSessionTTLInSeconds (\ s a -> s{_pbrsIdleSessionTTLInSeconds = a}) . mapping _Nat  -- | The prompts that Amazon Lex uses when it doesn't understand the user's intent. For more information, see 'PutBot' . pbrsClarificationPrompt :: Lens' PutBotResponse (Maybe Prompt)-pbrsClarificationPrompt = lens _pbrsClarificationPrompt (\ s a -> s{_pbrsClarificationPrompt = a});+pbrsClarificationPrompt = lens _pbrsClarificationPrompt (\ s a -> s{_pbrsClarificationPrompt = a})  -- | The Amazon Polly voice ID that Amazon Lex uses for voice interaction with the user. For more information, see 'PutBot' . pbrsVoiceId :: Lens' PutBotResponse (Maybe Text)-pbrsVoiceId = lens _pbrsVoiceId (\ s a -> s{_pbrsVoiceId = a});+pbrsVoiceId = lens _pbrsVoiceId (\ s a -> s{_pbrsVoiceId = a})  -- | The date that the bot was updated. When you create a resource, the creation date and last updated date are the same. pbrsLastUpdatedDate :: Lens' PutBotResponse (Maybe UTCTime)-pbrsLastUpdatedDate = lens _pbrsLastUpdatedDate (\ s a -> s{_pbrsLastUpdatedDate = a}) . mapping _Time;+pbrsLastUpdatedDate = lens _pbrsLastUpdatedDate (\ s a -> s{_pbrsLastUpdatedDate = a}) . mapping _Time +-- | Undocumented member.+pbrsCreateVersion :: Lens' PutBotResponse (Maybe Bool)+pbrsCreateVersion = lens _pbrsCreateVersion (\ s a -> s{_pbrsCreateVersion = a})+ -- | For each Amazon Lex bot created with the Amazon Lex Model Building Service, you must specify whether your use of Amazon Lex is related to a website, program, or other application that is directed or targeted, in whole or in part, to children under age 13 and subject to the Children's Online Privacy Protection Act (COPPA) by specifying @true@ or @false@ in the @childDirected@ field. By specifying @true@ in the @childDirected@ field, you confirm that your use of Amazon Lex __is__ related to a website, program, or other application that is directed or targeted, in whole or in part, to children under age 13 and subject to COPPA. By specifying @false@ in the @childDirected@ field, you confirm that your use of Amazon Lex __is not__ related to a website, program, or other application that is directed or targeted, in whole or in part, to children under age 13 and subject to COPPA. You may not specify a default value for the @childDirected@ field that does not accurately reflect whether your use of Amazon Lex is related to a website, program, or other application that is directed or targeted, in whole or in part, to children under age 13 and subject to COPPA. If your use of Amazon Lex relates to a website, program, or other application that is directed in whole or in part, to children under age 13, you must obtain any required verifiable parental consent under COPPA. For information regarding the use of Amazon Lex in connection with websites, programs, or other applications that are directed or targeted, in whole or in part, to children under age 13, see the <https://aws.amazon.com/lex/faqs#data-security Amazon Lex FAQ.> pbrsChildDirected :: Lens' PutBotResponse (Maybe Bool)-pbrsChildDirected = lens _pbrsChildDirected (\ s a -> s{_pbrsChildDirected = a});+pbrsChildDirected = lens _pbrsChildDirected (\ s a -> s{_pbrsChildDirected = a})  -- | A description of the bot. pbrsDescription :: Lens' PutBotResponse (Maybe Text)-pbrsDescription = lens _pbrsDescription (\ s a -> s{_pbrsDescription = a});+pbrsDescription = lens _pbrsDescription (\ s a -> s{_pbrsDescription = a})  -- | -- | The response status code. pbrsResponseStatus :: Lens' PutBotResponse Int-pbrsResponseStatus = lens _pbrsResponseStatus (\ s a -> s{_pbrsResponseStatus = a});+pbrsResponseStatus = lens _pbrsResponseStatus (\ s a -> s{_pbrsResponseStatus = a})  instance NFData PutBotResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.PutBotAlias--- 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@@ -86,33 +86,33 @@     -> PutBotAlias putBotAlias pName_ pBotVersion_ pBotName_ =   PutBotAlias'-  { _pbaChecksum = Nothing-  , _pbaDescription = Nothing-  , _pbaName = pName_-  , _pbaBotVersion = pBotVersion_-  , _pbaBotName = pBotName_-  }+    { _pbaChecksum = Nothing+    , _pbaDescription = Nothing+    , _pbaName = pName_+    , _pbaBotVersion = pBotVersion_+    , _pbaBotName = pBotName_+    }   -- | Identifies a specific revision of the @> LATEST@ version. When you create a new bot alias, leave the @checksum@ field blank. If you specify a checksum you get a @BadRequestException@ exception. When you want to update a bot alias, set the @checksum@ field to the checksum of the most recent revision of the @> LATEST@ version. If you don't specify the @checksum@ field, or if the checksum does not match the @> LATEST@ version, you get a @PreconditionFailedException@ exception. pbaChecksum :: Lens' PutBotAlias (Maybe Text)-pbaChecksum = lens _pbaChecksum (\ s a -> s{_pbaChecksum = a});+pbaChecksum = lens _pbaChecksum (\ s a -> s{_pbaChecksum = a})  -- | A description of the alias. pbaDescription :: Lens' PutBotAlias (Maybe Text)-pbaDescription = lens _pbaDescription (\ s a -> s{_pbaDescription = a});+pbaDescription = lens _pbaDescription (\ s a -> s{_pbaDescription = a})  -- | The name of the alias. The name is /not/ case sensitive. pbaName :: Lens' PutBotAlias Text-pbaName = lens _pbaName (\ s a -> s{_pbaName = a});+pbaName = lens _pbaName (\ s a -> s{_pbaName = a})  -- | The version of the bot. pbaBotVersion :: Lens' PutBotAlias Text-pbaBotVersion = lens _pbaBotVersion (\ s a -> s{_pbaBotVersion = a});+pbaBotVersion = lens _pbaBotVersion (\ s a -> s{_pbaBotVersion = a})  -- | The name of the bot. pbaBotName :: Lens' PutBotAlias Text-pbaBotName = lens _pbaBotName (\ s a -> s{_pbaBotName = a});+pbaBotName = lens _pbaBotName (\ s a -> s{_pbaBotName = a})  instance AWSRequest PutBotAlias where         type Rs PutBotAlias = PutBotAliasResponse@@ -194,47 +194,47 @@     -> PutBotAliasResponse putBotAliasResponse pResponseStatus_ =   PutBotAliasResponse'-  { _pbarsChecksum = Nothing-  , _pbarsBotVersion = Nothing-  , _pbarsBotName = Nothing-  , _pbarsCreatedDate = Nothing-  , _pbarsName = Nothing-  , _pbarsLastUpdatedDate = Nothing-  , _pbarsDescription = Nothing-  , _pbarsResponseStatus = pResponseStatus_-  }+    { _pbarsChecksum = Nothing+    , _pbarsBotVersion = Nothing+    , _pbarsBotName = Nothing+    , _pbarsCreatedDate = Nothing+    , _pbarsName = Nothing+    , _pbarsLastUpdatedDate = Nothing+    , _pbarsDescription = Nothing+    , _pbarsResponseStatus = pResponseStatus_+    }   -- | The checksum for the current version of the alias. pbarsChecksum :: Lens' PutBotAliasResponse (Maybe Text)-pbarsChecksum = lens _pbarsChecksum (\ s a -> s{_pbarsChecksum = a});+pbarsChecksum = lens _pbarsChecksum (\ s a -> s{_pbarsChecksum = a})  -- | The version of the bot that the alias points to. pbarsBotVersion :: Lens' PutBotAliasResponse (Maybe Text)-pbarsBotVersion = lens _pbarsBotVersion (\ s a -> s{_pbarsBotVersion = a});+pbarsBotVersion = lens _pbarsBotVersion (\ s a -> s{_pbarsBotVersion = a})  -- | The name of the bot that the alias points to. pbarsBotName :: Lens' PutBotAliasResponse (Maybe Text)-pbarsBotName = lens _pbarsBotName (\ s a -> s{_pbarsBotName = a});+pbarsBotName = lens _pbarsBotName (\ s a -> s{_pbarsBotName = a})  -- | The date that the bot alias was created. pbarsCreatedDate :: Lens' PutBotAliasResponse (Maybe UTCTime)-pbarsCreatedDate = lens _pbarsCreatedDate (\ s a -> s{_pbarsCreatedDate = a}) . mapping _Time;+pbarsCreatedDate = lens _pbarsCreatedDate (\ s a -> s{_pbarsCreatedDate = a}) . mapping _Time  -- | The name of the alias. pbarsName :: Lens' PutBotAliasResponse (Maybe Text)-pbarsName = lens _pbarsName (\ s a -> s{_pbarsName = a});+pbarsName = lens _pbarsName (\ s a -> s{_pbarsName = a})  -- | The date that the bot alias was updated. When you create a resource, the creation date and the last updated date are the same. pbarsLastUpdatedDate :: Lens' PutBotAliasResponse (Maybe UTCTime)-pbarsLastUpdatedDate = lens _pbarsLastUpdatedDate (\ s a -> s{_pbarsLastUpdatedDate = a}) . mapping _Time;+pbarsLastUpdatedDate = lens _pbarsLastUpdatedDate (\ s a -> s{_pbarsLastUpdatedDate = a}) . mapping _Time  -- | A description of the alias. pbarsDescription :: Lens' PutBotAliasResponse (Maybe Text)-pbarsDescription = lens _pbarsDescription (\ s a -> s{_pbarsDescription = a});+pbarsDescription = lens _pbarsDescription (\ s a -> s{_pbarsDescription = a})  -- | -- | The response status code. pbarsResponseStatus :: Lens' PutBotAliasResponse Int-pbarsResponseStatus = lens _pbarsResponseStatus (\ s a -> s{_pbarsResponseStatus = a});+pbarsResponseStatus = lens _pbarsResponseStatus (\ s a -> s{_pbarsResponseStatus = a})  instance NFData PutBotAliasResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.PutIntent--- 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@@ -45,7 +45,7 @@ -- -- ----- If you specify an existing intent name to update the intent, Amazon Lex replaces the values in the @> LATEST@ version of the slot type with the values in the request. Amazon Lex removes fields that you don't provide in the request. If you don't specify the required fields, Amazon Lex throws an exception.+-- If you specify an existing intent name to update the intent, Amazon Lex replaces the values in the @> LATEST@ version of the intent with the values in the request. Amazon Lex removes fields that you don't provide in the request. If you don't specify the required fields, Amazon Lex throws an exception. When you update the @> LATEST@ version of an intent, the @status@ field of any bot that uses the @> LATEST@ version of the intent is set to @NOT_BUILT@ . -- -- For more information, see 'how-it-works' . --@@ -66,6 +66,7 @@     , piParentIntentSignature     , piFollowUpPrompt     , piConfirmationPrompt+    , piCreateVersion     , piDialogCodeHook     , piDescription     , piName@@ -87,6 +88,7 @@     , pirsFollowUpPrompt     , pirsLastUpdatedDate     , pirsConfirmationPrompt+    , pirsCreateVersion     , pirsDialogCodeHook     , pirsDescription     , pirsResponseStatus@@ -110,6 +112,7 @@   , _piParentIntentSignature :: !(Maybe Text)   , _piFollowUpPrompt        :: !(Maybe FollowUpPrompt)   , _piConfirmationPrompt    :: !(Maybe Prompt)+  , _piCreateVersion         :: !(Maybe Bool)   , _piDialogCodeHook        :: !(Maybe CodeHook)   , _piDescription           :: !(Maybe Text)   , _piName                  :: !Text@@ -138,6 +141,8 @@ -- -- * 'piConfirmationPrompt' - Prompts the user to confirm the intent. This question should have a yes or no answer. Amazon Lex uses this prompt to ensure that the user acknowledges that the intent is ready for fulfillment. For example, with the @OrderPizza@ intent, you might want to confirm that the order is correct before placing it. For other intents, such as intents that simply respond to user questions, you might not need to ask the user for confirmation before providing the information. --+-- * 'piCreateVersion' - Undocumented member.+-- -- * 'piDialogCodeHook' - Specifies a Lambda function to invoke for each user input. You can invoke this Lambda function to personalize user interaction.  For example, suppose your bot determines that the user is John. Your Lambda function might retrieve John's information from a backend database and prepopulate some of the values. For example, if you find that John is gluten intolerant, you might set the corresponding intent slot, @GlutenIntolerant@ , to true. You might find John's phone number and set the corresponding session attribute. -- -- * 'piDescription' - A description of the intent.@@ -148,68 +153,73 @@     -> PutIntent putIntent pName_ =   PutIntent'-  { _piFulfillmentActivity = Nothing-  , _piSlots = Nothing-  , _piRejectionStatement = Nothing-  , _piChecksum = Nothing-  , _piConclusionStatement = Nothing-  , _piSampleUtterances = Nothing-  , _piParentIntentSignature = Nothing-  , _piFollowUpPrompt = Nothing-  , _piConfirmationPrompt = Nothing-  , _piDialogCodeHook = Nothing-  , _piDescription = Nothing-  , _piName = pName_-  }+    { _piFulfillmentActivity = Nothing+    , _piSlots = Nothing+    , _piRejectionStatement = Nothing+    , _piChecksum = Nothing+    , _piConclusionStatement = Nothing+    , _piSampleUtterances = Nothing+    , _piParentIntentSignature = Nothing+    , _piFollowUpPrompt = Nothing+    , _piConfirmationPrompt = Nothing+    , _piCreateVersion = Nothing+    , _piDialogCodeHook = Nothing+    , _piDescription = Nothing+    , _piName = pName_+    }   -- | Required. Describes how the intent is fulfilled. For example, after a user provides all of the information for a pizza order, @fulfillmentActivity@ defines how the bot places an order with a local pizza store.  You might configure Amazon Lex to return all of the intent information to the client application, or direct it to invoke a Lambda function that can process the intent (for example, place an order with a pizzeria). piFulfillmentActivity :: Lens' PutIntent (Maybe FulfillmentActivity)-piFulfillmentActivity = lens _piFulfillmentActivity (\ s a -> s{_piFulfillmentActivity = a});+piFulfillmentActivity = lens _piFulfillmentActivity (\ s a -> s{_piFulfillmentActivity = a})  -- | An array of intent slots. At runtime, Amazon Lex elicits required slot values from the user using prompts defined in the slots. For more information, see 'how-it-works' . piSlots :: Lens' PutIntent [Slot]-piSlots = lens _piSlots (\ s a -> s{_piSlots = a}) . _Default . _Coerce;+piSlots = lens _piSlots (\ s a -> s{_piSlots = a}) . _Default . _Coerce  -- | When the user answers "no" to the question defined in @confirmationPrompt@ , Amazon Lex responds with this statement to acknowledge that the intent was canceled. piRejectionStatement :: Lens' PutIntent (Maybe Statement)-piRejectionStatement = lens _piRejectionStatement (\ s a -> s{_piRejectionStatement = a});+piRejectionStatement = lens _piRejectionStatement (\ s a -> s{_piRejectionStatement = a})  -- | Identifies a specific revision of the @> LATEST@ version. When you create a new intent, leave the @checksum@ field blank. If you specify a checksum you get a @BadRequestException@ exception. When you want to update a intent, set the @checksum@ field to the checksum of the most recent revision of the @> LATEST@ version. If you don't specify the @checksum@ field, or if the checksum does not match the @> LATEST@ version, you get a @PreconditionFailedException@ exception. piChecksum :: Lens' PutIntent (Maybe Text)-piChecksum = lens _piChecksum (\ s a -> s{_piChecksum = a});+piChecksum = lens _piChecksum (\ s a -> s{_piChecksum = a})  -- | The statement that you want Amazon Lex to convey to the user after the intent is successfully fulfilled by the Lambda function.  This element is relevant only if you provide a Lambda function in the @fulfillmentActivity@ . If you return the intent to the client application, you can't specify this element. piConclusionStatement :: Lens' PutIntent (Maybe Statement)-piConclusionStatement = lens _piConclusionStatement (\ s a -> s{_piConclusionStatement = a});+piConclusionStatement = lens _piConclusionStatement (\ s a -> s{_piConclusionStatement = a})  -- | An array of utterances (strings) that a user might say to signal the intent. For example, "I want {PizzaSize} pizza", "Order {Quantity} {PizzaSize} pizzas".  In each utterance, a slot name is enclosed in curly braces. piSampleUtterances :: Lens' PutIntent [Text]-piSampleUtterances = lens _piSampleUtterances (\ s a -> s{_piSampleUtterances = a}) . _Default . _Coerce;+piSampleUtterances = lens _piSampleUtterances (\ s a -> s{_piSampleUtterances = a}) . _Default . _Coerce  -- | A unique identifier for the built-in intent to base this intent on. To find the signature for an intent, see <https://developer.amazon.com/public/solutions/alexa/alexa-skills-kit/docs/built-in-intent-ref/standard-intents Standard Built-in Intents> in the /Alexa Skills Kit/ . piParentIntentSignature :: Lens' PutIntent (Maybe Text)-piParentIntentSignature = lens _piParentIntentSignature (\ s a -> s{_piParentIntentSignature = a});+piParentIntentSignature = lens _piParentIntentSignature (\ s a -> s{_piParentIntentSignature = a})  -- | Amazon Lex uses this prompt to solicit additional activity after fulfilling an intent. For example, after the @OrderPizza@ intent is fulfilled, you might prompt the user to order a drink. The action that Amazon Lex takes depends on the user's response, as follows:     * If the user says "Yes" it responds with the clarification prompt that is configured for the bot.     * if the user says "Yes" and continues with an utterance that triggers an intent it starts a conversation for the intent.     * If the user says "No" it responds with the rejection statement configured for the the follow-up prompt.     * If it doesn't recognize the utterance it repeats the follow-up prompt again. The @followUpPrompt@ field and the @conclusionStatement@ field are mutually exclusive. You can specify only one. piFollowUpPrompt :: Lens' PutIntent (Maybe FollowUpPrompt)-piFollowUpPrompt = lens _piFollowUpPrompt (\ s a -> s{_piFollowUpPrompt = a});+piFollowUpPrompt = lens _piFollowUpPrompt (\ s a -> s{_piFollowUpPrompt = a})  -- | Prompts the user to confirm the intent. This question should have a yes or no answer. Amazon Lex uses this prompt to ensure that the user acknowledges that the intent is ready for fulfillment. For example, with the @OrderPizza@ intent, you might want to confirm that the order is correct before placing it. For other intents, such as intents that simply respond to user questions, you might not need to ask the user for confirmation before providing the information. piConfirmationPrompt :: Lens' PutIntent (Maybe Prompt)-piConfirmationPrompt = lens _piConfirmationPrompt (\ s a -> s{_piConfirmationPrompt = a});+piConfirmationPrompt = lens _piConfirmationPrompt (\ s a -> s{_piConfirmationPrompt = a}) +-- | Undocumented member.+piCreateVersion :: Lens' PutIntent (Maybe Bool)+piCreateVersion = lens _piCreateVersion (\ s a -> s{_piCreateVersion = a})+ -- | Specifies a Lambda function to invoke for each user input. You can invoke this Lambda function to personalize user interaction.  For example, suppose your bot determines that the user is John. Your Lambda function might retrieve John's information from a backend database and prepopulate some of the values. For example, if you find that John is gluten intolerant, you might set the corresponding intent slot, @GlutenIntolerant@ , to true. You might find John's phone number and set the corresponding session attribute. piDialogCodeHook :: Lens' PutIntent (Maybe CodeHook)-piDialogCodeHook = lens _piDialogCodeHook (\ s a -> s{_piDialogCodeHook = a});+piDialogCodeHook = lens _piDialogCodeHook (\ s a -> s{_piDialogCodeHook = a})  -- | A description of the intent. piDescription :: Lens' PutIntent (Maybe Text)-piDescription = lens _piDescription (\ s a -> s{_piDescription = a});+piDescription = lens _piDescription (\ s a -> s{_piDescription = a})  -- | The name of the intent. The name is /not/ case sensitive.  The name can't match a built-in intent name, or a built-in intent name with "AMAZON." removed. For example, because there is a built-in intent called @AMAZON.HelpIntent@ , you can't create a custom intent called @HelpIntent@ . For a list of built-in intents, see <https://developer.amazon.com/public/solutions/alexa/alexa-skills-kit/docs/built-in-intent-ref/standard-intents Standard Built-in Intents> in the /Alexa Skills Kit/ . piName :: Lens' PutIntent Text-piName = lens _piName (\ s a -> s{_piName = a});+piName = lens _piName (\ s a -> s{_piName = a})  instance AWSRequest PutIntent where         type Rs PutIntent = PutIntentResponse@@ -231,6 +241,7 @@                      <*> (x .?> "followUpPrompt")                      <*> (x .?> "lastUpdatedDate")                      <*> (x .?> "confirmationPrompt")+                     <*> (x .?> "createVersion")                      <*> (x .?> "dialogCodeHook")                      <*> (x .?> "description")                      <*> (pure (fromEnum s)))@@ -262,6 +273,7 @@                     _piParentIntentSignature,                   ("followUpPrompt" .=) <$> _piFollowUpPrompt,                   ("confirmationPrompt" .=) <$> _piConfirmationPrompt,+                  ("createVersion" .=) <$> _piCreateVersion,                   ("dialogCodeHook" .=) <$> _piDialogCodeHook,                   ("description" .=) <$> _piDescription]) @@ -288,6 +300,7 @@   , _pirsFollowUpPrompt        :: !(Maybe FollowUpPrompt)   , _pirsLastUpdatedDate       :: !(Maybe POSIX)   , _pirsConfirmationPrompt    :: !(Maybe Prompt)+  , _pirsCreateVersion         :: !(Maybe Bool)   , _pirsDialogCodeHook        :: !(Maybe CodeHook)   , _pirsDescription           :: !(Maybe Text)   , _pirsResponseStatus        :: !Int@@ -324,6 +337,8 @@ -- -- * 'pirsConfirmationPrompt' - If defined in the intent, Amazon Lex prompts the user to confirm the intent before fulfilling it. --+-- * 'pirsCreateVersion' - Undocumented member.+-- -- * 'pirsDialogCodeHook' - If defined in the intent, Amazon Lex invokes this Lambda function for each user input. -- -- * 'pirsDescription' - A description of the intent.@@ -334,87 +349,92 @@     -> PutIntentResponse putIntentResponse pResponseStatus_ =   PutIntentResponse'-  { _pirsFulfillmentActivity = Nothing-  , _pirsSlots = Nothing-  , _pirsRejectionStatement = Nothing-  , _pirsChecksum = Nothing-  , _pirsConclusionStatement = Nothing-  , _pirsSampleUtterances = Nothing-  , _pirsParentIntentSignature = Nothing-  , _pirsCreatedDate = Nothing-  , _pirsName = Nothing-  , _pirsVersion = Nothing-  , _pirsFollowUpPrompt = Nothing-  , _pirsLastUpdatedDate = Nothing-  , _pirsConfirmationPrompt = Nothing-  , _pirsDialogCodeHook = Nothing-  , _pirsDescription = Nothing-  , _pirsResponseStatus = pResponseStatus_-  }+    { _pirsFulfillmentActivity = Nothing+    , _pirsSlots = Nothing+    , _pirsRejectionStatement = Nothing+    , _pirsChecksum = Nothing+    , _pirsConclusionStatement = Nothing+    , _pirsSampleUtterances = Nothing+    , _pirsParentIntentSignature = Nothing+    , _pirsCreatedDate = Nothing+    , _pirsName = Nothing+    , _pirsVersion = Nothing+    , _pirsFollowUpPrompt = Nothing+    , _pirsLastUpdatedDate = Nothing+    , _pirsConfirmationPrompt = Nothing+    , _pirsCreateVersion = Nothing+    , _pirsDialogCodeHook = Nothing+    , _pirsDescription = Nothing+    , _pirsResponseStatus = pResponseStatus_+    }   -- | If defined in the intent, Amazon Lex invokes this Lambda function to fulfill the intent after the user provides all of the information required by the intent. pirsFulfillmentActivity :: Lens' PutIntentResponse (Maybe FulfillmentActivity)-pirsFulfillmentActivity = lens _pirsFulfillmentActivity (\ s a -> s{_pirsFulfillmentActivity = a});+pirsFulfillmentActivity = lens _pirsFulfillmentActivity (\ s a -> s{_pirsFulfillmentActivity = a})  -- | An array of intent slots that are configured for the intent. pirsSlots :: Lens' PutIntentResponse [Slot]-pirsSlots = lens _pirsSlots (\ s a -> s{_pirsSlots = a}) . _Default . _Coerce;+pirsSlots = lens _pirsSlots (\ s a -> s{_pirsSlots = a}) . _Default . _Coerce  -- | If the user answers "no" to the question defined in @confirmationPrompt@ Amazon Lex responds with this statement to acknowledge that the intent was canceled. pirsRejectionStatement :: Lens' PutIntentResponse (Maybe Statement)-pirsRejectionStatement = lens _pirsRejectionStatement (\ s a -> s{_pirsRejectionStatement = a});+pirsRejectionStatement = lens _pirsRejectionStatement (\ s a -> s{_pirsRejectionStatement = a})  -- | Checksum of the @> LATEST@ version of the intent created or updated. pirsChecksum :: Lens' PutIntentResponse (Maybe Text)-pirsChecksum = lens _pirsChecksum (\ s a -> s{_pirsChecksum = a});+pirsChecksum = lens _pirsChecksum (\ s a -> s{_pirsChecksum = a})  -- | After the Lambda function specified in the@fulfillmentActivity@ intent fulfills the intent, Amazon Lex conveys this statement to the user. pirsConclusionStatement :: Lens' PutIntentResponse (Maybe Statement)-pirsConclusionStatement = lens _pirsConclusionStatement (\ s a -> s{_pirsConclusionStatement = a});+pirsConclusionStatement = lens _pirsConclusionStatement (\ s a -> s{_pirsConclusionStatement = a})  -- | An array of sample utterances that are configured for the intent. pirsSampleUtterances :: Lens' PutIntentResponse [Text]-pirsSampleUtterances = lens _pirsSampleUtterances (\ s a -> s{_pirsSampleUtterances = a}) . _Default . _Coerce;+pirsSampleUtterances = lens _pirsSampleUtterances (\ s a -> s{_pirsSampleUtterances = a}) . _Default . _Coerce  -- | A unique identifier for the built-in intent that this intent is based on. pirsParentIntentSignature :: Lens' PutIntentResponse (Maybe Text)-pirsParentIntentSignature = lens _pirsParentIntentSignature (\ s a -> s{_pirsParentIntentSignature = a});+pirsParentIntentSignature = lens _pirsParentIntentSignature (\ s a -> s{_pirsParentIntentSignature = a})  -- | The date that the intent was created. pirsCreatedDate :: Lens' PutIntentResponse (Maybe UTCTime)-pirsCreatedDate = lens _pirsCreatedDate (\ s a -> s{_pirsCreatedDate = a}) . mapping _Time;+pirsCreatedDate = lens _pirsCreatedDate (\ s a -> s{_pirsCreatedDate = a}) . mapping _Time  -- | The name of the intent. pirsName :: Lens' PutIntentResponse (Maybe Text)-pirsName = lens _pirsName (\ s a -> s{_pirsName = a});+pirsName = lens _pirsName (\ s a -> s{_pirsName = a})  -- | The version of the intent. For a new intent, the version is always @> LATEST@ . pirsVersion :: Lens' PutIntentResponse (Maybe Text)-pirsVersion = lens _pirsVersion (\ s a -> s{_pirsVersion = a});+pirsVersion = lens _pirsVersion (\ s a -> s{_pirsVersion = a})  -- | If defined in the intent, Amazon Lex uses this prompt to solicit additional user activity after the intent is fulfilled. pirsFollowUpPrompt :: Lens' PutIntentResponse (Maybe FollowUpPrompt)-pirsFollowUpPrompt = lens _pirsFollowUpPrompt (\ s a -> s{_pirsFollowUpPrompt = a});+pirsFollowUpPrompt = lens _pirsFollowUpPrompt (\ s a -> s{_pirsFollowUpPrompt = a})  -- | The date that the intent was updated. When you create a resource, the creation date and last update dates are the same. pirsLastUpdatedDate :: Lens' PutIntentResponse (Maybe UTCTime)-pirsLastUpdatedDate = lens _pirsLastUpdatedDate (\ s a -> s{_pirsLastUpdatedDate = a}) . mapping _Time;+pirsLastUpdatedDate = lens _pirsLastUpdatedDate (\ s a -> s{_pirsLastUpdatedDate = a}) . mapping _Time  -- | If defined in the intent, Amazon Lex prompts the user to confirm the intent before fulfilling it. pirsConfirmationPrompt :: Lens' PutIntentResponse (Maybe Prompt)-pirsConfirmationPrompt = lens _pirsConfirmationPrompt (\ s a -> s{_pirsConfirmationPrompt = a});+pirsConfirmationPrompt = lens _pirsConfirmationPrompt (\ s a -> s{_pirsConfirmationPrompt = a}) +-- | Undocumented member.+pirsCreateVersion :: Lens' PutIntentResponse (Maybe Bool)+pirsCreateVersion = lens _pirsCreateVersion (\ s a -> s{_pirsCreateVersion = a})+ -- | If defined in the intent, Amazon Lex invokes this Lambda function for each user input. pirsDialogCodeHook :: Lens' PutIntentResponse (Maybe CodeHook)-pirsDialogCodeHook = lens _pirsDialogCodeHook (\ s a -> s{_pirsDialogCodeHook = a});+pirsDialogCodeHook = lens _pirsDialogCodeHook (\ s a -> s{_pirsDialogCodeHook = a})  -- | A description of the intent. pirsDescription :: Lens' PutIntentResponse (Maybe Text)-pirsDescription = lens _pirsDescription (\ s a -> s{_pirsDescription = a});+pirsDescription = lens _pirsDescription (\ s a -> s{_pirsDescription = a})  -- | -- | The response status code. pirsResponseStatus :: Lens' PutIntentResponse Int-pirsResponseStatus = lens _pirsResponseStatus (\ s a -> s{_pirsResponseStatus = a});+pirsResponseStatus = lens _pirsResponseStatus (\ s a -> s{_pirsResponseStatus = a})  instance NFData PutIntentResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.LexModels.PutSlotType--- 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@@ -23,7 +23,7 @@ -- -- To create a custom slot type, specify a name for the slot type and a set of enumeration values, which are the values that a slot of this type can assume. For more information, see 'how-it-works' . ----- If you specify the name of an existing slot type, the fields in the request replace the existing values in the @> LATEST@ version of the slot type. Amazon Lex removes the fields that you don't provide in the request. If you don't specify required fields, Amazon Lex throws an exception.+-- If you specify the name of an existing slot type, the fields in the request replace the existing values in the @> LATEST@ version of the slot type. Amazon Lex removes the fields that you don't provide in the request. If you don't specify required fields, Amazon Lex throws an exception. When you update the @> LATEST@ version of a slot type, if a bot uses the @> LATEST@ version of an intent that contains the slot type, the bot's @status@ field is set to @NOT_BUILT@ . -- -- This operation requires permissions for the @lex:PutSlotType@ action. --@@ -35,6 +35,7 @@     -- * Request Lenses     , pstChecksum     , pstValueSelectionStrategy+    , pstCreateVersion     , pstDescription     , pstEnumerationValues     , pstName@@ -49,6 +50,7 @@     , pstrsName     , pstrsVersion     , pstrsLastUpdatedDate+    , pstrsCreateVersion     , pstrsDescription     , pstrsEnumerationValues     , pstrsResponseStatus@@ -65,6 +67,7 @@ data PutSlotType = PutSlotType'   { _pstChecksum               :: !(Maybe Text)   , _pstValueSelectionStrategy :: !(Maybe SlotValueSelectionStrategy)+  , _pstCreateVersion          :: !(Maybe Bool)   , _pstDescription            :: !(Maybe Text)   , _pstEnumerationValues      :: !(Maybe (List1 EnumerationValue))   , _pstName                   :: !Text@@ -79,6 +82,8 @@ -- -- * 'pstValueSelectionStrategy' - Determines the slot resolution strategy that Amazon Lex uses to return slot type values. The field can be set to one of the following values:     * @ORIGINAL_VALUE@ - Returns the value entered by the user, if the user value is similar to the slot value.     * @TOP_RESOLUTION@ - If there is a resolution list for the slot, return the first value in the resolution list as the slot type value. If there is no resolution list, null is returned. If you don't specify the @valueSelectionStrategy@ , the default is @ORIGINAL_VALUE@ . --+-- * 'pstCreateVersion' - Undocumented member.+-- -- * 'pstDescription' - A description of the slot type. -- -- * 'pstEnumerationValues' - A list of @EnumerationValue@ objects that defines the values that the slot type can take. Each value can have a list of @synonyms@ , which are additional values that help train the machine learning model about the values that it resolves for a slot.  When Amazon Lex resolves a slot value, it generates a resolution list that contains up to five possible values for the slot. If you are using a Lambda function, this resolution list is passed to the function. If you are not using a Lambda function you can choose to return the value that the user entered or the first value in the resolution list as the slot value. The @valueSelectionStrategy@ field indicates the option to use.@@ -89,33 +94,38 @@     -> PutSlotType putSlotType pName_ =   PutSlotType'-  { _pstChecksum = Nothing-  , _pstValueSelectionStrategy = Nothing-  , _pstDescription = Nothing-  , _pstEnumerationValues = Nothing-  , _pstName = pName_-  }+    { _pstChecksum = Nothing+    , _pstValueSelectionStrategy = Nothing+    , _pstCreateVersion = Nothing+    , _pstDescription = Nothing+    , _pstEnumerationValues = Nothing+    , _pstName = pName_+    }   -- | Identifies a specific revision of the @> LATEST@ version. When you create a new slot type, leave the @checksum@ field blank. If you specify a checksum you get a @BadRequestException@ exception. When you want to update a slot type, set the @checksum@ field to the checksum of the most recent revision of the @> LATEST@ version. If you don't specify the @checksum@ field, or if the checksum does not match the @> LATEST@ version, you get a @PreconditionFailedException@ exception. pstChecksum :: Lens' PutSlotType (Maybe Text)-pstChecksum = lens _pstChecksum (\ s a -> s{_pstChecksum = a});+pstChecksum = lens _pstChecksum (\ s a -> s{_pstChecksum = a})  -- | Determines the slot resolution strategy that Amazon Lex uses to return slot type values. The field can be set to one of the following values:     * @ORIGINAL_VALUE@ - Returns the value entered by the user, if the user value is similar to the slot value.     * @TOP_RESOLUTION@ - If there is a resolution list for the slot, return the first value in the resolution list as the slot type value. If there is no resolution list, null is returned. If you don't specify the @valueSelectionStrategy@ , the default is @ORIGINAL_VALUE@ . pstValueSelectionStrategy :: Lens' PutSlotType (Maybe SlotValueSelectionStrategy)-pstValueSelectionStrategy = lens _pstValueSelectionStrategy (\ s a -> s{_pstValueSelectionStrategy = a});+pstValueSelectionStrategy = lens _pstValueSelectionStrategy (\ s a -> s{_pstValueSelectionStrategy = a}) +-- | Undocumented member.+pstCreateVersion :: Lens' PutSlotType (Maybe Bool)+pstCreateVersion = lens _pstCreateVersion (\ s a -> s{_pstCreateVersion = a})+ -- | A description of the slot type. pstDescription :: Lens' PutSlotType (Maybe Text)-pstDescription = lens _pstDescription (\ s a -> s{_pstDescription = a});+pstDescription = lens _pstDescription (\ s a -> s{_pstDescription = a})  -- | A list of @EnumerationValue@ objects that defines the values that the slot type can take. Each value can have a list of @synonyms@ , which are additional values that help train the machine learning model about the values that it resolves for a slot.  When Amazon Lex resolves a slot value, it generates a resolution list that contains up to five possible values for the slot. If you are using a Lambda function, this resolution list is passed to the function. If you are not using a Lambda function you can choose to return the value that the user entered or the first value in the resolution list as the slot value. The @valueSelectionStrategy@ field indicates the option to use. pstEnumerationValues :: Lens' PutSlotType (Maybe (NonEmpty EnumerationValue))-pstEnumerationValues = lens _pstEnumerationValues (\ s a -> s{_pstEnumerationValues = a}) . mapping _List1;+pstEnumerationValues = lens _pstEnumerationValues (\ s a -> s{_pstEnumerationValues = a}) . mapping _List1  -- | The name of the slot type. The name is /not/ case sensitive.  The name can't match a built-in slot type name, or a built-in slot type name with "AMAZON." removed. For example, because there is a built-in slot type called @AMAZON.DATE@ , you can't create a custom slot type called @DATE@ . For a list of built-in slot types, see <https://developer.amazon.com/public/solutions/alexa/alexa-skills-kit/docs/built-in-intent-ref/slot-type-reference Slot Type Reference> in the /Alexa Skills Kit/ . pstName :: Lens' PutSlotType Text-pstName = lens _pstName (\ s a -> s{_pstName = a});+pstName = lens _pstName (\ s a -> s{_pstName = a})  instance AWSRequest PutSlotType where         type Rs PutSlotType = PutSlotTypeResponse@@ -130,6 +140,7 @@                      <*> (x .?> "name")                      <*> (x .?> "version")                      <*> (x .?> "lastUpdatedDate")+                     <*> (x .?> "createVersion")                      <*> (x .?> "description")                      <*> (x .?> "enumerationValues")                      <*> (pure (fromEnum s)))@@ -152,6 +163,7 @@                  [("checksum" .=) <$> _pstChecksum,                   ("valueSelectionStrategy" .=) <$>                     _pstValueSelectionStrategy,+                  ("createVersion" .=) <$> _pstCreateVersion,                   ("description" .=) <$> _pstDescription,                   ("enumerationValues" .=) <$> _pstEnumerationValues]) @@ -171,6 +183,7 @@   , _pstrsName                   :: !(Maybe Text)   , _pstrsVersion                :: !(Maybe Text)   , _pstrsLastUpdatedDate        :: !(Maybe POSIX)+  , _pstrsCreateVersion          :: !(Maybe Bool)   , _pstrsDescription            :: !(Maybe Text)   , _pstrsEnumerationValues      :: !(Maybe (List1 EnumerationValue))   , _pstrsResponseStatus         :: !Int@@ -193,6 +206,8 @@ -- -- * 'pstrsLastUpdatedDate' - The date that the slot type was updated. When you create a slot type, the creation date and last update date are the same. --+-- * 'pstrsCreateVersion' - Undocumented member.+-- -- * 'pstrsDescription' - A description of the slot type. -- -- * 'pstrsEnumerationValues' - A list of @EnumerationValue@ objects that defines the values that the slot type can take.@@ -203,52 +218,57 @@     -> PutSlotTypeResponse putSlotTypeResponse pResponseStatus_ =   PutSlotTypeResponse'-  { _pstrsChecksum = Nothing-  , _pstrsValueSelectionStrategy = Nothing-  , _pstrsCreatedDate = Nothing-  , _pstrsName = Nothing-  , _pstrsVersion = Nothing-  , _pstrsLastUpdatedDate = Nothing-  , _pstrsDescription = Nothing-  , _pstrsEnumerationValues = Nothing-  , _pstrsResponseStatus = pResponseStatus_-  }+    { _pstrsChecksum = Nothing+    , _pstrsValueSelectionStrategy = Nothing+    , _pstrsCreatedDate = Nothing+    , _pstrsName = Nothing+    , _pstrsVersion = Nothing+    , _pstrsLastUpdatedDate = Nothing+    , _pstrsCreateVersion = Nothing+    , _pstrsDescription = Nothing+    , _pstrsEnumerationValues = Nothing+    , _pstrsResponseStatus = pResponseStatus_+    }   -- | Checksum of the @> LATEST@ version of the slot type. pstrsChecksum :: Lens' PutSlotTypeResponse (Maybe Text)-pstrsChecksum = lens _pstrsChecksum (\ s a -> s{_pstrsChecksum = a});+pstrsChecksum = lens _pstrsChecksum (\ s a -> s{_pstrsChecksum = a})  -- | The slot resolution strategy that Amazon Lex uses to determine the value of the slot. For more information, see 'PutSlotType' . pstrsValueSelectionStrategy :: Lens' PutSlotTypeResponse (Maybe SlotValueSelectionStrategy)-pstrsValueSelectionStrategy = lens _pstrsValueSelectionStrategy (\ s a -> s{_pstrsValueSelectionStrategy = a});+pstrsValueSelectionStrategy = lens _pstrsValueSelectionStrategy (\ s a -> s{_pstrsValueSelectionStrategy = a})  -- | The date that the slot type was created. pstrsCreatedDate :: Lens' PutSlotTypeResponse (Maybe UTCTime)-pstrsCreatedDate = lens _pstrsCreatedDate (\ s a -> s{_pstrsCreatedDate = a}) . mapping _Time;+pstrsCreatedDate = lens _pstrsCreatedDate (\ s a -> s{_pstrsCreatedDate = a}) . mapping _Time  -- | The name of the slot type. pstrsName :: Lens' PutSlotTypeResponse (Maybe Text)-pstrsName = lens _pstrsName (\ s a -> s{_pstrsName = a});+pstrsName = lens _pstrsName (\ s a -> s{_pstrsName = a})  -- | The version of the slot type. For a new slot type, the version is always @> LATEST@ . pstrsVersion :: Lens' PutSlotTypeResponse (Maybe Text)-pstrsVersion = lens _pstrsVersion (\ s a -> s{_pstrsVersion = a});+pstrsVersion = lens _pstrsVersion (\ s a -> s{_pstrsVersion = a})  -- | The date that the slot type was updated. When you create a slot type, the creation date and last update date are the same. pstrsLastUpdatedDate :: Lens' PutSlotTypeResponse (Maybe UTCTime)-pstrsLastUpdatedDate = lens _pstrsLastUpdatedDate (\ s a -> s{_pstrsLastUpdatedDate = a}) . mapping _Time;+pstrsLastUpdatedDate = lens _pstrsLastUpdatedDate (\ s a -> s{_pstrsLastUpdatedDate = a}) . mapping _Time +-- | Undocumented member.+pstrsCreateVersion :: Lens' PutSlotTypeResponse (Maybe Bool)+pstrsCreateVersion = lens _pstrsCreateVersion (\ s a -> s{_pstrsCreateVersion = a})+ -- | A description of the slot type. pstrsDescription :: Lens' PutSlotTypeResponse (Maybe Text)-pstrsDescription = lens _pstrsDescription (\ s a -> s{_pstrsDescription = a});+pstrsDescription = lens _pstrsDescription (\ s a -> s{_pstrsDescription = a})  -- | A list of @EnumerationValue@ objects that defines the values that the slot type can take. pstrsEnumerationValues :: Lens' PutSlotTypeResponse (Maybe (NonEmpty EnumerationValue))-pstrsEnumerationValues = lens _pstrsEnumerationValues (\ s a -> s{_pstrsEnumerationValues = a}) . mapping _List1;+pstrsEnumerationValues = lens _pstrsEnumerationValues (\ s a -> s{_pstrsEnumerationValues = a}) . mapping _List1  -- | -- | The response status code. pstrsResponseStatus :: Lens' PutSlotTypeResponse Int-pstrsResponseStatus = lens _pstrsResponseStatus (\ s a -> s{_pstrsResponseStatus = a});+pstrsResponseStatus = lens _pstrsResponseStatus (\ s a -> s{_pstrsResponseStatus = a})  instance NFData PutSlotTypeResponse where

@@ -0,0 +1,207 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.LexModels.StartImport+-- 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+-- Portability : non-portable (GHC extensions)+--+-- Starts a job to import a resource to Amazon Lex.+--+--+module Network.AWS.LexModels.StartImport+    (+    -- * Creating a Request+      startImport+    , StartImport+    -- * Request Lenses+    , siPayload+    , siResourceType+    , siMergeStrategy++    -- * Destructuring the Response+    , startImportResponse+    , StartImportResponse+    -- * Response Lenses+    , sirsResourceType+    , sirsImportId+    , sirsCreatedDate+    , sirsName+    , sirsMergeStrategy+    , sirsImportStatus+    , sirsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.LexModels.Types+import Network.AWS.LexModels.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'startImport' smart constructor.+data StartImport = StartImport'+  { _siPayload       :: !Base64+  , _siResourceType  :: !ResourceType+  , _siMergeStrategy :: !MergeStrategy+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartImport' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'siPayload' - A zip archive in binary format. The archive should contain one file, a JSON file containing the resource to import. The resource should match the type specified in the @resourceType@ field.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data.+--+-- * 'siResourceType' - Specifies the type of resource to export. Each resource also exports any resources that it depends on.      * A bot exports dependent intents.     * An intent exports dependent slot types.+--+-- * 'siMergeStrategy' - Specifies the action that the @StartImport@ operation should take when there is an existing resource with the same name.     * FAIL_ON_CONFLICT - The import operation is stopped on the first conflict between a resource in the import file and an existing resource. The name of the resource causing the conflict is in the @failureReason@ field of the response to the @GetImport@ operation. OVERWRITE_LATEST - The import operation proceeds even if there is a conflict with an existing resource. The $LASTEST version of the existing resource is overwritten with the data from the import file.+startImport+    :: ByteString -- ^ 'siPayload'+    -> ResourceType -- ^ 'siResourceType'+    -> MergeStrategy -- ^ 'siMergeStrategy'+    -> StartImport+startImport pPayload_ pResourceType_ pMergeStrategy_ =+  StartImport'+    { _siPayload = _Base64 # pPayload_+    , _siResourceType = pResourceType_+    , _siMergeStrategy = pMergeStrategy_+    }+++-- | A zip archive in binary format. The archive should contain one file, a JSON file containing the resource to import. The resource should match the type specified in the @resourceType@ field.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data.+siPayload :: Lens' StartImport ByteString+siPayload = lens _siPayload (\ s a -> s{_siPayload = a}) . _Base64++-- | Specifies the type of resource to export. Each resource also exports any resources that it depends on.      * A bot exports dependent intents.     * An intent exports dependent slot types.+siResourceType :: Lens' StartImport ResourceType+siResourceType = lens _siResourceType (\ s a -> s{_siResourceType = a})++-- | Specifies the action that the @StartImport@ operation should take when there is an existing resource with the same name.     * FAIL_ON_CONFLICT - The import operation is stopped on the first conflict between a resource in the import file and an existing resource. The name of the resource causing the conflict is in the @failureReason@ field of the response to the @GetImport@ operation. OVERWRITE_LATEST - The import operation proceeds even if there is a conflict with an existing resource. The $LASTEST version of the existing resource is overwritten with the data from the import file.+siMergeStrategy :: Lens' StartImport MergeStrategy+siMergeStrategy = lens _siMergeStrategy (\ s a -> s{_siMergeStrategy = a})++instance AWSRequest StartImport where+        type Rs StartImport = StartImportResponse+        request = postJSON lexModels+        response+          = receiveJSON+              (\ s h x ->+                 StartImportResponse' <$>+                   (x .?> "resourceType") <*> (x .?> "importId") <*>+                     (x .?> "createdDate")+                     <*> (x .?> "name")+                     <*> (x .?> "mergeStrategy")+                     <*> (x .?> "importStatus")+                     <*> (pure (fromEnum s)))++instance Hashable StartImport where++instance NFData StartImport where++instance ToHeaders StartImport where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON StartImport where+        toJSON StartImport'{..}+          = object+              (catMaybes+                 [Just ("payload" .= _siPayload),+                  Just ("resourceType" .= _siResourceType),+                  Just ("mergeStrategy" .= _siMergeStrategy)])++instance ToPath StartImport where+        toPath = const "/imports/"++instance ToQuery StartImport where+        toQuery = const mempty++-- | /See:/ 'startImportResponse' smart constructor.+data StartImportResponse = StartImportResponse'+  { _sirsResourceType   :: !(Maybe ResourceType)+  , _sirsImportId       :: !(Maybe Text)+  , _sirsCreatedDate    :: !(Maybe POSIX)+  , _sirsName           :: !(Maybe Text)+  , _sirsMergeStrategy  :: !(Maybe MergeStrategy)+  , _sirsImportStatus   :: !(Maybe ImportStatus)+  , _sirsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartImportResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sirsResourceType' - The type of resource to import.+--+-- * 'sirsImportId' - The identifier for the specific import job.+--+-- * 'sirsCreatedDate' - A timestamp for the date and time that the import job was requested.+--+-- * 'sirsName' - The name given to the import job.+--+-- * 'sirsMergeStrategy' - The action to take when there is a merge conflict.+--+-- * 'sirsImportStatus' - The status of the import job. If the status is @FAILED@ , you can get the reason for the failure using the @GetImport@ operation.+--+-- * 'sirsResponseStatus' - -- | The response status code.+startImportResponse+    :: Int -- ^ 'sirsResponseStatus'+    -> StartImportResponse+startImportResponse pResponseStatus_ =+  StartImportResponse'+    { _sirsResourceType = Nothing+    , _sirsImportId = Nothing+    , _sirsCreatedDate = Nothing+    , _sirsName = Nothing+    , _sirsMergeStrategy = Nothing+    , _sirsImportStatus = Nothing+    , _sirsResponseStatus = pResponseStatus_+    }+++-- | The type of resource to import.+sirsResourceType :: Lens' StartImportResponse (Maybe ResourceType)+sirsResourceType = lens _sirsResourceType (\ s a -> s{_sirsResourceType = a})++-- | The identifier for the specific import job.+sirsImportId :: Lens' StartImportResponse (Maybe Text)+sirsImportId = lens _sirsImportId (\ s a -> s{_sirsImportId = a})++-- | A timestamp for the date and time that the import job was requested.+sirsCreatedDate :: Lens' StartImportResponse (Maybe UTCTime)+sirsCreatedDate = lens _sirsCreatedDate (\ s a -> s{_sirsCreatedDate = a}) . mapping _Time++-- | The name given to the import job.+sirsName :: Lens' StartImportResponse (Maybe Text)+sirsName = lens _sirsName (\ s a -> s{_sirsName = a})++-- | The action to take when there is a merge conflict.+sirsMergeStrategy :: Lens' StartImportResponse (Maybe MergeStrategy)+sirsMergeStrategy = lens _sirsMergeStrategy (\ s a -> s{_sirsMergeStrategy = a})++-- | The status of the import job. If the status is @FAILED@ , you can get the reason for the failure using the @GetImport@ operation.+sirsImportStatus :: Lens' StartImportResponse (Maybe ImportStatus)+sirsImportStatus = lens _sirsImportStatus (\ s a -> s{_sirsImportStatus = a})++-- | -- | The response status code.+sirsResponseStatus :: Lens' StartImportResponse Int+sirsResponseStatus = lens _sirsResponseStatus (\ s a -> s{_sirsResponseStatus = a})++instance NFData StartImportResponse where

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.LexModels.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@@ -24,6 +24,9 @@     , _LimitExceededException     , _ResourceInUseException +    -- * ChannelStatus+    , ChannelStatus (..)+     -- * ChannelType     , ChannelType (..) @@ -39,12 +42,18 @@     -- * FulfillmentActivityType     , FulfillmentActivityType (..) +    -- * ImportStatus+    , ImportStatus (..)+     -- * LexStatus     , LexStatus (..)      -- * Locale     , Locale (..) +    -- * MergeStrategy+    , MergeStrategy (..)+     -- * ProcessBehavior     , ProcessBehavior (..) @@ -74,6 +83,8 @@     -- * BotChannelAssociation     , BotChannelAssociation     , botChannelAssociation+    , bcaFailureReason+    , bcaStatus     , bcaBotAlias     , bcaBotName     , bcaBotConfiguration@@ -151,6 +162,7 @@     -- * Message     , Message     , message+    , mGroupNumber     , mContentType     , mContent @@ -215,24 +227,24 @@ lexModels :: Service lexModels =   Service-  { _svcAbbrev = "LexModels"-  , _svcSigner = v4-  , _svcPrefix = "models.lex"-  , _svcVersion = "2017-04-19"-  , _svcEndpoint = defaultEndpoint lexModels-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseJSONError "LexModels"-  , _svcRetry = retry-  }+    { _svcAbbrev = "LexModels"+    , _svcSigner = v4+    , _svcPrefix = "models.lex"+    , _svcVersion = "2017-04-19"+    , _svcEndpoint = defaultEndpoint lexModels+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "LexModels"+    , _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"@@ -241,6 +253,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.LexModels.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@@ -58,43 +58,43 @@     :: BotAliasMetadata botAliasMetadata =   BotAliasMetadata'-  { _bamChecksum = Nothing-  , _bamBotVersion = Nothing-  , _bamBotName = Nothing-  , _bamCreatedDate = Nothing-  , _bamName = Nothing-  , _bamLastUpdatedDate = Nothing-  , _bamDescription = Nothing-  }+    { _bamChecksum = Nothing+    , _bamBotVersion = Nothing+    , _bamBotName = Nothing+    , _bamCreatedDate = Nothing+    , _bamName = Nothing+    , _bamLastUpdatedDate = Nothing+    , _bamDescription = Nothing+    }   -- | Checksum of the bot alias. bamChecksum :: Lens' BotAliasMetadata (Maybe Text)-bamChecksum = lens _bamChecksum (\ s a -> s{_bamChecksum = a});+bamChecksum = lens _bamChecksum (\ s a -> s{_bamChecksum = a})  -- | The version of the Amazon Lex bot to which the alias points. bamBotVersion :: Lens' BotAliasMetadata (Maybe Text)-bamBotVersion = lens _bamBotVersion (\ s a -> s{_bamBotVersion = a});+bamBotVersion = lens _bamBotVersion (\ s a -> s{_bamBotVersion = a})  -- | The name of the bot to which the alias points. bamBotName :: Lens' BotAliasMetadata (Maybe Text)-bamBotName = lens _bamBotName (\ s a -> s{_bamBotName = a});+bamBotName = lens _bamBotName (\ s a -> s{_bamBotName = a})  -- | The date that the bot alias was created. bamCreatedDate :: Lens' BotAliasMetadata (Maybe UTCTime)-bamCreatedDate = lens _bamCreatedDate (\ s a -> s{_bamCreatedDate = a}) . mapping _Time;+bamCreatedDate = lens _bamCreatedDate (\ s a -> s{_bamCreatedDate = a}) . mapping _Time  -- | The name of the bot alias. bamName :: Lens' BotAliasMetadata (Maybe Text)-bamName = lens _bamName (\ s a -> s{_bamName = a});+bamName = lens _bamName (\ s a -> s{_bamName = a})  -- | The date that the bot alias was updated. When you create a resource, the creation date and last updated date are the same. bamLastUpdatedDate :: Lens' BotAliasMetadata (Maybe UTCTime)-bamLastUpdatedDate = lens _bamLastUpdatedDate (\ s a -> s{_bamLastUpdatedDate = a}) . mapping _Time;+bamLastUpdatedDate = lens _bamLastUpdatedDate (\ s a -> s{_bamLastUpdatedDate = a}) . mapping _Time  -- | A description of the bot alias. bamDescription :: Lens' BotAliasMetadata (Maybe Text)-bamDescription = lens _bamDescription (\ s a -> s{_bamDescription = a});+bamDescription = lens _bamDescription (\ s a -> s{_bamDescription = a})  instance FromJSON BotAliasMetadata where         parseJSON@@ -118,7 +118,9 @@ -- -- /See:/ 'botChannelAssociation' smart constructor. data BotChannelAssociation = BotChannelAssociation'-  { _bcaBotAlias         :: !(Maybe Text)+  { _bcaFailureReason    :: !(Maybe Text)+  , _bcaStatus           :: !(Maybe ChannelStatus)+  , _bcaBotAlias         :: !(Maybe Text)   , _bcaBotName          :: !(Maybe Text)   , _bcaBotConfiguration :: !(Maybe (Sensitive (Map Text Text)))   , _bcaCreatedDate      :: !(Maybe POSIX)@@ -132,6 +134,10 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'bcaFailureReason' - If @status@ is @FAILED@ , Amazon Lex provides the reason that it failed to create the association.+--+-- * 'bcaStatus' - The status of the bot channel.      * @CREATED@ - The channel has been created and is ready for use.     * @IN_PROGRESS@ - Channel creation is in progress.     * @FAILED@ - There was an error creating the channel. For information about the reason for the failure, see the @failureReason@ field.+-- -- * 'bcaBotAlias' - An alias pointing to the specific version of the Amazon Lex bot to which this association is being made. -- -- * 'bcaBotName' - The name of the Amazon Lex bot to which this association is being made.@@ -149,51 +155,63 @@     :: BotChannelAssociation botChannelAssociation =   BotChannelAssociation'-  { _bcaBotAlias = Nothing-  , _bcaBotName = Nothing-  , _bcaBotConfiguration = Nothing-  , _bcaCreatedDate = Nothing-  , _bcaName = Nothing-  , _bcaType = Nothing-  , _bcaDescription = Nothing-  }+    { _bcaFailureReason = Nothing+    , _bcaStatus = Nothing+    , _bcaBotAlias = Nothing+    , _bcaBotName = Nothing+    , _bcaBotConfiguration = Nothing+    , _bcaCreatedDate = Nothing+    , _bcaName = Nothing+    , _bcaType = Nothing+    , _bcaDescription = Nothing+    }  +-- | If @status@ is @FAILED@ , Amazon Lex provides the reason that it failed to create the association.+bcaFailureReason :: Lens' BotChannelAssociation (Maybe Text)+bcaFailureReason = lens _bcaFailureReason (\ s a -> s{_bcaFailureReason = a})++-- | The status of the bot channel.      * @CREATED@ - The channel has been created and is ready for use.     * @IN_PROGRESS@ - Channel creation is in progress.     * @FAILED@ - There was an error creating the channel. For information about the reason for the failure, see the @failureReason@ field.+bcaStatus :: Lens' BotChannelAssociation (Maybe ChannelStatus)+bcaStatus = lens _bcaStatus (\ s a -> s{_bcaStatus = a})+ -- | An alias pointing to the specific version of the Amazon Lex bot to which this association is being made. bcaBotAlias :: Lens' BotChannelAssociation (Maybe Text)-bcaBotAlias = lens _bcaBotAlias (\ s a -> s{_bcaBotAlias = a});+bcaBotAlias = lens _bcaBotAlias (\ s a -> s{_bcaBotAlias = a})  -- | The name of the Amazon Lex bot to which this association is being made. bcaBotName :: Lens' BotChannelAssociation (Maybe Text)-bcaBotName = lens _bcaBotName (\ s a -> s{_bcaBotName = a});+bcaBotName = lens _bcaBotName (\ s a -> s{_bcaBotName = a})  -- | Provides information necessary to communicate with the messaging platform. bcaBotConfiguration :: Lens' BotChannelAssociation (Maybe (HashMap Text Text))-bcaBotConfiguration = lens _bcaBotConfiguration (\ s a -> s{_bcaBotConfiguration = a}) . mapping (_Sensitive . _Map);+bcaBotConfiguration = lens _bcaBotConfiguration (\ s a -> s{_bcaBotConfiguration = a}) . mapping (_Sensitive . _Map)  -- | The date that the association between the Amazon Lex bot and the channel was created. bcaCreatedDate :: Lens' BotChannelAssociation (Maybe UTCTime)-bcaCreatedDate = lens _bcaCreatedDate (\ s a -> s{_bcaCreatedDate = a}) . mapping _Time;+bcaCreatedDate = lens _bcaCreatedDate (\ s a -> s{_bcaCreatedDate = a}) . mapping _Time  -- | The name of the association between the bot and the channel. bcaName :: Lens' BotChannelAssociation (Maybe Text)-bcaName = lens _bcaName (\ s a -> s{_bcaName = a});+bcaName = lens _bcaName (\ s a -> s{_bcaName = a})  -- | Specifies the type of association by indicating the type of channel being established between the Amazon Lex bot and the external messaging platform. bcaType :: Lens' BotChannelAssociation (Maybe ChannelType)-bcaType = lens _bcaType (\ s a -> s{_bcaType = a});+bcaType = lens _bcaType (\ s a -> s{_bcaType = a})  -- | A text description of the association you are creating. bcaDescription :: Lens' BotChannelAssociation (Maybe Text)-bcaDescription = lens _bcaDescription (\ s a -> s{_bcaDescription = a});+bcaDescription = lens _bcaDescription (\ s a -> s{_bcaDescription = a})  instance FromJSON BotChannelAssociation where         parseJSON           = withObject "BotChannelAssociation"               (\ x ->                  BotChannelAssociation' <$>-                   (x .:? "botAlias") <*> (x .:? "botName") <*>-                     (x .:? "botConfiguration" .!= mempty)+                   (x .:? "failureReason") <*> (x .:? "status") <*>+                     (x .:? "botAlias")+                     <*> (x .:? "botName")+                     <*> (x .:? "botConfiguration" .!= mempty)                      <*> (x .:? "createdDate")                      <*> (x .:? "name")                      <*> (x .:? "type")@@ -237,38 +255,38 @@     :: BotMetadata botMetadata =   BotMetadata'-  { _bmStatus = Nothing-  , _bmCreatedDate = Nothing-  , _bmName = Nothing-  , _bmVersion = Nothing-  , _bmLastUpdatedDate = Nothing-  , _bmDescription = Nothing-  }+    { _bmStatus = Nothing+    , _bmCreatedDate = Nothing+    , _bmName = Nothing+    , _bmVersion = Nothing+    , _bmLastUpdatedDate = Nothing+    , _bmDescription = Nothing+    }   -- | The status of the bot. bmStatus :: Lens' BotMetadata (Maybe LexStatus)-bmStatus = lens _bmStatus (\ s a -> s{_bmStatus = a});+bmStatus = lens _bmStatus (\ s a -> s{_bmStatus = a})  -- | The date that the bot was created. bmCreatedDate :: Lens' BotMetadata (Maybe UTCTime)-bmCreatedDate = lens _bmCreatedDate (\ s a -> s{_bmCreatedDate = a}) . mapping _Time;+bmCreatedDate = lens _bmCreatedDate (\ s a -> s{_bmCreatedDate = a}) . mapping _Time  -- | The name of the bot. bmName :: Lens' BotMetadata (Maybe Text)-bmName = lens _bmName (\ s a -> s{_bmName = a});+bmName = lens _bmName (\ s a -> s{_bmName = a})  -- | The version of the bot. For a new bot, the version is always @> LATEST@ . bmVersion :: Lens' BotMetadata (Maybe Text)-bmVersion = lens _bmVersion (\ s a -> s{_bmVersion = a});+bmVersion = lens _bmVersion (\ s a -> s{_bmVersion = a})  -- | The date that the bot was updated. When you create a bot, the creation date and last updated date are the same. bmLastUpdatedDate :: Lens' BotMetadata (Maybe UTCTime)-bmLastUpdatedDate = lens _bmLastUpdatedDate (\ s a -> s{_bmLastUpdatedDate = a}) . mapping _Time;+bmLastUpdatedDate = lens _bmLastUpdatedDate (\ s a -> s{_bmLastUpdatedDate = a}) . mapping _Time  -- | A description of the bot. bmDescription :: Lens' BotMetadata (Maybe Text)-bmDescription = lens _bmDescription (\ s a -> s{_bmDescription = a});+bmDescription = lens _bmDescription (\ s a -> s{_bmDescription = a})  instance FromJSON BotMetadata where         parseJSON@@ -307,16 +325,16 @@     :: BuiltinIntentMetadata builtinIntentMetadata =   BuiltinIntentMetadata'-  {_bimSignature = Nothing, _bimSupportedLocales = Nothing}+    {_bimSignature = Nothing, _bimSupportedLocales = Nothing}   -- | A unique identifier for the built-in intent. To find the signature for an intent, see <https://developer.amazon.com/public/solutions/alexa/alexa-skills-kit/docs/built-in-intent-ref/standard-intents Standard Built-in Intents> in the /Alexa Skills Kit/ . bimSignature :: Lens' BuiltinIntentMetadata (Maybe Text)-bimSignature = lens _bimSignature (\ s a -> s{_bimSignature = a});+bimSignature = lens _bimSignature (\ s a -> s{_bimSignature = a})  -- | A list of identifiers for the locales that the intent supports. bimSupportedLocales :: Lens' BuiltinIntentMetadata [Locale]-bimSupportedLocales = lens _bimSupportedLocales (\ s a -> s{_bimSupportedLocales = a}) . _Default . _Coerce;+bimSupportedLocales = lens _bimSupportedLocales (\ s a -> s{_bimSupportedLocales = a}) . _Default . _Coerce  instance FromJSON BuiltinIntentMetadata where         parseJSON@@ -352,7 +370,7 @@  -- | A list of the slots defined for the intent. bisName :: Lens' BuiltinIntentSlot (Maybe Text)-bisName = lens _bisName (\ s a -> s{_bisName = a});+bisName = lens _bisName (\ s a -> s{_bisName = a})  instance FromJSON BuiltinIntentSlot where         parseJSON@@ -385,16 +403,16 @@     :: BuiltinSlotTypeMetadata builtinSlotTypeMetadata =   BuiltinSlotTypeMetadata'-  {_bstmSignature = Nothing, _bstmSupportedLocales = Nothing}+    {_bstmSignature = Nothing, _bstmSupportedLocales = Nothing}   -- | A unique identifier for the built-in slot type. To find the signature for a slot type, see <https://developer.amazon.com/public/solutions/alexa/alexa-skills-kit/docs/built-in-intent-ref/slot-type-reference Slot Type Reference> in the /Alexa Skills Kit/ . bstmSignature :: Lens' BuiltinSlotTypeMetadata (Maybe Text)-bstmSignature = lens _bstmSignature (\ s a -> s{_bstmSignature = a});+bstmSignature = lens _bstmSignature (\ s a -> s{_bstmSignature = a})  -- | A list of target locales for the slot. bstmSupportedLocales :: Lens' BuiltinSlotTypeMetadata [Locale]-bstmSupportedLocales = lens _bstmSupportedLocales (\ s a -> s{_bstmSupportedLocales = a}) . _Default . _Coerce;+bstmSupportedLocales = lens _bstmSupportedLocales (\ s a -> s{_bstmSupportedLocales = a}) . _Default . _Coerce  instance FromJSON BuiltinSlotTypeMetadata where         parseJSON@@ -436,11 +454,11 @@  -- | The Amazon Resource Name (ARN) of the Lambda function. chUri :: Lens' CodeHook Text-chUri = lens _chUri (\ s a -> s{_chUri = a});+chUri = lens _chUri (\ s a -> s{_chUri = a})  -- | The version of the request-response that you want Amazon Lex to use to invoke your Lambda function. For more information, see 'using-lambda' . chMessageVersion :: Lens' CodeHook Text-chMessageVersion = lens _chMessageVersion (\ s a -> s{_chMessageVersion = a});+chMessageVersion = lens _chMessageVersion (\ s a -> s{_chMessageVersion = a})  instance FromJSON CodeHook where         parseJSON@@ -497,11 +515,11 @@  -- | Additional values related to the slot type value. evSynonyms :: Lens' EnumerationValue [Text]-evSynonyms = lens _evSynonyms (\ s a -> s{_evSynonyms = a}) . _Default . _Coerce;+evSynonyms = lens _evSynonyms (\ s a -> s{_evSynonyms = a}) . _Default . _Coerce  -- | The value of the slot type. evValue :: Lens' EnumerationValue Text-evValue = lens _evValue (\ s a -> s{_evValue = a});+evValue = lens _evValue (\ s a -> s{_evValue = a})  instance FromJSON EnumerationValue where         parseJSON@@ -545,16 +563,16 @@     -> FollowUpPrompt followUpPrompt pPrompt_ pRejectionStatement_ =   FollowUpPrompt'-  {_fupPrompt = pPrompt_, _fupRejectionStatement = pRejectionStatement_}+    {_fupPrompt = pPrompt_, _fupRejectionStatement = pRejectionStatement_}   -- | Prompts for information from the user. fupPrompt :: Lens' FollowUpPrompt Prompt-fupPrompt = lens _fupPrompt (\ s a -> s{_fupPrompt = a});+fupPrompt = lens _fupPrompt (\ s a -> s{_fupPrompt = a})  -- | If the user answers "no" to the question defined in the @prompt@ field, Amazon Lex responds with this statement to acknowledge that the intent was canceled. fupRejectionStatement :: Lens' FollowUpPrompt Statement-fupRejectionStatement = lens _fupRejectionStatement (\ s a -> s{_fupRejectionStatement = a});+fupRejectionStatement = lens _fupRejectionStatement (\ s a -> s{_fupRejectionStatement = a})  instance FromJSON FollowUpPrompt where         parseJSON@@ -610,11 +628,11 @@  -- | A description of the Lambda function that is run to fulfill the intent. faCodeHook :: Lens' FulfillmentActivity (Maybe CodeHook)-faCodeHook = lens _faCodeHook (\ s a -> s{_faCodeHook = a});+faCodeHook = lens _faCodeHook (\ s a -> s{_faCodeHook = a})  -- | How the intent should be fulfilled, either by running a Lambda function or by returning the slot data to the client application. faType :: Lens' FulfillmentActivity FulfillmentActivityType-faType = lens _faType (\ s a -> s{_faType = a});+faType = lens _faType (\ s a -> s{_faType = a})  instance FromJSON FulfillmentActivity where         parseJSON@@ -662,11 +680,11 @@  -- | The name of the intent. iIntentName :: Lens' Intent Text-iIntentName = lens _iIntentName (\ s a -> s{_iIntentName = a});+iIntentName = lens _iIntentName (\ s a -> s{_iIntentName = a})  -- | The version of the intent. iIntentVersion :: Lens' Intent Text-iIntentVersion = lens _iIntentVersion (\ s a -> s{_iIntentVersion = a});+iIntentVersion = lens _iIntentVersion (\ s a -> s{_iIntentVersion = a})  instance FromJSON Intent where         parseJSON@@ -717,33 +735,33 @@     :: IntentMetadata intentMetadata =   IntentMetadata'-  { _imCreatedDate = Nothing-  , _imName = Nothing-  , _imVersion = Nothing-  , _imLastUpdatedDate = Nothing-  , _imDescription = Nothing-  }+    { _imCreatedDate = Nothing+    , _imName = Nothing+    , _imVersion = Nothing+    , _imLastUpdatedDate = Nothing+    , _imDescription = Nothing+    }   -- | The date that the intent was created. imCreatedDate :: Lens' IntentMetadata (Maybe UTCTime)-imCreatedDate = lens _imCreatedDate (\ s a -> s{_imCreatedDate = a}) . mapping _Time;+imCreatedDate = lens _imCreatedDate (\ s a -> s{_imCreatedDate = a}) . mapping _Time  -- | The name of the intent. imName :: Lens' IntentMetadata (Maybe Text)-imName = lens _imName (\ s a -> s{_imName = a});+imName = lens _imName (\ s a -> s{_imName = a})  -- | The version of the intent. imVersion :: Lens' IntentMetadata (Maybe Text)-imVersion = lens _imVersion (\ s a -> s{_imVersion = a});+imVersion = lens _imVersion (\ s a -> s{_imVersion = a})  -- | The date that the intent was updated. When you create an intent, the creation date and last updated date are the same. imLastUpdatedDate :: Lens' IntentMetadata (Maybe UTCTime)-imLastUpdatedDate = lens _imLastUpdatedDate (\ s a -> s{_imLastUpdatedDate = a}) . mapping _Time;+imLastUpdatedDate = lens _imLastUpdatedDate (\ s a -> s{_imLastUpdatedDate = a}) . mapping _Time  -- | A description of the intent. imDescription :: Lens' IntentMetadata (Maybe Text)-imDescription = lens _imDescription (\ s a -> s{_imDescription = a});+imDescription = lens _imDescription (\ s a -> s{_imDescription = a})  instance FromJSON IntentMetadata where         parseJSON@@ -765,7 +783,8 @@ -- -- /See:/ 'message' smart constructor. data Message = Message'-  { _mContentType :: !ContentType+  { _mGroupNumber :: !(Maybe Nat)+  , _mContentType :: !ContentType   , _mContent     :: !Text   } deriving (Eq, Read, Show, Data, Typeable, Generic) @@ -774,6 +793,8 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'mGroupNumber' - Identifies the message group that the message belongs to. When a group is assigned to a message, Amazon Lex returns one message from each group in the response.+-- -- * 'mContentType' - The content type of the message string. -- -- * 'mContent' - The text of the message.@@ -782,23 +803,32 @@     -> Text -- ^ 'mContent'     -> Message message pContentType_ pContent_ =-  Message' {_mContentType = pContentType_, _mContent = pContent_}+  Message'+    { _mGroupNumber = Nothing+    , _mContentType = pContentType_+    , _mContent = pContent_+    }  +-- | Identifies the message group that the message belongs to. When a group is assigned to a message, Amazon Lex returns one message from each group in the response.+mGroupNumber :: Lens' Message (Maybe Natural)+mGroupNumber = lens _mGroupNumber (\ s a -> s{_mGroupNumber = a}) . mapping _Nat+ -- | The content type of the message string. mContentType :: Lens' Message ContentType-mContentType = lens _mContentType (\ s a -> s{_mContentType = a});+mContentType = lens _mContentType (\ s a -> s{_mContentType = a})  -- | The text of the message. mContent :: Lens' Message Text-mContent = lens _mContent (\ s a -> s{_mContent = a});+mContent = lens _mContent (\ s a -> s{_mContent = a})  instance FromJSON Message where         parseJSON           = withObject "Message"               (\ x ->                  Message' <$>-                   (x .: "contentType") <*> (x .: "content"))+                   (x .:? "groupNumber") <*> (x .: "contentType") <*>+                     (x .: "content"))  instance Hashable Message where @@ -808,7 +838,8 @@         toJSON Message'{..}           = object               (catMaybes-                 [Just ("contentType" .= _mContentType),+                 [("groupNumber" .=) <$> _mGroupNumber,+                  Just ("contentType" .= _mContentType),                   Just ("content" .= _mContent)])  -- | Obtains information from the user. To define a prompt, provide one or more messages and specify the number of attempts to get information from the user. If you provide more than one message, Amazon Lex chooses one of the messages to use to prompt the user. For more information, see 'how-it-works' .@@ -838,23 +869,23 @@     -> Prompt prompt pMessages_ pMaxAttempts_ =   Prompt'-  { _pResponseCard = Nothing-  , _pMessages = _List1 # pMessages_-  , _pMaxAttempts = _Nat # pMaxAttempts_-  }+    { _pResponseCard = Nothing+    , _pMessages = _List1 # pMessages_+    , _pMaxAttempts = _Nat # pMaxAttempts_+    }   -- | A response card. Amazon Lex uses this prompt at runtime, in the @PostText@ API response. It substitutes session attributes and slot values for placeholders in the response card. For more information, see 'ex-resp-card' . pResponseCard :: Lens' Prompt (Maybe Text)-pResponseCard = lens _pResponseCard (\ s a -> s{_pResponseCard = a});+pResponseCard = lens _pResponseCard (\ s a -> s{_pResponseCard = a})  -- | An array of objects, each of which provides a message string and its type. You can specify the message string in plain text or in Speech Synthesis Markup Language (SSML). pMessages :: Lens' Prompt (NonEmpty Message)-pMessages = lens _pMessages (\ s a -> s{_pMessages = a}) . _List1;+pMessages = lens _pMessages (\ s a -> s{_pMessages = a}) . _List1  -- | The number of times to prompt the user for information. pMaxAttempts :: Lens' Prompt Natural-pMaxAttempts = lens _pMaxAttempts (\ s a -> s{_pMaxAttempts = a}) . _Nat;+pMaxAttempts = lens _pMaxAttempts (\ s a -> s{_pMaxAttempts = a}) . _Nat  instance FromJSON Prompt where         parseJSON@@ -921,53 +952,53 @@     -> Slot slot pName_ pSlotConstraint_ =   Slot'-  { _sSlotType = Nothing-  , _sValueElicitationPrompt = Nothing-  , _sResponseCard = Nothing-  , _sPriority = Nothing-  , _sSlotTypeVersion = Nothing-  , _sSampleUtterances = Nothing-  , _sDescription = Nothing-  , _sName = pName_-  , _sSlotConstraint = pSlotConstraint_-  }+    { _sSlotType = Nothing+    , _sValueElicitationPrompt = Nothing+    , _sResponseCard = Nothing+    , _sPriority = Nothing+    , _sSlotTypeVersion = Nothing+    , _sSampleUtterances = Nothing+    , _sDescription = Nothing+    , _sName = pName_+    , _sSlotConstraint = pSlotConstraint_+    }   -- | The type of the slot, either a custom slot type that you defined or one of the built-in slot types. sSlotType :: Lens' Slot (Maybe Text)-sSlotType = lens _sSlotType (\ s a -> s{_sSlotType = a});+sSlotType = lens _sSlotType (\ s a -> s{_sSlotType = a})  -- | The prompt that Amazon Lex uses to elicit the slot value from the user. sValueElicitationPrompt :: Lens' Slot (Maybe Prompt)-sValueElicitationPrompt = lens _sValueElicitationPrompt (\ s a -> s{_sValueElicitationPrompt = a});+sValueElicitationPrompt = lens _sValueElicitationPrompt (\ s a -> s{_sValueElicitationPrompt = a})  -- | A set of possible responses for the slot type used by text-based clients. A user chooses an option from the response card, instead of using text to reply. sResponseCard :: Lens' Slot (Maybe Text)-sResponseCard = lens _sResponseCard (\ s a -> s{_sResponseCard = a});+sResponseCard = lens _sResponseCard (\ s a -> s{_sResponseCard = a})  -- | Directs Lex the order in which to elicit this slot value from the user. For example, if the intent has two slots with priorities 1 and 2, AWS Lex first elicits a value for the slot with priority 1. If multiple slots share the same priority, the order in which Lex elicits values is arbitrary. sPriority :: Lens' Slot (Maybe Natural)-sPriority = lens _sPriority (\ s a -> s{_sPriority = a}) . mapping _Nat;+sPriority = lens _sPriority (\ s a -> s{_sPriority = a}) . mapping _Nat  -- | The version of the slot type. sSlotTypeVersion :: Lens' Slot (Maybe Text)-sSlotTypeVersion = lens _sSlotTypeVersion (\ s a -> s{_sSlotTypeVersion = a});+sSlotTypeVersion = lens _sSlotTypeVersion (\ s a -> s{_sSlotTypeVersion = a})  -- | If you know a specific pattern with which users might respond to an Amazon Lex request for a slot value, you can provide those utterances to improve accuracy. This is optional. In most cases, Amazon Lex is capable of understanding user utterances. sSampleUtterances :: Lens' Slot [Text]-sSampleUtterances = lens _sSampleUtterances (\ s a -> s{_sSampleUtterances = a}) . _Default . _Coerce;+sSampleUtterances = lens _sSampleUtterances (\ s a -> s{_sSampleUtterances = a}) . _Default . _Coerce  -- | A description of the slot. sDescription :: Lens' Slot (Maybe Text)-sDescription = lens _sDescription (\ s a -> s{_sDescription = a});+sDescription = lens _sDescription (\ s a -> s{_sDescription = a})  -- | The name of the slot. sName :: Lens' Slot Text-sName = lens _sName (\ s a -> s{_sName = a});+sName = lens _sName (\ s a -> s{_sName = a})  -- | Specifies whether the slot is required or optional. sSlotConstraint :: Lens' Slot SlotConstraint-sSlotConstraint = lens _sSlotConstraint (\ s a -> s{_sSlotConstraint = a});+sSlotConstraint = lens _sSlotConstraint (\ s a -> s{_sSlotConstraint = a})  instance FromJSON Slot where         parseJSON@@ -1034,33 +1065,33 @@     :: SlotTypeMetadata slotTypeMetadata =   SlotTypeMetadata'-  { _stmCreatedDate = Nothing-  , _stmName = Nothing-  , _stmVersion = Nothing-  , _stmLastUpdatedDate = Nothing-  , _stmDescription = Nothing-  }+    { _stmCreatedDate = Nothing+    , _stmName = Nothing+    , _stmVersion = Nothing+    , _stmLastUpdatedDate = Nothing+    , _stmDescription = Nothing+    }   -- | The date that the slot type was created. stmCreatedDate :: Lens' SlotTypeMetadata (Maybe UTCTime)-stmCreatedDate = lens _stmCreatedDate (\ s a -> s{_stmCreatedDate = a}) . mapping _Time;+stmCreatedDate = lens _stmCreatedDate (\ s a -> s{_stmCreatedDate = a}) . mapping _Time  -- | The name of the slot type. stmName :: Lens' SlotTypeMetadata (Maybe Text)-stmName = lens _stmName (\ s a -> s{_stmName = a});+stmName = lens _stmName (\ s a -> s{_stmName = a})  -- | The version of the slot type. stmVersion :: Lens' SlotTypeMetadata (Maybe Text)-stmVersion = lens _stmVersion (\ s a -> s{_stmVersion = a});+stmVersion = lens _stmVersion (\ s a -> s{_stmVersion = a})  -- | The date that the slot type was updated. When you create a resource, the creation date and last updated date are the same. stmLastUpdatedDate :: Lens' SlotTypeMetadata (Maybe UTCTime)-stmLastUpdatedDate = lens _stmLastUpdatedDate (\ s a -> s{_stmLastUpdatedDate = a}) . mapping _Time;+stmLastUpdatedDate = lens _stmLastUpdatedDate (\ s a -> s{_stmLastUpdatedDate = a}) . mapping _Time  -- | A description of the slot type. stmDescription :: Lens' SlotTypeMetadata (Maybe Text)-stmDescription = lens _stmDescription (\ s a -> s{_stmDescription = a});+stmDescription = lens _stmDescription (\ s a -> s{_stmDescription = a})  instance FromJSON SlotTypeMetadata where         parseJSON@@ -1103,11 +1134,11 @@  -- | At runtime, if the client is using the <http://docs.aws.amazon.com/lex/latest/dg/API_runtime_PostText.html PostText> API, Amazon Lex includes the response card in the response. It substitutes all of the session attributes and slot values for placeholders in the response card. staResponseCard :: Lens' Statement (Maybe Text)-staResponseCard = lens _staResponseCard (\ s a -> s{_staResponseCard = a});+staResponseCard = lens _staResponseCard (\ s a -> s{_staResponseCard = a})  -- | A collection of message objects. staMessages :: Lens' Statement (NonEmpty Message)-staMessages = lens _staMessages (\ s a -> s{_staMessages = a}) . _List1;+staMessages = lens _staMessages (\ s a -> s{_staMessages = a}) . _List1  instance FromJSON Statement where         parseJSON@@ -1158,33 +1189,33 @@     :: UtteranceData utteranceData =   UtteranceData'-  { _udFirstUtteredDate = Nothing-  , _udCount = Nothing-  , _udUtteranceString = Nothing-  , _udLastUtteredDate = Nothing-  , _udDistinctUsers = Nothing-  }+    { _udFirstUtteredDate = Nothing+    , _udCount = Nothing+    , _udUtteranceString = Nothing+    , _udLastUtteredDate = Nothing+    , _udDistinctUsers = Nothing+    }   -- | The date that the utterance was first recorded. udFirstUtteredDate :: Lens' UtteranceData (Maybe UTCTime)-udFirstUtteredDate = lens _udFirstUtteredDate (\ s a -> s{_udFirstUtteredDate = a}) . mapping _Time;+udFirstUtteredDate = lens _udFirstUtteredDate (\ s a -> s{_udFirstUtteredDate = a}) . mapping _Time  -- | The number of times that the utterance was processed. udCount :: Lens' UtteranceData (Maybe Int)-udCount = lens _udCount (\ s a -> s{_udCount = a});+udCount = lens _udCount (\ s a -> s{_udCount = a})  -- | The text that was entered by the user or the text representation of an audio clip. udUtteranceString :: Lens' UtteranceData (Maybe Text)-udUtteranceString = lens _udUtteranceString (\ s a -> s{_udUtteranceString = a});+udUtteranceString = lens _udUtteranceString (\ s a -> s{_udUtteranceString = a})  -- | The date that the utterance was last recorded. udLastUtteredDate :: Lens' UtteranceData (Maybe UTCTime)-udLastUtteredDate = lens _udLastUtteredDate (\ s a -> s{_udLastUtteredDate = a}) . mapping _Time;+udLastUtteredDate = lens _udLastUtteredDate (\ s a -> s{_udLastUtteredDate = a}) . mapping _Time  -- | The total number of individuals that used the utterance. udDistinctUsers :: Lens' UtteranceData (Maybe Int)-udDistinctUsers = lens _udDistinctUsers (\ s a -> s{_udDistinctUsers = a});+udDistinctUsers = lens _udDistinctUsers (\ s a -> s{_udDistinctUsers = a})  instance FromJSON UtteranceData where         parseJSON@@ -1226,11 +1257,11 @@  -- | The version of the bot that processed the list. ulBotVersion :: Lens' UtteranceList (Maybe Text)-ulBotVersion = lens _ulBotVersion (\ s a -> s{_ulBotVersion = a});+ulBotVersion = lens _ulBotVersion (\ s a -> s{_ulBotVersion = a})  -- | One or more 'UtteranceData' objects that contain information about the utterances that have been made to a bot. The maximum number of object is 100. ulUtterances :: Lens' UtteranceList [UtteranceData]-ulUtterances = lens _ulUtterances (\ s a -> s{_ulUtterances = a}) . _Default . _Coerce;+ulUtterances = lens _ulUtterances (\ s a -> s{_ulUtterances = a}) . _Default . _Coerce  instance FromJSON UtteranceList where         parseJSON

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.LexModels.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@@ -19,8 +19,39 @@  import Network.AWS.Prelude +data ChannelStatus+  = Created+  | Failed+  | InProgress+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText ChannelStatus where+    parser = takeLowerText >>= \case+        "created" -> pure Created+        "failed" -> pure Failed+        "in_progress" -> pure InProgress+        e -> fromTextError $ "Failure parsing ChannelStatus from value: '" <> e+           <> "'. Accepted values: created, failed, in_progress"++instance ToText ChannelStatus where+    toText = \case+        Created -> "CREATED"+        Failed -> "FAILED"+        InProgress -> "IN_PROGRESS"++instance Hashable     ChannelStatus+instance NFData       ChannelStatus+instance ToByteString ChannelStatus+instance ToQuery      ChannelStatus+instance ToHeader     ChannelStatus++instance FromJSON ChannelStatus where+    parseJSON = parseJSONText "ChannelStatus"+ data ChannelType   = Facebook+  | Kik   | Slack   | TwilioSms   deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)@@ -29,14 +60,16 @@ instance FromText ChannelType where     parser = takeLowerText >>= \case         "facebook" -> pure Facebook+        "kik" -> pure Kik         "slack" -> pure Slack         "twilio-sms" -> pure TwilioSms         e -> fromTextError $ "Failure parsing ChannelType from value: '" <> e-           <> "'. Accepted values: facebook, slack, twilio-sms"+           <> "'. Accepted values: facebook, kik, slack, twilio-sms"  instance ToText ChannelType where     toText = \case         Facebook -> "Facebook"+        Kik -> "Kik"         Slack -> "Slack"         TwilioSms -> "Twilio-Sms" @@ -50,20 +83,23 @@     parseJSON = parseJSONText "ChannelType"  data ContentType-  = PlainText+  = CustomPayload+  | PlainText   | Ssml   deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)   instance FromText ContentType where     parser = takeLowerText >>= \case+        "custompayload" -> pure CustomPayload         "plaintext" -> pure PlainText         "ssml" -> pure Ssml         e -> fromTextError $ "Failure parsing ContentType from value: '" <> e-           <> "'. Accepted values: plaintext, ssml"+           <> "'. Accepted values: custompayload, plaintext, ssml"  instance ToText ContentType where     toText = \case+        CustomPayload -> "CustomPayload"         PlainText -> "PlainText"         Ssml -> "SSML" @@ -80,25 +116,25 @@     parseJSON = parseJSONText "ContentType"  data ExportStatus-  = Failed-  | InProgress-  | Ready+  = ESFailed+  | ESInProgress+  | ESReady   deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)   instance FromText ExportStatus where     parser = takeLowerText >>= \case-        "failed" -> pure Failed-        "in_progress" -> pure InProgress-        "ready" -> pure Ready+        "failed" -> pure ESFailed+        "in_progress" -> pure ESInProgress+        "ready" -> pure ESReady         e -> fromTextError $ "Failure parsing ExportStatus from value: '" <> e            <> "'. Accepted values: failed, in_progress, ready"  instance ToText ExportStatus where     toText = \case-        Failed -> "FAILED"-        InProgress -> "IN_PROGRESS"-        Ready -> "READY"+        ESFailed -> "FAILED"+        ESInProgress -> "IN_PROGRESS"+        ESReady -> "READY"  instance Hashable     ExportStatus instance NFData       ExportStatus@@ -109,20 +145,23 @@ instance FromJSON ExportStatus where     parseJSON = parseJSONText "ExportStatus" -data ExportType =-  AlexaSkillsKit+data ExportType+  = AlexaSkillsKit+  | Lex   deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)   instance FromText ExportType where     parser = takeLowerText >>= \case         "alexa_skills_kit" -> pure AlexaSkillsKit+        "lex" -> pure Lex         e -> fromTextError $ "Failure parsing ExportType from value: '" <> e-           <> "'. Accepted values: alexa_skills_kit"+           <> "'. Accepted values: alexa_skills_kit, lex"  instance ToText ExportType where     toText = \case         AlexaSkillsKit -> "ALEXA_SKILLS_KIT"+        Lex -> "LEX"  instance Hashable     ExportType instance NFData       ExportType@@ -166,6 +205,36 @@ instance FromJSON FulfillmentActivityType where     parseJSON = parseJSONText "FulfillmentActivityType" +data ImportStatus+  = ISComplete+  | ISFailed+  | ISInProgress+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText ImportStatus where+    parser = takeLowerText >>= \case+        "complete" -> pure ISComplete+        "failed" -> pure ISFailed+        "in_progress" -> pure ISInProgress+        e -> fromTextError $ "Failure parsing ImportStatus from value: '" <> e+           <> "'. Accepted values: complete, failed, in_progress"++instance ToText ImportStatus where+    toText = \case+        ISComplete -> "COMPLETE"+        ISFailed -> "FAILED"+        ISInProgress -> "IN_PROGRESS"++instance Hashable     ImportStatus+instance NFData       ImportStatus+instance ToByteString ImportStatus+instance ToQuery      ImportStatus+instance ToHeader     ImportStatus++instance FromJSON ImportStatus where+    parseJSON = parseJSONText "ImportStatus"+ data LexStatus   = LSBuilding   | LSFailed@@ -199,19 +268,25 @@ instance FromJSON LexStatus where     parseJSON = parseJSONText "LexStatus" -data Locale =-  EnUs+data Locale+  = DeDe+  | EnGb+  | EnUs   deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)   instance FromText Locale where     parser = takeLowerText >>= \case+        "de-de" -> pure DeDe+        "en-gb" -> pure EnGb         "en-us" -> pure EnUs         e -> fromTextError $ "Failure parsing Locale from value: '" <> e-           <> "'. Accepted values: en-us"+           <> "'. Accepted values: de-de, en-gb, en-us"  instance ToText Locale where     toText = \case+        DeDe -> "de-DE"+        EnGb -> "en-GB"         EnUs -> "en-US"  instance Hashable     Locale@@ -226,6 +301,36 @@ instance FromJSON Locale where     parseJSON = parseJSONText "Locale" +data MergeStrategy+  = FailOnConflict+  | OverwriteLatest+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText MergeStrategy where+    parser = takeLowerText >>= \case+        "fail_on_conflict" -> pure FailOnConflict+        "overwrite_latest" -> pure OverwriteLatest+        e -> fromTextError $ "Failure parsing MergeStrategy from value: '" <> e+           <> "'. Accepted values: fail_on_conflict, overwrite_latest"++instance ToText MergeStrategy where+    toText = \case+        FailOnConflict -> "FAIL_ON_CONFLICT"+        OverwriteLatest -> "OVERWRITE_LATEST"++instance Hashable     MergeStrategy+instance NFData       MergeStrategy+instance ToByteString MergeStrategy+instance ToQuery      MergeStrategy+instance ToHeader     MergeStrategy++instance ToJSON MergeStrategy where+    toJSON = toJSONText++instance FromJSON MergeStrategy where+    parseJSON = parseJSONText "MergeStrategy"+ data ProcessBehavior   = Build   | Save@@ -253,20 +358,26 @@ instance ToJSON ProcessBehavior where     toJSON = toJSONText -data ResourceType =-  Bot+data ResourceType+  = Bot+  | Intent+  | SlotType   deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)   instance FromText ResourceType where     parser = takeLowerText >>= \case         "bot" -> pure Bot+        "intent" -> pure Intent+        "slot_type" -> pure SlotType         e -> fromTextError $ "Failure parsing ResourceType from value: '" <> e-           <> "'. Accepted values: bot"+           <> "'. Accepted values: bot, intent, slot_type"  instance ToText ResourceType where     toText = \case         Bot -> "BOT"+        Intent -> "INTENT"+        SlotType -> "SLOT_TYPE"  instance Hashable     ResourceType instance NFData       ResourceType

@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.LexModels.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

@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.LexModels--- 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@@ -58,6 +58,9 @@ --         , requestDeleteBot $ --             deleteBot --+--         , requestGetImport $+--             getImport+-- --         , requestGetIntentVersions $ --             getIntentVersions --@@ -109,6 +112,9 @@ --         , requestDeleteSlotType $ --             deleteSlotType --+--         , requestStartImport $+--             startImport+-- --         , requestGetBotChannelAssociation $ --             getBotChannelAssociation --@@ -163,6 +169,9 @@ --         , responseDeleteBot $ --             deleteBotResponse --+--         , responseGetImport $+--             getImportResponse+-- --         , responseGetIntentVersions $ --             getIntentVersionsResponse --@@ -214,6 +223,9 @@ --         , responseDeleteSlotType $ --             deleteSlotTypeResponse --+--         , responseStartImport $+--             startImportResponse+-- --         , responseGetBotChannelAssociation $ --             getBotChannelAssociationResponse --@@ -290,6 +302,11 @@     "DeleteBot"     "fixture/DeleteBot.yaml" +requestGetImport :: GetImport -> TestTree+requestGetImport = req+    "GetImport"+    "fixture/GetImport.yaml"+ requestGetIntentVersions :: GetIntentVersions -> TestTree requestGetIntentVersions = req     "GetIntentVersions"@@ -375,6 +392,11 @@     "DeleteSlotType"     "fixture/DeleteSlotType.yaml" +requestStartImport :: StartImport -> TestTree+requestStartImport = req+    "StartImport"+    "fixture/StartImport.yaml"+ requestGetBotChannelAssociation :: GetBotChannelAssociation -> TestTree requestGetBotChannelAssociation = req     "GetBotChannelAssociation"@@ -482,6 +504,13 @@     lexModels     (Proxy :: Proxy DeleteBot) +responseGetImport :: GetImportResponse -> TestTree+responseGetImport = res+    "GetImportResponse"+    "fixture/GetImportResponse.proto"+    lexModels+    (Proxy :: Proxy GetImport)+ responseGetIntentVersions :: GetIntentVersionsResponse -> TestTree responseGetIntentVersions = res     "GetIntentVersionsResponse"@@ -600,6 +629,13 @@     "fixture/DeleteSlotTypeResponse.proto"     lexModels     (Proxy :: Proxy DeleteSlotType)++responseStartImport :: StartImportResponse -> TestTree+responseStartImport = res+    "StartImportResponse"+    "fixture/StartImportResponse.proto"+    lexModels+    (Proxy :: Proxy StartImport)  responseGetBotChannelAssociation :: GetBotChannelAssociationResponse -> TestTree responseGetBotChannelAssociation = res

@@ -1,6 +1,6 @@ -- | -- Module      : Test.AWS.LexModels--- 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   : auto-generated

@@ -1,6 +1,6 @@ -- | -- Module      : Test.AWS.LexModels.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   : auto-generated