Regenerating amazonka-iot from latest service definition

brendanhay · Nov 29, 2016 · 25176bd · 25176bd
1 parent 70c7268
commit 25176bd
Show file tree

Hide file tree

Showing 5 changed files with 298 additions and 97 deletions.
diff --git a/amazonka-iot/gen/Network/AWS/IoT.hs b/amazonka-iot/gen/Network/AWS/IoT.hs
@@ -270,6 +270,9 @@ module Network.AWS.IoT
     -- ** CACertificateStatus
     , CACertificateStatus (..)
 
+    -- ** CannedAccessControlList
+    , CannedAccessControlList (..)
+
     -- ** CertificateStatus
     , CertificateStatus (..)
 
@@ -286,6 +289,7 @@ module Network.AWS.IoT
     , Action
     , action
     , aCloudwatchMetric
+    , aDynamoDBv2
     , aCloudwatchAlarm
     , aSns
     , aDynamoDB
@@ -365,16 +369,22 @@ module Network.AWS.IoT
     -- ** DynamoDBAction
     , DynamoDBAction
     , dynamoDBAction
-    , ddaHashKeyType
-    , ddaOperation
-    , ddaRangeKeyType
-    , ddaPayloadField
-    , ddaRangeKeyField
-    , ddaRangeKeyValue
-    , ddaTableName
+    , ddbaHashKeyType
+    , ddbaOperation
+    , ddbaRangeKeyType
+    , ddbaPayloadField
+    , ddbaRangeKeyField
+    , ddbaRangeKeyValue
+    , ddbaTableName
+    , ddbaRoleARN
+    , ddbaHashKeyField
+    , ddbaHashKeyValue
+
+    -- ** DynamoDBv2Action
+    , DynamoDBv2Action
+    , dynamoDBv2Action
+    , ddaPutItem
     , ddaRoleARN
-    , ddaHashKeyField
-    , ddaHashKeyValue
 
     -- ** ElasticsearchAction
     , ElasticsearchAction
@@ -439,6 +449,11 @@ module Network.AWS.IoT
     , pvCreateDate
     , pvIsDefaultVersion
 
+    -- ** PutItemInput
+    , PutItemInput
+    , putItemInput
+    , piiTableName
+
     -- ** RepublishAction
     , RepublishAction
     , republishAction
@@ -448,6 +463,7 @@ module Network.AWS.IoT
     -- ** S3Action
     , S3Action
     , s3Action
+    , sCannedACL
     , sRoleARN
     , sBucketName
     , sKey

diff --git a/amazonka-iot/gen/Network/AWS/IoT/RegisterCertificate.hs b/amazonka-iot/gen/Network/AWS/IoT/RegisterCertificate.hs
@@ -27,6 +27,7 @@ module Network.AWS.IoT.RegisterCertificate
       registerCertificate
     , RegisterCertificate
     -- * Request Lenses
+    , rcStatus
     , rcCaCertificatePem
     , rcSetAsActive
     , rcCertificatePem
@@ -53,7 +54,8 @@ import           Network.AWS.Response
 --
 -- /See:/ 'registerCertificate' smart constructor.
 data RegisterCertificate = RegisterCertificate'
-    { _rcCaCertificatePem :: !(Maybe Text)
+    { _rcStatus           :: !(Maybe CertificateStatus)
+    , _rcCaCertificatePem :: !(Maybe Text)
     , _rcSetAsActive      :: !(Maybe Bool)
     , _rcCertificatePem   :: !Text
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -62,6 +64,8 @@ data RegisterCertificate = RegisterCertificate'
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
+-- * 'rcStatus' - Undocumented member.
+--
 -- * 'rcCaCertificatePem' - The CA certificate used to sign the device certificate being registered.
 --
 -- * 'rcSetAsActive' - A boolean value that specifies if the CA certificate is set to active.
@@ -72,11 +76,16 @@ registerCertificate
     -> RegisterCertificate
 registerCertificate pCertificatePem_ =
     RegisterCertificate'
-    { _rcCaCertificatePem = Nothing
+    { _rcStatus = Nothing
+    , _rcCaCertificatePem = Nothing
     , _rcSetAsActive = Nothing
     , _rcCertificatePem = pCertificatePem_
     }
 
+-- | Undocumented member.
+rcStatus :: Lens' RegisterCertificate (Maybe CertificateStatus)
+rcStatus = lens _rcStatus (\ s a -> s{_rcStatus = a});
+
 -- | The CA certificate used to sign the device certificate being registered.
 rcCaCertificatePem :: Lens' RegisterCertificate (Maybe Text)
 rcCaCertificatePem = lens _rcCaCertificatePem (\ s a -> s{_rcCaCertificatePem = a});
@@ -111,7 +120,8 @@ instance ToJSON RegisterCertificate where
         toJSON RegisterCertificate'{..}
           = object
               (catMaybes
-                 [("caCertificatePem" .=) <$> _rcCaCertificatePem,
+                 [("status" .=) <$> _rcStatus,
+                  ("caCertificatePem" .=) <$> _rcCaCertificatePem,
                   Just ("certificatePem" .= _rcCertificatePem)])
 
 instance ToPath RegisterCertificate where

diff --git a/amazonka-iot/gen/Network/AWS/IoT/Types.hs b/amazonka-iot/gen/Network/AWS/IoT/Types.hs
@@ -43,6 +43,9 @@ module Network.AWS.IoT.Types
     -- * CACertificateStatus
     , CACertificateStatus (..)
 
+    -- * CannedAccessControlList
+    , CannedAccessControlList (..)
+
     -- * CertificateStatus
     , CertificateStatus (..)
 
@@ -59,6 +62,7 @@ module Network.AWS.IoT.Types
     , Action
     , action
     , aCloudwatchMetric
+    , aDynamoDBv2
     , aCloudwatchAlarm
     , aSns
     , aDynamoDB
@@ -138,16 +142,22 @@ module Network.AWS.IoT.Types
     -- * DynamoDBAction
     , DynamoDBAction
     , dynamoDBAction
-    , ddaHashKeyType
-    , ddaOperation
-    , ddaRangeKeyType
-    , ddaPayloadField
-    , ddaRangeKeyField
-    , ddaRangeKeyValue
-    , ddaTableName
+    , ddbaHashKeyType
+    , ddbaOperation
+    , ddbaRangeKeyType
+    , ddbaPayloadField
+    , ddbaRangeKeyField
+    , ddbaRangeKeyValue
+    , ddbaTableName
+    , ddbaRoleARN
+    , ddbaHashKeyField
+    , ddbaHashKeyValue
+
+    -- * DynamoDBv2Action
+    , DynamoDBv2Action
+    , dynamoDBv2Action
+    , ddaPutItem
     , ddaRoleARN
-    , ddaHashKeyField
-    , ddaHashKeyValue
 
     -- * ElasticsearchAction
     , ElasticsearchAction
@@ -212,6 +222,11 @@ module Network.AWS.IoT.Types
     , pvCreateDate
     , pvIsDefaultVersion
 
+    -- * PutItemInput
+    , PutItemInput
+    , putItemInput
+    , piiTableName
+
     -- * RepublishAction
     , RepublishAction
     , republishAction
@@ -221,6 +236,7 @@ module Network.AWS.IoT.Types
     -- * S3Action
     , S3Action
     , s3Action
+    , sCannedACL
     , sRoleARN
     , sBucketName
     , sKey