amazonka-iot 1.4.3 → 1.4.4

raw patch · 44 files changed

+1903/−136 lines, 44 filesdep ~amazonka-coredep ~amazonka-iotdep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-iot.cabal +13/−6
• fixture/CreateThingType.yaml +0/−0
• fixture/CreateThingTypeResponse.proto +0/−0
• fixture/DeleteThingType.yaml +0/−0
• fixture/DeleteThingTypeResponse.proto +0/−0
• fixture/DeprecateThingType.yaml +0/−0
• fixture/DeprecateThingTypeResponse.proto +0/−0
• fixture/DescribeThingType.yaml +0/−0
• fixture/DescribeThingTypeResponse.proto +0/−0
• fixture/ListOutgoingCertificates.yaml +0/−0
• fixture/ListOutgoingCertificatesResponse.proto +0/−0
• fixture/ListPolicyPrincipals.yaml +0/−0
• fixture/ListPolicyPrincipalsResponse.proto +0/−0
• fixture/ListThingTypes.yaml +0/−0
• fixture/ListThingTypesResponse.proto +0/−0
• gen/Network/AWS/IoT.hs +77/−2
• gen/Network/AWS/IoT/AttachThingPrincipal.hs +1/−1
• gen/Network/AWS/IoT/CreateCertificateFromCsr.hs +0/−2
• gen/Network/AWS/IoT/CreateThing.hs +20/−8
• gen/Network/AWS/IoT/CreateThingType.hs +150/−0
• gen/Network/AWS/IoT/DeleteThing.hs +23/−13
• gen/Network/AWS/IoT/DeleteThingType.hs +114/−0
• gen/Network/AWS/IoT/DeprecateThingType.hs +132/−0
• gen/Network/AWS/IoT/DescribeEndpoint.hs +1/−1
• gen/Network/AWS/IoT/DescribeThing.hs +24/−3
• gen/Network/AWS/IoT/DescribeThingType.hs +145/−0
• gen/Network/AWS/IoT/DetachThingPrincipal.hs +1/−1
• gen/Network/AWS/IoT/ListOutgoingCertificates.hs +156/−0
• gen/Network/AWS/IoT/ListPolicyPrincipals.hs +167/−0
• gen/Network/AWS/IoT/ListPolicyVersions.hs +1/−1
• gen/Network/AWS/IoT/ListPrincipalThings.hs +3/−3
• gen/Network/AWS/IoT/ListThingPrincipals.hs +1/−1
• gen/Network/AWS/IoT/ListThingTypes.hs +155/−0
• gen/Network/AWS/IoT/ListThings.hs +16/−6
• gen/Network/AWS/IoT/RegisterCACertificate.hs +13/−1
• gen/Network/AWS/IoT/Types.hs +52/−2
• gen/Network/AWS/IoT/Types/Product.hs +370/−52
• gen/Network/AWS/IoT/Types/Sum.hs +65/−4
• gen/Network/AWS/IoT/UpdateCACertificate.hs +27/−14
• gen/Network/AWS/IoT/UpdateCertificate.hs +2/−0
• gen/Network/AWS/IoT/UpdateThing.hs +47/−14
• src/.gitkeep +0/−0
• test/Test/AWS/Gen/IoT.hs +126/−0

@@ -8,7 +8,7 @@  ## Version -`1.4.3`+`1.4.4`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-iot-version:               1.4.3+version:               1.4.4 synopsis:              Amazon IoT SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -11,7 +11,7 @@ category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10-extra-source-files:    README.md fixture/*.yaml fixture/*.proto+extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep description:     AWS IoT @@ -54,6 +54,7 @@         , Network.AWS.IoT.CreatePolicy         , Network.AWS.IoT.CreatePolicyVersion         , Network.AWS.IoT.CreateThing+        , Network.AWS.IoT.CreateThingType         , Network.AWS.IoT.CreateTopicRule         , Network.AWS.IoT.DeleteCACertificate         , Network.AWS.IoT.DeleteCertificate@@ -61,11 +62,14 @@         , Network.AWS.IoT.DeletePolicyVersion         , Network.AWS.IoT.DeleteRegistrationCode         , Network.AWS.IoT.DeleteThing+        , Network.AWS.IoT.DeleteThingType         , Network.AWS.IoT.DeleteTopicRule+        , Network.AWS.IoT.DeprecateThingType         , Network.AWS.IoT.DescribeCACertificate         , Network.AWS.IoT.DescribeCertificate         , Network.AWS.IoT.DescribeEndpoint         , Network.AWS.IoT.DescribeThing+        , Network.AWS.IoT.DescribeThingType         , Network.AWS.IoT.DetachPrincipalPolicy         , Network.AWS.IoT.DetachThingPrincipal         , Network.AWS.IoT.DisableTopicRule@@ -78,11 +82,14 @@         , Network.AWS.IoT.ListCACertificates         , Network.AWS.IoT.ListCertificates         , Network.AWS.IoT.ListCertificatesByCA+        , Network.AWS.IoT.ListOutgoingCertificates         , Network.AWS.IoT.ListPolicies+        , Network.AWS.IoT.ListPolicyPrincipals         , Network.AWS.IoT.ListPolicyVersions         , Network.AWS.IoT.ListPrincipalPolicies         , Network.AWS.IoT.ListPrincipalThings         , Network.AWS.IoT.ListThingPrincipals+        , Network.AWS.IoT.ListThingTypes         , Network.AWS.IoT.ListThings         , Network.AWS.IoT.ListTopicRules         , Network.AWS.IoT.RegisterCACertificate@@ -103,7 +110,7 @@         , Network.AWS.IoT.Types.Sum      build-depends:-          amazonka-core == 1.4.3.*+          amazonka-core == 1.4.4.*         , base          >= 4.7     && < 5  test-suite amazonka-iot-test@@ -123,9 +130,9 @@         , Test.AWS.IoT.Internal      build-depends:-          amazonka-core == 1.4.3.*-        , amazonka-test == 1.4.3.*-        , amazonka-iot == 1.4.3.*+          amazonka-core == 1.4.4.*+        , amazonka-test == 1.4.4.*+        , amazonka-iot == 1.4.4.*         , base         , bytestring         , tasty

@@ -72,6 +72,9 @@     -- ** InternalException     , _InternalException +    -- ** VersionConflictException+    , _VersionConflictException+     -- ** UnauthorizedException     , _UnauthorizedException @@ -105,6 +108,9 @@     -- ** GetLoggingOptions     , module Network.AWS.IoT.GetLoggingOptions +    -- ** ListThingTypes+    , module Network.AWS.IoT.ListThingTypes+     -- ** CreateCertificateFromCsr     , module Network.AWS.IoT.CreateCertificateFromCsr @@ -114,6 +120,9 @@     -- ** UpdateThing     , module Network.AWS.IoT.UpdateThing +    -- ** CreateThingType+    , module Network.AWS.IoT.CreateThingType+     -- ** CancelCertificateTransfer     , module Network.AWS.IoT.CancelCertificateTransfer @@ -171,12 +180,18 @@     -- ** UpdateCertificate     , module Network.AWS.IoT.UpdateCertificate +    -- ** ListOutgoingCertificates+    , module Network.AWS.IoT.ListOutgoingCertificates+     -- ** DescribeCACertificate     , module Network.AWS.IoT.DescribeCACertificate      -- ** GetRegistrationCode     , module Network.AWS.IoT.GetRegistrationCode +    -- ** DeleteThingType+    , module Network.AWS.IoT.DeleteThingType+     -- ** ListCertificatesByCA     , module Network.AWS.IoT.ListCertificatesByCA @@ -198,6 +213,9 @@     -- ** DescribeCertificate     , module Network.AWS.IoT.DescribeCertificate +    -- ** ListPolicyPrincipals+    , module Network.AWS.IoT.ListPolicyPrincipals+     -- ** ReplaceTopicRule     , module Network.AWS.IoT.ReplaceTopicRule @@ -228,6 +246,9 @@     -- ** SetLoggingOptions     , module Network.AWS.IoT.SetLoggingOptions +    -- ** DescribeThingType+    , module Network.AWS.IoT.DescribeThingType+     -- ** AttachPrincipalPolicy     , module Network.AWS.IoT.AttachPrincipalPolicy @@ -237,14 +258,23 @@     -- ** DetachThingPrincipal     , module Network.AWS.IoT.DetachThingPrincipal +    -- ** DeprecateThingType+    , module Network.AWS.IoT.DeprecateThingType+     -- * Types +    -- ** AutoRegistrationStatus+    , AutoRegistrationStatus (..)+     -- ** CACertificateStatus     , CACertificateStatus (..)      -- ** CertificateStatus     , CertificateStatus (..) +    -- ** DynamoKeyType+    , DynamoKeyType (..)+     -- ** LogLevel     , LogLevel (..) @@ -270,6 +300,7 @@     , AttributePayload     , attributePayload     , apAttributes+    , apMerge      -- ** CACertificate     , CACertificate@@ -287,6 +318,7 @@     , cacdCertificatePem     , cacdCertificateARN     , cacdCertificateId+    , cacdAutoRegistrationStatus     , cacdCreationDate      -- ** Certificate@@ -332,13 +364,16 @@     -- ** DynamoDBAction     , DynamoDBAction     , dynamoDBAction+    , ddaHashKeyType+    , ddaOperation+    , ddaRangeKeyType     , ddaPayloadField+    , ddaRangeKeyField+    , ddaRangeKeyValue     , ddaTableName     , ddaRoleARN     , ddaHashKeyField     , ddaHashKeyValue-    , ddaRangeKeyField-    , ddaRangeKeyValue      -- ** ElasticsearchAction     , ElasticsearchAction@@ -352,6 +387,7 @@     -- ** FirehoseAction     , FirehoseAction     , firehoseAction+    , faSeparator     , faRoleARN     , faDeliveryStreamName @@ -379,6 +415,16 @@     , lopLogLevel     , lopRoleARN +    -- ** OutgoingCertificate+    , OutgoingCertificate+    , outgoingCertificate+    , ocTransferDate+    , ocCertificateARN+    , ocCertificateId+    , ocTransferredTo+    , ocCreationDate+    , ocTransferMessage+     -- ** Policy     , Policy     , policy@@ -422,9 +468,31 @@     -- ** ThingAttribute     , ThingAttribute     , thingAttribute+    , taThingTypeName     , taAttributes+    , taVersion     , taThingName +    -- ** ThingTypeDefinition+    , ThingTypeDefinition+    , thingTypeDefinition+    , ttdThingTypeProperties+    , ttdThingTypeName+    , ttdThingTypeMetadata++    -- ** ThingTypeMetadata+    , ThingTypeMetadata+    , thingTypeMetadata+    , ttmDeprecationDate+    , ttmCreationDate+    , ttmDeprecated++    -- ** ThingTypeProperties+    , ThingTypeProperties+    , thingTypeProperties+    , ttpSearchableAttributes+    , ttpThingTypeDescription+     -- ** TopicRule     , TopicRule     , topicRule@@ -473,6 +541,7 @@ 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@@ -480,11 +549,14 @@ 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@@ -497,12 +569,15 @@ 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

@@ -71,7 +71,7 @@ atpThingName :: Lens' AttachThingPrincipal Text atpThingName = lens _atpThingName (\ s a -> s{_atpThingName = a}); --- | The principal (certificate or other credential).+-- | The principal, such as a certificate or other credential. atpPrincipal :: Lens' AttachThingPrincipal Text atpPrincipal = lens _atpPrincipal (\ s a -> s{_atpPrincipal = a}); 

@@ -26,8 +26,6 @@ -- -- Assuming a set of CSRs are located inside of the directory my-csr-directory: ----- >--- -- On Linux and OS X, the command is: -- -- > ls my-csr-directory\/ | xargs -I {} aws iot create-certificate-from-csr --certificate-signing-request file:\/\/my-csr-directory\/{}

@@ -18,13 +18,14 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a thing in the Thing Registry.+-- Creates a thing record in the thing registry. module Network.AWS.IoT.CreateThing     (     -- * Creating a Request       createThing     , CreateThing     -- * Request Lenses+    , ctThingTypeName     , ctAttributePayload     , ctThingName @@ -48,7 +49,8 @@ -- -- /See:/ 'createThing' smart constructor. data CreateThing = CreateThing'-    { _ctAttributePayload :: !(Maybe AttributePayload)+    { _ctThingTypeName    :: !(Maybe Text)+    , _ctAttributePayload :: !(Maybe AttributePayload)     , _ctThingName        :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -56,6 +58,8 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'ctThingTypeName'+-- -- * 'ctAttributePayload' -- -- * 'ctThingName'@@ -64,15 +68,22 @@     -> CreateThing createThing pThingName_ =     CreateThing'-    { _ctAttributePayload = Nothing+    { _ctThingTypeName = Nothing+    , _ctAttributePayload = Nothing     , _ctThingName = pThingName_     } --- | The attribute payload, which consists of up to 3 name\/value pairs in a JSON document (for example, {\\\"attributes\\\":{\\\"string1\\\":\\\"string2\\\"}}).+-- | 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\\\"}})' ctAttributePayload :: Lens' CreateThing (Maybe AttributePayload) ctAttributePayload = lens _ctAttributePayload (\ s a -> s{_ctAttributePayload = a}); --- | The name of the thing.+-- | The name of the thing to create. ctThingName :: Lens' CreateThing Text ctThingName = lens _ctThingName (\ s a -> s{_ctThingName = a}); @@ -97,7 +108,8 @@         toJSON CreateThing'{..}           = object               (catMaybes-                 [("attributePayload" .=) <$> _ctAttributePayload])+                 [("thingTypeName" .=) <$> _ctThingTypeName,+                  ("attributePayload" .=) <$> _ctAttributePayload])  instance ToPath CreateThing where         toPath CreateThing'{..}@@ -134,11 +146,11 @@     , _ctrsResponseStatus = pResponseStatus_     } --- | The thing ARN.+-- | The ARN of the new thing. ctrsThingARN :: Lens' CreateThingResponse (Maybe Text) ctrsThingARN = lens _ctrsThingARN (\ s a -> s{_ctrsThingARN = a}); --- | The name of the thing.+-- | The name of the new thing. ctrsThingName :: Lens' CreateThingResponse (Maybe Text) ctrsThingName = lens _ctrsThingName (\ s a -> s{_ctrsThingName = a}); 

@@ -0,0 +1,150 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.IoT.CreateThingType+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a new thing type.+module Network.AWS.IoT.CreateThingType+    (+    -- * Creating a Request+      createThingType+    , CreateThingType+    -- * Request Lenses+    , cttThingTypeProperties+    , cttThingTypeName++    -- * Destructuring the Response+    , createThingTypeResponse+    , CreateThingTypeResponse+    -- * Response Lenses+    , cttrsThingTypeName+    , cttrsThingTypeARN+    , 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++-- | The input for the CreateThingType operation.+--+-- /See:/ 'createThingType' smart constructor.+data CreateThingType = CreateThingType'+    { _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:+--+-- * 'cttThingTypeProperties'+--+-- * 'cttThingTypeName'+createThingType+    :: Text -- ^ 'cttThingTypeName'+    -> CreateThingType+createThingType 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});++-- | The name of the thing type.+cttThingTypeName :: Lens' CreateThingType Text+cttThingTypeName = lens _cttThingTypeName (\ s a -> s{_cttThingTypeName = a});++instance AWSRequest CreateThingType where+        type Rs CreateThingType = CreateThingTypeResponse+        request = postJSON ioT+        response+          = receiveJSON+              (\ s h x ->+                 CreateThingTypeResponse' <$>+                   (x .?> "thingTypeName") <*> (x .?> "thingTypeArn")+                     <*> (pure (fromEnum s)))++instance Hashable CreateThingType++instance NFData CreateThingType++instance ToHeaders CreateThingType where+        toHeaders = const mempty++instance ToJSON CreateThingType where+        toJSON CreateThingType'{..}+          = object+              (catMaybes+                 [("thingTypeProperties" .=) <$>+                    _cttThingTypeProperties])++instance ToPath CreateThingType where+        toPath CreateThingType'{..}+          = mconcat ["/thing-types/", toBS _cttThingTypeName]++instance ToQuery CreateThingType where+        toQuery = const mempty++-- | The output of the CreateThingType operation.+--+-- /See:/ 'createThingTypeResponse' smart constructor.+data CreateThingTypeResponse = CreateThingTypeResponse'+    { _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:+--+-- * 'cttrsThingTypeName'+--+-- * 'cttrsThingTypeARN'+--+-- * 'cttrsResponseStatus'+createThingTypeResponse+    :: Int -- ^ 'cttrsResponseStatus'+    -> CreateThingTypeResponse+createThingTypeResponse 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});++-- | The Amazon Resource Name (ARN) of the thing type.+cttrsThingTypeARN :: Lens' CreateThingTypeResponse (Maybe Text)+cttrsThingTypeARN = lens _cttrsThingTypeARN (\ s a -> s{_cttrsThingTypeARN = a});++-- | The response status code.+cttrsResponseStatus :: Lens' CreateThingTypeResponse Int+cttrsResponseStatus = lens _cttrsResponseStatus (\ s a -> s{_cttrsResponseStatus = a});++instance NFData CreateThingTypeResponse

@@ -18,20 +18,21 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes the specified thing from the Thing Registry.+-- Deletes the specified thing. module Network.AWS.IoT.DeleteThing     (     -- * Creating a Request       deleteThing     , DeleteThing     -- * Request Lenses+    , dtExpectedVersion     , dtThingName      -- * Destructuring the Response     , deleteThingResponse     , DeleteThingResponse     -- * Response Lenses-    , drsResponseStatus+    , delrsResponseStatus     ) where  import           Network.AWS.IoT.Types@@ -44,24 +45,32 @@ -- | The input for the DeleteThing operation. -- -- /See:/ 'deleteThing' smart constructor.-newtype DeleteThing = DeleteThing'-    { _dtThingName :: Text+data DeleteThing = DeleteThing'+    { _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: --+-- * 'dtExpectedVersion'+-- -- * 'dtThingName' deleteThing     :: Text -- ^ 'dtThingName'     -> DeleteThing deleteThing pThingName_ =     DeleteThing'-    { _dtThingName = pThingName_+    { _dtExpectedVersion = Nothing+    , _dtThingName = pThingName_     } --- | The thing name.+-- | 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});++-- | The name of the thing to delete. dtThingName :: Lens' DeleteThing Text dtThingName = lens _dtThingName (\ s a -> s{_dtThingName = a}); @@ -85,30 +94,31 @@           = mconcat ["/things/", toBS _dtThingName]  instance ToQuery DeleteThing where-        toQuery = const mempty+        toQuery DeleteThing'{..}+          = mconcat ["expectedVersion" =: _dtExpectedVersion]  -- | The output of the DeleteThing operation. -- -- /See:/ 'deleteThingResponse' smart constructor. newtype DeleteThingResponse = DeleteThingResponse'-    { _drsResponseStatus :: Int+    { _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: ----- * 'drsResponseStatus'+-- * 'delrsResponseStatus' deleteThingResponse-    :: Int -- ^ 'drsResponseStatus'+    :: Int -- ^ 'delrsResponseStatus'     -> DeleteThingResponse deleteThingResponse pResponseStatus_ =     DeleteThingResponse'-    { _drsResponseStatus = pResponseStatus_+    { _delrsResponseStatus = pResponseStatus_     }  -- | The response status code.-drsResponseStatus :: Lens' DeleteThingResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+delrsResponseStatus :: Lens' DeleteThingResponse Int+delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});  instance NFData DeleteThingResponse

@@ -0,0 +1,114 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.IoT.DeleteThingType+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified thing type . You cannot delete a thing type if it has things associated with it. To delete a thing type, first mark it as deprecated by calling < DeprecateThingType>, then remove any associated things by calling < UpdateThing> to change the thing type on any associated thing, and finally use < DeleteThingType> to delete the thing type.+module Network.AWS.IoT.DeleteThingType+    (+    -- * Creating a Request+      deleteThingType+    , DeleteThingType+    -- * Request Lenses+    , dttThingTypeName++    -- * Destructuring the Response+    , deleteThingTypeResponse+    , DeleteThingTypeResponse+    -- * Response Lenses+    , 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++-- | The input for the DeleteThingType operation.+--+-- /See:/ 'deleteThingType' smart constructor.+newtype DeleteThingType = DeleteThingType'+    { _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:+--+-- * 'dttThingTypeName'+deleteThingType+    :: Text -- ^ 'dttThingTypeName'+    -> DeleteThingType+deleteThingType pThingTypeName_ =+    DeleteThingType'+    { _dttThingTypeName = pThingTypeName_+    }++-- | The name of the thing type.+dttThingTypeName :: Lens' DeleteThingType Text+dttThingTypeName = lens _dttThingTypeName (\ s a -> s{_dttThingTypeName = a});++instance AWSRequest DeleteThingType where+        type Rs DeleteThingType = DeleteThingTypeResponse+        request = delete ioT+        response+          = receiveEmpty+              (\ s h x ->+                 DeleteThingTypeResponse' <$> (pure (fromEnum s)))++instance Hashable DeleteThingType++instance NFData DeleteThingType++instance ToHeaders DeleteThingType where+        toHeaders = const mempty++instance ToPath DeleteThingType where+        toPath DeleteThingType'{..}+          = mconcat ["/thing-types/", toBS _dttThingTypeName]++instance ToQuery DeleteThingType where+        toQuery = const mempty++-- | The output for the DeleteThingType operation.+--+-- /See:/ 'deleteThingTypeResponse' smart constructor.+newtype DeleteThingTypeResponse = DeleteThingTypeResponse'+    { _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:+--+-- * 'dttrsResponseStatus'+deleteThingTypeResponse+    :: Int -- ^ 'dttrsResponseStatus'+    -> DeleteThingTypeResponse+deleteThingTypeResponse pResponseStatus_ =+    DeleteThingTypeResponse'+    { _dttrsResponseStatus = pResponseStatus_+    }++-- | The response status code.+dttrsResponseStatus :: Lens' DeleteThingTypeResponse Int+dttrsResponseStatus = lens _dttrsResponseStatus (\ s a -> s{_dttrsResponseStatus = a});++instance NFData DeleteThingTypeResponse

@@ -0,0 +1,132 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.IoT.DeprecateThingType+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deprecates a thing type. You can not associate new things with deprecated thing type.+module Network.AWS.IoT.DeprecateThingType+    (+    -- * Creating a Request+      deprecateThingType+    , DeprecateThingType+    -- * Request Lenses+    , depUndoDeprecate+    , depThingTypeName++    -- * Destructuring the Response+    , deprecateThingTypeResponse+    , DeprecateThingTypeResponse+    -- * Response Lenses+    , 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++-- | The input for the DeprecateThingType operation.+--+-- /See:/ 'deprecateThingType' smart constructor.+data DeprecateThingType = DeprecateThingType'+    { _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:+--+-- * 'depUndoDeprecate'+--+-- * 'depThingTypeName'+deprecateThingType+    :: Text -- ^ 'depThingTypeName'+    -> DeprecateThingType+deprecateThingType 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});++-- | The name of the thing type to deprecate.+depThingTypeName :: Lens' DeprecateThingType Text+depThingTypeName = lens _depThingTypeName (\ s a -> s{_depThingTypeName = a});++instance AWSRequest DeprecateThingType where+        type Rs DeprecateThingType =+             DeprecateThingTypeResponse+        request = postJSON ioT+        response+          = receiveEmpty+              (\ s h x ->+                 DeprecateThingTypeResponse' <$> (pure (fromEnum s)))++instance Hashable DeprecateThingType++instance NFData DeprecateThingType++instance ToHeaders DeprecateThingType where+        toHeaders = const mempty++instance ToJSON DeprecateThingType where+        toJSON DeprecateThingType'{..}+          = object+              (catMaybes+                 [("undoDeprecate" .=) <$> _depUndoDeprecate])++instance ToPath DeprecateThingType where+        toPath DeprecateThingType'{..}+          = mconcat+              ["/thing-types/", toBS _depThingTypeName,+               "/deprecate"]++instance ToQuery DeprecateThingType where+        toQuery = const mempty++-- | The output for the DeprecateThingType operation.+--+-- /See:/ 'deprecateThingTypeResponse' smart constructor.+newtype DeprecateThingTypeResponse = DeprecateThingTypeResponse'+    { _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:+--+-- * 'deprsResponseStatus'+deprecateThingTypeResponse+    :: Int -- ^ 'deprsResponseStatus'+    -> DeprecateThingTypeResponse+deprecateThingTypeResponse pResponseStatus_ =+    DeprecateThingTypeResponse'+    { _deprsResponseStatus = pResponseStatus_+    }++-- | The response status code.+deprsResponseStatus :: Lens' DeprecateThingTypeResponse Int+deprsResponseStatus = lens _deprsResponseStatus (\ s a -> s{_deprsResponseStatus = a});++instance NFData DeprecateThingTypeResponse

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns a unique endpoint specific to the AWS account making the call. You specify the following URI when updating state information for your thing: https:\/\//endpoint/\/things\//thingName/\/shadow.+-- Returns a unique endpoint specific to the AWS account making the call. module Network.AWS.IoT.DescribeEndpoint     (     -- * Creating a Request

@@ -32,7 +32,9 @@     , DescribeThingResponse     -- * Response Lenses     , dtrsDefaultClientId+    , dtrsThingTypeName     , dtrsAttributes+    , dtrsVersion     , dtrsThingName     , dtrsResponseStatus     ) where@@ -75,8 +77,9 @@           = receiveJSON               (\ s h x ->                  DescribeThingResponse' <$>-                   (x .?> "defaultClientId") <*>-                     (x .?> "attributes" .!@ mempty)+                   (x .?> "defaultClientId") <*> (x .?> "thingTypeName")+                     <*> (x .?> "attributes" .!@ mempty)+                     <*> (x .?> "version")                      <*> (x .?> "thingName")                      <*> (pure (fromEnum s))) @@ -99,7 +102,9 @@ -- /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)@@ -110,8 +115,12 @@ -- -- * 'dtrsDefaultClientId' --+-- * 'dtrsThingTypeName'+-- -- * 'dtrsAttributes' --+-- * 'dtrsVersion'+-- -- * 'dtrsThingName' -- -- * 'dtrsResponseStatus'@@ -121,7 +130,9 @@ describeThingResponse pResponseStatus_ =     DescribeThingResponse'     { _dtrsDefaultClientId = Nothing+    , _dtrsThingTypeName = Nothing     , _dtrsAttributes = Nothing+    , _dtrsVersion = Nothing     , _dtrsThingName = Nothing     , _dtrsResponseStatus = pResponseStatus_     }@@ -130,9 +141,19 @@ dtrsDefaultClientId :: Lens' DescribeThingResponse (Maybe Text) dtrsDefaultClientId = lens _dtrsDefaultClientId (\ s a -> s{_dtrsDefaultClientId = a}); --- | The attributes, which are name\/value pairs in JSON format (for example: {\\\"attributes\\\":{\\\"some-name1\\\":\\\"some-value1\\\"}, {\\\"some-name2\\\":\\\"some-value2\\\"}, {\\\"some-name3\\\":\\\"some-value3\\\"}})+-- | The thing type name.+dtrsThingTypeName :: Lens' DescribeThingResponse (Maybe Text)+dtrsThingTypeName = lens _dtrsThingTypeName (\ s a -> s{_dtrsThingTypeName = a});++-- | The thing attributes. dtrsAttributes :: Lens' DescribeThingResponse (HashMap Text Text) dtrsAttributes = lens _dtrsAttributes (\ s a -> s{_dtrsAttributes = a}) . _Default . _Map;++-- | The current version of the thing record in the registry.+--+-- To avoid unintentional changes to the information in the registry, you can pass the version information in the 'expectedVersion' parameter of the 'UpdateThing' and 'DeleteThing' calls.+dtrsVersion :: Lens' DescribeThingResponse (Maybe Integer)+dtrsVersion = lens _dtrsVersion (\ s a -> s{_dtrsVersion = a});  -- | The name of the thing. dtrsThingName :: Lens' DescribeThingResponse (Maybe Text)

@@ -0,0 +1,145 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.IoT.DescribeThingType+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about the specified thing type.+module Network.AWS.IoT.DescribeThingType+    (+    -- * Creating a Request+      describeThingType+    , DescribeThingType+    -- * Request Lenses+    , dThingTypeName++    -- * Destructuring the Response+    , describeThingTypeResponse+    , DescribeThingTypeResponse+    -- * Response Lenses+    , drsThingTypeProperties+    , drsThingTypeName+    , drsThingTypeMetadata+    , 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++-- | The input for the DescribeThingType operation.+--+-- /See:/ 'describeThingType' smart constructor.+newtype DescribeThingType = DescribeThingType'+    { _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:+--+-- * 'dThingTypeName'+describeThingType+    :: Text -- ^ 'dThingTypeName'+    -> DescribeThingType+describeThingType pThingTypeName_ =+    DescribeThingType'+    { _dThingTypeName = pThingTypeName_+    }++-- | The name of the thing type.+dThingTypeName :: Lens' DescribeThingType Text+dThingTypeName = lens _dThingTypeName (\ s a -> s{_dThingTypeName = a});++instance AWSRequest DescribeThingType where+        type Rs DescribeThingType = DescribeThingTypeResponse+        request = get ioT+        response+          = receiveJSON+              (\ s h x ->+                 DescribeThingTypeResponse' <$>+                   (x .?> "thingTypeProperties") <*>+                     (x .?> "thingTypeName")+                     <*> (x .?> "thingTypeMetadata")+                     <*> (pure (fromEnum s)))++instance Hashable DescribeThingType++instance NFData DescribeThingType++instance ToHeaders DescribeThingType where+        toHeaders = const mempty++instance ToPath DescribeThingType where+        toPath DescribeThingType'{..}+          = mconcat ["/thing-types/", toBS _dThingTypeName]++instance ToQuery DescribeThingType where+        toQuery = const mempty++-- | The output for the DescribeThingType operation.+--+-- /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)++-- | 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:+--+-- * 'drsThingTypeProperties'+--+-- * 'drsThingTypeName'+--+-- * 'drsThingTypeMetadata'+--+-- * 'drsResponseStatus'+describeThingTypeResponse+    :: Int -- ^ 'drsResponseStatus'+    -> DescribeThingTypeResponse+describeThingTypeResponse 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});++-- | The name of the thing type.+drsThingTypeName :: Lens' DescribeThingTypeResponse (Maybe Text)+drsThingTypeName = lens _drsThingTypeName (\ s a -> s{_drsThingTypeName = a});++-- | Undocumented member.+drsThingTypeMetadata :: Lens' DescribeThingTypeResponse (Maybe ThingTypeMetadata)+drsThingTypeMetadata = lens _drsThingTypeMetadata (\ s a -> s{_drsThingTypeMetadata = a});++-- | The response status code.+drsResponseStatus :: Lens' DescribeThingTypeResponse Int+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});++instance NFData DescribeThingTypeResponse

@@ -71,7 +71,7 @@ dtpThingName :: Lens' DetachThingPrincipal Text dtpThingName = lens _dtpThingName (\ s a -> s{_dtpThingName = a}); --- | The principal.+-- | If the principal is a certificate, this value must be ARN of the certificate. If the principal is an Amazon Cognito identity, this value must be the ID of the Amazon Cognito identity. dtpPrincipal :: Lens' DetachThingPrincipal Text dtpPrincipal = lens _dtpPrincipal (\ s a -> s{_dtpPrincipal = a}); 

@@ -0,0 +1,156 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.IoT.ListOutgoingCertificates+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists certificates that are being transfered but not yet accepted.+module Network.AWS.IoT.ListOutgoingCertificates+    (+    -- * Creating a Request+      listOutgoingCertificates+    , ListOutgoingCertificates+    -- * Request Lenses+    , locMarker+    , locAscendingOrder+    , locPageSize++    -- * Destructuring the Response+    , listOutgoingCertificatesResponse+    , ListOutgoingCertificatesResponse+    -- * Response Lenses+    , locrsNextMarker+    , locrsOutgoingCertificates+    , 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++-- | The input to the ListOutgoingCertificates operation.+--+-- /See:/ 'listOutgoingCertificates' smart constructor.+data ListOutgoingCertificates = ListOutgoingCertificates'+    { _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:+--+-- * 'locMarker'+--+-- * 'locAscendingOrder'+--+-- * 'locPageSize'+listOutgoingCertificates+    :: ListOutgoingCertificates+listOutgoingCertificates =+    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});++-- | Specifies the order for results. If True, the results are returned in ascending order, based on the creation date.+locAscendingOrder :: Lens' ListOutgoingCertificates (Maybe Bool)+locAscendingOrder = lens _locAscendingOrder (\ s a -> s{_locAscendingOrder = a});++-- | The result page size.+locPageSize :: Lens' ListOutgoingCertificates (Maybe Natural)+locPageSize = lens _locPageSize (\ s a -> s{_locPageSize = a}) . mapping _Nat;++instance AWSRequest ListOutgoingCertificates where+        type Rs ListOutgoingCertificates =+             ListOutgoingCertificatesResponse+        request = get ioT+        response+          = receiveJSON+              (\ s h x ->+                 ListOutgoingCertificatesResponse' <$>+                   (x .?> "nextMarker") <*>+                     (x .?> "outgoingCertificates" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable ListOutgoingCertificates++instance NFData ListOutgoingCertificates++instance ToHeaders ListOutgoingCertificates where+        toHeaders = const mempty++instance ToPath ListOutgoingCertificates where+        toPath = const "/certificates-out-going"++instance ToQuery ListOutgoingCertificates where+        toQuery ListOutgoingCertificates'{..}+          = mconcat+              ["marker" =: _locMarker,+               "isAscendingOrder" =: _locAscendingOrder,+               "pageSize" =: _locPageSize]++-- | The output from the ListOutgoingCertificates operation.+--+-- /See:/ 'listOutgoingCertificatesResponse' smart constructor.+data ListOutgoingCertificatesResponse = ListOutgoingCertificatesResponse'+    { _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:+--+-- * 'locrsNextMarker'+--+-- * 'locrsOutgoingCertificates'+--+-- * 'locrsResponseStatus'+listOutgoingCertificatesResponse+    :: Int -- ^ 'locrsResponseStatus'+    -> ListOutgoingCertificatesResponse+listOutgoingCertificatesResponse 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});++-- | The certificates that are being transfered but not yet accepted.+locrsOutgoingCertificates :: Lens' ListOutgoingCertificatesResponse [OutgoingCertificate]+locrsOutgoingCertificates = lens _locrsOutgoingCertificates (\ s a -> s{_locrsOutgoingCertificates = a}) . _Default . _Coerce;++-- | The response status code.+locrsResponseStatus :: Lens' ListOutgoingCertificatesResponse Int+locrsResponseStatus = lens _locrsResponseStatus (\ s a -> s{_locrsResponseStatus = a});++instance NFData ListOutgoingCertificatesResponse

@@ -0,0 +1,167 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.IoT.ListPolicyPrincipals+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists the principals associated with the specified policy.+module Network.AWS.IoT.ListPolicyPrincipals+    (+    -- * Creating a Request+      listPolicyPrincipals+    , ListPolicyPrincipals+    -- * Request Lenses+    , lMarker+    , lAscendingOrder+    , lPageSize+    , lPolicyName++    -- * Destructuring the Response+    , listPolicyPrincipalsResponse+    , ListPolicyPrincipalsResponse+    -- * Response Lenses+    , lrsPrincipals+    , lrsNextMarker+    , 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++-- | The input for the ListPolicyPrincipals operation.+--+-- /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)++-- | 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:+--+-- * 'lMarker'+--+-- * 'lAscendingOrder'+--+-- * 'lPageSize'+--+-- * 'lPolicyName'+listPolicyPrincipals+    :: Text -- ^ 'lPolicyName'+    -> ListPolicyPrincipals+listPolicyPrincipals 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});++-- | Specifies the order for results. If true, the results are returned in ascending creation order.+lAscendingOrder :: Lens' ListPolicyPrincipals (Maybe Bool)+lAscendingOrder = lens _lAscendingOrder (\ s a -> s{_lAscendingOrder = a});++-- | The result page size.+lPageSize :: Lens' ListPolicyPrincipals (Maybe Natural)+lPageSize = lens _lPageSize (\ s a -> s{_lPageSize = a}) . mapping _Nat;++-- | The policy name.+lPolicyName :: Lens' ListPolicyPrincipals Text+lPolicyName = lens _lPolicyName (\ s a -> s{_lPolicyName = a});++instance AWSRequest ListPolicyPrincipals where+        type Rs ListPolicyPrincipals =+             ListPolicyPrincipalsResponse+        request = get ioT+        response+          = receiveJSON+              (\ s h x ->+                 ListPolicyPrincipalsResponse' <$>+                   (x .?> "principals" .!@ mempty) <*>+                     (x .?> "nextMarker")+                     <*> (pure (fromEnum s)))++instance Hashable ListPolicyPrincipals++instance NFData ListPolicyPrincipals++instance ToHeaders ListPolicyPrincipals where+        toHeaders ListPolicyPrincipals'{..}+          = mconcat ["x-amzn-iot-policy" =# _lPolicyName]++instance ToPath ListPolicyPrincipals where+        toPath = const "/policy-principals"++instance ToQuery ListPolicyPrincipals where+        toQuery ListPolicyPrincipals'{..}+          = mconcat+              ["marker" =: _lMarker,+               "isAscendingOrder" =: _lAscendingOrder,+               "pageSize" =: _lPageSize]++-- | The output from the ListPolicyPrincipals operation.+--+-- /See:/ 'listPolicyPrincipalsResponse' smart constructor.+data ListPolicyPrincipalsResponse = ListPolicyPrincipalsResponse'+    { _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:+--+-- * 'lrsPrincipals'+--+-- * 'lrsNextMarker'+--+-- * 'lrsResponseStatus'+listPolicyPrincipalsResponse+    :: Int -- ^ 'lrsResponseStatus'+    -> ListPolicyPrincipalsResponse+listPolicyPrincipalsResponse 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;++-- | The marker for the next set of results, or null if there are no additional results.+lrsNextMarker :: Lens' ListPolicyPrincipalsResponse (Maybe Text)+lrsNextMarker = lens _lrsNextMarker (\ s a -> s{_lrsNextMarker = a});++-- | The response status code.+lrsResponseStatus :: Lens' ListPolicyPrincipalsResponse Int+lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a});++instance NFData ListPolicyPrincipalsResponse

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Lists the versions of the specified policy, and identifies the default version.+-- Lists the versions of the specified policy and identifies the default version. module Network.AWS.IoT.ListPolicyVersions     (     -- * Creating a Request

@@ -73,11 +73,11 @@     , _lptPrincipal = pPrincipal_     } --- | A token used to retrieve the next value.+-- | 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}); --- | The maximum number of principals to return.+-- | The maximum number of results to return in this operation. lptMaxResults :: Lens' ListPrincipalThings (Maybe Natural) lptMaxResults = lens _lptMaxResults (\ s a -> s{_lptMaxResults = a}) . mapping _Nat; @@ -141,7 +141,7 @@     , _lptrsResponseStatus = pResponseStatus_     } --- | A token used to retrieve the next value.+-- | 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}); 

@@ -116,7 +116,7 @@     , _ltprsResponseStatus = pResponseStatus_     } --- | The principals.+-- | The principals associated with the thing. ltprsPrincipals :: Lens' ListThingPrincipalsResponse [Text] ltprsPrincipals = lens _ltprsPrincipals (\ s a -> s{_ltprsPrincipals = a}) . _Default . _Coerce; 

@@ -0,0 +1,155 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.IoT.ListThingTypes+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists the existing thing types.+module Network.AWS.IoT.ListThingTypes+    (+    -- * Creating a Request+      listThingTypes+    , ListThingTypes+    -- * Request Lenses+    , lttThingTypeName+    , lttNextToken+    , lttMaxResults++    -- * Destructuring the Response+    , listThingTypesResponse+    , ListThingTypesResponse+    -- * Response Lenses+    , lttrsThingTypes+    , lttrsNextToken+    , 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++-- | The input for the ListThingTypes operation.+--+-- /See:/ 'listThingTypes' smart constructor.+data ListThingTypes = ListThingTypes'+    { _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:+--+-- * 'lttThingTypeName'+--+-- * 'lttNextToken'+--+-- * 'lttMaxResults'+listThingTypes+    :: ListThingTypes+listThingTypes =+    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});++-- | The token for the next set of results, or __null__ if there are no additional results.+lttNextToken :: Lens' ListThingTypes (Maybe Text)+lttNextToken = lens _lttNextToken (\ s a -> s{_lttNextToken = a});++-- | The maximum number of results to return in this operation.+lttMaxResults :: Lens' ListThingTypes (Maybe Natural)+lttMaxResults = lens _lttMaxResults (\ s a -> s{_lttMaxResults = a}) . mapping _Nat;++instance AWSRequest ListThingTypes where+        type Rs ListThingTypes = ListThingTypesResponse+        request = get ioT+        response+          = receiveJSON+              (\ s h x ->+                 ListThingTypesResponse' <$>+                   (x .?> "thingTypes" .!@ mempty) <*>+                     (x .?> "nextToken")+                     <*> (pure (fromEnum s)))++instance Hashable ListThingTypes++instance NFData ListThingTypes++instance ToHeaders ListThingTypes where+        toHeaders = const mempty++instance ToPath ListThingTypes where+        toPath = const "/thing-types"++instance ToQuery ListThingTypes where+        toQuery ListThingTypes'{..}+          = mconcat+              ["thingTypeName" =: _lttThingTypeName,+               "nextToken" =: _lttNextToken,+               "maxResults" =: _lttMaxResults]++-- | The output for the ListThingTypes operation.+--+-- /See:/ 'listThingTypesResponse' smart constructor.+data ListThingTypesResponse = ListThingTypesResponse'+    { _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:+--+-- * 'lttrsThingTypes'+--+-- * 'lttrsNextToken'+--+-- * 'lttrsResponseStatus'+listThingTypesResponse+    :: Int -- ^ 'lttrsResponseStatus'+    -> ListThingTypesResponse+listThingTypesResponse 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;++-- | The token for the next set of results, or __null__ if there are no additional results.+lttrsNextToken :: Lens' ListThingTypesResponse (Maybe Text)+lttrsNextToken = lens _lttrsNextToken (\ s a -> s{_lttrsNextToken = a});++-- | The response status code.+lttrsResponseStatus :: Lens' ListThingTypesResponse Int+lttrsResponseStatus = lens _lttrsResponseStatus (\ s a -> s{_lttrsResponseStatus = a});++instance NFData ListThingTypesResponse

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Lists your things. You can pass an AttributeName or AttributeValue to filter your things (for example, \"ListThings where AttributeName=Color and AttributeValue=Red\").+-- Lists your things. Use the __attributeName__ and __attributeValue__ parameters to filter your things. For example, calling 'ListThings' with attributeName=Color and attributeValue=Red retrieves all things in the registry that contain an attribute __Color__ with the value __Red__. module Network.AWS.IoT.ListThings     (     -- * Creating a Request@@ -26,6 +26,7 @@     , ListThings     -- * Request Lenses     , ltAttributeValue+    , ltThingTypeName     , ltNextToken     , ltAttributeName     , ltMaxResults@@ -51,6 +52,7 @@ -- /See:/ 'listThings' smart constructor. data ListThings = ListThings'     { _ltAttributeValue :: !(Maybe Text)+    , _ltThingTypeName  :: !(Maybe Text)     , _ltNextToken      :: !(Maybe Text)     , _ltAttributeName  :: !(Maybe Text)     , _ltMaxResults     :: !(Maybe Nat)@@ -62,6 +64,8 @@ -- -- * 'ltAttributeValue' --+-- * 'ltThingTypeName'+-- -- * 'ltNextToken' -- -- * 'ltAttributeName'@@ -72,24 +76,29 @@ listThings =     ListThings'     { _ltAttributeValue = Nothing+    , _ltThingTypeName = Nothing     , _ltNextToken = Nothing     , _ltAttributeName = Nothing     , _ltMaxResults = Nothing     } --- | The attribute value.+-- | The attribute value used to search for things. ltAttributeValue :: Lens' ListThings (Maybe Text) ltAttributeValue = lens _ltAttributeValue (\ s a -> s{_ltAttributeValue = a}); --- | The token for the next value.+-- | The name of the thing type used to search for things.+ltThingTypeName :: Lens' ListThings (Maybe Text)+ltThingTypeName = lens _ltThingTypeName (\ s a -> s{_ltThingTypeName = a});++-- | The token for the next set of results, or __null__ if there are no additional results. ltNextToken :: Lens' ListThings (Maybe Text) ltNextToken = lens _ltNextToken (\ s a -> s{_ltNextToken = a}); --- | The attribute name.+-- | The attribute name used to search for things. ltAttributeName :: Lens' ListThings (Maybe Text) ltAttributeName = lens _ltAttributeName (\ s a -> s{_ltAttributeName = a}); --- | The maximum number of results.+-- | The maximum number of results to return in this operation. ltMaxResults :: Lens' ListThings (Maybe Natural) ltMaxResults = lens _ltMaxResults (\ s a -> s{_ltMaxResults = a}) . mapping _Nat; @@ -117,6 +126,7 @@         toQuery ListThings'{..}           = mconcat               ["attributeValue" =: _ltAttributeValue,+               "thingTypeName" =: _ltThingTypeName,                "nextToken" =: _ltNextToken,                "attributeName" =: _ltAttributeName,                "maxResults" =: _ltMaxResults]@@ -149,7 +159,7 @@     , _ltrsResponseStatus = pResponseStatus_     } --- | A token used to retrieve the next value.+-- | 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}); 

@@ -26,6 +26,7 @@     , RegisterCACertificate     -- * Request Lenses     , rcacSetAsActive+    , rcacAllowAutoRegistration     , rcacCaCertificate     , rcacVerificationCertificate @@ -50,6 +51,7 @@ -- /See:/ 'registerCACertificate' smart constructor. data RegisterCACertificate = RegisterCACertificate'     { _rcacSetAsActive             :: !(Maybe Bool)+    , _rcacAllowAutoRegistration   :: !(Maybe Bool)     , _rcacCaCertificate           :: !Text     , _rcacVerificationCertificate :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -60,6 +62,8 @@ -- -- * 'rcacSetAsActive' --+-- * 'rcacAllowAutoRegistration'+-- -- * 'rcacCaCertificate' -- -- * 'rcacVerificationCertificate'@@ -70,6 +74,7 @@ registerCACertificate pCaCertificate_ pVerificationCertificate_ =     RegisterCACertificate'     { _rcacSetAsActive = Nothing+    , _rcacAllowAutoRegistration = Nothing     , _rcacCaCertificate = pCaCertificate_     , _rcacVerificationCertificate = pVerificationCertificate_     }@@ -78,6 +83,10 @@ rcacSetAsActive :: Lens' RegisterCACertificate (Maybe Bool) rcacSetAsActive = lens _rcacSetAsActive (\ s a -> s{_rcacSetAsActive = a}); +-- | Allows this CA certificate to be used for auto registration of device certificates.+rcacAllowAutoRegistration :: Lens' RegisterCACertificate (Maybe Bool)+rcacAllowAutoRegistration = lens _rcacAllowAutoRegistration (\ s a -> s{_rcacAllowAutoRegistration = a});+ -- | The CA certificate. rcacCaCertificate :: Lens' RegisterCACertificate Text rcacCaCertificate = lens _rcacCaCertificate (\ s a -> s{_rcacCaCertificate = a});@@ -118,7 +127,10 @@  instance ToQuery RegisterCACertificate where         toQuery RegisterCACertificate'{..}-          = mconcat ["setAsActive" =: _rcacSetAsActive]+          = mconcat+              ["setAsActive" =: _rcacSetAsActive,+               "allowAutoRegistration" =:+                 _rcacAllowAutoRegistration]  -- | The output from the RegisterCACertificateResponse operation. --

@@ -32,16 +32,23 @@     , _VersionsLimitExceededException     , _ServiceUnavailableException     , _InternalException+    , _VersionConflictException     , _UnauthorizedException     , _ResourceNotFoundException     , _LimitExceededException +    -- * AutoRegistrationStatus+    , AutoRegistrationStatus (..)+     -- * CACertificateStatus     , CACertificateStatus (..)      -- * CertificateStatus     , CertificateStatus (..) +    -- * DynamoKeyType+    , DynamoKeyType (..)+     -- * LogLevel     , LogLevel (..) @@ -67,6 +74,7 @@     , AttributePayload     , attributePayload     , apAttributes+    , apMerge      -- * CACertificate     , CACertificate@@ -84,6 +92,7 @@     , cacdCertificatePem     , cacdCertificateARN     , cacdCertificateId+    , cacdAutoRegistrationStatus     , cacdCreationDate      -- * Certificate@@ -129,13 +138,16 @@     -- * DynamoDBAction     , DynamoDBAction     , dynamoDBAction+    , ddaHashKeyType+    , ddaOperation+    , ddaRangeKeyType     , ddaPayloadField+    , ddaRangeKeyField+    , ddaRangeKeyValue     , ddaTableName     , ddaRoleARN     , ddaHashKeyField     , ddaHashKeyValue-    , ddaRangeKeyField-    , ddaRangeKeyValue      -- * ElasticsearchAction     , ElasticsearchAction@@ -149,6 +161,7 @@     -- * FirehoseAction     , FirehoseAction     , firehoseAction+    , faSeparator     , faRoleARN     , faDeliveryStreamName @@ -176,6 +189,16 @@     , lopLogLevel     , lopRoleARN +    -- * OutgoingCertificate+    , OutgoingCertificate+    , outgoingCertificate+    , ocTransferDate+    , ocCertificateARN+    , ocCertificateId+    , ocTransferredTo+    , ocCreationDate+    , ocTransferMessage+     -- * Policy     , Policy     , policy@@ -219,9 +242,31 @@     -- * ThingAttribute     , ThingAttribute     , thingAttribute+    , taThingTypeName     , taAttributes+    , taVersion     , taThingName +    -- * ThingTypeDefinition+    , ThingTypeDefinition+    , thingTypeDefinition+    , ttdThingTypeProperties+    , ttdThingTypeName+    , ttdThingTypeMetadata++    -- * ThingTypeMetadata+    , ThingTypeMetadata+    , thingTypeMetadata+    , ttmDeprecationDate+    , ttmCreationDate+    , ttmDeprecated++    -- * ThingTypeProperties+    , ThingTypeProperties+    , thingTypeProperties+    , ttpSearchableAttributes+    , ttpThingTypeDescription+     -- * TopicRule     , TopicRule     , topicRule@@ -381,6 +426,11 @@ _InternalException :: AsError a => Getting (First ServiceError) a ServiceError _InternalException =     _ServiceError . hasStatus 500 . hasCode "InternalException"++-- | An exception thrown when the version of a thing passed to a command is different than the version specified with the --version parameter.+_VersionConflictException :: AsError a => Getting (First ServiceError) a ServiceError+_VersionConflictException =+    _ServiceError . hasStatus 409 . hasCode "VersionConflictException"  -- | You are not authorized to perform this operation. _UnauthorizedException :: AsError a => Getting (First ServiceError) a ServiceError

@@ -159,11 +159,12 @@                   ("republish" .=) <$> _aRepublish,                   ("sqs" .=) <$> _aSqs]) --- | The attribute payload, a JSON string containing up to three key-value pairs (for example, {\\\"attributes\\\":{\\\"string1\\\":\\\"string2\\\"}}).+-- | The attribute payload. -- -- /See:/ 'attributePayload' smart constructor.-newtype AttributePayload = AttributePayload'-    { _apAttributes :: Maybe (Map Text Text)+data AttributePayload = AttributePayload'+    { _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.@@ -171,17 +172,30 @@ -- Use one of the following lenses to modify other fields as desired: -- -- * 'apAttributes'+--+-- * 'apMerge' attributePayload     :: AttributePayload attributePayload =     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; +-- | Specifies whether the list of attributes provided in the 'AttributePayload' is merged with the attributes stored in the registry, instead of overwriting them.+--+-- To remove an attribute, call 'UpdateThing' with an empty attribute value.+--+-- The 'merge' attribute is only valid when calling 'UpdateThing'.+apMerge :: Lens' AttributePayload (Maybe Bool)+apMerge = lens _apMerge (\ s a -> s{_apMerge = a});+ instance Hashable AttributePayload  instance NFData AttributePayload@@ -189,7 +203,9 @@ instance ToJSON AttributePayload where         toJSON AttributePayload'{..}           = object-              (catMaybes [("attributes" .=) <$> _apAttributes])+              (catMaybes+                 [("attributes" .=) <$> _apAttributes,+                  ("merge" .=) <$> _apMerge])  -- | A CA certificate. --@@ -223,6 +239,8 @@     }  -- | 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}); @@ -255,12 +273,13 @@ -- -- /See:/ 'cACertificateDescription' smart constructor. data CACertificateDescription = CACertificateDescription'-    { _cacdStatus         :: !(Maybe CACertificateStatus)-    , _cacdOwnedBy        :: !(Maybe Text)-    , _cacdCertificatePem :: !(Maybe Text)-    , _cacdCertificateARN :: !(Maybe Text)-    , _cacdCertificateId  :: !(Maybe Text)-    , _cacdCreationDate   :: !(Maybe POSIX)+    { _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.@@ -277,6 +296,8 @@ -- -- * 'cacdCertificateId' --+-- * 'cacdAutoRegistrationStatus'+-- -- * 'cacdCreationDate' cACertificateDescription     :: CACertificateDescription@@ -287,6 +308,7 @@     , _cacdCertificatePem = Nothing     , _cacdCertificateARN = Nothing     , _cacdCertificateId = Nothing+    , _cacdAutoRegistrationStatus = Nothing     , _cacdCreationDate = Nothing     } @@ -310,6 +332,10 @@ cacdCertificateId :: Lens' CACertificateDescription (Maybe Text) cacdCertificateId = lens _cacdCertificateId (\ s a -> s{_cacdCertificateId = a}); +-- | Whether the CA certificate configured for auto registration of device certificates. Valid values are \"ENABLE\" and \"DISABLE\"+cacdAutoRegistrationStatus :: Lens' CACertificateDescription (Maybe AutoRegistrationStatus)+cacdAutoRegistrationStatus = lens _cacdAutoRegistrationStatus (\ s a -> s{_cacdAutoRegistrationStatus = a});+ -- | The date the CA certificate was created. cacdCreationDate :: Lens' CACertificateDescription (Maybe UTCTime) cacdCreationDate = lens _cacdCreationDate (\ s a -> s{_cacdCreationDate = a}) . mapping _Time;@@ -323,6 +349,7 @@                      (x .:? "certificatePem")                      <*> (x .:? "certificateArn")                      <*> (x .:? "certificateId")+                     <*> (x .:? "autoRegistrationStatus")                      <*> (x .:? "creationDate"))  instance Hashable CACertificateDescription@@ -361,6 +388,8 @@     }  -- | 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}); @@ -686,21 +715,34 @@ -- -- /See:/ 'dynamoDBAction' smart constructor. data DynamoDBAction = DynamoDBAction'-    { _ddaPayloadField  :: !(Maybe Text)+    { _ddaHashKeyType   :: !(Maybe DynamoKeyType)+    , _ddaOperation     :: !(Maybe Text)+    , _ddaRangeKeyType  :: !(Maybe DynamoKeyType)+    , _ddaPayloadField  :: !(Maybe Text)+    , _ddaRangeKeyField :: !(Maybe Text)+    , _ddaRangeKeyValue :: !(Maybe Text)     , _ddaTableName     :: !Text     , _ddaRoleARN       :: !Text     , _ddaHashKeyField  :: !Text     , _ddaHashKeyValue  :: !Text-    , _ddaRangeKeyField :: !Text-    , _ddaRangeKeyValue :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DynamoDBAction' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'ddaHashKeyType'+--+-- * 'ddaOperation'+--+-- * 'ddaRangeKeyType'+-- -- * 'ddaPayloadField' --+-- * 'ddaRangeKeyField'+--+-- * 'ddaRangeKeyValue'+-- -- * 'ddaTableName' -- -- * 'ddaRoleARN'@@ -708,33 +750,50 @@ -- * 'ddaHashKeyField' -- -- * 'ddaHashKeyValue'------ * 'ddaRangeKeyField'------ * 'ddaRangeKeyValue' dynamoDBAction     :: Text -- ^ 'ddaTableName'     -> Text -- ^ 'ddaRoleARN'     -> Text -- ^ 'ddaHashKeyField'     -> Text -- ^ 'ddaHashKeyValue'-    -> Text -- ^ 'ddaRangeKeyField'-    -> Text -- ^ 'ddaRangeKeyValue'     -> DynamoDBAction-dynamoDBAction pTableName_ pRoleARN_ pHashKeyField_ pHashKeyValue_ pRangeKeyField_ pRangeKeyValue_ =+dynamoDBAction pTableName_ pRoleARN_ pHashKeyField_ pHashKeyValue_ =     DynamoDBAction'-    { _ddaPayloadField = Nothing+    { _ddaHashKeyType = Nothing+    , _ddaOperation = Nothing+    , _ddaRangeKeyType = Nothing+    , _ddaPayloadField = Nothing+    , _ddaRangeKeyField = Nothing+    , _ddaRangeKeyValue = Nothing     , _ddaTableName = pTableName_     , _ddaRoleARN = pRoleARN_     , _ddaHashKeyField = pHashKeyField_     , _ddaHashKeyValue = pHashKeyValue_-    , _ddaRangeKeyField = pRangeKeyField_-    , _ddaRangeKeyValue = pRangeKeyValue_     } +-- | The hash key type. Valid values are \"STRING\" or \"NUMBER\"+ddaHashKeyType :: Lens' DynamoDBAction (Maybe DynamoKeyType)+ddaHashKeyType = lens _ddaHashKeyType (\ s a -> s{_ddaHashKeyType = a});++-- | The type of operation to be performed. This follows the substitution template, so it can be '>{operation}', but the substitution must result in one of the following: 'INSERT', 'UPDATE', or 'DELETE'.+ddaOperation :: Lens' DynamoDBAction (Maybe Text)+ddaOperation = lens _ddaOperation (\ s a -> s{_ddaOperation = a});++-- | The range key type. Valid values are \"STRING\" or \"NUMBER\"+ddaRangeKeyType :: Lens' DynamoDBAction (Maybe DynamoKeyType)+ddaRangeKeyType = lens _ddaRangeKeyType (\ s a -> s{_ddaRangeKeyType = a});+ -- | The action payload. This name can be customized. ddaPayloadField :: Lens' DynamoDBAction (Maybe Text) ddaPayloadField = lens _ddaPayloadField (\ s a -> s{_ddaPayloadField = a}); +-- | The range key name.+ddaRangeKeyField :: Lens' DynamoDBAction (Maybe Text)+ddaRangeKeyField = lens _ddaRangeKeyField (\ s a -> s{_ddaRangeKeyField = a});++-- | The range key value.+ddaRangeKeyValue :: Lens' DynamoDBAction (Maybe Text)+ddaRangeKeyValue = lens _ddaRangeKeyValue (\ s a -> s{_ddaRangeKeyValue = a});+ -- | The name of the DynamoDB table. ddaTableName :: Lens' DynamoDBAction Text ddaTableName = lens _ddaTableName (\ s a -> s{_ddaTableName = a});@@ -751,25 +810,20 @@ ddaHashKeyValue :: Lens' DynamoDBAction Text ddaHashKeyValue = lens _ddaHashKeyValue (\ s a -> s{_ddaHashKeyValue = a}); --- | The range key name.-ddaRangeKeyField :: Lens' DynamoDBAction Text-ddaRangeKeyField = lens _ddaRangeKeyField (\ s a -> s{_ddaRangeKeyField = a});---- | The range key value.-ddaRangeKeyValue :: Lens' DynamoDBAction Text-ddaRangeKeyValue = lens _ddaRangeKeyValue (\ s a -> s{_ddaRangeKeyValue = a});- instance FromJSON DynamoDBAction where         parseJSON           = withObject "DynamoDBAction"               (\ x ->                  DynamoDBAction' <$>-                   (x .:? "payloadField") <*> (x .: "tableName") <*>-                     (x .: "roleArn")+                   (x .:? "hashKeyType") <*> (x .:? "operation") <*>+                     (x .:? "rangeKeyType")+                     <*> (x .:? "payloadField")+                     <*> (x .:? "rangeKeyField")+                     <*> (x .:? "rangeKeyValue")+                     <*> (x .: "tableName")+                     <*> (x .: "roleArn")                      <*> (x .: "hashKeyField")-                     <*> (x .: "hashKeyValue")-                     <*> (x .: "rangeKeyField")-                     <*> (x .: "rangeKeyValue"))+                     <*> (x .: "hashKeyValue"))  instance Hashable DynamoDBAction @@ -779,13 +833,16 @@         toJSON DynamoDBAction'{..}           = object               (catMaybes-                 [("payloadField" .=) <$> _ddaPayloadField,+                 [("hashKeyType" .=) <$> _ddaHashKeyType,+                  ("operation" .=) <$> _ddaOperation,+                  ("rangeKeyType" .=) <$> _ddaRangeKeyType,+                  ("payloadField" .=) <$> _ddaPayloadField,+                  ("rangeKeyField" .=) <$> _ddaRangeKeyField,+                  ("rangeKeyValue" .=) <$> _ddaRangeKeyValue,                   Just ("tableName" .= _ddaTableName),                   Just ("roleArn" .= _ddaRoleARN),                   Just ("hashKeyField" .= _ddaHashKeyField),-                  Just ("hashKeyValue" .= _ddaHashKeyValue),-                  Just ("rangeKeyField" .= _ddaRangeKeyField),-                  Just ("rangeKeyValue" .= _ddaRangeKeyValue)])+                  Just ("hashKeyValue" .= _ddaHashKeyValue)])  -- | Describes an action that writes data to an Amazon Elasticsearch Service; domain. --@@ -874,7 +931,8 @@ -- -- /See:/ 'firehoseAction' smart constructor. data FirehoseAction = FirehoseAction'-    { _faRoleARN            :: !Text+    { _faSeparator          :: !(Maybe Text)+    , _faRoleARN            :: !Text     , _faDeliveryStreamName :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -882,6 +940,8 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'faSeparator'+-- -- * 'faRoleARN' -- -- * 'faDeliveryStreamName'@@ -891,10 +951,15 @@     -> FirehoseAction firehoseAction pRoleARN_ pDeliveryStreamName_ =     FirehoseAction'-    { _faRoleARN = pRoleARN_+    { _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});+ -- | The IAM role that grants access to the Amazon Kinesis Firehost stream. faRoleARN :: Lens' FirehoseAction Text faRoleARN = lens _faRoleARN (\ s a -> s{_faRoleARN = a});@@ -908,7 +973,8 @@           = withObject "FirehoseAction"               (\ x ->                  FirehoseAction' <$>-                   (x .: "roleArn") <*> (x .: "deliveryStreamName"))+                   (x .:? "separator") <*> (x .: "roleArn") <*>+                     (x .: "deliveryStreamName"))  instance Hashable FirehoseAction @@ -918,7 +984,8 @@         toJSON FirehoseAction'{..}           = object               (catMaybes-                 [Just ("roleArn" .= _faRoleARN),+                 [("separator" .=) <$> _faSeparator,+                  Just ("roleArn" .= _faRoleARN),                   Just                     ("deliveryStreamName" .= _faDeliveryStreamName)]) @@ -1106,6 +1173,84 @@                  [("logLevel" .=) <$> _lopLogLevel,                   Just ("roleArn" .= _lopRoleARN)]) +-- | A certificate that has been transfered but not yet accepted.+--+-- /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)++-- | 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:+--+-- * 'ocTransferDate'+--+-- * 'ocCertificateARN'+--+-- * 'ocCertificateId'+--+-- * 'ocTransferredTo'+--+-- * 'ocCreationDate'+--+-- * 'ocTransferMessage'+outgoingCertificate+    :: OutgoingCertificate+outgoingCertificate =+    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;++-- | The certificate ARN.+ocCertificateARN :: Lens' OutgoingCertificate (Maybe Text)+ocCertificateARN = lens _ocCertificateARN (\ s a -> s{_ocCertificateARN = a});++-- | The certificate ID.+ocCertificateId :: Lens' OutgoingCertificate (Maybe Text)+ocCertificateId = lens _ocCertificateId (\ s a -> s{_ocCertificateId = a});++-- | The AWS account to which the transfer was made.+ocTransferredTo :: Lens' OutgoingCertificate (Maybe Text)+ocTransferredTo = lens _ocTransferredTo (\ s a -> s{_ocTransferredTo = a});++-- | The certificate creation date.+ocCreationDate :: Lens' OutgoingCertificate (Maybe UTCTime)+ocCreationDate = lens _ocCreationDate (\ s a -> s{_ocCreationDate = a}) . mapping _Time;++-- | The transfer message.+ocTransferMessage :: Lens' OutgoingCertificate (Maybe Text)+ocTransferMessage = lens _ocTransferMessage (\ s a -> s{_ocTransferMessage = a});++instance FromJSON OutgoingCertificate where+        parseJSON+          = withObject "OutgoingCertificate"+              (\ x ->+                 OutgoingCertificate' <$>+                   (x .:? "transferDate") <*> (x .:? "certificateArn")+                     <*> (x .:? "certificateId")+                     <*> (x .:? "transferredTo")+                     <*> (x .:? "creationDate")+                     <*> (x .:? "transferMessage"))++instance Hashable OutgoingCertificate++instance NFData OutgoingCertificate+ -- | Describes an AWS IoT policy. -- -- /See:/ 'policy' smart constructor.@@ -1434,33 +1579,49 @@                   Just ("roleArn" .= _saRoleARN),                   Just ("queueUrl" .= _saQueueURL)]) --- | Describes a thing attribute.+-- | The properties of the thing, including thing name, thing type name, and a list of thing attributes. -- -- /See:/ 'thingAttribute' smart constructor. data ThingAttribute = ThingAttribute'-    { _taAttributes :: !(Maybe (Map Text Text))-    , _taThingName  :: !(Maybe Text)+    { _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: --+-- * 'taThingTypeName'+-- -- * 'taAttributes' --+-- * 'taVersion'+-- -- * 'taThingName' thingAttribute     :: ThingAttribute thingAttribute =     ThingAttribute'-    { _taAttributes = Nothing+    { _taThingTypeName = Nothing+    , _taAttributes = Nothing+    , _taVersion = Nothing     , _taThingName = Nothing     } --- | The attributes.+-- | 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});++-- | A list of thing attributes which are name-value pairs. taAttributes :: Lens' ThingAttribute (HashMap Text Text) taAttributes = lens _taAttributes (\ s a -> s{_taAttributes = a}) . _Default . _Map; +-- | The version of the thing record in the registry.+taVersion :: Lens' ThingAttribute (Maybe Integer)+taVersion = lens _taVersion (\ s a -> s{_taVersion = a});+ -- | The name of the thing. taThingName :: Lens' ThingAttribute (Maybe Text) taThingName = lens _taThingName (\ s a -> s{_taThingName = a});@@ -1470,12 +1631,169 @@           = withObject "ThingAttribute"               (\ x ->                  ThingAttribute' <$>-                   (x .:? "attributes" .!= mempty) <*>-                     (x .:? "thingName"))+                   (x .:? "thingTypeName") <*>+                     (x .:? "attributes" .!= mempty)+                     <*> (x .:? "version")+                     <*> (x .:? "thingName"))  instance Hashable ThingAttribute  instance NFData ThingAttribute++-- | The definition of the thing type, including thing type name and description.+--+-- /See:/ 'thingTypeDefinition' smart constructor.+data ThingTypeDefinition = ThingTypeDefinition'+    { _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:+--+-- * 'ttdThingTypeProperties'+--+-- * 'ttdThingTypeName'+--+-- * 'ttdThingTypeMetadata'+thingTypeDefinition+    :: ThingTypeDefinition+thingTypeDefinition =+    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});++-- | The name of the thing type.+ttdThingTypeName :: Lens' ThingTypeDefinition (Maybe Text)+ttdThingTypeName = lens _ttdThingTypeName (\ s a -> s{_ttdThingTypeName = a});++-- | Undocumented member.+ttdThingTypeMetadata :: Lens' ThingTypeDefinition (Maybe ThingTypeMetadata)+ttdThingTypeMetadata = lens _ttdThingTypeMetadata (\ s a -> s{_ttdThingTypeMetadata = a});++instance FromJSON ThingTypeDefinition where+        parseJSON+          = withObject "ThingTypeDefinition"+              (\ x ->+                 ThingTypeDefinition' <$>+                   (x .:? "thingTypeProperties") <*>+                     (x .:? "thingTypeName")+                     <*> (x .:? "thingTypeMetadata"))++instance Hashable ThingTypeDefinition++instance NFData ThingTypeDefinition++-- | The ThingTypeMetadata contains additional information about the thing type including: creation date and time, a value indicating whether the thing type is deprecated, and a date and time when time was deprecated.+--+-- /See:/ 'thingTypeMetadata' smart constructor.+data ThingTypeMetadata = ThingTypeMetadata'+    { _ttmDeprecationDate :: !(Maybe POSIX)+    , _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:+--+-- * 'ttmDeprecationDate'+--+-- * 'ttmCreationDate'+--+-- * 'ttmDeprecated'+thingTypeMetadata+    :: ThingTypeMetadata+thingTypeMetadata =+    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;++-- | The date and time when the thing type was created.+ttmCreationDate :: Lens' ThingTypeMetadata (Maybe UTCTime)+ttmCreationDate = lens _ttmCreationDate (\ s a -> s{_ttmCreationDate = a}) . mapping _Time;++-- | Whether the thing type is deprecated. If __true__, no new things could be associated with this type.+ttmDeprecated :: Lens' ThingTypeMetadata (Maybe Bool)+ttmDeprecated = lens _ttmDeprecated (\ s a -> s{_ttmDeprecated = a});++instance FromJSON ThingTypeMetadata where+        parseJSON+          = withObject "ThingTypeMetadata"+              (\ x ->+                 ThingTypeMetadata' <$>+                   (x .:? "deprecationDate") <*> (x .:? "creationDate")+                     <*> (x .:? "deprecated"))++instance Hashable ThingTypeMetadata++instance NFData ThingTypeMetadata++-- | The ThingTypeProperties contains information about the thing type including: a thing type description, and a list of searchable thing attribute names.+--+-- /See:/ 'thingTypeProperties' smart constructor.+data ThingTypeProperties = ThingTypeProperties'+    { _ttpSearchableAttributes :: !(Maybe [Text])+    , _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:+--+-- * 'ttpSearchableAttributes'+--+-- * 'ttpThingTypeDescription'+thingTypeProperties+    :: ThingTypeProperties+thingTypeProperties =+    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;++-- | The description of the thing type.+ttpThingTypeDescription :: Lens' ThingTypeProperties (Maybe Text)+ttpThingTypeDescription = lens _ttpThingTypeDescription (\ s a -> s{_ttpThingTypeDescription = a});++instance FromJSON ThingTypeProperties where+        parseJSON+          = withObject "ThingTypeProperties"+              (\ x ->+                 ThingTypeProperties' <$>+                   (x .:? "searchableAttributes" .!= mempty) <*>+                     (x .:? "thingTypeDescription"))++instance Hashable ThingTypeProperties++instance NFData ThingTypeProperties++instance ToJSON ThingTypeProperties where+        toJSON ThingTypeProperties'{..}+          = object+              (catMaybes+                 [("searchableAttributes" .=) <$>+                    _ttpSearchableAttributes,+                  ("thingTypeDescription" .=) <$>+                    _ttpThingTypeDescription])  -- | Describes a rule. --

@@ -19,6 +19,35 @@  import           Network.AWS.Prelude +data AutoRegistrationStatus+    = Disable+    | Enable+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText AutoRegistrationStatus where+    parser = takeLowerText >>= \case+        "disable" -> pure Disable+        "enable" -> pure Enable+        e -> fromTextError $ "Failure parsing AutoRegistrationStatus from value: '" <> e+           <> "'. Accepted values: disable, enable"++instance ToText AutoRegistrationStatus where+    toText = \case+        Disable -> "DISABLE"+        Enable -> "ENABLE"++instance Hashable     AutoRegistrationStatus+instance NFData       AutoRegistrationStatus+instance ToByteString AutoRegistrationStatus+instance ToQuery      AutoRegistrationStatus+instance ToHeader     AutoRegistrationStatus++instance ToJSON AutoRegistrationStatus where+    toJSON = toJSONText++instance FromJSON AutoRegistrationStatus where+    parseJSON = parseJSONText "AutoRegistrationStatus"+ data CACertificateStatus     = CACSActive     | CACSInactive@@ -29,7 +58,7 @@         "active" -> pure CACSActive         "inactive" -> pure CACSInactive         e -> fromTextError $ "Failure parsing CACertificateStatus from value: '" <> e-           <> "'. Accepted values: ACTIVE, INACTIVE"+           <> "'. Accepted values: active, inactive"  instance ToText CACertificateStatus where     toText = \case@@ -51,6 +80,7 @@ data CertificateStatus     = Active     | Inactive+    | PendingActivation     | PendingTransfer     | RegisterInactive     | Revoked@@ -60,16 +90,18 @@     parser = takeLowerText >>= \case         "active" -> pure Active         "inactive" -> pure Inactive+        "pending_activation" -> pure PendingActivation         "pending_transfer" -> pure PendingTransfer         "register_inactive" -> pure RegisterInactive         "revoked" -> pure Revoked         e -> fromTextError $ "Failure parsing CertificateStatus from value: '" <> e-           <> "'. Accepted values: ACTIVE, INACTIVE, PENDING_TRANSFER, REGISTER_INACTIVE, REVOKED"+           <> "'. Accepted values: active, inactive, pending_activation, pending_transfer, register_inactive, revoked"  instance ToText CertificateStatus where     toText = \case         Active -> "ACTIVE"         Inactive -> "INACTIVE"+        PendingActivation -> "PENDING_ACTIVATION"         PendingTransfer -> "PENDING_TRANSFER"         RegisterInactive -> "REGISTER_INACTIVE"         Revoked -> "REVOKED"@@ -86,6 +118,35 @@ instance FromJSON CertificateStatus where     parseJSON = parseJSONText "CertificateStatus" +data DynamoKeyType+    = Number+    | String+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText DynamoKeyType where+    parser = takeLowerText >>= \case+        "number" -> pure Number+        "string" -> pure String+        e -> fromTextError $ "Failure parsing DynamoKeyType from value: '" <> e+           <> "'. Accepted values: number, string"++instance ToText DynamoKeyType where+    toText = \case+        Number -> "NUMBER"+        String -> "STRING"++instance Hashable     DynamoKeyType+instance NFData       DynamoKeyType+instance ToByteString DynamoKeyType+instance ToQuery      DynamoKeyType+instance ToHeader     DynamoKeyType++instance ToJSON DynamoKeyType where+    toJSON = toJSONText++instance FromJSON DynamoKeyType where+    parseJSON = parseJSONText "DynamoKeyType"+ data LogLevel     = Debug     | Disabled@@ -102,7 +163,7 @@         "info" -> pure Info         "warn" -> pure Warn         e -> fromTextError $ "Failure parsing LogLevel from value: '" <> e-           <> "'. Accepted values: DEBUG, DISABLED, ERROR, INFO, WARN"+           <> "'. Accepted values: debug, disabled, error, info, warn"  instance ToText LogLevel where     toText = \case@@ -134,7 +195,7 @@         "json" -> pure JSON         "raw" -> pure Raw         e -> fromTextError $ "Failure parsing MessageFormat from value: '" <> e-           <> "'. Accepted values: JSON, RAW"+           <> "'. Accepted values: json, raw"  instance ToText MessageFormat where     toText = \case

@@ -25,8 +25,9 @@       updateCACertificate     , UpdateCACertificate     -- * Request Lenses-    , ucacCertificateId     , ucacNewStatus+    , ucacNewAutoRegistrationStatus+    , ucacCertificateId      -- * Destructuring the Response     , updateCACertificateResponse@@ -44,35 +45,44 @@ -- -- /See:/ 'updateCACertificate' smart constructor. data UpdateCACertificate = UpdateCACertificate'-    { _ucacCertificateId :: !Text-    , _ucacNewStatus     :: !CACertificateStatus+    { _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: ----- * 'ucacCertificateId'--- -- * 'ucacNewStatus'+--+-- * 'ucacNewAutoRegistrationStatus'+--+-- * 'ucacCertificateId' updateCACertificate     :: Text -- ^ 'ucacCertificateId'-    -> CACertificateStatus -- ^ 'ucacNewStatus'     -> UpdateCACertificate-updateCACertificate pCertificateId_ pNewStatus_ =+updateCACertificate pCertificateId_ =     UpdateCACertificate'-    { _ucacCertificateId = pCertificateId_-    , _ucacNewStatus = pNewStatus_+    { _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});++-- | The new value for the auto registration status. Valid values are: \"ENABLE\" or \"DISABLE\".+ucacNewAutoRegistrationStatus :: Lens' UpdateCACertificate (Maybe AutoRegistrationStatus)+ucacNewAutoRegistrationStatus = lens _ucacNewAutoRegistrationStatus (\ s a -> s{_ucacNewAutoRegistrationStatus = a});+ -- | The CA certificate identifier. ucacCertificateId :: Lens' UpdateCACertificate Text ucacCertificateId = lens _ucacCertificateId (\ s a -> s{_ucacCertificateId = a}); --- | The updated status of the CA certificate.-ucacNewStatus :: Lens' UpdateCACertificate CACertificateStatus-ucacNewStatus = lens _ucacNewStatus (\ s a -> s{_ucacNewStatus = a});- instance AWSRequest UpdateCACertificate where         type Rs UpdateCACertificate =              UpdateCACertificateResponse@@ -96,7 +106,10 @@  instance ToQuery UpdateCACertificate where         toQuery UpdateCACertificate'{..}-          = mconcat ["newStatus" =: _ucacNewStatus]+          = mconcat+              ["newStatus" =: _ucacNewStatus,+               "newAutoRegistrationStatus" =:+                 _ucacNewAutoRegistrationStatus]  -- | /See:/ 'updateCACertificateResponse' smart constructor. data UpdateCACertificateResponse =

@@ -76,6 +76,8 @@ -- | The new status. -- -- __Note:__ Setting the status to PENDING_TRANSFER will result in an exception being thrown. PENDING_TRANSFER is a status used internally by AWS IoT. It is not intended for developer use.+--+-- __Note:__ The status value REGISTER_INACTIVE is deprecated and should not be used. ucNewStatus :: Lens' UpdateCertificate CertificateStatus ucNewStatus = lens _ucNewStatus (\ s a -> s{_ucNewStatus = a}); 

@@ -25,8 +25,11 @@       updateThing     , UpdateThing     -- * Request Lenses-    , utThingName+    , utRemoveThingType+    , utThingTypeName+    , utExpectedVersion     , utAttributePayload+    , utThingName      -- * Destructuring the Response     , updateThingResponse@@ -46,35 +49,62 @@ -- -- /See:/ 'updateThing' smart constructor. data UpdateThing = UpdateThing'-    { _utThingName        :: !Text-    , _utAttributePayload :: !AttributePayload+    { _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: ----- * 'utThingName'+-- * 'utRemoveThingType' --+-- * 'utThingTypeName'+--+-- * 'utExpectedVersion'+-- -- * 'utAttributePayload'+--+-- * 'utThingName' updateThing     :: Text -- ^ 'utThingName'-    -> AttributePayload -- ^ 'utAttributePayload'     -> UpdateThing-updateThing pThingName_ pAttributePayload_ =+updateThing pThingName_ =     UpdateThing'-    { _utThingName = pThingName_-    , _utAttributePayload = pAttributePayload_+    { _utRemoveThingType = Nothing+    , _utThingTypeName = Nothing+    , _utExpectedVersion = Nothing+    , _utAttributePayload = Nothing+    , _utThingName = pThingName_     } --- | The thing name.-utThingName :: Lens' UpdateThing Text-utThingName = lens _utThingName (\ s a -> s{_utThingName = a});+-- | Remove a thing type association. If __true__, the assocation is removed.+utRemoveThingType :: Lens' UpdateThing (Maybe Bool)+utRemoveThingType = lens _utRemoveThingType (\ s a -> s{_utRemoveThingType = a}); --- | The attribute payload, a JSON string containing up to three key-value pairs (for example, {\\\"attributes\\\":{\\\"string1\\\":\\\"string2\\\"}}).-utAttributePayload :: Lens' UpdateThing AttributePayload+-- | The name of the thing type.+utThingTypeName :: Lens' UpdateThing (Maybe Text)+utThingTypeName = lens _utThingTypeName (\ s a -> s{_utThingTypeName = a});++-- | The expected version of the thing record in the registry. If the version of the record in the registry does not match the expected version specified in the request, the 'UpdateThing' request is rejected with a 'VersionConflictException'.+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.+utAttributePayload :: Lens' UpdateThing (Maybe AttributePayload) utAttributePayload = lens _utAttributePayload (\ s a -> s{_utAttributePayload = a}); +-- | The name of the thing to update.+utThingName :: Lens' UpdateThing Text+utThingName = lens _utThingName (\ s a -> s{_utThingName = a});+ instance AWSRequest UpdateThing where         type Rs UpdateThing = UpdateThingResponse         request = patchJSON ioT@@ -94,7 +124,10 @@         toJSON UpdateThing'{..}           = object               (catMaybes-                 [Just ("attributePayload" .= _utAttributePayload)])+                 [("removeThingType" .=) <$> _utRemoveThingType,+                  ("thingTypeName" .=) <$> _utThingTypeName,+                  ("expectedVersion" .=) <$> _utExpectedVersion,+                  ("attributePayload" .=) <$> _utAttributePayload])  instance ToPath UpdateThing where         toPath UpdateThing'{..}

@@ -46,6 +46,9 @@ --         , requestGetLoggingOptions $ --             getLoggingOptions --+--         , requestListThingTypes $+--             listThingTypes+-- --         , requestCreateCertificateFromCsr $ --             createCertificateFromCsr --@@ -55,6 +58,9 @@ --         , requestUpdateThing $ --             updateThing --+--         , requestCreateThingType $+--             createThingType+-- --         , requestCancelCertificateTransfer $ --             cancelCertificateTransfer --@@ -112,12 +118,18 @@ --         , requestUpdateCertificate $ --             updateCertificate --+--         , requestListOutgoingCertificates $+--             listOutgoingCertificates+-- --         , requestDescribeCACertificate $ --             describeCACertificate -- --         , requestGetRegistrationCode $ --             getRegistrationCode --+--         , requestDeleteThingType $+--             deleteThingType+-- --         , requestListCertificatesByCA $ --             listCertificatesByCA --@@ -139,6 +151,9 @@ --         , requestDescribeCertificate $ --             describeCertificate --+--         , requestListPolicyPrincipals $+--             listPolicyPrincipals+-- --         , requestReplaceTopicRule $ --             replaceTopicRule --@@ -169,6 +184,9 @@ --         , requestSetLoggingOptions $ --             setLoggingOptions --+--         , requestDescribeThingType $+--             describeThingType+-- --         , requestAttachPrincipalPolicy $ --             attachPrincipalPolicy --@@ -178,6 +196,9 @@ --         , requestDetachThingPrincipal $ --             detachThingPrincipal --+--         , requestDeprecateThingType $+--             deprecateThingType+-- --           ]  --     , testGroup "response"@@ -199,6 +220,9 @@ --         , responseGetLoggingOptions $ --             getLoggingOptionsResponse --+--         , responseListThingTypes $+--             listThingTypesResponse+-- --         , responseCreateCertificateFromCsr $ --             createCertificateFromCsrResponse --@@ -208,6 +232,9 @@ --         , responseUpdateThing $ --             updateThingResponse --+--         , responseCreateThingType $+--             createThingTypeResponse+-- --         , responseCancelCertificateTransfer $ --             cancelCertificateTransferResponse --@@ -265,12 +292,18 @@ --         , responseUpdateCertificate $ --             updateCertificateResponse --+--         , responseListOutgoingCertificates $+--             listOutgoingCertificatesResponse+-- --         , responseDescribeCACertificate $ --             describeCACertificateResponse -- --         , responseGetRegistrationCode $ --             getRegistrationCodeResponse --+--         , responseDeleteThingType $+--             deleteThingTypeResponse+-- --         , responseListCertificatesByCA $ --             listCertificatesByCAResponse --@@ -292,6 +325,9 @@ --         , responseDescribeCertificate $ --             describeCertificateResponse --+--         , responseListPolicyPrincipals $+--             listPolicyPrincipalsResponse+-- --         , responseReplaceTopicRule $ --             replaceTopicRuleResponse --@@ -322,6 +358,9 @@ --         , responseSetLoggingOptions $ --             setLoggingOptionsResponse --+--         , responseDescribeThingType $+--             describeThingTypeResponse+-- --         , responseAttachPrincipalPolicy $ --             attachPrincipalPolicyResponse --@@ -331,6 +370,9 @@ --         , responseDetachThingPrincipal $ --             detachThingPrincipalResponse --+--         , responseDeprecateThingType $+--             deprecateThingTypeResponse+-- --           ] --     ] @@ -366,6 +408,11 @@     "GetLoggingOptions"     "fixture/GetLoggingOptions.yaml" +requestListThingTypes :: ListThingTypes -> TestTree+requestListThingTypes = req+    "ListThingTypes"+    "fixture/ListThingTypes.yaml"+ requestCreateCertificateFromCsr :: CreateCertificateFromCsr -> TestTree requestCreateCertificateFromCsr = req     "CreateCertificateFromCsr"@@ -381,6 +428,11 @@     "UpdateThing"     "fixture/UpdateThing.yaml" +requestCreateThingType :: CreateThingType -> TestTree+requestCreateThingType = req+    "CreateThingType"+    "fixture/CreateThingType.yaml"+ requestCancelCertificateTransfer :: CancelCertificateTransfer -> TestTree requestCancelCertificateTransfer = req     "CancelCertificateTransfer"@@ -476,6 +528,11 @@     "UpdateCertificate"     "fixture/UpdateCertificate.yaml" +requestListOutgoingCertificates :: ListOutgoingCertificates -> TestTree+requestListOutgoingCertificates = req+    "ListOutgoingCertificates"+    "fixture/ListOutgoingCertificates.yaml"+ requestDescribeCACertificate :: DescribeCACertificate -> TestTree requestDescribeCACertificate = req     "DescribeCACertificate"@@ -486,6 +543,11 @@     "GetRegistrationCode"     "fixture/GetRegistrationCode.yaml" +requestDeleteThingType :: DeleteThingType -> TestTree+requestDeleteThingType = req+    "DeleteThingType"+    "fixture/DeleteThingType.yaml"+ requestListCertificatesByCA :: ListCertificatesByCA -> TestTree requestListCertificatesByCA = req     "ListCertificatesByCA"@@ -521,6 +583,11 @@     "DescribeCertificate"     "fixture/DescribeCertificate.yaml" +requestListPolicyPrincipals :: ListPolicyPrincipals -> TestTree+requestListPolicyPrincipals = req+    "ListPolicyPrincipals"+    "fixture/ListPolicyPrincipals.yaml"+ requestReplaceTopicRule :: ReplaceTopicRule -> TestTree requestReplaceTopicRule = req     "ReplaceTopicRule"@@ -571,6 +638,11 @@     "SetLoggingOptions"     "fixture/SetLoggingOptions.yaml" +requestDescribeThingType :: DescribeThingType -> TestTree+requestDescribeThingType = req+    "DescribeThingType"+    "fixture/DescribeThingType.yaml"+ requestAttachPrincipalPolicy :: AttachPrincipalPolicy -> TestTree requestAttachPrincipalPolicy = req     "AttachPrincipalPolicy"@@ -586,6 +658,11 @@     "DetachThingPrincipal"     "fixture/DetachThingPrincipal.yaml" +requestDeprecateThingType :: DeprecateThingType -> TestTree+requestDeprecateThingType = req+    "DeprecateThingType"+    "fixture/DeprecateThingType.yaml"+ -- Responses  responseListPolicies :: ListPoliciesResponse -> TestTree@@ -630,6 +707,13 @@     ioT     (Proxy :: Proxy GetLoggingOptions) +responseListThingTypes :: ListThingTypesResponse -> TestTree+responseListThingTypes = res+    "ListThingTypesResponse"+    "fixture/ListThingTypesResponse.proto"+    ioT+    (Proxy :: Proxy ListThingTypes)+ responseCreateCertificateFromCsr :: CreateCertificateFromCsrResponse -> TestTree responseCreateCertificateFromCsr = res     "CreateCertificateFromCsrResponse"@@ -651,6 +735,13 @@     ioT     (Proxy :: Proxy UpdateThing) +responseCreateThingType :: CreateThingTypeResponse -> TestTree+responseCreateThingType = res+    "CreateThingTypeResponse"+    "fixture/CreateThingTypeResponse.proto"+    ioT+    (Proxy :: Proxy CreateThingType)+ responseCancelCertificateTransfer :: CancelCertificateTransferResponse -> TestTree responseCancelCertificateTransfer = res     "CancelCertificateTransferResponse"@@ -784,6 +875,13 @@     ioT     (Proxy :: Proxy UpdateCertificate) +responseListOutgoingCertificates :: ListOutgoingCertificatesResponse -> TestTree+responseListOutgoingCertificates = res+    "ListOutgoingCertificatesResponse"+    "fixture/ListOutgoingCertificatesResponse.proto"+    ioT+    (Proxy :: Proxy ListOutgoingCertificates)+ responseDescribeCACertificate :: DescribeCACertificateResponse -> TestTree responseDescribeCACertificate = res     "DescribeCACertificateResponse"@@ -798,6 +896,13 @@     ioT     (Proxy :: Proxy GetRegistrationCode) +responseDeleteThingType :: DeleteThingTypeResponse -> TestTree+responseDeleteThingType = res+    "DeleteThingTypeResponse"+    "fixture/DeleteThingTypeResponse.proto"+    ioT+    (Proxy :: Proxy DeleteThingType)+ responseListCertificatesByCA :: ListCertificatesByCAResponse -> TestTree responseListCertificatesByCA = res     "ListCertificatesByCAResponse"@@ -847,6 +952,13 @@     ioT     (Proxy :: Proxy DescribeCertificate) +responseListPolicyPrincipals :: ListPolicyPrincipalsResponse -> TestTree+responseListPolicyPrincipals = res+    "ListPolicyPrincipalsResponse"+    "fixture/ListPolicyPrincipalsResponse.proto"+    ioT+    (Proxy :: Proxy ListPolicyPrincipals)+ responseReplaceTopicRule :: ReplaceTopicRuleResponse -> TestTree responseReplaceTopicRule = res     "ReplaceTopicRuleResponse"@@ -917,6 +1029,13 @@     ioT     (Proxy :: Proxy SetLoggingOptions) +responseDescribeThingType :: DescribeThingTypeResponse -> TestTree+responseDescribeThingType = res+    "DescribeThingTypeResponse"+    "fixture/DescribeThingTypeResponse.proto"+    ioT+    (Proxy :: Proxy DescribeThingType)+ responseAttachPrincipalPolicy :: AttachPrincipalPolicyResponse -> TestTree responseAttachPrincipalPolicy = res     "AttachPrincipalPolicyResponse"@@ -937,3 +1056,10 @@     "fixture/DetachThingPrincipalResponse.proto"     ioT     (Proxy :: Proxy DetachThingPrincipal)++responseDeprecateThingType :: DeprecateThingTypeResponse -> TestTree+responseDeprecateThingType = res+    "DeprecateThingTypeResponse"+    "fixture/DeprecateThingTypeResponse.proto"+    ioT+    (Proxy :: Proxy DeprecateThingType)