amazonka-iot 1.4.5 → 1.5.0
raw patch · 66 files changed
+2422/−2045 lines, 66 filesdep ~amazonka-coredep ~amazonka-iotdep ~amazonka-testPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: amazonka-core, amazonka-iot, amazonka-test
API changes (from Hackage documentation)
- Network.AWS.IoT.CreateKeysAndCertificate: instance GHC.Read.Read Network.AWS.IoT.CreateKeysAndCertificate.CreateKeysAndCertificateResponse
+ Network.AWS.IoT: aSalesforce :: Lens' Action (Maybe SalesforceAction)
+ Network.AWS.IoT: data SalesforceAction
+ Network.AWS.IoT: saToken :: Lens' SalesforceAction Text
+ Network.AWS.IoT: saUrl :: Lens' SalesforceAction Text
+ Network.AWS.IoT: salesforceAction :: Text -> Text -> SalesforceAction
+ Network.AWS.IoT.ListCACertificates: instance Network.AWS.Pager.AWSPager Network.AWS.IoT.ListCACertificates.ListCACertificates
+ Network.AWS.IoT.ListCertificates: instance Network.AWS.Pager.AWSPager Network.AWS.IoT.ListCertificates.ListCertificates
+ Network.AWS.IoT.ListCertificatesByCA: instance Network.AWS.Pager.AWSPager Network.AWS.IoT.ListCertificatesByCA.ListCertificatesByCA
+ Network.AWS.IoT.ListOutgoingCertificates: instance Network.AWS.Pager.AWSPager Network.AWS.IoT.ListOutgoingCertificates.ListOutgoingCertificates
+ Network.AWS.IoT.ListPolicies: instance Network.AWS.Pager.AWSPager Network.AWS.IoT.ListPolicies.ListPolicies
+ Network.AWS.IoT.ListPolicyPrincipals: instance Network.AWS.Pager.AWSPager Network.AWS.IoT.ListPolicyPrincipals.ListPolicyPrincipals
+ Network.AWS.IoT.ListPrincipalPolicies: instance Network.AWS.Pager.AWSPager Network.AWS.IoT.ListPrincipalPolicies.ListPrincipalPolicies
+ Network.AWS.IoT.ListPrincipalThings: instance Network.AWS.Pager.AWSPager Network.AWS.IoT.ListPrincipalThings.ListPrincipalThings
+ Network.AWS.IoT.ListThingTypes: instance Network.AWS.Pager.AWSPager Network.AWS.IoT.ListThingTypes.ListThingTypes
+ Network.AWS.IoT.ListThings: instance Network.AWS.Pager.AWSPager Network.AWS.IoT.ListThings.ListThings
+ Network.AWS.IoT.ListTopicRules: instance Network.AWS.Pager.AWSPager Network.AWS.IoT.ListTopicRules.ListTopicRules
+ Network.AWS.IoT.Types: aSalesforce :: Lens' Action (Maybe SalesforceAction)
+ Network.AWS.IoT.Types: data SalesforceAction
+ Network.AWS.IoT.Types: saToken :: Lens' SalesforceAction Text
+ Network.AWS.IoT.Types: saUrl :: Lens' SalesforceAction Text
+ Network.AWS.IoT.Types: salesforceAction :: Text -> Text -> SalesforceAction
Files
- README.md +1/−1
- amazonka-iot.cabal +16/−11
- gen/Network/AWS/IoT.hs +79/−72
- gen/Network/AWS/IoT/AcceptCertificateTransfer.hs +22/−19
- gen/Network/AWS/IoT/AttachPrincipalPolicy.hs +22/−20
- gen/Network/AWS/IoT/AttachThingPrincipal.hs +23/−23
- gen/Network/AWS/IoT/CancelCertificateTransfer.hs +20/−17
- gen/Network/AWS/IoT/CreateCertificateFromCSR.hs +36/−29
- gen/Network/AWS/IoT/CreateKeysAndCertificate.hs +31/−28
- gen/Network/AWS/IoT/CreatePolicy.hs +33/−31
- gen/Network/AWS/IoT/CreatePolicyVersion.hs +37/−33
- gen/Network/AWS/IoT/CreateThing.hs +35/−31
- gen/Network/AWS/IoT/CreateThingType.hs +29/−27
- gen/Network/AWS/IoT/CreateTopicRule.hs +22/−20
- gen/Network/AWS/IoT/DeleteCACertificate.hs +21/−21
- gen/Network/AWS/IoT/DeleteCertificate.hs +20/−18
- gen/Network/AWS/IoT/DeletePolicy.hs +20/−19
- gen/Network/AWS/IoT/DeletePolicyVersion.hs +22/−20
- gen/Network/AWS/IoT/DeleteRegistrationCode.hs +20/−18
- gen/Network/AWS/IoT/DeleteThing.hs +22/−23
- gen/Network/AWS/IoT/DeleteThingType.hs +21/−21
- gen/Network/AWS/IoT/DeleteTopicRule.hs +20/−19
- gen/Network/AWS/IoT/DeprecateThingType.hs +23/−23
- gen/Network/AWS/IoT/DescribeCACertificate.hs +25/−23
- gen/Network/AWS/IoT/DescribeCertificate.hs +25/−23
- gen/Network/AWS/IoT/DescribeEndpoint.hs +22/−20
- gen/Network/AWS/IoT/DescribeThing.hs +33/−32
- gen/Network/AWS/IoT/DescribeThingType.hs +31/−29
- gen/Network/AWS/IoT/DetachPrincipalPolicy.hs +22/−20
- gen/Network/AWS/IoT/DetachThingPrincipal.hs +23/−23
- gen/Network/AWS/IoT/DisableTopicRule.hs +20/−19
- gen/Network/AWS/IoT/EnableTopicRule.hs +20/−19
- gen/Network/AWS/IoT/GetLoggingOptions.hs +26/−22
- gen/Network/AWS/IoT/GetPolicy.hs +31/−30
- gen/Network/AWS/IoT/GetPolicyVersion.hs +35/−33
- gen/Network/AWS/IoT/GetRegistrationCode.hs +22/−20
- gen/Network/AWS/IoT/GetTopicRule.hs +27/−26
- gen/Network/AWS/IoT/ListCACertificates.hs +43/−29
- gen/Network/AWS/IoT/ListCertificates.hs +40/−29
- gen/Network/AWS/IoT/ListCertificatesByCA.hs +45/−31
- gen/Network/AWS/IoT/ListOutgoingCertificates.hs +40/−28
- gen/Network/AWS/IoT/ListPolicies.hs +40/−29
- gen/Network/AWS/IoT/ListPolicyPrincipals.hs +45/−31
- gen/Network/AWS/IoT/ListPolicyVersions.hs +23/−23
- gen/Network/AWS/IoT/ListPrincipalPolicies.hs +45/−31
- gen/Network/AWS/IoT/ListPrincipalThings.hs +43/−29
- gen/Network/AWS/IoT/ListThingPrincipals.hs +23/−23
- gen/Network/AWS/IoT/ListThingTypes.hs +43/−29
- gen/Network/AWS/IoT/ListThings.hs +47/−33
- gen/Network/AWS/IoT/ListTopicRules.hs +45/−31
- gen/Network/AWS/IoT/RegisterCACertificate.hs +36/−32
- gen/Network/AWS/IoT/RegisterCertificate.hs +37/−33
- gen/Network/AWS/IoT/RejectCertificateTransfer.hs +22/−19
- gen/Network/AWS/IoT/ReplaceTopicRule.hs +22/−20
- gen/Network/AWS/IoT/SetDefaultPolicyVersion.hs +22/−20
- gen/Network/AWS/IoT/SetLoggingOptions.hs +20/−18
- gen/Network/AWS/IoT/TransferCertificate.hs +31/−27
- gen/Network/AWS/IoT/Types.hs +75/−48
- gen/Network/AWS/IoT/Types/Product.hs +541/−447
- gen/Network/AWS/IoT/Types/Sum.hs +44/−37
- gen/Network/AWS/IoT/UpdateCACertificate.hs +26/−22
- gen/Network/AWS/IoT/UpdateCertificate.hs +22/−20
- gen/Network/AWS/IoT/UpdateThing.hs +33/−31
- gen/Network/AWS/IoT/Waiters.hs +6/−6
- test/Main.hs +2/−2
- test/Test/AWS/Gen/IoT.hs +4/−4
README.md view
@@ -8,7 +8,7 @@ ## Version -`1.4.5`+`1.5.0` ## Description
amazonka-iot.cabal view
@@ -1,13 +1,13 @@ name: amazonka-iot-version: 1.4.5+version: 1.5.0 synopsis: Amazon IoT SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues-license: OtherLicense+license: MPL-2.0 license-file: LICENSE author: Brendan Hay-maintainer: Brendan Hay <brendan.g.hay@gmail.com>-copyright: Copyright (c) 2013-2016 Brendan Hay+maintainer: Brendan Hay <brendan.g.hay+amazonka@gmail.com>+copyright: Copyright (c) 2013-2017 Brendan Hay category: Network, AWS, Cloud, Distributed Computing build-type: Simple cabal-version: >= 1.10@@ -29,14 +29,19 @@ to get started. source-repository head- type: git- location: git://github.com/brendanhay/amazonka.git+ type: git+ location: git://github.com/brendanhay/amazonka.git+ subdir: amazonka-iot library default-language: Haskell2010 hs-source-dirs: src gen - ghc-options: -Wall+ ghc-options:+ -Wall+ -fwarn-incomplete-uni-patterns+ -fwarn-incomplete-record-updates+ -funbox-strict-fields exposed-modules: Network.AWS.IoT@@ -105,7 +110,7 @@ , Network.AWS.IoT.Types.Sum build-depends:- amazonka-core == 1.4.5.*+ amazonka-core == 1.5.0.* , base >= 4.7 && < 5 test-suite amazonka-iot-test@@ -125,9 +130,9 @@ , Test.AWS.IoT.Internal build-depends:- amazonka-core == 1.4.5.*- , amazonka-test == 1.4.5.*- , amazonka-iot == 1.4.5.*+ amazonka-core == 1.5.0.*+ , amazonka-test == 1.5.0.*+ , amazonka-iot , base , bytestring , tasty
gen/Network/AWS/IoT.hs view
@@ -5,9 +5,9 @@ -- | -- Module : Network.AWS.IoT--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -91,7 +91,7 @@ -- * Operations -- $operations - -- ** ListPolicies+ -- ** ListPolicies (Paginated) , module Network.AWS.IoT.ListPolicies -- ** CreatePolicy@@ -103,13 +103,13 @@ -- ** ListThingPrincipals , module Network.AWS.IoT.ListThingPrincipals - -- ** ListPrincipalThings+ -- ** ListPrincipalThings (Paginated) , module Network.AWS.IoT.ListPrincipalThings -- ** GetLoggingOptions , module Network.AWS.IoT.GetLoggingOptions - -- ** ListThingTypes+ -- ** ListThingTypes (Paginated) , module Network.AWS.IoT.ListThingTypes -- ** CreateCertificateFromCSR@@ -139,13 +139,13 @@ -- ** CreatePolicyVersion , module Network.AWS.IoT.CreatePolicyVersion - -- ** ListCACertificates+ -- ** ListCACertificates (Paginated) , module Network.AWS.IoT.ListCACertificates -- ** DeleteTopicRule , module Network.AWS.IoT.DeleteTopicRule - -- ** ListPrincipalPolicies+ -- ** ListPrincipalPolicies (Paginated) , module Network.AWS.IoT.ListPrincipalPolicies -- ** DeleteCACertificate@@ -154,7 +154,7 @@ -- ** UpdateCACertificate , module Network.AWS.IoT.UpdateCACertificate - -- ** ListTopicRules+ -- ** ListTopicRules (Paginated) , module Network.AWS.IoT.ListTopicRules -- ** TransferCertificate@@ -169,7 +169,7 @@ -- ** DeletePolicy , module Network.AWS.IoT.DeletePolicy - -- ** ListCertificates+ -- ** ListCertificates (Paginated) , module Network.AWS.IoT.ListCertificates -- ** GetPolicyVersion@@ -181,7 +181,7 @@ -- ** UpdateCertificate , module Network.AWS.IoT.UpdateCertificate - -- ** ListOutgoingCertificates+ -- ** ListOutgoingCertificates (Paginated) , module Network.AWS.IoT.ListOutgoingCertificates -- ** DescribeCACertificate@@ -193,13 +193,13 @@ -- ** DeleteThingType , module Network.AWS.IoT.DeleteThingType - -- ** ListCertificatesByCA+ -- ** ListCertificatesByCA (Paginated) , module Network.AWS.IoT.ListCertificatesByCA -- ** AttachThingPrincipal , module Network.AWS.IoT.AttachThingPrincipal - -- ** ListThings+ -- ** ListThings (Paginated) , module Network.AWS.IoT.ListThings -- ** DetachPrincipalPolicy@@ -214,7 +214,7 @@ -- ** DescribeCertificate , module Network.AWS.IoT.DescribeCertificate - -- ** ListPolicyPrincipals+ -- ** ListPolicyPrincipals (Paginated) , module Network.AWS.IoT.ListPolicyPrincipals -- ** ReplaceTopicRule@@ -295,6 +295,7 @@ , aDynamoDB , aFirehose , aLambda+ , aSalesforce , aKinesis , aS3 , aElasticsearch@@ -475,6 +476,12 @@ , snsaTargetARN , snsaRoleARN + -- ** SalesforceAction+ , SalesforceAction+ , salesforceAction+ , saToken+ , saUrl+ -- ** SqsAction , SqsAction , sqsAction@@ -549,65 +556,65 @@ , tdRejectReason ) where -import Network.AWS.IoT.AcceptCertificateTransfer-import Network.AWS.IoT.AttachPrincipalPolicy-import Network.AWS.IoT.AttachThingPrincipal-import Network.AWS.IoT.CancelCertificateTransfer-import Network.AWS.IoT.CreateCertificateFromCSR-import Network.AWS.IoT.CreateKeysAndCertificate-import Network.AWS.IoT.CreatePolicy-import Network.AWS.IoT.CreatePolicyVersion-import Network.AWS.IoT.CreateThing-import Network.AWS.IoT.CreateThingType-import Network.AWS.IoT.CreateTopicRule-import Network.AWS.IoT.DeleteCACertificate-import Network.AWS.IoT.DeleteCertificate-import Network.AWS.IoT.DeletePolicy-import Network.AWS.IoT.DeletePolicyVersion-import Network.AWS.IoT.DeleteRegistrationCode-import Network.AWS.IoT.DeleteThing-import Network.AWS.IoT.DeleteThingType-import Network.AWS.IoT.DeleteTopicRule-import Network.AWS.IoT.DeprecateThingType-import Network.AWS.IoT.DescribeCACertificate-import Network.AWS.IoT.DescribeCertificate-import Network.AWS.IoT.DescribeEndpoint-import Network.AWS.IoT.DescribeThing-import Network.AWS.IoT.DescribeThingType-import Network.AWS.IoT.DetachPrincipalPolicy-import Network.AWS.IoT.DetachThingPrincipal-import Network.AWS.IoT.DisableTopicRule-import Network.AWS.IoT.EnableTopicRule-import Network.AWS.IoT.GetLoggingOptions-import Network.AWS.IoT.GetPolicy-import Network.AWS.IoT.GetPolicyVersion-import Network.AWS.IoT.GetRegistrationCode-import Network.AWS.IoT.GetTopicRule-import Network.AWS.IoT.ListCACertificates-import Network.AWS.IoT.ListCertificates-import Network.AWS.IoT.ListCertificatesByCA-import Network.AWS.IoT.ListOutgoingCertificates-import Network.AWS.IoT.ListPolicies-import Network.AWS.IoT.ListPolicyPrincipals-import Network.AWS.IoT.ListPolicyVersions-import Network.AWS.IoT.ListPrincipalPolicies-import Network.AWS.IoT.ListPrincipalThings-import Network.AWS.IoT.ListThingPrincipals-import Network.AWS.IoT.ListThings-import Network.AWS.IoT.ListThingTypes-import Network.AWS.IoT.ListTopicRules-import Network.AWS.IoT.RegisterCACertificate-import Network.AWS.IoT.RegisterCertificate-import Network.AWS.IoT.RejectCertificateTransfer-import Network.AWS.IoT.ReplaceTopicRule-import Network.AWS.IoT.SetDefaultPolicyVersion-import Network.AWS.IoT.SetLoggingOptions-import Network.AWS.IoT.TransferCertificate-import Network.AWS.IoT.Types-import Network.AWS.IoT.UpdateCACertificate-import Network.AWS.IoT.UpdateCertificate-import Network.AWS.IoT.UpdateThing-import Network.AWS.IoT.Waiters+import Network.AWS.IoT.AcceptCertificateTransfer+import Network.AWS.IoT.AttachPrincipalPolicy+import Network.AWS.IoT.AttachThingPrincipal+import Network.AWS.IoT.CancelCertificateTransfer+import Network.AWS.IoT.CreateCertificateFromCSR+import Network.AWS.IoT.CreateKeysAndCertificate+import Network.AWS.IoT.CreatePolicy+import Network.AWS.IoT.CreatePolicyVersion+import Network.AWS.IoT.CreateThing+import Network.AWS.IoT.CreateThingType+import Network.AWS.IoT.CreateTopicRule+import Network.AWS.IoT.DeleteCACertificate+import Network.AWS.IoT.DeleteCertificate+import Network.AWS.IoT.DeletePolicy+import Network.AWS.IoT.DeletePolicyVersion+import Network.AWS.IoT.DeleteRegistrationCode+import Network.AWS.IoT.DeleteThing+import Network.AWS.IoT.DeleteThingType+import Network.AWS.IoT.DeleteTopicRule+import Network.AWS.IoT.DeprecateThingType+import Network.AWS.IoT.DescribeCACertificate+import Network.AWS.IoT.DescribeCertificate+import Network.AWS.IoT.DescribeEndpoint+import Network.AWS.IoT.DescribeThing+import Network.AWS.IoT.DescribeThingType+import Network.AWS.IoT.DetachPrincipalPolicy+import Network.AWS.IoT.DetachThingPrincipal+import Network.AWS.IoT.DisableTopicRule+import Network.AWS.IoT.EnableTopicRule+import Network.AWS.IoT.GetLoggingOptions+import Network.AWS.IoT.GetPolicy+import Network.AWS.IoT.GetPolicyVersion+import Network.AWS.IoT.GetRegistrationCode+import Network.AWS.IoT.GetTopicRule+import Network.AWS.IoT.ListCACertificates+import Network.AWS.IoT.ListCertificates+import Network.AWS.IoT.ListCertificatesByCA+import Network.AWS.IoT.ListOutgoingCertificates+import Network.AWS.IoT.ListPolicies+import Network.AWS.IoT.ListPolicyPrincipals+import Network.AWS.IoT.ListPolicyVersions+import Network.AWS.IoT.ListPrincipalPolicies+import Network.AWS.IoT.ListPrincipalThings+import Network.AWS.IoT.ListThingPrincipals+import Network.AWS.IoT.ListThings+import Network.AWS.IoT.ListThingTypes+import Network.AWS.IoT.ListTopicRules+import Network.AWS.IoT.RegisterCACertificate+import Network.AWS.IoT.RegisterCertificate+import Network.AWS.IoT.RejectCertificateTransfer+import Network.AWS.IoT.ReplaceTopicRule+import Network.AWS.IoT.SetDefaultPolicyVersion+import Network.AWS.IoT.SetLoggingOptions+import Network.AWS.IoT.TransferCertificate+import Network.AWS.IoT.Types+import Network.AWS.IoT.UpdateCACertificate+import Network.AWS.IoT.UpdateCertificate+import Network.AWS.IoT.UpdateThing+import Network.AWS.IoT.Waiters {- $errors Error matchers are designed for use with the functions provided by
gen/Network/AWS/IoT/AcceptCertificateTransfer.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.AcceptCertificateTransfer--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@ , AcceptCertificateTransferResponse ) 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+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 AcceptCertificateTransfer operation. --@@ -50,10 +50,11 @@ -- -- /See:/ 'acceptCertificateTransfer' smart constructor. data AcceptCertificateTransfer = AcceptCertificateTransfer'- { _actSetAsActive :: !(Maybe Bool)- , _actCertificateId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _actSetAsActive :: !(Maybe Bool)+ , _actCertificateId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AcceptCertificateTransfer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,11 +66,10 @@ :: Text -- ^ 'actCertificateId' -> AcceptCertificateTransfer acceptCertificateTransfer pCertificateId_ =- AcceptCertificateTransfer'- { _actSetAsActive = Nothing- , _actCertificateId = pCertificateId_- }+ AcceptCertificateTransfer'+ {_actSetAsActive = Nothing, _actCertificateId = pCertificateId_} + -- | Specifies whether the certificate is active. actSetAsActive :: Lens' AcceptCertificateTransfer (Maybe Bool) actSetAsActive = lens _actSetAsActive (\ s a -> s{_actSetAsActive = a});@@ -85,9 +85,9 @@ response = receiveNull AcceptCertificateTransferResponse' -instance Hashable AcceptCertificateTransfer+instance Hashable AcceptCertificateTransfer where -instance NFData AcceptCertificateTransfer+instance NFData AcceptCertificateTransfer where instance ToHeaders AcceptCertificateTransfer where toHeaders = const mempty@@ -107,13 +107,16 @@ -- | /See:/ 'acceptCertificateTransferResponse' smart constructor. data AcceptCertificateTransferResponse =- AcceptCertificateTransferResponse'- deriving (Eq,Read,Show,Data,Typeable,Generic)+ AcceptCertificateTransferResponse'+ deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AcceptCertificateTransferResponse' with the minimum fields required to make a request. -- acceptCertificateTransferResponse :: AcceptCertificateTransferResponse acceptCertificateTransferResponse = AcceptCertificateTransferResponse' + instance NFData AcceptCertificateTransferResponse+ where
gen/Network/AWS/IoT/AttachPrincipalPolicy.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.AttachPrincipalPolicy--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,12 +35,12 @@ , AttachPrincipalPolicyResponse ) 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+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 AttachPrincipalPolicy operation. --@@ -48,10 +48,11 @@ -- -- /See:/ 'attachPrincipalPolicy' smart constructor. data AttachPrincipalPolicy = AttachPrincipalPolicy'- { _appPolicyName :: !Text- , _appPrincipal :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _appPolicyName :: !Text+ , _appPrincipal :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AttachPrincipalPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,11 +65,10 @@ -> Text -- ^ 'appPrincipal' -> AttachPrincipalPolicy attachPrincipalPolicy pPolicyName_ pPrincipal_ =- AttachPrincipalPolicy'- { _appPolicyName = pPolicyName_- , _appPrincipal = pPrincipal_- }+ AttachPrincipalPolicy'+ {_appPolicyName = pPolicyName_, _appPrincipal = pPrincipal_} + -- | The policy name. appPolicyName :: Lens' AttachPrincipalPolicy Text appPolicyName = lens _appPolicyName (\ s a -> s{_appPolicyName = a});@@ -83,9 +83,9 @@ request = putJSON ioT response = receiveNull AttachPrincipalPolicyResponse' -instance Hashable AttachPrincipalPolicy+instance Hashable AttachPrincipalPolicy where -instance NFData AttachPrincipalPolicy+instance NFData AttachPrincipalPolicy where instance ToHeaders AttachPrincipalPolicy where toHeaders AttachPrincipalPolicy'{..}@@ -104,13 +104,15 @@ -- | /See:/ 'attachPrincipalPolicyResponse' smart constructor. data AttachPrincipalPolicyResponse =- AttachPrincipalPolicyResponse'- deriving (Eq,Read,Show,Data,Typeable,Generic)+ AttachPrincipalPolicyResponse'+ deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AttachPrincipalPolicyResponse' with the minimum fields required to make a request. -- attachPrincipalPolicyResponse :: AttachPrincipalPolicyResponse attachPrincipalPolicyResponse = AttachPrincipalPolicyResponse' -instance NFData AttachPrincipalPolicyResponse++instance NFData AttachPrincipalPolicyResponse where
gen/Network/AWS/IoT/AttachThingPrincipal.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.AttachThingPrincipal--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@ , atprsResponseStatus ) 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+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 AttachThingPrincipal operation. --@@ -50,10 +50,11 @@ -- -- /See:/ 'attachThingPrincipal' smart constructor. data AttachThingPrincipal = AttachThingPrincipal'- { _atpThingName :: !Text- , _atpPrincipal :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _atpThingName :: !Text+ , _atpPrincipal :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AttachThingPrincipal' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,11 +67,10 @@ -> Text -- ^ 'atpPrincipal' -> AttachThingPrincipal attachThingPrincipal pThingName_ pPrincipal_ =- AttachThingPrincipal'- { _atpThingName = pThingName_- , _atpPrincipal = pPrincipal_- }+ AttachThingPrincipal'+ {_atpThingName = pThingName_, _atpPrincipal = pPrincipal_} + -- | The name of the thing. atpThingName :: Lens' AttachThingPrincipal Text atpThingName = lens _atpThingName (\ s a -> s{_atpThingName = a});@@ -89,9 +89,9 @@ AttachThingPrincipalResponse' <$> (pure (fromEnum s))) -instance Hashable AttachThingPrincipal+instance Hashable AttachThingPrincipal where -instance NFData AttachThingPrincipal+instance NFData AttachThingPrincipal where instance ToHeaders AttachThingPrincipal where toHeaders AttachThingPrincipal'{..}@@ -114,9 +114,10 @@ -- -- /See:/ 'attachThingPrincipalResponse' smart constructor. newtype AttachThingPrincipalResponse = AttachThingPrincipalResponse'- { _atprsResponseStatus :: Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _atprsResponseStatus :: Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AttachThingPrincipalResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -126,12 +127,11 @@ :: Int -- ^ 'atprsResponseStatus' -> AttachThingPrincipalResponse attachThingPrincipalResponse pResponseStatus_ =- AttachThingPrincipalResponse'- { _atprsResponseStatus = pResponseStatus_- }+ AttachThingPrincipalResponse' {_atprsResponseStatus = pResponseStatus_} + -- | -- | The response status code. atprsResponseStatus :: Lens' AttachThingPrincipalResponse Int atprsResponseStatus = lens _atprsResponseStatus (\ s a -> s{_atprsResponseStatus = a}); -instance NFData AttachThingPrincipalResponse+instance NFData AttachThingPrincipalResponse where
gen/Network/AWS/IoT/CancelCertificateTransfer.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.CancelCertificateTransfer--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,12 +38,12 @@ , CancelCertificateTransferResponse ) 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+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 CancelCertificateTransfer operation. --@@ -51,9 +51,10 @@ -- -- /See:/ 'cancelCertificateTransfer' smart constructor. newtype CancelCertificateTransfer = CancelCertificateTransfer'- { _cctCertificateId :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cctCertificateId :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CancelCertificateTransfer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,10 +64,9 @@ :: Text -- ^ 'cctCertificateId' -> CancelCertificateTransfer cancelCertificateTransfer pCertificateId_ =- CancelCertificateTransfer'- { _cctCertificateId = pCertificateId_- }+ CancelCertificateTransfer' {_cctCertificateId = pCertificateId_} + -- | The ID of the certificate. cctCertificateId :: Lens' CancelCertificateTransfer Text cctCertificateId = lens _cctCertificateId (\ s a -> s{_cctCertificateId = a});@@ -78,9 +78,9 @@ response = receiveNull CancelCertificateTransferResponse' -instance Hashable CancelCertificateTransfer+instance Hashable CancelCertificateTransfer where -instance NFData CancelCertificateTransfer+instance NFData CancelCertificateTransfer where instance ToHeaders CancelCertificateTransfer where toHeaders = const mempty@@ -99,13 +99,16 @@ -- | /See:/ 'cancelCertificateTransferResponse' smart constructor. data CancelCertificateTransferResponse =- CancelCertificateTransferResponse'- deriving (Eq,Read,Show,Data,Typeable,Generic)+ CancelCertificateTransferResponse'+ deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CancelCertificateTransferResponse' with the minimum fields required to make a request. -- cancelCertificateTransferResponse :: CancelCertificateTransferResponse cancelCertificateTransferResponse = CancelCertificateTransferResponse' + instance NFData CancelCertificateTransferResponse+ where
gen/Network/AWS/IoT/CreateCertificateFromCSR.hs view
@@ -12,17 +12,19 @@ -- | -- Module : Network.AWS.IoT.CreateCertificateFromCSR--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@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.+-- __Note:__ The CSR must include a public key that is either an RSA key with a length of at least 2048 bits or an ECC key from NIST P-256 or NIST P-384 curves. --+-- __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:@@ -64,12 +66,12 @@ , 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+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. --@@ -77,10 +79,11 @@ -- -- /See:/ 'createCertificateFromCSR' smart constructor. data CreateCertificateFromCSR = CreateCertificateFromCSR'- { _ccfcsrSetAsActive :: !(Maybe Bool)- , _ccfcsrCertificateSigningRequest :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _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:@@ -92,11 +95,12 @@ :: Text -- ^ 'ccfcsrCertificateSigningRequest' -> CreateCertificateFromCSR createCertificateFromCSR pCertificateSigningRequest_ =- CreateCertificateFromCSR'- { _ccfcsrSetAsActive = Nothing- , _ccfcsrCertificateSigningRequest = 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});@@ -117,9 +121,9 @@ <*> (x .?> "certificateId") <*> (pure (fromEnum s))) -instance Hashable CreateCertificateFromCSR+instance Hashable CreateCertificateFromCSR where -instance NFData CreateCertificateFromCSR+instance NFData CreateCertificateFromCSR where instance ToHeaders CreateCertificateFromCSR where toHeaders = const mempty@@ -145,12 +149,13 @@ -- -- /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)+ { _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:@@ -166,13 +171,14 @@ :: Int -- ^ 'ccfcsrrsResponseStatus' -> CreateCertificateFromCSRResponse createCertificateFromCSRResponse pResponseStatus_ =- CreateCertificateFromCSRResponse'- { _ccfcsrrsCertificatePem = Nothing- , _ccfcsrrsCertificateARN = Nothing- , _ccfcsrrsCertificateId = Nothing- , _ccfcsrrsResponseStatus = 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});@@ -190,3 +196,4 @@ ccfcsrrsResponseStatus = lens _ccfcsrrsResponseStatus (\ s a -> s{_ccfcsrrsResponseStatus = a}); instance NFData CreateCertificateFromCSRResponse+ where
gen/Network/AWS/IoT/CreateKeysAndCertificate.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.CreateKeysAndCertificate--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -42,12 +42,12 @@ , ckacrsResponseStatus ) 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+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 CreateKeysAndCertificate operation. --@@ -55,9 +55,10 @@ -- -- /See:/ 'createKeysAndCertificate' smart constructor. newtype CreateKeysAndCertificate = CreateKeysAndCertificate'- { _ckacSetAsActive :: Maybe Bool- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ckacSetAsActive :: Maybe Bool+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateKeysAndCertificate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,10 +67,9 @@ createKeysAndCertificate :: CreateKeysAndCertificate createKeysAndCertificate =- CreateKeysAndCertificate'- { _ckacSetAsActive = Nothing- }+ CreateKeysAndCertificate' {_ckacSetAsActive = Nothing} + -- | Specifies whether the certificate is active. ckacSetAsActive :: Lens' CreateKeysAndCertificate (Maybe Bool) ckacSetAsActive = lens _ckacSetAsActive (\ s a -> s{_ckacSetAsActive = a});@@ -87,9 +87,9 @@ <*> (x .?> "certificateId") <*> (pure (fromEnum s))) -instance Hashable CreateKeysAndCertificate+instance Hashable CreateKeysAndCertificate where -instance NFData CreateKeysAndCertificate+instance NFData CreateKeysAndCertificate where instance ToHeaders CreateKeysAndCertificate where toHeaders = const mempty@@ -110,13 +110,14 @@ -- -- /See:/ 'createKeysAndCertificateResponse' smart constructor. data CreateKeysAndCertificateResponse = CreateKeysAndCertificateResponse'- { _ckacrsKeyPair :: !(Maybe KeyPair)- , _ckacrsCertificatePem :: !(Maybe Text)- , _ckacrsCertificateARN :: !(Maybe Text)- , _ckacrsCertificateId :: !(Maybe Text)- , _ckacrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ckacrsKeyPair :: !(Maybe KeyPair)+ , _ckacrsCertificatePem :: !(Maybe Text)+ , _ckacrsCertificateARN :: !(Maybe Text)+ , _ckacrsCertificateId :: !(Maybe Text)+ , _ckacrsResponseStatus :: !Int+ } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateKeysAndCertificateResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -134,14 +135,15 @@ :: Int -- ^ 'ckacrsResponseStatus' -> CreateKeysAndCertificateResponse createKeysAndCertificateResponse pResponseStatus_ =- CreateKeysAndCertificateResponse'- { _ckacrsKeyPair = Nothing- , _ckacrsCertificatePem = Nothing- , _ckacrsCertificateARN = Nothing- , _ckacrsCertificateId = Nothing- , _ckacrsResponseStatus = pResponseStatus_- }+ CreateKeysAndCertificateResponse'+ { _ckacrsKeyPair = Nothing+ , _ckacrsCertificatePem = Nothing+ , _ckacrsCertificateARN = Nothing+ , _ckacrsCertificateId = Nothing+ , _ckacrsResponseStatus = pResponseStatus_+ } + -- | The generated key pair. ckacrsKeyPair :: Lens' CreateKeysAndCertificateResponse (Maybe KeyPair) ckacrsKeyPair = lens _ckacrsKeyPair (\ s a -> s{_ckacrsKeyPair = a});@@ -163,3 +165,4 @@ ckacrsResponseStatus = lens _ckacrsResponseStatus (\ s a -> s{_ckacrsResponseStatus = a}); instance NFData CreateKeysAndCertificateResponse+ where
gen/Network/AWS/IoT/CreatePolicy.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.CreatePolicy--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -43,12 +43,12 @@ , cprsResponseStatus ) 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+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 CreatePolicy operation. --@@ -56,10 +56,11 @@ -- -- /See:/ 'createPolicy' smart constructor. data CreatePolicy = CreatePolicy'- { _cpPolicyName :: !Text- , _cpPolicyDocument :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cpPolicyName :: !Text+ , _cpPolicyDocument :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreatePolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,11 +73,10 @@ -> Text -- ^ 'cpPolicyDocument' -> CreatePolicy createPolicy pPolicyName_ pPolicyDocument_ =- CreatePolicy'- { _cpPolicyName = pPolicyName_- , _cpPolicyDocument = pPolicyDocument_- }+ CreatePolicy'+ {_cpPolicyName = pPolicyName_, _cpPolicyDocument = pPolicyDocument_} + -- | The policy name. cpPolicyName :: Lens' CreatePolicy Text cpPolicyName = lens _cpPolicyName (\ s a -> s{_cpPolicyName = a});@@ -97,9 +97,9 @@ <*> (x .?> "policyArn") <*> (pure (fromEnum s))) -instance Hashable CreatePolicy+instance Hashable CreatePolicy where -instance NFData CreatePolicy+instance NFData CreatePolicy where instance ToHeaders CreatePolicy where toHeaders = const mempty@@ -123,13 +123,14 @@ -- -- /See:/ 'createPolicyResponse' smart constructor. data CreatePolicyResponse = CreatePolicyResponse'- { _cprsPolicyName :: !(Maybe Text)- , _cprsPolicyDocument :: !(Maybe Text)- , _cprsPolicyVersionId :: !(Maybe Text)- , _cprsPolicyARN :: !(Maybe Text)- , _cprsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cprsPolicyName :: !(Maybe Text)+ , _cprsPolicyDocument :: !(Maybe Text)+ , _cprsPolicyVersionId :: !(Maybe Text)+ , _cprsPolicyARN :: !(Maybe Text)+ , _cprsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreatePolicyResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -147,14 +148,15 @@ :: Int -- ^ 'cprsResponseStatus' -> CreatePolicyResponse createPolicyResponse pResponseStatus_ =- CreatePolicyResponse'- { _cprsPolicyName = Nothing- , _cprsPolicyDocument = Nothing- , _cprsPolicyVersionId = Nothing- , _cprsPolicyARN = Nothing- , _cprsResponseStatus = pResponseStatus_- }+ CreatePolicyResponse'+ { _cprsPolicyName = Nothing+ , _cprsPolicyDocument = Nothing+ , _cprsPolicyVersionId = Nothing+ , _cprsPolicyARN = Nothing+ , _cprsResponseStatus = pResponseStatus_+ } + -- | The policy name. cprsPolicyName :: Lens' CreatePolicyResponse (Maybe Text) cprsPolicyName = lens _cprsPolicyName (\ s a -> s{_cprsPolicyName = a});@@ -175,4 +177,4 @@ cprsResponseStatus :: Lens' CreatePolicyResponse Int cprsResponseStatus = lens _cprsResponseStatus (\ s a -> s{_cprsResponseStatus = a}); -instance NFData CreatePolicyResponse+instance NFData CreatePolicyResponse where
gen/Network/AWS/IoT/CreatePolicyVersion.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.CreatePolicyVersion--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -44,12 +44,12 @@ , cpvrsResponseStatus ) 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+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 CreatePolicyVersion operation. --@@ -57,11 +57,12 @@ -- -- /See:/ 'createPolicyVersion' smart constructor. data CreatePolicyVersion = CreatePolicyVersion'- { _cpvSetAsDefault :: !(Maybe Bool)- , _cpvPolicyName :: !Text- , _cpvPolicyDocument :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cpvSetAsDefault :: !(Maybe Bool)+ , _cpvPolicyName :: !Text+ , _cpvPolicyDocument :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreatePolicyVersion' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -76,12 +77,13 @@ -> Text -- ^ 'cpvPolicyDocument' -> CreatePolicyVersion createPolicyVersion pPolicyName_ pPolicyDocument_ =- CreatePolicyVersion'- { _cpvSetAsDefault = Nothing- , _cpvPolicyName = pPolicyName_- , _cpvPolicyDocument = pPolicyDocument_- }+ CreatePolicyVersion'+ { _cpvSetAsDefault = Nothing+ , _cpvPolicyName = pPolicyName_+ , _cpvPolicyDocument = pPolicyDocument_+ } + -- | 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). cpvSetAsDefault :: Lens' CreatePolicyVersion (Maybe Bool) cpvSetAsDefault = lens _cpvSetAsDefault (\ s a -> s{_cpvSetAsDefault = a});@@ -108,9 +110,9 @@ <*> (x .?> "isDefaultVersion") <*> (pure (fromEnum s))) -instance Hashable CreatePolicyVersion+instance Hashable CreatePolicyVersion where -instance NFData CreatePolicyVersion+instance NFData CreatePolicyVersion where instance ToHeaders CreatePolicyVersion where toHeaders = const mempty@@ -136,13 +138,14 @@ -- -- /See:/ 'createPolicyVersionResponse' smart constructor. data CreatePolicyVersionResponse = CreatePolicyVersionResponse'- { _cpvrsPolicyDocument :: !(Maybe Text)- , _cpvrsPolicyVersionId :: !(Maybe Text)- , _cpvrsPolicyARN :: !(Maybe Text)- , _cpvrsIsDefaultVersion :: !(Maybe Bool)- , _cpvrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cpvrsPolicyDocument :: !(Maybe Text)+ , _cpvrsPolicyVersionId :: !(Maybe Text)+ , _cpvrsPolicyARN :: !(Maybe Text)+ , _cpvrsIsDefaultVersion :: !(Maybe Bool)+ , _cpvrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreatePolicyVersionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -160,14 +163,15 @@ :: Int -- ^ 'cpvrsResponseStatus' -> CreatePolicyVersionResponse createPolicyVersionResponse pResponseStatus_ =- CreatePolicyVersionResponse'- { _cpvrsPolicyDocument = Nothing- , _cpvrsPolicyVersionId = Nothing- , _cpvrsPolicyARN = Nothing- , _cpvrsIsDefaultVersion = Nothing- , _cpvrsResponseStatus = pResponseStatus_- }+ CreatePolicyVersionResponse'+ { _cpvrsPolicyDocument = Nothing+ , _cpvrsPolicyVersionId = Nothing+ , _cpvrsPolicyARN = Nothing+ , _cpvrsIsDefaultVersion = Nothing+ , _cpvrsResponseStatus = pResponseStatus_+ } + -- | The JSON document that describes the policy. cpvrsPolicyDocument :: Lens' CreatePolicyVersionResponse (Maybe Text) cpvrsPolicyDocument = lens _cpvrsPolicyDocument (\ s a -> s{_cpvrsPolicyDocument = a});@@ -188,4 +192,4 @@ cpvrsResponseStatus :: Lens' CreatePolicyVersionResponse Int cpvrsResponseStatus = lens _cpvrsResponseStatus (\ s a -> s{_cpvrsResponseStatus = a}); -instance NFData CreatePolicyVersionResponse+instance NFData CreatePolicyVersionResponse where
gen/Network/AWS/IoT/CreateThing.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.CreateThing--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,12 +40,12 @@ , ctrsResponseStatus ) 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+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 CreateThing operation. --@@ -53,35 +53,37 @@ -- -- /See:/ 'createThing' smart constructor. data CreateThing = CreateThing'- { _ctThingTypeName :: !(Maybe Text)- , _ctAttributePayload :: !(Maybe AttributePayload)- , _ctThingName :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ctThingTypeName :: !(Maybe Text)+ , _ctAttributePayload :: !(Maybe AttributePayload)+ , _ctThingName :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateThing' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'ctThingTypeName' - The name of the thing type associated with the new thing. ----- * 'ctAttributePayload' - The attribute payload, which consists of up to three name/value pairs in a JSON document. For example: @{\"attributes\":{\"string1\":\"string2\"}})@+-- * 'ctAttributePayload' - The attribute payload, which consists of up to three name/value pairs in a JSON document. For example: @{\"attributes\":{\"string1\":\"string2\"}}@ -- -- * 'ctThingName' - The name of the thing to create. createThing :: Text -- ^ 'ctThingName' -> CreateThing createThing pThingName_ =- CreateThing'- { _ctThingTypeName = Nothing- , _ctAttributePayload = Nothing- , _ctThingName = pThingName_- }+ CreateThing'+ { _ctThingTypeName = Nothing+ , _ctAttributePayload = Nothing+ , _ctThingName = pThingName_+ } + -- | The name of the thing type associated with the new thing. 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}); @@ -99,9 +101,9 @@ (x .?> "thingArn") <*> (x .?> "thingName") <*> (pure (fromEnum s))) -instance Hashable CreateThing+instance Hashable CreateThing where -instance NFData CreateThing+instance NFData CreateThing where instance ToHeaders CreateThing where toHeaders = const mempty@@ -126,11 +128,12 @@ -- -- /See:/ 'createThingResponse' smart constructor. data CreateThingResponse = CreateThingResponse'- { _ctrsThingARN :: !(Maybe Text)- , _ctrsThingName :: !(Maybe Text)- , _ctrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ctrsThingARN :: !(Maybe Text)+ , _ctrsThingName :: !(Maybe Text)+ , _ctrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateThingResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -144,12 +147,13 @@ :: Int -- ^ 'ctrsResponseStatus' -> CreateThingResponse createThingResponse pResponseStatus_ =- CreateThingResponse'- { _ctrsThingARN = Nothing- , _ctrsThingName = Nothing- , _ctrsResponseStatus = pResponseStatus_- }+ CreateThingResponse'+ { _ctrsThingARN = Nothing+ , _ctrsThingName = Nothing+ , _ctrsResponseStatus = pResponseStatus_+ } + -- | The ARN of the new thing. ctrsThingARN :: Lens' CreateThingResponse (Maybe Text) ctrsThingARN = lens _ctrsThingARN (\ s a -> s{_ctrsThingARN = a});@@ -162,4 +166,4 @@ ctrsResponseStatus :: Lens' CreateThingResponse Int ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a}); -instance NFData CreateThingResponse+instance NFData CreateThingResponse where
gen/Network/AWS/IoT/CreateThingType.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.CreateThingType--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@ , cttrsResponseStatus ) 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+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 CreateThingType operation. --@@ -52,10 +52,11 @@ -- -- /See:/ 'createThingType' smart constructor. data CreateThingType = CreateThingType'- { _cttThingTypeProperties :: !(Maybe ThingTypeProperties)- , _cttThingTypeName :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cttThingTypeProperties :: !(Maybe ThingTypeProperties)+ , _cttThingTypeName :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateThingType' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -67,11 +68,10 @@ :: Text -- ^ 'cttThingTypeName' -> CreateThingType createThingType pThingTypeName_ =- CreateThingType'- { _cttThingTypeProperties = Nothing- , _cttThingTypeName = pThingTypeName_- }+ CreateThingType'+ {_cttThingTypeProperties = Nothing, _cttThingTypeName = pThingTypeName_} + -- | 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. cttThingTypeProperties :: Lens' CreateThingType (Maybe ThingTypeProperties) cttThingTypeProperties = lens _cttThingTypeProperties (\ s a -> s{_cttThingTypeProperties = a});@@ -90,9 +90,9 @@ (x .?> "thingTypeName") <*> (x .?> "thingTypeArn") <*> (pure (fromEnum s))) -instance Hashable CreateThingType+instance Hashable CreateThingType where -instance NFData CreateThingType+instance NFData CreateThingType where instance ToHeaders CreateThingType where toHeaders = const mempty@@ -117,11 +117,12 @@ -- -- /See:/ 'createThingTypeResponse' smart constructor. data CreateThingTypeResponse = CreateThingTypeResponse'- { _cttrsThingTypeName :: !(Maybe Text)- , _cttrsThingTypeARN :: !(Maybe Text)- , _cttrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cttrsThingTypeName :: !(Maybe Text)+ , _cttrsThingTypeARN :: !(Maybe Text)+ , _cttrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateThingTypeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -135,12 +136,13 @@ :: Int -- ^ 'cttrsResponseStatus' -> CreateThingTypeResponse createThingTypeResponse pResponseStatus_ =- CreateThingTypeResponse'- { _cttrsThingTypeName = Nothing- , _cttrsThingTypeARN = Nothing- , _cttrsResponseStatus = pResponseStatus_- }+ CreateThingTypeResponse'+ { _cttrsThingTypeName = Nothing+ , _cttrsThingTypeARN = Nothing+ , _cttrsResponseStatus = pResponseStatus_+ } + -- | The name of the thing type. cttrsThingTypeName :: Lens' CreateThingTypeResponse (Maybe Text) cttrsThingTypeName = lens _cttrsThingTypeName (\ s a -> s{_cttrsThingTypeName = a});@@ -153,4 +155,4 @@ cttrsResponseStatus :: Lens' CreateThingTypeResponse Int cttrsResponseStatus = lens _cttrsResponseStatus (\ s a -> s{_cttrsResponseStatus = a}); -instance NFData CreateThingTypeResponse+instance NFData CreateThingTypeResponse where
gen/Network/AWS/IoT/CreateTopicRule.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.CreateTopicRule--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,12 +35,12 @@ , CreateTopicRuleResponse ) 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+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 CreateTopicRule operation. --@@ -48,10 +48,11 @@ -- -- /See:/ 'createTopicRule' smart constructor. data CreateTopicRule = CreateTopicRule'- { _ctrRuleName :: !Text- , _ctrTopicRulePayload :: !TopicRulePayload- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ctrRuleName :: !Text+ , _ctrTopicRulePayload :: !TopicRulePayload+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateTopicRule' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,11 +65,10 @@ -> TopicRulePayload -- ^ 'ctrTopicRulePayload' -> CreateTopicRule createTopicRule pRuleName_ pTopicRulePayload_ =- CreateTopicRule'- { _ctrRuleName = pRuleName_- , _ctrTopicRulePayload = pTopicRulePayload_- }+ CreateTopicRule'+ {_ctrRuleName = pRuleName_, _ctrTopicRulePayload = pTopicRulePayload_} + -- | The name of the rule. ctrRuleName :: Lens' CreateTopicRule Text ctrRuleName = lens _ctrRuleName (\ s a -> s{_ctrRuleName = a});@@ -82,9 +82,9 @@ request = postJSON ioT response = receiveNull CreateTopicRuleResponse' -instance Hashable CreateTopicRule+instance Hashable CreateTopicRule where -instance NFData CreateTopicRule+instance NFData CreateTopicRule where instance ToHeaders CreateTopicRule where toHeaders = const mempty@@ -104,13 +104,15 @@ -- | /See:/ 'createTopicRuleResponse' smart constructor. data CreateTopicRuleResponse =- CreateTopicRuleResponse'- deriving (Eq,Read,Show,Data,Typeable,Generic)+ CreateTopicRuleResponse'+ deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateTopicRuleResponse' with the minimum fields required to make a request. -- createTopicRuleResponse :: CreateTopicRuleResponse createTopicRuleResponse = CreateTopicRuleResponse' -instance NFData CreateTopicRuleResponse++instance NFData CreateTopicRuleResponse where
gen/Network/AWS/IoT/DeleteCACertificate.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.DeleteCACertificate--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,12 +36,12 @@ , dcacrsResponseStatus ) 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+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 -- | Input for the DeleteCACertificate operation. --@@ -49,9 +49,10 @@ -- -- /See:/ 'deleteCACertificate' smart constructor. newtype DeleteCACertificate = DeleteCACertificate'- { _dcacCertificateId :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dcacCertificateId :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteCACertificate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -61,10 +62,9 @@ :: Text -- ^ 'dcacCertificateId' -> DeleteCACertificate deleteCACertificate pCertificateId_ =- DeleteCACertificate'- { _dcacCertificateId = pCertificateId_- }+ DeleteCACertificate' {_dcacCertificateId = pCertificateId_} + -- | The ID of the certificate to delete. dcacCertificateId :: Lens' DeleteCACertificate Text dcacCertificateId = lens _dcacCertificateId (\ s a -> s{_dcacCertificateId = a});@@ -78,9 +78,9 @@ (\ s h x -> DeleteCACertificateResponse' <$> (pure (fromEnum s))) -instance Hashable DeleteCACertificate+instance Hashable DeleteCACertificate where -instance NFData DeleteCACertificate+instance NFData DeleteCACertificate where instance ToHeaders DeleteCACertificate where toHeaders = const mempty@@ -99,9 +99,10 @@ -- -- /See:/ 'deleteCACertificateResponse' smart constructor. newtype DeleteCACertificateResponse = DeleteCACertificateResponse'- { _dcacrsResponseStatus :: Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dcacrsResponseStatus :: Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteCACertificateResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -111,12 +112,11 @@ :: Int -- ^ 'dcacrsResponseStatus' -> DeleteCACertificateResponse deleteCACertificateResponse pResponseStatus_ =- DeleteCACertificateResponse'- { _dcacrsResponseStatus = pResponseStatus_- }+ DeleteCACertificateResponse' {_dcacrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. dcacrsResponseStatus :: Lens' DeleteCACertificateResponse Int dcacrsResponseStatus = lens _dcacrsResponseStatus (\ s a -> s{_dcacrsResponseStatus = a}); -instance NFData DeleteCACertificateResponse+instance NFData DeleteCACertificateResponse where
gen/Network/AWS/IoT/DeleteCertificate.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.DeleteCertificate--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,12 +36,12 @@ , DeleteCertificateResponse ) 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+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 DeleteCertificate operation. --@@ -49,9 +49,10 @@ -- -- /See:/ 'deleteCertificate' smart constructor. newtype DeleteCertificate = DeleteCertificate'- { _dcCertificateId :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dcCertificateId :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteCertificate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -61,10 +62,9 @@ :: Text -- ^ 'dcCertificateId' -> DeleteCertificate deleteCertificate pCertificateId_ =- DeleteCertificate'- { _dcCertificateId = pCertificateId_- }+ DeleteCertificate' {_dcCertificateId = pCertificateId_} + -- | The ID of the certificate. dcCertificateId :: Lens' DeleteCertificate Text dcCertificateId = lens _dcCertificateId (\ s a -> s{_dcCertificateId = a});@@ -74,9 +74,9 @@ request = delete ioT response = receiveNull DeleteCertificateResponse' -instance Hashable DeleteCertificate+instance Hashable DeleteCertificate where -instance NFData DeleteCertificate+instance NFData DeleteCertificate where instance ToHeaders DeleteCertificate where toHeaders = const mempty@@ -90,13 +90,15 @@ -- | /See:/ 'deleteCertificateResponse' smart constructor. data DeleteCertificateResponse =- DeleteCertificateResponse'- deriving (Eq,Read,Show,Data,Typeable,Generic)+ DeleteCertificateResponse'+ deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteCertificateResponse' with the minimum fields required to make a request. -- deleteCertificateResponse :: DeleteCertificateResponse deleteCertificateResponse = DeleteCertificateResponse' -instance NFData DeleteCertificateResponse++instance NFData DeleteCertificateResponse where
gen/Network/AWS/IoT/DeletePolicy.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.DeletePolicy--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,12 +40,12 @@ , DeletePolicyResponse ) 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+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 DeletePolicy operation. --@@ -53,9 +53,10 @@ -- -- /See:/ 'deletePolicy' smart constructor. newtype DeletePolicy = DeletePolicy'- { _dpPolicyName :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dpPolicyName :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeletePolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,11 +65,9 @@ deletePolicy :: Text -- ^ 'dpPolicyName' -> DeletePolicy-deletePolicy pPolicyName_ =- DeletePolicy'- { _dpPolicyName = pPolicyName_- }+deletePolicy pPolicyName_ = DeletePolicy' {_dpPolicyName = pPolicyName_} + -- | The name of the policy to delete. dpPolicyName :: Lens' DeletePolicy Text dpPolicyName = lens _dpPolicyName (\ s a -> s{_dpPolicyName = a});@@ -78,9 +77,9 @@ request = delete ioT response = receiveNull DeletePolicyResponse' -instance Hashable DeletePolicy+instance Hashable DeletePolicy where -instance NFData DeletePolicy+instance NFData DeletePolicy where instance ToHeaders DeletePolicy where toHeaders = const mempty@@ -94,13 +93,15 @@ -- | /See:/ 'deletePolicyResponse' smart constructor. data DeletePolicyResponse =- DeletePolicyResponse'- deriving (Eq,Read,Show,Data,Typeable,Generic)+ DeletePolicyResponse'+ deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeletePolicyResponse' with the minimum fields required to make a request. -- deletePolicyResponse :: DeletePolicyResponse deletePolicyResponse = DeletePolicyResponse' -instance NFData DeletePolicyResponse++instance NFData DeletePolicyResponse where
gen/Network/AWS/IoT/DeletePolicyVersion.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.DeletePolicyVersion--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,12 +35,12 @@ , DeletePolicyVersionResponse ) 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+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 DeletePolicyVersion operation. --@@ -48,10 +48,11 @@ -- -- /See:/ 'deletePolicyVersion' smart constructor. data DeletePolicyVersion = DeletePolicyVersion'- { _dpvPolicyName :: !Text- , _dpvPolicyVersionId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dpvPolicyName :: !Text+ , _dpvPolicyVersionId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeletePolicyVersion' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,11 +65,10 @@ -> Text -- ^ 'dpvPolicyVersionId' -> DeletePolicyVersion deletePolicyVersion pPolicyName_ pPolicyVersionId_ =- DeletePolicyVersion'- { _dpvPolicyName = pPolicyName_- , _dpvPolicyVersionId = pPolicyVersionId_- }+ DeletePolicyVersion'+ {_dpvPolicyName = pPolicyName_, _dpvPolicyVersionId = pPolicyVersionId_} + -- | The name of the policy. dpvPolicyName :: Lens' DeletePolicyVersion Text dpvPolicyName = lens _dpvPolicyName (\ s a -> s{_dpvPolicyName = a});@@ -83,9 +83,9 @@ request = delete ioT response = receiveNull DeletePolicyVersionResponse' -instance Hashable DeletePolicyVersion+instance Hashable DeletePolicyVersion where -instance NFData DeletePolicyVersion+instance NFData DeletePolicyVersion where instance ToHeaders DeletePolicyVersion where toHeaders = const mempty@@ -101,13 +101,15 @@ -- | /See:/ 'deletePolicyVersionResponse' smart constructor. data DeletePolicyVersionResponse =- DeletePolicyVersionResponse'- deriving (Eq,Read,Show,Data,Typeable,Generic)+ DeletePolicyVersionResponse'+ deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeletePolicyVersionResponse' with the minimum fields required to make a request. -- deletePolicyVersionResponse :: DeletePolicyVersionResponse deletePolicyVersionResponse = DeletePolicyVersionResponse' -instance NFData DeletePolicyVersionResponse++instance NFData DeletePolicyVersionResponse where
gen/Network/AWS/IoT/DeleteRegistrationCode.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.DeleteRegistrationCode--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -34,12 +34,12 @@ , drcrsResponseStatus ) 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+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 DeleteRegistrationCode operation. --@@ -47,15 +47,17 @@ -- -- /See:/ 'deleteRegistrationCode' smart constructor. data DeleteRegistrationCode =- DeleteRegistrationCode'- deriving (Eq,Read,Show,Data,Typeable,Generic)+ DeleteRegistrationCode'+ deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteRegistrationCode' with the minimum fields required to make a request. -- deleteRegistrationCode :: DeleteRegistrationCode deleteRegistrationCode = DeleteRegistrationCode' + instance AWSRequest DeleteRegistrationCode where type Rs DeleteRegistrationCode = DeleteRegistrationCodeResponse@@ -66,9 +68,9 @@ DeleteRegistrationCodeResponse' <$> (pure (fromEnum s))) -instance Hashable DeleteRegistrationCode+instance Hashable DeleteRegistrationCode where -instance NFData DeleteRegistrationCode+instance NFData DeleteRegistrationCode where instance ToHeaders DeleteRegistrationCode where toHeaders = const mempty@@ -85,9 +87,10 @@ -- -- /See:/ 'deleteRegistrationCodeResponse' smart constructor. newtype DeleteRegistrationCodeResponse = DeleteRegistrationCodeResponse'- { _drcrsResponseStatus :: Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _drcrsResponseStatus :: Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteRegistrationCodeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -97,12 +100,11 @@ :: Int -- ^ 'drcrsResponseStatus' -> DeleteRegistrationCodeResponse deleteRegistrationCodeResponse pResponseStatus_ =- DeleteRegistrationCodeResponse'- { _drcrsResponseStatus = pResponseStatus_- }+ DeleteRegistrationCodeResponse' {_drcrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. drcrsResponseStatus :: Lens' DeleteRegistrationCodeResponse Int drcrsResponseStatus = lens _drcrsResponseStatus (\ s a -> s{_drcrsResponseStatus = a}); -instance NFData DeleteRegistrationCodeResponse+instance NFData DeleteRegistrationCodeResponse where
gen/Network/AWS/IoT/DeleteThing.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.DeleteThing--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@ , delrsResponseStatus ) 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+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 DeleteThing operation. --@@ -50,10 +50,11 @@ -- -- /See:/ 'deleteThing' smart constructor. data DeleteThing = DeleteThing'- { _dtExpectedVersion :: !(Maybe Integer)- , _dtThingName :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dtExpectedVersion :: !(Maybe Integer)+ , _dtThingName :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteThing' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,11 +66,9 @@ :: Text -- ^ 'dtThingName' -> DeleteThing deleteThing pThingName_ =- DeleteThing'- { _dtExpectedVersion = Nothing- , _dtThingName = pThingName_- }+ DeleteThing' {_dtExpectedVersion = Nothing, _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@ . dtExpectedVersion :: Lens' DeleteThing (Maybe Integer) dtExpectedVersion = lens _dtExpectedVersion (\ s a -> s{_dtExpectedVersion = a});@@ -86,9 +85,9 @@ (\ s h x -> DeleteThingResponse' <$> (pure (fromEnum s))) -instance Hashable DeleteThing+instance Hashable DeleteThing where -instance NFData DeleteThing+instance NFData DeleteThing where instance ToHeaders DeleteThing where toHeaders = const mempty@@ -107,9 +106,10 @@ -- -- /See:/ 'deleteThingResponse' smart constructor. newtype DeleteThingResponse = DeleteThingResponse'- { _delrsResponseStatus :: Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _delrsResponseStatus :: Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteThingResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -119,12 +119,11 @@ :: Int -- ^ 'delrsResponseStatus' -> DeleteThingResponse deleteThingResponse pResponseStatus_ =- DeleteThingResponse'- { _delrsResponseStatus = pResponseStatus_- }+ DeleteThingResponse' {_delrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. delrsResponseStatus :: Lens' DeleteThingResponse Int delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a}); -instance NFData DeleteThingResponse+instance NFData DeleteThingResponse where
gen/Network/AWS/IoT/DeleteThingType.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.DeleteThingType--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,12 +36,12 @@ , dttrsResponseStatus ) 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+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 DeleteThingType operation. --@@ -49,9 +49,10 @@ -- -- /See:/ 'deleteThingType' smart constructor. newtype DeleteThingType = DeleteThingType'- { _dttThingTypeName :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dttThingTypeName :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteThingType' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -61,10 +62,9 @@ :: Text -- ^ 'dttThingTypeName' -> DeleteThingType deleteThingType pThingTypeName_ =- DeleteThingType'- { _dttThingTypeName = pThingTypeName_- }+ DeleteThingType' {_dttThingTypeName = pThingTypeName_} + -- | The name of the thing type. dttThingTypeName :: Lens' DeleteThingType Text dttThingTypeName = lens _dttThingTypeName (\ s a -> s{_dttThingTypeName = a});@@ -77,9 +77,9 @@ (\ s h x -> DeleteThingTypeResponse' <$> (pure (fromEnum s))) -instance Hashable DeleteThingType+instance Hashable DeleteThingType where -instance NFData DeleteThingType+instance NFData DeleteThingType where instance ToHeaders DeleteThingType where toHeaders = const mempty@@ -97,9 +97,10 @@ -- -- /See:/ 'deleteThingTypeResponse' smart constructor. newtype DeleteThingTypeResponse = DeleteThingTypeResponse'- { _dttrsResponseStatus :: Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dttrsResponseStatus :: Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteThingTypeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -109,12 +110,11 @@ :: Int -- ^ 'dttrsResponseStatus' -> DeleteThingTypeResponse deleteThingTypeResponse pResponseStatus_ =- DeleteThingTypeResponse'- { _dttrsResponseStatus = pResponseStatus_- }+ DeleteThingTypeResponse' {_dttrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. dttrsResponseStatus :: Lens' DeleteThingTypeResponse Int dttrsResponseStatus = lens _dttrsResponseStatus (\ s a -> s{_dttrsResponseStatus = a}); -instance NFData DeleteThingTypeResponse+instance NFData DeleteThingTypeResponse where
gen/Network/AWS/IoT/DeleteTopicRule.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.DeleteTopicRule--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -34,12 +34,12 @@ , DeleteTopicRuleResponse ) 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+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 DeleteTopicRule operation. --@@ -47,9 +47,10 @@ -- -- /See:/ 'deleteTopicRule' smart constructor. newtype DeleteTopicRule = DeleteTopicRule'- { _dRuleName :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dRuleName :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteTopicRule' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -58,11 +59,9 @@ deleteTopicRule :: Text -- ^ 'dRuleName' -> DeleteTopicRule-deleteTopicRule pRuleName_ =- DeleteTopicRule'- { _dRuleName = pRuleName_- }+deleteTopicRule pRuleName_ = DeleteTopicRule' {_dRuleName = pRuleName_} + -- | The name of the rule. dRuleName :: Lens' DeleteTopicRule Text dRuleName = lens _dRuleName (\ s a -> s{_dRuleName = a});@@ -72,9 +71,9 @@ request = delete ioT response = receiveNull DeleteTopicRuleResponse' -instance Hashable DeleteTopicRule+instance Hashable DeleteTopicRule where -instance NFData DeleteTopicRule+instance NFData DeleteTopicRule where instance ToHeaders DeleteTopicRule where toHeaders = const mempty@@ -88,13 +87,15 @@ -- | /See:/ 'deleteTopicRuleResponse' smart constructor. data DeleteTopicRuleResponse =- DeleteTopicRuleResponse'- deriving (Eq,Read,Show,Data,Typeable,Generic)+ DeleteTopicRuleResponse'+ deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteTopicRuleResponse' with the minimum fields required to make a request. -- deleteTopicRuleResponse :: DeleteTopicRuleResponse deleteTopicRuleResponse = DeleteTopicRuleResponse' -instance NFData DeleteTopicRuleResponse++instance NFData DeleteTopicRuleResponse where
gen/Network/AWS/IoT/DeprecateThingType.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.DeprecateThingType--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@ , deprsResponseStatus ) 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+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 DeprecateThingType operation. --@@ -50,10 +50,11 @@ -- -- /See:/ 'deprecateThingType' smart constructor. data DeprecateThingType = DeprecateThingType'- { _depUndoDeprecate :: !(Maybe Bool)- , _depThingTypeName :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _depUndoDeprecate :: !(Maybe Bool)+ , _depThingTypeName :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeprecateThingType' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,11 +66,10 @@ :: Text -- ^ 'depThingTypeName' -> DeprecateThingType deprecateThingType pThingTypeName_ =- DeprecateThingType'- { _depUndoDeprecate = Nothing- , _depThingTypeName = pThingTypeName_- }+ DeprecateThingType'+ {_depUndoDeprecate = Nothing, _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. depUndoDeprecate :: Lens' DeprecateThingType (Maybe Bool) depUndoDeprecate = lens _depUndoDeprecate (\ s a -> s{_depUndoDeprecate = a});@@ -87,9 +87,9 @@ (\ s h x -> DeprecateThingTypeResponse' <$> (pure (fromEnum s))) -instance Hashable DeprecateThingType+instance Hashable DeprecateThingType where -instance NFData DeprecateThingType+instance NFData DeprecateThingType where instance ToHeaders DeprecateThingType where toHeaders = const mempty@@ -115,9 +115,10 @@ -- -- /See:/ 'deprecateThingTypeResponse' smart constructor. newtype DeprecateThingTypeResponse = DeprecateThingTypeResponse'- { _deprsResponseStatus :: Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _deprsResponseStatus :: Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeprecateThingTypeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -127,12 +128,11 @@ :: Int -- ^ 'deprsResponseStatus' -> DeprecateThingTypeResponse deprecateThingTypeResponse pResponseStatus_ =- DeprecateThingTypeResponse'- { _deprsResponseStatus = pResponseStatus_- }+ DeprecateThingTypeResponse' {_deprsResponseStatus = pResponseStatus_} + -- | -- | The response status code. deprsResponseStatus :: Lens' DeprecateThingTypeResponse Int deprsResponseStatus = lens _deprsResponseStatus (\ s a -> s{_deprsResponseStatus = a}); -instance NFData DeprecateThingTypeResponse+instance NFData DeprecateThingTypeResponse where
gen/Network/AWS/IoT/DescribeCACertificate.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.DescribeCACertificate--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@ , desrsResponseStatus ) 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+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 DescribeCACertificate operation. --@@ -50,9 +50,10 @@ -- -- /See:/ 'describeCACertificate' smart constructor. newtype DescribeCACertificate = DescribeCACertificate'- { _dCertificateId :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dCertificateId :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeCACertificate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,10 +63,9 @@ :: Text -- ^ 'dCertificateId' -> DescribeCACertificate describeCACertificate pCertificateId_ =- DescribeCACertificate'- { _dCertificateId = pCertificateId_- }+ DescribeCACertificate' {_dCertificateId = pCertificateId_} + -- | The CA certificate identifier. dCertificateId :: Lens' DescribeCACertificate Text dCertificateId = lens _dCertificateId (\ s a -> s{_dCertificateId = a});@@ -81,9 +81,9 @@ (x .?> "certificateDescription") <*> (pure (fromEnum s))) -instance Hashable DescribeCACertificate+instance Hashable DescribeCACertificate where -instance NFData DescribeCACertificate+instance NFData DescribeCACertificate where instance ToHeaders DescribeCACertificate where toHeaders = const mempty@@ -101,10 +101,11 @@ -- -- /See:/ 'describeCACertificateResponse' smart constructor. data DescribeCACertificateResponse = DescribeCACertificateResponse'- { _desrsCertificateDescription :: !(Maybe CACertificateDescription)- , _desrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _desrsCertificateDescription :: !(Maybe CACertificateDescription)+ , _desrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeCACertificateResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -116,11 +117,12 @@ :: Int -- ^ 'desrsResponseStatus' -> DescribeCACertificateResponse describeCACertificateResponse pResponseStatus_ =- DescribeCACertificateResponse'- { _desrsCertificateDescription = Nothing- , _desrsResponseStatus = pResponseStatus_- }+ DescribeCACertificateResponse'+ { _desrsCertificateDescription = Nothing+ , _desrsResponseStatus = pResponseStatus_+ } + -- | The CA certificate description. desrsCertificateDescription :: Lens' DescribeCACertificateResponse (Maybe CACertificateDescription) desrsCertificateDescription = lens _desrsCertificateDescription (\ s a -> s{_desrsCertificateDescription = a});@@ -129,4 +131,4 @@ desrsResponseStatus :: Lens' DescribeCACertificateResponse Int desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a}); -instance NFData DescribeCACertificateResponse+instance NFData DescribeCACertificateResponse where
gen/Network/AWS/IoT/DescribeCertificate.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.DescribeCertificate--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@ , dcrsResponseStatus ) 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+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 DescribeCertificate operation. --@@ -50,9 +50,10 @@ -- -- /See:/ 'describeCertificate' smart constructor. newtype DescribeCertificate = DescribeCertificate'- { _desCertificateId :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _desCertificateId :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeCertificate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,10 +63,9 @@ :: Text -- ^ 'desCertificateId' -> DescribeCertificate describeCertificate pCertificateId_ =- DescribeCertificate'- { _desCertificateId = pCertificateId_- }+ DescribeCertificate' {_desCertificateId = pCertificateId_} + -- | The ID of the certificate. desCertificateId :: Lens' DescribeCertificate Text desCertificateId = lens _desCertificateId (\ s a -> s{_desCertificateId = a});@@ -81,9 +81,9 @@ (x .?> "certificateDescription") <*> (pure (fromEnum s))) -instance Hashable DescribeCertificate+instance Hashable DescribeCertificate where -instance NFData DescribeCertificate+instance NFData DescribeCertificate where instance ToHeaders DescribeCertificate where toHeaders = const mempty@@ -101,10 +101,11 @@ -- -- /See:/ 'describeCertificateResponse' smart constructor. data DescribeCertificateResponse = DescribeCertificateResponse'- { _dcrsCertificateDescription :: !(Maybe CertificateDescription)- , _dcrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dcrsCertificateDescription :: !(Maybe CertificateDescription)+ , _dcrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeCertificateResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -116,11 +117,12 @@ :: Int -- ^ 'dcrsResponseStatus' -> DescribeCertificateResponse describeCertificateResponse pResponseStatus_ =- DescribeCertificateResponse'- { _dcrsCertificateDescription = Nothing- , _dcrsResponseStatus = pResponseStatus_- }+ DescribeCertificateResponse'+ { _dcrsCertificateDescription = Nothing+ , _dcrsResponseStatus = pResponseStatus_+ } + -- | The description of the certificate. dcrsCertificateDescription :: Lens' DescribeCertificateResponse (Maybe CertificateDescription) dcrsCertificateDescription = lens _dcrsCertificateDescription (\ s a -> s{_dcrsCertificateDescription = a});@@ -129,4 +131,4 @@ dcrsResponseStatus :: Lens' DescribeCertificateResponse Int dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a}); -instance NFData DescribeCertificateResponse+instance NFData DescribeCertificateResponse where
gen/Network/AWS/IoT/DescribeEndpoint.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.DescribeEndpoint--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,12 +35,12 @@ , dersResponseStatus ) 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+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 DescribeEndpoint operation. --@@ -48,15 +48,17 @@ -- -- /See:/ 'describeEndpoint' smart constructor. data DescribeEndpoint =- DescribeEndpoint'- deriving (Eq,Read,Show,Data,Typeable,Generic)+ DescribeEndpoint'+ deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEndpoint' with the minimum fields required to make a request. -- describeEndpoint :: DescribeEndpoint describeEndpoint = DescribeEndpoint' + instance AWSRequest DescribeEndpoint where type Rs DescribeEndpoint = DescribeEndpointResponse request = get ioT@@ -66,9 +68,9 @@ DescribeEndpointResponse' <$> (x .?> "endpointAddress") <*> (pure (fromEnum s))) -instance Hashable DescribeEndpoint+instance Hashable DescribeEndpoint where -instance NFData DescribeEndpoint+instance NFData DescribeEndpoint where instance ToHeaders DescribeEndpoint where toHeaders = const mempty@@ -85,10 +87,11 @@ -- -- /See:/ 'describeEndpointResponse' smart constructor. data DescribeEndpointResponse = DescribeEndpointResponse'- { _dersEndpointAddress :: !(Maybe Text)- , _dersResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dersEndpointAddress :: !(Maybe Text)+ , _dersResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEndpointResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -100,11 +103,10 @@ :: Int -- ^ 'dersResponseStatus' -> DescribeEndpointResponse describeEndpointResponse pResponseStatus_ =- DescribeEndpointResponse'- { _dersEndpointAddress = Nothing- , _dersResponseStatus = pResponseStatus_- }+ DescribeEndpointResponse'+ {_dersEndpointAddress = Nothing, _dersResponseStatus = pResponseStatus_} + -- | 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});@@ -113,4 +115,4 @@ dersResponseStatus :: Lens' DescribeEndpointResponse Int dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a}); -instance NFData DescribeEndpointResponse+instance NFData DescribeEndpointResponse where
gen/Network/AWS/IoT/DescribeThing.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.DescribeThing--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,12 +41,12 @@ , dtrsResponseStatus ) 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+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 DescribeThing operation. --@@ -54,9 +54,10 @@ -- -- /See:/ 'describeThing' smart constructor. newtype DescribeThing = DescribeThing'- { _dThingName :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dThingName :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeThing' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,11 +66,9 @@ describeThing :: Text -- ^ 'dThingName' -> DescribeThing-describeThing pThingName_ =- DescribeThing'- { _dThingName = pThingName_- }+describeThing pThingName_ = DescribeThing' {_dThingName = pThingName_} + -- | The name of the thing. dThingName :: Lens' DescribeThing Text dThingName = lens _dThingName (\ s a -> s{_dThingName = a});@@ -87,9 +86,9 @@ <*> (x .?> "thingName") <*> (pure (fromEnum s))) -instance Hashable DescribeThing+instance Hashable DescribeThing where -instance NFData DescribeThing+instance NFData DescribeThing where instance ToHeaders DescribeThing where toHeaders = const mempty@@ -107,14 +106,15 @@ -- -- /See:/ 'describeThingResponse' smart constructor. data DescribeThingResponse = DescribeThingResponse'- { _dtrsDefaultClientId :: !(Maybe Text)- , _dtrsThingTypeName :: !(Maybe Text)- , _dtrsAttributes :: !(Maybe (Map Text Text))- , _dtrsVersion :: !(Maybe Integer)- , _dtrsThingName :: !(Maybe Text)- , _dtrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dtrsDefaultClientId :: !(Maybe Text)+ , _dtrsThingTypeName :: !(Maybe Text)+ , _dtrsAttributes :: !(Maybe (Map Text Text))+ , _dtrsVersion :: !(Maybe Integer)+ , _dtrsThingName :: !(Maybe Text)+ , _dtrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeThingResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -134,15 +134,16 @@ :: Int -- ^ 'dtrsResponseStatus' -> DescribeThingResponse describeThingResponse pResponseStatus_ =- DescribeThingResponse'- { _dtrsDefaultClientId = Nothing- , _dtrsThingTypeName = Nothing- , _dtrsAttributes = Nothing- , _dtrsVersion = Nothing- , _dtrsThingName = Nothing- , _dtrsResponseStatus = pResponseStatus_- }+ DescribeThingResponse'+ { _dtrsDefaultClientId = Nothing+ , _dtrsThingTypeName = Nothing+ , _dtrsAttributes = Nothing+ , _dtrsVersion = Nothing+ , _dtrsThingName = Nothing+ , _dtrsResponseStatus = pResponseStatus_+ } + -- | The default client ID. dtrsDefaultClientId :: Lens' DescribeThingResponse (Maybe Text) dtrsDefaultClientId = lens _dtrsDefaultClientId (\ s a -> s{_dtrsDefaultClientId = a});@@ -167,4 +168,4 @@ dtrsResponseStatus :: Lens' DescribeThingResponse Int dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a}); -instance NFData DescribeThingResponse+instance NFData DescribeThingResponse where
gen/Network/AWS/IoT/DescribeThingType.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.DescribeThingType--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@ , drsResponseStatus ) 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+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 DescribeThingType operation. --@@ -52,9 +52,10 @@ -- -- /See:/ 'describeThingType' smart constructor. newtype DescribeThingType = DescribeThingType'- { _dThingTypeName :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dThingTypeName :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeThingType' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,10 +65,9 @@ :: Text -- ^ 'dThingTypeName' -> DescribeThingType describeThingType pThingTypeName_ =- DescribeThingType'- { _dThingTypeName = pThingTypeName_- }+ DescribeThingType' {_dThingTypeName = pThingTypeName_} + -- | The name of the thing type. dThingTypeName :: Lens' DescribeThingType Text dThingTypeName = lens _dThingTypeName (\ s a -> s{_dThingTypeName = a});@@ -84,9 +84,9 @@ <*> (x .?> "thingTypeMetadata") <*> (pure (fromEnum s))) -instance Hashable DescribeThingType+instance Hashable DescribeThingType where -instance NFData DescribeThingType+instance NFData DescribeThingType where instance ToHeaders DescribeThingType where toHeaders = const mempty@@ -104,12 +104,13 @@ -- -- /See:/ 'describeThingTypeResponse' smart constructor. data DescribeThingTypeResponse = DescribeThingTypeResponse'- { _drsThingTypeProperties :: !(Maybe ThingTypeProperties)- , _drsThingTypeName :: !(Maybe Text)- , _drsThingTypeMetadata :: !(Maybe ThingTypeMetadata)- , _drsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _drsThingTypeProperties :: !(Maybe ThingTypeProperties)+ , _drsThingTypeName :: !(Maybe Text)+ , _drsThingTypeMetadata :: !(Maybe ThingTypeMetadata)+ , _drsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeThingTypeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -118,20 +119,21 @@ -- -- * 'drsThingTypeName' - The name of the thing type. ----- * 'drsThingTypeMetadata' - Undocumented member.+-- * 'drsThingTypeMetadata' - 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 it was deprecated. -- -- * 'drsResponseStatus' - -- | The response status code. describeThingTypeResponse :: Int -- ^ 'drsResponseStatus' -> DescribeThingTypeResponse describeThingTypeResponse pResponseStatus_ =- DescribeThingTypeResponse'- { _drsThingTypeProperties = Nothing- , _drsThingTypeName = Nothing- , _drsThingTypeMetadata = Nothing- , _drsResponseStatus = pResponseStatus_- }+ DescribeThingTypeResponse'+ { _drsThingTypeProperties = Nothing+ , _drsThingTypeName = Nothing+ , _drsThingTypeMetadata = Nothing+ , _drsResponseStatus = pResponseStatus_+ } + -- | The ThingTypeProperties contains information about the thing type including description, and a list of searchable thing attribute names. drsThingTypeProperties :: Lens' DescribeThingTypeResponse (Maybe ThingTypeProperties) drsThingTypeProperties = lens _drsThingTypeProperties (\ s a -> s{_drsThingTypeProperties = a});@@ -140,7 +142,7 @@ drsThingTypeName :: Lens' DescribeThingTypeResponse (Maybe Text) drsThingTypeName = lens _drsThingTypeName (\ s a -> s{_drsThingTypeName = a}); --- | Undocumented member.+-- | 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 it was deprecated. drsThingTypeMetadata :: Lens' DescribeThingTypeResponse (Maybe ThingTypeMetadata) drsThingTypeMetadata = lens _drsThingTypeMetadata (\ s a -> s{_drsThingTypeMetadata = a}); @@ -148,4 +150,4 @@ drsResponseStatus :: Lens' DescribeThingTypeResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); -instance NFData DescribeThingTypeResponse+instance NFData DescribeThingTypeResponse where
gen/Network/AWS/IoT/DetachPrincipalPolicy.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.DetachPrincipalPolicy--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,12 +35,12 @@ , DetachPrincipalPolicyResponse ) 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+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 DetachPrincipalPolicy operation. --@@ -48,10 +48,11 @@ -- -- /See:/ 'detachPrincipalPolicy' smart constructor. data DetachPrincipalPolicy = DetachPrincipalPolicy'- { _dppPolicyName :: !Text- , _dppPrincipal :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dppPolicyName :: !Text+ , _dppPrincipal :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DetachPrincipalPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,11 +65,10 @@ -> Text -- ^ 'dppPrincipal' -> DetachPrincipalPolicy detachPrincipalPolicy pPolicyName_ pPrincipal_ =- DetachPrincipalPolicy'- { _dppPolicyName = pPolicyName_- , _dppPrincipal = pPrincipal_- }+ DetachPrincipalPolicy'+ {_dppPolicyName = pPolicyName_, _dppPrincipal = pPrincipal_} + -- | The name of the policy to detach. dppPolicyName :: Lens' DetachPrincipalPolicy Text dppPolicyName = lens _dppPolicyName (\ s a -> s{_dppPolicyName = a});@@ -83,9 +83,9 @@ request = delete ioT response = receiveNull DetachPrincipalPolicyResponse' -instance Hashable DetachPrincipalPolicy+instance Hashable DetachPrincipalPolicy where -instance NFData DetachPrincipalPolicy+instance NFData DetachPrincipalPolicy where instance ToHeaders DetachPrincipalPolicy where toHeaders DetachPrincipalPolicy'{..}@@ -101,13 +101,15 @@ -- | /See:/ 'detachPrincipalPolicyResponse' smart constructor. data DetachPrincipalPolicyResponse =- DetachPrincipalPolicyResponse'- deriving (Eq,Read,Show,Data,Typeable,Generic)+ DetachPrincipalPolicyResponse'+ deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DetachPrincipalPolicyResponse' with the minimum fields required to make a request. -- detachPrincipalPolicyResponse :: DetachPrincipalPolicyResponse detachPrincipalPolicyResponse = DetachPrincipalPolicyResponse' -instance NFData DetachPrincipalPolicyResponse++instance NFData DetachPrincipalPolicyResponse where
gen/Network/AWS/IoT/DetachThingPrincipal.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.DetachThingPrincipal--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@ , dtprsResponseStatus ) 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+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 DetachThingPrincipal operation. --@@ -50,10 +50,11 @@ -- -- /See:/ 'detachThingPrincipal' smart constructor. data DetachThingPrincipal = DetachThingPrincipal'- { _dtpThingName :: !Text- , _dtpPrincipal :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dtpThingName :: !Text+ , _dtpPrincipal :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DetachThingPrincipal' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,11 +67,10 @@ -> Text -- ^ 'dtpPrincipal' -> DetachThingPrincipal detachThingPrincipal pThingName_ pPrincipal_ =- DetachThingPrincipal'- { _dtpThingName = pThingName_- , _dtpPrincipal = pPrincipal_- }+ DetachThingPrincipal'+ {_dtpThingName = pThingName_, _dtpPrincipal = pPrincipal_} + -- | The name of the thing. dtpThingName :: Lens' DetachThingPrincipal Text dtpThingName = lens _dtpThingName (\ s a -> s{_dtpThingName = a});@@ -89,9 +89,9 @@ DetachThingPrincipalResponse' <$> (pure (fromEnum s))) -instance Hashable DetachThingPrincipal+instance Hashable DetachThingPrincipal where -instance NFData DetachThingPrincipal+instance NFData DetachThingPrincipal where instance ToHeaders DetachThingPrincipal where toHeaders DetachThingPrincipal'{..}@@ -111,9 +111,10 @@ -- -- /See:/ 'detachThingPrincipalResponse' smart constructor. newtype DetachThingPrincipalResponse = DetachThingPrincipalResponse'- { _dtprsResponseStatus :: Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dtprsResponseStatus :: Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DetachThingPrincipalResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -123,12 +124,11 @@ :: Int -- ^ 'dtprsResponseStatus' -> DetachThingPrincipalResponse detachThingPrincipalResponse pResponseStatus_ =- DetachThingPrincipalResponse'- { _dtprsResponseStatus = pResponseStatus_- }+ DetachThingPrincipalResponse' {_dtprsResponseStatus = pResponseStatus_} + -- | -- | The response status code. dtprsResponseStatus :: Lens' DetachThingPrincipalResponse Int dtprsResponseStatus = lens _dtprsResponseStatus (\ s a -> s{_dtprsResponseStatus = a}); -instance NFData DetachThingPrincipalResponse+instance NFData DetachThingPrincipalResponse where
gen/Network/AWS/IoT/DisableTopicRule.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.DisableTopicRule--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -34,12 +34,12 @@ , DisableTopicRuleResponse ) 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+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 DisableTopicRuleRequest operation. --@@ -47,9 +47,10 @@ -- -- /See:/ 'disableTopicRule' smart constructor. newtype DisableTopicRule = DisableTopicRule'- { _dtrRuleName :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dtrRuleName :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DisableTopicRule' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -58,11 +59,9 @@ disableTopicRule :: Text -- ^ 'dtrRuleName' -> DisableTopicRule-disableTopicRule pRuleName_ =- DisableTopicRule'- { _dtrRuleName = pRuleName_- }+disableTopicRule pRuleName_ = DisableTopicRule' {_dtrRuleName = pRuleName_} + -- | The name of the rule to disable. dtrRuleName :: Lens' DisableTopicRule Text dtrRuleName = lens _dtrRuleName (\ s a -> s{_dtrRuleName = a});@@ -72,9 +71,9 @@ request = postJSON ioT response = receiveNull DisableTopicRuleResponse' -instance Hashable DisableTopicRule+instance Hashable DisableTopicRule where -instance NFData DisableTopicRule+instance NFData DisableTopicRule where instance ToHeaders DisableTopicRule where toHeaders = const mempty@@ -91,13 +90,15 @@ -- | /See:/ 'disableTopicRuleResponse' smart constructor. data DisableTopicRuleResponse =- DisableTopicRuleResponse'- deriving (Eq,Read,Show,Data,Typeable,Generic)+ DisableTopicRuleResponse'+ deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DisableTopicRuleResponse' with the minimum fields required to make a request. -- disableTopicRuleResponse :: DisableTopicRuleResponse disableTopicRuleResponse = DisableTopicRuleResponse' -instance NFData DisableTopicRuleResponse++instance NFData DisableTopicRuleResponse where
gen/Network/AWS/IoT/EnableTopicRule.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.EnableTopicRule--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -34,12 +34,12 @@ , EnableTopicRuleResponse ) 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+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 EnableTopicRuleRequest operation. --@@ -47,9 +47,10 @@ -- -- /See:/ 'enableTopicRule' smart constructor. newtype EnableTopicRule = EnableTopicRule'- { _etrRuleName :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _etrRuleName :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'EnableTopicRule' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -58,11 +59,9 @@ enableTopicRule :: Text -- ^ 'etrRuleName' -> EnableTopicRule-enableTopicRule pRuleName_ =- EnableTopicRule'- { _etrRuleName = pRuleName_- }+enableTopicRule pRuleName_ = EnableTopicRule' {_etrRuleName = pRuleName_} + -- | The name of the topic rule to enable. etrRuleName :: Lens' EnableTopicRule Text etrRuleName = lens _etrRuleName (\ s a -> s{_etrRuleName = a});@@ -72,9 +71,9 @@ request = postJSON ioT response = receiveNull EnableTopicRuleResponse' -instance Hashable EnableTopicRule+instance Hashable EnableTopicRule where -instance NFData EnableTopicRule+instance NFData EnableTopicRule where instance ToHeaders EnableTopicRule where toHeaders = const mempty@@ -91,13 +90,15 @@ -- | /See:/ 'enableTopicRuleResponse' smart constructor. data EnableTopicRuleResponse =- EnableTopicRuleResponse'- deriving (Eq,Read,Show,Data,Typeable,Generic)+ EnableTopicRuleResponse'+ deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'EnableTopicRuleResponse' with the minimum fields required to make a request. -- enableTopicRuleResponse :: EnableTopicRuleResponse enableTopicRuleResponse = EnableTopicRuleResponse' -instance NFData EnableTopicRuleResponse++instance NFData EnableTopicRuleResponse where
gen/Network/AWS/IoT/GetLoggingOptions.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.GetLoggingOptions--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,12 +36,12 @@ , glorsResponseStatus ) 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+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 GetLoggingOptions operation. --@@ -49,15 +49,17 @@ -- -- /See:/ 'getLoggingOptions' smart constructor. data GetLoggingOptions =- GetLoggingOptions'- deriving (Eq,Read,Show,Data,Typeable,Generic)+ GetLoggingOptions'+ deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetLoggingOptions' with the minimum fields required to make a request. -- getLoggingOptions :: GetLoggingOptions getLoggingOptions = GetLoggingOptions' + instance AWSRequest GetLoggingOptions where type Rs GetLoggingOptions = GetLoggingOptionsResponse request = get ioT@@ -68,9 +70,9 @@ (x .?> "logLevel") <*> (x .?> "roleArn") <*> (pure (fromEnum s))) -instance Hashable GetLoggingOptions+instance Hashable GetLoggingOptions where -instance NFData GetLoggingOptions+instance NFData GetLoggingOptions where instance ToHeaders GetLoggingOptions where toHeaders = const mempty@@ -87,11 +89,12 @@ -- -- /See:/ 'getLoggingOptionsResponse' smart constructor. data GetLoggingOptionsResponse = GetLoggingOptionsResponse'- { _glorsLogLevel :: !(Maybe LogLevel)- , _glorsRoleARN :: !(Maybe Text)- , _glorsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _glorsLogLevel :: !(Maybe LogLevel)+ , _glorsRoleARN :: !(Maybe Text)+ , _glorsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetLoggingOptionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -105,12 +108,13 @@ :: Int -- ^ 'glorsResponseStatus' -> GetLoggingOptionsResponse getLoggingOptionsResponse pResponseStatus_ =- GetLoggingOptionsResponse'- { _glorsLogLevel = Nothing- , _glorsRoleARN = Nothing- , _glorsResponseStatus = pResponseStatus_- }+ GetLoggingOptionsResponse'+ { _glorsLogLevel = Nothing+ , _glorsRoleARN = Nothing+ , _glorsResponseStatus = pResponseStatus_+ } + -- | The logging level. glorsLogLevel :: Lens' GetLoggingOptionsResponse (Maybe LogLevel) glorsLogLevel = lens _glorsLogLevel (\ s a -> s{_glorsLogLevel = a});@@ -123,4 +127,4 @@ glorsResponseStatus :: Lens' GetLoggingOptionsResponse Int glorsResponseStatus = lens _glorsResponseStatus (\ s a -> s{_glorsResponseStatus = a}); -instance NFData GetLoggingOptionsResponse+instance NFData GetLoggingOptionsResponse where
gen/Network/AWS/IoT/GetPolicy.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.GetPolicy--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,12 +40,12 @@ , gprsResponseStatus ) 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+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 GetPolicy operation. --@@ -53,9 +53,10 @@ -- -- /See:/ 'getPolicy' smart constructor. newtype GetPolicy = GetPolicy'- { _gpPolicyName :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _gpPolicyName :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,11 +65,9 @@ getPolicy :: Text -- ^ 'gpPolicyName' -> GetPolicy-getPolicy pPolicyName_ =- GetPolicy'- { _gpPolicyName = pPolicyName_- }+getPolicy pPolicyName_ = GetPolicy' {_gpPolicyName = pPolicyName_} + -- | The name of the policy. gpPolicyName :: Lens' GetPolicy Text gpPolicyName = lens _gpPolicyName (\ s a -> s{_gpPolicyName = a});@@ -85,9 +84,9 @@ <*> (x .?> "policyArn") <*> (pure (fromEnum s))) -instance Hashable GetPolicy+instance Hashable GetPolicy where -instance NFData GetPolicy+instance NFData GetPolicy where instance ToHeaders GetPolicy where toHeaders = const mempty@@ -105,13 +104,14 @@ -- -- /See:/ 'getPolicyResponse' smart constructor. data GetPolicyResponse = GetPolicyResponse'- { _gprsPolicyName :: !(Maybe Text)- , _gprsPolicyDocument :: !(Maybe Text)- , _gprsDefaultVersionId :: !(Maybe Text)- , _gprsPolicyARN :: !(Maybe Text)- , _gprsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _gprsPolicyName :: !(Maybe Text)+ , _gprsPolicyDocument :: !(Maybe Text)+ , _gprsDefaultVersionId :: !(Maybe Text)+ , _gprsPolicyARN :: !(Maybe Text)+ , _gprsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetPolicyResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -129,14 +129,15 @@ :: Int -- ^ 'gprsResponseStatus' -> GetPolicyResponse getPolicyResponse pResponseStatus_ =- GetPolicyResponse'- { _gprsPolicyName = Nothing- , _gprsPolicyDocument = Nothing- , _gprsDefaultVersionId = Nothing- , _gprsPolicyARN = Nothing- , _gprsResponseStatus = pResponseStatus_- }+ GetPolicyResponse'+ { _gprsPolicyName = Nothing+ , _gprsPolicyDocument = Nothing+ , _gprsDefaultVersionId = Nothing+ , _gprsPolicyARN = Nothing+ , _gprsResponseStatus = pResponseStatus_+ } + -- | The policy name. gprsPolicyName :: Lens' GetPolicyResponse (Maybe Text) gprsPolicyName = lens _gprsPolicyName (\ s a -> s{_gprsPolicyName = a});@@ -157,4 +158,4 @@ gprsResponseStatus :: Lens' GetPolicyResponse Int gprsResponseStatus = lens _gprsResponseStatus (\ s a -> s{_gprsResponseStatus = a}); -instance NFData GetPolicyResponse+instance NFData GetPolicyResponse where
gen/Network/AWS/IoT/GetPolicyVersion.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.GetPolicyVersion--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -42,12 +42,12 @@ , gpvrsResponseStatus ) 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+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 GetPolicyVersion operation. --@@ -55,10 +55,11 @@ -- -- /See:/ 'getPolicyVersion' smart constructor. data GetPolicyVersion = GetPolicyVersion'- { _gpvPolicyName :: !Text- , _gpvPolicyVersionId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _gpvPolicyName :: !Text+ , _gpvPolicyVersionId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetPolicyVersion' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,11 +72,10 @@ -> Text -- ^ 'gpvPolicyVersionId' -> GetPolicyVersion getPolicyVersion pPolicyName_ pPolicyVersionId_ =- GetPolicyVersion'- { _gpvPolicyName = pPolicyName_- , _gpvPolicyVersionId = pPolicyVersionId_- }+ GetPolicyVersion'+ {_gpvPolicyName = pPolicyName_, _gpvPolicyVersionId = pPolicyVersionId_} + -- | The name of the policy. gpvPolicyName :: Lens' GetPolicyVersion Text gpvPolicyName = lens _gpvPolicyName (\ s a -> s{_gpvPolicyName = a});@@ -97,9 +97,9 @@ <*> (x .?> "isDefaultVersion") <*> (pure (fromEnum s))) -instance Hashable GetPolicyVersion+instance Hashable GetPolicyVersion where -instance NFData GetPolicyVersion+instance NFData GetPolicyVersion where instance ToHeaders GetPolicyVersion where toHeaders = const mempty@@ -119,14 +119,15 @@ -- -- /See:/ 'getPolicyVersionResponse' smart constructor. data GetPolicyVersionResponse = GetPolicyVersionResponse'- { _gpvrsPolicyName :: !(Maybe Text)- , _gpvrsPolicyDocument :: !(Maybe Text)- , _gpvrsPolicyVersionId :: !(Maybe Text)- , _gpvrsPolicyARN :: !(Maybe Text)- , _gpvrsIsDefaultVersion :: !(Maybe Bool)- , _gpvrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _gpvrsPolicyName :: !(Maybe Text)+ , _gpvrsPolicyDocument :: !(Maybe Text)+ , _gpvrsPolicyVersionId :: !(Maybe Text)+ , _gpvrsPolicyARN :: !(Maybe Text)+ , _gpvrsIsDefaultVersion :: !(Maybe Bool)+ , _gpvrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetPolicyVersionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -146,15 +147,16 @@ :: Int -- ^ 'gpvrsResponseStatus' -> GetPolicyVersionResponse getPolicyVersionResponse pResponseStatus_ =- GetPolicyVersionResponse'- { _gpvrsPolicyName = Nothing- , _gpvrsPolicyDocument = Nothing- , _gpvrsPolicyVersionId = Nothing- , _gpvrsPolicyARN = Nothing- , _gpvrsIsDefaultVersion = Nothing- , _gpvrsResponseStatus = pResponseStatus_- }+ GetPolicyVersionResponse'+ { _gpvrsPolicyName = Nothing+ , _gpvrsPolicyDocument = Nothing+ , _gpvrsPolicyVersionId = Nothing+ , _gpvrsPolicyARN = Nothing+ , _gpvrsIsDefaultVersion = Nothing+ , _gpvrsResponseStatus = pResponseStatus_+ } + -- | The policy name. gpvrsPolicyName :: Lens' GetPolicyVersionResponse (Maybe Text) gpvrsPolicyName = lens _gpvrsPolicyName (\ s a -> s{_gpvrsPolicyName = a});@@ -179,4 +181,4 @@ gpvrsResponseStatus :: Lens' GetPolicyVersionResponse Int gpvrsResponseStatus = lens _gpvrsResponseStatus (\ s a -> s{_gpvrsResponseStatus = a}); -instance NFData GetPolicyVersionResponse+instance NFData GetPolicyVersionResponse where
gen/Network/AWS/IoT/GetRegistrationCode.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.GetRegistrationCode--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,12 +35,12 @@ , grcrsResponseStatus ) 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+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 to the GetRegistrationCode operation. --@@ -48,15 +48,17 @@ -- -- /See:/ 'getRegistrationCode' smart constructor. data GetRegistrationCode =- GetRegistrationCode'- deriving (Eq,Read,Show,Data,Typeable,Generic)+ GetRegistrationCode'+ deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetRegistrationCode' with the minimum fields required to make a request. -- getRegistrationCode :: GetRegistrationCode getRegistrationCode = GetRegistrationCode' + instance AWSRequest GetRegistrationCode where type Rs GetRegistrationCode = GetRegistrationCodeResponse@@ -67,9 +69,9 @@ GetRegistrationCodeResponse' <$> (x .?> "registrationCode") <*> (pure (fromEnum s))) -instance Hashable GetRegistrationCode+instance Hashable GetRegistrationCode where -instance NFData GetRegistrationCode+instance NFData GetRegistrationCode where instance ToHeaders GetRegistrationCode where toHeaders = const mempty@@ -86,10 +88,11 @@ -- -- /See:/ 'getRegistrationCodeResponse' smart constructor. data GetRegistrationCodeResponse = GetRegistrationCodeResponse'- { _grcrsRegistrationCode :: !(Maybe Text)- , _grcrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _grcrsRegistrationCode :: !(Maybe Text)+ , _grcrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetRegistrationCodeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -101,11 +104,10 @@ :: Int -- ^ 'grcrsResponseStatus' -> GetRegistrationCodeResponse getRegistrationCodeResponse pResponseStatus_ =- GetRegistrationCodeResponse'- { _grcrsRegistrationCode = Nothing- , _grcrsResponseStatus = pResponseStatus_- }+ GetRegistrationCodeResponse'+ {_grcrsRegistrationCode = Nothing, _grcrsResponseStatus = pResponseStatus_} + -- | The CA certificate registration code. grcrsRegistrationCode :: Lens' GetRegistrationCodeResponse (Maybe Text) grcrsRegistrationCode = lens _grcrsRegistrationCode (\ s a -> s{_grcrsRegistrationCode = a});@@ -114,4 +116,4 @@ grcrsResponseStatus :: Lens' GetRegistrationCodeResponse Int grcrsResponseStatus = lens _grcrsResponseStatus (\ s a -> s{_grcrsResponseStatus = a}); -instance NFData GetRegistrationCodeResponse+instance NFData GetRegistrationCodeResponse where
gen/Network/AWS/IoT/GetTopicRule.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.GetTopicRule--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,12 +38,12 @@ , gtrrsResponseStatus ) 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+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 GetTopicRule operation. --@@ -51,9 +51,10 @@ -- -- /See:/ 'getTopicRule' smart constructor. newtype GetTopicRule = GetTopicRule'- { _gtrRuleName :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _gtrRuleName :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetTopicRule' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,11 +63,9 @@ getTopicRule :: Text -- ^ 'gtrRuleName' -> GetTopicRule-getTopicRule pRuleName_ =- GetTopicRule'- { _gtrRuleName = pRuleName_- }+getTopicRule pRuleName_ = GetTopicRule' {_gtrRuleName = pRuleName_} + -- | The name of the rule. gtrRuleName :: Lens' GetTopicRule Text gtrRuleName = lens _gtrRuleName (\ s a -> s{_gtrRuleName = a});@@ -81,9 +80,9 @@ (x .?> "rule") <*> (x .?> "ruleArn") <*> (pure (fromEnum s))) -instance Hashable GetTopicRule+instance Hashable GetTopicRule where -instance NFData GetTopicRule+instance NFData GetTopicRule where instance ToHeaders GetTopicRule where toHeaders = const mempty@@ -101,11 +100,12 @@ -- -- /See:/ 'getTopicRuleResponse' smart constructor. data GetTopicRuleResponse = GetTopicRuleResponse'- { _gtrrsRule :: !(Maybe TopicRule)- , _gtrrsRuleARN :: !(Maybe Text)- , _gtrrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _gtrrsRule :: !(Maybe TopicRule)+ , _gtrrsRuleARN :: !(Maybe Text)+ , _gtrrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetTopicRuleResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -119,12 +119,13 @@ :: Int -- ^ 'gtrrsResponseStatus' -> GetTopicRuleResponse getTopicRuleResponse pResponseStatus_ =- GetTopicRuleResponse'- { _gtrrsRule = Nothing- , _gtrrsRuleARN = Nothing- , _gtrrsResponseStatus = pResponseStatus_- }+ GetTopicRuleResponse'+ { _gtrrsRule = Nothing+ , _gtrrsRuleARN = Nothing+ , _gtrrsResponseStatus = pResponseStatus_+ } + -- | The rule. gtrrsRule :: Lens' GetTopicRuleResponse (Maybe TopicRule) gtrrsRule = lens _gtrrsRule (\ s a -> s{_gtrrsRule = a});@@ -137,4 +138,4 @@ gtrrsResponseStatus :: Lens' GetTopicRuleResponse Int gtrrsResponseStatus = lens _gtrrsResponseStatus (\ s a -> s{_gtrrsResponseStatus = a}); -instance NFData GetTopicRuleResponse+instance NFData GetTopicRuleResponse where
gen/Network/AWS/IoT/ListCACertificates.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.ListCACertificates--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,6 +23,8 @@ -- -- The results are paginated with a default page size of 25. You can use the returned marker to retrieve additional results. --+--+-- This operation returns paginated results. module Network.AWS.IoT.ListCACertificates ( -- * Creating a Request@@ -42,12 +44,13 @@ , lcacrsResponseStatus ) 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+import Network.AWS.IoT.Types+import Network.AWS.IoT.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Input for the ListCACertificates operation. --@@ -55,11 +58,12 @@ -- -- /See:/ 'listCACertificates' smart constructor. data ListCACertificates = ListCACertificates'- { _lcacMarker :: !(Maybe Text)- , _lcacAscendingOrder :: !(Maybe Bool)- , _lcacPageSize :: !(Maybe Nat)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lcacMarker :: !(Maybe Text)+ , _lcacAscendingOrder :: !(Maybe Bool)+ , _lcacPageSize :: !(Maybe Nat)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListCACertificates' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,12 +76,13 @@ listCACertificates :: ListCACertificates listCACertificates =- ListCACertificates'- { _lcacMarker = Nothing- , _lcacAscendingOrder = Nothing- , _lcacPageSize = Nothing- }+ ListCACertificates'+ { _lcacMarker = Nothing+ , _lcacAscendingOrder = Nothing+ , _lcacPageSize = Nothing+ } + -- | The marker for the next set of results. lcacMarker :: Lens' ListCACertificates (Maybe Text) lcacMarker = lens _lcacMarker (\ s a -> s{_lcacMarker = a});@@ -90,6 +95,13 @@ lcacPageSize :: Lens' ListCACertificates (Maybe Natural) lcacPageSize = lens _lcacPageSize (\ s a -> s{_lcacPageSize = a}) . mapping _Nat; +instance AWSPager ListCACertificates where+ page rq rs+ | stop (rs ^. lcacrsNextMarker) = Nothing+ | stop (rs ^. lcacrsCertificates) = Nothing+ | otherwise =+ Just $ rq & lcacMarker .~ rs ^. lcacrsNextMarker+ instance AWSRequest ListCACertificates where type Rs ListCACertificates = ListCACertificatesResponse@@ -102,9 +114,9 @@ (x .?> "nextMarker") <*> (pure (fromEnum s))) -instance Hashable ListCACertificates+instance Hashable ListCACertificates where -instance NFData ListCACertificates+instance NFData ListCACertificates where instance ToHeaders ListCACertificates where toHeaders = const mempty@@ -125,11 +137,12 @@ -- -- /See:/ 'listCACertificatesResponse' smart constructor. data ListCACertificatesResponse = ListCACertificatesResponse'- { _lcacrsCertificates :: !(Maybe [CACertificate])- , _lcacrsNextMarker :: !(Maybe Text)- , _lcacrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lcacrsCertificates :: !(Maybe [CACertificate])+ , _lcacrsNextMarker :: !(Maybe Text)+ , _lcacrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListCACertificatesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -143,12 +156,13 @@ :: Int -- ^ 'lcacrsResponseStatus' -> ListCACertificatesResponse listCACertificatesResponse pResponseStatus_ =- ListCACertificatesResponse'- { _lcacrsCertificates = Nothing- , _lcacrsNextMarker = Nothing- , _lcacrsResponseStatus = pResponseStatus_- }+ ListCACertificatesResponse'+ { _lcacrsCertificates = Nothing+ , _lcacrsNextMarker = Nothing+ , _lcacrsResponseStatus = pResponseStatus_+ } + -- | The CA certificates registered in your AWS account. lcacrsCertificates :: Lens' ListCACertificatesResponse [CACertificate] lcacrsCertificates = lens _lcacrsCertificates (\ s a -> s{_lcacrsCertificates = a}) . _Default . _Coerce;@@ -161,4 +175,4 @@ lcacrsResponseStatus :: Lens' ListCACertificatesResponse Int lcacrsResponseStatus = lens _lcacrsResponseStatus (\ s a -> s{_lcacrsResponseStatus = a}); -instance NFData ListCACertificatesResponse+instance NFData ListCACertificatesResponse where
gen/Network/AWS/IoT/ListCertificates.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.ListCertificates--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,6 +23,8 @@ -- -- The results are paginated with a default page size of 25. You can use the returned marker to retrieve additional results. --+--+-- This operation returns paginated results. module Network.AWS.IoT.ListCertificates ( -- * Creating a Request@@ -42,12 +44,13 @@ , lcrsResponseStatus ) 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+import Network.AWS.IoT.Types+import Network.AWS.IoT.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | The input for the ListCertificates operation. --@@ -55,11 +58,12 @@ -- -- /See:/ 'listCertificates' smart constructor. data ListCertificates = ListCertificates'- { _lcMarker :: !(Maybe Text)- , _lcAscendingOrder :: !(Maybe Bool)- , _lcPageSize :: !(Maybe Nat)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lcMarker :: !(Maybe Text)+ , _lcAscendingOrder :: !(Maybe Bool)+ , _lcPageSize :: !(Maybe Nat)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListCertificates' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,12 +76,10 @@ listCertificates :: ListCertificates listCertificates =- ListCertificates'- { _lcMarker = Nothing- , _lcAscendingOrder = Nothing- , _lcPageSize = Nothing- }+ ListCertificates'+ {_lcMarker = Nothing, _lcAscendingOrder = Nothing, _lcPageSize = Nothing} + -- | The marker for the next set of results. lcMarker :: Lens' ListCertificates (Maybe Text) lcMarker = lens _lcMarker (\ s a -> s{_lcMarker = a});@@ -90,6 +92,13 @@ lcPageSize :: Lens' ListCertificates (Maybe Natural) lcPageSize = lens _lcPageSize (\ s a -> s{_lcPageSize = a}) . mapping _Nat; +instance AWSPager ListCertificates where+ page rq rs+ | stop (rs ^. lcrsNextMarker) = Nothing+ | stop (rs ^. lcrsCertificates) = Nothing+ | otherwise =+ Just $ rq & lcMarker .~ rs ^. lcrsNextMarker+ instance AWSRequest ListCertificates where type Rs ListCertificates = ListCertificatesResponse request = get ioT@@ -101,9 +110,9 @@ (x .?> "nextMarker") <*> (pure (fromEnum s))) -instance Hashable ListCertificates+instance Hashable ListCertificates where -instance NFData ListCertificates+instance NFData ListCertificates where instance ToHeaders ListCertificates where toHeaders = const mempty@@ -124,11 +133,12 @@ -- -- /See:/ 'listCertificatesResponse' smart constructor. data ListCertificatesResponse = ListCertificatesResponse'- { _lcrsCertificates :: !(Maybe [Certificate])- , _lcrsNextMarker :: !(Maybe Text)- , _lcrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lcrsCertificates :: !(Maybe [Certificate])+ , _lcrsNextMarker :: !(Maybe Text)+ , _lcrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListCertificatesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -142,12 +152,13 @@ :: Int -- ^ 'lcrsResponseStatus' -> ListCertificatesResponse listCertificatesResponse pResponseStatus_ =- ListCertificatesResponse'- { _lcrsCertificates = Nothing- , _lcrsNextMarker = Nothing- , _lcrsResponseStatus = pResponseStatus_- }+ ListCertificatesResponse'+ { _lcrsCertificates = Nothing+ , _lcrsNextMarker = Nothing+ , _lcrsResponseStatus = pResponseStatus_+ } + -- | The descriptions of the certificates. lcrsCertificates :: Lens' ListCertificatesResponse [Certificate] lcrsCertificates = lens _lcrsCertificates (\ s a -> s{_lcrsCertificates = a}) . _Default . _Coerce;@@ -160,4 +171,4 @@ lcrsResponseStatus :: Lens' ListCertificatesResponse Int lcrsResponseStatus = lens _lcrsResponseStatus (\ s a -> s{_lcrsResponseStatus = a}); -instance NFData ListCertificatesResponse+instance NFData ListCertificatesResponse where
gen/Network/AWS/IoT/ListCertificatesByCA.hs view
@@ -12,15 +12,17 @@ -- | -- Module : Network.AWS.IoT.ListCertificatesByCA--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- List the device certificates signed by the specified CA certificate. -- --+--+-- This operation returns paginated results. module Network.AWS.IoT.ListCertificatesByCA ( -- * Creating a Request@@ -41,12 +43,13 @@ , lcbcarsResponseStatus ) 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+import Network.AWS.IoT.Types+import Network.AWS.IoT.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | The input to the ListCertificatesByCA operation. --@@ -54,12 +57,13 @@ -- -- /See:/ 'listCertificatesByCA' smart constructor. data ListCertificatesByCA = ListCertificatesByCA'- { _lcbcaMarker :: !(Maybe Text)- , _lcbcaAscendingOrder :: !(Maybe Bool)- , _lcbcaPageSize :: !(Maybe Nat)- , _lcbcaCaCertificateId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lcbcaMarker :: !(Maybe Text)+ , _lcbcaAscendingOrder :: !(Maybe Bool)+ , _lcbcaPageSize :: !(Maybe Nat)+ , _lcbcaCaCertificateId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListCertificatesByCA' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,13 +79,14 @@ :: Text -- ^ 'lcbcaCaCertificateId' -> ListCertificatesByCA listCertificatesByCA pCaCertificateId_ =- ListCertificatesByCA'- { _lcbcaMarker = Nothing- , _lcbcaAscendingOrder = Nothing- , _lcbcaPageSize = Nothing- , _lcbcaCaCertificateId = pCaCertificateId_- }+ ListCertificatesByCA'+ { _lcbcaMarker = Nothing+ , _lcbcaAscendingOrder = Nothing+ , _lcbcaPageSize = Nothing+ , _lcbcaCaCertificateId = pCaCertificateId_+ } + -- | The marker for the next set of results. lcbcaMarker :: Lens' ListCertificatesByCA (Maybe Text) lcbcaMarker = lens _lcbcaMarker (\ s a -> s{_lcbcaMarker = a});@@ -98,6 +103,13 @@ lcbcaCaCertificateId :: Lens' ListCertificatesByCA Text lcbcaCaCertificateId = lens _lcbcaCaCertificateId (\ s a -> s{_lcbcaCaCertificateId = a}); +instance AWSPager ListCertificatesByCA where+ page rq rs+ | stop (rs ^. lcbcarsNextMarker) = Nothing+ | stop (rs ^. lcbcarsCertificates) = Nothing+ | otherwise =+ Just $ rq & lcbcaMarker .~ rs ^. lcbcarsNextMarker+ instance AWSRequest ListCertificatesByCA where type Rs ListCertificatesByCA = ListCertificatesByCAResponse@@ -110,9 +122,9 @@ (x .?> "nextMarker") <*> (pure (fromEnum s))) -instance Hashable ListCertificatesByCA+instance Hashable ListCertificatesByCA where -instance NFData ListCertificatesByCA+instance NFData ListCertificatesByCA where instance ToHeaders ListCertificatesByCA where toHeaders = const mempty@@ -135,11 +147,12 @@ -- -- /See:/ 'listCertificatesByCAResponse' smart constructor. data ListCertificatesByCAResponse = ListCertificatesByCAResponse'- { _lcbcarsCertificates :: !(Maybe [Certificate])- , _lcbcarsNextMarker :: !(Maybe Text)- , _lcbcarsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lcbcarsCertificates :: !(Maybe [Certificate])+ , _lcbcarsNextMarker :: !(Maybe Text)+ , _lcbcarsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListCertificatesByCAResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -153,12 +166,13 @@ :: Int -- ^ 'lcbcarsResponseStatus' -> ListCertificatesByCAResponse listCertificatesByCAResponse pResponseStatus_ =- ListCertificatesByCAResponse'- { _lcbcarsCertificates = Nothing- , _lcbcarsNextMarker = Nothing- , _lcbcarsResponseStatus = pResponseStatus_- }+ ListCertificatesByCAResponse'+ { _lcbcarsCertificates = Nothing+ , _lcbcarsNextMarker = Nothing+ , _lcbcarsResponseStatus = pResponseStatus_+ } + -- | The device certificates signed by the specified CA certificate. lcbcarsCertificates :: Lens' ListCertificatesByCAResponse [Certificate] lcbcarsCertificates = lens _lcbcarsCertificates (\ s a -> s{_lcbcarsCertificates = a}) . _Default . _Coerce;@@ -171,4 +185,4 @@ lcbcarsResponseStatus :: Lens' ListCertificatesByCAResponse Int lcbcarsResponseStatus = lens _lcbcarsResponseStatus (\ s a -> s{_lcbcarsResponseStatus = a}); -instance NFData ListCertificatesByCAResponse+instance NFData ListCertificatesByCAResponse where
gen/Network/AWS/IoT/ListOutgoingCertificates.hs view
@@ -12,15 +12,17 @@ -- | -- Module : Network.AWS.IoT.ListOutgoingCertificates--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Lists certificates that are being transfered but not yet accepted. -- --+--+-- This operation returns paginated results. module Network.AWS.IoT.ListOutgoingCertificates ( -- * Creating a Request@@ -40,12 +42,13 @@ , locrsResponseStatus ) 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+import Network.AWS.IoT.Types+import Network.AWS.IoT.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | The input to the ListOutgoingCertificates operation. --@@ -53,11 +56,12 @@ -- -- /See:/ 'listOutgoingCertificates' smart constructor. data ListOutgoingCertificates = ListOutgoingCertificates'- { _locMarker :: !(Maybe Text)- , _locAscendingOrder :: !(Maybe Bool)- , _locPageSize :: !(Maybe Nat)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _locMarker :: !(Maybe Text)+ , _locAscendingOrder :: !(Maybe Bool)+ , _locPageSize :: !(Maybe Nat)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListOutgoingCertificates' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,12 +74,10 @@ listOutgoingCertificates :: ListOutgoingCertificates listOutgoingCertificates =- ListOutgoingCertificates'- { _locMarker = Nothing- , _locAscendingOrder = Nothing- , _locPageSize = Nothing- }+ ListOutgoingCertificates'+ {_locMarker = Nothing, _locAscendingOrder = Nothing, _locPageSize = Nothing} + -- | The marker for the next set of results. locMarker :: Lens' ListOutgoingCertificates (Maybe Text) locMarker = lens _locMarker (\ s a -> s{_locMarker = a});@@ -88,6 +90,13 @@ locPageSize :: Lens' ListOutgoingCertificates (Maybe Natural) locPageSize = lens _locPageSize (\ s a -> s{_locPageSize = a}) . mapping _Nat; +instance AWSPager ListOutgoingCertificates where+ page rq rs+ | stop (rs ^. locrsNextMarker) = Nothing+ | stop (rs ^. locrsOutgoingCertificates) = Nothing+ | otherwise =+ Just $ rq & locMarker .~ rs ^. locrsNextMarker+ instance AWSRequest ListOutgoingCertificates where type Rs ListOutgoingCertificates = ListOutgoingCertificatesResponse@@ -100,9 +109,9 @@ (x .?> "outgoingCertificates" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable ListOutgoingCertificates+instance Hashable ListOutgoingCertificates where -instance NFData ListOutgoingCertificates+instance NFData ListOutgoingCertificates where instance ToHeaders ListOutgoingCertificates where toHeaders = const mempty@@ -123,11 +132,12 @@ -- -- /See:/ 'listOutgoingCertificatesResponse' smart constructor. data ListOutgoingCertificatesResponse = ListOutgoingCertificatesResponse'- { _locrsNextMarker :: !(Maybe Text)- , _locrsOutgoingCertificates :: !(Maybe [OutgoingCertificate])- , _locrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _locrsNextMarker :: !(Maybe Text)+ , _locrsOutgoingCertificates :: !(Maybe [OutgoingCertificate])+ , _locrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListOutgoingCertificatesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -141,12 +151,13 @@ :: Int -- ^ 'locrsResponseStatus' -> ListOutgoingCertificatesResponse listOutgoingCertificatesResponse pResponseStatus_ =- ListOutgoingCertificatesResponse'- { _locrsNextMarker = Nothing- , _locrsOutgoingCertificates = Nothing- , _locrsResponseStatus = pResponseStatus_- }+ ListOutgoingCertificatesResponse'+ { _locrsNextMarker = Nothing+ , _locrsOutgoingCertificates = Nothing+ , _locrsResponseStatus = pResponseStatus_+ } + -- | The marker for the next set of results. locrsNextMarker :: Lens' ListOutgoingCertificatesResponse (Maybe Text) locrsNextMarker = lens _locrsNextMarker (\ s a -> s{_locrsNextMarker = a});@@ -160,3 +171,4 @@ locrsResponseStatus = lens _locrsResponseStatus (\ s a -> s{_locrsResponseStatus = a}); instance NFData ListOutgoingCertificatesResponse+ where
gen/Network/AWS/IoT/ListPolicies.hs view
@@ -12,15 +12,17 @@ -- | -- Module : Network.AWS.IoT.ListPolicies--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Lists your policies. -- --+--+-- This operation returns paginated results. module Network.AWS.IoT.ListPolicies ( -- * Creating a Request@@ -40,12 +42,13 @@ , lprsResponseStatus ) 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+import Network.AWS.IoT.Types+import Network.AWS.IoT.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | The input for the ListPolicies operation. --@@ -53,11 +56,12 @@ -- -- /See:/ 'listPolicies' smart constructor. data ListPolicies = ListPolicies'- { _lpMarker :: !(Maybe Text)- , _lpAscendingOrder :: !(Maybe Bool)- , _lpPageSize :: !(Maybe Nat)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lpMarker :: !(Maybe Text)+ , _lpAscendingOrder :: !(Maybe Bool)+ , _lpPageSize :: !(Maybe Nat)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListPolicies' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,12 +74,10 @@ listPolicies :: ListPolicies listPolicies =- ListPolicies'- { _lpMarker = Nothing- , _lpAscendingOrder = Nothing- , _lpPageSize = Nothing- }+ ListPolicies'+ {_lpMarker = Nothing, _lpAscendingOrder = Nothing, _lpPageSize = Nothing} + -- | The marker for the next set of results. lpMarker :: Lens' ListPolicies (Maybe Text) lpMarker = lens _lpMarker (\ s a -> s{_lpMarker = a});@@ -88,6 +90,13 @@ lpPageSize :: Lens' ListPolicies (Maybe Natural) lpPageSize = lens _lpPageSize (\ s a -> s{_lpPageSize = a}) . mapping _Nat; +instance AWSPager ListPolicies where+ page rq rs+ | stop (rs ^. lprsNextMarker) = Nothing+ | stop (rs ^. lprsPolicies) = Nothing+ | otherwise =+ Just $ rq & lpMarker .~ rs ^. lprsNextMarker+ instance AWSRequest ListPolicies where type Rs ListPolicies = ListPoliciesResponse request = get ioT@@ -99,9 +108,9 @@ (x .?> "policies" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable ListPolicies+instance Hashable ListPolicies where -instance NFData ListPolicies+instance NFData ListPolicies where instance ToHeaders ListPolicies where toHeaders = const mempty@@ -122,11 +131,12 @@ -- -- /See:/ 'listPoliciesResponse' smart constructor. data ListPoliciesResponse = ListPoliciesResponse'- { _lprsNextMarker :: !(Maybe Text)- , _lprsPolicies :: !(Maybe [Policy])- , _lprsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lprsNextMarker :: !(Maybe Text)+ , _lprsPolicies :: !(Maybe [Policy])+ , _lprsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListPoliciesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -140,12 +150,13 @@ :: Int -- ^ 'lprsResponseStatus' -> ListPoliciesResponse listPoliciesResponse pResponseStatus_ =- ListPoliciesResponse'- { _lprsNextMarker = Nothing- , _lprsPolicies = Nothing- , _lprsResponseStatus = pResponseStatus_- }+ ListPoliciesResponse'+ { _lprsNextMarker = Nothing+ , _lprsPolicies = Nothing+ , _lprsResponseStatus = pResponseStatus_+ } + -- | The marker for the next set of results, or null if there are no additional results. lprsNextMarker :: Lens' ListPoliciesResponse (Maybe Text) lprsNextMarker = lens _lprsNextMarker (\ s a -> s{_lprsNextMarker = a});@@ -158,4 +169,4 @@ lprsResponseStatus :: Lens' ListPoliciesResponse Int lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a}); -instance NFData ListPoliciesResponse+instance NFData ListPoliciesResponse where
gen/Network/AWS/IoT/ListPolicyPrincipals.hs view
@@ -12,15 +12,17 @@ -- | -- Module : Network.AWS.IoT.ListPolicyPrincipals--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Lists the principals associated with the specified policy. -- --+--+-- This operation returns paginated results. module Network.AWS.IoT.ListPolicyPrincipals ( -- * Creating a Request@@ -41,12 +43,13 @@ , lrsResponseStatus ) 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+import Network.AWS.IoT.Types+import Network.AWS.IoT.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | The input for the ListPolicyPrincipals operation. --@@ -54,12 +57,13 @@ -- -- /See:/ 'listPolicyPrincipals' smart constructor. data ListPolicyPrincipals = ListPolicyPrincipals'- { _lMarker :: !(Maybe Text)- , _lAscendingOrder :: !(Maybe Bool)- , _lPageSize :: !(Maybe Nat)- , _lPolicyName :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lMarker :: !(Maybe Text)+ , _lAscendingOrder :: !(Maybe Bool)+ , _lPageSize :: !(Maybe Nat)+ , _lPolicyName :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListPolicyPrincipals' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,13 +79,14 @@ :: Text -- ^ 'lPolicyName' -> ListPolicyPrincipals listPolicyPrincipals pPolicyName_ =- ListPolicyPrincipals'- { _lMarker = Nothing- , _lAscendingOrder = Nothing- , _lPageSize = Nothing- , _lPolicyName = pPolicyName_- }+ ListPolicyPrincipals'+ { _lMarker = Nothing+ , _lAscendingOrder = Nothing+ , _lPageSize = Nothing+ , _lPolicyName = pPolicyName_+ } + -- | The marker for the next set of results. lMarker :: Lens' ListPolicyPrincipals (Maybe Text) lMarker = lens _lMarker (\ s a -> s{_lMarker = a});@@ -98,6 +103,13 @@ lPolicyName :: Lens' ListPolicyPrincipals Text lPolicyName = lens _lPolicyName (\ s a -> s{_lPolicyName = a}); +instance AWSPager ListPolicyPrincipals where+ page rq rs+ | stop (rs ^. lrsNextMarker) = Nothing+ | stop (rs ^. lrsPrincipals) = Nothing+ | otherwise =+ Just $ rq & lMarker .~ rs ^. lrsNextMarker+ instance AWSRequest ListPolicyPrincipals where type Rs ListPolicyPrincipals = ListPolicyPrincipalsResponse@@ -110,9 +122,9 @@ (x .?> "nextMarker") <*> (pure (fromEnum s))) -instance Hashable ListPolicyPrincipals+instance Hashable ListPolicyPrincipals where -instance NFData ListPolicyPrincipals+instance NFData ListPolicyPrincipals where instance ToHeaders ListPolicyPrincipals where toHeaders ListPolicyPrincipals'{..}@@ -134,11 +146,12 @@ -- -- /See:/ 'listPolicyPrincipalsResponse' smart constructor. data ListPolicyPrincipalsResponse = ListPolicyPrincipalsResponse'- { _lrsPrincipals :: !(Maybe [Text])- , _lrsNextMarker :: !(Maybe Text)- , _lrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lrsPrincipals :: !(Maybe [Text])+ , _lrsNextMarker :: !(Maybe Text)+ , _lrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListPolicyPrincipalsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -152,12 +165,13 @@ :: Int -- ^ 'lrsResponseStatus' -> ListPolicyPrincipalsResponse listPolicyPrincipalsResponse pResponseStatus_ =- ListPolicyPrincipalsResponse'- { _lrsPrincipals = Nothing- , _lrsNextMarker = Nothing- , _lrsResponseStatus = pResponseStatus_- }+ ListPolicyPrincipalsResponse'+ { _lrsPrincipals = Nothing+ , _lrsNextMarker = Nothing+ , _lrsResponseStatus = pResponseStatus_+ } + -- | The descriptions of the principals. lrsPrincipals :: Lens' ListPolicyPrincipalsResponse [Text] lrsPrincipals = lens _lrsPrincipals (\ s a -> s{_lrsPrincipals = a}) . _Default . _Coerce;@@ -170,4 +184,4 @@ lrsResponseStatus :: Lens' ListPolicyPrincipalsResponse Int lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a}); -instance NFData ListPolicyPrincipalsResponse+instance NFData ListPolicyPrincipalsResponse where
gen/Network/AWS/IoT/ListPolicyVersions.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.ListPolicyVersions--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@ , lpvrsResponseStatus ) 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+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 ListPolicyVersions operation. --@@ -50,9 +50,10 @@ -- -- /See:/ 'listPolicyVersions' smart constructor. newtype ListPolicyVersions = ListPolicyVersions'- { _lpvPolicyName :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lpvPolicyName :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListPolicyVersions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,10 +63,9 @@ :: Text -- ^ 'lpvPolicyName' -> ListPolicyVersions listPolicyVersions pPolicyName_ =- ListPolicyVersions'- { _lpvPolicyName = pPolicyName_- }+ ListPolicyVersions' {_lpvPolicyName = pPolicyName_} + -- | The policy name. lpvPolicyName :: Lens' ListPolicyVersions Text lpvPolicyName = lens _lpvPolicyName (\ s a -> s{_lpvPolicyName = a});@@ -81,9 +81,9 @@ (x .?> "policyVersions" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable ListPolicyVersions+instance Hashable ListPolicyVersions where -instance NFData ListPolicyVersions+instance NFData ListPolicyVersions where instance ToHeaders ListPolicyVersions where toHeaders = const mempty@@ -102,10 +102,11 @@ -- -- /See:/ 'listPolicyVersionsResponse' smart constructor. data ListPolicyVersionsResponse = ListPolicyVersionsResponse'- { _lpvrsPolicyVersions :: !(Maybe [PolicyVersion])- , _lpvrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lpvrsPolicyVersions :: !(Maybe [PolicyVersion])+ , _lpvrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListPolicyVersionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -117,11 +118,10 @@ :: Int -- ^ 'lpvrsResponseStatus' -> ListPolicyVersionsResponse listPolicyVersionsResponse pResponseStatus_ =- ListPolicyVersionsResponse'- { _lpvrsPolicyVersions = Nothing- , _lpvrsResponseStatus = pResponseStatus_- }+ ListPolicyVersionsResponse'+ {_lpvrsPolicyVersions = Nothing, _lpvrsResponseStatus = pResponseStatus_} + -- | The policy versions. lpvrsPolicyVersions :: Lens' ListPolicyVersionsResponse [PolicyVersion] lpvrsPolicyVersions = lens _lpvrsPolicyVersions (\ s a -> s{_lpvrsPolicyVersions = a}) . _Default . _Coerce;@@ -130,4 +130,4 @@ lpvrsResponseStatus :: Lens' ListPolicyVersionsResponse Int lpvrsResponseStatus = lens _lpvrsResponseStatus (\ s a -> s{_lpvrsResponseStatus = a}); -instance NFData ListPolicyVersionsResponse+instance NFData ListPolicyVersionsResponse where
gen/Network/AWS/IoT/ListPrincipalPolicies.hs view
@@ -12,15 +12,17 @@ -- | -- Module : Network.AWS.IoT.ListPrincipalPolicies--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- 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> . -- --+--+-- This operation returns paginated results. module Network.AWS.IoT.ListPrincipalPolicies ( -- * Creating a Request@@ -41,12 +43,13 @@ , lpprsResponseStatus ) 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+import Network.AWS.IoT.Types+import Network.AWS.IoT.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | The input for the ListPrincipalPolicies operation. --@@ -54,12 +57,13 @@ -- -- /See:/ 'listPrincipalPolicies' smart constructor. data ListPrincipalPolicies = ListPrincipalPolicies'- { _lppMarker :: !(Maybe Text)- , _lppAscendingOrder :: !(Maybe Bool)- , _lppPageSize :: !(Maybe Nat)- , _lppPrincipal :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lppMarker :: !(Maybe Text)+ , _lppAscendingOrder :: !(Maybe Bool)+ , _lppPageSize :: !(Maybe Nat)+ , _lppPrincipal :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListPrincipalPolicies' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,13 +79,14 @@ :: Text -- ^ 'lppPrincipal' -> ListPrincipalPolicies listPrincipalPolicies pPrincipal_ =- ListPrincipalPolicies'- { _lppMarker = Nothing- , _lppAscendingOrder = Nothing- , _lppPageSize = Nothing- , _lppPrincipal = pPrincipal_- }+ ListPrincipalPolicies'+ { _lppMarker = Nothing+ , _lppAscendingOrder = Nothing+ , _lppPageSize = Nothing+ , _lppPrincipal = pPrincipal_+ } + -- | The marker for the next set of results. lppMarker :: Lens' ListPrincipalPolicies (Maybe Text) lppMarker = lens _lppMarker (\ s a -> s{_lppMarker = a});@@ -98,6 +103,13 @@ lppPrincipal :: Lens' ListPrincipalPolicies Text lppPrincipal = lens _lppPrincipal (\ s a -> s{_lppPrincipal = a}); +instance AWSPager ListPrincipalPolicies where+ page rq rs+ | stop (rs ^. lpprsNextMarker) = Nothing+ | stop (rs ^. lpprsPolicies) = Nothing+ | otherwise =+ Just $ rq & lppMarker .~ rs ^. lpprsNextMarker+ instance AWSRequest ListPrincipalPolicies where type Rs ListPrincipalPolicies = ListPrincipalPoliciesResponse@@ -110,9 +122,9 @@ (x .?> "policies" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable ListPrincipalPolicies+instance Hashable ListPrincipalPolicies where -instance NFData ListPrincipalPolicies+instance NFData ListPrincipalPolicies where instance ToHeaders ListPrincipalPolicies where toHeaders ListPrincipalPolicies'{..}@@ -134,11 +146,12 @@ -- -- /See:/ 'listPrincipalPoliciesResponse' smart constructor. data ListPrincipalPoliciesResponse = ListPrincipalPoliciesResponse'- { _lpprsNextMarker :: !(Maybe Text)- , _lpprsPolicies :: !(Maybe [Policy])- , _lpprsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lpprsNextMarker :: !(Maybe Text)+ , _lpprsPolicies :: !(Maybe [Policy])+ , _lpprsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListPrincipalPoliciesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -152,12 +165,13 @@ :: Int -- ^ 'lpprsResponseStatus' -> ListPrincipalPoliciesResponse listPrincipalPoliciesResponse pResponseStatus_ =- ListPrincipalPoliciesResponse'- { _lpprsNextMarker = Nothing- , _lpprsPolicies = Nothing- , _lpprsResponseStatus = pResponseStatus_- }+ ListPrincipalPoliciesResponse'+ { _lpprsNextMarker = Nothing+ , _lpprsPolicies = Nothing+ , _lpprsResponseStatus = pResponseStatus_+ } + -- | The marker for the next set of results, or null if there are no additional results. lpprsNextMarker :: Lens' ListPrincipalPoliciesResponse (Maybe Text) lpprsNextMarker = lens _lpprsNextMarker (\ s a -> s{_lpprsNextMarker = a});@@ -170,4 +184,4 @@ lpprsResponseStatus :: Lens' ListPrincipalPoliciesResponse Int lpprsResponseStatus = lens _lpprsResponseStatus (\ s a -> s{_lpprsResponseStatus = a}); -instance NFData ListPrincipalPoliciesResponse+instance NFData ListPrincipalPoliciesResponse where
gen/Network/AWS/IoT/ListPrincipalThings.hs view
@@ -12,15 +12,17 @@ -- | -- Module : Network.AWS.IoT.ListPrincipalThings--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Lists the things associated with the specified principal. -- --+--+-- This operation returns paginated results. module Network.AWS.IoT.ListPrincipalThings ( -- * Creating a Request@@ -40,12 +42,13 @@ , lptrsResponseStatus ) 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+import Network.AWS.IoT.Types+import Network.AWS.IoT.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | The input for the ListPrincipalThings operation. --@@ -53,11 +56,12 @@ -- -- /See:/ 'listPrincipalThings' smart constructor. data ListPrincipalThings = ListPrincipalThings'- { _lptNextToken :: !(Maybe Text)- , _lptMaxResults :: !(Maybe Nat)- , _lptPrincipal :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lptNextToken :: !(Maybe Text)+ , _lptMaxResults :: !(Maybe Nat)+ , _lptPrincipal :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListPrincipalThings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,12 +75,13 @@ :: Text -- ^ 'lptPrincipal' -> ListPrincipalThings listPrincipalThings pPrincipal_ =- ListPrincipalThings'- { _lptNextToken = Nothing- , _lptMaxResults = Nothing- , _lptPrincipal = pPrincipal_- }+ ListPrincipalThings'+ { _lptNextToken = Nothing+ , _lptMaxResults = Nothing+ , _lptPrincipal = pPrincipal_+ } + -- | The token for the next set of results, or __null__ if there are no additional results. lptNextToken :: Lens' ListPrincipalThings (Maybe Text) lptNextToken = lens _lptNextToken (\ s a -> s{_lptNextToken = a});@@ -89,6 +94,13 @@ lptPrincipal :: Lens' ListPrincipalThings Text lptPrincipal = lens _lptPrincipal (\ s a -> s{_lptPrincipal = a}); +instance AWSPager ListPrincipalThings where+ page rq rs+ | stop (rs ^. lptrsNextToken) = Nothing+ | stop (rs ^. lptrsThings) = Nothing+ | otherwise =+ Just $ rq & lptNextToken .~ rs ^. lptrsNextToken+ instance AWSRequest ListPrincipalThings where type Rs ListPrincipalThings = ListPrincipalThingsResponse@@ -100,9 +112,9 @@ (x .?> "nextToken") <*> (x .?> "things" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable ListPrincipalThings+instance Hashable ListPrincipalThings where -instance NFData ListPrincipalThings+instance NFData ListPrincipalThings where instance ToHeaders ListPrincipalThings where toHeaders ListPrincipalThings'{..}@@ -123,11 +135,12 @@ -- -- /See:/ 'listPrincipalThingsResponse' smart constructor. data ListPrincipalThingsResponse = ListPrincipalThingsResponse'- { _lptrsNextToken :: !(Maybe Text)- , _lptrsThings :: !(Maybe [Text])- , _lptrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lptrsNextToken :: !(Maybe Text)+ , _lptrsThings :: !(Maybe [Text])+ , _lptrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListPrincipalThingsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -141,12 +154,13 @@ :: Int -- ^ 'lptrsResponseStatus' -> ListPrincipalThingsResponse listPrincipalThingsResponse pResponseStatus_ =- ListPrincipalThingsResponse'- { _lptrsNextToken = Nothing- , _lptrsThings = Nothing- , _lptrsResponseStatus = pResponseStatus_- }+ ListPrincipalThingsResponse'+ { _lptrsNextToken = Nothing+ , _lptrsThings = Nothing+ , _lptrsResponseStatus = pResponseStatus_+ } + -- | The token for the next set of results, or __null__ if there are no additional results. lptrsNextToken :: Lens' ListPrincipalThingsResponse (Maybe Text) lptrsNextToken = lens _lptrsNextToken (\ s a -> s{_lptrsNextToken = a});@@ -159,4 +173,4 @@ lptrsResponseStatus :: Lens' ListPrincipalThingsResponse Int lptrsResponseStatus = lens _lptrsResponseStatus (\ s a -> s{_lptrsResponseStatus = a}); -instance NFData ListPrincipalThingsResponse+instance NFData ListPrincipalThingsResponse where
gen/Network/AWS/IoT/ListThingPrincipals.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.ListThingPrincipals--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@ , ltprsResponseStatus ) 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+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 ListThingPrincipal operation. --@@ -50,9 +50,10 @@ -- -- /See:/ 'listThingPrincipals' smart constructor. newtype ListThingPrincipals = ListThingPrincipals'- { _ltpThingName :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ltpThingName :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListThingPrincipals' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,10 +63,9 @@ :: Text -- ^ 'ltpThingName' -> ListThingPrincipals listThingPrincipals pThingName_ =- ListThingPrincipals'- { _ltpThingName = pThingName_- }+ ListThingPrincipals' {_ltpThingName = pThingName_} + -- | The name of the thing. ltpThingName :: Lens' ListThingPrincipals Text ltpThingName = lens _ltpThingName (\ s a -> s{_ltpThingName = a});@@ -81,9 +81,9 @@ (x .?> "principals" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable ListThingPrincipals+instance Hashable ListThingPrincipals where -instance NFData ListThingPrincipals+instance NFData ListThingPrincipals where instance ToHeaders ListThingPrincipals where toHeaders = const mempty@@ -102,10 +102,11 @@ -- -- /See:/ 'listThingPrincipalsResponse' smart constructor. data ListThingPrincipalsResponse = ListThingPrincipalsResponse'- { _ltprsPrincipals :: !(Maybe [Text])- , _ltprsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ltprsPrincipals :: !(Maybe [Text])+ , _ltprsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListThingPrincipalsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -117,11 +118,10 @@ :: Int -- ^ 'ltprsResponseStatus' -> ListThingPrincipalsResponse listThingPrincipalsResponse pResponseStatus_ =- ListThingPrincipalsResponse'- { _ltprsPrincipals = Nothing- , _ltprsResponseStatus = pResponseStatus_- }+ ListThingPrincipalsResponse'+ {_ltprsPrincipals = Nothing, _ltprsResponseStatus = pResponseStatus_} + -- | The principals associated with the thing. ltprsPrincipals :: Lens' ListThingPrincipalsResponse [Text] ltprsPrincipals = lens _ltprsPrincipals (\ s a -> s{_ltprsPrincipals = a}) . _Default . _Coerce;@@ -130,4 +130,4 @@ ltprsResponseStatus :: Lens' ListThingPrincipalsResponse Int ltprsResponseStatus = lens _ltprsResponseStatus (\ s a -> s{_ltprsResponseStatus = a}); -instance NFData ListThingPrincipalsResponse+instance NFData ListThingPrincipalsResponse where
gen/Network/AWS/IoT/ListThingTypes.hs view
@@ -12,15 +12,17 @@ -- | -- Module : Network.AWS.IoT.ListThingTypes--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Lists the existing thing types. -- --+--+-- This operation returns paginated results. module Network.AWS.IoT.ListThingTypes ( -- * Creating a Request@@ -40,12 +42,13 @@ , lttrsResponseStatus ) 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+import Network.AWS.IoT.Types+import Network.AWS.IoT.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | The input for the ListThingTypes operation. --@@ -53,11 +56,12 @@ -- -- /See:/ 'listThingTypes' smart constructor. data ListThingTypes = ListThingTypes'- { _lttThingTypeName :: !(Maybe Text)- , _lttNextToken :: !(Maybe Text)- , _lttMaxResults :: !(Maybe Nat)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lttThingTypeName :: !(Maybe Text)+ , _lttNextToken :: !(Maybe Text)+ , _lttMaxResults :: !(Maybe Nat)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListThingTypes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,12 +74,13 @@ listThingTypes :: ListThingTypes listThingTypes =- ListThingTypes'- { _lttThingTypeName = Nothing- , _lttNextToken = Nothing- , _lttMaxResults = Nothing- }+ ListThingTypes'+ { _lttThingTypeName = Nothing+ , _lttNextToken = Nothing+ , _lttMaxResults = Nothing+ } + -- | The name of the thing type. lttThingTypeName :: Lens' ListThingTypes (Maybe Text) lttThingTypeName = lens _lttThingTypeName (\ s a -> s{_lttThingTypeName = a});@@ -88,6 +93,13 @@ lttMaxResults :: Lens' ListThingTypes (Maybe Natural) lttMaxResults = lens _lttMaxResults (\ s a -> s{_lttMaxResults = a}) . mapping _Nat; +instance AWSPager ListThingTypes where+ page rq rs+ | stop (rs ^. lttrsNextToken) = Nothing+ | stop (rs ^. lttrsThingTypes) = Nothing+ | otherwise =+ Just $ rq & lttNextToken .~ rs ^. lttrsNextToken+ instance AWSRequest ListThingTypes where type Rs ListThingTypes = ListThingTypesResponse request = get ioT@@ -99,9 +111,9 @@ (x .?> "nextToken") <*> (pure (fromEnum s))) -instance Hashable ListThingTypes+instance Hashable ListThingTypes where -instance NFData ListThingTypes+instance NFData ListThingTypes where instance ToHeaders ListThingTypes where toHeaders = const mempty@@ -122,11 +134,12 @@ -- -- /See:/ 'listThingTypesResponse' smart constructor. data ListThingTypesResponse = ListThingTypesResponse'- { _lttrsThingTypes :: !(Maybe [ThingTypeDefinition])- , _lttrsNextToken :: !(Maybe Text)- , _lttrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lttrsThingTypes :: !(Maybe [ThingTypeDefinition])+ , _lttrsNextToken :: !(Maybe Text)+ , _lttrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListThingTypesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -140,12 +153,13 @@ :: Int -- ^ 'lttrsResponseStatus' -> ListThingTypesResponse listThingTypesResponse pResponseStatus_ =- ListThingTypesResponse'- { _lttrsThingTypes = Nothing- , _lttrsNextToken = Nothing- , _lttrsResponseStatus = pResponseStatus_- }+ ListThingTypesResponse'+ { _lttrsThingTypes = Nothing+ , _lttrsNextToken = Nothing+ , _lttrsResponseStatus = pResponseStatus_+ } + -- | The thing types. lttrsThingTypes :: Lens' ListThingTypesResponse [ThingTypeDefinition] lttrsThingTypes = lens _lttrsThingTypes (\ s a -> s{_lttrsThingTypes = a}) . _Default . _Coerce;@@ -158,4 +172,4 @@ lttrsResponseStatus :: Lens' ListThingTypesResponse Int lttrsResponseStatus = lens _lttrsResponseStatus (\ s a -> s{_lttrsResponseStatus = a}); -instance NFData ListThingTypesResponse+instance NFData ListThingTypesResponse where
gen/Network/AWS/IoT/ListThings.hs view
@@ -12,15 +12,17 @@ -- | -- Module : Network.AWS.IoT.ListThings--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- 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__ . -- --+--+-- This operation returns paginated results. module Network.AWS.IoT.ListThings ( -- * Creating a Request@@ -42,12 +44,13 @@ , ltrsResponseStatus ) 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+import Network.AWS.IoT.Types+import Network.AWS.IoT.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | The input for the ListThings operation. --@@ -55,13 +58,14 @@ -- -- /See:/ 'listThings' smart constructor. data ListThings = ListThings'- { _ltAttributeValue :: !(Maybe Text)- , _ltThingTypeName :: !(Maybe Text)- , _ltNextToken :: !(Maybe Text)- , _ltAttributeName :: !(Maybe Text)- , _ltMaxResults :: !(Maybe Nat)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ltAttributeValue :: !(Maybe Text)+ , _ltThingTypeName :: !(Maybe Text)+ , _ltNextToken :: !(Maybe Text)+ , _ltAttributeName :: !(Maybe Text)+ , _ltMaxResults :: !(Maybe Nat)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListThings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -78,14 +82,15 @@ listThings :: ListThings listThings =- ListThings'- { _ltAttributeValue = Nothing- , _ltThingTypeName = Nothing- , _ltNextToken = Nothing- , _ltAttributeName = Nothing- , _ltMaxResults = Nothing- }+ ListThings'+ { _ltAttributeValue = Nothing+ , _ltThingTypeName = Nothing+ , _ltNextToken = Nothing+ , _ltAttributeName = Nothing+ , _ltMaxResults = Nothing+ } + -- | The attribute value used to search for things. ltAttributeValue :: Lens' ListThings (Maybe Text) ltAttributeValue = lens _ltAttributeValue (\ s a -> s{_ltAttributeValue = a});@@ -106,6 +111,13 @@ ltMaxResults :: Lens' ListThings (Maybe Natural) ltMaxResults = lens _ltMaxResults (\ s a -> s{_ltMaxResults = a}) . mapping _Nat; +instance AWSPager ListThings where+ page rq rs+ | stop (rs ^. ltrsNextToken) = Nothing+ | stop (rs ^. ltrsThings) = Nothing+ | otherwise =+ Just $ rq & ltNextToken .~ rs ^. ltrsNextToken+ instance AWSRequest ListThings where type Rs ListThings = ListThingsResponse request = get ioT@@ -116,9 +128,9 @@ (x .?> "nextToken") <*> (x .?> "things" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable ListThings+instance Hashable ListThings where -instance NFData ListThings+instance NFData ListThings where instance ToHeaders ListThings where toHeaders = const mempty@@ -141,11 +153,12 @@ -- -- /See:/ 'listThingsResponse' smart constructor. data ListThingsResponse = ListThingsResponse'- { _ltrsNextToken :: !(Maybe Text)- , _ltrsThings :: !(Maybe [ThingAttribute])- , _ltrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ltrsNextToken :: !(Maybe Text)+ , _ltrsThings :: !(Maybe [ThingAttribute])+ , _ltrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListThingsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -159,12 +172,13 @@ :: Int -- ^ 'ltrsResponseStatus' -> ListThingsResponse listThingsResponse pResponseStatus_ =- ListThingsResponse'- { _ltrsNextToken = Nothing- , _ltrsThings = Nothing- , _ltrsResponseStatus = pResponseStatus_- }+ ListThingsResponse'+ { _ltrsNextToken = Nothing+ , _ltrsThings = Nothing+ , _ltrsResponseStatus = pResponseStatus_+ } + -- | The token for the next set of results, or __null__ if there are no additional results. ltrsNextToken :: Lens' ListThingsResponse (Maybe Text) ltrsNextToken = lens _ltrsNextToken (\ s a -> s{_ltrsNextToken = a});@@ -177,4 +191,4 @@ ltrsResponseStatus :: Lens' ListThingsResponse Int ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a}); -instance NFData ListThingsResponse+instance NFData ListThingsResponse where
gen/Network/AWS/IoT/ListTopicRules.hs view
@@ -12,15 +12,17 @@ -- | -- Module : Network.AWS.IoT.ListTopicRules--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Lists the rules for the specific topic. -- --+--+-- This operation returns paginated results. module Network.AWS.IoT.ListTopicRules ( -- * Creating a Request@@ -41,12 +43,13 @@ , ltrrsResponseStatus ) 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+import Network.AWS.IoT.Types+import Network.AWS.IoT.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | The input for the ListTopicRules operation. --@@ -54,12 +57,13 @@ -- -- /See:/ 'listTopicRules' smart constructor. data ListTopicRules = ListTopicRules'- { _ltrRuleDisabled :: !(Maybe Bool)- , _ltrTopic :: !(Maybe Text)- , _ltrNextToken :: !(Maybe Text)- , _ltrMaxResults :: !(Maybe Nat)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ltrRuleDisabled :: !(Maybe Bool)+ , _ltrTopic :: !(Maybe Text)+ , _ltrNextToken :: !(Maybe Text)+ , _ltrMaxResults :: !(Maybe Nat)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTopicRules' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,13 +78,14 @@ listTopicRules :: ListTopicRules listTopicRules =- ListTopicRules'- { _ltrRuleDisabled = Nothing- , _ltrTopic = Nothing- , _ltrNextToken = Nothing- , _ltrMaxResults = Nothing- }+ ListTopicRules'+ { _ltrRuleDisabled = Nothing+ , _ltrTopic = Nothing+ , _ltrNextToken = Nothing+ , _ltrMaxResults = Nothing+ } + -- | Specifies whether the rule is disabled. ltrRuleDisabled :: Lens' ListTopicRules (Maybe Bool) ltrRuleDisabled = lens _ltrRuleDisabled (\ s a -> s{_ltrRuleDisabled = a});@@ -97,6 +102,13 @@ ltrMaxResults :: Lens' ListTopicRules (Maybe Natural) ltrMaxResults = lens _ltrMaxResults (\ s a -> s{_ltrMaxResults = a}) . mapping _Nat; +instance AWSPager ListTopicRules where+ page rq rs+ | stop (rs ^. ltrrsNextToken) = Nothing+ | stop (rs ^. ltrrsRules) = Nothing+ | otherwise =+ Just $ rq & ltrNextToken .~ rs ^. ltrrsNextToken+ instance AWSRequest ListTopicRules where type Rs ListTopicRules = ListTopicRulesResponse request = get ioT@@ -107,9 +119,9 @@ (x .?> "rules" .!@ mempty) <*> (x .?> "nextToken") <*> (pure (fromEnum s))) -instance Hashable ListTopicRules+instance Hashable ListTopicRules where -instance NFData ListTopicRules+instance NFData ListTopicRules where instance ToHeaders ListTopicRules where toHeaders = const mempty@@ -130,11 +142,12 @@ -- -- /See:/ 'listTopicRulesResponse' smart constructor. data ListTopicRulesResponse = ListTopicRulesResponse'- { _ltrrsRules :: !(Maybe [TopicRuleListItem])- , _ltrrsNextToken :: !(Maybe Text)- , _ltrrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ltrrsRules :: !(Maybe [TopicRuleListItem])+ , _ltrrsNextToken :: !(Maybe Text)+ , _ltrrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTopicRulesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -148,12 +161,13 @@ :: Int -- ^ 'ltrrsResponseStatus' -> ListTopicRulesResponse listTopicRulesResponse pResponseStatus_ =- ListTopicRulesResponse'- { _ltrrsRules = Nothing- , _ltrrsNextToken = Nothing- , _ltrrsResponseStatus = pResponseStatus_- }+ ListTopicRulesResponse'+ { _ltrrsRules = Nothing+ , _ltrrsNextToken = Nothing+ , _ltrrsResponseStatus = pResponseStatus_+ } + -- | The rules. ltrrsRules :: Lens' ListTopicRulesResponse [TopicRuleListItem] ltrrsRules = lens _ltrrsRules (\ s a -> s{_ltrrsRules = a}) . _Default . _Coerce;@@ -166,4 +180,4 @@ ltrrsResponseStatus :: Lens' ListTopicRulesResponse Int ltrrsResponseStatus = lens _ltrrsResponseStatus (\ s a -> s{_ltrrsResponseStatus = a}); -instance NFData ListTopicRulesResponse+instance NFData ListTopicRulesResponse where
gen/Network/AWS/IoT/RegisterCACertificate.hs view
@@ -12,13 +12,13 @@ -- | -- Module : Network.AWS.IoT.RegisterCACertificate--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- 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.+-- 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. 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@@ -41,12 +41,12 @@ , rcacrsResponseStatus ) 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+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 to the RegisterCACertificate operation. --@@ -54,12 +54,13 @@ -- -- /See:/ 'registerCACertificate' smart constructor. data RegisterCACertificate = RegisterCACertificate'- { _rcacSetAsActive :: !(Maybe Bool)- , _rcacAllowAutoRegistration :: !(Maybe Bool)- , _rcacCaCertificate :: !Text- , _rcacVerificationCertificate :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rcacSetAsActive :: !(Maybe Bool)+ , _rcacAllowAutoRegistration :: !(Maybe Bool)+ , _rcacCaCertificate :: !Text+ , _rcacVerificationCertificate :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RegisterCACertificate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -76,13 +77,14 @@ -> Text -- ^ 'rcacVerificationCertificate' -> RegisterCACertificate registerCACertificate pCaCertificate_ pVerificationCertificate_ =- RegisterCACertificate'- { _rcacSetAsActive = Nothing- , _rcacAllowAutoRegistration = Nothing- , _rcacCaCertificate = pCaCertificate_- , _rcacVerificationCertificate = pVerificationCertificate_- }+ RegisterCACertificate'+ { _rcacSetAsActive = Nothing+ , _rcacAllowAutoRegistration = Nothing+ , _rcacCaCertificate = pCaCertificate_+ , _rcacVerificationCertificate = pVerificationCertificate_+ } + -- | A boolean value that specifies if the CA certificate is set to active. rcacSetAsActive :: Lens' RegisterCACertificate (Maybe Bool) rcacSetAsActive = lens _rcacSetAsActive (\ s a -> s{_rcacSetAsActive = a});@@ -110,9 +112,9 @@ (x .?> "certificateArn") <*> (x .?> "certificateId") <*> (pure (fromEnum s))) -instance Hashable RegisterCACertificate+instance Hashable RegisterCACertificate where -instance NFData RegisterCACertificate+instance NFData RegisterCACertificate where instance ToHeaders RegisterCACertificate where toHeaders = const mempty@@ -142,11 +144,12 @@ -- -- /See:/ 'registerCACertificateResponse' smart constructor. data RegisterCACertificateResponse = RegisterCACertificateResponse'- { _rcacrsCertificateARN :: !(Maybe Text)- , _rcacrsCertificateId :: !(Maybe Text)- , _rcacrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rcacrsCertificateARN :: !(Maybe Text)+ , _rcacrsCertificateId :: !(Maybe Text)+ , _rcacrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RegisterCACertificateResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -160,12 +163,13 @@ :: Int -- ^ 'rcacrsResponseStatus' -> RegisterCACertificateResponse registerCACertificateResponse pResponseStatus_ =- RegisterCACertificateResponse'- { _rcacrsCertificateARN = Nothing- , _rcacrsCertificateId = Nothing- , _rcacrsResponseStatus = pResponseStatus_- }+ RegisterCACertificateResponse'+ { _rcacrsCertificateARN = Nothing+ , _rcacrsCertificateId = Nothing+ , _rcacrsResponseStatus = pResponseStatus_+ } + -- | The CA certificate ARN. rcacrsCertificateARN :: Lens' RegisterCACertificateResponse (Maybe Text) rcacrsCertificateARN = lens _rcacrsCertificateARN (\ s a -> s{_rcacrsCertificateARN = a});@@ -178,4 +182,4 @@ rcacrsResponseStatus :: Lens' RegisterCACertificateResponse Int rcacrsResponseStatus = lens _rcacrsResponseStatus (\ s a -> s{_rcacrsResponseStatus = a}); -instance NFData RegisterCACertificateResponse+instance NFData RegisterCACertificateResponse where
gen/Network/AWS/IoT/RegisterCertificate.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.RegisterCertificate--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,12 +41,12 @@ , rcrsResponseStatus ) 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+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 to the RegisterCertificate operation. --@@ -54,17 +54,18 @@ -- -- /See:/ 'registerCertificate' smart constructor. data RegisterCertificate = RegisterCertificate'- { _rcStatus :: !(Maybe CertificateStatus)- , _rcCaCertificatePem :: !(Maybe Text)- , _rcSetAsActive :: !(Maybe Bool)- , _rcCertificatePem :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rcStatus :: !(Maybe CertificateStatus)+ , _rcCaCertificatePem :: !(Maybe Text)+ , _rcSetAsActive :: !(Maybe Bool)+ , _rcCertificatePem :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RegisterCertificate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rcStatus' - Undocumented member.+-- * 'rcStatus' - The status of the register certificate request. -- -- * 'rcCaCertificatePem' - The CA certificate used to sign the device certificate being registered. --@@ -75,14 +76,15 @@ :: Text -- ^ 'rcCertificatePem' -> RegisterCertificate registerCertificate pCertificatePem_ =- RegisterCertificate'- { _rcStatus = Nothing- , _rcCaCertificatePem = Nothing- , _rcSetAsActive = Nothing- , _rcCertificatePem = pCertificatePem_- }+ RegisterCertificate'+ { _rcStatus = Nothing+ , _rcCaCertificatePem = Nothing+ , _rcSetAsActive = Nothing+ , _rcCertificatePem = pCertificatePem_+ } --- | Undocumented member.++-- | The status of the register certificate request. rcStatus :: Lens' RegisterCertificate (Maybe CertificateStatus) rcStatus = lens _rcStatus (\ s a -> s{_rcStatus = a}); @@ -109,9 +111,9 @@ (x .?> "certificateArn") <*> (x .?> "certificateId") <*> (pure (fromEnum s))) -instance Hashable RegisterCertificate+instance Hashable RegisterCertificate where -instance NFData RegisterCertificate+instance NFData RegisterCertificate where instance ToHeaders RegisterCertificate where toHeaders = const mempty@@ -137,11 +139,12 @@ -- -- /See:/ 'registerCertificateResponse' smart constructor. data RegisterCertificateResponse = RegisterCertificateResponse'- { _rcrsCertificateARN :: !(Maybe Text)- , _rcrsCertificateId :: !(Maybe Text)- , _rcrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rcrsCertificateARN :: !(Maybe Text)+ , _rcrsCertificateId :: !(Maybe Text)+ , _rcrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RegisterCertificateResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -155,12 +158,13 @@ :: Int -- ^ 'rcrsResponseStatus' -> RegisterCertificateResponse registerCertificateResponse pResponseStatus_ =- RegisterCertificateResponse'- { _rcrsCertificateARN = Nothing- , _rcrsCertificateId = Nothing- , _rcrsResponseStatus = pResponseStatus_- }+ RegisterCertificateResponse'+ { _rcrsCertificateARN = Nothing+ , _rcrsCertificateId = Nothing+ , _rcrsResponseStatus = pResponseStatus_+ } + -- | The certificate ARN. rcrsCertificateARN :: Lens' RegisterCertificateResponse (Maybe Text) rcrsCertificateARN = lens _rcrsCertificateARN (\ s a -> s{_rcrsCertificateARN = a});@@ -173,4 +177,4 @@ rcrsResponseStatus :: Lens' RegisterCertificateResponse Int rcrsResponseStatus = lens _rcrsResponseStatus (\ s a -> s{_rcrsResponseStatus = a}); -instance NFData RegisterCertificateResponse+instance NFData RegisterCertificateResponse where
gen/Network/AWS/IoT/RejectCertificateTransfer.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.RejectCertificateTransfer--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@ , RejectCertificateTransferResponse ) 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+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 RejectCertificateTransfer operation. --@@ -52,10 +52,11 @@ -- -- /See:/ 'rejectCertificateTransfer' smart constructor. data RejectCertificateTransfer = RejectCertificateTransfer'- { _rctRejectReason :: !(Maybe Text)- , _rctCertificateId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rctRejectReason :: !(Maybe Text)+ , _rctCertificateId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RejectCertificateTransfer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -67,11 +68,10 @@ :: Text -- ^ 'rctCertificateId' -> RejectCertificateTransfer rejectCertificateTransfer pCertificateId_ =- RejectCertificateTransfer'- { _rctRejectReason = Nothing- , _rctCertificateId = pCertificateId_- }+ RejectCertificateTransfer'+ {_rctRejectReason = Nothing, _rctCertificateId = pCertificateId_} + -- | The reason the certificate transfer was rejected. rctRejectReason :: Lens' RejectCertificateTransfer (Maybe Text) rctRejectReason = lens _rctRejectReason (\ s a -> s{_rctRejectReason = a});@@ -87,9 +87,9 @@ response = receiveNull RejectCertificateTransferResponse' -instance Hashable RejectCertificateTransfer+instance Hashable RejectCertificateTransfer where -instance NFData RejectCertificateTransfer+instance NFData RejectCertificateTransfer where instance ToHeaders RejectCertificateTransfer where toHeaders = const mempty@@ -111,13 +111,16 @@ -- | /See:/ 'rejectCertificateTransferResponse' smart constructor. data RejectCertificateTransferResponse =- RejectCertificateTransferResponse'- deriving (Eq,Read,Show,Data,Typeable,Generic)+ RejectCertificateTransferResponse'+ deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RejectCertificateTransferResponse' with the minimum fields required to make a request. -- rejectCertificateTransferResponse :: RejectCertificateTransferResponse rejectCertificateTransferResponse = RejectCertificateTransferResponse' + instance NFData RejectCertificateTransferResponse+ where
gen/Network/AWS/IoT/ReplaceTopicRule.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.ReplaceTopicRule--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,12 +35,12 @@ , ReplaceTopicRuleResponse ) 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+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 ReplaceTopicRule operation. --@@ -48,10 +48,11 @@ -- -- /See:/ 'replaceTopicRule' smart constructor. data ReplaceTopicRule = ReplaceTopicRule'- { _rtrRuleName :: !Text- , _rtrTopicRulePayload :: !TopicRulePayload- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rtrRuleName :: !Text+ , _rtrTopicRulePayload :: !TopicRulePayload+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ReplaceTopicRule' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,11 +65,10 @@ -> TopicRulePayload -- ^ 'rtrTopicRulePayload' -> ReplaceTopicRule replaceTopicRule pRuleName_ pTopicRulePayload_ =- ReplaceTopicRule'- { _rtrRuleName = pRuleName_- , _rtrTopicRulePayload = pTopicRulePayload_- }+ ReplaceTopicRule'+ {_rtrRuleName = pRuleName_, _rtrTopicRulePayload = pTopicRulePayload_} + -- | The name of the rule. rtrRuleName :: Lens' ReplaceTopicRule Text rtrRuleName = lens _rtrRuleName (\ s a -> s{_rtrRuleName = a});@@ -82,9 +82,9 @@ request = patchJSON ioT response = receiveNull ReplaceTopicRuleResponse' -instance Hashable ReplaceTopicRule+instance Hashable ReplaceTopicRule where -instance NFData ReplaceTopicRule+instance NFData ReplaceTopicRule where instance ToHeaders ReplaceTopicRule where toHeaders = const mempty@@ -104,13 +104,15 @@ -- | /See:/ 'replaceTopicRuleResponse' smart constructor. data ReplaceTopicRuleResponse =- ReplaceTopicRuleResponse'- deriving (Eq,Read,Show,Data,Typeable,Generic)+ ReplaceTopicRuleResponse'+ deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ReplaceTopicRuleResponse' with the minimum fields required to make a request. -- replaceTopicRuleResponse :: ReplaceTopicRuleResponse replaceTopicRuleResponse = ReplaceTopicRuleResponse' -instance NFData ReplaceTopicRuleResponse++instance NFData ReplaceTopicRuleResponse where
gen/Network/AWS/IoT/SetDefaultPolicyVersion.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.SetDefaultPolicyVersion--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,12 +35,12 @@ , SetDefaultPolicyVersionResponse ) 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+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 SetDefaultPolicyVersion operation. --@@ -48,10 +48,11 @@ -- -- /See:/ 'setDefaultPolicyVersion' smart constructor. data SetDefaultPolicyVersion = SetDefaultPolicyVersion'- { _sdpvPolicyName :: !Text- , _sdpvPolicyVersionId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _sdpvPolicyName :: !Text+ , _sdpvPolicyVersionId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetDefaultPolicyVersion' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,11 +65,10 @@ -> Text -- ^ 'sdpvPolicyVersionId' -> SetDefaultPolicyVersion setDefaultPolicyVersion pPolicyName_ pPolicyVersionId_ =- SetDefaultPolicyVersion'- { _sdpvPolicyName = pPolicyName_- , _sdpvPolicyVersionId = pPolicyVersionId_- }+ SetDefaultPolicyVersion'+ {_sdpvPolicyName = pPolicyName_, _sdpvPolicyVersionId = pPolicyVersionId_} + -- | The policy name. sdpvPolicyName :: Lens' SetDefaultPolicyVersion Text sdpvPolicyName = lens _sdpvPolicyName (\ s a -> s{_sdpvPolicyName = a});@@ -84,9 +84,9 @@ response = receiveNull SetDefaultPolicyVersionResponse' -instance Hashable SetDefaultPolicyVersion+instance Hashable SetDefaultPolicyVersion where -instance NFData SetDefaultPolicyVersion+instance NFData SetDefaultPolicyVersion where instance ToHeaders SetDefaultPolicyVersion where toHeaders = const mempty@@ -105,13 +105,15 @@ -- | /See:/ 'setDefaultPolicyVersionResponse' smart constructor. data SetDefaultPolicyVersionResponse =- SetDefaultPolicyVersionResponse'- deriving (Eq,Read,Show,Data,Typeable,Generic)+ SetDefaultPolicyVersionResponse'+ deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetDefaultPolicyVersionResponse' with the minimum fields required to make a request. -- setDefaultPolicyVersionResponse :: SetDefaultPolicyVersionResponse setDefaultPolicyVersionResponse = SetDefaultPolicyVersionResponse' -instance NFData SetDefaultPolicyVersionResponse++instance NFData SetDefaultPolicyVersionResponse where
gen/Network/AWS/IoT/SetLoggingOptions.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.SetLoggingOptions--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -34,12 +34,12 @@ , SetLoggingOptionsResponse ) 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+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 SetLoggingOptions operation. --@@ -47,9 +47,10 @@ -- -- /See:/ 'setLoggingOptions' smart constructor. newtype SetLoggingOptions = SetLoggingOptions'- { _sloLoggingOptionsPayload :: LoggingOptionsPayload- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _sloLoggingOptionsPayload :: LoggingOptionsPayload+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetLoggingOptions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -59,10 +60,9 @@ :: LoggingOptionsPayload -- ^ 'sloLoggingOptionsPayload' -> SetLoggingOptions setLoggingOptions pLoggingOptionsPayload_ =- SetLoggingOptions'- { _sloLoggingOptionsPayload = pLoggingOptionsPayload_- }+ SetLoggingOptions' {_sloLoggingOptionsPayload = pLoggingOptionsPayload_} + -- | The logging options payload. sloLoggingOptionsPayload :: Lens' SetLoggingOptions LoggingOptionsPayload sloLoggingOptionsPayload = lens _sloLoggingOptionsPayload (\ s a -> s{_sloLoggingOptionsPayload = a});@@ -72,9 +72,9 @@ request = postJSON ioT response = receiveNull SetLoggingOptionsResponse' -instance Hashable SetLoggingOptions+instance Hashable SetLoggingOptions where -instance NFData SetLoggingOptions+instance NFData SetLoggingOptions where instance ToHeaders SetLoggingOptions where toHeaders = const mempty@@ -95,13 +95,15 @@ -- | /See:/ 'setLoggingOptionsResponse' smart constructor. data SetLoggingOptionsResponse =- SetLoggingOptionsResponse'- deriving (Eq,Read,Show,Data,Typeable,Generic)+ SetLoggingOptionsResponse'+ deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetLoggingOptionsResponse' with the minimum fields required to make a request. -- setLoggingOptionsResponse :: SetLoggingOptionsResponse setLoggingOptionsResponse = SetLoggingOptionsResponse' -instance NFData SetLoggingOptionsResponse++instance NFData SetLoggingOptionsResponse where
gen/Network/AWS/IoT/TransferCertificate.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.TransferCertificate--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -47,12 +47,12 @@ , tcrsResponseStatus ) 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+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 TransferCertificate operation. --@@ -60,11 +60,12 @@ -- -- /See:/ 'transferCertificate' smart constructor. data TransferCertificate = TransferCertificate'- { _tcTransferMessage :: !(Maybe Text)- , _tcCertificateId :: !Text- , _tcTargetAWSAccount :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _tcTransferMessage :: !(Maybe Text)+ , _tcCertificateId :: !Text+ , _tcTargetAWSAccount :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TransferCertificate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -79,12 +80,13 @@ -> Text -- ^ 'tcTargetAWSAccount' -> TransferCertificate transferCertificate pCertificateId_ pTargetAWSAccount_ =- TransferCertificate'- { _tcTransferMessage = Nothing- , _tcCertificateId = pCertificateId_- , _tcTargetAWSAccount = pTargetAWSAccount_- }+ TransferCertificate'+ { _tcTransferMessage = Nothing+ , _tcCertificateId = pCertificateId_+ , _tcTargetAWSAccount = pTargetAWSAccount_+ } + -- | The transfer message. tcTransferMessage :: Lens' TransferCertificate (Maybe Text) tcTransferMessage = lens _tcTransferMessage (\ s a -> s{_tcTransferMessage = a});@@ -108,9 +110,9 @@ (x .?> "transferredCertificateArn") <*> (pure (fromEnum s))) -instance Hashable TransferCertificate+instance Hashable TransferCertificate where -instance NFData TransferCertificate+instance NFData TransferCertificate where instance ToHeaders TransferCertificate where toHeaders = const mempty@@ -136,10 +138,11 @@ -- -- /See:/ 'transferCertificateResponse' smart constructor. data TransferCertificateResponse = TransferCertificateResponse'- { _tcrsTransferredCertificateARN :: !(Maybe Text)- , _tcrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _tcrsTransferredCertificateARN :: !(Maybe Text)+ , _tcrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TransferCertificateResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -151,11 +154,12 @@ :: Int -- ^ 'tcrsResponseStatus' -> TransferCertificateResponse transferCertificateResponse pResponseStatus_ =- TransferCertificateResponse'- { _tcrsTransferredCertificateARN = Nothing- , _tcrsResponseStatus = pResponseStatus_- }+ TransferCertificateResponse'+ { _tcrsTransferredCertificateARN = Nothing+ , _tcrsResponseStatus = pResponseStatus_+ } + -- | The ARN of the certificate. tcrsTransferredCertificateARN :: Lens' TransferCertificateResponse (Maybe Text) tcrsTransferredCertificateARN = lens _tcrsTransferredCertificateARN (\ s a -> s{_tcrsTransferredCertificateARN = a});@@ -164,4 +168,4 @@ tcrsResponseStatus :: Lens' TransferCertificateResponse Int tcrsResponseStatus = lens _tcrsResponseStatus (\ s a -> s{_tcrsResponseStatus = a}); -instance NFData TransferCertificateResponse+instance NFData TransferCertificateResponse where
gen/Network/AWS/IoT/Types.hs view
@@ -4,9 +4,9 @@ -- | -- Module : Network.AWS.IoT.Types--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -68,6 +68,7 @@ , aDynamoDB , aFirehose , aLambda+ , aSalesforce , aKinesis , aS3 , aElasticsearch@@ -248,6 +249,12 @@ , snsaTargetARN , snsaRoleARN + -- * SalesforceAction+ , SalesforceAction+ , salesforceAction+ , saToken+ , saUrl+ -- * SqsAction , SqsAction , sqsAction@@ -322,38 +329,40 @@ , tdRejectReason ) where -import Network.AWS.IoT.Types.Product-import Network.AWS.IoT.Types.Sum-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Sign.V4+import Network.AWS.IoT.Types.Product+import Network.AWS.IoT.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Sign.V4 -- | API version @2015-05-28@ of the Amazon IoT SDK configuration. ioT :: Service ioT =- Service- { _svcAbbrev = "IoT"- , _svcSigner = v4- , _svcPrefix = "iot"- , _svcVersion = "2015-05-28"- , _svcEndpoint = defaultEndpoint ioT- , _svcTimeout = Just 70- , _svcCheck = statusSuccess- , _svcError = parseJSONError "IoT"- , _svcRetry = retry- }+ Service+ { _svcAbbrev = "IoT"+ , _svcSigner = v4+ , _svcPrefix = "iot"+ , _svcVersion = "2015-05-28"+ , _svcEndpoint = defaultEndpoint ioT+ , _svcTimeout = Just 70+ , _svcCheck = statusSuccess+ , _svcError = parseJSONError "IoT"+ , _svcRetry = retry+ } where retry =- Exponential- { _retryBase = 5.0e-2- , _retryGrowth = 2- , _retryAttempts = 5- , _retryCheck = check- }+ Exponential+ { _retryBase = 5.0e-2+ , _retryGrowth = 2+ , _retryAttempts = 5+ , _retryCheck = check+ } check e+ | has (hasCode "ThrottledException" . hasStatus 400) e =+ Just "throttled_exception" | has (hasStatus 429) e = Just "too_many_requests" | has (hasCode "ThrottlingException" . hasStatus 400) e =- Just "throttling_exception"+ Just "throttling_exception" | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" | has (hasStatus 504) e = Just "gateway_timeout" | has (hasStatus 502) e = Just "bad_gateway"@@ -362,143 +371,161 @@ | has (hasStatus 509) e = Just "limit_exceeded" | 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"+ _MatchServiceError ioT "CertificateConflictException" . hasStatus 409 + -- | The Rule-SQL expression can't be parsed correctly. -- -- _SqlParseException :: AsError a => Getting (First ServiceError) a ServiceError-_SqlParseException =- _ServiceError . hasStatus 400 . hasCode "SqlParseException"+_SqlParseException = _MatchServiceError ioT "SqlParseException" . hasStatus 400 + -- | The request is not valid. -- -- _InvalidRequestException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidRequestException =- _ServiceError . hasStatus 400 . hasCode "InvalidRequestException"+ _MatchServiceError ioT "InvalidRequestException" . hasStatus 400 + -- | 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"+ _MatchServiceError ioT "TransferConflictException" . hasStatus 409 + -- | The certificate operation is not allowed. -- -- _CertificateStateException :: AsError a => Getting (First ServiceError) a ServiceError _CertificateStateException =- _ServiceError . hasStatus 406 . hasCode "CertificateStateException"+ _MatchServiceError ioT "CertificateStateException" . hasStatus 406 + -- | The registration code is invalid. -- -- _RegistrationCodeValidationException :: AsError a => Getting (First ServiceError) a ServiceError _RegistrationCodeValidationException =- _ServiceError .- hasStatus 400 . hasCode "RegistrationCodeValidationException"+ _MatchServiceError ioT "RegistrationCodeValidationException" . hasStatus 400 + -- | The policy documentation is not valid. -- -- _MalformedPolicyException :: AsError a => Getting (First ServiceError) a ServiceError _MalformedPolicyException =- _ServiceError . hasStatus 400 . hasCode "MalformedPolicyException"+ _MatchServiceError ioT "MalformedPolicyException" . hasStatus 400 + -- | 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"+ _MatchServiceError ioT "DeleteConflictException" . hasStatus 409 + -- | The resource already exists. -- -- _ResourceAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceAlreadyExistsException =- _ServiceError . hasStatus 409 . hasCode "ResourceAlreadyExistsException"+ _MatchServiceError ioT "ResourceAlreadyExistsException" . hasStatus 409 + -- | The certificate is invalid. -- -- _CertificateValidationException :: AsError a => Getting (First ServiceError) a ServiceError _CertificateValidationException =- _ServiceError . hasStatus 400 . hasCode "CertificateValidationException"+ _MatchServiceError ioT "CertificateValidationException" . hasStatus 400 + -- | 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"+ _MatchServiceError ioT "TransferAlreadyCompletedException" . hasStatus 410 + -- | The rate exceeds the limit. -- -- _ThrottlingException :: AsError a => Getting (First ServiceError) a ServiceError _ThrottlingException =- _ServiceError . hasStatus 429 . hasCode "ThrottlingException"+ _MatchServiceError ioT "ThrottlingException" . hasStatus 429 + -- | An unexpected error has occurred. -- -- _InternalFailureException :: AsError a => Getting (First ServiceError) a ServiceError _InternalFailureException =- _ServiceError . hasStatus 500 . hasCode "InternalFailureException"+ _MatchServiceError ioT "InternalFailureException" . hasStatus 500 + -- | The number of policy versions exceeds the limit. -- -- _VersionsLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _VersionsLimitExceededException =- _ServiceError . hasStatus 409 . hasCode "VersionsLimitExceededException"+ _MatchServiceError ioT "VersionsLimitExceededException" . hasStatus 409 + -- | The service is temporarily unavailable. -- -- _ServiceUnavailableException :: AsError a => Getting (First ServiceError) a ServiceError _ServiceUnavailableException =- _ServiceError . hasStatus 503 . hasCode "ServiceUnavailableException"+ _MatchServiceError ioT "ServiceUnavailableException" . hasStatus 503 + -- | An unexpected error has occurred. -- -- _InternalException :: AsError a => Getting (First ServiceError) a ServiceError-_InternalException =- _ServiceError . hasStatus 500 . hasCode "InternalException"+_InternalException = _MatchServiceError ioT "InternalException" . hasStatus 500 + -- | 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"+ _MatchServiceError ioT "VersionConflictException" . hasStatus 409 + -- | You are not authorized to perform this operation. -- -- _UnauthorizedException :: AsError a => Getting (First ServiceError) a ServiceError _UnauthorizedException =- _ServiceError . hasStatus 401 . hasCode "UnauthorizedException"+ _MatchServiceError ioT "UnauthorizedException" . hasStatus 401 + -- | The specified resource does not exist. -- -- _ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceNotFoundException =- _ServiceError . hasStatus 404 . hasCode "ResourceNotFoundException"+ _MatchServiceError ioT "ResourceNotFoundException" . hasStatus 404 + -- | The number of attached entities exceeds the limit. -- -- _LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _LimitExceededException =- _ServiceError . hasStatus 410 . hasCode "LimitExceededException"+ _MatchServiceError ioT "LimitExceededException" . hasStatus 410+
gen/Network/AWS/IoT/Types/Product.hs view
@@ -9,17 +9,17 @@ -- | -- Module : Network.AWS.IoT.Types.Product--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.IoT.Types.Product where -import Network.AWS.IoT.Types.Sum-import Network.AWS.Lens-import Network.AWS.Prelude+import Network.AWS.IoT.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude -- | Describes the actions associated with a rule. --@@ -27,20 +27,22 @@ -- -- /See:/ 'action' smart constructor. data Action = Action'- { _aCloudwatchMetric :: !(Maybe CloudwatchMetricAction)- , _aDynamoDBv2 :: !(Maybe DynamoDBv2Action)- , _aCloudwatchAlarm :: !(Maybe CloudwatchAlarmAction)- , _aSns :: !(Maybe SNSAction)- , _aDynamoDB :: !(Maybe DynamoDBAction)- , _aFirehose :: !(Maybe FirehoseAction)- , _aLambda :: !(Maybe LambdaAction)- , _aKinesis :: !(Maybe KinesisAction)- , _aS3 :: !(Maybe S3Action)- , _aElasticsearch :: !(Maybe ElasticsearchAction)- , _aRepublish :: !(Maybe RepublishAction)- , _aSqs :: !(Maybe SqsAction)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _aCloudwatchMetric :: !(Maybe CloudwatchMetricAction)+ , _aDynamoDBv2 :: !(Maybe DynamoDBv2Action)+ , _aCloudwatchAlarm :: !(Maybe CloudwatchAlarmAction)+ , _aSns :: !(Maybe SNSAction)+ , _aDynamoDB :: !(Maybe DynamoDBAction)+ , _aFirehose :: !(Maybe FirehoseAction)+ , _aLambda :: !(Maybe LambdaAction)+ , _aSalesforce :: !(Maybe SalesforceAction)+ , _aKinesis :: !(Maybe KinesisAction)+ , _aS3 :: !(Maybe S3Action)+ , _aElasticsearch :: !(Maybe ElasticsearchAction)+ , _aRepublish :: !(Maybe RepublishAction)+ , _aSqs :: !(Maybe SqsAction)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Action' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -59,6 +61,8 @@ -- -- * 'aLambda' - Invoke a Lambda function. --+-- * 'aSalesforce' - Send a message to a Salesforce IoT Cloud Input Stream.+-- -- * 'aKinesis' - Write data to an Amazon Kinesis stream. -- -- * 'aS3' - Write to an Amazon S3 bucket.@@ -71,21 +75,23 @@ action :: Action action =- Action'- { _aCloudwatchMetric = Nothing- , _aDynamoDBv2 = Nothing- , _aCloudwatchAlarm = Nothing- , _aSns = Nothing- , _aDynamoDB = Nothing- , _aFirehose = Nothing- , _aLambda = Nothing- , _aKinesis = Nothing- , _aS3 = Nothing- , _aElasticsearch = Nothing- , _aRepublish = Nothing- , _aSqs = Nothing- }+ Action'+ { _aCloudwatchMetric = Nothing+ , _aDynamoDBv2 = Nothing+ , _aCloudwatchAlarm = Nothing+ , _aSns = Nothing+ , _aDynamoDB = Nothing+ , _aFirehose = Nothing+ , _aLambda = Nothing+ , _aSalesforce = Nothing+ , _aKinesis = Nothing+ , _aS3 = Nothing+ , _aElasticsearch = Nothing+ , _aRepublish = Nothing+ , _aSqs = Nothing+ } + -- | Capture a CloudWatch metric. aCloudwatchMetric :: Lens' Action (Maybe CloudwatchMetricAction) aCloudwatchMetric = lens _aCloudwatchMetric (\ s a -> s{_aCloudwatchMetric = a});@@ -114,6 +120,10 @@ aLambda :: Lens' Action (Maybe LambdaAction) aLambda = lens _aLambda (\ s a -> s{_aLambda = a}); +-- | Send a message to a Salesforce IoT Cloud Input Stream.+aSalesforce :: Lens' Action (Maybe SalesforceAction)+aSalesforce = lens _aSalesforce (\ s a -> s{_aSalesforce = a});+ -- | Write data to an Amazon Kinesis stream. aKinesis :: Lens' Action (Maybe KinesisAction) aKinesis = lens _aKinesis (\ s a -> s{_aKinesis = a});@@ -145,15 +155,16 @@ <*> (x .:? "dynamoDB") <*> (x .:? "firehose") <*> (x .:? "lambda")+ <*> (x .:? "salesforce") <*> (x .:? "kinesis") <*> (x .:? "s3") <*> (x .:? "elasticsearch") <*> (x .:? "republish") <*> (x .:? "sqs")) -instance Hashable Action+instance Hashable Action where -instance NFData Action+instance NFData Action where instance ToJSON Action where toJSON Action'{..}@@ -165,6 +176,7 @@ ("sns" .=) <$> _aSns, ("dynamoDB" .=) <$> _aDynamoDB, ("firehose" .=) <$> _aFirehose, ("lambda" .=) <$> _aLambda,+ ("salesforce" .=) <$> _aSalesforce, ("kinesis" .=) <$> _aKinesis, ("s3" .=) <$> _aS3, ("elasticsearch" .=) <$> _aElasticsearch, ("republish" .=) <$> _aRepublish,@@ -176,26 +188,25 @@ -- -- /See:/ 'attributePayload' smart constructor. data AttributePayload = AttributePayload'- { _apAttributes :: !(Maybe (Map Text Text))- , _apMerge :: !(Maybe Bool)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _apAttributes :: !(Maybe (Map Text Text))+ , _apMerge :: !(Maybe Bool)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AttributePayload' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'apAttributes' - A JSON string containing up to three key-value pair in JSON format. For example: @{\"attributes\":{\"string1\":\"string2\"}})@+-- * 'apAttributes' - A JSON string containing up to three key-value pair in JSON format. For example: @{\"attributes\":{\"string1\":\"string2\"}}@ -- -- * '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 =- AttributePayload'- { _apAttributes = Nothing- , _apMerge = Nothing- }+ AttributePayload' {_apAttributes = Nothing, _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; @@ -203,9 +214,9 @@ apMerge :: Lens' AttributePayload (Maybe Bool) apMerge = lens _apMerge (\ s a -> s{_apMerge = a}); -instance Hashable AttributePayload+instance Hashable AttributePayload where -instance NFData AttributePayload+instance NFData AttributePayload where instance ToJSON AttributePayload where toJSON AttributePayload'{..}@@ -220,17 +231,18 @@ -- -- /See:/ 'cACertificate' smart constructor. data CACertificate = CACertificate'- { _cacStatus :: !(Maybe CACertificateStatus)- , _cacCertificateARN :: !(Maybe Text)- , _cacCertificateId :: !(Maybe Text)- , _cacCreationDate :: !(Maybe POSIX)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cacStatus :: !(Maybe CACertificateStatus)+ , _cacCertificateARN :: !(Maybe Text)+ , _cacCertificateId :: !(Maybe Text)+ , _cacCreationDate :: !(Maybe POSIX)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CACertificate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cacStatus' - The status of the CA certificate. The status value REGISTER_INACTIVE is deprecated and should not be used.+-- * 'cacStatus' - The status of the CA certificate. The status value REGISTER_INACTIVE is deprecated and should not be used. -- -- * 'cacCertificateARN' - The ARN of the CA certificate. --@@ -240,14 +252,15 @@ cACertificate :: CACertificate cACertificate =- CACertificate'- { _cacStatus = Nothing- , _cacCertificateARN = Nothing- , _cacCertificateId = Nothing- , _cacCreationDate = Nothing- }+ CACertificate'+ { _cacStatus = Nothing+ , _cacCertificateARN = Nothing+ , _cacCertificateId = Nothing+ , _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}); @@ -272,9 +285,9 @@ (x .:? "certificateId") <*> (x .:? "creationDate")) -instance Hashable CACertificate+instance Hashable CACertificate where -instance NFData CACertificate+instance NFData CACertificate where -- | Describes a CA certificate. --@@ -282,15 +295,16 @@ -- -- /See:/ 'cACertificateDescription' smart constructor. data CACertificateDescription = CACertificateDescription'- { _cacdStatus :: !(Maybe CACertificateStatus)- , _cacdOwnedBy :: !(Maybe Text)- , _cacdCertificatePem :: !(Maybe Text)- , _cacdCertificateARN :: !(Maybe Text)- , _cacdCertificateId :: !(Maybe Text)- , _cacdAutoRegistrationStatus :: !(Maybe AutoRegistrationStatus)- , _cacdCreationDate :: !(Maybe POSIX)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cacdStatus :: !(Maybe CACertificateStatus)+ , _cacdOwnedBy :: !(Maybe Text)+ , _cacdCertificatePem :: !(Maybe Text)+ , _cacdCertificateARN :: !(Maybe Text)+ , _cacdCertificateId :: !(Maybe Text)+ , _cacdAutoRegistrationStatus :: !(Maybe AutoRegistrationStatus)+ , _cacdCreationDate :: !(Maybe POSIX)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CACertificateDescription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -311,16 +325,17 @@ cACertificateDescription :: CACertificateDescription cACertificateDescription =- CACertificateDescription'- { _cacdStatus = Nothing- , _cacdOwnedBy = Nothing- , _cacdCertificatePem = Nothing- , _cacdCertificateARN = Nothing- , _cacdCertificateId = Nothing- , _cacdAutoRegistrationStatus = Nothing- , _cacdCreationDate = Nothing- }+ CACertificateDescription'+ { _cacdStatus = Nothing+ , _cacdOwnedBy = Nothing+ , _cacdCertificatePem = Nothing+ , _cacdCertificateARN = Nothing+ , _cacdCertificateId = Nothing+ , _cacdAutoRegistrationStatus = Nothing+ , _cacdCreationDate = Nothing+ } + -- | The status of a CA certificate. cacdStatus :: Lens' CACertificateDescription (Maybe CACertificateStatus) cacdStatus = lens _cacdStatus (\ s a -> s{_cacdStatus = a});@@ -361,9 +376,9 @@ <*> (x .:? "autoRegistrationStatus") <*> (x .:? "creationDate")) -instance Hashable CACertificateDescription+instance Hashable CACertificateDescription where -instance NFData CACertificateDescription+instance NFData CACertificateDescription where -- | Information about a certificate. --@@ -371,12 +386,13 @@ -- -- /See:/ 'certificate' smart constructor. data Certificate = Certificate'- { _cStatus :: !(Maybe CertificateStatus)- , _cCertificateARN :: !(Maybe Text)- , _cCertificateId :: !(Maybe Text)- , _cCreationDate :: !(Maybe POSIX)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cStatus :: !(Maybe CertificateStatus)+ , _cCertificateARN :: !(Maybe Text)+ , _cCertificateId :: !(Maybe Text)+ , _cCreationDate :: !(Maybe POSIX)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Certificate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -391,13 +407,14 @@ certificate :: Certificate certificate =- Certificate'- { _cStatus = Nothing- , _cCertificateARN = Nothing- , _cCertificateId = Nothing- , _cCreationDate = Nothing- }+ Certificate'+ { _cStatus = Nothing+ , _cCertificateARN = Nothing+ , _cCertificateId = Nothing+ , _cCreationDate = Nothing+ } + -- | 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});@@ -423,9 +440,9 @@ (x .:? "certificateId") <*> (x .:? "creationDate")) -instance Hashable Certificate+instance Hashable Certificate where -instance NFData Certificate+instance NFData Certificate where -- | Describes a certificate. --@@ -433,18 +450,19 @@ -- -- /See:/ 'certificateDescription' smart constructor. data CertificateDescription = CertificateDescription'- { _cdStatus :: !(Maybe CertificateStatus)- , _cdOwnedBy :: !(Maybe Text)- , _cdLastModifiedDate :: !(Maybe POSIX)- , _cdCaCertificateId :: !(Maybe Text)- , _cdPreviousOwnedBy :: !(Maybe Text)- , _cdCertificatePem :: !(Maybe Text)- , _cdCertificateARN :: !(Maybe Text)- , _cdCertificateId :: !(Maybe Text)- , _cdCreationDate :: !(Maybe POSIX)- , _cdTransferData :: !(Maybe TransferData)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cdStatus :: !(Maybe CertificateStatus)+ , _cdOwnedBy :: !(Maybe Text)+ , _cdLastModifiedDate :: !(Maybe POSIX)+ , _cdCaCertificateId :: !(Maybe Text)+ , _cdPreviousOwnedBy :: !(Maybe Text)+ , _cdCertificatePem :: !(Maybe Text)+ , _cdCertificateARN :: !(Maybe Text)+ , _cdCertificateId :: !(Maybe Text)+ , _cdCreationDate :: !(Maybe POSIX)+ , _cdTransferData :: !(Maybe TransferData)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CertificateDescription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -471,19 +489,20 @@ certificateDescription :: CertificateDescription certificateDescription =- CertificateDescription'- { _cdStatus = Nothing- , _cdOwnedBy = Nothing- , _cdLastModifiedDate = Nothing- , _cdCaCertificateId = Nothing- , _cdPreviousOwnedBy = Nothing- , _cdCertificatePem = Nothing- , _cdCertificateARN = Nothing- , _cdCertificateId = Nothing- , _cdCreationDate = Nothing- , _cdTransferData = Nothing- }+ CertificateDescription'+ { _cdStatus = Nothing+ , _cdOwnedBy = Nothing+ , _cdLastModifiedDate = Nothing+ , _cdCaCertificateId = Nothing+ , _cdPreviousOwnedBy = Nothing+ , _cdCertificatePem = Nothing+ , _cdCertificateARN = Nothing+ , _cdCertificateId = Nothing+ , _cdCreationDate = Nothing+ , _cdTransferData = Nothing+ } + -- | The status of the certificate. cdStatus :: Lens' CertificateDescription (Maybe CertificateStatus) cdStatus = lens _cdStatus (\ s a -> s{_cdStatus = a});@@ -539,9 +558,9 @@ <*> (x .:? "creationDate") <*> (x .:? "transferData")) -instance Hashable CertificateDescription+instance Hashable CertificateDescription where -instance NFData CertificateDescription+instance NFData CertificateDescription where -- | Describes an action that updates a CloudWatch alarm. --@@ -549,12 +568,13 @@ -- -- /See:/ 'cloudwatchAlarmAction' smart constructor. data CloudwatchAlarmAction = CloudwatchAlarmAction'- { _caaRoleARN :: !Text- , _caaAlarmName :: !Text- , _caaStateReason :: !Text- , _caaStateValue :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _caaRoleARN :: !Text+ , _caaAlarmName :: !Text+ , _caaStateReason :: !Text+ , _caaStateValue :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CloudwatchAlarmAction' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -573,13 +593,14 @@ -> Text -- ^ 'caaStateValue' -> CloudwatchAlarmAction cloudwatchAlarmAction pRoleARN_ pAlarmName_ pStateReason_ pStateValue_ =- CloudwatchAlarmAction'- { _caaRoleARN = pRoleARN_- , _caaAlarmName = pAlarmName_- , _caaStateReason = pStateReason_- , _caaStateValue = pStateValue_- }+ CloudwatchAlarmAction'+ { _caaRoleARN = pRoleARN_+ , _caaAlarmName = pAlarmName_+ , _caaStateReason = pStateReason_+ , _caaStateValue = pStateValue_+ } + -- | The IAM role that allows access to the CloudWatch alarm. caaRoleARN :: Lens' CloudwatchAlarmAction Text caaRoleARN = lens _caaRoleARN (\ s a -> s{_caaRoleARN = a});@@ -605,9 +626,9 @@ (x .: "stateReason") <*> (x .: "stateValue")) -instance Hashable CloudwatchAlarmAction+instance Hashable CloudwatchAlarmAction where -instance NFData CloudwatchAlarmAction+instance NFData CloudwatchAlarmAction where instance ToJSON CloudwatchAlarmAction where toJSON CloudwatchAlarmAction'{..}@@ -624,14 +645,15 @@ -- -- /See:/ 'cloudwatchMetricAction' smart constructor. data CloudwatchMetricAction = CloudwatchMetricAction'- { _cmaMetricTimestamp :: !(Maybe Text)- , _cmaRoleARN :: !Text- , _cmaMetricNamespace :: !Text- , _cmaMetricName :: !Text- , _cmaMetricValue :: !Text- , _cmaMetricUnit :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cmaMetricTimestamp :: !(Maybe Text)+ , _cmaRoleARN :: !Text+ , _cmaMetricNamespace :: !Text+ , _cmaMetricName :: !Text+ , _cmaMetricValue :: !Text+ , _cmaMetricUnit :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CloudwatchMetricAction' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -655,15 +677,16 @@ -> Text -- ^ 'cmaMetricUnit' -> CloudwatchMetricAction cloudwatchMetricAction pRoleARN_ pMetricNamespace_ pMetricName_ pMetricValue_ pMetricUnit_ =- CloudwatchMetricAction'- { _cmaMetricTimestamp = Nothing- , _cmaRoleARN = pRoleARN_- , _cmaMetricNamespace = pMetricNamespace_- , _cmaMetricName = pMetricName_- , _cmaMetricValue = pMetricValue_- , _cmaMetricUnit = pMetricUnit_- }+ CloudwatchMetricAction'+ { _cmaMetricTimestamp = Nothing+ , _cmaRoleARN = pRoleARN_+ , _cmaMetricNamespace = pMetricNamespace_+ , _cmaMetricName = pMetricName_+ , _cmaMetricValue = pMetricValue_+ , _cmaMetricUnit = pMetricUnit_+ } + -- | 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});@@ -699,9 +722,9 @@ <*> (x .: "metricValue") <*> (x .: "metricUnit")) -instance Hashable CloudwatchMetricAction+instance Hashable CloudwatchMetricAction where -instance NFData CloudwatchMetricAction+instance NFData CloudwatchMetricAction where instance ToJSON CloudwatchMetricAction where toJSON CloudwatchMetricAction'{..}@@ -732,18 +755,19 @@ -- -- /See:/ 'dynamoDBAction' smart constructor. data DynamoDBAction = DynamoDBAction'- { _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)+ { _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:@@ -774,19 +798,20 @@ -> Text -- ^ 'ddbaHashKeyValue' -> DynamoDBAction dynamoDBAction pTableName_ pRoleARN_ pHashKeyField_ pHashKeyValue_ =- DynamoDBAction'- { _ddbaHashKeyType = Nothing- , _ddbaOperation = Nothing- , _ddbaRangeKeyType = Nothing- , _ddbaPayloadField = Nothing- , _ddbaRangeKeyField = Nothing- , _ddbaRangeKeyValue = Nothing- , _ddbaTableName = pTableName_- , _ddbaRoleARN = pRoleARN_- , _ddbaHashKeyField = pHashKeyField_- , _ddbaHashKeyValue = pHashKeyValue_- }+ DynamoDBAction'+ { _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" ddbaHashKeyType :: Lens' DynamoDBAction (Maybe DynamoKeyType) ddbaHashKeyType = lens _ddbaHashKeyType (\ s a -> s{_ddbaHashKeyType = a});@@ -842,9 +867,9 @@ <*> (x .: "hashKeyField") <*> (x .: "hashKeyValue")) -instance Hashable DynamoDBAction+instance Hashable DynamoDBAction where -instance NFData DynamoDBAction+instance NFData DynamoDBAction where instance ToJSON DynamoDBAction where toJSON DynamoDBAction'{..}@@ -869,10 +894,11 @@ -- -- /See:/ 'dynamoDBv2Action' smart constructor. data DynamoDBv2Action = DynamoDBv2Action'- { _ddaPutItem :: !(Maybe PutItemInput)- , _ddaRoleARN :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _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:@@ -883,11 +909,9 @@ dynamoDBv2Action :: DynamoDBv2Action dynamoDBv2Action =- DynamoDBv2Action'- { _ddaPutItem = Nothing- , _ddaRoleARN = Nothing- }+ 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});@@ -903,9 +927,9 @@ DynamoDBv2Action' <$> (x .:? "putItem") <*> (x .:? "roleArn")) -instance Hashable DynamoDBv2Action+instance Hashable DynamoDBv2Action where -instance NFData DynamoDBv2Action+instance NFData DynamoDBv2Action where instance ToJSON DynamoDBv2Action where toJSON DynamoDBv2Action'{..}@@ -920,13 +944,14 @@ -- -- /See:/ 'elasticsearchAction' smart constructor. data ElasticsearchAction = ElasticsearchAction'- { _eaRoleARN :: !Text- , _eaEndpoint :: !Text- , _eaIndex :: !Text- , _eaType :: !Text- , _eaId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _eaRoleARN :: !Text+ , _eaEndpoint :: !Text+ , _eaIndex :: !Text+ , _eaType :: !Text+ , _eaId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ElasticsearchAction' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -948,14 +973,15 @@ -> Text -- ^ 'eaId' -> ElasticsearchAction elasticsearchAction pRoleARN_ pEndpoint_ pIndex_ pType_ pId_ =- ElasticsearchAction'- { _eaRoleARN = pRoleARN_- , _eaEndpoint = pEndpoint_- , _eaIndex = pIndex_- , _eaType = pType_- , _eaId = pId_- }+ ElasticsearchAction'+ { _eaRoleARN = pRoleARN_+ , _eaEndpoint = pEndpoint_+ , _eaIndex = pIndex_+ , _eaType = pType_+ , _eaId = pId_+ } + -- | The IAM role ARN that has access to Elasticsearch. eaRoleARN :: Lens' ElasticsearchAction Text eaRoleARN = lens _eaRoleARN (\ s a -> s{_eaRoleARN = a});@@ -986,9 +1012,9 @@ <*> (x .: "type") <*> (x .: "id")) -instance Hashable ElasticsearchAction+instance Hashable ElasticsearchAction where -instance NFData ElasticsearchAction+instance NFData ElasticsearchAction where instance ToJSON ElasticsearchAction where toJSON ElasticsearchAction'{..}@@ -1005,11 +1031,12 @@ -- -- /See:/ 'firehoseAction' smart constructor. data FirehoseAction = FirehoseAction'- { _faSeparator :: !(Maybe Text)- , _faRoleARN :: !Text- , _faDeliveryStreamName :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _faSeparator :: !(Maybe Text)+ , _faRoleARN :: !Text+ , _faDeliveryStreamName :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'FirehoseAction' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1024,12 +1051,13 @@ -> Text -- ^ 'faDeliveryStreamName' -> FirehoseAction firehoseAction pRoleARN_ pDeliveryStreamName_ =- FirehoseAction'- { _faSeparator = Nothing- , _faRoleARN = pRoleARN_- , _faDeliveryStreamName = pDeliveryStreamName_- }+ FirehoseAction'+ { _faSeparator = Nothing+ , _faRoleARN = pRoleARN_+ , _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). faSeparator :: Lens' FirehoseAction (Maybe Text) faSeparator = lens _faSeparator (\ s a -> s{_faSeparator = a});@@ -1050,9 +1078,9 @@ (x .:? "separator") <*> (x .: "roleArn") <*> (x .: "deliveryStreamName")) -instance Hashable FirehoseAction+instance Hashable FirehoseAction where -instance NFData FirehoseAction+instance NFData FirehoseAction where instance ToJSON FirehoseAction where toJSON FirehoseAction'{..}@@ -1069,10 +1097,11 @@ -- -- /See:/ 'keyPair' smart constructor. data KeyPair = KeyPair'- { _kpPrivateKey :: !(Maybe (Sensitive Text))- , _kpPublicKey :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _kpPrivateKey :: !(Maybe (Sensitive Text))+ , _kpPublicKey :: !(Maybe Text)+ } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'KeyPair' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1082,12 +1111,9 @@ -- * 'kpPublicKey' - The public key. keyPair :: KeyPair-keyPair =- KeyPair'- { _kpPrivateKey = Nothing- , _kpPublicKey = Nothing- }+keyPair = KeyPair' {_kpPrivateKey = Nothing, _kpPublicKey = Nothing} + -- | The private key. kpPrivateKey :: Lens' KeyPair (Maybe Text) kpPrivateKey = lens _kpPrivateKey (\ s a -> s{_kpPrivateKey = a}) . mapping _Sensitive;@@ -1103,9 +1129,9 @@ KeyPair' <$> (x .:? "PrivateKey") <*> (x .:? "PublicKey")) -instance Hashable KeyPair+instance Hashable KeyPair where -instance NFData KeyPair+instance NFData KeyPair where -- | Describes an action to write data to an Amazon Kinesis stream. --@@ -1113,11 +1139,12 @@ -- -- /See:/ 'kinesisAction' smart constructor. data KinesisAction = KinesisAction'- { _kaPartitionKey :: !(Maybe Text)- , _kaRoleARN :: !Text- , _kaStreamName :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _kaPartitionKey :: !(Maybe Text)+ , _kaRoleARN :: !Text+ , _kaStreamName :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'KinesisAction' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1132,12 +1159,13 @@ -> Text -- ^ 'kaStreamName' -> KinesisAction kinesisAction pRoleARN_ pStreamName_ =- KinesisAction'- { _kaPartitionKey = Nothing- , _kaRoleARN = pRoleARN_- , _kaStreamName = pStreamName_- }+ KinesisAction'+ { _kaPartitionKey = Nothing+ , _kaRoleARN = pRoleARN_+ , _kaStreamName = pStreamName_+ } + -- | The partition key. kaPartitionKey :: Lens' KinesisAction (Maybe Text) kaPartitionKey = lens _kaPartitionKey (\ s a -> s{_kaPartitionKey = a});@@ -1158,9 +1186,9 @@ (x .:? "partitionKey") <*> (x .: "roleArn") <*> (x .: "streamName")) -instance Hashable KinesisAction+instance Hashable KinesisAction where -instance NFData KinesisAction+instance NFData KinesisAction where instance ToJSON KinesisAction where toJSON KinesisAction'{..}@@ -1176,9 +1204,10 @@ -- -- /See:/ 'lambdaAction' smart constructor. newtype LambdaAction = LambdaAction'- { _laFunctionARN :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _laFunctionARN :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'LambdaAction' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1187,11 +1216,9 @@ lambdaAction :: Text -- ^ 'laFunctionARN' -> LambdaAction-lambdaAction pFunctionARN_ =- LambdaAction'- { _laFunctionARN = pFunctionARN_- }+lambdaAction pFunctionARN_ = LambdaAction' {_laFunctionARN = pFunctionARN_} + -- | The ARN of the Lambda function. laFunctionARN :: Lens' LambdaAction Text laFunctionARN = lens _laFunctionARN (\ s a -> s{_laFunctionARN = a});@@ -1201,9 +1228,9 @@ = withObject "LambdaAction" (\ x -> LambdaAction' <$> (x .: "functionArn")) -instance Hashable LambdaAction+instance Hashable LambdaAction where -instance NFData LambdaAction+instance NFData LambdaAction where instance ToJSON LambdaAction where toJSON LambdaAction'{..}@@ -1216,10 +1243,11 @@ -- -- /See:/ 'loggingOptionsPayload' smart constructor. data LoggingOptionsPayload = LoggingOptionsPayload'- { _lopLogLevel :: !(Maybe LogLevel)- , _lopRoleARN :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lopLogLevel :: !(Maybe LogLevel)+ , _lopRoleARN :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'LoggingOptionsPayload' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1231,11 +1259,9 @@ :: Text -- ^ 'lopRoleARN' -> LoggingOptionsPayload loggingOptionsPayload pRoleARN_ =- LoggingOptionsPayload'- { _lopLogLevel = Nothing- , _lopRoleARN = pRoleARN_- }+ LoggingOptionsPayload' {_lopLogLevel = Nothing, _lopRoleARN = pRoleARN_} + -- | The logging level. lopLogLevel :: Lens' LoggingOptionsPayload (Maybe LogLevel) lopLogLevel = lens _lopLogLevel (\ s a -> s{_lopLogLevel = a});@@ -1244,9 +1270,9 @@ lopRoleARN :: Lens' LoggingOptionsPayload Text lopRoleARN = lens _lopRoleARN (\ s a -> s{_lopRoleARN = a}); -instance Hashable LoggingOptionsPayload+instance Hashable LoggingOptionsPayload where -instance NFData LoggingOptionsPayload+instance NFData LoggingOptionsPayload where instance ToJSON LoggingOptionsPayload where toJSON LoggingOptionsPayload'{..}@@ -1261,14 +1287,15 @@ -- -- /See:/ 'outgoingCertificate' smart constructor. data OutgoingCertificate = OutgoingCertificate'- { _ocTransferDate :: !(Maybe POSIX)- , _ocCertificateARN :: !(Maybe Text)- , _ocCertificateId :: !(Maybe Text)- , _ocTransferredTo :: !(Maybe Text)- , _ocCreationDate :: !(Maybe POSIX)- , _ocTransferMessage :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ocTransferDate :: !(Maybe POSIX)+ , _ocCertificateARN :: !(Maybe Text)+ , _ocCertificateId :: !(Maybe Text)+ , _ocTransferredTo :: !(Maybe Text)+ , _ocCreationDate :: !(Maybe POSIX)+ , _ocTransferMessage :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'OutgoingCertificate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1287,15 +1314,16 @@ outgoingCertificate :: OutgoingCertificate outgoingCertificate =- OutgoingCertificate'- { _ocTransferDate = Nothing- , _ocCertificateARN = Nothing- , _ocCertificateId = Nothing- , _ocTransferredTo = Nothing- , _ocCreationDate = Nothing- , _ocTransferMessage = Nothing- }+ OutgoingCertificate'+ { _ocTransferDate = Nothing+ , _ocCertificateARN = Nothing+ , _ocCertificateId = Nothing+ , _ocTransferredTo = Nothing+ , _ocCreationDate = Nothing+ , _ocTransferMessage = Nothing+ } + -- | The date the transfer was initiated. ocTransferDate :: Lens' OutgoingCertificate (Maybe UTCTime) ocTransferDate = lens _ocTransferDate (\ s a -> s{_ocTransferDate = a}) . mapping _Time;@@ -1331,9 +1359,9 @@ <*> (x .:? "creationDate") <*> (x .:? "transferMessage")) -instance Hashable OutgoingCertificate+instance Hashable OutgoingCertificate where -instance NFData OutgoingCertificate+instance NFData OutgoingCertificate where -- | Describes an AWS IoT policy. --@@ -1341,10 +1369,11 @@ -- -- /See:/ 'policy' smart constructor. data Policy = Policy'- { _pPolicyName :: !(Maybe Text)- , _pPolicyARN :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _pPolicyName :: !(Maybe Text)+ , _pPolicyARN :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Policy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1354,12 +1383,9 @@ -- * 'pPolicyARN' - The policy ARN. policy :: Policy-policy =- Policy'- { _pPolicyName = Nothing- , _pPolicyARN = Nothing- }+policy = Policy' {_pPolicyName = Nothing, _pPolicyARN = Nothing} + -- | The policy name. pPolicyName :: Lens' Policy (Maybe Text) pPolicyName = lens _pPolicyName (\ s a -> s{_pPolicyName = a});@@ -1375,9 +1401,9 @@ Policy' <$> (x .:? "policyName") <*> (x .:? "policyArn")) -instance Hashable Policy+instance Hashable Policy where -instance NFData Policy+instance NFData Policy where -- | Describes a policy version. --@@ -1385,11 +1411,12 @@ -- -- /See:/ 'policyVersion' smart constructor. data PolicyVersion = PolicyVersion'- { _pvVersionId :: !(Maybe Text)- , _pvCreateDate :: !(Maybe POSIX)- , _pvIsDefaultVersion :: !(Maybe Bool)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _pvVersionId :: !(Maybe Text)+ , _pvCreateDate :: !(Maybe POSIX)+ , _pvIsDefaultVersion :: !(Maybe Bool)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PolicyVersion' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1402,12 +1429,13 @@ policyVersion :: PolicyVersion policyVersion =- PolicyVersion'- { _pvVersionId = Nothing- , _pvCreateDate = Nothing- , _pvIsDefaultVersion = Nothing- }+ PolicyVersion'+ { _pvVersionId = Nothing+ , _pvCreateDate = Nothing+ , _pvIsDefaultVersion = Nothing+ } + -- | The policy version ID. pvVersionId :: Lens' PolicyVersion (Maybe Text) pvVersionId = lens _pvVersionId (\ s a -> s{_pvVersionId = a});@@ -1428,9 +1456,9 @@ (x .:? "versionId") <*> (x .:? "createDate") <*> (x .:? "isDefaultVersion")) -instance Hashable PolicyVersion+instance Hashable PolicyVersion where -instance NFData PolicyVersion+instance NFData PolicyVersion where -- | The input for the DynamoActionVS action that specifies the DynamoDB table to which the message data will be written. --@@ -1438,9 +1466,10 @@ -- -- /See:/ 'putItemInput' smart constructor. newtype PutItemInput = PutItemInput'- { _piiTableName :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _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:@@ -1449,11 +1478,9 @@ putItemInput :: Text -- ^ 'piiTableName' -> PutItemInput-putItemInput pTableName_ =- PutItemInput'- { _piiTableName = pTableName_- }+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});@@ -1463,9 +1490,9 @@ = withObject "PutItemInput" (\ x -> PutItemInput' <$> (x .: "tableName")) -instance Hashable PutItemInput+instance Hashable PutItemInput where -instance NFData PutItemInput+instance NFData PutItemInput where instance ToJSON PutItemInput where toJSON PutItemInput'{..}@@ -1478,10 +1505,11 @@ -- -- /See:/ 'republishAction' smart constructor. data RepublishAction = RepublishAction'- { _raRoleARN :: !Text- , _raTopic :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _raRoleARN :: !Text+ , _raTopic :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RepublishAction' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1494,11 +1522,9 @@ -> Text -- ^ 'raTopic' -> RepublishAction republishAction pRoleARN_ pTopic_ =- RepublishAction'- { _raRoleARN = pRoleARN_- , _raTopic = pTopic_- }+ RepublishAction' {_raRoleARN = pRoleARN_, _raTopic = pTopic_} + -- | The ARN of the IAM role that grants access. raRoleARN :: Lens' RepublishAction Text raRoleARN = lens _raRoleARN (\ s a -> s{_raRoleARN = a});@@ -1514,9 +1540,9 @@ RepublishAction' <$> (x .: "roleArn") <*> (x .: "topic")) -instance Hashable RepublishAction+instance Hashable RepublishAction where -instance NFData RepublishAction+instance NFData RepublishAction where instance ToJSON RepublishAction where toJSON RepublishAction'{..}@@ -1531,12 +1557,13 @@ -- -- /See:/ 's3Action' smart constructor. data S3Action = S3Action'- { _sCannedACL :: !(Maybe CannedAccessControlList)- , _sRoleARN :: !Text- , _sBucketName :: !Text- , _sKey :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _sCannedACL :: !(Maybe CannedAccessControlList)+ , _sRoleARN :: !Text+ , _sBucketName :: !Text+ , _sKey :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'S3Action' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1554,13 +1581,14 @@ -> Text -- ^ 'sKey' -> S3Action s3Action pRoleARN_ pBucketName_ pKey_ =- S3Action'- { _sCannedACL = Nothing- , _sRoleARN = pRoleARN_- , _sBucketName = pBucketName_- , _sKey = pKey_- }+ S3Action'+ { _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});@@ -1586,9 +1614,9 @@ (x .: "bucketName") <*> (x .: "key")) -instance Hashable S3Action+instance Hashable S3Action where -instance NFData S3Action+instance NFData S3Action where instance ToJSON S3Action where toJSON S3Action'{..}@@ -1605,16 +1633,17 @@ -- -- /See:/ 'snsAction' smart constructor. data SNSAction = SNSAction'- { _snsaMessageFormat :: !(Maybe MessageFormat)- , _snsaTargetARN :: !Text- , _snsaRoleARN :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _snsaMessageFormat :: !(Maybe MessageFormat)+ , _snsaTargetARN :: !Text+ , _snsaRoleARN :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SNSAction' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * '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.+-- * '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 http://docs.aws.amazon.com/sns/latest/dg/json-formats.html> refer to their official documentation. -- -- * 'snsaTargetARN' - The ARN of the SNS topic. --@@ -1624,13 +1653,14 @@ -> Text -- ^ 'snsaRoleARN' -> SNSAction snsAction pTargetARN_ pRoleARN_ =- SNSAction'- { _snsaMessageFormat = Nothing- , _snsaTargetARN = pTargetARN_- , _snsaRoleARN = pRoleARN_- }+ SNSAction'+ { _snsaMessageFormat = Nothing+ , _snsaTargetARN = pTargetARN_+ , _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 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}); @@ -1650,9 +1680,9 @@ (x .:? "messageFormat") <*> (x .: "targetArn") <*> (x .: "roleArn")) -instance Hashable SNSAction+instance Hashable SNSAction where -instance NFData SNSAction+instance NFData SNSAction where instance ToJSON SNSAction where toJSON SNSAction'{..}@@ -1662,17 +1692,69 @@ Just ("targetArn" .= _snsaTargetARN), Just ("roleArn" .= _snsaRoleARN)]) +-- | Describes an action to write a message to a Salesforce IoT Cloud Input Stream.+--+--+--+-- /See:/ 'salesforceAction' smart constructor.+data SalesforceAction = SalesforceAction'+ { _saToken :: !Text+ , _saUrl :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'SalesforceAction' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'saToken' - The token used to authenticate access to the Salesforce IoT Cloud Input Stream. The token is available from the Salesforce IoT Cloud platform after creation of the Input Stream.+--+-- * 'saUrl' - The URL exposed by the Salesforce IoT Cloud Input Stream. The URL is available from the Salesforce IoT Cloud platform after creation of the Input Stream.+salesforceAction+ :: Text -- ^ 'saToken'+ -> Text -- ^ 'saUrl'+ -> SalesforceAction+salesforceAction pToken_ pUrl_ =+ SalesforceAction' {_saToken = pToken_, _saUrl = pUrl_}+++-- | The token used to authenticate access to the Salesforce IoT Cloud Input Stream. The token is available from the Salesforce IoT Cloud platform after creation of the Input Stream.+saToken :: Lens' SalesforceAction Text+saToken = lens _saToken (\ s a -> s{_saToken = a});++-- | The URL exposed by the Salesforce IoT Cloud Input Stream. The URL is available from the Salesforce IoT Cloud platform after creation of the Input Stream.+saUrl :: Lens' SalesforceAction Text+saUrl = lens _saUrl (\ s a -> s{_saUrl = a});++instance FromJSON SalesforceAction where+ parseJSON+ = withObject "SalesforceAction"+ (\ x ->+ SalesforceAction' <$>+ (x .: "token") <*> (x .: "url"))++instance Hashable SalesforceAction where++instance NFData SalesforceAction where++instance ToJSON SalesforceAction where+ toJSON SalesforceAction'{..}+ = object+ (catMaybes+ [Just ("token" .= _saToken), Just ("url" .= _saUrl)])+ -- | Describes an action to publish data to an Amazon SQS queue. -- -- -- -- /See:/ 'sqsAction' smart constructor. data SqsAction = SqsAction'- { _saUseBase64 :: !(Maybe Bool)- , _saRoleARN :: !Text- , _saQueueURL :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _saUseBase64 :: !(Maybe Bool)+ , _saRoleARN :: !Text+ , _saQueueURL :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SqsAction' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1687,12 +1769,10 @@ -> Text -- ^ 'saQueueURL' -> SqsAction sqsAction pRoleARN_ pQueueURL_ =- SqsAction'- { _saUseBase64 = Nothing- , _saRoleARN = pRoleARN_- , _saQueueURL = pQueueURL_- }+ SqsAction'+ {_saUseBase64 = Nothing, _saRoleARN = pRoleARN_, _saQueueURL = pQueueURL_} + -- | Specifies whether to use Base64 encoding. saUseBase64 :: Lens' SqsAction (Maybe Bool) saUseBase64 = lens _saUseBase64 (\ s a -> s{_saUseBase64 = a});@@ -1713,9 +1793,9 @@ (x .:? "useBase64") <*> (x .: "roleArn") <*> (x .: "queueUrl")) -instance Hashable SqsAction+instance Hashable SqsAction where -instance NFData SqsAction+instance NFData SqsAction where instance ToJSON SqsAction where toJSON SqsAction'{..}@@ -1731,12 +1811,13 @@ -- -- /See:/ 'thingAttribute' smart constructor. data ThingAttribute = ThingAttribute'- { _taThingTypeName :: !(Maybe Text)- , _taAttributes :: !(Maybe (Map Text Text))- , _taVersion :: !(Maybe Integer)- , _taThingName :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _taThingTypeName :: !(Maybe Text)+ , _taAttributes :: !(Maybe (Map Text Text))+ , _taVersion :: !(Maybe Integer)+ , _taThingName :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ThingAttribute' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1751,13 +1832,14 @@ thingAttribute :: ThingAttribute thingAttribute =- ThingAttribute'- { _taThingTypeName = Nothing- , _taAttributes = Nothing- , _taVersion = Nothing- , _taThingName = Nothing- }+ ThingAttribute'+ { _taThingTypeName = Nothing+ , _taAttributes = Nothing+ , _taVersion = Nothing+ , _taThingName = Nothing+ } + -- | The name of the thing type, if the thing has been associated with a type. taThingTypeName :: Lens' ThingAttribute (Maybe Text) taThingTypeName = lens _taThingTypeName (\ s a -> s{_taThingTypeName = a});@@ -1784,9 +1866,9 @@ <*> (x .:? "version") <*> (x .:? "thingName")) -instance Hashable ThingAttribute+instance Hashable ThingAttribute where -instance NFData ThingAttribute+instance NFData ThingAttribute where -- | The definition of the thing type, including thing type name and description. --@@ -1794,11 +1876,12 @@ -- -- /See:/ 'thingTypeDefinition' smart constructor. data ThingTypeDefinition = ThingTypeDefinition'- { _ttdThingTypeProperties :: !(Maybe ThingTypeProperties)- , _ttdThingTypeName :: !(Maybe Text)- , _ttdThingTypeMetadata :: !(Maybe ThingTypeMetadata)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ttdThingTypeProperties :: !(Maybe ThingTypeProperties)+ , _ttdThingTypeName :: !(Maybe Text)+ , _ttdThingTypeMetadata :: !(Maybe ThingTypeMetadata)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ThingTypeDefinition' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1807,16 +1890,17 @@ -- -- * 'ttdThingTypeName' - The name of the thing type. ----- * 'ttdThingTypeMetadata' - Undocumented member.+-- * 'ttdThingTypeMetadata' - 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 it was deprecated. thingTypeDefinition :: ThingTypeDefinition thingTypeDefinition =- ThingTypeDefinition'- { _ttdThingTypeProperties = Nothing- , _ttdThingTypeName = Nothing- , _ttdThingTypeMetadata = Nothing- }+ ThingTypeDefinition'+ { _ttdThingTypeProperties = Nothing+ , _ttdThingTypeName = Nothing+ , _ttdThingTypeMetadata = Nothing+ } + -- | The ThingTypeProperties for the thing type. ttdThingTypeProperties :: Lens' ThingTypeDefinition (Maybe ThingTypeProperties) ttdThingTypeProperties = lens _ttdThingTypeProperties (\ s a -> s{_ttdThingTypeProperties = a});@@ -1825,7 +1909,7 @@ ttdThingTypeName :: Lens' ThingTypeDefinition (Maybe Text) ttdThingTypeName = lens _ttdThingTypeName (\ s a -> s{_ttdThingTypeName = a}); --- | Undocumented member.+-- | 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 it was deprecated. ttdThingTypeMetadata :: Lens' ThingTypeDefinition (Maybe ThingTypeMetadata) ttdThingTypeMetadata = lens _ttdThingTypeMetadata (\ s a -> s{_ttdThingTypeMetadata = a}); @@ -1838,9 +1922,9 @@ (x .:? "thingTypeName") <*> (x .:? "thingTypeMetadata")) -instance Hashable ThingTypeDefinition+instance Hashable ThingTypeDefinition where -instance NFData ThingTypeDefinition+instance NFData ThingTypeDefinition where -- | 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. --@@ -1848,11 +1932,12 @@ -- -- /See:/ 'thingTypeMetadata' smart constructor. data ThingTypeMetadata = ThingTypeMetadata'- { _ttmDeprecationDate :: !(Maybe POSIX)- , _ttmCreationDate :: !(Maybe POSIX)- , _ttmDeprecated :: !(Maybe Bool)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ttmDeprecationDate :: !(Maybe POSIX)+ , _ttmCreationDate :: !(Maybe POSIX)+ , _ttmDeprecated :: !(Maybe Bool)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ThingTypeMetadata' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1865,12 +1950,13 @@ thingTypeMetadata :: ThingTypeMetadata thingTypeMetadata =- ThingTypeMetadata'- { _ttmDeprecationDate = Nothing- , _ttmCreationDate = Nothing- , _ttmDeprecated = Nothing- }+ ThingTypeMetadata'+ { _ttmDeprecationDate = Nothing+ , _ttmCreationDate = Nothing+ , _ttmDeprecated = Nothing+ } + -- | The date and time when the thing type was deprecated. ttmDeprecationDate :: Lens' ThingTypeMetadata (Maybe UTCTime) ttmDeprecationDate = lens _ttmDeprecationDate (\ s a -> s{_ttmDeprecationDate = a}) . mapping _Time;@@ -1891,9 +1977,9 @@ (x .:? "deprecationDate") <*> (x .:? "creationDate") <*> (x .:? "deprecated")) -instance Hashable ThingTypeMetadata+instance Hashable ThingTypeMetadata where -instance NFData ThingTypeMetadata+instance NFData ThingTypeMetadata where -- | The ThingTypeProperties contains information about the thing type including: a thing type description, and a list of searchable thing attribute names. --@@ -1901,10 +1987,11 @@ -- -- /See:/ 'thingTypeProperties' smart constructor. data ThingTypeProperties = ThingTypeProperties'- { _ttpSearchableAttributes :: !(Maybe [Text])- , _ttpThingTypeDescription :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ttpSearchableAttributes :: !(Maybe [Text])+ , _ttpThingTypeDescription :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ThingTypeProperties' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1915,11 +2002,10 @@ thingTypeProperties :: ThingTypeProperties thingTypeProperties =- ThingTypeProperties'- { _ttpSearchableAttributes = Nothing- , _ttpThingTypeDescription = Nothing- }+ ThingTypeProperties'+ {_ttpSearchableAttributes = Nothing, _ttpThingTypeDescription = Nothing} + -- | A list of searchable thing attribute names. ttpSearchableAttributes :: Lens' ThingTypeProperties [Text] ttpSearchableAttributes = lens _ttpSearchableAttributes (\ s a -> s{_ttpSearchableAttributes = a}) . _Default . _Coerce;@@ -1936,9 +2022,9 @@ (x .:? "searchableAttributes" .!= mempty) <*> (x .:? "thingTypeDescription")) -instance Hashable ThingTypeProperties+instance Hashable ThingTypeProperties where -instance NFData ThingTypeProperties+instance NFData ThingTypeProperties where instance ToJSON ThingTypeProperties where toJSON ThingTypeProperties'{..}@@ -1955,15 +2041,16 @@ -- -- /See:/ 'topicRule' smart constructor. data TopicRule = TopicRule'- { _trCreatedAt :: !(Maybe POSIX)- , _trActions :: !(Maybe [Action])- , _trAwsIotSqlVersion :: !(Maybe Text)- , _trRuleDisabled :: !(Maybe Bool)- , _trRuleName :: !(Maybe Text)- , _trSql :: !(Maybe Text)- , _trDescription :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _trCreatedAt :: !(Maybe POSIX)+ , _trActions :: !(Maybe [Action])+ , _trAwsIotSqlVersion :: !(Maybe Text)+ , _trRuleDisabled :: !(Maybe Bool)+ , _trRuleName :: !(Maybe Text)+ , _trSql :: !(Maybe Text)+ , _trDescription :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TopicRule' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1984,16 +2071,17 @@ topicRule :: TopicRule topicRule =- TopicRule'- { _trCreatedAt = Nothing- , _trActions = Nothing- , _trAwsIotSqlVersion = Nothing- , _trRuleDisabled = Nothing- , _trRuleName = Nothing- , _trSql = Nothing- , _trDescription = Nothing- }+ TopicRule'+ { _trCreatedAt = Nothing+ , _trActions = Nothing+ , _trAwsIotSqlVersion = Nothing+ , _trRuleDisabled = Nothing+ , _trRuleName = Nothing+ , _trSql = Nothing+ , _trDescription = Nothing+ } + -- | The date and time the rule was created. trCreatedAt :: Lens' TopicRule (Maybe UTCTime) trCreatedAt = lens _trCreatedAt (\ s a -> s{_trCreatedAt = a}) . mapping _Time;@@ -2034,9 +2122,9 @@ <*> (x .:? "sql") <*> (x .:? "description")) -instance Hashable TopicRule+instance Hashable TopicRule where -instance NFData TopicRule+instance NFData TopicRule where -- | Describes a rule. --@@ -2044,13 +2132,14 @@ -- -- /See:/ 'topicRuleListItem' smart constructor. data TopicRuleListItem = TopicRuleListItem'- { _trliCreatedAt :: !(Maybe POSIX)- , _trliRuleDisabled :: !(Maybe Bool)- , _trliRuleName :: !(Maybe Text)- , _trliRuleARN :: !(Maybe Text)- , _trliTopicPattern :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _trliCreatedAt :: !(Maybe POSIX)+ , _trliRuleDisabled :: !(Maybe Bool)+ , _trliRuleName :: !(Maybe Text)+ , _trliRuleARN :: !(Maybe Text)+ , _trliTopicPattern :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TopicRuleListItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2067,14 +2156,15 @@ topicRuleListItem :: TopicRuleListItem topicRuleListItem =- TopicRuleListItem'- { _trliCreatedAt = Nothing- , _trliRuleDisabled = Nothing- , _trliRuleName = Nothing- , _trliRuleARN = Nothing- , _trliTopicPattern = Nothing- }+ TopicRuleListItem'+ { _trliCreatedAt = Nothing+ , _trliRuleDisabled = Nothing+ , _trliRuleName = Nothing+ , _trliRuleARN = Nothing+ , _trliTopicPattern = Nothing+ } + -- | The date and time the rule was created. trliCreatedAt :: Lens' TopicRuleListItem (Maybe UTCTime) trliCreatedAt = lens _trliCreatedAt (\ s a -> s{_trliCreatedAt = a}) . mapping _Time;@@ -2105,9 +2195,9 @@ <*> (x .:? "ruleArn") <*> (x .:? "topicPattern")) -instance Hashable TopicRuleListItem+instance Hashable TopicRuleListItem where -instance NFData TopicRuleListItem+instance NFData TopicRuleListItem where -- | Describes a rule. --@@ -2115,13 +2205,14 @@ -- -- /See:/ 'topicRulePayload' smart constructor. data TopicRulePayload = TopicRulePayload'- { _trpAwsIotSqlVersion :: !(Maybe Text)- , _trpRuleDisabled :: !(Maybe Bool)- , _trpDescription :: !(Maybe Text)- , _trpSql :: !Text- , _trpActions :: ![Action]- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _trpAwsIotSqlVersion :: !(Maybe Text)+ , _trpRuleDisabled :: !(Maybe Bool)+ , _trpDescription :: !(Maybe Text)+ , _trpSql :: !Text+ , _trpActions :: ![Action]+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TopicRulePayload' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2139,14 +2230,15 @@ :: Text -- ^ 'trpSql' -> TopicRulePayload topicRulePayload pSql_ =- TopicRulePayload'- { _trpAwsIotSqlVersion = Nothing- , _trpRuleDisabled = Nothing- , _trpDescription = Nothing- , _trpSql = pSql_- , _trpActions = mempty- }+ TopicRulePayload'+ { _trpAwsIotSqlVersion = Nothing+ , _trpRuleDisabled = Nothing+ , _trpDescription = Nothing+ , _trpSql = pSql_+ , _trpActions = mempty+ } + -- | The version of the SQL rules engine to use when evaluating the rule. trpAwsIotSqlVersion :: Lens' TopicRulePayload (Maybe Text) trpAwsIotSqlVersion = lens _trpAwsIotSqlVersion (\ s a -> s{_trpAwsIotSqlVersion = a});@@ -2167,9 +2259,9 @@ trpActions :: Lens' TopicRulePayload [Action] trpActions = lens _trpActions (\ s a -> s{_trpActions = a}) . _Coerce; -instance Hashable TopicRulePayload+instance Hashable TopicRulePayload where -instance NFData TopicRulePayload+instance NFData TopicRulePayload where instance ToJSON TopicRulePayload where toJSON TopicRulePayload'{..}@@ -2187,13 +2279,14 @@ -- -- /See:/ 'transferData' smart constructor. data TransferData = TransferData'- { _tdTransferDate :: !(Maybe POSIX)- , _tdAcceptDate :: !(Maybe POSIX)- , _tdTransferMessage :: !(Maybe Text)- , _tdRejectDate :: !(Maybe POSIX)- , _tdRejectReason :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _tdTransferDate :: !(Maybe POSIX)+ , _tdAcceptDate :: !(Maybe POSIX)+ , _tdTransferMessage :: !(Maybe Text)+ , _tdRejectDate :: !(Maybe POSIX)+ , _tdRejectReason :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TransferData' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2210,14 +2303,15 @@ transferData :: TransferData transferData =- TransferData'- { _tdTransferDate = Nothing- , _tdAcceptDate = Nothing- , _tdTransferMessage = Nothing- , _tdRejectDate = Nothing- , _tdRejectReason = Nothing- }+ TransferData'+ { _tdTransferDate = Nothing+ , _tdAcceptDate = Nothing+ , _tdTransferMessage = Nothing+ , _tdRejectDate = Nothing+ , _tdRejectReason = Nothing+ } + -- | The date the transfer took place. tdTransferDate :: Lens' TransferData (Maybe UTCTime) tdTransferDate = lens _tdTransferDate (\ s a -> s{_tdTransferDate = a}) . mapping _Time;@@ -2248,6 +2342,6 @@ <*> (x .:? "rejectDate") <*> (x .:? "rejectReason")) -instance Hashable TransferData+instance Hashable TransferData where -instance NFData TransferData+instance NFData TransferData where
gen/Network/AWS/IoT/Types/Sum.hs view
@@ -9,21 +9,22 @@ -- | -- Module : Network.AWS.IoT.Types.Sum--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.IoT.Types.Sum where -import Network.AWS.Prelude+import Network.AWS.Prelude data AutoRegistrationStatus- = Disable- | Enable- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = Disable+ | Enable+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText AutoRegistrationStatus where parser = takeLowerText >>= \case "disable" -> pure Disable@@ -49,10 +50,11 @@ parseJSON = parseJSONText "AutoRegistrationStatus" data CACertificateStatus- = CACSActive- | CACSInactive- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = CACSActive+ | CACSInactive+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText CACertificateStatus where parser = takeLowerText >>= \case "active" -> pure CACSActive@@ -78,16 +80,17 @@ parseJSON = parseJSONText "CACertificateStatus" data CannedAccessControlList- = AWSExecRead- | AuthenticatedRead- | BucketOwnerFullControl- | BucketOwnerRead- | LogDeliveryWrite- | Private- | PublicRead- | PublicReadWrite- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = 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@@ -125,14 +128,15 @@ parseJSON = parseJSONText "CannedAccessControlList" data CertificateStatus- = Active- | Inactive- | PendingActivation- | PendingTransfer- | RegisterInactive- | Revoked- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = Active+ | Inactive+ | PendingActivation+ | PendingTransfer+ | RegisterInactive+ | Revoked+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText CertificateStatus where parser = takeLowerText >>= \case "active" -> pure Active@@ -166,10 +170,11 @@ parseJSON = parseJSONText "CertificateStatus" data DynamoKeyType- = Number- | String- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = Number+ | String+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText DynamoKeyType where parser = takeLowerText >>= \case "number" -> pure Number@@ -195,13 +200,14 @@ parseJSON = parseJSONText "DynamoKeyType" data LogLevel- = Debug- | Disabled- | Error'- | Info- | Warn- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = Debug+ | Disabled+ | Error'+ | Info+ | Warn+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText LogLevel where parser = takeLowerText >>= \case "debug" -> pure Debug@@ -233,9 +239,10 @@ parseJSON = parseJSONText "LogLevel" data MessageFormat- = JSON- | Raw- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = JSON+ | Raw+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+ instance FromText MessageFormat where parser = takeLowerText >>= \case
gen/Network/AWS/IoT/UpdateCACertificate.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.UpdateCACertificate--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,12 +36,12 @@ , UpdateCACertificateResponse ) 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+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 to the UpdateCACertificate operation. --@@ -49,11 +49,12 @@ -- -- /See:/ 'updateCACertificate' smart constructor. data UpdateCACertificate = UpdateCACertificate'- { _ucacNewStatus :: !(Maybe CACertificateStatus)- , _ucacNewAutoRegistrationStatus :: !(Maybe AutoRegistrationStatus)- , _ucacCertificateId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ucacNewStatus :: !(Maybe CACertificateStatus)+ , _ucacNewAutoRegistrationStatus :: !(Maybe AutoRegistrationStatus)+ , _ucacCertificateId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateCACertificate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -67,12 +68,13 @@ :: Text -- ^ 'ucacCertificateId' -> UpdateCACertificate updateCACertificate pCertificateId_ =- UpdateCACertificate'- { _ucacNewStatus = Nothing- , _ucacNewAutoRegistrationStatus = Nothing- , _ucacCertificateId = pCertificateId_- }+ UpdateCACertificate'+ { _ucacNewStatus = Nothing+ , _ucacNewAutoRegistrationStatus = Nothing+ , _ucacCertificateId = pCertificateId_+ } + -- | 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});@@ -91,9 +93,9 @@ request = putJSON ioT response = receiveNull UpdateCACertificateResponse' -instance Hashable UpdateCACertificate+instance Hashable UpdateCACertificate where -instance NFData UpdateCACertificate+instance NFData UpdateCACertificate where instance ToHeaders UpdateCACertificate where toHeaders = const mempty@@ -115,13 +117,15 @@ -- | /See:/ 'updateCACertificateResponse' smart constructor. data UpdateCACertificateResponse =- UpdateCACertificateResponse'- deriving (Eq,Read,Show,Data,Typeable,Generic)+ UpdateCACertificateResponse'+ deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateCACertificateResponse' with the minimum fields required to make a request. -- updateCACertificateResponse :: UpdateCACertificateResponse updateCACertificateResponse = UpdateCACertificateResponse' -instance NFData UpdateCACertificateResponse++instance NFData UpdateCACertificateResponse where
gen/Network/AWS/IoT/UpdateCertificate.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.UpdateCertificate--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@ , UpdateCertificateResponse ) 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+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 UpdateCertificate operation. --@@ -52,10 +52,11 @@ -- -- /See:/ 'updateCertificate' smart constructor. data UpdateCertificate = UpdateCertificate'- { _ucCertificateId :: !Text- , _ucNewStatus :: !CertificateStatus- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ucCertificateId :: !Text+ , _ucNewStatus :: !CertificateStatus+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateCertificate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -68,11 +69,10 @@ -> CertificateStatus -- ^ 'ucNewStatus' -> UpdateCertificate updateCertificate pCertificateId_ pNewStatus_ =- UpdateCertificate'- { _ucCertificateId = pCertificateId_- , _ucNewStatus = pNewStatus_- }+ UpdateCertificate'+ {_ucCertificateId = pCertificateId_, _ucNewStatus = pNewStatus_} + -- | The ID of the certificate. ucCertificateId :: Lens' UpdateCertificate Text ucCertificateId = lens _ucCertificateId (\ s a -> s{_ucCertificateId = a});@@ -86,9 +86,9 @@ request = putJSON ioT response = receiveNull UpdateCertificateResponse' -instance Hashable UpdateCertificate+instance Hashable UpdateCertificate where -instance NFData UpdateCertificate+instance NFData UpdateCertificate where instance ToHeaders UpdateCertificate where toHeaders = const mempty@@ -106,13 +106,15 @@ -- | /See:/ 'updateCertificateResponse' smart constructor. data UpdateCertificateResponse =- UpdateCertificateResponse'- deriving (Eq,Read,Show,Data,Typeable,Generic)+ UpdateCertificateResponse'+ deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateCertificateResponse' with the minimum fields required to make a request. -- updateCertificateResponse :: UpdateCertificateResponse updateCertificateResponse = UpdateCertificateResponse' -instance NFData UpdateCertificateResponse++instance NFData UpdateCertificateResponse where
gen/Network/AWS/IoT/UpdateThing.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoT.UpdateThing--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,12 +40,12 @@ , utrsResponseStatus ) 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+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 UpdateThing operation. --@@ -53,13 +53,14 @@ -- -- /See:/ 'updateThing' smart constructor. data UpdateThing = UpdateThing'- { _utRemoveThingType :: !(Maybe Bool)- , _utThingTypeName :: !(Maybe Text)- , _utExpectedVersion :: !(Maybe Integer)- , _utAttributePayload :: !(Maybe AttributePayload)- , _utThingName :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _utRemoveThingType :: !(Maybe Bool)+ , _utThingTypeName :: !(Maybe Text)+ , _utExpectedVersion :: !(Maybe Integer)+ , _utAttributePayload :: !(Maybe AttributePayload)+ , _utThingName :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateThing' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,21 +71,22 @@ -- -- * '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' - 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' - 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' - The name of the thing to update. updateThing :: Text -- ^ 'utThingName' -> UpdateThing updateThing pThingName_ =- UpdateThing'- { _utRemoveThingType = Nothing- , _utThingTypeName = Nothing- , _utExpectedVersion = Nothing- , _utAttributePayload = Nothing- , _utThingName = pThingName_- }+ UpdateThing'+ { _utRemoveThingType = Nothing+ , _utThingTypeName = Nothing+ , _utExpectedVersion = Nothing+ , _utAttributePayload = Nothing+ , _utThingName = pThingName_+ } + -- | Remove a thing type association. If __true__ , the assocation is removed. utRemoveThingType :: Lens' UpdateThing (Maybe Bool) utRemoveThingType = lens _utRemoveThingType (\ s a -> s{_utRemoveThingType = a});@@ -97,7 +99,7 @@ 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}); @@ -113,9 +115,9 @@ (\ s h x -> UpdateThingResponse' <$> (pure (fromEnum s))) -instance Hashable UpdateThing+instance Hashable UpdateThing where -instance NFData UpdateThing+instance NFData UpdateThing where instance ToHeaders UpdateThing where toHeaders = const mempty@@ -142,9 +144,10 @@ -- -- /See:/ 'updateThingResponse' smart constructor. newtype UpdateThingResponse = UpdateThingResponse'- { _utrsResponseStatus :: Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _utrsResponseStatus :: Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateThingResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -154,12 +157,11 @@ :: Int -- ^ 'utrsResponseStatus' -> UpdateThingResponse updateThingResponse pResponseStatus_ =- UpdateThingResponse'- { _utrsResponseStatus = pResponseStatus_- }+ UpdateThingResponse' {_utrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. utrsResponseStatus :: Lens' UpdateThingResponse Int utrsResponseStatus = lens _utrsResponseStatus (\ s a -> s{_utrsResponseStatus = a}); -instance NFData UpdateThingResponse+instance NFData UpdateThingResponse where
gen/Network/AWS/IoT/Waiters.hs view
@@ -7,15 +7,15 @@ -- | -- Module : Network.AWS.IoT.Waiters--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.IoT.Waiters where -import Network.AWS.IoT.Types-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Waiter+import Network.AWS.IoT.Types+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Waiter
test/Main.hs view
@@ -2,9 +2,9 @@ -- | -- Module : Main--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --
test/Test/AWS/Gen/IoT.hs view
@@ -5,20 +5,20 @@ -- | -- Module : Test.AWS.Gen.IoT--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Test.AWS.Gen.IoT where import Data.Proxy+import Network.AWS.IoT import Test.AWS.Fixture+import Test.AWS.IoT.Internal import Test.AWS.Prelude import Test.Tasty-import Network.AWS.IoT-import Test.AWS.IoT.Internal -- Auto-generated: the actual test selection needs to be manually placed into -- the top-level so that real test data can be incrementally added.