amazonka-iot 1.4.4 → 1.4.5

raw patch · 67 files changed

+1357/−779 lines, 67 filesdep ~amazonka-coredep ~amazonka-iotdep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• README.md +9/−10
• amazonka-iot.cabal +11/−16
• fixture/CreateCertificateFromCSR.yaml +0/−0
• fixture/CreateCertificateFromCSRResponse.proto +0/−0
• gen/Network/AWS/IoT.hs +31/−14
• gen/Network/AWS/IoT/AcceptCertificateTransfer.hs +7/−3
• gen/Network/AWS/IoT/AttachPrincipalPolicy.hs +6/−2
• gen/Network/AWS/IoT/AttachThingPrincipal.hs +10/−4
• gen/Network/AWS/IoT/CancelCertificateTransfer.hs +6/−2
• gen/Network/AWS/IoT/CreateCertificateFromCSR.hs +192/−0
• gen/Network/AWS/IoT/CreateCertificateFromCsr.hs +0/−186
• gen/Network/AWS/IoT/CreateKeysAndCertificate.hs +13/−7
• gen/Network/AWS/IoT/CreatePolicy.hs +15/−9
• gen/Network/AWS/IoT/CreatePolicyVersion.hs +17/−11
• gen/Network/AWS/IoT/CreateThing.hs +14/−10
• gen/Network/AWS/IoT/CreateThingType.hs +12/−6
• gen/Network/AWS/IoT/CreateTopicRule.hs +6/−2
• gen/Network/AWS/IoT/DeleteCACertificate.hs +9/−3
• gen/Network/AWS/IoT/DeleteCertificate.hs +6/−2
• gen/Network/AWS/IoT/DeletePolicy.hs +5/−1
• gen/Network/AWS/IoT/DeletePolicyVersion.hs +7/−3
• gen/Network/AWS/IoT/DeleteRegistrationCode.hs +8/−2
• gen/Network/AWS/IoT/DeleteThing.hs +11/−5
• gen/Network/AWS/IoT/DeleteThingType.hs +10/−4
• gen/Network/AWS/IoT/DeleteTopicRule.hs +5/−1
• gen/Network/AWS/IoT/DeprecateThingType.hs +11/−5
• gen/Network/AWS/IoT/DescribeCACertificate.hs +10/−4
• gen/Network/AWS/IoT/DescribeCertificate.hs +10/−4
• gen/Network/AWS/IoT/DescribeEndpoint.hs +10/−4
• gen/Network/AWS/IoT/DescribeThing.hs +14/−10
• gen/Network/AWS/IoT/DescribeThingType.hs +12/−6
• gen/Network/AWS/IoT/DetachPrincipalPolicy.hs +7/−5
• gen/Network/AWS/IoT/DetachThingPrincipal.hs +10/−4
• gen/Network/AWS/IoT/DisableTopicRule.hs +5/−1
• gen/Network/AWS/IoT/EnableTopicRule.hs +5/−1
• gen/Network/AWS/IoT/GetLoggingOptions.hs +10/−4
• gen/Network/AWS/IoT/GetPolicy.hs +13/−7
• gen/Network/AWS/IoT/GetPolicyVersion.hs +15/−9
• gen/Network/AWS/IoT/GetRegistrationCode.hs +9/−3
• gen/Network/AWS/IoT/GetTopicRule.hs +11/−5
• gen/Network/AWS/IoT/ListCACertificates.hs +13/−7
• gen/Network/AWS/IoT/ListCertificates.hs +13/−7
• gen/Network/AWS/IoT/ListCertificatesByCA.hs +14/−8
• gen/Network/AWS/IoT/ListOutgoingCertificates.hs +13/−7
• gen/Network/AWS/IoT/ListPolicies.hs +13/−7
• gen/Network/AWS/IoT/ListPolicyPrincipals.hs +14/−8
• gen/Network/AWS/IoT/ListPolicyVersions.hs +10/−4
• gen/Network/AWS/IoT/ListPrincipalPolicies.hs +15/−9
• gen/Network/AWS/IoT/ListPrincipalThings.hs +13/−7
• gen/Network/AWS/IoT/ListThingPrincipals.hs +10/−4
• gen/Network/AWS/IoT/ListThingTypes.hs +13/−7
• gen/Network/AWS/IoT/ListThings.hs +16/−10
• gen/Network/AWS/IoT/ListTopicRules.hs +14/−8
• gen/Network/AWS/IoT/RegisterCACertificate.hs +14/−8
• gen/Network/AWS/IoT/RegisterCertificate.hs +26/−10
• gen/Network/AWS/IoT/RejectCertificateTransfer.hs +9/−5
• gen/Network/AWS/IoT/ReplaceTopicRule.hs +6/−2
• gen/Network/AWS/IoT/SetDefaultPolicyVersion.hs +7/−3
• gen/Network/AWS/IoT/SetLoggingOptions.hs +5/−1
• gen/Network/AWS/IoT/TransferCertificate.hs +13/−7
• gen/Network/AWS/IoT/Types.hs +70/−14
• gen/Network/AWS/IoT/Types/Product.hs +382/−220
• gen/Network/AWS/IoT/Types/Sum.hs +47/−0
• gen/Network/AWS/IoT/UpdateCACertificate.hs +9/−7
• gen/Network/AWS/IoT/UpdateCertificate.hs +7/−7
• gen/Network/AWS/IoT/UpdateThing.hs +16/−14
• test/Test/AWS/Gen/IoT.hs +13/−13

@@ -8,28 +8,27 @@  ## Version -`1.4.4`+`1.4.5`   ## Description -AWS IoT--AWS IoT provides secure, bi-directional communication between Internet-connected things (such as sensors, actuators, embedded devices, or smart appliances) and the AWS cloud. You can discover your custom IoT-Data endpoint to communicate with, configure rules for data processing and integration with other services, organize resources associated with each thing (Thing Registry), configure logging, and create and manage policies and credentials to authenticate things.--For more information about how AWS IoT works, see the <http://docs.aws.amazon.com/iot/latest/developerguide/aws-iot-how-it-works.html Developer Guide>.- Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-iot) and the [AWS API Reference](https://aws.amazon.com/documentation/).  The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka),-which provides mechanisms for specifying AuthN/AuthZ information and sending requests.+which provides mechanisms for specifying AuthN/AuthZ information, sending requests,+and receiving responses. -Use of lenses is required for constructing and manipulating types.-This is due to the amount of nesting of AWS types and transparency regarding+Lenses are used for constructing and manipulating types,+due to the depth of nesting of AWS types and transparency regarding de/serialisation into more palatable Haskell values. The provided lenses should be compatible with any of the major lens libraries [lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core).++See [Network.AWS.IoT](http://hackage.haskell.org/package/amazonka-iot/docs/Network-AWS-IoT.html)+or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.+  ## Contribute 

@@ -1,5 +1,5 @@ name:                  amazonka-iot-version:               1.4.4+version:               1.4.5 synopsis:              Amazon IoT SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -13,24 +13,19 @@ cabal-version:         >= 1.10 extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep description:-    AWS IoT--    AWS IoT provides secure, bi-directional communication between Internet-connected things (such as sensors, actuators, embedded devices, or smart appliances) and the AWS cloud. You can discover your custom IoT-Data endpoint to communicate with, configure rules for data processing and integration with other services, organize resources associated with each thing (Thing Registry), configure logging, and create and manage policies and credentials to authenticate things.--    For more information about how AWS IoT works, see the <http://docs.aws.amazon.com/iot/latest/developerguide/aws-iot-how-it-works.html Developer Guide>.-    .     The types from this library are intended to be used with     <http://hackage.haskell.org/package/amazonka amazonka>, which provides-    mechanisms for specifying AuthN/AuthZ information and sending requests.+    mechanisms for specifying AuthN/AuthZ information, sending requests,+    and receiving responses.     .-    Use of lenses is required for constructing and manipulating types.-    This is due to the amount of nesting of AWS types and transparency regarding+    Lenses are used for constructing and manipulating types,+    due to the depth of nesting of AWS types and transparency regarding     de/serialisation into more palatable Haskell values.     The provided lenses should be compatible with any of the major lens libraries     such as <http://hackage.haskell.org/package/lens lens> or     <http://hackage.haskell.org/package/lens-family-core lens-family-core>.     .-    See "Network.AWS.IoT" or <https://aws.amazon.com/documentation/ the AWS Documentation>+    See "Network.AWS.IoT" or <https://aws.amazon.com/documentation/ the AWS documentation>     to get started.  source-repository head@@ -49,7 +44,7 @@         , Network.AWS.IoT.AttachPrincipalPolicy         , Network.AWS.IoT.AttachThingPrincipal         , Network.AWS.IoT.CancelCertificateTransfer-        , Network.AWS.IoT.CreateCertificateFromCsr+        , Network.AWS.IoT.CreateCertificateFromCSR         , Network.AWS.IoT.CreateKeysAndCertificate         , Network.AWS.IoT.CreatePolicy         , Network.AWS.IoT.CreatePolicyVersion@@ -110,7 +105,7 @@         , Network.AWS.IoT.Types.Sum      build-depends:-          amazonka-core == 1.4.4.*+          amazonka-core == 1.4.5.*         , base          >= 4.7     && < 5  test-suite amazonka-iot-test@@ -130,9 +125,9 @@         , Test.AWS.IoT.Internal      build-depends:-          amazonka-core == 1.4.4.*-        , amazonka-test == 1.4.4.*-        , amazonka-iot == 1.4.4.*+          amazonka-core == 1.4.5.*+        , amazonka-test == 1.4.5.*+        , amazonka-iot == 1.4.5.*         , base         , bytestring         , tasty

@@ -11,11 +11,12 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- AWS IoT+-- __AWS IoT__ -- -- AWS IoT provides secure, bi-directional communication between Internet-connected things (such as sensors, actuators, embedded devices, or smart appliances) and the AWS cloud. You can discover your custom IoT-Data endpoint to communicate with, configure rules for data processing and integration with other services, organize resources associated with each thing (Thing Registry), configure logging, and create and manage policies and credentials to authenticate things. ----- For more information about how AWS IoT works, see the <http://docs.aws.amazon.com/iot/latest/developerguide/aws-iot-how-it-works.html Developer Guide>.+-- For more information about how AWS IoT works, see the <http://docs.aws.amazon.com/iot/latest/developerguide/aws-iot-how-it-works.html Developer Guide> .+-- module Network.AWS.IoT     (     -- * Service Configuration@@ -111,8 +112,8 @@     -- ** ListThingTypes     , module Network.AWS.IoT.ListThingTypes -    -- ** CreateCertificateFromCsr-    , module Network.AWS.IoT.CreateCertificateFromCsr+    -- ** CreateCertificateFromCSR+    , module Network.AWS.IoT.CreateCertificateFromCSR      -- ** DeleteThing     , module Network.AWS.IoT.DeleteThing@@ -269,6 +270,9 @@     -- ** CACertificateStatus     , CACertificateStatus (..) +    -- ** CannedAccessControlList+    , CannedAccessControlList (..)+     -- ** CertificateStatus     , CertificateStatus (..) @@ -285,6 +289,7 @@     , Action     , action     , aCloudwatchMetric+    , aDynamoDBv2     , aCloudwatchAlarm     , aSns     , aDynamoDB@@ -364,16 +369,22 @@     -- ** DynamoDBAction     , DynamoDBAction     , dynamoDBAction-    , ddaHashKeyType-    , ddaOperation-    , ddaRangeKeyType-    , ddaPayloadField-    , ddaRangeKeyField-    , ddaRangeKeyValue-    , ddaTableName+    , ddbaHashKeyType+    , ddbaOperation+    , ddbaRangeKeyType+    , ddbaPayloadField+    , ddbaRangeKeyField+    , ddbaRangeKeyValue+    , ddbaTableName+    , ddbaRoleARN+    , ddbaHashKeyField+    , ddbaHashKeyValue++    -- ** DynamoDBv2Action+    , DynamoDBv2Action+    , dynamoDBv2Action+    , ddaPutItem     , ddaRoleARN-    , ddaHashKeyField-    , ddaHashKeyValue      -- ** ElasticsearchAction     , ElasticsearchAction@@ -438,6 +449,11 @@     , pvCreateDate     , pvIsDefaultVersion +    -- ** PutItemInput+    , PutItemInput+    , putItemInput+    , piiTableName+     -- ** RepublishAction     , RepublishAction     , republishAction@@ -447,6 +463,7 @@     -- ** S3Action     , S3Action     , s3Action+    , sCannedACL     , sRoleARN     , sBucketName     , sKey@@ -536,7 +553,7 @@ import           Network.AWS.IoT.AttachPrincipalPolicy import           Network.AWS.IoT.AttachThingPrincipal import           Network.AWS.IoT.CancelCertificateTransfer-import           Network.AWS.IoT.CreateCertificateFromCsr+import           Network.AWS.IoT.CreateCertificateFromCSR import           Network.AWS.IoT.CreateKeysAndCertificate import           Network.AWS.IoT.CreatePolicy import           Network.AWS.IoT.CreatePolicyVersion

@@ -20,7 +20,9 @@ -- -- Accepts a pending certificate transfer. The default state of the certificate is INACTIVE. ----- To check for pending certificate transfers, call < ListCertificates> to enumerate your certificates.+--+-- To check for pending certificate transfers, call 'ListCertificates' to enumerate your certificates.+-- module Network.AWS.IoT.AcceptCertificateTransfer     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | The input for the AcceptCertificateTransfer operation. --+--+-- -- /See:/ 'acceptCertificateTransfer' smart constructor. data AcceptCertificateTransfer = AcceptCertificateTransfer'     { _actSetAsActive   :: !(Maybe Bool)@@ -54,9 +58,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'actSetAsActive'+-- * 'actSetAsActive' - Specifies whether the certificate is active. ----- * 'actCertificateId'+-- * 'actCertificateId' - The ID of the certificate. acceptCertificateTransfer     :: Text -- ^ 'actCertificateId'     -> AcceptCertificateTransfer

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Attaches the specified policy to the specified principal (certificate or other credential).+--+-- module Network.AWS.IoT.AttachPrincipalPolicy     (     -- * Creating a Request@@ -42,6 +44,8 @@  -- | The input for the AttachPrincipalPolicy operation. --+--+-- -- /See:/ 'attachPrincipalPolicy' smart constructor. data AttachPrincipalPolicy = AttachPrincipalPolicy'     { _appPolicyName :: !Text@@ -52,9 +56,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'appPolicyName'+-- * 'appPolicyName' - The policy name. ----- * 'appPrincipal'+-- * 'appPrincipal' - The principal, which can be a certificate ARN (as returned from the CreateCertificate operation) or an Amazon Cognito ID. attachPrincipalPolicy     :: Text -- ^ 'appPolicyName'     -> Text -- ^ 'appPrincipal'

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Attaches the specified principal to the specified thing.+--+-- module Network.AWS.IoT.AttachThingPrincipal     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | The input for the AttachThingPrincipal operation. --+--+-- -- /See:/ 'attachThingPrincipal' smart constructor. data AttachThingPrincipal = AttachThingPrincipal'     { _atpThingName :: !Text@@ -54,9 +58,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'atpThingName'+-- * 'atpThingName' - The name of the thing. ----- * 'atpPrincipal'+-- * 'atpPrincipal' - The principal, such as a certificate or other credential. attachThingPrincipal     :: Text -- ^ 'atpThingName'     -> Text -- ^ 'atpPrincipal'@@ -106,6 +110,8 @@  -- | The output from the AttachThingPrincipal operation. --+--+-- -- /See:/ 'attachThingPrincipalResponse' smart constructor. newtype AttachThingPrincipalResponse = AttachThingPrincipalResponse'     { _atprsResponseStatus :: Int@@ -115,7 +121,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'atprsResponseStatus'+-- * 'atprsResponseStatus' - -- | The response status code. attachThingPrincipalResponse     :: Int -- ^ 'atprsResponseStatus'     -> AttachThingPrincipalResponse@@ -124,7 +130,7 @@     { _atprsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. atprsResponseStatus :: Lens' AttachThingPrincipalResponse Int atprsResponseStatus = lens _atprsResponseStatus (\ s a -> s{_atprsResponseStatus = a}); 

@@ -20,9 +20,11 @@ -- -- Cancels a pending transfer for the specified certificate. ----- __Note__ Only the transfer source account can use this operation to cancel a transfer. (Transfer destinations can use < RejectCertificateTransfer> instead.) After transfer, AWS IoT returns the certificate to the source account in the INACTIVE state. After the destination account has accepted the transfer, the transfer cannot be cancelled. --+-- __Note__ Only the transfer source account can use this operation to cancel a transfer. (Transfer destinations can use 'RejectCertificateTransfer' instead.) After transfer, AWS IoT returns the certificate to the source account in the INACTIVE state. After the destination account has accepted the transfer, the transfer cannot be cancelled.+-- -- After a certificate transfer is cancelled, the status of the certificate changes from PENDING_TRANSFER to INACTIVE.+-- module Network.AWS.IoT.CancelCertificateTransfer     (     -- * Creating a Request@@ -45,6 +47,8 @@  -- | The input for the CancelCertificateTransfer operation. --+--+-- -- /See:/ 'cancelCertificateTransfer' smart constructor. newtype CancelCertificateTransfer = CancelCertificateTransfer'     { _cctCertificateId :: Text@@ -54,7 +58,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cctCertificateId'+-- * 'cctCertificateId' - The ID of the certificate. cancelCertificateTransfer     :: Text -- ^ 'cctCertificateId'     -> CancelCertificateTransfer

@@ -0,0 +1,192 @@+{-# 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.IoT.CreateCertificateFromCSR+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates an X.509 certificate using the specified certificate signing request.+--+--+-- __Note__ Reusing the same certificate signing request (CSR) results in a distinct certificate.+--+-- You can create multiple certificates in a batch by creating a directory, copying multiple .csr files into that directory, and then specifying that directory on the command line. The following commands show how to create a batch of certificates given a batch of CSRs.+--+-- Assuming a set of CSRs are located inside of the directory my-csr-directory:+--+-- On Linux and OS X, the command is:+--+-- >  ls my-csr-directory/ | xargs -I {} aws iot create-certificate-from-csr --certificate-signing-request file://my-csr-directory/{}+--+-- This command lists all of the CSRs in my-csr-directory and pipes each CSR file name to the aws iot create-certificate-from-csr AWS CLI command to create a certificate for the corresponding CSR.+--+-- The aws iot create-certificate-from-csr part of the command can also be run in parallel to speed up the certificate creation process:+--+-- >  ls my-csr-directory/ | xargs -P 10 -I {} aws iot create-certificate-from-csr --certificate-signing-request file://my-csr-directory/{}+--+-- On Windows PowerShell, the command to create certificates for all CSRs in my-csr-directory is:+--+-- > ls -Name my-csr-directory | %{aws iot create-certificate-from-csr --certificate-signing-request file://my-csr-directory/$_}+--+-- On a Windows command prompt, the command to create certificates for all CSRs in my-csr-directory is:+--+-- > forfiles /p my-csr-directory /c "cmd /c aws iot create-certificate-from-csr --certificate-signing-request file://@path"+--+module Network.AWS.IoT.CreateCertificateFromCSR+    (+    -- * Creating a Request+      createCertificateFromCSR+    , CreateCertificateFromCSR+    -- * Request Lenses+    , ccfcsrSetAsActive+    , ccfcsrCertificateSigningRequest++    -- * Destructuring the Response+    , createCertificateFromCSRResponse+    , CreateCertificateFromCSRResponse+    -- * Response Lenses+    , ccfcsrrsCertificatePem+    , ccfcsrrsCertificateARN+    , ccfcsrrsCertificateId+    , ccfcsrrsResponseStatus+    ) where++import           Network.AWS.IoT.Types+import           Network.AWS.IoT.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | The input for the CreateCertificateFromCsr operation.+--+--+--+-- /See:/ 'createCertificateFromCSR' smart constructor.+data CreateCertificateFromCSR = CreateCertificateFromCSR'+    { _ccfcsrSetAsActive               :: !(Maybe Bool)+    , _ccfcsrCertificateSigningRequest :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateCertificateFromCSR' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ccfcsrSetAsActive' - Specifies whether the certificate is active.+--+-- * 'ccfcsrCertificateSigningRequest' - The certificate signing request (CSR).+createCertificateFromCSR+    :: Text -- ^ 'ccfcsrCertificateSigningRequest'+    -> CreateCertificateFromCSR+createCertificateFromCSR pCertificateSigningRequest_ =+    CreateCertificateFromCSR'+    { _ccfcsrSetAsActive = Nothing+    , _ccfcsrCertificateSigningRequest = pCertificateSigningRequest_+    }++-- | Specifies whether the certificate is active.+ccfcsrSetAsActive :: Lens' CreateCertificateFromCSR (Maybe Bool)+ccfcsrSetAsActive = lens _ccfcsrSetAsActive (\ s a -> s{_ccfcsrSetAsActive = a});++-- | The certificate signing request (CSR).+ccfcsrCertificateSigningRequest :: Lens' CreateCertificateFromCSR Text+ccfcsrCertificateSigningRequest = lens _ccfcsrCertificateSigningRequest (\ s a -> s{_ccfcsrCertificateSigningRequest = a});++instance AWSRequest CreateCertificateFromCSR where+        type Rs CreateCertificateFromCSR =+             CreateCertificateFromCSRResponse+        request = postJSON ioT+        response+          = receiveJSON+              (\ s h x ->+                 CreateCertificateFromCSRResponse' <$>+                   (x .?> "certificatePem") <*> (x .?> "certificateArn")+                     <*> (x .?> "certificateId")+                     <*> (pure (fromEnum s)))++instance Hashable CreateCertificateFromCSR++instance NFData CreateCertificateFromCSR++instance ToHeaders CreateCertificateFromCSR where+        toHeaders = const mempty++instance ToJSON CreateCertificateFromCSR where+        toJSON CreateCertificateFromCSR'{..}+          = object+              (catMaybes+                 [Just+                    ("certificateSigningRequest" .=+                       _ccfcsrCertificateSigningRequest)])++instance ToPath CreateCertificateFromCSR where+        toPath = const "/certificates"++instance ToQuery CreateCertificateFromCSR where+        toQuery CreateCertificateFromCSR'{..}+          = mconcat ["setAsActive" =: _ccfcsrSetAsActive]++-- | The output from the CreateCertificateFromCsr operation.+--+--+--+-- /See:/ 'createCertificateFromCSRResponse' smart constructor.+data CreateCertificateFromCSRResponse = CreateCertificateFromCSRResponse'+    { _ccfcsrrsCertificatePem :: !(Maybe Text)+    , _ccfcsrrsCertificateARN :: !(Maybe Text)+    , _ccfcsrrsCertificateId  :: !(Maybe Text)+    , _ccfcsrrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateCertificateFromCSRResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ccfcsrrsCertificatePem' - The certificate data, in PEM format.+--+-- * 'ccfcsrrsCertificateARN' - The Amazon Resource Name (ARN) of the certificate. You can use the ARN as a principal for policy operations.+--+-- * 'ccfcsrrsCertificateId' - The ID of the certificate. Certificate management operations only take a certificateId.+--+-- * 'ccfcsrrsResponseStatus' - -- | The response status code.+createCertificateFromCSRResponse+    :: Int -- ^ 'ccfcsrrsResponseStatus'+    -> CreateCertificateFromCSRResponse+createCertificateFromCSRResponse pResponseStatus_ =+    CreateCertificateFromCSRResponse'+    { _ccfcsrrsCertificatePem = Nothing+    , _ccfcsrrsCertificateARN = Nothing+    , _ccfcsrrsCertificateId = Nothing+    , _ccfcsrrsResponseStatus = pResponseStatus_+    }++-- | The certificate data, in PEM format.+ccfcsrrsCertificatePem :: Lens' CreateCertificateFromCSRResponse (Maybe Text)+ccfcsrrsCertificatePem = lens _ccfcsrrsCertificatePem (\ s a -> s{_ccfcsrrsCertificatePem = a});++-- | The Amazon Resource Name (ARN) of the certificate. You can use the ARN as a principal for policy operations.+ccfcsrrsCertificateARN :: Lens' CreateCertificateFromCSRResponse (Maybe Text)+ccfcsrrsCertificateARN = lens _ccfcsrrsCertificateARN (\ s a -> s{_ccfcsrrsCertificateARN = a});++-- | The ID of the certificate. Certificate management operations only take a certificateId.+ccfcsrrsCertificateId :: Lens' CreateCertificateFromCSRResponse (Maybe Text)+ccfcsrrsCertificateId = lens _ccfcsrrsCertificateId (\ s a -> s{_ccfcsrrsCertificateId = a});++-- | -- | The response status code.+ccfcsrrsResponseStatus :: Lens' CreateCertificateFromCSRResponse Int+ccfcsrrsResponseStatus = lens _ccfcsrrsResponseStatus (\ s a -> s{_ccfcsrrsResponseStatus = a});++instance NFData CreateCertificateFromCSRResponse

@@ -1,186 +0,0 @@-{-# 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.IoT.CreateCertificateFromCsr--- Copyright   : (c) 2013-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Creates an X.509 certificate using the specified certificate signing request.------ __Note__ Reusing the same certificate signing request (CSR) results in a distinct certificate.------ You can create multiple certificates in a batch by creating a directory, copying multiple .csr files into that directory, and then specifying that directory on the command line. The following commands show how to create a batch of certificates given a batch of CSRs.------ Assuming a set of CSRs are located inside of the directory my-csr-directory:------ On Linux and OS X, the command is:------ > ls my-csr-directory\/ | xargs -I {} aws iot create-certificate-from-csr --certificate-signing-request file:\/\/my-csr-directory\/{}------ This command lists all of the CSRs in my-csr-directory and pipes each CSR file name to the aws iot create-certificate-from-csr AWS CLI command to create a certificate for the corresponding CSR.------ The aws iot create-certificate-from-csr part of the command can also be run in parallel to speed up the certificate creation process:------ > ls my-csr-directory\/ | xargs -P 10 -I {} aws iot create-certificate-from-csr --certificate-signing-request file:\/\/my-csr-directory\/{}------ On Windows PowerShell, the command to create certificates for all CSRs in my-csr-directory is:------ > ls -Name my-csr-directory | %{aws iot create-certificate-from-csr --certificate-signing-request file:\/\/my-csr-directory\/>_}------ On a Windows command prompt, the command to create certificates for all CSRs in my-csr-directory is:------ > forfiles \/p my-csr-directory \/c \"cmd \/c aws iot create-certificate-from-csr --certificate-signing-request file:\/\/\'path\"-module Network.AWS.IoT.CreateCertificateFromCsr-    (-    -- * Creating a Request-      createCertificateFromCsr-    , CreateCertificateFromCsr-    -- * Request Lenses-    , ccfcSetAsActive-    , ccfcCertificateSigningRequest--    -- * Destructuring the Response-    , createCertificateFromCsrResponse-    , CreateCertificateFromCsrResponse-    -- * Response Lenses-    , ccfcrsCertificatePem-    , ccfcrsCertificateARN-    , ccfcrsCertificateId-    , ccfcrsResponseStatus-    ) where--import           Network.AWS.IoT.Types-import           Network.AWS.IoT.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response---- | The input for the CreateCertificateFromCsr operation.------ /See:/ 'createCertificateFromCsr' smart constructor.-data CreateCertificateFromCsr = CreateCertificateFromCsr'-    { _ccfcSetAsActive               :: !(Maybe Bool)-    , _ccfcCertificateSigningRequest :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'CreateCertificateFromCsr' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccfcSetAsActive'------ * 'ccfcCertificateSigningRequest'-createCertificateFromCsr-    :: Text -- ^ 'ccfcCertificateSigningRequest'-    -> CreateCertificateFromCsr-createCertificateFromCsr pCertificateSigningRequest_ =-    CreateCertificateFromCsr'-    { _ccfcSetAsActive = Nothing-    , _ccfcCertificateSigningRequest = pCertificateSigningRequest_-    }---- | Specifies whether the certificate is active.-ccfcSetAsActive :: Lens' CreateCertificateFromCsr (Maybe Bool)-ccfcSetAsActive = lens _ccfcSetAsActive (\ s a -> s{_ccfcSetAsActive = a});---- | The certificate signing request (CSR).-ccfcCertificateSigningRequest :: Lens' CreateCertificateFromCsr Text-ccfcCertificateSigningRequest = lens _ccfcCertificateSigningRequest (\ s a -> s{_ccfcCertificateSigningRequest = a});--instance AWSRequest CreateCertificateFromCsr where-        type Rs CreateCertificateFromCsr =-             CreateCertificateFromCsrResponse-        request = postJSON ioT-        response-          = receiveJSON-              (\ s h x ->-                 CreateCertificateFromCsrResponse' <$>-                   (x .?> "certificatePem") <*> (x .?> "certificateArn")-                     <*> (x .?> "certificateId")-                     <*> (pure (fromEnum s)))--instance Hashable CreateCertificateFromCsr--instance NFData CreateCertificateFromCsr--instance ToHeaders CreateCertificateFromCsr where-        toHeaders = const mempty--instance ToJSON CreateCertificateFromCsr where-        toJSON CreateCertificateFromCsr'{..}-          = object-              (catMaybes-                 [Just-                    ("certificateSigningRequest" .=-                       _ccfcCertificateSigningRequest)])--instance ToPath CreateCertificateFromCsr where-        toPath = const "/certificates"--instance ToQuery CreateCertificateFromCsr where-        toQuery CreateCertificateFromCsr'{..}-          = mconcat ["setAsActive" =: _ccfcSetAsActive]---- | The output from the CreateCertificateFromCsr operation.------ /See:/ 'createCertificateFromCsrResponse' smart constructor.-data CreateCertificateFromCsrResponse = CreateCertificateFromCsrResponse'-    { _ccfcrsCertificatePem :: !(Maybe Text)-    , _ccfcrsCertificateARN :: !(Maybe Text)-    , _ccfcrsCertificateId  :: !(Maybe Text)-    , _ccfcrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'CreateCertificateFromCsrResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccfcrsCertificatePem'------ * 'ccfcrsCertificateARN'------ * 'ccfcrsCertificateId'------ * 'ccfcrsResponseStatus'-createCertificateFromCsrResponse-    :: Int -- ^ 'ccfcrsResponseStatus'-    -> CreateCertificateFromCsrResponse-createCertificateFromCsrResponse pResponseStatus_ =-    CreateCertificateFromCsrResponse'-    { _ccfcrsCertificatePem = Nothing-    , _ccfcrsCertificateARN = Nothing-    , _ccfcrsCertificateId = Nothing-    , _ccfcrsResponseStatus = pResponseStatus_-    }---- | The certificate data, in PEM format.-ccfcrsCertificatePem :: Lens' CreateCertificateFromCsrResponse (Maybe Text)-ccfcrsCertificatePem = lens _ccfcrsCertificatePem (\ s a -> s{_ccfcrsCertificatePem = a});---- | The Amazon Resource Name (ARN) of the certificate. You can use the ARN as a principal for policy operations.-ccfcrsCertificateARN :: Lens' CreateCertificateFromCsrResponse (Maybe Text)-ccfcrsCertificateARN = lens _ccfcrsCertificateARN (\ s a -> s{_ccfcrsCertificateARN = a});---- | The ID of the certificate. Certificate management operations only take a certificateId.-ccfcrsCertificateId :: Lens' CreateCertificateFromCsrResponse (Maybe Text)-ccfcrsCertificateId = lens _ccfcrsCertificateId (\ s a -> s{_ccfcrsCertificateId = a});---- | The response status code.-ccfcrsResponseStatus :: Lens' CreateCertificateFromCsrResponse Int-ccfcrsResponseStatus = lens _ccfcrsResponseStatus (\ s a -> s{_ccfcrsResponseStatus = a});--instance NFData CreateCertificateFromCsrResponse

@@ -20,7 +20,9 @@ -- -- Creates a 2048-bit RSA key pair and issues an X.509 certificate using the issued public key. --+-- -- __Note__ This is the only time AWS IoT issues the private key for this certificate, so it is important to keep it in a secure location.+-- module Network.AWS.IoT.CreateKeysAndCertificate     (     -- * Creating a Request@@ -49,6 +51,8 @@  -- | The input for the CreateKeysAndCertificate operation. --+--+-- -- /See:/ 'createKeysAndCertificate' smart constructor. newtype CreateKeysAndCertificate = CreateKeysAndCertificate'     { _ckacSetAsActive :: Maybe Bool@@ -58,7 +62,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ckacSetAsActive'+-- * 'ckacSetAsActive' - Specifies whether the certificate is active. createKeysAndCertificate     :: CreateKeysAndCertificate createKeysAndCertificate =@@ -102,6 +106,8 @@  -- | The output of the CreateKeysAndCertificate operation. --+--+-- -- /See:/ 'createKeysAndCertificateResponse' smart constructor. data CreateKeysAndCertificateResponse = CreateKeysAndCertificateResponse'     { _ckacrsKeyPair        :: !(Maybe KeyPair)@@ -115,15 +121,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ckacrsKeyPair'+-- * 'ckacrsKeyPair' - The generated key pair. ----- * 'ckacrsCertificatePem'+-- * 'ckacrsCertificatePem' - The certificate data, in PEM format. ----- * 'ckacrsCertificateARN'+-- * 'ckacrsCertificateARN' - The ARN of the certificate. ----- * 'ckacrsCertificateId'+-- * 'ckacrsCertificateId' - The ID of the certificate. AWS IoT issues a default subject name for the certificate (for example, AWS IoT Certificate). ----- * 'ckacrsResponseStatus'+-- * 'ckacrsResponseStatus' - -- | The response status code. createKeysAndCertificateResponse     :: Int -- ^ 'ckacrsResponseStatus'     -> CreateKeysAndCertificateResponse@@ -152,7 +158,7 @@ ckacrsCertificateId :: Lens' CreateKeysAndCertificateResponse (Maybe Text) ckacrsCertificateId = lens _ckacrsCertificateId (\ s a -> s{_ckacrsCertificateId = a}); --- | The response status code.+-- | -- | The response status code. ckacrsResponseStatus :: Lens' CreateKeysAndCertificateResponse Int ckacrsResponseStatus = lens _ckacrsResponseStatus (\ s a -> s{_ckacrsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Creates an AWS IoT policy. ----- The created policy is the default version for the policy. This operation creates a policy version with a version identifier of __1__ and sets __1__ as the policy\'s default version.+--+-- The created policy is the default version for the policy. This operation creates a policy version with a version identifier of __1__ and sets __1__ as the policy's default version.+-- module Network.AWS.IoT.CreatePolicy     (     -- * Creating a Request@@ -50,6 +52,8 @@  -- | The input for the CreatePolicy operation. --+--+-- -- /See:/ 'createPolicy' smart constructor. data CreatePolicy = CreatePolicy'     { _cpPolicyName     :: !Text@@ -60,9 +64,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cpPolicyName'+-- * 'cpPolicyName' - The policy name. ----- * 'cpPolicyDocument'+-- * 'cpPolicyDocument' - The JSON document that describes the policy. __policyDocument__ must have a minimum length of 1, with a maximum length of 2048, excluding whitespace. createPolicy     :: Text -- ^ 'cpPolicyName'     -> Text -- ^ 'cpPolicyDocument'@@ -115,6 +119,8 @@  -- | The output from the CreatePolicy operation. --+--+-- -- /See:/ 'createPolicyResponse' smart constructor. data CreatePolicyResponse = CreatePolicyResponse'     { _cprsPolicyName      :: !(Maybe Text)@@ -128,15 +134,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cprsPolicyName'+-- * 'cprsPolicyName' - The policy name. ----- * 'cprsPolicyDocument'+-- * 'cprsPolicyDocument' - The JSON document that describes the policy. ----- * 'cprsPolicyVersionId'+-- * 'cprsPolicyVersionId' - The policy version ID. ----- * 'cprsPolicyARN'+-- * 'cprsPolicyARN' - The policy ARN. ----- * 'cprsResponseStatus'+-- * 'cprsResponseStatus' - -- | The response status code. createPolicyResponse     :: Int -- ^ 'cprsResponseStatus'     -> CreatePolicyResponse@@ -165,7 +171,7 @@ cprsPolicyARN :: Lens' CreatePolicyResponse (Maybe Text) cprsPolicyARN = lens _cprsPolicyARN (\ s a -> s{_cprsPolicyARN = a}); --- | The response status code.+-- | -- | The response status code. cprsResponseStatus :: Lens' CreatePolicyResponse Int cprsResponseStatus = lens _cprsResponseStatus (\ s a -> s{_cprsResponseStatus = a}); 

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a new version of the specified AWS IoT policy. To update a policy, create a new policy version. A managed policy can have up to five versions. If the policy has five versions, you must use < DeletePolicyVersion> to delete an existing version before you create a new one.+-- Creates a new version of the specified AWS IoT policy. To update a policy, create a new policy version. A managed policy can have up to five versions. If the policy has five versions, you must use 'DeletePolicyVersion' to delete an existing version before you create a new one. ----- Optionally, you can set the new version as the policy\'s default version. The default version is the operative version (that is, the version that is in effect for the certificates to which the policy is attached).+--+-- Optionally, you can set the new version as the policy's default version. The default version is the operative version (that is, the version that is in effect for the certificates to which the policy is attached).+-- module Network.AWS.IoT.CreatePolicyVersion     (     -- * Creating a Request@@ -51,6 +53,8 @@  -- | The input for the CreatePolicyVersion operation. --+--+-- -- /See:/ 'createPolicyVersion' smart constructor. data CreatePolicyVersion = CreatePolicyVersion'     { _cpvSetAsDefault   :: !(Maybe Bool)@@ -62,11 +66,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cpvSetAsDefault'+-- * 'cpvSetAsDefault' - Specifies whether the policy version is set as the default. When this parameter is true, the new policy version becomes the operative version (that is, the version that is in effect for the certificates to which the policy is attached). ----- * 'cpvPolicyName'+-- * 'cpvPolicyName' - The policy name. ----- * 'cpvPolicyDocument'+-- * 'cpvPolicyDocument' - The JSON document that describes the policy. Minimum length of 1. Maximum length of 2048, excluding whitespaces createPolicyVersion     :: Text -- ^ 'cpvPolicyName'     -> Text -- ^ 'cpvPolicyDocument'@@ -128,6 +132,8 @@  -- | The output of the CreatePolicyVersion operation. --+--+-- -- /See:/ 'createPolicyVersionResponse' smart constructor. data CreatePolicyVersionResponse = CreatePolicyVersionResponse'     { _cpvrsPolicyDocument   :: !(Maybe Text)@@ -141,15 +147,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cpvrsPolicyDocument'+-- * 'cpvrsPolicyDocument' - The JSON document that describes the policy. ----- * 'cpvrsPolicyVersionId'+-- * 'cpvrsPolicyVersionId' - The policy version ID. ----- * 'cpvrsPolicyARN'+-- * 'cpvrsPolicyARN' - The policy ARN. ----- * 'cpvrsIsDefaultVersion'+-- * 'cpvrsIsDefaultVersion' - Specifies whether the policy version is the default. ----- * 'cpvrsResponseStatus'+-- * 'cpvrsResponseStatus' - -- | The response status code. createPolicyVersionResponse     :: Int -- ^ 'cpvrsResponseStatus'     -> CreatePolicyVersionResponse@@ -178,7 +184,7 @@ cpvrsIsDefaultVersion :: Lens' CreatePolicyVersionResponse (Maybe Bool) cpvrsIsDefaultVersion = lens _cpvrsIsDefaultVersion (\ s a -> s{_cpvrsIsDefaultVersion = a}); --- | The response status code.+-- | -- | The response status code. cpvrsResponseStatus :: Lens' CreatePolicyVersionResponse Int cpvrsResponseStatus = lens _cpvrsResponseStatus (\ s a -> s{_cpvrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Creates a thing record in the thing registry.+--+-- module Network.AWS.IoT.CreateThing     (     -- * Creating a Request@@ -47,6 +49,8 @@  -- | The input for the CreateThing operation. --+--+-- -- /See:/ 'createThing' smart constructor. data CreateThing = CreateThing'     { _ctThingTypeName    :: !(Maybe Text)@@ -58,11 +62,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ctThingTypeName'+-- * 'ctThingTypeName' - The name of the thing type associated with the new thing. ----- * 'ctAttributePayload'+-- * 'ctAttributePayload' - The attribute payload, which consists of up to three name/value pairs in a JSON document. For example: @{\"attributes\":{\"string1\":\"string2\"}})@ ----- * 'ctThingName'+-- * 'ctThingName' - The name of the thing to create. createThing     :: Text -- ^ 'ctThingName'     -> CreateThing@@ -77,9 +81,7 @@ ctThingTypeName :: Lens' CreateThing (Maybe Text) ctThingTypeName = lens _ctThingTypeName (\ s a -> s{_ctThingTypeName = a}); --- | The attribute payload, which consists of up to three name\/value pairs in a JSON document. For example:------ '{\\\"attributes\\\":{\\\"string1\\\":\\\"string2\\\"}})'+-- | The attribute payload, which consists of up to three name/value pairs in a JSON document. For example: @{\"attributes\":{\"string1\":\"string2\"}})@ ctAttributePayload :: Lens' CreateThing (Maybe AttributePayload) ctAttributePayload = lens _ctAttributePayload (\ s a -> s{_ctAttributePayload = a}); @@ -120,6 +122,8 @@  -- | The output of the CreateThing operation. --+--+-- -- /See:/ 'createThingResponse' smart constructor. data CreateThingResponse = CreateThingResponse'     { _ctrsThingARN       :: !(Maybe Text)@@ -131,11 +135,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ctrsThingARN'+-- * 'ctrsThingARN' - The ARN of the new thing. ----- * 'ctrsThingName'+-- * 'ctrsThingName' - The name of the new thing. ----- * 'ctrsResponseStatus'+-- * 'ctrsResponseStatus' - -- | The response status code. createThingResponse     :: Int -- ^ 'ctrsResponseStatus'     -> CreateThingResponse@@ -154,7 +158,7 @@ ctrsThingName :: Lens' CreateThingResponse (Maybe Text) ctrsThingName = lens _ctrsThingName (\ s a -> s{_ctrsThingName = a}); --- | The response status code.+-- | -- | The response status code. ctrsResponseStatus :: Lens' CreateThingResponse Int ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Creates a new thing type.+--+-- module Network.AWS.IoT.CreateThingType     (     -- * Creating a Request@@ -46,6 +48,8 @@  -- | The input for the CreateThingType operation. --+--+-- -- /See:/ 'createThingType' smart constructor. data CreateThingType = CreateThingType'     { _cttThingTypeProperties :: !(Maybe ThingTypeProperties)@@ -56,9 +60,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cttThingTypeProperties'+-- * 'cttThingTypeProperties' - The ThingTypeProperties for the thing type to create. It contains information about the new thing type including a description, and a list of searchable thing attribute names. ----- * 'cttThingTypeName'+-- * 'cttThingTypeName' - The name of the thing type. createThingType     :: Text -- ^ 'cttThingTypeName'     -> CreateThingType@@ -109,6 +113,8 @@  -- | The output of the CreateThingType operation. --+--+-- -- /See:/ 'createThingTypeResponse' smart constructor. data CreateThingTypeResponse = CreateThingTypeResponse'     { _cttrsThingTypeName  :: !(Maybe Text)@@ -120,11 +126,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cttrsThingTypeName'+-- * 'cttrsThingTypeName' - The name of the thing type. ----- * 'cttrsThingTypeARN'+-- * 'cttrsThingTypeARN' - The Amazon Resource Name (ARN) of the thing type. ----- * 'cttrsResponseStatus'+-- * 'cttrsResponseStatus' - -- | The response status code. createThingTypeResponse     :: Int -- ^ 'cttrsResponseStatus'     -> CreateThingTypeResponse@@ -143,7 +149,7 @@ cttrsThingTypeARN :: Lens' CreateThingTypeResponse (Maybe Text) cttrsThingTypeARN = lens _cttrsThingTypeARN (\ s a -> s{_cttrsThingTypeARN = a}); --- | The response status code.+-- | -- | The response status code. cttrsResponseStatus :: Lens' CreateThingTypeResponse Int cttrsResponseStatus = lens _cttrsResponseStatus (\ s a -> s{_cttrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Creates a rule. Creating rules is an administrator-level action. Any user who has permission to create rules will be able to access data processed by the rule.+--+-- module Network.AWS.IoT.CreateTopicRule     (     -- * Creating a Request@@ -42,6 +44,8 @@  -- | The input for the CreateTopicRule operation. --+--+-- -- /See:/ 'createTopicRule' smart constructor. data CreateTopicRule = CreateTopicRule'     { _ctrRuleName         :: !Text@@ -52,9 +56,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ctrRuleName'+-- * 'ctrRuleName' - The name of the rule. ----- * 'ctrTopicRulePayload'+-- * 'ctrTopicRulePayload' - The rule payload. createTopicRule     :: Text -- ^ 'ctrRuleName'     -> TopicRulePayload -- ^ 'ctrTopicRulePayload'

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Deletes a registered CA certificate.+--+-- module Network.AWS.IoT.DeleteCACertificate     (     -- * Creating a Request@@ -43,6 +45,8 @@  -- | Input for the DeleteCACertificate operation. --+--+-- -- /See:/ 'deleteCACertificate' smart constructor. newtype DeleteCACertificate = DeleteCACertificate'     { _dcacCertificateId :: Text@@ -52,7 +56,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dcacCertificateId'+-- * 'dcacCertificateId' - The ID of the certificate to delete. deleteCACertificate     :: Text -- ^ 'dcacCertificateId'     -> DeleteCACertificate@@ -91,6 +95,8 @@  -- | The output for the DeleteCACertificate operation. --+--+-- -- /See:/ 'deleteCACertificateResponse' smart constructor. newtype DeleteCACertificateResponse = DeleteCACertificateResponse'     { _dcacrsResponseStatus :: Int@@ -100,7 +106,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dcacrsResponseStatus'+-- * 'dcacrsResponseStatus' - -- | The response status code. deleteCACertificateResponse     :: Int -- ^ 'dcacrsResponseStatus'     -> DeleteCACertificateResponse@@ -109,7 +115,7 @@     { _dcacrsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. dcacrsResponseStatus :: Lens' DeleteCACertificateResponse Int dcacrsResponseStatus = lens _dcacrsResponseStatus (\ s a -> s{_dcacrsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Deletes the specified certificate. ----- A certificate cannot be deleted if it has a policy attached to it or if its status is set to ACTIVE. To delete a certificate, first use the < DetachPrincipalPolicy> API to detach all policies. Next, use the < UpdateCertificate> API to set the certificate to the INACTIVE status.+--+-- A certificate cannot be deleted if it has a policy attached to it or if its status is set to ACTIVE. To delete a certificate, first use the 'DetachPrincipalPolicy' API to detach all policies. Next, use the 'UpdateCertificate' API to set the certificate to the INACTIVE status.+-- module Network.AWS.IoT.DeleteCertificate     (     -- * Creating a Request@@ -43,6 +45,8 @@  -- | The input for the DeleteCertificate operation. --+--+-- -- /See:/ 'deleteCertificate' smart constructor. newtype DeleteCertificate = DeleteCertificate'     { _dcCertificateId :: Text@@ -52,7 +56,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dcCertificateId'+-- * 'dcCertificateId' - The ID of the certificate. deleteCertificate     :: Text -- ^ 'dcCertificateId'     -> DeleteCertificate

@@ -20,11 +20,13 @@ -- -- Deletes the specified policy. --+-- -- A policy cannot be deleted if it has non-default versions or it is attached to any certificate. -- -- To delete a policy, use the DeletePolicyVersion API to delete all non-default versions of the policy; use the DetachPrincipalPolicy API to detach the policy from any certificate; and then use the DeletePolicy API to delete the policy. -- -- When a policy is deleted using DeletePolicy, its default version is deleted with it.+-- module Network.AWS.IoT.DeletePolicy     (     -- * Creating a Request@@ -47,6 +49,8 @@  -- | The input for the DeletePolicy operation. --+--+-- -- /See:/ 'deletePolicy' smart constructor. newtype DeletePolicy = DeletePolicy'     { _dpPolicyName :: Text@@ -56,7 +60,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dpPolicyName'+-- * 'dpPolicyName' - The name of the policy to delete. deletePolicy     :: Text -- ^ 'dpPolicyName'     -> DeletePolicy

@@ -18,7 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes the specified version of the specified policy. You cannot delete the default version of a policy using this API. To delete the default version of a policy, use < DeletePolicy>. To find out which version of a policy is marked as the default version, use ListPolicyVersions.+-- Deletes the specified version of the specified policy. You cannot delete the default version of a policy using this API. To delete the default version of a policy, use 'DeletePolicy' . To find out which version of a policy is marked as the default version, use ListPolicyVersions.+--+-- module Network.AWS.IoT.DeletePolicyVersion     (     -- * Creating a Request@@ -42,6 +44,8 @@  -- | The input for the DeletePolicyVersion operation. --+--+-- -- /See:/ 'deletePolicyVersion' smart constructor. data DeletePolicyVersion = DeletePolicyVersion'     { _dpvPolicyName      :: !Text@@ -52,9 +56,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dpvPolicyName'+-- * 'dpvPolicyName' - The name of the policy. ----- * 'dpvPolicyVersionId'+-- * 'dpvPolicyVersionId' - The policy version ID. deletePolicyVersion     :: Text -- ^ 'dpvPolicyName'     -> Text -- ^ 'dpvPolicyVersionId'

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Deletes a CA certificate registration code.+--+-- module Network.AWS.IoT.DeleteRegistrationCode     (     -- * Creating a Request@@ -41,6 +43,8 @@  -- | The input for the DeleteRegistrationCode operation. --+--+-- -- /See:/ 'deleteRegistrationCode' smart constructor. data DeleteRegistrationCode =     DeleteRegistrationCode'@@ -77,6 +81,8 @@  -- | The output for the DeleteRegistrationCode operation. --+--+-- -- /See:/ 'deleteRegistrationCodeResponse' smart constructor. newtype DeleteRegistrationCodeResponse = DeleteRegistrationCodeResponse'     { _drcrsResponseStatus :: Int@@ -86,7 +92,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drcrsResponseStatus'+-- * 'drcrsResponseStatus' - -- | The response status code. deleteRegistrationCodeResponse     :: Int -- ^ 'drcrsResponseStatus'     -> DeleteRegistrationCodeResponse@@ -95,7 +101,7 @@     { _drcrsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. drcrsResponseStatus :: Lens' DeleteRegistrationCodeResponse Int drcrsResponseStatus = lens _drcrsResponseStatus (\ s a -> s{_drcrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Deletes the specified thing.+--+-- module Network.AWS.IoT.DeleteThing     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | The input for the DeleteThing operation. --+--+-- -- /See:/ 'deleteThing' smart constructor. data DeleteThing = DeleteThing'     { _dtExpectedVersion :: !(Maybe Integer)@@ -54,9 +58,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dtExpectedVersion'+-- * 'dtExpectedVersion' - The expected version of the thing record in the registry. If the version of the record in the registry does not match the expected version specified in the request, the @DeleteThing@ request is rejected with a @VersionConflictException@ . ----- * 'dtThingName'+-- * 'dtThingName' - The name of the thing to delete. deleteThing     :: Text -- ^ 'dtThingName'     -> DeleteThing@@ -66,7 +70,7 @@     , _dtThingName = pThingName_     } --- | The expected version of the thing record in the registry. If the version of the record in the registry does not match the expected version specified in the request, the 'DeleteThing' request is rejected with a 'VersionConflictException'.+-- | The expected version of the thing record in the registry. If the version of the record in the registry does not match the expected version specified in the request, the @DeleteThing@ request is rejected with a @VersionConflictException@ . dtExpectedVersion :: Lens' DeleteThing (Maybe Integer) dtExpectedVersion = lens _dtExpectedVersion (\ s a -> s{_dtExpectedVersion = a}); @@ -99,6 +103,8 @@  -- | The output of the DeleteThing operation. --+--+-- -- /See:/ 'deleteThingResponse' smart constructor. newtype DeleteThingResponse = DeleteThingResponse'     { _delrsResponseStatus :: Int@@ -108,7 +114,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'delrsResponseStatus'+-- * 'delrsResponseStatus' - -- | The response status code. deleteThingResponse     :: Int -- ^ 'delrsResponseStatus'     -> DeleteThingResponse@@ -117,7 +123,7 @@     { _delrsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. delrsResponseStatus :: Lens' DeleteThingResponse Int delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a}); 

@@ -18,7 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes the specified thing type . You cannot delete a thing type if it has things associated with it. To delete a thing type, first mark it as deprecated by calling < DeprecateThingType>, then remove any associated things by calling < UpdateThing> to change the thing type on any associated thing, and finally use < DeleteThingType> to delete the thing type.+-- Deletes the specified thing type . You cannot delete a thing type if it has things associated with it. To delete a thing type, first mark it as deprecated by calling 'DeprecateThingType' , then remove any associated things by calling 'UpdateThing' to change the thing type on any associated thing, and finally use 'DeleteThingType' to delete the thing type.+--+-- module Network.AWS.IoT.DeleteThingType     (     -- * Creating a Request@@ -43,6 +45,8 @@  -- | The input for the DeleteThingType operation. --+--+-- -- /See:/ 'deleteThingType' smart constructor. newtype DeleteThingType = DeleteThingType'     { _dttThingTypeName :: Text@@ -52,7 +56,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dttThingTypeName'+-- * 'dttThingTypeName' - The name of the thing type. deleteThingType     :: Text -- ^ 'dttThingTypeName'     -> DeleteThingType@@ -89,6 +93,8 @@  -- | The output for the DeleteThingType operation. --+--+-- -- /See:/ 'deleteThingTypeResponse' smart constructor. newtype DeleteThingTypeResponse = DeleteThingTypeResponse'     { _dttrsResponseStatus :: Int@@ -98,7 +104,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dttrsResponseStatus'+-- * 'dttrsResponseStatus' - -- | The response status code. deleteThingTypeResponse     :: Int -- ^ 'dttrsResponseStatus'     -> DeleteThingTypeResponse@@ -107,7 +113,7 @@     { _dttrsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. dttrsResponseStatus :: Lens' DeleteThingTypeResponse Int dttrsResponseStatus = lens _dttrsResponseStatus (\ s a -> s{_dttrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Deletes the specified rule.+--+-- module Network.AWS.IoT.DeleteTopicRule     (     -- * Creating a Request@@ -41,6 +43,8 @@  -- | The input for the DeleteTopicRule operation. --+--+-- -- /See:/ 'deleteTopicRule' smart constructor. newtype DeleteTopicRule = DeleteTopicRule'     { _dRuleName :: Text@@ -50,7 +54,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dRuleName'+-- * 'dRuleName' - The name of the rule. deleteTopicRule     :: Text -- ^ 'dRuleName'     -> DeleteTopicRule

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Deprecates a thing type. You can not associate new things with deprecated thing type.+--+-- module Network.AWS.IoT.DeprecateThingType     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | The input for the DeprecateThingType operation. --+--+-- -- /See:/ 'deprecateThingType' smart constructor. data DeprecateThingType = DeprecateThingType'     { _depUndoDeprecate :: !(Maybe Bool)@@ -54,9 +58,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'depUndoDeprecate'+-- * 'depUndoDeprecate' - Whether to undeprecate a deprecated thing type. If __true__ , the thing type will not be deprecated anymore and you can associate it with things. ----- * 'depThingTypeName'+-- * 'depThingTypeName' - The name of the thing type to deprecate. deprecateThingType     :: Text -- ^ 'depThingTypeName'     -> DeprecateThingType@@ -66,7 +70,7 @@     , _depThingTypeName = pThingTypeName_     } --- | Whether to undeprecate a deprecated thing type. If __true__, the thing type will not be deprecated anymore and you can associate it with things.+-- | Whether to undeprecate a deprecated thing type. If __true__ , the thing type will not be deprecated anymore and you can associate it with things. depUndoDeprecate :: Lens' DeprecateThingType (Maybe Bool) depUndoDeprecate = lens _depUndoDeprecate (\ s a -> s{_depUndoDeprecate = a}); @@ -107,6 +111,8 @@  -- | The output for the DeprecateThingType operation. --+--+-- -- /See:/ 'deprecateThingTypeResponse' smart constructor. newtype DeprecateThingTypeResponse = DeprecateThingTypeResponse'     { _deprsResponseStatus :: Int@@ -116,7 +122,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'deprsResponseStatus'+-- * 'deprsResponseStatus' - -- | The response status code. deprecateThingTypeResponse     :: Int -- ^ 'deprsResponseStatus'     -> DeprecateThingTypeResponse@@ -125,7 +131,7 @@     { _deprsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. deprsResponseStatus :: Lens' DeprecateThingTypeResponse Int deprsResponseStatus = lens _deprsResponseStatus (\ s a -> s{_deprsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Describes a registered CA certificate.+--+-- module Network.AWS.IoT.DescribeCACertificate     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | The input for the DescribeCACertificate operation. --+--+-- -- /See:/ 'describeCACertificate' smart constructor. newtype DescribeCACertificate = DescribeCACertificate'     { _dCertificateId :: Text@@ -53,7 +57,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dCertificateId'+-- * 'dCertificateId' - The CA certificate identifier. describeCACertificate     :: Text -- ^ 'dCertificateId'     -> DescribeCACertificate@@ -93,6 +97,8 @@  -- | The output from the DescribeCACertificate operation. --+--+-- -- /See:/ 'describeCACertificateResponse' smart constructor. data DescribeCACertificateResponse = DescribeCACertificateResponse'     { _desrsCertificateDescription :: !(Maybe CACertificateDescription)@@ -103,9 +109,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'desrsCertificateDescription'+-- * 'desrsCertificateDescription' - The CA certificate description. ----- * 'desrsResponseStatus'+-- * 'desrsResponseStatus' - -- | The response status code. describeCACertificateResponse     :: Int -- ^ 'desrsResponseStatus'     -> DescribeCACertificateResponse@@ -119,7 +125,7 @@ desrsCertificateDescription :: Lens' DescribeCACertificateResponse (Maybe CACertificateDescription) desrsCertificateDescription = lens _desrsCertificateDescription (\ s a -> s{_desrsCertificateDescription = a}); --- | The response status code.+-- | -- | The response status code. desrsResponseStatus :: Lens' DescribeCACertificateResponse Int desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets information about the specified certificate.+--+-- module Network.AWS.IoT.DescribeCertificate     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | The input for the DescribeCertificate operation. --+--+-- -- /See:/ 'describeCertificate' smart constructor. newtype DescribeCertificate = DescribeCertificate'     { _desCertificateId :: Text@@ -53,7 +57,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'desCertificateId'+-- * 'desCertificateId' - The ID of the certificate. describeCertificate     :: Text -- ^ 'desCertificateId'     -> DescribeCertificate@@ -93,6 +97,8 @@  -- | The output of the DescribeCertificate operation. --+--+-- -- /See:/ 'describeCertificateResponse' smart constructor. data DescribeCertificateResponse = DescribeCertificateResponse'     { _dcrsCertificateDescription :: !(Maybe CertificateDescription)@@ -103,9 +109,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dcrsCertificateDescription'+-- * 'dcrsCertificateDescription' - The description of the certificate. ----- * 'dcrsResponseStatus'+-- * 'dcrsResponseStatus' - -- | The response status code. describeCertificateResponse     :: Int -- ^ 'dcrsResponseStatus'     -> DescribeCertificateResponse@@ -119,7 +125,7 @@ dcrsCertificateDescription :: Lens' DescribeCertificateResponse (Maybe CertificateDescription) dcrsCertificateDescription = lens _dcrsCertificateDescription (\ s a -> s{_dcrsCertificateDescription = a}); --- | The response status code.+-- | -- | The response status code. dcrsResponseStatus :: Lens' DescribeCertificateResponse Int dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Returns a unique endpoint specific to the AWS account making the call.+--+-- module Network.AWS.IoT.DescribeEndpoint     (     -- * Creating a Request@@ -42,6 +44,8 @@  -- | The input for the DescribeEndpoint operation. --+--+-- -- /See:/ 'describeEndpoint' smart constructor. data DescribeEndpoint =     DescribeEndpoint'@@ -77,6 +81,8 @@  -- | The output from the DescribeEndpoint operation. --+--+-- -- /See:/ 'describeEndpointResponse' smart constructor. data DescribeEndpointResponse = DescribeEndpointResponse'     { _dersEndpointAddress :: !(Maybe Text)@@ -87,9 +93,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dersEndpointAddress'+-- * 'dersEndpointAddress' - The endpoint. The format of the endpoint is as follows: /identifier/ .iot./region/ .amazonaws.com. ----- * 'dersResponseStatus'+-- * 'dersResponseStatus' - -- | The response status code. describeEndpointResponse     :: Int -- ^ 'dersResponseStatus'     -> DescribeEndpointResponse@@ -99,11 +105,11 @@     , _dersResponseStatus = pResponseStatus_     } --- | The endpoint. The format of the endpoint is as follows: /identifier/.iot./region/.amazonaws.com.+-- | The endpoint. The format of the endpoint is as follows: /identifier/ .iot./region/ .amazonaws.com. dersEndpointAddress :: Lens' DescribeEndpointResponse (Maybe Text) dersEndpointAddress = lens _dersEndpointAddress (\ s a -> s{_dersEndpointAddress = a}); --- | The response status code.+-- | -- | The response status code. dersResponseStatus :: Lens' DescribeEndpointResponse Int dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets information about the specified thing.+--+-- module Network.AWS.IoT.DescribeThing     (     -- * Creating a Request@@ -48,6 +50,8 @@  -- | The input for the DescribeThing operation. --+--+-- -- /See:/ 'describeThing' smart constructor. newtype DescribeThing = DescribeThing'     { _dThingName :: Text@@ -57,7 +61,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dThingName'+-- * 'dThingName' - The name of the thing. describeThing     :: Text -- ^ 'dThingName'     -> DescribeThing@@ -99,6 +103,8 @@  -- | The output from the DescribeThing operation. --+--+-- -- /See:/ 'describeThingResponse' smart constructor. data DescribeThingResponse = DescribeThingResponse'     { _dtrsDefaultClientId :: !(Maybe Text)@@ -113,17 +119,17 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dtrsDefaultClientId'+-- * 'dtrsDefaultClientId' - The default client ID. ----- * 'dtrsThingTypeName'+-- * 'dtrsThingTypeName' - The thing type name. ----- * 'dtrsAttributes'+-- * 'dtrsAttributes' - The thing attributes. ----- * 'dtrsVersion'+-- * 'dtrsVersion' - The current version of the thing record in the registry. ----- * 'dtrsThingName'+-- * 'dtrsThingName' - The name of the thing. ----- * 'dtrsResponseStatus'+-- * 'dtrsResponseStatus' - -- | The response status code. describeThingResponse     :: Int -- ^ 'dtrsResponseStatus'     -> DescribeThingResponse@@ -150,8 +156,6 @@ dtrsAttributes = lens _dtrsAttributes (\ s a -> s{_dtrsAttributes = a}) . _Default . _Map;  -- | The current version of the thing record in the registry.------ To avoid unintentional changes to the information in the registry, you can pass the version information in the 'expectedVersion' parameter of the 'UpdateThing' and 'DeleteThing' calls. dtrsVersion :: Lens' DescribeThingResponse (Maybe Integer) dtrsVersion = lens _dtrsVersion (\ s a -> s{_dtrsVersion = a}); @@ -159,7 +163,7 @@ dtrsThingName :: Lens' DescribeThingResponse (Maybe Text) dtrsThingName = lens _dtrsThingName (\ s a -> s{_dtrsThingName = a}); --- | The response status code.+-- | -- | The response status code. dtrsResponseStatus :: Lens' DescribeThingResponse Int dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets information about the specified thing type.+--+-- module Network.AWS.IoT.DescribeThingType     (     -- * Creating a Request@@ -46,6 +48,8 @@  -- | The input for the DescribeThingType operation. --+--+-- -- /See:/ 'describeThingType' smart constructor. newtype DescribeThingType = DescribeThingType'     { _dThingTypeName :: Text@@ -55,7 +59,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dThingTypeName'+-- * 'dThingTypeName' - The name of the thing type. describeThingType     :: Text -- ^ 'dThingTypeName'     -> DescribeThingType@@ -96,6 +100,8 @@  -- | The output for the DescribeThingType operation. --+--+-- -- /See:/ 'describeThingTypeResponse' smart constructor. data DescribeThingTypeResponse = DescribeThingTypeResponse'     { _drsThingTypeProperties :: !(Maybe ThingTypeProperties)@@ -108,13 +114,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drsThingTypeProperties'+-- * 'drsThingTypeProperties' - The ThingTypeProperties contains information about the thing type including description, and a list of searchable thing attribute names. ----- * 'drsThingTypeName'+-- * 'drsThingTypeName' - The name of the thing type. ----- * 'drsThingTypeMetadata'+-- * 'drsThingTypeMetadata' - Undocumented member. ----- * 'drsResponseStatus'+-- * 'drsResponseStatus' - -- | The response status code. describeThingTypeResponse     :: Int -- ^ 'drsResponseStatus'     -> DescribeThingTypeResponse@@ -138,7 +144,7 @@ drsThingTypeMetadata :: Lens' DescribeThingTypeResponse (Maybe ThingTypeMetadata) drsThingTypeMetadata = lens _drsThingTypeMetadata (\ s a -> s{_drsThingTypeMetadata = a}); --- | The response status code.+-- | -- | The response status code. drsResponseStatus :: Lens' DescribeThingTypeResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Removes the specified policy from the specified certificate.+--+-- module Network.AWS.IoT.DetachPrincipalPolicy     (     -- * Creating a Request@@ -42,6 +44,8 @@  -- | The input for the DetachPrincipalPolicy operation. --+--+-- -- /See:/ 'detachPrincipalPolicy' smart constructor. data DetachPrincipalPolicy = DetachPrincipalPolicy'     { _dppPolicyName :: !Text@@ -52,9 +56,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dppPolicyName'+-- * 'dppPolicyName' - The name of the policy to detach. ----- * 'dppPrincipal'+-- * 'dppPrincipal' - The principal. If the principal is a certificate, specify the certificate ARN. If the principal is an Amazon Cognito identity, specify the identity ID. detachPrincipalPolicy     :: Text -- ^ 'dppPolicyName'     -> Text -- ^ 'dppPrincipal'@@ -69,9 +73,7 @@ dppPolicyName :: Lens' DetachPrincipalPolicy Text dppPolicyName = lens _dppPolicyName (\ s a -> s{_dppPolicyName = a}); --- | The principal.------ If the principal is a certificate, specify the certificate ARN. If the principal is an Amazon Cognito identity, specify the identity ID.+-- | The principal. If the principal is a certificate, specify the certificate ARN. If the principal is an Amazon Cognito identity, specify the identity ID. dppPrincipal :: Lens' DetachPrincipalPolicy Text dppPrincipal = lens _dppPrincipal (\ s a -> s{_dppPrincipal = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Detaches the specified principal from the specified thing.+--+-- module Network.AWS.IoT.DetachThingPrincipal     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | The input for the DetachThingPrincipal operation. --+--+-- -- /See:/ 'detachThingPrincipal' smart constructor. data DetachThingPrincipal = DetachThingPrincipal'     { _dtpThingName :: !Text@@ -54,9 +58,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dtpThingName'+-- * 'dtpThingName' - The name of the thing. ----- * 'dtpPrincipal'+-- * 'dtpPrincipal' - If the principal is a certificate, this value must be ARN of the certificate. If the principal is an Amazon Cognito identity, this value must be the ID of the Amazon Cognito identity. detachThingPrincipal     :: Text -- ^ 'dtpThingName'     -> Text -- ^ 'dtpPrincipal'@@ -103,6 +107,8 @@  -- | The output from the DetachThingPrincipal operation. --+--+-- -- /See:/ 'detachThingPrincipalResponse' smart constructor. newtype DetachThingPrincipalResponse = DetachThingPrincipalResponse'     { _dtprsResponseStatus :: Int@@ -112,7 +118,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dtprsResponseStatus'+-- * 'dtprsResponseStatus' - -- | The response status code. detachThingPrincipalResponse     :: Int -- ^ 'dtprsResponseStatus'     -> DetachThingPrincipalResponse@@ -121,7 +127,7 @@     { _dtprsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. dtprsResponseStatus :: Lens' DetachThingPrincipalResponse Int dtprsResponseStatus = lens _dtprsResponseStatus (\ s a -> s{_dtprsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Disables the specified rule.+--+-- module Network.AWS.IoT.DisableTopicRule     (     -- * Creating a Request@@ -41,6 +43,8 @@  -- | The input for the DisableTopicRuleRequest operation. --+--+-- -- /See:/ 'disableTopicRule' smart constructor. newtype DisableTopicRule = DisableTopicRule'     { _dtrRuleName :: Text@@ -50,7 +54,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dtrRuleName'+-- * 'dtrRuleName' - The name of the rule to disable. disableTopicRule     :: Text -- ^ 'dtrRuleName'     -> DisableTopicRule

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Enables the specified rule.+--+-- module Network.AWS.IoT.EnableTopicRule     (     -- * Creating a Request@@ -41,6 +43,8 @@  -- | The input for the EnableTopicRuleRequest operation. --+--+-- -- /See:/ 'enableTopicRule' smart constructor. newtype EnableTopicRule = EnableTopicRule'     { _etrRuleName :: Text@@ -50,7 +54,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'etrRuleName'+-- * 'etrRuleName' - The name of the topic rule to enable. enableTopicRule     :: Text -- ^ 'etrRuleName'     -> EnableTopicRule

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets the logging options.+--+-- module Network.AWS.IoT.GetLoggingOptions     (     -- * Creating a Request@@ -43,6 +45,8 @@  -- | The input for the GetLoggingOptions operation. --+--+-- -- /See:/ 'getLoggingOptions' smart constructor. data GetLoggingOptions =     GetLoggingOptions'@@ -79,6 +83,8 @@  -- | The output from the GetLoggingOptions operation. --+--+-- -- /See:/ 'getLoggingOptionsResponse' smart constructor. data GetLoggingOptionsResponse = GetLoggingOptionsResponse'     { _glorsLogLevel       :: !(Maybe LogLevel)@@ -90,11 +96,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'glorsLogLevel'+-- * 'glorsLogLevel' - The logging level. ----- * 'glorsRoleARN'+-- * 'glorsRoleARN' - The ARN of the IAM role that grants access. ----- * 'glorsResponseStatus'+-- * 'glorsResponseStatus' - -- | The response status code. getLoggingOptionsResponse     :: Int -- ^ 'glorsResponseStatus'     -> GetLoggingOptionsResponse@@ -113,7 +119,7 @@ glorsRoleARN :: Lens' GetLoggingOptionsResponse (Maybe Text) glorsRoleARN = lens _glorsRoleARN (\ s a -> s{_glorsRoleARN = a}); --- | The response status code.+-- | -- | The response status code. glorsResponseStatus :: Lens' GetLoggingOptionsResponse Int glorsResponseStatus = lens _glorsResponseStatus (\ s a -> s{_glorsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets information about the specified policy with the policy document of the default version.+--+-- module Network.AWS.IoT.GetPolicy     (     -- * Creating a Request@@ -47,6 +49,8 @@  -- | The input for the GetPolicy operation. --+--+-- -- /See:/ 'getPolicy' smart constructor. newtype GetPolicy = GetPolicy'     { _gpPolicyName :: Text@@ -56,7 +60,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gpPolicyName'+-- * 'gpPolicyName' - The name of the policy. getPolicy     :: Text -- ^ 'gpPolicyName'     -> GetPolicy@@ -97,6 +101,8 @@  -- | The output from the GetPolicy operation. --+--+-- -- /See:/ 'getPolicyResponse' smart constructor. data GetPolicyResponse = GetPolicyResponse'     { _gprsPolicyName       :: !(Maybe Text)@@ -110,15 +116,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gprsPolicyName'+-- * 'gprsPolicyName' - The policy name. ----- * 'gprsPolicyDocument'+-- * 'gprsPolicyDocument' - The JSON document that describes the policy. ----- * 'gprsDefaultVersionId'+-- * 'gprsDefaultVersionId' - The default policy version ID. ----- * 'gprsPolicyARN'+-- * 'gprsPolicyARN' - The policy ARN. ----- * 'gprsResponseStatus'+-- * 'gprsResponseStatus' - -- | The response status code. getPolicyResponse     :: Int -- ^ 'gprsResponseStatus'     -> GetPolicyResponse@@ -147,7 +153,7 @@ gprsPolicyARN :: Lens' GetPolicyResponse (Maybe Text) gprsPolicyARN = lens _gprsPolicyARN (\ s a -> s{_gprsPolicyARN = a}); --- | The response status code.+-- | -- | The response status code. gprsResponseStatus :: Lens' GetPolicyResponse Int gprsResponseStatus = lens _gprsResponseStatus (\ s a -> s{_gprsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets information about the specified policy version.+--+-- module Network.AWS.IoT.GetPolicyVersion     (     -- * Creating a Request@@ -49,6 +51,8 @@  -- | The input for the GetPolicyVersion operation. --+--+-- -- /See:/ 'getPolicyVersion' smart constructor. data GetPolicyVersion = GetPolicyVersion'     { _gpvPolicyName      :: !Text@@ -59,9 +63,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gpvPolicyName'+-- * 'gpvPolicyName' - The name of the policy. ----- * 'gpvPolicyVersionId'+-- * 'gpvPolicyVersionId' - The policy version ID. getPolicyVersion     :: Text -- ^ 'gpvPolicyName'     -> Text -- ^ 'gpvPolicyVersionId'@@ -111,6 +115,8 @@  -- | The output from the GetPolicyVersion operation. --+--+-- -- /See:/ 'getPolicyVersionResponse' smart constructor. data GetPolicyVersionResponse = GetPolicyVersionResponse'     { _gpvrsPolicyName       :: !(Maybe Text)@@ -125,17 +131,17 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gpvrsPolicyName'+-- * 'gpvrsPolicyName' - The policy name. ----- * 'gpvrsPolicyDocument'+-- * 'gpvrsPolicyDocument' - The JSON document that describes the policy. ----- * 'gpvrsPolicyVersionId'+-- * 'gpvrsPolicyVersionId' - The policy version ID. ----- * 'gpvrsPolicyARN'+-- * 'gpvrsPolicyARN' - The policy ARN. ----- * 'gpvrsIsDefaultVersion'+-- * 'gpvrsIsDefaultVersion' - Specifies whether the policy version is the default. ----- * 'gpvrsResponseStatus'+-- * 'gpvrsResponseStatus' - -- | The response status code. getPolicyVersionResponse     :: Int -- ^ 'gpvrsResponseStatus'     -> GetPolicyVersionResponse@@ -169,7 +175,7 @@ gpvrsIsDefaultVersion :: Lens' GetPolicyVersionResponse (Maybe Bool) gpvrsIsDefaultVersion = lens _gpvrsIsDefaultVersion (\ s a -> s{_gpvrsIsDefaultVersion = a}); --- | The response status code.+-- | -- | The response status code. gpvrsResponseStatus :: Lens' GetPolicyVersionResponse Int gpvrsResponseStatus = lens _gpvrsResponseStatus (\ s a -> s{_gpvrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets a registration code used to register a CA certificate with AWS IoT.+--+-- module Network.AWS.IoT.GetRegistrationCode     (     -- * Creating a Request@@ -42,6 +44,8 @@  -- | The input to the GetRegistrationCode operation. --+--+-- -- /See:/ 'getRegistrationCode' smart constructor. data GetRegistrationCode =     GetRegistrationCode'@@ -78,6 +82,8 @@  -- | The output from the GetRegistrationCode operation. --+--+-- -- /See:/ 'getRegistrationCodeResponse' smart constructor. data GetRegistrationCodeResponse = GetRegistrationCodeResponse'     { _grcrsRegistrationCode :: !(Maybe Text)@@ -88,9 +94,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'grcrsRegistrationCode'+-- * 'grcrsRegistrationCode' - The CA certificate registration code. ----- * 'grcrsResponseStatus'+-- * 'grcrsResponseStatus' - -- | The response status code. getRegistrationCodeResponse     :: Int -- ^ 'grcrsResponseStatus'     -> GetRegistrationCodeResponse@@ -104,7 +110,7 @@ grcrsRegistrationCode :: Lens' GetRegistrationCodeResponse (Maybe Text) grcrsRegistrationCode = lens _grcrsRegistrationCode (\ s a -> s{_grcrsRegistrationCode = a}); --- | The response status code.+-- | -- | The response status code. grcrsResponseStatus :: Lens' GetRegistrationCodeResponse Int grcrsResponseStatus = lens _grcrsResponseStatus (\ s a -> s{_grcrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets information about the specified rule.+--+-- module Network.AWS.IoT.GetTopicRule     (     -- * Creating a Request@@ -45,6 +47,8 @@  -- | The input for the GetTopicRule operation. --+--+-- -- /See:/ 'getTopicRule' smart constructor. newtype GetTopicRule = GetTopicRule'     { _gtrRuleName :: Text@@ -54,7 +58,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gtrRuleName'+-- * 'gtrRuleName' - The name of the rule. getTopicRule     :: Text -- ^ 'gtrRuleName'     -> GetTopicRule@@ -93,6 +97,8 @@  -- | The output from the GetTopicRule operation. --+--+-- -- /See:/ 'getTopicRuleResponse' smart constructor. data GetTopicRuleResponse = GetTopicRuleResponse'     { _gtrrsRule           :: !(Maybe TopicRule)@@ -104,11 +110,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gtrrsRule'+-- * 'gtrrsRule' - The rule. ----- * 'gtrrsRuleARN'+-- * 'gtrrsRuleARN' - The rule ARN. ----- * 'gtrrsResponseStatus'+-- * 'gtrrsResponseStatus' - -- | The response status code. getTopicRuleResponse     :: Int -- ^ 'gtrrsResponseStatus'     -> GetTopicRuleResponse@@ -127,7 +133,7 @@ gtrrsRuleARN :: Lens' GetTopicRuleResponse (Maybe Text) gtrrsRuleARN = lens _gtrrsRuleARN (\ s a -> s{_gtrrsRuleARN = a}); --- | The response status code.+-- | -- | The response status code. gtrrsResponseStatus :: Lens' GetTopicRuleResponse Int gtrrsResponseStatus = lens _gtrrsResponseStatus (\ s a -> s{_gtrrsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Lists the CA certificates registered for your AWS account. --+-- -- The results are paginated with a default page size of 25. You can use the returned marker to retrieve additional results.+-- module Network.AWS.IoT.ListCACertificates     (     -- * Creating a Request@@ -49,6 +51,8 @@  -- | Input for the ListCACertificates operation. --+--+-- -- /See:/ 'listCACertificates' smart constructor. data ListCACertificates = ListCACertificates'     { _lcacMarker         :: !(Maybe Text)@@ -60,11 +64,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lcacMarker'+-- * 'lcacMarker' - The marker for the next set of results. ----- * 'lcacAscendingOrder'+-- * 'lcacAscendingOrder' - Determines the order of the results. ----- * 'lcacPageSize'+-- * 'lcacPageSize' - The result page size. listCACertificates     :: ListCACertificates listCACertificates =@@ -117,6 +121,8 @@  -- | The output from the ListCACertificates operation. --+--+-- -- /See:/ 'listCACertificatesResponse' smart constructor. data ListCACertificatesResponse = ListCACertificatesResponse'     { _lcacrsCertificates   :: !(Maybe [CACertificate])@@ -128,11 +134,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lcacrsCertificates'+-- * 'lcacrsCertificates' - The CA certificates registered in your AWS account. ----- * 'lcacrsNextMarker'+-- * 'lcacrsNextMarker' - The current position within the list of CA certificates. ----- * 'lcacrsResponseStatus'+-- * 'lcacrsResponseStatus' - -- | The response status code. listCACertificatesResponse     :: Int -- ^ 'lcacrsResponseStatus'     -> ListCACertificatesResponse@@ -151,7 +157,7 @@ lcacrsNextMarker :: Lens' ListCACertificatesResponse (Maybe Text) lcacrsNextMarker = lens _lcacrsNextMarker (\ s a -> s{_lcacrsNextMarker = a}); --- | The response status code.+-- | -- | The response status code. lcacrsResponseStatus :: Lens' ListCACertificatesResponse Int lcacrsResponseStatus = lens _lcacrsResponseStatus (\ s a -> s{_lcacrsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Lists the certificates registered in your AWS account. --+-- -- The results are paginated with a default page size of 25. You can use the returned marker to retrieve additional results.+-- module Network.AWS.IoT.ListCertificates     (     -- * Creating a Request@@ -49,6 +51,8 @@  -- | The input for the ListCertificates operation. --+--+-- -- /See:/ 'listCertificates' smart constructor. data ListCertificates = ListCertificates'     { _lcMarker         :: !(Maybe Text)@@ -60,11 +64,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lcMarker'+-- * 'lcMarker' - The marker for the next set of results. ----- * 'lcAscendingOrder'+-- * 'lcAscendingOrder' - Specifies the order for results. If True, the results are returned in ascending order, based on the creation date. ----- * 'lcPageSize'+-- * 'lcPageSize' - The result page size. listCertificates     :: ListCertificates listCertificates =@@ -116,6 +120,8 @@  -- | The output of the ListCertificates operation. --+--+-- -- /See:/ 'listCertificatesResponse' smart constructor. data ListCertificatesResponse = ListCertificatesResponse'     { _lcrsCertificates   :: !(Maybe [Certificate])@@ -127,11 +133,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lcrsCertificates'+-- * 'lcrsCertificates' - The descriptions of the certificates. ----- * 'lcrsNextMarker'+-- * 'lcrsNextMarker' - The marker for the next set of results, or null if there are no additional results. ----- * 'lcrsResponseStatus'+-- * 'lcrsResponseStatus' - -- | The response status code. listCertificatesResponse     :: Int -- ^ 'lcrsResponseStatus'     -> ListCertificatesResponse@@ -150,7 +156,7 @@ lcrsNextMarker :: Lens' ListCertificatesResponse (Maybe Text) lcrsNextMarker = lens _lcrsNextMarker (\ s a -> s{_lcrsNextMarker = a}); --- | The response status code.+-- | -- | The response status code. lcrsResponseStatus :: Lens' ListCertificatesResponse Int lcrsResponseStatus = lens _lcrsResponseStatus (\ s a -> s{_lcrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- List the device certificates signed by the specified CA certificate.+--+-- module Network.AWS.IoT.ListCertificatesByCA     (     -- * Creating a Request@@ -48,6 +50,8 @@  -- | The input to the ListCertificatesByCA operation. --+--+-- -- /See:/ 'listCertificatesByCA' smart constructor. data ListCertificatesByCA = ListCertificatesByCA'     { _lcbcaMarker          :: !(Maybe Text)@@ -60,13 +64,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lcbcaMarker'+-- * 'lcbcaMarker' - The marker for the next set of results. ----- * 'lcbcaAscendingOrder'+-- * 'lcbcaAscendingOrder' - Specifies the order for results. If True, the results are returned in ascending order, based on the creation date. ----- * 'lcbcaPageSize'+-- * 'lcbcaPageSize' - The result page size. ----- * 'lcbcaCaCertificateId'+-- * 'lcbcaCaCertificateId' - The ID of the CA certificate. This operation will list all registered device certificate that were signed by this CA certificate. listCertificatesByCA     :: Text -- ^ 'lcbcaCaCertificateId'     -> ListCertificatesByCA@@ -127,6 +131,8 @@  -- | The output of the ListCertificatesByCA operation. --+--+-- -- /See:/ 'listCertificatesByCAResponse' smart constructor. data ListCertificatesByCAResponse = ListCertificatesByCAResponse'     { _lcbcarsCertificates   :: !(Maybe [Certificate])@@ -138,11 +144,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lcbcarsCertificates'+-- * 'lcbcarsCertificates' - The device certificates signed by the specified CA certificate. ----- * 'lcbcarsNextMarker'+-- * 'lcbcarsNextMarker' - The marker for the next set of results, or null if there are no additional results. ----- * 'lcbcarsResponseStatus'+-- * 'lcbcarsResponseStatus' - -- | The response status code. listCertificatesByCAResponse     :: Int -- ^ 'lcbcarsResponseStatus'     -> ListCertificatesByCAResponse@@ -161,7 +167,7 @@ lcbcarsNextMarker :: Lens' ListCertificatesByCAResponse (Maybe Text) lcbcarsNextMarker = lens _lcbcarsNextMarker (\ s a -> s{_lcbcarsNextMarker = a}); --- | The response status code.+-- | -- | The response status code. lcbcarsResponseStatus :: Lens' ListCertificatesByCAResponse Int lcbcarsResponseStatus = lens _lcbcarsResponseStatus (\ s a -> s{_lcbcarsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Lists certificates that are being transfered but not yet accepted.+--+-- module Network.AWS.IoT.ListOutgoingCertificates     (     -- * Creating a Request@@ -47,6 +49,8 @@  -- | The input to the ListOutgoingCertificates operation. --+--+-- -- /See:/ 'listOutgoingCertificates' smart constructor. data ListOutgoingCertificates = ListOutgoingCertificates'     { _locMarker         :: !(Maybe Text)@@ -58,11 +62,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'locMarker'+-- * 'locMarker' - The marker for the next set of results. ----- * 'locAscendingOrder'+-- * 'locAscendingOrder' - Specifies the order for results. If True, the results are returned in ascending order, based on the creation date. ----- * 'locPageSize'+-- * 'locPageSize' - The result page size. listOutgoingCertificates     :: ListOutgoingCertificates listOutgoingCertificates =@@ -115,6 +119,8 @@  -- | The output from the ListOutgoingCertificates operation. --+--+-- -- /See:/ 'listOutgoingCertificatesResponse' smart constructor. data ListOutgoingCertificatesResponse = ListOutgoingCertificatesResponse'     { _locrsNextMarker           :: !(Maybe Text)@@ -126,11 +132,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'locrsNextMarker'+-- * 'locrsNextMarker' - The marker for the next set of results. ----- * 'locrsOutgoingCertificates'+-- * 'locrsOutgoingCertificates' - The certificates that are being transfered but not yet accepted. ----- * 'locrsResponseStatus'+-- * 'locrsResponseStatus' - -- | The response status code. listOutgoingCertificatesResponse     :: Int -- ^ 'locrsResponseStatus'     -> ListOutgoingCertificatesResponse@@ -149,7 +155,7 @@ locrsOutgoingCertificates :: Lens' ListOutgoingCertificatesResponse [OutgoingCertificate] locrsOutgoingCertificates = lens _locrsOutgoingCertificates (\ s a -> s{_locrsOutgoingCertificates = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. locrsResponseStatus :: Lens' ListOutgoingCertificatesResponse Int locrsResponseStatus = lens _locrsResponseStatus (\ s a -> s{_locrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Lists your policies.+--+-- module Network.AWS.IoT.ListPolicies     (     -- * Creating a Request@@ -47,6 +49,8 @@  -- | The input for the ListPolicies operation. --+--+-- -- /See:/ 'listPolicies' smart constructor. data ListPolicies = ListPolicies'     { _lpMarker         :: !(Maybe Text)@@ -58,11 +62,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lpMarker'+-- * 'lpMarker' - The marker for the next set of results. ----- * 'lpAscendingOrder'+-- * 'lpAscendingOrder' - Specifies the order for results. If true, the results are returned in ascending creation order. ----- * 'lpPageSize'+-- * 'lpPageSize' - The result page size. listPolicies     :: ListPolicies listPolicies =@@ -114,6 +118,8 @@  -- | The output from the ListPolicies operation. --+--+-- -- /See:/ 'listPoliciesResponse' smart constructor. data ListPoliciesResponse = ListPoliciesResponse'     { _lprsNextMarker     :: !(Maybe Text)@@ -125,11 +131,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lprsNextMarker'+-- * 'lprsNextMarker' - The marker for the next set of results, or null if there are no additional results. ----- * 'lprsPolicies'+-- * 'lprsPolicies' - The descriptions of the policies. ----- * 'lprsResponseStatus'+-- * 'lprsResponseStatus' - -- | The response status code. listPoliciesResponse     :: Int -- ^ 'lprsResponseStatus'     -> ListPoliciesResponse@@ -148,7 +154,7 @@ lprsPolicies :: Lens' ListPoliciesResponse [Policy] lprsPolicies = lens _lprsPolicies (\ s a -> s{_lprsPolicies = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. lprsResponseStatus :: Lens' ListPoliciesResponse Int lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Lists the principals associated with the specified policy.+--+-- module Network.AWS.IoT.ListPolicyPrincipals     (     -- * Creating a Request@@ -48,6 +50,8 @@  -- | The input for the ListPolicyPrincipals operation. --+--+-- -- /See:/ 'listPolicyPrincipals' smart constructor. data ListPolicyPrincipals = ListPolicyPrincipals'     { _lMarker         :: !(Maybe Text)@@ -60,13 +64,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lMarker'+-- * 'lMarker' - The marker for the next set of results. ----- * 'lAscendingOrder'+-- * 'lAscendingOrder' - Specifies the order for results. If true, the results are returned in ascending creation order. ----- * 'lPageSize'+-- * 'lPageSize' - The result page size. ----- * 'lPolicyName'+-- * 'lPolicyName' - The policy name. listPolicyPrincipals     :: Text -- ^ 'lPolicyName'     -> ListPolicyPrincipals@@ -126,6 +130,8 @@  -- | The output from the ListPolicyPrincipals operation. --+--+-- -- /See:/ 'listPolicyPrincipalsResponse' smart constructor. data ListPolicyPrincipalsResponse = ListPolicyPrincipalsResponse'     { _lrsPrincipals     :: !(Maybe [Text])@@ -137,11 +143,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lrsPrincipals'+-- * 'lrsPrincipals' - The descriptions of the principals. ----- * 'lrsNextMarker'+-- * 'lrsNextMarker' - The marker for the next set of results, or null if there are no additional results. ----- * 'lrsResponseStatus'+-- * 'lrsResponseStatus' - -- | The response status code. listPolicyPrincipalsResponse     :: Int -- ^ 'lrsResponseStatus'     -> ListPolicyPrincipalsResponse@@ -160,7 +166,7 @@ lrsNextMarker :: Lens' ListPolicyPrincipalsResponse (Maybe Text) lrsNextMarker = lens _lrsNextMarker (\ s a -> s{_lrsNextMarker = a}); --- | The response status code.+-- | -- | The response status code. lrsResponseStatus :: Lens' ListPolicyPrincipalsResponse Int lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Lists the versions of the specified policy and identifies the default version.+--+-- module Network.AWS.IoT.ListPolicyVersions     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | The input for the ListPolicyVersions operation. --+--+-- -- /See:/ 'listPolicyVersions' smart constructor. newtype ListPolicyVersions = ListPolicyVersions'     { _lpvPolicyName :: Text@@ -53,7 +57,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lpvPolicyName'+-- * 'lpvPolicyName' - The policy name. listPolicyVersions     :: Text -- ^ 'lpvPolicyName'     -> ListPolicyVersions@@ -94,6 +98,8 @@  -- | The output from the ListPolicyVersions operation. --+--+-- -- /See:/ 'listPolicyVersionsResponse' smart constructor. data ListPolicyVersionsResponse = ListPolicyVersionsResponse'     { _lpvrsPolicyVersions :: !(Maybe [PolicyVersion])@@ -104,9 +110,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lpvrsPolicyVersions'+-- * 'lpvrsPolicyVersions' - The policy versions. ----- * 'lpvrsResponseStatus'+-- * 'lpvrsResponseStatus' - -- | The response status code. listPolicyVersionsResponse     :: Int -- ^ 'lpvrsResponseStatus'     -> ListPolicyVersionsResponse@@ -120,7 +126,7 @@ lpvrsPolicyVersions :: Lens' ListPolicyVersionsResponse [PolicyVersion] lpvrsPolicyVersions = lens _lpvrsPolicyVersions (\ s a -> s{_lpvrsPolicyVersions = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. lpvrsResponseStatus :: Lens' ListPolicyVersionsResponse Int lpvrsResponseStatus = lens _lpvrsResponseStatus (\ s a -> s{_lpvrsResponseStatus = a}); 

@@ -18,7 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Lists the policies attached to the specified principal. If you use an Cognito identity, the ID must be in <http://docs.aws.amazon.com/cognitoidentity/latest/APIReference/API_GetCredentialsForIdentity.html#API_GetCredentialsForIdentity_RequestSyntax AmazonCognito Identity format>.+-- Lists the policies attached to the specified principal. If you use an Cognito identity, the ID must be in <http://docs.aws.amazon.com/cognitoidentity/latest/APIReference/API_GetCredentialsForIdentity.html#API_GetCredentialsForIdentity_RequestSyntax AmazonCognito Identity format> .+--+-- module Network.AWS.IoT.ListPrincipalPolicies     (     -- * Creating a Request@@ -48,6 +50,8 @@  -- | The input for the ListPrincipalPolicies operation. --+--+-- -- /See:/ 'listPrincipalPolicies' smart constructor. data ListPrincipalPolicies = ListPrincipalPolicies'     { _lppMarker         :: !(Maybe Text)@@ -60,13 +64,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lppMarker'+-- * 'lppMarker' - The marker for the next set of results. ----- * 'lppAscendingOrder'+-- * 'lppAscendingOrder' - Specifies the order for results. If true, results are returned in ascending creation order. ----- * 'lppPageSize'+-- * 'lppPageSize' - The result page size. ----- * 'lppPrincipal'+-- * 'lppPrincipal' - The principal. listPrincipalPolicies     :: Text -- ^ 'lppPrincipal'     -> ListPrincipalPolicies@@ -126,6 +130,8 @@  -- | The output from the ListPrincipalPolicies operation. --+--+-- -- /See:/ 'listPrincipalPoliciesResponse' smart constructor. data ListPrincipalPoliciesResponse = ListPrincipalPoliciesResponse'     { _lpprsNextMarker     :: !(Maybe Text)@@ -137,11 +143,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lpprsNextMarker'+-- * 'lpprsNextMarker' - The marker for the next set of results, or null if there are no additional results. ----- * 'lpprsPolicies'+-- * 'lpprsPolicies' - The policies. ----- * 'lpprsResponseStatus'+-- * 'lpprsResponseStatus' - -- | The response status code. listPrincipalPoliciesResponse     :: Int -- ^ 'lpprsResponseStatus'     -> ListPrincipalPoliciesResponse@@ -160,7 +166,7 @@ lpprsPolicies :: Lens' ListPrincipalPoliciesResponse [Policy] lpprsPolicies = lens _lpprsPolicies (\ s a -> s{_lpprsPolicies = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. lpprsResponseStatus :: Lens' ListPrincipalPoliciesResponse Int lpprsResponseStatus = lens _lpprsResponseStatus (\ s a -> s{_lpprsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Lists the things associated with the specified principal.+--+-- module Network.AWS.IoT.ListPrincipalThings     (     -- * Creating a Request@@ -47,6 +49,8 @@  -- | The input for the ListPrincipalThings operation. --+--+-- -- /See:/ 'listPrincipalThings' smart constructor. data ListPrincipalThings = ListPrincipalThings'     { _lptNextToken  :: !(Maybe Text)@@ -58,11 +62,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lptNextToken'+-- * 'lptNextToken' - The token for the next set of results, or __null__ if there are no additional results. ----- * 'lptMaxResults'+-- * 'lptMaxResults' - The maximum number of results to return in this operation. ----- * 'lptPrincipal'+-- * 'lptPrincipal' - The principal. listPrincipalThings     :: Text -- ^ 'lptPrincipal'     -> ListPrincipalThings@@ -115,6 +119,8 @@  -- | The output from the ListPrincipalThings operation. --+--+-- -- /See:/ 'listPrincipalThingsResponse' smart constructor. data ListPrincipalThingsResponse = ListPrincipalThingsResponse'     { _lptrsNextToken      :: !(Maybe Text)@@ -126,11 +132,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lptrsNextToken'+-- * 'lptrsNextToken' - The token for the next set of results, or __null__ if there are no additional results. ----- * 'lptrsThings'+-- * 'lptrsThings' - The things. ----- * 'lptrsResponseStatus'+-- * 'lptrsResponseStatus' - -- | The response status code. listPrincipalThingsResponse     :: Int -- ^ 'lptrsResponseStatus'     -> ListPrincipalThingsResponse@@ -149,7 +155,7 @@ lptrsThings :: Lens' ListPrincipalThingsResponse [Text] lptrsThings = lens _lptrsThings (\ s a -> s{_lptrsThings = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. lptrsResponseStatus :: Lens' ListPrincipalThingsResponse Int lptrsResponseStatus = lens _lptrsResponseStatus (\ s a -> s{_lptrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Lists the principals associated with the specified thing.+--+-- module Network.AWS.IoT.ListThingPrincipals     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | The input for the ListThingPrincipal operation. --+--+-- -- /See:/ 'listThingPrincipals' smart constructor. newtype ListThingPrincipals = ListThingPrincipals'     { _ltpThingName :: Text@@ -53,7 +57,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ltpThingName'+-- * 'ltpThingName' - The name of the thing. listThingPrincipals     :: Text -- ^ 'ltpThingName'     -> ListThingPrincipals@@ -94,6 +98,8 @@  -- | The output from the ListThingPrincipals operation. --+--+-- -- /See:/ 'listThingPrincipalsResponse' smart constructor. data ListThingPrincipalsResponse = ListThingPrincipalsResponse'     { _ltprsPrincipals     :: !(Maybe [Text])@@ -104,9 +110,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ltprsPrincipals'+-- * 'ltprsPrincipals' - The principals associated with the thing. ----- * 'ltprsResponseStatus'+-- * 'ltprsResponseStatus' - -- | The response status code. listThingPrincipalsResponse     :: Int -- ^ 'ltprsResponseStatus'     -> ListThingPrincipalsResponse@@ -120,7 +126,7 @@ ltprsPrincipals :: Lens' ListThingPrincipalsResponse [Text] ltprsPrincipals = lens _ltprsPrincipals (\ s a -> s{_ltprsPrincipals = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. ltprsResponseStatus :: Lens' ListThingPrincipalsResponse Int ltprsResponseStatus = lens _ltprsResponseStatus (\ s a -> s{_ltprsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Lists the existing thing types.+--+-- module Network.AWS.IoT.ListThingTypes     (     -- * Creating a Request@@ -47,6 +49,8 @@  -- | The input for the ListThingTypes operation. --+--+-- -- /See:/ 'listThingTypes' smart constructor. data ListThingTypes = ListThingTypes'     { _lttThingTypeName :: !(Maybe Text)@@ -58,11 +62,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lttThingTypeName'+-- * 'lttThingTypeName' - The name of the thing type. ----- * 'lttNextToken'+-- * 'lttNextToken' - The token for the next set of results, or __null__ if there are no additional results. ----- * 'lttMaxResults'+-- * 'lttMaxResults' - The maximum number of results to return in this operation. listThingTypes     :: ListThingTypes listThingTypes =@@ -114,6 +118,8 @@  -- | The output for the ListThingTypes operation. --+--+-- -- /See:/ 'listThingTypesResponse' smart constructor. data ListThingTypesResponse = ListThingTypesResponse'     { _lttrsThingTypes     :: !(Maybe [ThingTypeDefinition])@@ -125,11 +131,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lttrsThingTypes'+-- * 'lttrsThingTypes' - The thing types. ----- * 'lttrsNextToken'+-- * 'lttrsNextToken' - The token for the next set of results, or __null__ if there are no additional results. ----- * 'lttrsResponseStatus'+-- * 'lttrsResponseStatus' - -- | The response status code. listThingTypesResponse     :: Int -- ^ 'lttrsResponseStatus'     -> ListThingTypesResponse@@ -148,7 +154,7 @@ lttrsNextToken :: Lens' ListThingTypesResponse (Maybe Text) lttrsNextToken = lens _lttrsNextToken (\ s a -> s{_lttrsNextToken = a}); --- | The response status code.+-- | -- | The response status code. lttrsResponseStatus :: Lens' ListThingTypesResponse Int lttrsResponseStatus = lens _lttrsResponseStatus (\ s a -> s{_lttrsResponseStatus = a}); 

@@ -18,7 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Lists your things. Use the __attributeName__ and __attributeValue__ parameters to filter your things. For example, calling 'ListThings' with attributeName=Color and attributeValue=Red retrieves all things in the registry that contain an attribute __Color__ with the value __Red__.+-- Lists your things. Use the __attributeName__ and __attributeValue__ parameters to filter your things. For example, calling @ListThings@ with attributeName=Color and attributeValue=Red retrieves all things in the registry that contain an attribute __Color__ with the value __Red__ .+--+-- module Network.AWS.IoT.ListThings     (     -- * Creating a Request@@ -49,6 +51,8 @@  -- | The input for the ListThings operation. --+--+-- -- /See:/ 'listThings' smart constructor. data ListThings = ListThings'     { _ltAttributeValue :: !(Maybe Text)@@ -62,15 +66,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ltAttributeValue'+-- * 'ltAttributeValue' - The attribute value used to search for things. ----- * 'ltThingTypeName'+-- * 'ltThingTypeName' - The name of the thing type used to search for things. ----- * 'ltNextToken'+-- * 'ltNextToken' - The token for the next set of results, or __null__ if there are no additional results. ----- * 'ltAttributeName'+-- * 'ltAttributeName' - The attribute name used to search for things. ----- * 'ltMaxResults'+-- * 'ltMaxResults' - The maximum number of results to return in this operation. listThings     :: ListThings listThings =@@ -133,6 +137,8 @@  -- | The output from the ListThings operation. --+--+-- -- /See:/ 'listThingsResponse' smart constructor. data ListThingsResponse = ListThingsResponse'     { _ltrsNextToken      :: !(Maybe Text)@@ -144,11 +150,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ltrsNextToken'+-- * 'ltrsNextToken' - The token for the next set of results, or __null__ if there are no additional results. ----- * 'ltrsThings'+-- * 'ltrsThings' - The things. ----- * 'ltrsResponseStatus'+-- * 'ltrsResponseStatus' - -- | The response status code. listThingsResponse     :: Int -- ^ 'ltrsResponseStatus'     -> ListThingsResponse@@ -167,7 +173,7 @@ ltrsThings :: Lens' ListThingsResponse [ThingAttribute] ltrsThings = lens _ltrsThings (\ s a -> s{_ltrsThings = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. ltrsResponseStatus :: Lens' ListThingsResponse Int ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Lists the rules for the specific topic.+--+-- module Network.AWS.IoT.ListTopicRules     (     -- * Creating a Request@@ -48,6 +50,8 @@  -- | The input for the ListTopicRules operation. --+--+-- -- /See:/ 'listTopicRules' smart constructor. data ListTopicRules = ListTopicRules'     { _ltrRuleDisabled :: !(Maybe Bool)@@ -60,13 +64,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ltrRuleDisabled'+-- * 'ltrRuleDisabled' - Specifies whether the rule is disabled. ----- * 'ltrTopic'+-- * 'ltrTopic' - The topic. ----- * 'ltrNextToken'+-- * 'ltrNextToken' - A token used to retrieve the next value. ----- * 'ltrMaxResults'+-- * 'ltrMaxResults' - The maximum number of results to return. listTopicRules     :: ListTopicRules listTopicRules =@@ -122,6 +126,8 @@  -- | The output from the ListTopicRules operation. --+--+-- -- /See:/ 'listTopicRulesResponse' smart constructor. data ListTopicRulesResponse = ListTopicRulesResponse'     { _ltrrsRules          :: !(Maybe [TopicRuleListItem])@@ -133,11 +139,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ltrrsRules'+-- * 'ltrrsRules' - The rules. ----- * 'ltrrsNextToken'+-- * 'ltrrsNextToken' - A token used to retrieve the next value. ----- * 'ltrrsResponseStatus'+-- * 'ltrrsResponseStatus' - -- | The response status code. listTopicRulesResponse     :: Int -- ^ 'ltrrsResponseStatus'     -> ListTopicRulesResponse@@ -156,7 +162,7 @@ ltrrsNextToken :: Lens' ListTopicRulesResponse (Maybe Text) ltrrsNextToken = lens _ltrrsNextToken (\ s a -> s{_ltrrsNextToken = a}); --- | The response status code.+-- | -- | The response status code. ltrrsResponseStatus :: Lens' ListTopicRulesResponse Int ltrrsResponseStatus = lens _ltrrsResponseStatus (\ s a -> s{_ltrrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Registers a CA certificate with AWS IoT. This CA certificate can then be used to sign device certificates, which can be then registered with AWS IoT. You can register up to 10 CA certificates per AWS account that have the same subject field and public key. This enables you to have up to 10 certificate authorities sign your device certificates. If you have more than one CA certificate registered, make sure you pass the CA certificate when you register your device certificates with the RegisterCertificate API.+--+-- module Network.AWS.IoT.RegisterCACertificate     (     -- * Creating a Request@@ -48,6 +50,8 @@  -- | The input to the RegisterCACertificate operation. --+--+-- -- /See:/ 'registerCACertificate' smart constructor. data RegisterCACertificate = RegisterCACertificate'     { _rcacSetAsActive             :: !(Maybe Bool)@@ -60,13 +64,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rcacSetAsActive'+-- * 'rcacSetAsActive' - A boolean value that specifies if the CA certificate is set to active. ----- * 'rcacAllowAutoRegistration'+-- * 'rcacAllowAutoRegistration' - Allows this CA certificate to be used for auto registration of device certificates. ----- * 'rcacCaCertificate'+-- * 'rcacCaCertificate' - The CA certificate. ----- * 'rcacVerificationCertificate'+-- * 'rcacVerificationCertificate' - The private key verification certificate. registerCACertificate     :: Text -- ^ 'rcacCaCertificate'     -> Text -- ^ 'rcacVerificationCertificate'@@ -134,6 +138,8 @@  -- | The output from the RegisterCACertificateResponse operation. --+--+-- -- /See:/ 'registerCACertificateResponse' smart constructor. data RegisterCACertificateResponse = RegisterCACertificateResponse'     { _rcacrsCertificateARN :: !(Maybe Text)@@ -145,11 +151,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rcacrsCertificateARN'+-- * 'rcacrsCertificateARN' - The CA certificate ARN. ----- * 'rcacrsCertificateId'+-- * 'rcacrsCertificateId' - The CA certificate identifier. ----- * 'rcacrsResponseStatus'+-- * 'rcacrsResponseStatus' - -- | The response status code. registerCACertificateResponse     :: Int -- ^ 'rcacrsResponseStatus'     -> RegisterCACertificateResponse@@ -168,7 +174,7 @@ rcacrsCertificateId :: Lens' RegisterCACertificateResponse (Maybe Text) rcacrsCertificateId = lens _rcacrsCertificateId (\ s a -> s{_rcacrsCertificateId = a}); --- | The response status code.+-- | -- | The response status code. rcacrsResponseStatus :: Lens' RegisterCACertificateResponse Int rcacrsResponseStatus = lens _rcacrsResponseStatus (\ s a -> s{_rcacrsResponseStatus = a}); 

@@ -19,12 +19,15 @@ -- Portability : non-portable (GHC extensions) -- -- Registers a device certificate with AWS IoT. If you have more than one CA certificate that has the same subject field, you must specify the CA certificate that was used to sign the device certificate being registered.+--+-- module Network.AWS.IoT.RegisterCertificate     (     -- * Creating a Request       registerCertificate     , RegisterCertificate     -- * Request Lenses+    , rcStatus     , rcCaCertificatePem     , rcSetAsActive     , rcCertificatePem@@ -47,9 +50,12 @@  -- | The input to the RegisterCertificate operation. --+--+-- -- /See:/ 'registerCertificate' smart constructor. data RegisterCertificate = RegisterCertificate'-    { _rcCaCertificatePem :: !(Maybe Text)+    { _rcStatus           :: !(Maybe CertificateStatus)+    , _rcCaCertificatePem :: !(Maybe Text)     , _rcSetAsActive      :: !(Maybe Bool)     , _rcCertificatePem   :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -58,21 +64,28 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rcCaCertificatePem'+-- * 'rcStatus' - Undocumented member. ----- * 'rcSetAsActive'+-- * 'rcCaCertificatePem' - The CA certificate used to sign the device certificate being registered. ----- * 'rcCertificatePem'+-- * 'rcSetAsActive' - A boolean value that specifies if the CA certificate is set to active.+--+-- * 'rcCertificatePem' - The certificate data, in PEM format. registerCertificate     :: Text -- ^ 'rcCertificatePem'     -> RegisterCertificate registerCertificate pCertificatePem_ =     RegisterCertificate'-    { _rcCaCertificatePem = Nothing+    { _rcStatus = Nothing+    , _rcCaCertificatePem = Nothing     , _rcSetAsActive = Nothing     , _rcCertificatePem = pCertificatePem_     } +-- | Undocumented member.+rcStatus :: Lens' RegisterCertificate (Maybe CertificateStatus)+rcStatus = lens _rcStatus (\ s a -> s{_rcStatus = a});+ -- | The CA certificate used to sign the device certificate being registered. rcCaCertificatePem :: Lens' RegisterCertificate (Maybe Text) rcCaCertificatePem = lens _rcCaCertificatePem (\ s a -> s{_rcCaCertificatePem = a});@@ -107,7 +120,8 @@         toJSON RegisterCertificate'{..}           = object               (catMaybes-                 [("caCertificatePem" .=) <$> _rcCaCertificatePem,+                 [("status" .=) <$> _rcStatus,+                  ("caCertificatePem" .=) <$> _rcCaCertificatePem,                   Just ("certificatePem" .= _rcCertificatePem)])  instance ToPath RegisterCertificate where@@ -119,6 +133,8 @@  -- | The output from the RegisterCertificate operation. --+--+-- -- /See:/ 'registerCertificateResponse' smart constructor. data RegisterCertificateResponse = RegisterCertificateResponse'     { _rcrsCertificateARN :: !(Maybe Text)@@ -130,11 +146,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rcrsCertificateARN'+-- * 'rcrsCertificateARN' - The certificate ARN. ----- * 'rcrsCertificateId'+-- * 'rcrsCertificateId' - The certificate identifier. ----- * 'rcrsResponseStatus'+-- * 'rcrsResponseStatus' - -- | The response status code. registerCertificateResponse     :: Int -- ^ 'rcrsResponseStatus'     -> RegisterCertificateResponse@@ -153,7 +169,7 @@ rcrsCertificateId :: Lens' RegisterCertificateResponse (Maybe Text) rcrsCertificateId = lens _rcrsCertificateId (\ s a -> s{_rcrsCertificateId = a}); --- | The response status code.+-- | -- | The response status code. rcrsResponseStatus :: Lens' RegisterCertificateResponse Int rcrsResponseStatus = lens _rcrsResponseStatus (\ s a -> s{_rcrsResponseStatus = a}); 

@@ -18,11 +18,13 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Rejects a pending certificate transfer. After AWS IoT rejects a certificate transfer, the certificate status changes from __PENDING_TRANSFER__ to __INACTIVE__.+-- Rejects a pending certificate transfer. After AWS IoT rejects a certificate transfer, the certificate status changes from __PENDING_TRANSFER__ to __INACTIVE__ . ----- To check for pending certificate transfers, call < ListCertificates> to enumerate your certificates. ----- This operation can only be called by the transfer destination. After it is called, the certificate will be returned to the source\'s account in the INACTIVE state.+-- To check for pending certificate transfers, call 'ListCertificates' to enumerate your certificates.+--+-- This operation can only be called by the transfer destination. After it is called, the certificate will be returned to the source's account in the INACTIVE state.+-- module Network.AWS.IoT.RejectCertificateTransfer     (     -- * Creating a Request@@ -46,6 +48,8 @@  -- | The input for the RejectCertificateTransfer operation. --+--+-- -- /See:/ 'rejectCertificateTransfer' smart constructor. data RejectCertificateTransfer = RejectCertificateTransfer'     { _rctRejectReason  :: !(Maybe Text)@@ -56,9 +60,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rctRejectReason'+-- * 'rctRejectReason' - The reason the certificate transfer was rejected. ----- * 'rctCertificateId'+-- * 'rctCertificateId' - The ID of the certificate. rejectCertificateTransfer     :: Text -- ^ 'rctCertificateId'     -> RejectCertificateTransfer

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Replaces the specified rule. You must specify all parameters for the new rule. Creating rules is an administrator-level action. Any user who has permission to create rules will be able to access data processed by the rule.+--+-- module Network.AWS.IoT.ReplaceTopicRule     (     -- * Creating a Request@@ -42,6 +44,8 @@  -- | The input for the ReplaceTopicRule operation. --+--+-- -- /See:/ 'replaceTopicRule' smart constructor. data ReplaceTopicRule = ReplaceTopicRule'     { _rtrRuleName         :: !Text@@ -52,9 +56,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rtrRuleName'+-- * 'rtrRuleName' - The name of the rule. ----- * 'rtrTopicRulePayload'+-- * 'rtrTopicRulePayload' - The rule payload. replaceTopicRule     :: Text -- ^ 'rtrRuleName'     -> TopicRulePayload -- ^ 'rtrTopicRulePayload'

@@ -18,7 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Sets the specified version of the specified policy as the policy\'s default (operative) version. This action affects all certificates to which the policy is attached. To list the principals the policy is attached to, use the ListPrincipalPolicy API.+-- Sets the specified version of the specified policy as the policy's default (operative) version. This action affects all certificates to which the policy is attached. To list the principals the policy is attached to, use the ListPrincipalPolicy API.+--+-- module Network.AWS.IoT.SetDefaultPolicyVersion     (     -- * Creating a Request@@ -42,6 +44,8 @@  -- | The input for the SetDefaultPolicyVersion operation. --+--+-- -- /See:/ 'setDefaultPolicyVersion' smart constructor. data SetDefaultPolicyVersion = SetDefaultPolicyVersion'     { _sdpvPolicyName      :: !Text@@ -52,9 +56,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sdpvPolicyName'+-- * 'sdpvPolicyName' - The policy name. ----- * 'sdpvPolicyVersionId'+-- * 'sdpvPolicyVersionId' - The policy version ID. setDefaultPolicyVersion     :: Text -- ^ 'sdpvPolicyName'     -> Text -- ^ 'sdpvPolicyVersionId'

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Sets the logging options.+--+-- module Network.AWS.IoT.SetLoggingOptions     (     -- * Creating a Request@@ -41,6 +43,8 @@  -- | The input for the SetLoggingOptions operation. --+--+-- -- /See:/ 'setLoggingOptions' smart constructor. newtype SetLoggingOptions = SetLoggingOptions'     { _sloLoggingOptionsPayload :: LoggingOptionsPayload@@ -50,7 +54,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sloLoggingOptionsPayload'+-- * 'sloLoggingOptionsPayload' - The logging options payload. setLoggingOptions     :: LoggingOptionsPayload -- ^ 'sloLoggingOptionsPayload'     -> SetLoggingOptions

@@ -20,13 +20,15 @@ -- -- Transfers the specified certificate to the specified AWS account. --+-- -- You can cancel the transfer until it is acknowledged by the recipient. ----- No notification is sent to the transfer destination\'s account. It is up to the caller to notify the transfer target.+-- No notification is sent to the transfer destination's account. It is up to the caller to notify the transfer target. -- -- The certificate being transferred must not be in the ACTIVE state. You can use the UpdateCertificate API to deactivate it. -- -- The certificate must not have any policies attached to it. You can use the DetachPrincipalPolicy API to detach them.+-- module Network.AWS.IoT.TransferCertificate     (     -- * Creating a Request@@ -54,6 +56,8 @@  -- | The input for the TransferCertificate operation. --+--+-- -- /See:/ 'transferCertificate' smart constructor. data TransferCertificate = TransferCertificate'     { _tcTransferMessage  :: !(Maybe Text)@@ -65,11 +69,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'tcTransferMessage'+-- * 'tcTransferMessage' - The transfer message. ----- * 'tcCertificateId'+-- * 'tcCertificateId' - The ID of the certificate. ----- * 'tcTargetAWSAccount'+-- * 'tcTargetAWSAccount' - The AWS account. transferCertificate     :: Text -- ^ 'tcCertificateId'     -> Text -- ^ 'tcTargetAWSAccount'@@ -128,6 +132,8 @@  -- | The output from the TransferCertificate operation. --+--+-- -- /See:/ 'transferCertificateResponse' smart constructor. data TransferCertificateResponse = TransferCertificateResponse'     { _tcrsTransferredCertificateARN :: !(Maybe Text)@@ -138,9 +144,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'tcrsTransferredCertificateARN'+-- * 'tcrsTransferredCertificateARN' - The ARN of the certificate. ----- * 'tcrsResponseStatus'+-- * 'tcrsResponseStatus' - -- | The response status code. transferCertificateResponse     :: Int -- ^ 'tcrsResponseStatus'     -> TransferCertificateResponse@@ -154,7 +160,7 @@ tcrsTransferredCertificateARN :: Lens' TransferCertificateResponse (Maybe Text) tcrsTransferredCertificateARN = lens _tcrsTransferredCertificateARN (\ s a -> s{_tcrsTransferredCertificateARN = a}); --- | The response status code.+-- | -- | The response status code. tcrsResponseStatus :: Lens' TransferCertificateResponse Int tcrsResponseStatus = lens _tcrsResponseStatus (\ s a -> s{_tcrsResponseStatus = a}); 

@@ -43,6 +43,9 @@     -- * CACertificateStatus     , CACertificateStatus (..) +    -- * CannedAccessControlList+    , CannedAccessControlList (..)+     -- * CertificateStatus     , CertificateStatus (..) @@ -59,6 +62,7 @@     , Action     , action     , aCloudwatchMetric+    , aDynamoDBv2     , aCloudwatchAlarm     , aSns     , aDynamoDB@@ -138,16 +142,22 @@     -- * DynamoDBAction     , DynamoDBAction     , dynamoDBAction-    , ddaHashKeyType-    , ddaOperation-    , ddaRangeKeyType-    , ddaPayloadField-    , ddaRangeKeyField-    , ddaRangeKeyValue-    , ddaTableName+    , ddbaHashKeyType+    , ddbaOperation+    , ddbaRangeKeyType+    , ddbaPayloadField+    , ddbaRangeKeyField+    , ddbaRangeKeyValue+    , ddbaTableName+    , ddbaRoleARN+    , ddbaHashKeyField+    , ddbaHashKeyValue++    -- * DynamoDBv2Action+    , DynamoDBv2Action+    , dynamoDBv2Action+    , ddaPutItem     , ddaRoleARN-    , ddaHashKeyField-    , ddaHashKeyValue      -- * ElasticsearchAction     , ElasticsearchAction@@ -212,6 +222,11 @@     , pvCreateDate     , pvIsDefaultVersion +    -- * PutItemInput+    , PutItemInput+    , putItemInput+    , piiTableName+     -- * RepublishAction     , RepublishAction     , republishAction@@ -221,6 +236,7 @@     -- * S3Action     , S3Action     , s3Action+    , sCannedACL     , sRoleARN     , sBucketName     , sKey@@ -312,7 +328,7 @@ import           Network.AWS.Prelude import           Network.AWS.Sign.V4 --- | API version '2015-05-28' of the Amazon IoT SDK configuration.+-- | API version @2015-05-28@ of the Amazon IoT SDK configuration. ioT :: Service ioT =     Service@@ -347,102 +363,142 @@       | otherwise = Nothing  -- | Unable to verify the CA certificate used to sign the device certificate you are attempting to register. This is happens when you have registered more than one CA certificate that has the same subject field and public key.+--+-- _CertificateConflictException :: AsError a => Getting (First ServiceError) a ServiceError _CertificateConflictException =     _ServiceError . hasStatus 409 . hasCode "CertificateConflictException" --- | The Rule-SQL expression can\'t be parsed correctly.+-- | The Rule-SQL expression can't be parsed correctly.+--+-- _SqlParseException :: AsError a => Getting (First ServiceError) a ServiceError _SqlParseException =     _ServiceError . hasStatus 400 . hasCode "SqlParseException"  -- | The request is not valid.+--+-- _InvalidRequestException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidRequestException =     _ServiceError . hasStatus 400 . hasCode "InvalidRequestException" --- | You can\'t transfer the certificate because authorization policies are still attached.+-- | You can't transfer the certificate because authorization policies are still attached.+--+-- _TransferConflictException :: AsError a => Getting (First ServiceError) a ServiceError _TransferConflictException =     _ServiceError . hasStatus 409 . hasCode "TransferConflictException"  -- | The certificate operation is not allowed.+--+-- _CertificateStateException :: AsError a => Getting (First ServiceError) a ServiceError _CertificateStateException =     _ServiceError . hasStatus 406 . hasCode "CertificateStateException"  -- | The registration code is invalid.+--+-- _RegistrationCodeValidationException :: AsError a => Getting (First ServiceError) a ServiceError _RegistrationCodeValidationException =     _ServiceError .     hasStatus 400 . hasCode "RegistrationCodeValidationException"  -- | The policy documentation is not valid.+--+-- _MalformedPolicyException :: AsError a => Getting (First ServiceError) a ServiceError _MalformedPolicyException =     _ServiceError . hasStatus 400 . hasCode "MalformedPolicyException" --- | You can\'t delete the resource because it is attached to one or more resources.+-- | You can't delete the resource because it is attached to one or more resources.+--+-- _DeleteConflictException :: AsError a => Getting (First ServiceError) a ServiceError _DeleteConflictException =     _ServiceError . hasStatus 409 . hasCode "DeleteConflictException"  -- | The resource already exists.+--+-- _ResourceAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceAlreadyExistsException =     _ServiceError . hasStatus 409 . hasCode "ResourceAlreadyExistsException"  -- | The certificate is invalid.+--+-- _CertificateValidationException :: AsError a => Getting (First ServiceError) a ServiceError _CertificateValidationException =     _ServiceError . hasStatus 400 . hasCode "CertificateValidationException" --- | You can\'t revert the certificate transfer because the transfer is already complete.+-- | You can't revert the certificate transfer because the transfer is already complete.+--+-- _TransferAlreadyCompletedException :: AsError a => Getting (First ServiceError) a ServiceError _TransferAlreadyCompletedException =     _ServiceError . hasStatus 410 . hasCode "TransferAlreadyCompletedException"  -- | The rate exceeds the limit.+--+-- _ThrottlingException :: AsError a => Getting (First ServiceError) a ServiceError _ThrottlingException =     _ServiceError . hasStatus 429 . hasCode "ThrottlingException"  -- | An unexpected error has occurred.+--+-- _InternalFailureException :: AsError a => Getting (First ServiceError) a ServiceError _InternalFailureException =     _ServiceError . hasStatus 500 . hasCode "InternalFailureException"  -- | The number of policy versions exceeds the limit.+--+-- _VersionsLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _VersionsLimitExceededException =     _ServiceError . hasStatus 409 . hasCode "VersionsLimitExceededException"  -- | The service is temporarily unavailable.+--+-- _ServiceUnavailableException :: AsError a => Getting (First ServiceError) a ServiceError _ServiceUnavailableException =     _ServiceError . hasStatus 503 . hasCode "ServiceUnavailableException"  -- | An unexpected error has occurred.+--+-- _InternalException :: AsError a => Getting (First ServiceError) a ServiceError _InternalException =     _ServiceError . hasStatus 500 . hasCode "InternalException"  -- | An exception thrown when the version of a thing passed to a command is different than the version specified with the --version parameter.+--+-- _VersionConflictException :: AsError a => Getting (First ServiceError) a ServiceError _VersionConflictException =     _ServiceError . hasStatus 409 . hasCode "VersionConflictException"  -- | You are not authorized to perform this operation.+--+-- _UnauthorizedException :: AsError a => Getting (First ServiceError) a ServiceError _UnauthorizedException =     _ServiceError . hasStatus 401 . hasCode "UnauthorizedException"  -- | The specified resource does not exist.+--+-- _ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceNotFoundException =     _ServiceError . hasStatus 404 . hasCode "ResourceNotFoundException"  -- | The number of attached entities exceeds the limit.+--+-- _LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _LimitExceededException =     _ServiceError . hasStatus 410 . hasCode "LimitExceededException"

@@ -23,9 +23,12 @@  -- | Describes the actions associated with a rule. --+--+-- -- /See:/ 'action' smart constructor. data Action = Action'     { _aCloudwatchMetric :: !(Maybe CloudwatchMetricAction)+    , _aDynamoDBv2       :: !(Maybe DynamoDBv2Action)     , _aCloudwatchAlarm  :: !(Maybe CloudwatchAlarmAction)     , _aSns              :: !(Maybe SNSAction)     , _aDynamoDB         :: !(Maybe DynamoDBAction)@@ -42,32 +45,35 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'aCloudwatchMetric'+-- * 'aCloudwatchMetric' - Capture a CloudWatch metric. ----- * 'aCloudwatchAlarm'+-- * 'aDynamoDBv2' - Write to a DynamoDB table. This is a new version of the DynamoDB action. It allows you to write each attribute in an MQTT message payload into a separate DynamoDB column. ----- * 'aSns'+-- * 'aCloudwatchAlarm' - Change the state of a CloudWatch alarm. ----- * 'aDynamoDB'+-- * 'aSns' - Publish to an Amazon SNS topic. ----- * 'aFirehose'+-- * 'aDynamoDB' - Write to a DynamoDB table. ----- * 'aLambda'+-- * 'aFirehose' - Write to an Amazon Kinesis Firehose stream. ----- * 'aKinesis'+-- * 'aLambda' - Invoke a Lambda function. ----- * 'aS3'+-- * 'aKinesis' - Write data to an Amazon Kinesis stream. ----- * 'aElasticsearch'+-- * 'aS3' - Write to an Amazon S3 bucket. ----- * 'aRepublish'+-- * 'aElasticsearch' - Write data to an Amazon Elasticsearch Service domain. ----- * 'aSqs'+-- * 'aRepublish' - Publish to another MQTT topic.+--+-- * 'aSqs' - Publish to an Amazon SQS queue. action     :: Action action =     Action'     { _aCloudwatchMetric = Nothing+    , _aDynamoDBv2 = Nothing     , _aCloudwatchAlarm = Nothing     , _aSns = Nothing     , _aDynamoDB = Nothing@@ -84,6 +90,10 @@ aCloudwatchMetric :: Lens' Action (Maybe CloudwatchMetricAction) aCloudwatchMetric = lens _aCloudwatchMetric (\ s a -> s{_aCloudwatchMetric = a}); +-- | Write to a DynamoDB table. This is a new version of the DynamoDB action. It allows you to write each attribute in an MQTT message payload into a separate DynamoDB column.+aDynamoDBv2 :: Lens' Action (Maybe DynamoDBv2Action)+aDynamoDBv2 = lens _aDynamoDBv2 (\ s a -> s{_aDynamoDBv2 = a});+ -- | Change the state of a CloudWatch alarm. aCloudwatchAlarm :: Lens' Action (Maybe CloudwatchAlarmAction) aCloudwatchAlarm = lens _aCloudwatchAlarm (\ s a -> s{_aCloudwatchAlarm = a});@@ -112,7 +122,7 @@ aS3 :: Lens' Action (Maybe S3Action) aS3 = lens _aS3 (\ s a -> s{_aS3 = a}); --- | Write data to an Amazon Elasticsearch Service; domain.+-- | Write data to an Amazon Elasticsearch Service domain. aElasticsearch :: Lens' Action (Maybe ElasticsearchAction) aElasticsearch = lens _aElasticsearch (\ s a -> s{_aElasticsearch = a}); @@ -129,8 +139,8 @@           = withObject "Action"               (\ x ->                  Action' <$>-                   (x .:? "cloudwatchMetric") <*>-                     (x .:? "cloudwatchAlarm")+                   (x .:? "cloudwatchMetric") <*> (x .:? "dynamoDBv2")+                     <*> (x .:? "cloudwatchAlarm")                      <*> (x .:? "sns")                      <*> (x .:? "dynamoDB")                      <*> (x .:? "firehose")@@ -150,6 +160,7 @@           = object               (catMaybes                  [("cloudwatchMetric" .=) <$> _aCloudwatchMetric,+                  ("dynamoDBv2" .=) <$> _aDynamoDBv2,                   ("cloudwatchAlarm" .=) <$> _aCloudwatchAlarm,                   ("sns" .=) <$> _aSns, ("dynamoDB" .=) <$> _aDynamoDB,                   ("firehose" .=) <$> _aFirehose,@@ -161,6 +172,8 @@  -- | The attribute payload. --+--+-- -- /See:/ 'attributePayload' smart constructor. data AttributePayload = AttributePayload'     { _apAttributes :: !(Maybe (Map Text Text))@@ -171,9 +184,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'apAttributes'+-- * 'apAttributes' - A JSON string containing up to three key-value pair in JSON format. For example: @{\"attributes\":{\"string1\":\"string2\"}})@ ----- * 'apMerge'+-- * 'apMerge' - Specifies whether the list of attributes provided in the @AttributePayload@ is merged with the attributes stored in the registry, instead of overwriting them. To remove an attribute, call @UpdateThing@ with an empty attribute value. attributePayload     :: AttributePayload attributePayload =@@ -182,17 +195,11 @@     , _apMerge = Nothing     } --- | A JSON string containing up to three key-value pair in JSON format. For example:------ '{\\\"attributes\\\":{\\\"string1\\\":\\\"string2\\\"}})'+-- | A JSON string containing up to three key-value pair in JSON format. For example: @{\"attributes\":{\"string1\":\"string2\"}})@ apAttributes :: Lens' AttributePayload (HashMap Text Text) apAttributes = lens _apAttributes (\ s a -> s{_apAttributes = a}) . _Default . _Map; --- | Specifies whether the list of attributes provided in the 'AttributePayload' is merged with the attributes stored in the registry, instead of overwriting them.------ To remove an attribute, call 'UpdateThing' with an empty attribute value.------ The 'merge' attribute is only valid when calling 'UpdateThing'.+-- | Specifies whether the list of attributes provided in the @AttributePayload@ is merged with the attributes stored in the registry, instead of overwriting them. To remove an attribute, call @UpdateThing@ with an empty attribute value. apMerge :: Lens' AttributePayload (Maybe Bool) apMerge = lens _apMerge (\ s a -> s{_apMerge = a}); @@ -209,6 +216,8 @@  -- | A CA certificate. --+--+-- -- /See:/ 'cACertificate' smart constructor. data CACertificate = CACertificate'     { _cacStatus         :: !(Maybe CACertificateStatus)@@ -221,13 +230,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cacStatus'+-- * 'cacStatus' - The status of the CA certificate.  The status value REGISTER_INACTIVE is deprecated and should not be used. ----- * 'cacCertificateARN'+-- * 'cacCertificateARN' - The ARN of the CA certificate. ----- * 'cacCertificateId'+-- * 'cacCertificateId' - The ID of the CA certificate. ----- * 'cacCreationDate'+-- * 'cacCreationDate' - The date the CA certificate was created. cACertificate     :: CACertificate cACertificate =@@ -238,9 +247,7 @@     , _cacCreationDate = Nothing     } --- | The status of the CA certificate.------ The status value REGISTER_INACTIVE is deprecated and should not be used.+-- | The status of the CA certificate.  The status value REGISTER_INACTIVE is deprecated and should not be used. cacStatus :: Lens' CACertificate (Maybe CACertificateStatus) cacStatus = lens _cacStatus (\ s a -> s{_cacStatus = a}); @@ -271,6 +278,8 @@  -- | Describes a CA certificate. --+--+-- -- /See:/ 'cACertificateDescription' smart constructor. data CACertificateDescription = CACertificateDescription'     { _cacdStatus                 :: !(Maybe CACertificateStatus)@@ -286,19 +295,19 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cacdStatus'+-- * 'cacdStatus' - The status of a CA certificate. ----- * 'cacdOwnedBy'+-- * 'cacdOwnedBy' - The owner of the CA certificate. ----- * 'cacdCertificatePem'+-- * 'cacdCertificatePem' - The CA certificate data, in PEM format. ----- * 'cacdCertificateARN'+-- * 'cacdCertificateARN' - The CA certificate ARN. ----- * 'cacdCertificateId'+-- * 'cacdCertificateId' - The CA certificate ID. ----- * 'cacdAutoRegistrationStatus'+-- * 'cacdAutoRegistrationStatus' - Whether the CA certificate configured for auto registration of device certificates. Valid values are "ENABLE" and "DISABLE" ----- * 'cacdCreationDate'+-- * 'cacdCreationDate' - The date the CA certificate was created. cACertificateDescription     :: CACertificateDescription cACertificateDescription =@@ -332,7 +341,7 @@ cacdCertificateId :: Lens' CACertificateDescription (Maybe Text) cacdCertificateId = lens _cacdCertificateId (\ s a -> s{_cacdCertificateId = a}); --- | Whether the CA certificate configured for auto registration of device certificates. Valid values are \"ENABLE\" and \"DISABLE\"+-- | Whether the CA certificate configured for auto registration of device certificates. Valid values are "ENABLE" and "DISABLE" cacdAutoRegistrationStatus :: Lens' CACertificateDescription (Maybe AutoRegistrationStatus) cacdAutoRegistrationStatus = lens _cacdAutoRegistrationStatus (\ s a -> s{_cacdAutoRegistrationStatus = a}); @@ -358,6 +367,8 @@  -- | Information about a certificate. --+--+-- -- /See:/ 'certificate' smart constructor. data Certificate = Certificate'     { _cStatus         :: !(Maybe CertificateStatus)@@ -370,13 +381,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cStatus'+-- * 'cStatus' - The status of the certificate. The status value REGISTER_INACTIVE is deprecated and should not be used. ----- * 'cCertificateARN'+-- * 'cCertificateARN' - The ARN of the certificate. ----- * 'cCertificateId'+-- * 'cCertificateId' - The ID of the certificate. ----- * 'cCreationDate'+-- * 'cCreationDate' - The date and time the certificate was created. certificate     :: Certificate certificate =@@ -387,9 +398,7 @@     , _cCreationDate = Nothing     } --- | The status of the certificate.------ The status value REGISTER_INACTIVE is deprecated and should not be used.+-- | The status of the certificate. The status value REGISTER_INACTIVE is deprecated and should not be used. cStatus :: Lens' Certificate (Maybe CertificateStatus) cStatus = lens _cStatus (\ s a -> s{_cStatus = a}); @@ -420,6 +429,8 @@  -- | Describes a certificate. --+--+-- -- /See:/ 'certificateDescription' smart constructor. data CertificateDescription = CertificateDescription'     { _cdStatus           :: !(Maybe CertificateStatus)@@ -438,25 +449,25 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cdStatus'+-- * 'cdStatus' - The status of the certificate. ----- * 'cdOwnedBy'+-- * 'cdOwnedBy' - The ID of the AWS account that owns the certificate. ----- * 'cdLastModifiedDate'+-- * 'cdLastModifiedDate' - The date and time the certificate was last modified. ----- * 'cdCaCertificateId'+-- * 'cdCaCertificateId' - The certificate ID of the CA certificate used to sign this certificate. ----- * 'cdPreviousOwnedBy'+-- * 'cdPreviousOwnedBy' - The ID of the AWS account of the previous owner of the certificate. ----- * 'cdCertificatePem'+-- * 'cdCertificatePem' - The certificate data, in PEM format. ----- * 'cdCertificateARN'+-- * 'cdCertificateARN' - The ARN of the certificate. ----- * 'cdCertificateId'+-- * 'cdCertificateId' - The ID of the certificate. ----- * 'cdCreationDate'+-- * 'cdCreationDate' - The date and time the certificate was created. ----- * 'cdTransferData'+-- * 'cdTransferData' - The transfer data. certificateDescription     :: CertificateDescription certificateDescription =@@ -534,6 +545,8 @@  -- | Describes an action that updates a CloudWatch alarm. --+--+-- -- /See:/ 'cloudwatchAlarmAction' smart constructor. data CloudwatchAlarmAction = CloudwatchAlarmAction'     { _caaRoleARN     :: !Text@@ -546,13 +559,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'caaRoleARN'+-- * 'caaRoleARN' - The IAM role that allows access to the CloudWatch alarm. ----- * 'caaAlarmName'+-- * 'caaAlarmName' - The CloudWatch alarm name. ----- * 'caaStateReason'+-- * 'caaStateReason' - The reason for the alarm change. ----- * 'caaStateValue'+-- * 'caaStateValue' - The value of the alarm state. Acceptable values are: OK, ALARM, INSUFFICIENT_DATA. cloudwatchAlarmAction     :: Text -- ^ 'caaRoleARN'     -> Text -- ^ 'caaAlarmName'@@ -607,6 +620,8 @@  -- | Describes an action that captures a CloudWatch metric. --+--+-- -- /See:/ 'cloudwatchMetricAction' smart constructor. data CloudwatchMetricAction = CloudwatchMetricAction'     { _cmaMetricTimestamp :: !(Maybe Text)@@ -621,17 +636,17 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cmaMetricTimestamp'+-- * 'cmaMetricTimestamp' - An optional <http://docs.aws.amazon.com/AmazonCloudWatch/latest/DeveloperGuide/cloudwatch_concepts.html#about_timestamp Unix timestamp> . ----- * 'cmaRoleARN'+-- * 'cmaRoleARN' - The IAM role that allows access to the CloudWatch metric. ----- * 'cmaMetricNamespace'+-- * 'cmaMetricNamespace' - The CloudWatch metric namespace name. ----- * 'cmaMetricName'+-- * 'cmaMetricName' - The CloudWatch metric name. ----- * 'cmaMetricValue'+-- * 'cmaMetricValue' - The CloudWatch metric value. ----- * 'cmaMetricUnit'+-- * 'cmaMetricUnit' - The <http://docs.aws.amazon.com/AmazonCloudWatch/latest/DeveloperGuide/cloudwatch_concepts.html#Unit metric unit> supported by CloudWatch. cloudwatchMetricAction     :: Text -- ^ 'cmaRoleARN'     -> Text -- ^ 'cmaMetricNamespace'@@ -649,7 +664,7 @@     , _cmaMetricUnit = pMetricUnit_     } --- | An optional <http://docs.aws.amazon.com/AmazonCloudWatch/latest/DeveloperGuide/cloudwatch_concepts.html#about_timestamp Unix timestamp>.+-- | An optional <http://docs.aws.amazon.com/AmazonCloudWatch/latest/DeveloperGuide/cloudwatch_concepts.html#about_timestamp Unix timestamp> . cmaMetricTimestamp :: Lens' CloudwatchMetricAction (Maybe Text) cmaMetricTimestamp = lens _cmaMetricTimestamp (\ s a -> s{_cmaMetricTimestamp = a}); @@ -701,114 +716,116 @@  -- | Describes an action to write to a DynamoDB table. ----- The 'tableName', 'hashKeyField', and 'rangeKeyField' values must match the values used when you created the table. ----- The 'hashKeyValue' and 'rangeKeyvalue' fields use a substitution template syntax. These templates provide data at runtime. The syntax is as follows: >{/sql-expression/}.+-- The @tableName@ , @hashKeyField@ , and @rangeKeyField@ values must match the values used when you created the table. --+-- The @hashKeyValue@ and @rangeKeyvalue@ fields use a substitution template syntax. These templates provide data at runtime. The syntax is as follows: ${/sql-expression/ }.+-- -- You can specify any valid expression in a WHERE or SELECT clause, including JSON properties, comparisons, calculations, and functions. For example, the following field uses the third level of the topic: ----- '\"hashKeyValue\": \">{topic(3)}\"'+-- @"hashKeyValue": "${topic(3)}"@ -- -- The following field uses the timestamp: ----- '\"rangeKeyValue\": \">{timestamp()}\"'+-- @"rangeKeyValue": "${timestamp()}"@ --+-- -- /See:/ 'dynamoDBAction' smart constructor. data DynamoDBAction = DynamoDBAction'-    { _ddaHashKeyType   :: !(Maybe DynamoKeyType)-    , _ddaOperation     :: !(Maybe Text)-    , _ddaRangeKeyType  :: !(Maybe DynamoKeyType)-    , _ddaPayloadField  :: !(Maybe Text)-    , _ddaRangeKeyField :: !(Maybe Text)-    , _ddaRangeKeyValue :: !(Maybe Text)-    , _ddaTableName     :: !Text-    , _ddaRoleARN       :: !Text-    , _ddaHashKeyField  :: !Text-    , _ddaHashKeyValue  :: !Text+    { _ddbaHashKeyType   :: !(Maybe DynamoKeyType)+    , _ddbaOperation     :: !(Maybe Text)+    , _ddbaRangeKeyType  :: !(Maybe DynamoKeyType)+    , _ddbaPayloadField  :: !(Maybe Text)+    , _ddbaRangeKeyField :: !(Maybe Text)+    , _ddbaRangeKeyValue :: !(Maybe Text)+    , _ddbaTableName     :: !Text+    , _ddbaRoleARN       :: !Text+    , _ddbaHashKeyField  :: !Text+    , _ddbaHashKeyValue  :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DynamoDBAction' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ddaHashKeyType'+-- * 'ddbaHashKeyType' - The hash key type. Valid values are "STRING" or "NUMBER" ----- * 'ddaOperation'+-- * 'ddbaOperation' - The type of operation to be performed. This follows the substitution template, so it can be @> {operation}@ , but the substitution must result in one of the following: @INSERT@ , @UPDATE@ , or @DELETE@ . ----- * 'ddaRangeKeyType'+-- * 'ddbaRangeKeyType' - The range key type. Valid values are "STRING" or "NUMBER" ----- * 'ddaPayloadField'+-- * 'ddbaPayloadField' - The action payload. This name can be customized. ----- * 'ddaRangeKeyField'+-- * 'ddbaRangeKeyField' - The range key name. ----- * 'ddaRangeKeyValue'+-- * 'ddbaRangeKeyValue' - The range key value. ----- * 'ddaTableName'+-- * 'ddbaTableName' - The name of the DynamoDB table. ----- * 'ddaRoleARN'+-- * 'ddbaRoleARN' - The ARN of the IAM role that grants access to the DynamoDB table. ----- * 'ddaHashKeyField'+-- * 'ddbaHashKeyField' - The hash key name. ----- * 'ddaHashKeyValue'+-- * 'ddbaHashKeyValue' - The hash key value. dynamoDBAction-    :: Text -- ^ 'ddaTableName'-    -> Text -- ^ 'ddaRoleARN'-    -> Text -- ^ 'ddaHashKeyField'-    -> Text -- ^ 'ddaHashKeyValue'+    :: Text -- ^ 'ddbaTableName'+    -> Text -- ^ 'ddbaRoleARN'+    -> Text -- ^ 'ddbaHashKeyField'+    -> Text -- ^ 'ddbaHashKeyValue'     -> DynamoDBAction dynamoDBAction pTableName_ pRoleARN_ pHashKeyField_ pHashKeyValue_ =     DynamoDBAction'-    { _ddaHashKeyType = Nothing-    , _ddaOperation = Nothing-    , _ddaRangeKeyType = Nothing-    , _ddaPayloadField = Nothing-    , _ddaRangeKeyField = Nothing-    , _ddaRangeKeyValue = Nothing-    , _ddaTableName = pTableName_-    , _ddaRoleARN = pRoleARN_-    , _ddaHashKeyField = pHashKeyField_-    , _ddaHashKeyValue = pHashKeyValue_+    { _ddbaHashKeyType = Nothing+    , _ddbaOperation = Nothing+    , _ddbaRangeKeyType = Nothing+    , _ddbaPayloadField = Nothing+    , _ddbaRangeKeyField = Nothing+    , _ddbaRangeKeyValue = Nothing+    , _ddbaTableName = pTableName_+    , _ddbaRoleARN = pRoleARN_+    , _ddbaHashKeyField = pHashKeyField_+    , _ddbaHashKeyValue = pHashKeyValue_     } --- | The hash key type. Valid values are \"STRING\" or \"NUMBER\"-ddaHashKeyType :: Lens' DynamoDBAction (Maybe DynamoKeyType)-ddaHashKeyType = lens _ddaHashKeyType (\ s a -> s{_ddaHashKeyType = a});+-- | The hash key type. Valid values are "STRING" or "NUMBER"+ddbaHashKeyType :: Lens' DynamoDBAction (Maybe DynamoKeyType)+ddbaHashKeyType = lens _ddbaHashKeyType (\ s a -> s{_ddbaHashKeyType = a}); --- | The type of operation to be performed. This follows the substitution template, so it can be '>{operation}', but the substitution must result in one of the following: 'INSERT', 'UPDATE', or 'DELETE'.-ddaOperation :: Lens' DynamoDBAction (Maybe Text)-ddaOperation = lens _ddaOperation (\ s a -> s{_ddaOperation = a});+-- | The type of operation to be performed. This follows the substitution template, so it can be @> {operation}@ , but the substitution must result in one of the following: @INSERT@ , @UPDATE@ , or @DELETE@ .+ddbaOperation :: Lens' DynamoDBAction (Maybe Text)+ddbaOperation = lens _ddbaOperation (\ s a -> s{_ddbaOperation = a}); --- | The range key type. Valid values are \"STRING\" or \"NUMBER\"-ddaRangeKeyType :: Lens' DynamoDBAction (Maybe DynamoKeyType)-ddaRangeKeyType = lens _ddaRangeKeyType (\ s a -> s{_ddaRangeKeyType = a});+-- | The range key type. Valid values are "STRING" or "NUMBER"+ddbaRangeKeyType :: Lens' DynamoDBAction (Maybe DynamoKeyType)+ddbaRangeKeyType = lens _ddbaRangeKeyType (\ s a -> s{_ddbaRangeKeyType = a});  -- | The action payload. This name can be customized.-ddaPayloadField :: Lens' DynamoDBAction (Maybe Text)-ddaPayloadField = lens _ddaPayloadField (\ s a -> s{_ddaPayloadField = a});+ddbaPayloadField :: Lens' DynamoDBAction (Maybe Text)+ddbaPayloadField = lens _ddbaPayloadField (\ s a -> s{_ddbaPayloadField = a});  -- | The range key name.-ddaRangeKeyField :: Lens' DynamoDBAction (Maybe Text)-ddaRangeKeyField = lens _ddaRangeKeyField (\ s a -> s{_ddaRangeKeyField = a});+ddbaRangeKeyField :: Lens' DynamoDBAction (Maybe Text)+ddbaRangeKeyField = lens _ddbaRangeKeyField (\ s a -> s{_ddbaRangeKeyField = a});  -- | The range key value.-ddaRangeKeyValue :: Lens' DynamoDBAction (Maybe Text)-ddaRangeKeyValue = lens _ddaRangeKeyValue (\ s a -> s{_ddaRangeKeyValue = a});+ddbaRangeKeyValue :: Lens' DynamoDBAction (Maybe Text)+ddbaRangeKeyValue = lens _ddbaRangeKeyValue (\ s a -> s{_ddbaRangeKeyValue = a});  -- | The name of the DynamoDB table.-ddaTableName :: Lens' DynamoDBAction Text-ddaTableName = lens _ddaTableName (\ s a -> s{_ddaTableName = a});+ddbaTableName :: Lens' DynamoDBAction Text+ddbaTableName = lens _ddbaTableName (\ s a -> s{_ddbaTableName = a});  -- | The ARN of the IAM role that grants access to the DynamoDB table.-ddaRoleARN :: Lens' DynamoDBAction Text-ddaRoleARN = lens _ddaRoleARN (\ s a -> s{_ddaRoleARN = a});+ddbaRoleARN :: Lens' DynamoDBAction Text+ddbaRoleARN = lens _ddbaRoleARN (\ s a -> s{_ddbaRoleARN = a});  -- | The hash key name.-ddaHashKeyField :: Lens' DynamoDBAction Text-ddaHashKeyField = lens _ddaHashKeyField (\ s a -> s{_ddaHashKeyField = a});+ddbaHashKeyField :: Lens' DynamoDBAction Text+ddbaHashKeyField = lens _ddbaHashKeyField (\ s a -> s{_ddbaHashKeyField = a});  -- | The hash key value.-ddaHashKeyValue :: Lens' DynamoDBAction Text-ddaHashKeyValue = lens _ddaHashKeyValue (\ s a -> s{_ddaHashKeyValue = a});+ddbaHashKeyValue :: Lens' DynamoDBAction Text+ddbaHashKeyValue = lens _ddbaHashKeyValue (\ s a -> s{_ddbaHashKeyValue = a});  instance FromJSON DynamoDBAction where         parseJSON@@ -833,19 +850,74 @@         toJSON DynamoDBAction'{..}           = object               (catMaybes-                 [("hashKeyType" .=) <$> _ddaHashKeyType,-                  ("operation" .=) <$> _ddaOperation,-                  ("rangeKeyType" .=) <$> _ddaRangeKeyType,-                  ("payloadField" .=) <$> _ddaPayloadField,-                  ("rangeKeyField" .=) <$> _ddaRangeKeyField,-                  ("rangeKeyValue" .=) <$> _ddaRangeKeyValue,-                  Just ("tableName" .= _ddaTableName),-                  Just ("roleArn" .= _ddaRoleARN),-                  Just ("hashKeyField" .= _ddaHashKeyField),-                  Just ("hashKeyValue" .= _ddaHashKeyValue)])+                 [("hashKeyType" .=) <$> _ddbaHashKeyType,+                  ("operation" .=) <$> _ddbaOperation,+                  ("rangeKeyType" .=) <$> _ddbaRangeKeyType,+                  ("payloadField" .=) <$> _ddbaPayloadField,+                  ("rangeKeyField" .=) <$> _ddbaRangeKeyField,+                  ("rangeKeyValue" .=) <$> _ddbaRangeKeyValue,+                  Just ("tableName" .= _ddbaTableName),+                  Just ("roleArn" .= _ddbaRoleARN),+                  Just ("hashKeyField" .= _ddbaHashKeyField),+                  Just ("hashKeyValue" .= _ddbaHashKeyValue)]) --- | Describes an action that writes data to an Amazon Elasticsearch Service; domain.+-- | Describes an action to write to a DynamoDB table. --+--+-- This DynamoDB action writes each attribute in the message payload into it's own column in the DynamoDB table.+--+--+-- /See:/ 'dynamoDBv2Action' smart constructor.+data DynamoDBv2Action = DynamoDBv2Action'+    { _ddaPutItem :: !(Maybe PutItemInput)+    , _ddaRoleARN :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DynamoDBv2Action' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddaPutItem' - Specifies the DynamoDB table to which the message data will be written. For example: @{ "dynamoDBv2": { "roleArn": "aws:iam:12341251:my-role" "putItem": { "tableName": "my-table" } } }@  Each attribute in the message payload will be written to a separate column in the DynamoDB database.+--+-- * 'ddaRoleARN' - The ARN of the IAM role that grants access to the DynamoDB table.+dynamoDBv2Action+    :: DynamoDBv2Action+dynamoDBv2Action =+    DynamoDBv2Action'+    { _ddaPutItem = Nothing+    , _ddaRoleARN = Nothing+    }++-- | Specifies the DynamoDB table to which the message data will be written. For example: @{ "dynamoDBv2": { "roleArn": "aws:iam:12341251:my-role" "putItem": { "tableName": "my-table" } } }@  Each attribute in the message payload will be written to a separate column in the DynamoDB database.+ddaPutItem :: Lens' DynamoDBv2Action (Maybe PutItemInput)+ddaPutItem = lens _ddaPutItem (\ s a -> s{_ddaPutItem = a});++-- | The ARN of the IAM role that grants access to the DynamoDB table.+ddaRoleARN :: Lens' DynamoDBv2Action (Maybe Text)+ddaRoleARN = lens _ddaRoleARN (\ s a -> s{_ddaRoleARN = a});++instance FromJSON DynamoDBv2Action where+        parseJSON+          = withObject "DynamoDBv2Action"+              (\ x ->+                 DynamoDBv2Action' <$>+                   (x .:? "putItem") <*> (x .:? "roleArn"))++instance Hashable DynamoDBv2Action++instance NFData DynamoDBv2Action++instance ToJSON DynamoDBv2Action where+        toJSON DynamoDBv2Action'{..}+          = object+              (catMaybes+                 [("putItem" .=) <$> _ddaPutItem,+                  ("roleArn" .=) <$> _ddaRoleARN])++-- | Describes an action that writes data to an Amazon Elasticsearch Service domain.+--+--+-- -- /See:/ 'elasticsearchAction' smart constructor. data ElasticsearchAction = ElasticsearchAction'     { _eaRoleARN  :: !Text@@ -859,15 +931,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'eaRoleARN'+-- * 'eaRoleARN' - The IAM role ARN that has access to Elasticsearch. ----- * 'eaEndpoint'+-- * 'eaEndpoint' - The endpoint of your Elasticsearch domain. ----- * 'eaIndex'+-- * 'eaIndex' - The Elasticsearch index where you want to store your data. ----- * 'eaType'+-- * 'eaType' - The type of document you are storing. ----- * 'eaId'+-- * 'eaId' - The unique identifier for the document you are storing. elasticsearchAction     :: Text -- ^ 'eaRoleARN'     -> Text -- ^ 'eaEndpoint'@@ -929,6 +1001,8 @@  -- | Describes an action that writes data to an Amazon Kinesis Firehose stream. --+--+-- -- /See:/ 'firehoseAction' smart constructor. data FirehoseAction = FirehoseAction'     { _faSeparator          :: !(Maybe Text)@@ -940,11 +1014,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'faSeparator'+-- * 'faSeparator' - A character separator that will be used to separate records written to the Firehose stream. Valid values are: '\n' (newline), '\t' (tab), '\r\n' (Windows newline), ',' (comma). ----- * 'faRoleARN'+-- * 'faRoleARN' - The IAM role that grants access to the Amazon Kinesis Firehost stream. ----- * 'faDeliveryStreamName'+-- * 'faDeliveryStreamName' - The delivery stream name. firehoseAction     :: Text -- ^ 'faRoleARN'     -> Text -- ^ 'faDeliveryStreamName'@@ -956,7 +1030,7 @@     , _faDeliveryStreamName = pDeliveryStreamName_     } --- | A character separator that will be used to separate records written to the firehose stream. Valid values are: \'\\n\' (newline), \'\\t\' (tab), \'\\r\\n\' (Windows newline), \',\' (comma).+-- | A character separator that will be used to separate records written to the Firehose stream. Valid values are: '\n' (newline), '\t' (tab), '\r\n' (Windows newline), ',' (comma). faSeparator :: Lens' FirehoseAction (Maybe Text) faSeparator = lens _faSeparator (\ s a -> s{_faSeparator = a}); @@ -991,6 +1065,8 @@  -- | Describes a key pair. --+--+-- -- /See:/ 'keyPair' smart constructor. data KeyPair = KeyPair'     { _kpPrivateKey :: !(Maybe (Sensitive Text))@@ -1001,9 +1077,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'kpPrivateKey'+-- * 'kpPrivateKey' - The private key. ----- * 'kpPublicKey'+-- * 'kpPublicKey' - The public key. keyPair     :: KeyPair keyPair =@@ -1033,6 +1109,8 @@  -- | Describes an action to write data to an Amazon Kinesis stream. --+--+-- -- /See:/ 'kinesisAction' smart constructor. data KinesisAction = KinesisAction'     { _kaPartitionKey :: !(Maybe Text)@@ -1044,11 +1122,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'kaPartitionKey'+-- * 'kaPartitionKey' - The partition key. ----- * 'kaRoleARN'+-- * 'kaRoleARN' - The ARN of the IAM role that grants access to the Amazon Kinesis stream. ----- * 'kaStreamName'+-- * 'kaStreamName' - The name of the Amazon Kinesis stream. kinesisAction     :: Text -- ^ 'kaRoleARN'     -> Text -- ^ 'kaStreamName'@@ -1094,6 +1172,8 @@  -- | Describes an action to invoke a Lambda function. --+--+-- -- /See:/ 'lambdaAction' smart constructor. newtype LambdaAction = LambdaAction'     { _laFunctionARN :: Text@@ -1103,7 +1183,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'laFunctionARN'+-- * 'laFunctionARN' - The ARN of the Lambda function. lambdaAction     :: Text -- ^ 'laFunctionARN'     -> LambdaAction@@ -1132,6 +1212,8 @@  -- | Describes the logging options payload. --+--+-- -- /See:/ 'loggingOptionsPayload' smart constructor. data LoggingOptionsPayload = LoggingOptionsPayload'     { _lopLogLevel :: !(Maybe LogLevel)@@ -1142,9 +1224,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lopLogLevel'+-- * 'lopLogLevel' - The logging level. ----- * 'lopRoleARN'+-- * 'lopRoleARN' - The ARN of the IAM role that grants access. loggingOptionsPayload     :: Text -- ^ 'lopRoleARN'     -> LoggingOptionsPayload@@ -1175,6 +1257,8 @@  -- | A certificate that has been transfered but not yet accepted. --+--+-- -- /See:/ 'outgoingCertificate' smart constructor. data OutgoingCertificate = OutgoingCertificate'     { _ocTransferDate    :: !(Maybe POSIX)@@ -1189,17 +1273,17 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ocTransferDate'+-- * 'ocTransferDate' - The date the transfer was initiated. ----- * 'ocCertificateARN'+-- * 'ocCertificateARN' - The certificate ARN. ----- * 'ocCertificateId'+-- * 'ocCertificateId' - The certificate ID. ----- * 'ocTransferredTo'+-- * 'ocTransferredTo' - The AWS account to which the transfer was made. ----- * 'ocCreationDate'+-- * 'ocCreationDate' - The certificate creation date. ----- * 'ocTransferMessage'+-- * 'ocTransferMessage' - The transfer message. outgoingCertificate     :: OutgoingCertificate outgoingCertificate =@@ -1253,6 +1337,8 @@  -- | Describes an AWS IoT policy. --+--+-- -- /See:/ 'policy' smart constructor. data Policy = Policy'     { _pPolicyName :: !(Maybe Text)@@ -1263,9 +1349,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'pPolicyName'+-- * 'pPolicyName' - The policy name. ----- * 'pPolicyARN'+-- * 'pPolicyARN' - The policy ARN. policy     :: Policy policy =@@ -1295,6 +1381,8 @@  -- | Describes a policy version. --+--+-- -- /See:/ 'policyVersion' smart constructor. data PolicyVersion = PolicyVersion'     { _pvVersionId        :: !(Maybe Text)@@ -1306,11 +1394,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'pvVersionId'+-- * 'pvVersionId' - The policy version ID. ----- * 'pvCreateDate'+-- * 'pvCreateDate' - The date and time the policy was created. ----- * 'pvIsDefaultVersion'+-- * 'pvIsDefaultVersion' - Specifies whether the policy version is the default. policyVersion     :: PolicyVersion policyVersion =@@ -1344,8 +1432,50 @@  instance NFData PolicyVersion +-- | The input for the DynamoActionVS action that specifies the DynamoDB table to which the message data will be written.+--+--+--+-- /See:/ 'putItemInput' smart constructor.+newtype PutItemInput = PutItemInput'+    { _piiTableName :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'PutItemInput' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'piiTableName' - The table where the message data will be written+putItemInput+    :: Text -- ^ 'piiTableName'+    -> PutItemInput+putItemInput pTableName_ =+    PutItemInput'+    { _piiTableName = pTableName_+    }++-- | The table where the message data will be written+piiTableName :: Lens' PutItemInput Text+piiTableName = lens _piiTableName (\ s a -> s{_piiTableName = a});++instance FromJSON PutItemInput where+        parseJSON+          = withObject "PutItemInput"+              (\ x -> PutItemInput' <$> (x .: "tableName"))++instance Hashable PutItemInput++instance NFData PutItemInput++instance ToJSON PutItemInput where+        toJSON PutItemInput'{..}+          = object+              (catMaybes [Just ("tableName" .= _piiTableName)])+ -- | Describes an action to republish to another topic. --+--+-- -- /See:/ 'republishAction' smart constructor. data RepublishAction = RepublishAction'     { _raRoleARN :: !Text@@ -1356,9 +1486,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'raRoleARN'+-- * 'raRoleARN' - The ARN of the IAM role that grants access. ----- * 'raTopic'+-- * 'raTopic' - The name of the MQTT topic. republishAction     :: Text -- ^ 'raRoleARN'     -> Text -- ^ 'raTopic'@@ -1397,9 +1527,12 @@  -- | Describes an action to write data to an Amazon S3 bucket. --+--+-- -- /See:/ 's3Action' smart constructor. data S3Action = S3Action'-    { _sRoleARN    :: !Text+    { _sCannedACL  :: !(Maybe CannedAccessControlList)+    , _sRoleARN    :: !Text     , _sBucketName :: !Text     , _sKey        :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -1408,11 +1541,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sRoleARN'+-- * 'sCannedACL' - The Amazon S3 canned ACL that controls access to the object identified by the object key. For more information, see <http://docs.aws.amazon.com/AmazonS3/latest/dev/acl-overview.html#canned-acl S3 canned ACLs> . ----- * 'sBucketName'+-- * 'sRoleARN' - The ARN of the IAM role that grants access. ----- * 'sKey'+-- * 'sBucketName' - The Amazon S3 bucket.+--+-- * 'sKey' - The object key. s3Action     :: Text -- ^ 'sRoleARN'     -> Text -- ^ 'sBucketName'@@ -1420,11 +1555,16 @@     -> S3Action s3Action pRoleARN_ pBucketName_ pKey_ =     S3Action'-    { _sRoleARN = pRoleARN_+    { _sCannedACL = Nothing+    , _sRoleARN = pRoleARN_     , _sBucketName = pBucketName_     , _sKey = pKey_     } +-- | The Amazon S3 canned ACL that controls access to the object identified by the object key. For more information, see <http://docs.aws.amazon.com/AmazonS3/latest/dev/acl-overview.html#canned-acl S3 canned ACLs> .+sCannedACL :: Lens' S3Action (Maybe CannedAccessControlList)+sCannedACL = lens _sCannedACL (\ s a -> s{_sCannedACL = a});+ -- | The ARN of the IAM role that grants access. sRoleARN :: Lens' S3Action Text sRoleARN = lens _sRoleARN (\ s a -> s{_sRoleARN = a});@@ -1442,8 +1582,9 @@           = withObject "S3Action"               (\ x ->                  S3Action' <$>-                   (x .: "roleArn") <*> (x .: "bucketName") <*>-                     (x .: "key"))+                   (x .:? "cannedAcl") <*> (x .: "roleArn") <*>+                     (x .: "bucketName")+                     <*> (x .: "key"))  instance Hashable S3Action @@ -1453,12 +1594,15 @@         toJSON S3Action'{..}           = object               (catMaybes-                 [Just ("roleArn" .= _sRoleARN),+                 [("cannedAcl" .=) <$> _sCannedACL,+                  Just ("roleArn" .= _sRoleARN),                   Just ("bucketName" .= _sBucketName),                   Just ("key" .= _sKey)])  -- | Describes an action to publish to an Amazon SNS topic. --+--+-- -- /See:/ 'snsAction' smart constructor. data SNSAction = SNSAction'     { _snsaMessageFormat :: !(Maybe MessageFormat)@@ -1470,11 +1614,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'snsaMessageFormat'+-- * 'snsaMessageFormat' - The message format of the message to publish. Optional. Accepted values are "JSON" and "RAW". The default value of the attribute is "RAW". SNS uses this setting to determine if the payload should be parsed and relevant platform-specific bits of the payload should be extracted. To read more about SNS message formats, see <http://docs.aws.amazon.com/sns/latest/dg/json-formats.html > refer to their official documentation. ----- * 'snsaTargetARN'+-- * 'snsaTargetARN' - The ARN of the SNS topic. ----- * 'snsaRoleARN'+-- * 'snsaRoleARN' - The ARN of the IAM role that grants access. snsAction     :: Text -- ^ 'snsaTargetARN'     -> Text -- ^ 'snsaRoleARN'@@ -1486,7 +1630,7 @@     , _snsaRoleARN = pRoleARN_     } --- | The message format of the message to publish. Optional. Accepted values are \"JSON\" and \"RAW\". The default value of the attribute is \"RAW\". SNS uses this setting to determine if the payload should be parsed and relevant platform-specific bits of the payload should be extracted. To read more about SNS message formats, see <http://docs.aws.amazon.com/sns/latest/dg/json-formats.html > refer to their official documentation.+-- | The message format of the message to publish. Optional. Accepted values are "JSON" and "RAW". The default value of the attribute is "RAW". SNS uses this setting to determine if the payload should be parsed and relevant platform-specific bits of the payload should be extracted. To read more about SNS message formats, see <http://docs.aws.amazon.com/sns/latest/dg/json-formats.html > refer to their official documentation. snsaMessageFormat :: Lens' SNSAction (Maybe MessageFormat) snsaMessageFormat = lens _snsaMessageFormat (\ s a -> s{_snsaMessageFormat = a}); @@ -1520,6 +1664,8 @@  -- | Describes an action to publish data to an Amazon SQS queue. --+--+-- -- /See:/ 'sqsAction' smart constructor. data SqsAction = SqsAction'     { _saUseBase64 :: !(Maybe Bool)@@ -1531,11 +1677,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'saUseBase64'+-- * 'saUseBase64' - Specifies whether to use Base64 encoding. ----- * 'saRoleARN'+-- * 'saRoleARN' - The ARN of the IAM role that grants access. ----- * 'saQueueURL'+-- * 'saQueueURL' - The URL of the Amazon SQS queue. sqsAction     :: Text -- ^ 'saRoleARN'     -> Text -- ^ 'saQueueURL'@@ -1581,6 +1727,8 @@  -- | The properties of the thing, including thing name, thing type name, and a list of thing attributes. --+--+-- -- /See:/ 'thingAttribute' smart constructor. data ThingAttribute = ThingAttribute'     { _taThingTypeName :: !(Maybe Text)@@ -1593,13 +1741,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'taThingTypeName'+-- * 'taThingTypeName' - The name of the thing type, if the thing has been associated with a type. ----- * 'taAttributes'+-- * 'taAttributes' - A list of thing attributes which are name-value pairs. ----- * 'taVersion'+-- * 'taVersion' - The version of the thing record in the registry. ----- * 'taThingName'+-- * 'taThingName' - The name of the thing. thingAttribute     :: ThingAttribute thingAttribute =@@ -1642,6 +1790,8 @@  -- | The definition of the thing type, including thing type name and description. --+--+-- -- /See:/ 'thingTypeDefinition' smart constructor. data ThingTypeDefinition = ThingTypeDefinition'     { _ttdThingTypeProperties :: !(Maybe ThingTypeProperties)@@ -1653,11 +1803,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ttdThingTypeProperties'+-- * 'ttdThingTypeProperties' - The ThingTypeProperties for the thing type. ----- * 'ttdThingTypeName'+-- * 'ttdThingTypeName' - The name of the thing type. ----- * 'ttdThingTypeMetadata'+-- * 'ttdThingTypeMetadata' - Undocumented member. thingTypeDefinition     :: ThingTypeDefinition thingTypeDefinition =@@ -1694,6 +1844,8 @@  -- | The ThingTypeMetadata contains additional information about the thing type including: creation date and time, a value indicating whether the thing type is deprecated, and a date and time when time was deprecated. --+--+-- -- /See:/ 'thingTypeMetadata' smart constructor. data ThingTypeMetadata = ThingTypeMetadata'     { _ttmDeprecationDate :: !(Maybe POSIX)@@ -1705,11 +1857,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ttmDeprecationDate'+-- * 'ttmDeprecationDate' - The date and time when the thing type was deprecated. ----- * 'ttmCreationDate'+-- * 'ttmCreationDate' - The date and time when the thing type was created. ----- * 'ttmDeprecated'+-- * 'ttmDeprecated' - Whether the thing type is deprecated. If __true__ , no new things could be associated with this type. thingTypeMetadata     :: ThingTypeMetadata thingTypeMetadata =@@ -1727,7 +1879,7 @@ ttmCreationDate :: Lens' ThingTypeMetadata (Maybe UTCTime) ttmCreationDate = lens _ttmCreationDate (\ s a -> s{_ttmCreationDate = a}) . mapping _Time; --- | Whether the thing type is deprecated. If __true__, no new things could be associated with this type.+-- | Whether the thing type is deprecated. If __true__ , no new things could be associated with this type. ttmDeprecated :: Lens' ThingTypeMetadata (Maybe Bool) ttmDeprecated = lens _ttmDeprecated (\ s a -> s{_ttmDeprecated = a}); @@ -1745,6 +1897,8 @@  -- | The ThingTypeProperties contains information about the thing type including: a thing type description, and a list of searchable thing attribute names. --+--+-- -- /See:/ 'thingTypeProperties' smart constructor. data ThingTypeProperties = ThingTypeProperties'     { _ttpSearchableAttributes :: !(Maybe [Text])@@ -1755,9 +1909,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ttpSearchableAttributes'+-- * 'ttpSearchableAttributes' - A list of searchable thing attribute names. ----- * 'ttpThingTypeDescription'+-- * 'ttpThingTypeDescription' - The description of the thing type. thingTypeProperties     :: ThingTypeProperties thingTypeProperties =@@ -1797,6 +1951,8 @@  -- | Describes a rule. --+--+-- -- /See:/ 'topicRule' smart constructor. data TopicRule = TopicRule'     { _trCreatedAt        :: !(Maybe POSIX)@@ -1812,19 +1968,19 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'trCreatedAt'+-- * 'trCreatedAt' - The date and time the rule was created. ----- * 'trActions'+-- * 'trActions' - The actions associated with the rule. ----- * 'trAwsIotSqlVersion'+-- * 'trAwsIotSqlVersion' - The version of the SQL rules engine to use when evaluating the rule. ----- * 'trRuleDisabled'+-- * 'trRuleDisabled' - Specifies whether the rule is disabled. ----- * 'trRuleName'+-- * 'trRuleName' - The name of the rule. ----- * 'trSql'+-- * 'trSql' - The SQL statement used to query the topic. When using a SQL query with multiple lines, be sure to escape the newline characters. ----- * 'trDescription'+-- * 'trDescription' - The description of the rule. topicRule     :: TopicRule topicRule =@@ -1884,6 +2040,8 @@  -- | Describes a rule. --+--+-- -- /See:/ 'topicRuleListItem' smart constructor. data TopicRuleListItem = TopicRuleListItem'     { _trliCreatedAt    :: !(Maybe POSIX)@@ -1897,15 +2055,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'trliCreatedAt'+-- * 'trliCreatedAt' - The date and time the rule was created. ----- * 'trliRuleDisabled'+-- * 'trliRuleDisabled' - Specifies whether the rule is disabled. ----- * 'trliRuleName'+-- * 'trliRuleName' - The name of the rule. ----- * 'trliRuleARN'+-- * 'trliRuleARN' - The rule ARN. ----- * 'trliTopicPattern'+-- * 'trliTopicPattern' - The pattern for the topic names that apply. topicRuleListItem     :: TopicRuleListItem topicRuleListItem =@@ -1953,6 +2111,8 @@  -- | Describes a rule. --+--+-- -- /See:/ 'topicRulePayload' smart constructor. data TopicRulePayload = TopicRulePayload'     { _trpAwsIotSqlVersion :: !(Maybe Text)@@ -1966,15 +2126,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'trpAwsIotSqlVersion'+-- * 'trpAwsIotSqlVersion' - The version of the SQL rules engine to use when evaluating the rule. ----- * 'trpRuleDisabled'+-- * 'trpRuleDisabled' - Specifies whether the rule is disabled. ----- * 'trpDescription'+-- * 'trpDescription' - The description of the rule. ----- * 'trpSql'+-- * 'trpSql' - The SQL statement used to query the topic. For more information, see <http://docs.aws.amazon.com/iot/latest/developerguide/iot-rules.html#aws-iot-sql-reference AWS IoT SQL Reference> in the /AWS IoT Developer Guide/ . ----- * 'trpActions'+-- * 'trpActions' - The actions associated with the rule. topicRulePayload     :: Text -- ^ 'trpSql'     -> TopicRulePayload@@ -1999,7 +2159,7 @@ trpDescription :: Lens' TopicRulePayload (Maybe Text) trpDescription = lens _trpDescription (\ s a -> s{_trpDescription = a}); --- | The SQL statement used to query the topic. For more information, see <http://docs.aws.amazon.com/iot/latest/developerguide/iot-rules.html#aws-iot-sql-reference AWS IoT SQL Reference> in the /AWS IoT Developer Guide/.+-- | The SQL statement used to query the topic. For more information, see <http://docs.aws.amazon.com/iot/latest/developerguide/iot-rules.html#aws-iot-sql-reference AWS IoT SQL Reference> in the /AWS IoT Developer Guide/ . trpSql :: Lens' TopicRulePayload Text trpSql = lens _trpSql (\ s a -> s{_trpSql = a}); @@ -2023,6 +2183,8 @@  -- | Data used to transfer a certificate to an AWS account. --+--+-- -- /See:/ 'transferData' smart constructor. data TransferData = TransferData'     { _tdTransferDate    :: !(Maybe POSIX)@@ -2036,15 +2198,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'tdTransferDate'+-- * 'tdTransferDate' - The date the transfer took place. ----- * 'tdAcceptDate'+-- * 'tdAcceptDate' - The date the transfer was accepted. ----- * 'tdTransferMessage'+-- * 'tdTransferMessage' - The transfer message. ----- * 'tdRejectDate'+-- * 'tdRejectDate' - The date the transfer was rejected. ----- * 'tdRejectReason'+-- * 'tdRejectReason' - The reason why the transfer was rejected. transferData     :: TransferData transferData =

@@ -77,6 +77,53 @@ instance FromJSON CACertificateStatus where     parseJSON = parseJSONText "CACertificateStatus" +data CannedAccessControlList+    = AWSExecRead+    | AuthenticatedRead+    | BucketOwnerFullControl+    | BucketOwnerRead+    | LogDeliveryWrite+    | Private+    | PublicRead+    | PublicReadWrite+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText CannedAccessControlList where+    parser = takeLowerText >>= \case+        "aws-exec-read" -> pure AWSExecRead+        "authenticated-read" -> pure AuthenticatedRead+        "bucket-owner-full-control" -> pure BucketOwnerFullControl+        "bucket-owner-read" -> pure BucketOwnerRead+        "log-delivery-write" -> pure LogDeliveryWrite+        "private" -> pure Private+        "public-read" -> pure PublicRead+        "public-read-write" -> pure PublicReadWrite+        e -> fromTextError $ "Failure parsing CannedAccessControlList from value: '" <> e+           <> "'. Accepted values: aws-exec-read, authenticated-read, bucket-owner-full-control, bucket-owner-read, log-delivery-write, private, public-read, public-read-write"++instance ToText CannedAccessControlList where+    toText = \case+        AWSExecRead -> "aws-exec-read"+        AuthenticatedRead -> "authenticated-read"+        BucketOwnerFullControl -> "bucket-owner-full-control"+        BucketOwnerRead -> "bucket-owner-read"+        LogDeliveryWrite -> "log-delivery-write"+        Private -> "private"+        PublicRead -> "public-read"+        PublicReadWrite -> "public-read-write"++instance Hashable     CannedAccessControlList+instance NFData       CannedAccessControlList+instance ToByteString CannedAccessControlList+instance ToQuery      CannedAccessControlList+instance ToHeader     CannedAccessControlList++instance ToJSON CannedAccessControlList where+    toJSON = toJSONText++instance FromJSON CannedAccessControlList where+    parseJSON = parseJSONText "CannedAccessControlList"+ data CertificateStatus     = Active     | Inactive

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Updates a registered CA certificate.+--+-- module Network.AWS.IoT.UpdateCACertificate     (     -- * Creating a Request@@ -43,6 +45,8 @@  -- | The input to the UpdateCACertificate operation. --+--+-- -- /See:/ 'updateCACertificate' smart constructor. data UpdateCACertificate = UpdateCACertificate'     { _ucacNewStatus                 :: !(Maybe CACertificateStatus)@@ -54,11 +58,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ucacNewStatus'+-- * 'ucacNewStatus' - The updated status of the CA certificate. __Note:__ The status value REGISTER_INACTIVE is deprecated and should not be used. ----- * 'ucacNewAutoRegistrationStatus'+-- * 'ucacNewAutoRegistrationStatus' - The new value for the auto registration status. Valid values are: "ENABLE" or "DISABLE". ----- * 'ucacCertificateId'+-- * 'ucacCertificateId' - The CA certificate identifier. updateCACertificate     :: Text -- ^ 'ucacCertificateId'     -> UpdateCACertificate@@ -69,13 +73,11 @@     , _ucacCertificateId = pCertificateId_     } --- | The updated status of the CA certificate.------ __Note:__ The status value REGISTER_INACTIVE is deprecated and should not be used.+-- | The updated status of the CA certificate. __Note:__ The status value REGISTER_INACTIVE is deprecated and should not be used. ucacNewStatus :: Lens' UpdateCACertificate (Maybe CACertificateStatus) ucacNewStatus = lens _ucacNewStatus (\ s a -> s{_ucacNewStatus = a}); --- | The new value for the auto registration status. Valid values are: \"ENABLE\" or \"DISABLE\".+-- | The new value for the auto registration status. Valid values are: "ENABLE" or "DISABLE". ucacNewAutoRegistrationStatus :: Lens' UpdateCACertificate (Maybe AutoRegistrationStatus) ucacNewAutoRegistrationStatus = lens _ucacNewAutoRegistrationStatus (\ s a -> s{_ucacNewAutoRegistrationStatus = a}); 

@@ -20,9 +20,11 @@ -- -- Updates the status of the specified certificate. This operation is idempotent. --+-- -- Moving a certificate from the ACTIVE state (including REVOKED) will not disconnect currently connected devices, but these devices will be unable to reconnect. -- -- The ACTIVE state is required to authenticate devices connecting to AWS IoT using a certificate.+-- module Network.AWS.IoT.UpdateCertificate     (     -- * Creating a Request@@ -46,6 +48,8 @@  -- | The input for the UpdateCertificate operation. --+--+-- -- /See:/ 'updateCertificate' smart constructor. data UpdateCertificate = UpdateCertificate'     { _ucCertificateId :: !Text@@ -56,9 +60,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ucCertificateId'+-- * 'ucCertificateId' - The ID of the certificate. ----- * 'ucNewStatus'+-- * 'ucNewStatus' - The new status. __Note:__ Setting the status to PENDING_TRANSFER will result in an exception being thrown. PENDING_TRANSFER is a status used internally by AWS IoT. It is not intended for developer use. __Note:__ The status value REGISTER_INACTIVE is deprecated and should not be used. updateCertificate     :: Text -- ^ 'ucCertificateId'     -> CertificateStatus -- ^ 'ucNewStatus'@@ -73,11 +77,7 @@ ucCertificateId :: Lens' UpdateCertificate Text ucCertificateId = lens _ucCertificateId (\ s a -> s{_ucCertificateId = a}); --- | The new status.------ __Note:__ Setting the status to PENDING_TRANSFER will result in an exception being thrown. PENDING_TRANSFER is a status used internally by AWS IoT. It is not intended for developer use.------ __Note:__ The status value REGISTER_INACTIVE is deprecated and should not be used.+-- | The new status. __Note:__ Setting the status to PENDING_TRANSFER will result in an exception being thrown. PENDING_TRANSFER is a status used internally by AWS IoT. It is not intended for developer use. __Note:__ The status value REGISTER_INACTIVE is deprecated and should not be used. ucNewStatus :: Lens' UpdateCertificate CertificateStatus ucNewStatus = lens _ucNewStatus (\ s a -> s{_ucNewStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Updates the data for a thing.+--+-- module Network.AWS.IoT.UpdateThing     (     -- * Creating a Request@@ -47,6 +49,8 @@  -- | The input for the UpdateThing operation. --+--+-- -- /See:/ 'updateThing' smart constructor. data UpdateThing = UpdateThing'     { _utRemoveThingType  :: !(Maybe Bool)@@ -60,15 +64,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'utRemoveThingType'+-- * 'utRemoveThingType' - Remove a thing type association. If __true__ , the assocation is removed. ----- * 'utThingTypeName'+-- * 'utThingTypeName' - The name of the thing type. ----- * 'utExpectedVersion'+-- * 'utExpectedVersion' - The expected version of the thing record in the registry. If the version of the record in the registry does not match the expected version specified in the request, the @UpdateThing@ request is rejected with a @VersionConflictException@ . ----- * 'utAttributePayload'+-- * 'utAttributePayload' - A list of thing attributes, a JSON string containing name-value pairs. For example: @{\"attributes\":{\"name1\":\"value2\"}})@  This data is used to add new attributes or update existing attributes. ----- * 'utThingName'+-- * 'utThingName' - The name of the thing to update. updateThing     :: Text -- ^ 'utThingName'     -> UpdateThing@@ -81,7 +85,7 @@     , _utThingName = pThingName_     } --- | Remove a thing type association. If __true__, the assocation is removed.+-- | Remove a thing type association. If __true__ , the assocation is removed. utRemoveThingType :: Lens' UpdateThing (Maybe Bool) utRemoveThingType = lens _utRemoveThingType (\ s a -> s{_utRemoveThingType = a}); @@ -89,15 +93,11 @@ utThingTypeName :: Lens' UpdateThing (Maybe Text) utThingTypeName = lens _utThingTypeName (\ s a -> s{_utThingTypeName = a}); --- | The expected version of the thing record in the registry. If the version of the record in the registry does not match the expected version specified in the request, the 'UpdateThing' request is rejected with a 'VersionConflictException'.+-- | The expected version of the thing record in the registry. If the version of the record in the registry does not match the expected version specified in the request, the @UpdateThing@ request is rejected with a @VersionConflictException@ . utExpectedVersion :: Lens' UpdateThing (Maybe Integer) utExpectedVersion = lens _utExpectedVersion (\ s a -> s{_utExpectedVersion = a}); --- | A list of thing attributes, a JSON string containing name-value pairs. For example:------ '{\\\"attributes\\\":{\\\"name1\\\":\\\"value2\\\"}})'------ This data is used to add new attributes or update existing attributes.+-- | A list of thing attributes, a JSON string containing name-value pairs. For example: @{\"attributes\":{\"name1\":\"value2\"}})@  This data is used to add new attributes or update existing attributes. utAttributePayload :: Lens' UpdateThing (Maybe AttributePayload) utAttributePayload = lens _utAttributePayload (\ s a -> s{_utAttributePayload = a}); @@ -138,6 +138,8 @@  -- | The output from the UpdateThing operation. --+--+-- -- /See:/ 'updateThingResponse' smart constructor. newtype UpdateThingResponse = UpdateThingResponse'     { _utrsResponseStatus :: Int@@ -147,7 +149,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'utrsResponseStatus'+-- * 'utrsResponseStatus' - -- | The response status code. updateThingResponse     :: Int -- ^ 'utrsResponseStatus'     -> UpdateThingResponse@@ -156,7 +158,7 @@     { _utrsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. utrsResponseStatus :: Lens' UpdateThingResponse Int utrsResponseStatus = lens _utrsResponseStatus (\ s a -> s{_utrsResponseStatus = a}); 

@@ -49,8 +49,8 @@ --         , requestListThingTypes $ --             listThingTypes -----         , requestCreateCertificateFromCsr $---             createCertificateFromCsr+--         , requestCreateCertificateFromCSR $+--             createCertificateFromCSR -- --         , requestDeleteThing $ --             deleteThing@@ -223,8 +223,8 @@ --         , responseListThingTypes $ --             listThingTypesResponse -----         , responseCreateCertificateFromCsr $---             createCertificateFromCsrResponse+--         , responseCreateCertificateFromCSR $+--             createCertificateFromCSRResponse -- --         , responseDeleteThing $ --             deleteThingResponse@@ -413,10 +413,10 @@     "ListThingTypes"     "fixture/ListThingTypes.yaml" -requestCreateCertificateFromCsr :: CreateCertificateFromCsr -> TestTree-requestCreateCertificateFromCsr = req-    "CreateCertificateFromCsr"-    "fixture/CreateCertificateFromCsr.yaml"+requestCreateCertificateFromCSR :: CreateCertificateFromCSR -> TestTree+requestCreateCertificateFromCSR = req+    "CreateCertificateFromCSR"+    "fixture/CreateCertificateFromCSR.yaml"  requestDeleteThing :: DeleteThing -> TestTree requestDeleteThing = req@@ -714,12 +714,12 @@     ioT     (Proxy :: Proxy ListThingTypes) -responseCreateCertificateFromCsr :: CreateCertificateFromCsrResponse -> TestTree-responseCreateCertificateFromCsr = res-    "CreateCertificateFromCsrResponse"-    "fixture/CreateCertificateFromCsrResponse.proto"+responseCreateCertificateFromCSR :: CreateCertificateFromCSRResponse -> TestTree+responseCreateCertificateFromCSR = res+    "CreateCertificateFromCSRResponse"+    "fixture/CreateCertificateFromCSRResponse.proto"     ioT-    (Proxy :: Proxy CreateCertificateFromCsr)+    (Proxy :: Proxy CreateCertificateFromCSR)  responseDeleteThing :: DeleteThingResponse -> TestTree responseDeleteThing = res