amazonka-iot 1.4.2 → 1.4.3

raw patch · 37 files changed

+401/−570 lines, 37 filesdep ~amazonka-coredep ~amazonka-iotdep ~amazonka-test

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

Files

• README.md +3/−10
• amazonka-iot.cabal +7/−14
• gen/Network/AWS/IoT.hs +2/−9
• gen/Network/AWS/IoT/AcceptCertificateTransfer.hs +2/−4
• gen/Network/AWS/IoT/AttachPrincipalPolicy.hs +2/−4
• gen/Network/AWS/IoT/CancelCertificateTransfer.hs +2/−8
• gen/Network/AWS/IoT/CreateCertificateFromCsr.hs +14/−34
• gen/Network/AWS/IoT/CreateKeysAndCertificate.hs +3/−6
• gen/Network/AWS/IoT/CreatePolicy.hs +2/−6
• gen/Network/AWS/IoT/CreatePolicyVersion.hs +4/−15
• gen/Network/AWS/IoT/CreateThing.hs +1/−3
• gen/Network/AWS/IoT/CreateTopicRule.hs +1/−3
• gen/Network/AWS/IoT/DeleteCertificate.hs +1/−4
• gen/Network/AWS/IoT/DeletePolicy.hs +3/−8
• gen/Network/AWS/IoT/DeletePolicyVersion.hs +1/−4
• gen/Network/AWS/IoT/DescribeEndpoint.hs +2/−5
• gen/Network/AWS/IoT/DescribeThing.hs +1/−4
• gen/Network/AWS/IoT/DetachPrincipalPolicy.hs +1/−2
• gen/Network/AWS/IoT/GetPolicy.hs +1/−2
• gen/Network/AWS/IoT/ListCACertificates.hs +1/−2
• gen/Network/AWS/IoT/ListCertificates.hs +3/−6
• gen/Network/AWS/IoT/ListCertificatesByCA.hs +3/−6
• gen/Network/AWS/IoT/ListPolicies.hs +2/−4
• gen/Network/AWS/IoT/ListPolicyVersions.hs +1/−2
• gen/Network/AWS/IoT/ListPrincipalPolicies.hs +3/−7
• gen/Network/AWS/IoT/ListThings.hs +1/−3
• gen/Network/AWS/IoT/RegisterCACertificate.hs +1/−8
• gen/Network/AWS/IoT/RegisterCertificate.hs +1/−4
• gen/Network/AWS/IoT/RejectCertificateTransfer.hs +3/−8
• gen/Network/AWS/IoT/ReplaceTopicRule.hs +1/−4
• gen/Network/AWS/IoT/SetDefaultPolicyVersion.hs +1/−4
• gen/Network/AWS/IoT/TransferCertificate.hs +3/−6
• gen/Network/AWS/IoT/Types.hs +4/−10
• gen/Network/AWS/IoT/Types/Product.hs +15/−38
• gen/Network/AWS/IoT/UpdateCertificate.hs +4/−10
• gen/Network/AWS/IoT/UpdateThing.hs +1/−3
• test/Test/AWS/Gen/IoT.hs +300/−300

@@ -8,23 +8,16 @@  ## Version -`1.4.2`+`1.4.3`   ## Description  AWS IoT -AWS IoT provides secure, bi-directional communication between-Internet-connected things (such as sensors, actuators, embedded devices,-or smart appliances) and the AWS cloud. You can discover your custom-IoT-Data endpoint to communicate with, configure rules for data-processing and integration with other services, organize resources-associated with each thing (Thing Registry), configure logging, and-create and manage policies and credentials to authenticate things.+AWS IoT provides secure, bi-directional communication between Internet-connected things (such as sensors, actuators, embedded devices, or smart appliances) and the AWS cloud. You can discover your custom IoT-Data endpoint to communicate with, configure rules for data processing and integration with other services, organize resources associated with each thing (Thing Registry), configure logging, and create and manage policies and credentials to authenticate things. -For more information about how AWS IoT works, see the-<http://docs.aws.amazon.com/iot/latest/developerguide/aws-iot-how-it-works.html Developer Guide>.+For more information about how AWS IoT works, see the <http://docs.aws.amazon.com/iot/latest/developerguide/aws-iot-how-it-works.html Developer Guide>.  Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-iot) and the [AWS API Reference](https://aws.amazon.com/documentation/).

@@ -1,5 +1,5 @@ name:                  amazonka-iot-version:               1.4.2+version:               1.4.3 synopsis:              Amazon IoT SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -15,16 +15,9 @@ description:     AWS IoT -    AWS IoT provides secure, bi-directional communication between-    Internet-connected things (such as sensors, actuators, embedded devices,-    or smart appliances) and the AWS cloud. You can discover your custom-    IoT-Data endpoint to communicate with, configure rules for data-    processing and integration with other services, organize resources-    associated with each thing (Thing Registry), configure logging, and-    create and manage policies and credentials to authenticate things.+    AWS IoT provides secure, bi-directional communication between Internet-connected things (such as sensors, actuators, embedded devices, or smart appliances) and the AWS cloud. You can discover your custom IoT-Data endpoint to communicate with, configure rules for data processing and integration with other services, organize resources associated with each thing (Thing Registry), configure logging, and create and manage policies and credentials to authenticate things. -    For more information about how AWS IoT works, see the-    <http://docs.aws.amazon.com/iot/latest/developerguide/aws-iot-how-it-works.html Developer Guide>.+    For more information about how AWS IoT works, see the <http://docs.aws.amazon.com/iot/latest/developerguide/aws-iot-how-it-works.html Developer Guide>.     .     The types from this library are intended to be used with     <http://hackage.haskell.org/package/amazonka amazonka>, which provides@@ -110,7 +103,7 @@         , Network.AWS.IoT.Types.Sum      build-depends:-          amazonka-core == 1.4.2.*+          amazonka-core == 1.4.3.*         , base          >= 4.7     && < 5  test-suite amazonka-iot-test@@ -130,9 +123,9 @@         , Test.AWS.IoT.Internal      build-depends:-          amazonka-core == 1.4.2.*-        , amazonka-test == 1.4.2.*-        , amazonka-iot == 1.4.2.*+          amazonka-core == 1.4.3.*+        , amazonka-test == 1.4.3.*+        , amazonka-iot == 1.4.3.*         , base         , bytestring         , tasty

@@ -13,16 +13,9 @@ -- -- AWS IoT ----- AWS IoT provides secure, bi-directional communication between--- Internet-connected things (such as sensors, actuators, embedded devices,--- or smart appliances) and the AWS cloud. You can discover your custom--- IoT-Data endpoint to communicate with, configure rules for data--- processing and integration with other services, organize resources--- associated with each thing (Thing Registry), configure logging, and--- create and manage policies and credentials to authenticate things.+-- AWS IoT provides secure, bi-directional communication between Internet-connected things (such as sensors, actuators, embedded devices, or smart appliances) and the AWS cloud. You can discover your custom IoT-Data endpoint to communicate with, configure rules for data processing and integration with other services, organize resources associated with each thing (Thing Registry), configure logging, and create and manage policies and credentials to authenticate things. ----- For more information about how AWS IoT works, see the--- <http://docs.aws.amazon.com/iot/latest/developerguide/aws-iot-how-it-works.html Developer Guide>.+-- For more information about how AWS IoT works, see the <http://docs.aws.amazon.com/iot/latest/developerguide/aws-iot-how-it-works.html Developer Guide>. module Network.AWS.IoT     (     -- * Service Configuration

@@ -18,11 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Accepts a pending certificate transfer. The default state of the--- certificate is INACTIVE.+-- Accepts a pending certificate transfer. The default state of the certificate is INACTIVE. ----- To check for pending certificate transfers, call < ListCertificates> to--- enumerate your certificates.+-- To check for pending certificate transfers, call < ListCertificates> to enumerate your certificates. module Network.AWS.IoT.AcceptCertificateTransfer     (     -- * Creating a Request

@@ -18,8 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Attaches the specified policy to the specified principal (certificate or--- other credential).+-- Attaches the specified policy to the specified principal (certificate or other credential). module Network.AWS.IoT.AttachPrincipalPolicy     (     -- * Creating a Request@@ -70,8 +69,7 @@ appPolicyName :: Lens' AttachPrincipalPolicy Text appPolicyName = lens _appPolicyName (\ s a -> s{_appPolicyName = a}); --- | The principal, which can be a certificate ARN (as returned from the--- CreateCertificate operation) or an Amazon Cognito ID.+-- | The principal, which can be a certificate ARN (as returned from the CreateCertificate operation) or an Amazon Cognito ID. appPrincipal :: Lens' AttachPrincipalPolicy Text appPrincipal = lens _appPrincipal (\ s a -> s{_appPrincipal = a}); 

@@ -20,15 +20,9 @@ -- -- Cancels a pending transfer for the specified certificate. ----- __Note__ Only the transfer source account can use this operation to--- cancel a transfer. (Transfer destinations can use--- < RejectCertificateTransfer> instead.) After transfer, AWS IoT returns--- the certificate to the source account in the INACTIVE state. After the--- destination account has accepted the transfer, the transfer cannot be--- cancelled.+-- __Note__ Only the transfer source account can use this operation to cancel a transfer. (Transfer destinations can use < RejectCertificateTransfer> instead.) After transfer, AWS IoT returns the certificate to the source account in the INACTIVE state. After the destination account has accepted the transfer, the transfer cannot be cancelled. ----- After a certificate transfer is cancelled, the status of the certificate--- changes from PENDING_TRANSFER to INACTIVE.+-- After a certificate transfer is cancelled, the status of the certificate changes from PENDING_TRANSFER to INACTIVE. module Network.AWS.IoT.CancelCertificateTransfer     (     -- * Creating a Request

@@ -18,51 +18,33 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates an X.509 certificate using the specified certificate signing--- request.+-- Creates an X.509 certificate using the specified certificate signing request. ----- __Note__ Reusing the same certificate signing request (CSR) results in a--- distinct certificate.+-- __Note__ Reusing the same certificate signing request (CSR) results in a distinct certificate. ----- You can create multiple certificates in a batch by creating a directory,--- copying multiple .csr files into that directory, and then specifying--- that directory on the command line. The following commands show how to--- create a batch of certificates given a batch of CSRs.+-- You can create multiple certificates in a batch by creating a directory, copying multiple .csr files into that directory, and then specifying that directory on the command line. The following commands show how to create a batch of certificates given a batch of CSRs. ----- Assuming a set of CSRs are located inside of the directory--- my-csr-directory:+-- 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\/{}+-- > ls my-csr-directory\/ | xargs -I {} aws iot create-certificate-from-csr --certificate-signing-request file:\/\/my-csr-directory\/{} ----- This command lists all of the CSRs in my-csr-directory and pipes each--- CSR file name to the aws iot create-certificate-from-csr AWS CLI command--- to create a certificate for the corresponding CSR.+-- This command lists all of the CSRs in my-csr-directory and pipes each CSR file name to the aws iot create-certificate-from-csr AWS CLI command to create a certificate for the corresponding CSR. ----- The aws iot create-certificate-from-csr part of the command can also be--- run in parallel to speed up the certificate creation process:+-- The aws iot create-certificate-from-csr part of the command can also be run in parallel to speed up the certificate creation process: ----- $ ls my-csr-directory\/ | xargs -P 10 -I {} aws iot--- create-certificate-from-csr --certificate-signing-request--- file:\/\/my-csr-directory\/{}+-- > ls my-csr-directory\/ | xargs -P 10 -I {} aws iot create-certificate-from-csr --certificate-signing-request file:\/\/my-csr-directory\/{} ----- On Windows PowerShell, the command to create certificates for all CSRs--- in my-csr-directory is:+-- On Windows PowerShell, the command to create certificates for all CSRs in my-csr-directory is: ----- > ls -Name my-csr-directory | %{aws iot create-certificate-from-csr--- --certificate-signing-request file:\/\/my-csr-directory\/$_}+-- > ls -Name my-csr-directory | %{aws iot create-certificate-from-csr --certificate-signing-request file:\/\/my-csr-directory\/>_} ----- On a Windows command prompt, the command to create certificates for all--- CSRs in my-csr-directory is:+-- On a Windows command prompt, the command to create certificates for all CSRs in my-csr-directory is: ----- > forfiles \/p my-csr-directory \/c \"cmd \/c aws iot--- create-certificate-from-csr --certificate-signing-request--- file:\/\/\'path\"+-- > forfiles \/p my-csr-directory \/c \"cmd \/c aws iot create-certificate-from-csr --certificate-signing-request file:\/\/\'path\" module Network.AWS.IoT.CreateCertificateFromCsr     (     -- * Creating a Request@@ -191,13 +173,11 @@ ccfcrsCertificatePem :: Lens' CreateCertificateFromCsrResponse (Maybe Text) ccfcrsCertificatePem = lens _ccfcrsCertificatePem (\ s a -> s{_ccfcrsCertificatePem = a}); --- | The Amazon Resource Name (ARN) of the certificate. You can use the ARN--- as a principal for policy operations.+-- | The Amazon Resource Name (ARN) of the certificate. You can use the ARN as a principal for policy operations. ccfcrsCertificateARN :: Lens' CreateCertificateFromCsrResponse (Maybe Text) ccfcrsCertificateARN = lens _ccfcrsCertificateARN (\ s a -> s{_ccfcrsCertificateARN = a}); --- | The ID of the certificate. Certificate management operations only take a--- certificateId.+-- | The ID of the certificate. Certificate management operations only take a certificateId. ccfcrsCertificateId :: Lens' CreateCertificateFromCsrResponse (Maybe Text) ccfcrsCertificateId = lens _ccfcrsCertificateId (\ s a -> s{_ccfcrsCertificateId = a}); 

@@ -18,11 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a 2048-bit RSA key pair and issues an X.509 certificate using--- the issued public key.+-- Creates a 2048-bit RSA key pair and issues an X.509 certificate using the issued public key. ----- __Note__ This is the only time AWS IoT issues the private key for this--- certificate, so it is important to keep it in a secure location.+-- __Note__ This is the only time AWS IoT issues the private key for this certificate, so it is important to keep it in a secure location. module Network.AWS.IoT.CreateKeysAndCertificate     (     -- * Creating a Request@@ -150,8 +148,7 @@ ckacrsCertificateARN :: Lens' CreateKeysAndCertificateResponse (Maybe Text) ckacrsCertificateARN = lens _ckacrsCertificateARN (\ s a -> s{_ckacrsCertificateARN = a}); --- | The ID of the certificate. AWS IoT issues a default subject name for the--- certificate (for example, AWS IoT Certificate).+-- | The ID of the certificate. AWS IoT issues a default subject name for the certificate (for example, AWS IoT Certificate). ckacrsCertificateId :: Lens' CreateKeysAndCertificateResponse (Maybe Text) ckacrsCertificateId = lens _ckacrsCertificateId (\ s a -> s{_ckacrsCertificateId = a}); 

@@ -20,9 +20,7 @@ -- -- Creates an AWS IoT policy. ----- The created policy is the default version for the policy. This operation--- creates a policy version with a version identifier of __1__ and sets--- __1__ as the policy\'s default version.+-- The created policy is the default version for the policy. This operation creates a policy version with a version identifier of __1__ and sets __1__ as the policy\'s default version. module Network.AWS.IoT.CreatePolicy     (     -- * Creating a Request@@ -79,9 +77,7 @@ cpPolicyName :: Lens' CreatePolicy Text cpPolicyName = lens _cpPolicyName (\ s a -> s{_cpPolicyName = a}); --- | The JSON document that describes the policy. __policyDocument__ must--- have a minimum length of 1, with a maximum length of 2048, excluding--- whitespace.+-- | The JSON document that describes the policy. __policyDocument__ must have a minimum length of 1, with a maximum length of 2048, excluding whitespace. cpPolicyDocument :: Lens' CreatePolicy Text cpPolicyDocument = lens _cpPolicyDocument (\ s a -> s{_cpPolicyDocument = a}); 

@@ -18,16 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a new version of the specified AWS IoT policy. To update a--- policy, create a new policy version. A managed policy can have up to--- five versions. If the policy has five versions, you must use--- < DeletePolicyVersion> to delete an existing version before you create a--- new one.+-- Creates a new version of the specified AWS IoT policy. To update a policy, create a new policy version. A managed policy can have up to five versions. If the policy has five versions, you must use < DeletePolicyVersion> to delete an existing version before you create a new one. ----- Optionally, you can set the new version as the policy\'s default--- version. The default version is the operative version (that is, the--- version that is in effect for the certificates to which the policy is--- attached).+-- Optionally, you can set the new version as the policy\'s default version. The default version is the operative version (that is, the version that is in effect for the certificates to which the policy is attached). module Network.AWS.IoT.CreatePolicyVersion     (     -- * Creating a Request@@ -85,10 +78,7 @@     , _cpvPolicyDocument = pPolicyDocument_     } --- | Specifies whether the policy version is set as the default. When this--- parameter is true, the new policy version becomes the operative version--- (that is, the version that is in effect for the certificates to which--- the policy is attached).+-- | Specifies whether the policy version is set as the default. When this parameter is true, the new policy version becomes the operative version (that is, the version that is in effect for the certificates to which the policy is attached). cpvSetAsDefault :: Lens' CreatePolicyVersion (Maybe Bool) cpvSetAsDefault = lens _cpvSetAsDefault (\ s a -> s{_cpvSetAsDefault = a}); @@ -96,8 +86,7 @@ cpvPolicyName :: Lens' CreatePolicyVersion Text cpvPolicyName = lens _cpvPolicyName (\ s a -> s{_cpvPolicyName = a}); --- | The JSON document that describes the policy. Minimum length of 1.--- Maximum length of 2048, excluding whitespaces+-- | The JSON document that describes the policy. Minimum length of 1. Maximum length of 2048, excluding whitespaces cpvPolicyDocument :: Lens' CreatePolicyVersion Text cpvPolicyDocument = lens _cpvPolicyDocument (\ s a -> s{_cpvPolicyDocument = a}); 

@@ -68,9 +68,7 @@     , _ctThingName = pThingName_     } --- | The attribute payload, which consists of up to 3 name\/value pairs in a--- JSON document (for example,--- {\\\"attributes\\\":{\\\"string1\\\":\\\"string2\\\"}}).+-- | The attribute payload, which consists of up to 3 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}); 

@@ -18,9 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a rule. Creating rules is an administrator-level action. Any--- user who has permission to create rules will be able to access data--- processed by the rule.+-- Creates a rule. Creating rules is an administrator-level action. Any user who has permission to create rules will be able to access data processed by the rule. module Network.AWS.IoT.CreateTopicRule     (     -- * Creating a Request

@@ -20,10 +20,7 @@ -- -- Deletes the specified certificate. ----- A certificate cannot be deleted if it has a policy attached to it or if--- its status is set to ACTIVE. To delete a certificate, first use the--- < DetachPrincipalPolicy> API to detach all policies. Next, use the--- < UpdateCertificate> API to set the certificate to the INACTIVE status.+-- A certificate cannot be deleted if it has a policy attached to it or if its status is set to ACTIVE. To delete a certificate, first use the < DetachPrincipalPolicy> API to detach all policies. Next, use the < UpdateCertificate> API to set the certificate to the INACTIVE status. module Network.AWS.IoT.DeleteCertificate     (     -- * Creating a Request

@@ -20,16 +20,11 @@ -- -- Deletes the specified policy. ----- A policy cannot be deleted if it has non-default versions or it is--- attached to any certificate.+-- A policy cannot be deleted if it has non-default versions or it is attached to any certificate. ----- To delete a policy, use the DeletePolicyVersion API to delete all--- non-default versions of the policy; use the DetachPrincipalPolicy API to--- detach the policy from any certificate; and then use the DeletePolicy--- API to delete the policy.+-- To delete a policy, use the DeletePolicyVersion API to delete all non-default versions of the policy; use the DetachPrincipalPolicy API to detach the policy from any certificate; and then use the DeletePolicy API to delete the policy. ----- When a policy is deleted using DeletePolicy, its default version is--- deleted with it.+-- When a policy is deleted using DeletePolicy, its default version is deleted with it. module Network.AWS.IoT.DeletePolicy     (     -- * Creating a Request

@@ -18,10 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes the specified version of the specified policy. You cannot delete--- the default version of a policy using this API. To delete the default--- version of a policy, use < DeletePolicy>. To find out which version of a--- policy is marked as the default version, use ListPolicyVersions.+-- Deletes the specified version of the specified policy. You cannot delete the default version of a policy using this API. To delete the default version of a policy, use < DeletePolicy>. To find out which version of a policy is marked as the default version, use ListPolicyVersions. module Network.AWS.IoT.DeletePolicyVersion     (     -- * Creating a Request

@@ -18,9 +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. You specify the following URI when updating state information for your thing: https:\/\//endpoint/\/things\//thingName/\/shadow. module Network.AWS.IoT.DescribeEndpoint     (     -- * Creating a Request@@ -101,8 +99,7 @@     , _dersResponseStatus = pResponseStatus_     } --- | The endpoint. The format of the endpoint is as follows:--- /identifier/.iot./region/.amazonaws.com.+-- | The endpoint. The format of the endpoint is as follows: /identifier/.iot./region/.amazonaws.com. dersEndpointAddress :: Lens' DescribeEndpointResponse (Maybe Text) dersEndpointAddress = lens _dersEndpointAddress (\ s a -> s{_dersEndpointAddress = a}); 

@@ -130,10 +130,7 @@ 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 attributes, which are name\/value pairs in JSON format (for example: {\\\"attributes\\\":{\\\"some-name1\\\":\\\"some-value1\\\"}, {\\\"some-name2\\\":\\\"some-value2\\\"}, {\\\"some-name3\\\":\\\"some-value3\\\"}}) dtrsAttributes :: Lens' DescribeThingResponse (HashMap Text Text) dtrsAttributes = lens _dtrsAttributes (\ s a -> s{_dtrsAttributes = a}) . _Default . _Map; 

@@ -71,8 +71,7 @@  -- | The principal. ----- If the principal is a certificate, specify the certificate ARN. If the--- principal is an Amazon Cognito identity, specify the identity ID.+-- If the principal is a certificate, specify the certificate ARN. If the principal is an Amazon Cognito identity, specify the identity ID. dppPrincipal :: Lens' DetachPrincipalPolicy Text dppPrincipal = lens _dppPrincipal (\ s a -> s{_dppPrincipal = a}); 

@@ -18,8 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Gets information about the specified policy with the policy document of--- the default version.+-- Gets information about the specified policy with the policy document of the default version. module Network.AWS.IoT.GetPolicy     (     -- * Creating a Request

@@ -20,8 +20,7 @@ -- -- Lists the CA certificates registered for your AWS account. ----- The results are paginated with a default page size of 25. You can use--- the returned marker to retrieve additional results.+-- The results are paginated with a default page size of 25. You can use the returned marker to retrieve additional results. module Network.AWS.IoT.ListCACertificates     (     -- * Creating a Request

@@ -20,8 +20,7 @@ -- -- Lists the certificates registered in your AWS account. ----- The results are paginated with a default page size of 25. You can use--- the returned marker to retrieve additional results.+-- The results are paginated with a default page size of 25. You can use the returned marker to retrieve additional results. module Network.AWS.IoT.ListCertificates     (     -- * Creating a Request@@ -79,8 +78,7 @@ lcMarker :: Lens' ListCertificates (Maybe Text) lcMarker = lens _lcMarker (\ s a -> s{_lcMarker = a}); --- | Specifies the order for results. If True, the results are returned in--- ascending order, based on the creation date.+-- | Specifies the order for results. If True, the results are returned in ascending order, based on the creation date. lcAscendingOrder :: Lens' ListCertificates (Maybe Bool) lcAscendingOrder = lens _lcAscendingOrder (\ s a -> s{_lcAscendingOrder = a}); @@ -148,8 +146,7 @@ lcrsCertificates :: Lens' ListCertificatesResponse [Certificate] lcrsCertificates = lens _lcrsCertificates (\ s a -> s{_lcrsCertificates = a}) . _Default . _Coerce; --- | The marker for the next set of results, or null if there are no--- additional results.+-- | The marker for the next set of results, or null if there are no additional results. lcrsNextMarker :: Lens' ListCertificatesResponse (Maybe Text) lcrsNextMarker = lens _lcrsNextMarker (\ s a -> s{_lcrsNextMarker = a}); 

@@ -82,8 +82,7 @@ lcbcaMarker :: Lens' ListCertificatesByCA (Maybe Text) lcbcaMarker = lens _lcbcaMarker (\ s a -> s{_lcbcaMarker = a}); --- | Specifies the order for results. If True, the results are returned in--- ascending order, based on the creation date.+-- | Specifies the order for results. If True, the results are returned in ascending order, based on the creation date. lcbcaAscendingOrder :: Lens' ListCertificatesByCA (Maybe Bool) lcbcaAscendingOrder = lens _lcbcaAscendingOrder (\ s a -> s{_lcbcaAscendingOrder = a}); @@ -91,8 +90,7 @@ lcbcaPageSize :: Lens' ListCertificatesByCA (Maybe Natural) lcbcaPageSize = lens _lcbcaPageSize (\ s a -> s{_lcbcaPageSize = a}) . mapping _Nat; --- | The ID of the CA certificate. This operation will list all registered--- device certificate that were signed by this CA certificate.+-- | The ID of the CA certificate. This operation will list all registered device certificate that were signed by this CA certificate. lcbcaCaCertificateId :: Lens' ListCertificatesByCA Text lcbcaCaCertificateId = lens _lcbcaCaCertificateId (\ s a -> s{_lcbcaCaCertificateId = a}); @@ -159,8 +157,7 @@ lcbcarsCertificates :: Lens' ListCertificatesByCAResponse [Certificate] lcbcarsCertificates = lens _lcbcarsCertificates (\ s a -> s{_lcbcarsCertificates = a}) . _Default . _Coerce; --- | The marker for the next set of results, or null if there are no--- additional results.+-- | The marker for the next set of results, or null if there are no additional results. lcbcarsNextMarker :: Lens' ListCertificatesByCAResponse (Maybe Text) lcbcarsNextMarker = lens _lcbcarsNextMarker (\ s a -> s{_lcbcarsNextMarker = a}); 

@@ -76,8 +76,7 @@ lpMarker :: Lens' ListPolicies (Maybe Text) lpMarker = lens _lpMarker (\ s a -> s{_lpMarker = a}); --- | Specifies the order for results. If true, the results are returned in--- ascending creation order.+-- | Specifies the order for results. If true, the results are returned in ascending creation order. lpAscendingOrder :: Lens' ListPolicies (Maybe Bool) lpAscendingOrder = lens _lpAscendingOrder (\ s a -> s{_lpAscendingOrder = a}); @@ -141,8 +140,7 @@     , _lprsResponseStatus = pResponseStatus_     } --- | The marker for the next set of results, or null if there are no--- additional results.+-- | The marker for the next set of results, or null if there are no additional results. lprsNextMarker :: Lens' ListPoliciesResponse (Maybe Text) lprsNextMarker = lens _lprsNextMarker (\ s a -> s{_lprsNextMarker = a}); 

@@ -18,8 +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

@@ -18,9 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Lists the policies attached to the specified principal. If you use an--- Cognito identity, the ID must be in--- <http://docs.aws.amazon.com/cognitoidentity/latest/APIReference/API_GetCredentialsForIdentity.html#API_GetCredentialsForIdentity_RequestSyntax AmazonCognito Identity format>.+-- Lists the policies attached to the specified principal. If you use an Cognito identity, the ID must be in <http://docs.aws.amazon.com/cognitoidentity/latest/APIReference/API_GetCredentialsForIdentity.html#API_GetCredentialsForIdentity_RequestSyntax AmazonCognito Identity format>. module Network.AWS.IoT.ListPrincipalPolicies     (     -- * Creating a Request@@ -84,8 +82,7 @@ lppMarker :: Lens' ListPrincipalPolicies (Maybe Text) lppMarker = lens _lppMarker (\ s a -> s{_lppMarker = a}); --- | Specifies the order for results. If true, results are returned in--- ascending creation order.+-- | Specifies the order for results. If true, results are returned in ascending creation order. lppAscendingOrder :: Lens' ListPrincipalPolicies (Maybe Bool) lppAscendingOrder = lens _lppAscendingOrder (\ s a -> s{_lppAscendingOrder = a}); @@ -155,8 +152,7 @@     , _lpprsResponseStatus = pResponseStatus_     } --- | The marker for the next set of results, or null if there are no--- additional results.+-- | The marker for the next set of results, or null if there are no additional results. lpprsNextMarker :: Lens' ListPrincipalPoliciesResponse (Maybe Text) lpprsNextMarker = lens _lpprsNextMarker (\ s a -> s{_lpprsNextMarker = a}); 

@@ -18,9 +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. You can pass an AttributeName or AttributeValue to filter your things (for example, \"ListThings where AttributeName=Color and AttributeValue=Red\"). module Network.AWS.IoT.ListThings     (     -- * Creating a Request

@@ -18,14 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Registers a CA certificate with AWS IoT. This CA certificate can then be--- used to sign device certificates, which can be then registered with AWS--- IoT. You can register up to 10 CA certificates per AWS account that have--- the same subject field and public key. This enables you to have up to 10--- certificate authorities sign your device certificates. If you have more--- than one CA certificate registered, make sure you pass the CA--- certificate when you register your device certificates with the--- RegisterCertificate API.+-- Registers a CA certificate with AWS IoT. This CA certificate can then be used to sign device certificates, which can be then registered with AWS IoT. You can register up to 10 CA certificates per AWS account that have the same subject field and public key. This enables you to have up to 10 certificate authorities sign your device certificates. If you have more than one CA certificate registered, make sure you pass the CA certificate when you register your device certificates with the RegisterCertificate API. module Network.AWS.IoT.RegisterCACertificate     (     -- * Creating a Request

@@ -18,10 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Registers a device certificate with AWS IoT. If you have more than one--- CA certificate that has the same subject field, you must specify the CA--- certificate that was used to sign the device certificate being--- registered.+-- Registers a device certificate with AWS IoT. If you have more than one CA certificate that has the same subject field, you must specify the CA certificate that was used to sign the device certificate being registered. module Network.AWS.IoT.RegisterCertificate     (     -- * Creating a Request

@@ -18,16 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Rejects a pending certificate transfer. After AWS IoT rejects a--- certificate transfer, the certificate status changes from--- __PENDING_TRANSFER__ to __INACTIVE__.+-- Rejects a pending certificate transfer. After AWS IoT rejects a certificate transfer, the certificate status changes from __PENDING_TRANSFER__ to __INACTIVE__. ----- To check for pending certificate transfers, call < ListCertificates> to--- enumerate your certificates.+-- To check for pending certificate transfers, call < ListCertificates> to enumerate your certificates. ----- This operation can only be called by the transfer destination. After it--- is called, the certificate will be returned to the source\'s account in--- the INACTIVE state.+-- This operation can only be called by the transfer destination. After it is called, the certificate will be returned to the source\'s account in the INACTIVE state. module Network.AWS.IoT.RejectCertificateTransfer     (     -- * Creating a Request

@@ -18,10 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Replaces the specified rule. You must specify all parameters for the new--- rule. Creating rules is an administrator-level action. Any user who has--- permission to create rules will be able to access data processed by the--- rule.+-- Replaces the specified rule. You must specify all parameters for the new rule. Creating rules is an administrator-level action. Any user who has permission to create rules will be able to access data processed by the rule. module Network.AWS.IoT.ReplaceTopicRule     (     -- * Creating a Request

@@ -18,10 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Sets the specified version of the specified policy as the policy\'s--- default (operative) version. This action affects all certificates to--- which the policy is attached. To list the principals the policy is--- attached to, use the ListPrincipalPolicy API.+-- Sets the specified version of the specified policy as the policy\'s default (operative) version. This action affects all certificates to which the policy is attached. To list the principals the policy is attached to, use the ListPrincipalPolicy API. module Network.AWS.IoT.SetDefaultPolicyVersion     (     -- * Creating a Request

@@ -22,14 +22,11 @@ -- -- You can cancel the transfer until it is acknowledged by the recipient. ----- No notification is sent to the transfer destination\'s account. It is up--- to the caller to notify the transfer target.+-- No notification is sent to the transfer destination\'s account. It is up to the caller to notify the transfer target. ----- The certificate being transferred must not be in the ACTIVE state. You--- can use the UpdateCertificate API to deactivate it.+-- The certificate being transferred must not be in the ACTIVE state. You can use the UpdateCertificate API to deactivate it. ----- The certificate must not have any policies attached to it. You can use--- the DetachPrincipalPolicy API to detach them.+-- The certificate must not have any policies attached to it. You can use the DetachPrincipalPolicy API to detach them. module Network.AWS.IoT.TransferCertificate     (     -- * Creating a Request

@@ -301,10 +301,7 @@       | has (hasStatus 509) e = Just "limit_exceeded"       | otherwise = Nothing --- | Unable to verify the CA certificate used to sign the device certificate--- you are attempting to register. This is happens when you have registered--- more than one CA certificate that has the same subject field and public--- key.+-- | Unable to verify the CA certificate used to sign the device certificate you are attempting to register. This is happens when you have registered more than one CA certificate that has the same subject field and public key. _CertificateConflictException :: AsError a => Getting (First ServiceError) a ServiceError _CertificateConflictException =     _ServiceError . hasStatus 409 . hasCode "CertificateConflictException"@@ -319,8 +316,7 @@ _InvalidRequestException =     _ServiceError . hasStatus 400 . hasCode "InvalidRequestException" --- | You can\'t transfer the certificate because authorization policies are--- still attached.+-- | You can\'t transfer the certificate because authorization policies are still attached. _TransferConflictException :: AsError a => Getting (First ServiceError) a ServiceError _TransferConflictException =     _ServiceError . hasStatus 409 . hasCode "TransferConflictException"@@ -341,8 +337,7 @@ _MalformedPolicyException =     _ServiceError . hasStatus 400 . hasCode "MalformedPolicyException" --- | You can\'t delete the resource because it is attached to one or more--- resources.+-- | You can\'t delete the resource because it is attached to one or more resources. _DeleteConflictException :: AsError a => Getting (First ServiceError) a ServiceError _DeleteConflictException =     _ServiceError . hasStatus 409 . hasCode "DeleteConflictException"@@ -357,8 +352,7 @@ _CertificateValidationException =     _ServiceError . hasStatus 400 . hasCode "CertificateValidationException" --- | You can\'t revert the certificate transfer because the transfer is--- already complete.+-- | You can\'t revert the certificate transfer because the transfer is already complete. _TransferAlreadyCompletedException :: AsError a => Getting (First ServiceError) a ServiceError _TransferAlreadyCompletedException =     _ServiceError . hasStatus 410 . hasCode "TransferAlreadyCompletedException"

@@ -159,9 +159,7 @@                   ("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, a JSON string containing up to three key-value pairs (for example, {\\\"attributes\\\":{\\\"string1\\\":\\\"string2\\\"}}). -- -- /See:/ 'attributePayload' smart constructor. newtype AttributePayload = AttributePayload'@@ -180,8 +178,7 @@     { _apAttributes = 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; @@ -553,8 +550,7 @@ caaStateReason :: Lens' CloudwatchAlarmAction Text caaStateReason = lens _caaStateReason (\ s a -> s{_caaStateReason = a}); --- | The value of the alarm state. Acceptable values are: OK, ALARM,--- INSUFFICIENT_DATA.+-- | The value of the alarm state. Acceptable values are: OK, ALARM, INSUFFICIENT_DATA. caaStateValue :: Lens' CloudwatchAlarmAction Text caaStateValue = lens _caaStateValue (\ s a -> s{_caaStateValue = a}); @@ -624,8 +620,7 @@     , _cmaMetricUnit = pMetricUnit_     } --- | An optional--- <http://docs.aws.amazon.com/AmazonCloudWatch/latest/DeveloperGuide/cloudwatch_concepts.html#about_timestamp Unix timestamp>.+-- | An optional <http://docs.aws.amazon.com/AmazonCloudWatch/latest/DeveloperGuide/cloudwatch_concepts.html#about_timestamp Unix timestamp>. cmaMetricTimestamp :: Lens' CloudwatchMetricAction (Maybe Text) cmaMetricTimestamp = lens _cmaMetricTimestamp (\ s a -> s{_cmaMetricTimestamp = a}); @@ -645,9 +640,7 @@ cmaMetricValue :: Lens' CloudwatchMetricAction Text cmaMetricValue = lens _cmaMetricValue (\ s a -> s{_cmaMetricValue = a}); --- | The--- <http://docs.aws.amazon.com/AmazonCloudWatch/latest/DeveloperGuide/cloudwatch_concepts.html#Unit metric unit>--- supported by CloudWatch.+-- | The <http://docs.aws.amazon.com/AmazonCloudWatch/latest/DeveloperGuide/cloudwatch_concepts.html#Unit metric unit> supported by CloudWatch. cmaMetricUnit :: Lens' CloudwatchMetricAction Text cmaMetricUnit = lens _cmaMetricUnit (\ s a -> s{_cmaMetricUnit = a}); @@ -679,22 +672,17 @@  -- | Describes an action to write to a DynamoDB table. ----- The 'tableName', 'hashKeyField', and 'rangeKeyField' values must match--- the values used when you created the table.+-- The 'tableName', 'hashKeyField', and 'rangeKeyField' values must match the values used when you created the table. ----- The 'hashKeyValue' and 'rangeKeyvalue' fields use a substitution--- template syntax. These templates provide data at runtime. The syntax is--- as follows: ${/sql-expression/}.+-- The 'hashKeyValue' and 'rangeKeyvalue' fields use a substitution template syntax. These templates provide data at runtime. The syntax is as follows: >{/sql-expression/}. ----- You can specify any valid expression in a WHERE or SELECT clause,--- including JSON properties, comparisons, calculations, and functions. For--- example, the following field uses the third level of the topic:+-- You can specify any valid expression in a WHERE or SELECT clause, including JSON properties, comparisons, calculations, and functions. For example, the following field uses the third level of the topic: ----- '\"hashKeyValue\": \"${topic(3)}\"'+-- '\"hashKeyValue\": \">{topic(3)}\"' -- -- The following field uses the timestamp: ----- '\"rangeKeyValue\": \"${timestamp()}\"'+-- '\"rangeKeyValue\": \">{timestamp()}\"' -- -- /See:/ 'dynamoDBAction' smart constructor. data DynamoDBAction = DynamoDBAction'@@ -799,8 +787,7 @@                   Just ("rangeKeyField" .= _ddaRangeKeyField),                   Just ("rangeKeyValue" .= _ddaRangeKeyValue)]) --- | Describes an action that writes data to an Amazon Elasticsearch Service;--- domain.+-- | Describes an action that writes data to an Amazon Elasticsearch Service; domain. -- -- /See:/ 'elasticsearchAction' smart constructor. data ElasticsearchAction = ElasticsearchAction'@@ -883,8 +870,7 @@                   Just ("index" .= _eaIndex), Just ("type" .= _eaType),                   Just ("id" .= _eaId)]) --- | Describes an action that writes data to an Amazon Kinesis Firehose--- stream.+-- | Describes an action that writes data to an Amazon Kinesis Firehose stream. -- -- /See:/ 'firehoseAction' smart constructor. data FirehoseAction = FirehoseAction'@@ -1355,13 +1341,7 @@     , _snsaRoleARN = pRoleARN_     } --- | The message format of the message to publish. Optional. Accepted values--- are \"JSON\" and \"RAW\". The default value of the attribute is \"RAW\".--- SNS uses this setting to determine if the payload should be parsed and--- relevant platform-specific bits of the payload should be extracted. To--- read more about SNS message formats, see--- <http://docs.aws.amazon.com/sns/latest/dg/json-formats.html > refer to--- their official documentation.+-- | The message format of the message to publish. Optional. Accepted values are \"JSON\" and \"RAW\". The default value of the attribute is \"RAW\". SNS uses this setting to determine if the payload should be parsed and relevant platform-specific bits of the payload should be extracted. To read more about SNS message formats, see <http://docs.aws.amazon.com/sns/latest/dg/json-formats.html > refer to their official documentation. snsaMessageFormat :: Lens' SNSAction (Maybe MessageFormat) snsaMessageFormat = lens _snsaMessageFormat (\ s a -> s{_snsaMessageFormat = a}); @@ -1560,8 +1540,7 @@ trRuleName :: Lens' TopicRule (Maybe Text) trRuleName = lens _trRuleName (\ s a -> s{_trRuleName = a}); --- | The SQL statement used to query the topic. When using a SQL query with--- multiple lines, be sure to escape the newline characters.+-- | The SQL statement used to query the topic. When using a SQL query with multiple lines, be sure to escape the newline characters. trSql :: Lens' TopicRule (Maybe Text) trSql = lens _trSql (\ s a -> s{_trSql = a}); @@ -1702,9 +1681,7 @@ trpDescription :: Lens' TopicRulePayload (Maybe Text) trpDescription = lens _trpDescription (\ s a -> s{_trpDescription = a}); --- | The SQL statement used to query the topic. For more information, see--- <http://docs.aws.amazon.com/iot/latest/developerguide/iot-rules.html#aws-iot-sql-reference AWS IoT SQL Reference>--- in the /AWS IoT Developer Guide/.+-- | The SQL statement used to query the topic. For more information, see <http://docs.aws.amazon.com/iot/latest/developerguide/iot-rules.html#aws-iot-sql-reference AWS IoT SQL Reference> in the /AWS IoT Developer Guide/. trpSql :: Lens' TopicRulePayload Text trpSql = lens _trpSql (\ s a -> s{_trpSql = a}); 

@@ -18,15 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Updates the status of the specified certificate. This operation is--- idempotent.+-- Updates the status of the specified certificate. This operation is idempotent. ----- Moving a certificate from the ACTIVE state (including REVOKED) will not--- disconnect currently connected devices, but these devices will be unable--- to reconnect.+-- Moving a certificate from the ACTIVE state (including REVOKED) will not disconnect currently connected devices, but these devices will be unable to reconnect. ----- The ACTIVE state is required to authenticate devices connecting to AWS--- IoT using a certificate.+-- The ACTIVE state is required to authenticate devices connecting to AWS IoT using a certificate. module Network.AWS.IoT.UpdateCertificate     (     -- * Creating a Request@@ -79,9 +75,7 @@  -- | 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:__ 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. ucNewStatus :: Lens' UpdateCertificate CertificateStatus ucNewStatus = lens _ucNewStatus (\ s a -> s{_ucNewStatus = a}); 

@@ -71,9 +71,7 @@ utThingName :: Lens' UpdateThing Text utThingName = lens _utThingName (\ s a -> s{_utThingName = a}); --- | The attribute payload, a JSON string containing up to three key-value--- pairs (for example,--- {\\\"attributes\\\":{\\\"string1\\\":\\\"string2\\\"}}).+-- | The attribute payload, a JSON string containing up to three key-value pairs (for example, {\\\"attributes\\\":{\\\"string1\\\":\\\"string2\\\"}}). utAttributePayload :: Lens' UpdateThing AttributePayload utAttributePayload = lens _utAttributePayload (\ s a -> s{_utAttributePayload = a}); 

@@ -28,307 +28,307 @@ -- fixtures :: TestTree -- fixtures = --     [ testGroup "request"---         [ testListPolicies $+--         [ requestListPolicies $ --             listPolicies -----         , testCreatePolicy $+--         , requestCreatePolicy $ --             createPolicy -----         , testRegisterCertificate $+--         , requestRegisterCertificate $ --             registerCertificate -----         , testListThingPrincipals $+--         , requestListThingPrincipals $ --             listThingPrincipals -----         , testListPrincipalThings $+--         , requestListPrincipalThings $ --             listPrincipalThings -----         , testGetLoggingOptions $+--         , requestGetLoggingOptions $ --             getLoggingOptions -----         , testCreateCertificateFromCsr $+--         , requestCreateCertificateFromCsr $ --             createCertificateFromCsr -----         , testDeleteThing $+--         , requestDeleteThing $ --             deleteThing -----         , testUpdateThing $+--         , requestUpdateThing $ --             updateThing -----         , testCancelCertificateTransfer $+--         , requestCancelCertificateTransfer $ --             cancelCertificateTransfer -----         , testDeletePolicyVersion $+--         , requestDeletePolicyVersion $ --             deletePolicyVersion -----         , testDisableTopicRule $+--         , requestDisableTopicRule $ --             disableTopicRule -----         , testCreateTopicRule $+--         , requestCreateTopicRule $ --             createTopicRule -----         , testCreatePolicyVersion $+--         , requestCreatePolicyVersion $ --             createPolicyVersion -----         , testListCACertificates $+--         , requestListCACertificates $ --             listCACertificates -----         , testDeleteTopicRule $+--         , requestDeleteTopicRule $ --             deleteTopicRule -----         , testListPrincipalPolicies $+--         , requestListPrincipalPolicies $ --             listPrincipalPolicies -----         , testDeleteCACertificate $+--         , requestDeleteCACertificate $ --             deleteCACertificate -----         , testUpdateCACertificate $+--         , requestUpdateCACertificate $ --             updateCACertificate -----         , testListTopicRules $+--         , requestListTopicRules $ --             listTopicRules -----         , testTransferCertificate $+--         , requestTransferCertificate $ --             transferCertificate -----         , testGetTopicRule $+--         , requestGetTopicRule $ --             getTopicRule -----         , testDescribeThing $+--         , requestDescribeThing $ --             describeThing -----         , testDeletePolicy $+--         , requestDeletePolicy $ --             deletePolicy -----         , testListCertificates $+--         , requestListCertificates $ --             listCertificates -----         , testGetPolicyVersion $+--         , requestGetPolicyVersion $ --             getPolicyVersion -----         , testDeleteCertificate $+--         , requestDeleteCertificate $ --             deleteCertificate -----         , testUpdateCertificate $+--         , requestUpdateCertificate $ --             updateCertificate -----         , testDescribeCACertificate $+--         , requestDescribeCACertificate $ --             describeCACertificate -----         , testGetRegistrationCode $+--         , requestGetRegistrationCode $ --             getRegistrationCode -----         , testListCertificatesByCA $+--         , requestListCertificatesByCA $ --             listCertificatesByCA -----         , testAttachThingPrincipal $+--         , requestAttachThingPrincipal $ --             attachThingPrincipal -----         , testListThings $+--         , requestListThings $ --             listThings -----         , testDetachPrincipalPolicy $+--         , requestDetachPrincipalPolicy $ --             detachPrincipalPolicy -----         , testDeleteRegistrationCode $+--         , requestDeleteRegistrationCode $ --             deleteRegistrationCode -----         , testCreateThing $+--         , requestCreateThing $ --             createThing -----         , testDescribeCertificate $+--         , requestDescribeCertificate $ --             describeCertificate -----         , testReplaceTopicRule $+--         , requestReplaceTopicRule $ --             replaceTopicRule -----         , testSetDefaultPolicyVersion $+--         , requestSetDefaultPolicyVersion $ --             setDefaultPolicyVersion -----         , testListPolicyVersions $+--         , requestListPolicyVersions $ --             listPolicyVersions -----         , testCreateKeysAndCertificate $+--         , requestCreateKeysAndCertificate $ --             createKeysAndCertificate -----         , testEnableTopicRule $+--         , requestEnableTopicRule $ --             enableTopicRule -----         , testAcceptCertificateTransfer $+--         , requestAcceptCertificateTransfer $ --             acceptCertificateTransfer -----         , testGetPolicy $+--         , requestGetPolicy $ --             getPolicy -----         , testDescribeEndpoint $+--         , requestDescribeEndpoint $ --             describeEndpoint -----         , testRegisterCACertificate $+--         , requestRegisterCACertificate $ --             registerCACertificate -----         , testSetLoggingOptions $+--         , requestSetLoggingOptions $ --             setLoggingOptions -----         , testAttachPrincipalPolicy $+--         , requestAttachPrincipalPolicy $ --             attachPrincipalPolicy -----         , testRejectCertificateTransfer $+--         , requestRejectCertificateTransfer $ --             rejectCertificateTransfer -----         , testDetachThingPrincipal $+--         , requestDetachThingPrincipal $ --             detachThingPrincipal -- --           ]  --     , testGroup "response"---         [ testListPoliciesResponse $+--         [ responseListPolicies $ --             listPoliciesResponse -----         , testCreatePolicyResponse $+--         , responseCreatePolicy $ --             createPolicyResponse -----         , testRegisterCertificateResponse $+--         , responseRegisterCertificate $ --             registerCertificateResponse -----         , testListThingPrincipalsResponse $+--         , responseListThingPrincipals $ --             listThingPrincipalsResponse -----         , testListPrincipalThingsResponse $+--         , responseListPrincipalThings $ --             listPrincipalThingsResponse -----         , testGetLoggingOptionsResponse $+--         , responseGetLoggingOptions $ --             getLoggingOptionsResponse -----         , testCreateCertificateFromCsrResponse $+--         , responseCreateCertificateFromCsr $ --             createCertificateFromCsrResponse -----         , testDeleteThingResponse $+--         , responseDeleteThing $ --             deleteThingResponse -----         , testUpdateThingResponse $+--         , responseUpdateThing $ --             updateThingResponse -----         , testCancelCertificateTransferResponse $+--         , responseCancelCertificateTransfer $ --             cancelCertificateTransferResponse -----         , testDeletePolicyVersionResponse $+--         , responseDeletePolicyVersion $ --             deletePolicyVersionResponse -----         , testDisableTopicRuleResponse $+--         , responseDisableTopicRule $ --             disableTopicRuleResponse -----         , testCreateTopicRuleResponse $+--         , responseCreateTopicRule $ --             createTopicRuleResponse -----         , testCreatePolicyVersionResponse $+--         , responseCreatePolicyVersion $ --             createPolicyVersionResponse -----         , testListCACertificatesResponse $+--         , responseListCACertificates $ --             listCACertificatesResponse -----         , testDeleteTopicRuleResponse $+--         , responseDeleteTopicRule $ --             deleteTopicRuleResponse -----         , testListPrincipalPoliciesResponse $+--         , responseListPrincipalPolicies $ --             listPrincipalPoliciesResponse -----         , testDeleteCACertificateResponse $+--         , responseDeleteCACertificate $ --             deleteCACertificateResponse -----         , testUpdateCACertificateResponse $+--         , responseUpdateCACertificate $ --             updateCACertificateResponse -----         , testListTopicRulesResponse $+--         , responseListTopicRules $ --             listTopicRulesResponse -----         , testTransferCertificateResponse $+--         , responseTransferCertificate $ --             transferCertificateResponse -----         , testGetTopicRuleResponse $+--         , responseGetTopicRule $ --             getTopicRuleResponse -----         , testDescribeThingResponse $+--         , responseDescribeThing $ --             describeThingResponse -----         , testDeletePolicyResponse $+--         , responseDeletePolicy $ --             deletePolicyResponse -----         , testListCertificatesResponse $+--         , responseListCertificates $ --             listCertificatesResponse -----         , testGetPolicyVersionResponse $+--         , responseGetPolicyVersion $ --             getPolicyVersionResponse -----         , testDeleteCertificateResponse $+--         , responseDeleteCertificate $ --             deleteCertificateResponse -----         , testUpdateCertificateResponse $+--         , responseUpdateCertificate $ --             updateCertificateResponse -----         , testDescribeCACertificateResponse $+--         , responseDescribeCACertificate $ --             describeCACertificateResponse -----         , testGetRegistrationCodeResponse $+--         , responseGetRegistrationCode $ --             getRegistrationCodeResponse -----         , testListCertificatesByCAResponse $+--         , responseListCertificatesByCA $ --             listCertificatesByCAResponse -----         , testAttachThingPrincipalResponse $+--         , responseAttachThingPrincipal $ --             attachThingPrincipalResponse -----         , testListThingsResponse $+--         , responseListThings $ --             listThingsResponse -----         , testDetachPrincipalPolicyResponse $+--         , responseDetachPrincipalPolicy $ --             detachPrincipalPolicyResponse -----         , testDeleteRegistrationCodeResponse $+--         , responseDeleteRegistrationCode $ --             deleteRegistrationCodeResponse -----         , testCreateThingResponse $+--         , responseCreateThing $ --             createThingResponse -----         , testDescribeCertificateResponse $+--         , responseDescribeCertificate $ --             describeCertificateResponse -----         , testReplaceTopicRuleResponse $+--         , responseReplaceTopicRule $ --             replaceTopicRuleResponse -----         , testSetDefaultPolicyVersionResponse $+--         , responseSetDefaultPolicyVersion $ --             setDefaultPolicyVersionResponse -----         , testListPolicyVersionsResponse $+--         , responseListPolicyVersions $ --             listPolicyVersionsResponse -----         , testCreateKeysAndCertificateResponse $+--         , responseCreateKeysAndCertificate $ --             createKeysAndCertificateResponse -----         , testEnableTopicRuleResponse $+--         , responseEnableTopicRule $ --             enableTopicRuleResponse -----         , testAcceptCertificateTransferResponse $+--         , responseAcceptCertificateTransfer $ --             acceptCertificateTransferResponse -----         , testGetPolicyResponse $+--         , responseGetPolicy $ --             getPolicyResponse -----         , testDescribeEndpointResponse $+--         , responseDescribeEndpoint $ --             describeEndpointResponse -----         , testRegisterCACertificateResponse $+--         , responseRegisterCACertificate $ --             registerCACertificateResponse -----         , testSetLoggingOptionsResponse $+--         , responseSetLoggingOptions $ --             setLoggingOptionsResponse -----         , testAttachPrincipalPolicyResponse $+--         , responseAttachPrincipalPolicy $ --             attachPrincipalPolicyResponse -----         , testRejectCertificateTransferResponse $+--         , responseRejectCertificateTransfer $ --             rejectCertificateTransferResponse -----         , testDetachThingPrincipalResponse $+--         , responseDetachThingPrincipal $ --             detachThingPrincipalResponse -- --           ]@@ -336,603 +336,603 @@  -- Requests -testListPolicies :: ListPolicies -> TestTree-testListPolicies = req+requestListPolicies :: ListPolicies -> TestTree+requestListPolicies = req     "ListPolicies"     "fixture/ListPolicies.yaml" -testCreatePolicy :: CreatePolicy -> TestTree-testCreatePolicy = req+requestCreatePolicy :: CreatePolicy -> TestTree+requestCreatePolicy = req     "CreatePolicy"     "fixture/CreatePolicy.yaml" -testRegisterCertificate :: RegisterCertificate -> TestTree-testRegisterCertificate = req+requestRegisterCertificate :: RegisterCertificate -> TestTree+requestRegisterCertificate = req     "RegisterCertificate"     "fixture/RegisterCertificate.yaml" -testListThingPrincipals :: ListThingPrincipals -> TestTree-testListThingPrincipals = req+requestListThingPrincipals :: ListThingPrincipals -> TestTree+requestListThingPrincipals = req     "ListThingPrincipals"     "fixture/ListThingPrincipals.yaml" -testListPrincipalThings :: ListPrincipalThings -> TestTree-testListPrincipalThings = req+requestListPrincipalThings :: ListPrincipalThings -> TestTree+requestListPrincipalThings = req     "ListPrincipalThings"     "fixture/ListPrincipalThings.yaml" -testGetLoggingOptions :: GetLoggingOptions -> TestTree-testGetLoggingOptions = req+requestGetLoggingOptions :: GetLoggingOptions -> TestTree+requestGetLoggingOptions = req     "GetLoggingOptions"     "fixture/GetLoggingOptions.yaml" -testCreateCertificateFromCsr :: CreateCertificateFromCsr -> TestTree-testCreateCertificateFromCsr = req+requestCreateCertificateFromCsr :: CreateCertificateFromCsr -> TestTree+requestCreateCertificateFromCsr = req     "CreateCertificateFromCsr"     "fixture/CreateCertificateFromCsr.yaml" -testDeleteThing :: DeleteThing -> TestTree-testDeleteThing = req+requestDeleteThing :: DeleteThing -> TestTree+requestDeleteThing = req     "DeleteThing"     "fixture/DeleteThing.yaml" -testUpdateThing :: UpdateThing -> TestTree-testUpdateThing = req+requestUpdateThing :: UpdateThing -> TestTree+requestUpdateThing = req     "UpdateThing"     "fixture/UpdateThing.yaml" -testCancelCertificateTransfer :: CancelCertificateTransfer -> TestTree-testCancelCertificateTransfer = req+requestCancelCertificateTransfer :: CancelCertificateTransfer -> TestTree+requestCancelCertificateTransfer = req     "CancelCertificateTransfer"     "fixture/CancelCertificateTransfer.yaml" -testDeletePolicyVersion :: DeletePolicyVersion -> TestTree-testDeletePolicyVersion = req+requestDeletePolicyVersion :: DeletePolicyVersion -> TestTree+requestDeletePolicyVersion = req     "DeletePolicyVersion"     "fixture/DeletePolicyVersion.yaml" -testDisableTopicRule :: DisableTopicRule -> TestTree-testDisableTopicRule = req+requestDisableTopicRule :: DisableTopicRule -> TestTree+requestDisableTopicRule = req     "DisableTopicRule"     "fixture/DisableTopicRule.yaml" -testCreateTopicRule :: CreateTopicRule -> TestTree-testCreateTopicRule = req+requestCreateTopicRule :: CreateTopicRule -> TestTree+requestCreateTopicRule = req     "CreateTopicRule"     "fixture/CreateTopicRule.yaml" -testCreatePolicyVersion :: CreatePolicyVersion -> TestTree-testCreatePolicyVersion = req+requestCreatePolicyVersion :: CreatePolicyVersion -> TestTree+requestCreatePolicyVersion = req     "CreatePolicyVersion"     "fixture/CreatePolicyVersion.yaml" -testListCACertificates :: ListCACertificates -> TestTree-testListCACertificates = req+requestListCACertificates :: ListCACertificates -> TestTree+requestListCACertificates = req     "ListCACertificates"     "fixture/ListCACertificates.yaml" -testDeleteTopicRule :: DeleteTopicRule -> TestTree-testDeleteTopicRule = req+requestDeleteTopicRule :: DeleteTopicRule -> TestTree+requestDeleteTopicRule = req     "DeleteTopicRule"     "fixture/DeleteTopicRule.yaml" -testListPrincipalPolicies :: ListPrincipalPolicies -> TestTree-testListPrincipalPolicies = req+requestListPrincipalPolicies :: ListPrincipalPolicies -> TestTree+requestListPrincipalPolicies = req     "ListPrincipalPolicies"     "fixture/ListPrincipalPolicies.yaml" -testDeleteCACertificate :: DeleteCACertificate -> TestTree-testDeleteCACertificate = req+requestDeleteCACertificate :: DeleteCACertificate -> TestTree+requestDeleteCACertificate = req     "DeleteCACertificate"     "fixture/DeleteCACertificate.yaml" -testUpdateCACertificate :: UpdateCACertificate -> TestTree-testUpdateCACertificate = req+requestUpdateCACertificate :: UpdateCACertificate -> TestTree+requestUpdateCACertificate = req     "UpdateCACertificate"     "fixture/UpdateCACertificate.yaml" -testListTopicRules :: ListTopicRules -> TestTree-testListTopicRules = req+requestListTopicRules :: ListTopicRules -> TestTree+requestListTopicRules = req     "ListTopicRules"     "fixture/ListTopicRules.yaml" -testTransferCertificate :: TransferCertificate -> TestTree-testTransferCertificate = req+requestTransferCertificate :: TransferCertificate -> TestTree+requestTransferCertificate = req     "TransferCertificate"     "fixture/TransferCertificate.yaml" -testGetTopicRule :: GetTopicRule -> TestTree-testGetTopicRule = req+requestGetTopicRule :: GetTopicRule -> TestTree+requestGetTopicRule = req     "GetTopicRule"     "fixture/GetTopicRule.yaml" -testDescribeThing :: DescribeThing -> TestTree-testDescribeThing = req+requestDescribeThing :: DescribeThing -> TestTree+requestDescribeThing = req     "DescribeThing"     "fixture/DescribeThing.yaml" -testDeletePolicy :: DeletePolicy -> TestTree-testDeletePolicy = req+requestDeletePolicy :: DeletePolicy -> TestTree+requestDeletePolicy = req     "DeletePolicy"     "fixture/DeletePolicy.yaml" -testListCertificates :: ListCertificates -> TestTree-testListCertificates = req+requestListCertificates :: ListCertificates -> TestTree+requestListCertificates = req     "ListCertificates"     "fixture/ListCertificates.yaml" -testGetPolicyVersion :: GetPolicyVersion -> TestTree-testGetPolicyVersion = req+requestGetPolicyVersion :: GetPolicyVersion -> TestTree+requestGetPolicyVersion = req     "GetPolicyVersion"     "fixture/GetPolicyVersion.yaml" -testDeleteCertificate :: DeleteCertificate -> TestTree-testDeleteCertificate = req+requestDeleteCertificate :: DeleteCertificate -> TestTree+requestDeleteCertificate = req     "DeleteCertificate"     "fixture/DeleteCertificate.yaml" -testUpdateCertificate :: UpdateCertificate -> TestTree-testUpdateCertificate = req+requestUpdateCertificate :: UpdateCertificate -> TestTree+requestUpdateCertificate = req     "UpdateCertificate"     "fixture/UpdateCertificate.yaml" -testDescribeCACertificate :: DescribeCACertificate -> TestTree-testDescribeCACertificate = req+requestDescribeCACertificate :: DescribeCACertificate -> TestTree+requestDescribeCACertificate = req     "DescribeCACertificate"     "fixture/DescribeCACertificate.yaml" -testGetRegistrationCode :: GetRegistrationCode -> TestTree-testGetRegistrationCode = req+requestGetRegistrationCode :: GetRegistrationCode -> TestTree+requestGetRegistrationCode = req     "GetRegistrationCode"     "fixture/GetRegistrationCode.yaml" -testListCertificatesByCA :: ListCertificatesByCA -> TestTree-testListCertificatesByCA = req+requestListCertificatesByCA :: ListCertificatesByCA -> TestTree+requestListCertificatesByCA = req     "ListCertificatesByCA"     "fixture/ListCertificatesByCA.yaml" -testAttachThingPrincipal :: AttachThingPrincipal -> TestTree-testAttachThingPrincipal = req+requestAttachThingPrincipal :: AttachThingPrincipal -> TestTree+requestAttachThingPrincipal = req     "AttachThingPrincipal"     "fixture/AttachThingPrincipal.yaml" -testListThings :: ListThings -> TestTree-testListThings = req+requestListThings :: ListThings -> TestTree+requestListThings = req     "ListThings"     "fixture/ListThings.yaml" -testDetachPrincipalPolicy :: DetachPrincipalPolicy -> TestTree-testDetachPrincipalPolicy = req+requestDetachPrincipalPolicy :: DetachPrincipalPolicy -> TestTree+requestDetachPrincipalPolicy = req     "DetachPrincipalPolicy"     "fixture/DetachPrincipalPolicy.yaml" -testDeleteRegistrationCode :: DeleteRegistrationCode -> TestTree-testDeleteRegistrationCode = req+requestDeleteRegistrationCode :: DeleteRegistrationCode -> TestTree+requestDeleteRegistrationCode = req     "DeleteRegistrationCode"     "fixture/DeleteRegistrationCode.yaml" -testCreateThing :: CreateThing -> TestTree-testCreateThing = req+requestCreateThing :: CreateThing -> TestTree+requestCreateThing = req     "CreateThing"     "fixture/CreateThing.yaml" -testDescribeCertificate :: DescribeCertificate -> TestTree-testDescribeCertificate = req+requestDescribeCertificate :: DescribeCertificate -> TestTree+requestDescribeCertificate = req     "DescribeCertificate"     "fixture/DescribeCertificate.yaml" -testReplaceTopicRule :: ReplaceTopicRule -> TestTree-testReplaceTopicRule = req+requestReplaceTopicRule :: ReplaceTopicRule -> TestTree+requestReplaceTopicRule = req     "ReplaceTopicRule"     "fixture/ReplaceTopicRule.yaml" -testSetDefaultPolicyVersion :: SetDefaultPolicyVersion -> TestTree-testSetDefaultPolicyVersion = req+requestSetDefaultPolicyVersion :: SetDefaultPolicyVersion -> TestTree+requestSetDefaultPolicyVersion = req     "SetDefaultPolicyVersion"     "fixture/SetDefaultPolicyVersion.yaml" -testListPolicyVersions :: ListPolicyVersions -> TestTree-testListPolicyVersions = req+requestListPolicyVersions :: ListPolicyVersions -> TestTree+requestListPolicyVersions = req     "ListPolicyVersions"     "fixture/ListPolicyVersions.yaml" -testCreateKeysAndCertificate :: CreateKeysAndCertificate -> TestTree-testCreateKeysAndCertificate = req+requestCreateKeysAndCertificate :: CreateKeysAndCertificate -> TestTree+requestCreateKeysAndCertificate = req     "CreateKeysAndCertificate"     "fixture/CreateKeysAndCertificate.yaml" -testEnableTopicRule :: EnableTopicRule -> TestTree-testEnableTopicRule = req+requestEnableTopicRule :: EnableTopicRule -> TestTree+requestEnableTopicRule = req     "EnableTopicRule"     "fixture/EnableTopicRule.yaml" -testAcceptCertificateTransfer :: AcceptCertificateTransfer -> TestTree-testAcceptCertificateTransfer = req+requestAcceptCertificateTransfer :: AcceptCertificateTransfer -> TestTree+requestAcceptCertificateTransfer = req     "AcceptCertificateTransfer"     "fixture/AcceptCertificateTransfer.yaml" -testGetPolicy :: GetPolicy -> TestTree-testGetPolicy = req+requestGetPolicy :: GetPolicy -> TestTree+requestGetPolicy = req     "GetPolicy"     "fixture/GetPolicy.yaml" -testDescribeEndpoint :: DescribeEndpoint -> TestTree-testDescribeEndpoint = req+requestDescribeEndpoint :: DescribeEndpoint -> TestTree+requestDescribeEndpoint = req     "DescribeEndpoint"     "fixture/DescribeEndpoint.yaml" -testRegisterCACertificate :: RegisterCACertificate -> TestTree-testRegisterCACertificate = req+requestRegisterCACertificate :: RegisterCACertificate -> TestTree+requestRegisterCACertificate = req     "RegisterCACertificate"     "fixture/RegisterCACertificate.yaml" -testSetLoggingOptions :: SetLoggingOptions -> TestTree-testSetLoggingOptions = req+requestSetLoggingOptions :: SetLoggingOptions -> TestTree+requestSetLoggingOptions = req     "SetLoggingOptions"     "fixture/SetLoggingOptions.yaml" -testAttachPrincipalPolicy :: AttachPrincipalPolicy -> TestTree-testAttachPrincipalPolicy = req+requestAttachPrincipalPolicy :: AttachPrincipalPolicy -> TestTree+requestAttachPrincipalPolicy = req     "AttachPrincipalPolicy"     "fixture/AttachPrincipalPolicy.yaml" -testRejectCertificateTransfer :: RejectCertificateTransfer -> TestTree-testRejectCertificateTransfer = req+requestRejectCertificateTransfer :: RejectCertificateTransfer -> TestTree+requestRejectCertificateTransfer = req     "RejectCertificateTransfer"     "fixture/RejectCertificateTransfer.yaml" -testDetachThingPrincipal :: DetachThingPrincipal -> TestTree-testDetachThingPrincipal = req+requestDetachThingPrincipal :: DetachThingPrincipal -> TestTree+requestDetachThingPrincipal = req     "DetachThingPrincipal"     "fixture/DetachThingPrincipal.yaml"  -- Responses -testListPoliciesResponse :: ListPoliciesResponse -> TestTree-testListPoliciesResponse = res+responseListPolicies :: ListPoliciesResponse -> TestTree+responseListPolicies = res     "ListPoliciesResponse"     "fixture/ListPoliciesResponse.proto"     ioT     (Proxy :: Proxy ListPolicies) -testCreatePolicyResponse :: CreatePolicyResponse -> TestTree-testCreatePolicyResponse = res+responseCreatePolicy :: CreatePolicyResponse -> TestTree+responseCreatePolicy = res     "CreatePolicyResponse"     "fixture/CreatePolicyResponse.proto"     ioT     (Proxy :: Proxy CreatePolicy) -testRegisterCertificateResponse :: RegisterCertificateResponse -> TestTree-testRegisterCertificateResponse = res+responseRegisterCertificate :: RegisterCertificateResponse -> TestTree+responseRegisterCertificate = res     "RegisterCertificateResponse"     "fixture/RegisterCertificateResponse.proto"     ioT     (Proxy :: Proxy RegisterCertificate) -testListThingPrincipalsResponse :: ListThingPrincipalsResponse -> TestTree-testListThingPrincipalsResponse = res+responseListThingPrincipals :: ListThingPrincipalsResponse -> TestTree+responseListThingPrincipals = res     "ListThingPrincipalsResponse"     "fixture/ListThingPrincipalsResponse.proto"     ioT     (Proxy :: Proxy ListThingPrincipals) -testListPrincipalThingsResponse :: ListPrincipalThingsResponse -> TestTree-testListPrincipalThingsResponse = res+responseListPrincipalThings :: ListPrincipalThingsResponse -> TestTree+responseListPrincipalThings = res     "ListPrincipalThingsResponse"     "fixture/ListPrincipalThingsResponse.proto"     ioT     (Proxy :: Proxy ListPrincipalThings) -testGetLoggingOptionsResponse :: GetLoggingOptionsResponse -> TestTree-testGetLoggingOptionsResponse = res+responseGetLoggingOptions :: GetLoggingOptionsResponse -> TestTree+responseGetLoggingOptions = res     "GetLoggingOptionsResponse"     "fixture/GetLoggingOptionsResponse.proto"     ioT     (Proxy :: Proxy GetLoggingOptions) -testCreateCertificateFromCsrResponse :: CreateCertificateFromCsrResponse -> TestTree-testCreateCertificateFromCsrResponse = res+responseCreateCertificateFromCsr :: CreateCertificateFromCsrResponse -> TestTree+responseCreateCertificateFromCsr = res     "CreateCertificateFromCsrResponse"     "fixture/CreateCertificateFromCsrResponse.proto"     ioT     (Proxy :: Proxy CreateCertificateFromCsr) -testDeleteThingResponse :: DeleteThingResponse -> TestTree-testDeleteThingResponse = res+responseDeleteThing :: DeleteThingResponse -> TestTree+responseDeleteThing = res     "DeleteThingResponse"     "fixture/DeleteThingResponse.proto"     ioT     (Proxy :: Proxy DeleteThing) -testUpdateThingResponse :: UpdateThingResponse -> TestTree-testUpdateThingResponse = res+responseUpdateThing :: UpdateThingResponse -> TestTree+responseUpdateThing = res     "UpdateThingResponse"     "fixture/UpdateThingResponse.proto"     ioT     (Proxy :: Proxy UpdateThing) -testCancelCertificateTransferResponse :: CancelCertificateTransferResponse -> TestTree-testCancelCertificateTransferResponse = res+responseCancelCertificateTransfer :: CancelCertificateTransferResponse -> TestTree+responseCancelCertificateTransfer = res     "CancelCertificateTransferResponse"     "fixture/CancelCertificateTransferResponse.proto"     ioT     (Proxy :: Proxy CancelCertificateTransfer) -testDeletePolicyVersionResponse :: DeletePolicyVersionResponse -> TestTree-testDeletePolicyVersionResponse = res+responseDeletePolicyVersion :: DeletePolicyVersionResponse -> TestTree+responseDeletePolicyVersion = res     "DeletePolicyVersionResponse"     "fixture/DeletePolicyVersionResponse.proto"     ioT     (Proxy :: Proxy DeletePolicyVersion) -testDisableTopicRuleResponse :: DisableTopicRuleResponse -> TestTree-testDisableTopicRuleResponse = res+responseDisableTopicRule :: DisableTopicRuleResponse -> TestTree+responseDisableTopicRule = res     "DisableTopicRuleResponse"     "fixture/DisableTopicRuleResponse.proto"     ioT     (Proxy :: Proxy DisableTopicRule) -testCreateTopicRuleResponse :: CreateTopicRuleResponse -> TestTree-testCreateTopicRuleResponse = res+responseCreateTopicRule :: CreateTopicRuleResponse -> TestTree+responseCreateTopicRule = res     "CreateTopicRuleResponse"     "fixture/CreateTopicRuleResponse.proto"     ioT     (Proxy :: Proxy CreateTopicRule) -testCreatePolicyVersionResponse :: CreatePolicyVersionResponse -> TestTree-testCreatePolicyVersionResponse = res+responseCreatePolicyVersion :: CreatePolicyVersionResponse -> TestTree+responseCreatePolicyVersion = res     "CreatePolicyVersionResponse"     "fixture/CreatePolicyVersionResponse.proto"     ioT     (Proxy :: Proxy CreatePolicyVersion) -testListCACertificatesResponse :: ListCACertificatesResponse -> TestTree-testListCACertificatesResponse = res+responseListCACertificates :: ListCACertificatesResponse -> TestTree+responseListCACertificates = res     "ListCACertificatesResponse"     "fixture/ListCACertificatesResponse.proto"     ioT     (Proxy :: Proxy ListCACertificates) -testDeleteTopicRuleResponse :: DeleteTopicRuleResponse -> TestTree-testDeleteTopicRuleResponse = res+responseDeleteTopicRule :: DeleteTopicRuleResponse -> TestTree+responseDeleteTopicRule = res     "DeleteTopicRuleResponse"     "fixture/DeleteTopicRuleResponse.proto"     ioT     (Proxy :: Proxy DeleteTopicRule) -testListPrincipalPoliciesResponse :: ListPrincipalPoliciesResponse -> TestTree-testListPrincipalPoliciesResponse = res+responseListPrincipalPolicies :: ListPrincipalPoliciesResponse -> TestTree+responseListPrincipalPolicies = res     "ListPrincipalPoliciesResponse"     "fixture/ListPrincipalPoliciesResponse.proto"     ioT     (Proxy :: Proxy ListPrincipalPolicies) -testDeleteCACertificateResponse :: DeleteCACertificateResponse -> TestTree-testDeleteCACertificateResponse = res+responseDeleteCACertificate :: DeleteCACertificateResponse -> TestTree+responseDeleteCACertificate = res     "DeleteCACertificateResponse"     "fixture/DeleteCACertificateResponse.proto"     ioT     (Proxy :: Proxy DeleteCACertificate) -testUpdateCACertificateResponse :: UpdateCACertificateResponse -> TestTree-testUpdateCACertificateResponse = res+responseUpdateCACertificate :: UpdateCACertificateResponse -> TestTree+responseUpdateCACertificate = res     "UpdateCACertificateResponse"     "fixture/UpdateCACertificateResponse.proto"     ioT     (Proxy :: Proxy UpdateCACertificate) -testListTopicRulesResponse :: ListTopicRulesResponse -> TestTree-testListTopicRulesResponse = res+responseListTopicRules :: ListTopicRulesResponse -> TestTree+responseListTopicRules = res     "ListTopicRulesResponse"     "fixture/ListTopicRulesResponse.proto"     ioT     (Proxy :: Proxy ListTopicRules) -testTransferCertificateResponse :: TransferCertificateResponse -> TestTree-testTransferCertificateResponse = res+responseTransferCertificate :: TransferCertificateResponse -> TestTree+responseTransferCertificate = res     "TransferCertificateResponse"     "fixture/TransferCertificateResponse.proto"     ioT     (Proxy :: Proxy TransferCertificate) -testGetTopicRuleResponse :: GetTopicRuleResponse -> TestTree-testGetTopicRuleResponse = res+responseGetTopicRule :: GetTopicRuleResponse -> TestTree+responseGetTopicRule = res     "GetTopicRuleResponse"     "fixture/GetTopicRuleResponse.proto"     ioT     (Proxy :: Proxy GetTopicRule) -testDescribeThingResponse :: DescribeThingResponse -> TestTree-testDescribeThingResponse = res+responseDescribeThing :: DescribeThingResponse -> TestTree+responseDescribeThing = res     "DescribeThingResponse"     "fixture/DescribeThingResponse.proto"     ioT     (Proxy :: Proxy DescribeThing) -testDeletePolicyResponse :: DeletePolicyResponse -> TestTree-testDeletePolicyResponse = res+responseDeletePolicy :: DeletePolicyResponse -> TestTree+responseDeletePolicy = res     "DeletePolicyResponse"     "fixture/DeletePolicyResponse.proto"     ioT     (Proxy :: Proxy DeletePolicy) -testListCertificatesResponse :: ListCertificatesResponse -> TestTree-testListCertificatesResponse = res+responseListCertificates :: ListCertificatesResponse -> TestTree+responseListCertificates = res     "ListCertificatesResponse"     "fixture/ListCertificatesResponse.proto"     ioT     (Proxy :: Proxy ListCertificates) -testGetPolicyVersionResponse :: GetPolicyVersionResponse -> TestTree-testGetPolicyVersionResponse = res+responseGetPolicyVersion :: GetPolicyVersionResponse -> TestTree+responseGetPolicyVersion = res     "GetPolicyVersionResponse"     "fixture/GetPolicyVersionResponse.proto"     ioT     (Proxy :: Proxy GetPolicyVersion) -testDeleteCertificateResponse :: DeleteCertificateResponse -> TestTree-testDeleteCertificateResponse = res+responseDeleteCertificate :: DeleteCertificateResponse -> TestTree+responseDeleteCertificate = res     "DeleteCertificateResponse"     "fixture/DeleteCertificateResponse.proto"     ioT     (Proxy :: Proxy DeleteCertificate) -testUpdateCertificateResponse :: UpdateCertificateResponse -> TestTree-testUpdateCertificateResponse = res+responseUpdateCertificate :: UpdateCertificateResponse -> TestTree+responseUpdateCertificate = res     "UpdateCertificateResponse"     "fixture/UpdateCertificateResponse.proto"     ioT     (Proxy :: Proxy UpdateCertificate) -testDescribeCACertificateResponse :: DescribeCACertificateResponse -> TestTree-testDescribeCACertificateResponse = res+responseDescribeCACertificate :: DescribeCACertificateResponse -> TestTree+responseDescribeCACertificate = res     "DescribeCACertificateResponse"     "fixture/DescribeCACertificateResponse.proto"     ioT     (Proxy :: Proxy DescribeCACertificate) -testGetRegistrationCodeResponse :: GetRegistrationCodeResponse -> TestTree-testGetRegistrationCodeResponse = res+responseGetRegistrationCode :: GetRegistrationCodeResponse -> TestTree+responseGetRegistrationCode = res     "GetRegistrationCodeResponse"     "fixture/GetRegistrationCodeResponse.proto"     ioT     (Proxy :: Proxy GetRegistrationCode) -testListCertificatesByCAResponse :: ListCertificatesByCAResponse -> TestTree-testListCertificatesByCAResponse = res+responseListCertificatesByCA :: ListCertificatesByCAResponse -> TestTree+responseListCertificatesByCA = res     "ListCertificatesByCAResponse"     "fixture/ListCertificatesByCAResponse.proto"     ioT     (Proxy :: Proxy ListCertificatesByCA) -testAttachThingPrincipalResponse :: AttachThingPrincipalResponse -> TestTree-testAttachThingPrincipalResponse = res+responseAttachThingPrincipal :: AttachThingPrincipalResponse -> TestTree+responseAttachThingPrincipal = res     "AttachThingPrincipalResponse"     "fixture/AttachThingPrincipalResponse.proto"     ioT     (Proxy :: Proxy AttachThingPrincipal) -testListThingsResponse :: ListThingsResponse -> TestTree-testListThingsResponse = res+responseListThings :: ListThingsResponse -> TestTree+responseListThings = res     "ListThingsResponse"     "fixture/ListThingsResponse.proto"     ioT     (Proxy :: Proxy ListThings) -testDetachPrincipalPolicyResponse :: DetachPrincipalPolicyResponse -> TestTree-testDetachPrincipalPolicyResponse = res+responseDetachPrincipalPolicy :: DetachPrincipalPolicyResponse -> TestTree+responseDetachPrincipalPolicy = res     "DetachPrincipalPolicyResponse"     "fixture/DetachPrincipalPolicyResponse.proto"     ioT     (Proxy :: Proxy DetachPrincipalPolicy) -testDeleteRegistrationCodeResponse :: DeleteRegistrationCodeResponse -> TestTree-testDeleteRegistrationCodeResponse = res+responseDeleteRegistrationCode :: DeleteRegistrationCodeResponse -> TestTree+responseDeleteRegistrationCode = res     "DeleteRegistrationCodeResponse"     "fixture/DeleteRegistrationCodeResponse.proto"     ioT     (Proxy :: Proxy DeleteRegistrationCode) -testCreateThingResponse :: CreateThingResponse -> TestTree-testCreateThingResponse = res+responseCreateThing :: CreateThingResponse -> TestTree+responseCreateThing = res     "CreateThingResponse"     "fixture/CreateThingResponse.proto"     ioT     (Proxy :: Proxy CreateThing) -testDescribeCertificateResponse :: DescribeCertificateResponse -> TestTree-testDescribeCertificateResponse = res+responseDescribeCertificate :: DescribeCertificateResponse -> TestTree+responseDescribeCertificate = res     "DescribeCertificateResponse"     "fixture/DescribeCertificateResponse.proto"     ioT     (Proxy :: Proxy DescribeCertificate) -testReplaceTopicRuleResponse :: ReplaceTopicRuleResponse -> TestTree-testReplaceTopicRuleResponse = res+responseReplaceTopicRule :: ReplaceTopicRuleResponse -> TestTree+responseReplaceTopicRule = res     "ReplaceTopicRuleResponse"     "fixture/ReplaceTopicRuleResponse.proto"     ioT     (Proxy :: Proxy ReplaceTopicRule) -testSetDefaultPolicyVersionResponse :: SetDefaultPolicyVersionResponse -> TestTree-testSetDefaultPolicyVersionResponse = res+responseSetDefaultPolicyVersion :: SetDefaultPolicyVersionResponse -> TestTree+responseSetDefaultPolicyVersion = res     "SetDefaultPolicyVersionResponse"     "fixture/SetDefaultPolicyVersionResponse.proto"     ioT     (Proxy :: Proxy SetDefaultPolicyVersion) -testListPolicyVersionsResponse :: ListPolicyVersionsResponse -> TestTree-testListPolicyVersionsResponse = res+responseListPolicyVersions :: ListPolicyVersionsResponse -> TestTree+responseListPolicyVersions = res     "ListPolicyVersionsResponse"     "fixture/ListPolicyVersionsResponse.proto"     ioT     (Proxy :: Proxy ListPolicyVersions) -testCreateKeysAndCertificateResponse :: CreateKeysAndCertificateResponse -> TestTree-testCreateKeysAndCertificateResponse = res+responseCreateKeysAndCertificate :: CreateKeysAndCertificateResponse -> TestTree+responseCreateKeysAndCertificate = res     "CreateKeysAndCertificateResponse"     "fixture/CreateKeysAndCertificateResponse.proto"     ioT     (Proxy :: Proxy CreateKeysAndCertificate) -testEnableTopicRuleResponse :: EnableTopicRuleResponse -> TestTree-testEnableTopicRuleResponse = res+responseEnableTopicRule :: EnableTopicRuleResponse -> TestTree+responseEnableTopicRule = res     "EnableTopicRuleResponse"     "fixture/EnableTopicRuleResponse.proto"     ioT     (Proxy :: Proxy EnableTopicRule) -testAcceptCertificateTransferResponse :: AcceptCertificateTransferResponse -> TestTree-testAcceptCertificateTransferResponse = res+responseAcceptCertificateTransfer :: AcceptCertificateTransferResponse -> TestTree+responseAcceptCertificateTransfer = res     "AcceptCertificateTransferResponse"     "fixture/AcceptCertificateTransferResponse.proto"     ioT     (Proxy :: Proxy AcceptCertificateTransfer) -testGetPolicyResponse :: GetPolicyResponse -> TestTree-testGetPolicyResponse = res+responseGetPolicy :: GetPolicyResponse -> TestTree+responseGetPolicy = res     "GetPolicyResponse"     "fixture/GetPolicyResponse.proto"     ioT     (Proxy :: Proxy GetPolicy) -testDescribeEndpointResponse :: DescribeEndpointResponse -> TestTree-testDescribeEndpointResponse = res+responseDescribeEndpoint :: DescribeEndpointResponse -> TestTree+responseDescribeEndpoint = res     "DescribeEndpointResponse"     "fixture/DescribeEndpointResponse.proto"     ioT     (Proxy :: Proxy DescribeEndpoint) -testRegisterCACertificateResponse :: RegisterCACertificateResponse -> TestTree-testRegisterCACertificateResponse = res+responseRegisterCACertificate :: RegisterCACertificateResponse -> TestTree+responseRegisterCACertificate = res     "RegisterCACertificateResponse"     "fixture/RegisterCACertificateResponse.proto"     ioT     (Proxy :: Proxy RegisterCACertificate) -testSetLoggingOptionsResponse :: SetLoggingOptionsResponse -> TestTree-testSetLoggingOptionsResponse = res+responseSetLoggingOptions :: SetLoggingOptionsResponse -> TestTree+responseSetLoggingOptions = res     "SetLoggingOptionsResponse"     "fixture/SetLoggingOptionsResponse.proto"     ioT     (Proxy :: Proxy SetLoggingOptions) -testAttachPrincipalPolicyResponse :: AttachPrincipalPolicyResponse -> TestTree-testAttachPrincipalPolicyResponse = res+responseAttachPrincipalPolicy :: AttachPrincipalPolicyResponse -> TestTree+responseAttachPrincipalPolicy = res     "AttachPrincipalPolicyResponse"     "fixture/AttachPrincipalPolicyResponse.proto"     ioT     (Proxy :: Proxy AttachPrincipalPolicy) -testRejectCertificateTransferResponse :: RejectCertificateTransferResponse -> TestTree-testRejectCertificateTransferResponse = res+responseRejectCertificateTransfer :: RejectCertificateTransferResponse -> TestTree+responseRejectCertificateTransfer = res     "RejectCertificateTransferResponse"     "fixture/RejectCertificateTransferResponse.proto"     ioT     (Proxy :: Proxy RejectCertificateTransfer) -testDetachThingPrincipalResponse :: DetachThingPrincipalResponse -> TestTree-testDetachThingPrincipalResponse = res+responseDetachThingPrincipal :: DetachThingPrincipalResponse -> TestTree+responseDetachThingPrincipal = res     "DetachThingPrincipalResponse"     "fixture/DetachThingPrincipalResponse.proto"     ioT