summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBrendanHay <>2018-05-16 15:04:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2018-05-16 15:04:00 (GMT)
commit6fb715b480edac06c42b5fca3971f0f0f2339022 (patch)
tree7249d068faa3ddaf28bad09a4b5a77dac441c0bc
parentef3057376801b9bcc3cf275779c3dbb24a6d5ec3 (diff)
version 1.6.01.6.0
-rw-r--r--README.md2
-rw-r--r--amazonka-clouddirectory.cabal14
-rw-r--r--fixture/GetAppliedSchemaVersion.yaml10
-rw-r--r--fixture/GetAppliedSchemaVersionResponse.proto0
-rw-r--r--fixture/GetObjectAttributes.yaml10
-rw-r--r--fixture/GetObjectAttributesResponse.proto0
-rw-r--r--fixture/UpgradeAppliedSchema.yaml10
-rw-r--r--fixture/UpgradeAppliedSchemaResponse.proto0
-rw-r--r--fixture/UpgradePublishedSchema.yaml10
-rw-r--r--fixture/UpgradePublishedSchemaResponse.proto0
-rw-r--r--gen/Network/AWS/CloudDirectory.hs73
-rw-r--r--gen/Network/AWS/CloudDirectory/AddFacetToObject.hs28
-rw-r--r--gen/Network/AWS/CloudDirectory/ApplySchema.hs28
-rw-r--r--gen/Network/AWS/CloudDirectory/AttachObject.hs30
-rw-r--r--gen/Network/AWS/CloudDirectory/AttachPolicy.hs27
-rw-r--r--gen/Network/AWS/CloudDirectory/AttachToIndex.hs26
-rw-r--r--gen/Network/AWS/CloudDirectory/AttachTypedLink.hs32
-rw-r--r--gen/Network/AWS/CloudDirectory/BatchRead.hs22
-rw-r--r--gen/Network/AWS/CloudDirectory/BatchWrite.hs14
-rw-r--r--gen/Network/AWS/CloudDirectory/CreateDirectory.hs28
-rw-r--r--gen/Network/AWS/CloudDirectory/CreateFacet.hs22
-rw-r--r--gen/Network/AWS/CloudDirectory/CreateIndex.hs30
-rw-r--r--gen/Network/AWS/CloudDirectory/CreateObject.hs34
-rw-r--r--gen/Network/AWS/CloudDirectory/CreateSchema.hs10
-rw-r--r--gen/Network/AWS/CloudDirectory/CreateTypedLinkFacet.hs8
-rw-r--r--gen/Network/AWS/CloudDirectory/DeleteDirectory.hs10
-rw-r--r--gen/Network/AWS/CloudDirectory/DeleteFacet.hs8
-rw-r--r--gen/Network/AWS/CloudDirectory/DeleteObject.hs10
-rw-r--r--gen/Network/AWS/CloudDirectory/DeleteSchema.hs10
-rw-r--r--gen/Network/AWS/CloudDirectory/DeleteTypedLinkFacet.hs8
-rw-r--r--gen/Network/AWS/CloudDirectory/DetachFromIndex.hs26
-rw-r--r--gen/Network/AWS/CloudDirectory/DetachObject.hs26
-rw-r--r--gen/Network/AWS/CloudDirectory/DetachPolicy.hs18
-rw-r--r--gen/Network/AWS/CloudDirectory/DetachTypedLink.hs12
-rw-r--r--gen/Network/AWS/CloudDirectory/DisableDirectory.hs10
-rw-r--r--gen/Network/AWS/CloudDirectory/EnableDirectory.hs10
-rw-r--r--gen/Network/AWS/CloudDirectory/GetAppliedSchemaVersion.hs131
-rw-r--r--gen/Network/AWS/CloudDirectory/GetDirectory.hs10
-rw-r--r--gen/Network/AWS/CloudDirectory/GetFacet.hs12
-rw-r--r--gen/Network/AWS/CloudDirectory/GetObjectAttributes.hs176
-rw-r--r--gen/Network/AWS/CloudDirectory/GetObjectInformation.hs34
-rw-r--r--gen/Network/AWS/CloudDirectory/GetSchemaAsJSON.hs18
-rw-r--r--gen/Network/AWS/CloudDirectory/GetTypedLinkFacetInformation.hs18
-rw-r--r--gen/Network/AWS/CloudDirectory/ListAppliedSchemaARNs.hs52
-rw-r--r--gen/Network/AWS/CloudDirectory/ListAttachedIndices.hs50
-rw-r--r--gen/Network/AWS/CloudDirectory/ListDevelopmentSchemaARNs.hs32
-rw-r--r--gen/Network/AWS/CloudDirectory/ListDirectories.hs34
-rw-r--r--gen/Network/AWS/CloudDirectory/ListFacetAttributes.hs44
-rw-r--r--gen/Network/AWS/CloudDirectory/ListFacetNames.hs40
-rw-r--r--gen/Network/AWS/CloudDirectory/ListIncomingTypedLinks.hs46
-rw-r--r--gen/Network/AWS/CloudDirectory/ListIndex.hs56
-rw-r--r--gen/Network/AWS/CloudDirectory/ListObjectAttributes.hs52
-rw-r--r--gen/Network/AWS/CloudDirectory/ListObjectChildren.hs38
-rw-r--r--gen/Network/AWS/CloudDirectory/ListObjectParentPaths.hs45
-rw-r--r--gen/Network/AWS/CloudDirectory/ListObjectParents.hs38
-rw-r--r--gen/Network/AWS/CloudDirectory/ListObjectPolicies.hs48
-rw-r--r--gen/Network/AWS/CloudDirectory/ListOutgoingTypedLinks.hs46
-rw-r--r--gen/Network/AWS/CloudDirectory/ListPolicyAttachments.hs48
-rw-r--r--gen/Network/AWS/CloudDirectory/ListPublishedSchemaARNs.hs47
-rw-r--r--gen/Network/AWS/CloudDirectory/ListTagsForResource.hs40
-rw-r--r--gen/Network/AWS/CloudDirectory/ListTypedLinkFacetAttributes.hs44
-rw-r--r--gen/Network/AWS/CloudDirectory/ListTypedLinkFacetNames.hs40
-rw-r--r--gen/Network/AWS/CloudDirectory/LookupPolicy.hs44
-rw-r--r--gen/Network/AWS/CloudDirectory/PublishSchema.hs42
-rw-r--r--gen/Network/AWS/CloudDirectory/PutSchemaFromJSON.hs12
-rw-r--r--gen/Network/AWS/CloudDirectory/RemoveFacetFromObject.hs22
-rw-r--r--gen/Network/AWS/CloudDirectory/TagResource.hs8
-rw-r--r--gen/Network/AWS/CloudDirectory/Types.hs66
-rw-r--r--gen/Network/AWS/CloudDirectory/Types/Product.hs1104
-rw-r--r--gen/Network/AWS/CloudDirectory/Types/Sum.hs2
-rw-r--r--gen/Network/AWS/CloudDirectory/UntagResource.hs8
-rw-r--r--gen/Network/AWS/CloudDirectory/UpdateFacet.hs22
-rw-r--r--gen/Network/AWS/CloudDirectory/UpdateObjectAttributes.hs22
-rw-r--r--gen/Network/AWS/CloudDirectory/UpdateSchema.hs12
-rw-r--r--gen/Network/AWS/CloudDirectory/UpdateTypedLinkFacet.hs22
-rw-r--r--gen/Network/AWS/CloudDirectory/UpgradeAppliedSchema.hs167
-rw-r--r--gen/Network/AWS/CloudDirectory/UpgradePublishedSchema.hs166
-rw-r--r--gen/Network/AWS/CloudDirectory/Waiters.hs2
-rw-r--r--test/Main.hs2
-rw-r--r--test/Test/AWS/CloudDirectory.hs2
-rw-r--r--test/Test/AWS/CloudDirectory/Internal.hs2
-rw-r--r--test/Test/AWS/Gen/CloudDirectory.hs74
82 files changed, 2390 insertions, 1266 deletions
diff --git a/README.md b/README.md
index a0d1dc3..64fcce0 100644
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
## Version
-`1.5.0`
+`1.6.0`
## Description
diff --git a/amazonka-clouddirectory.cabal b/amazonka-clouddirectory.cabal
index 4e2e865..7cb2cd0 100644
--- a/amazonka-clouddirectory.cabal
+++ b/amazonka-clouddirectory.cabal
@@ -1,5 +1,5 @@
name: amazonka-clouddirectory
-version: 1.5.0
+version: 1.6.0
synopsis: Amazon CloudDirectory SDK.
homepage: https://github.com/brendanhay/amazonka
bug-reports: https://github.com/brendanhay/amazonka/issues
@@ -7,7 +7,7 @@ license: MPL-2.0
license-file: LICENSE
author: Brendan Hay
maintainer: Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-copyright: Copyright (c) 2013-2017 Brendan Hay
+copyright: Copyright (c) 2013-2018 Brendan Hay
category: Network, AWS, Cloud, Distributed Computing
build-type: Simple
cabal-version: >= 1.10
@@ -70,8 +70,10 @@ library
, Network.AWS.CloudDirectory.DetachTypedLink
, Network.AWS.CloudDirectory.DisableDirectory
, Network.AWS.CloudDirectory.EnableDirectory
+ , Network.AWS.CloudDirectory.GetAppliedSchemaVersion
, Network.AWS.CloudDirectory.GetDirectory
, Network.AWS.CloudDirectory.GetFacet
+ , Network.AWS.CloudDirectory.GetObjectAttributes
, Network.AWS.CloudDirectory.GetObjectInformation
, Network.AWS.CloudDirectory.GetSchemaAsJSON
, Network.AWS.CloudDirectory.GetTypedLinkFacetInformation
@@ -105,6 +107,8 @@ library
, Network.AWS.CloudDirectory.UpdateObjectAttributes
, Network.AWS.CloudDirectory.UpdateSchema
, Network.AWS.CloudDirectory.UpdateTypedLinkFacet
+ , Network.AWS.CloudDirectory.UpgradeAppliedSchema
+ , Network.AWS.CloudDirectory.UpgradePublishedSchema
, Network.AWS.CloudDirectory.Waiters
other-modules:
@@ -112,7 +116,7 @@ library
, Network.AWS.CloudDirectory.Types.Sum
build-depends:
- amazonka-core == 1.5.0.*
+ amazonka-core == 1.6.0.*
, base >= 4.7 && < 5
test-suite amazonka-clouddirectory-test
@@ -132,8 +136,8 @@ test-suite amazonka-clouddirectory-test
, Test.AWS.CloudDirectory.Internal
build-depends:
- amazonka-core == 1.5.0.*
- , amazonka-test == 1.5.0.*
+ amazonka-core == 1.6.0.*
+ , amazonka-test == 1.6.0.*
, amazonka-clouddirectory
, base
, bytestring
diff --git a/fixture/GetAppliedSchemaVersion.yaml b/fixture/GetAppliedSchemaVersion.yaml
new file mode 100644
index 0000000..6694eb7
--- /dev/null
+++ b/fixture/GetAppliedSchemaVersion.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/clouddirectory/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: clouddirectory.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/GetAppliedSchemaVersionResponse.proto b/fixture/GetAppliedSchemaVersionResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/GetAppliedSchemaVersionResponse.proto
diff --git a/fixture/GetObjectAttributes.yaml b/fixture/GetObjectAttributes.yaml
new file mode 100644
index 0000000..6694eb7
--- /dev/null
+++ b/fixture/GetObjectAttributes.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/clouddirectory/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: clouddirectory.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/GetObjectAttributesResponse.proto b/fixture/GetObjectAttributesResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/GetObjectAttributesResponse.proto
diff --git a/fixture/UpgradeAppliedSchema.yaml b/fixture/UpgradeAppliedSchema.yaml
new file mode 100644
index 0000000..82f38d2
--- /dev/null
+++ b/fixture/UpgradeAppliedSchema.yaml
@@ -0,0 +1,10 @@
+---
+method: PUT
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/clouddirectory/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: clouddirectory.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/UpgradeAppliedSchemaResponse.proto b/fixture/UpgradeAppliedSchemaResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/UpgradeAppliedSchemaResponse.proto
diff --git a/fixture/UpgradePublishedSchema.yaml b/fixture/UpgradePublishedSchema.yaml
new file mode 100644
index 0000000..82f38d2
--- /dev/null
+++ b/fixture/UpgradePublishedSchema.yaml
@@ -0,0 +1,10 @@
+---
+method: PUT
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/clouddirectory/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: clouddirectory.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/UpgradePublishedSchemaResponse.proto b/fixture/UpgradePublishedSchemaResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/UpgradePublishedSchemaResponse.proto
diff --git a/gen/Network/AWS/CloudDirectory.hs b/gen/Network/AWS/CloudDirectory.hs
index cf08501..a4537dd 100644
--- a/gen/Network/AWS/CloudDirectory.hs
+++ b/gen/Network/AWS/CloudDirectory.hs
@@ -5,7 +5,7 @@
-- |
-- Module : Network.AWS.CloudDirectory
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -83,6 +83,9 @@ module Network.AWS.CloudDirectory
-- ** StillContainsLinksException
, _StillContainsLinksException
+ -- ** IncompatibleSchemaException
+ , _IncompatibleSchemaException
+
-- ** NotNodeException
, _NotNodeException
@@ -131,43 +134,46 @@ module Network.AWS.CloudDirectory
-- * Operations
-- $operations
- -- ** ListTypedLinkFacetAttributes
+ -- ** ListTypedLinkFacetAttributes (Paginated)
, module Network.AWS.CloudDirectory.ListTypedLinkFacetAttributes
-- ** DeleteObject
, module Network.AWS.CloudDirectory.DeleteObject
- -- ** ListIndex
+ -- ** ListIndex (Paginated)
, module Network.AWS.CloudDirectory.ListIndex
+ -- ** UpgradeAppliedSchema
+ , module Network.AWS.CloudDirectory.UpgradeAppliedSchema
+
-- ** GetDirectory
, module Network.AWS.CloudDirectory.GetDirectory
-- ** GetObjectInformation
, module Network.AWS.CloudDirectory.GetObjectInformation
- -- ** ListAttachedIndices
+ -- ** ListAttachedIndices (Paginated)
, module Network.AWS.CloudDirectory.ListAttachedIndices
-- ** DetachFromIndex
, module Network.AWS.CloudDirectory.DetachFromIndex
- -- ** LookupPolicy
+ -- ** LookupPolicy (Paginated)
, module Network.AWS.CloudDirectory.LookupPolicy
- -- ** ListTagsForResource
+ -- ** ListTagsForResource (Paginated)
, module Network.AWS.CloudDirectory.ListTagsForResource
- -- ** ListPublishedSchemaARNs
+ -- ** ListPublishedSchemaARNs (Paginated)
, module Network.AWS.CloudDirectory.ListPublishedSchemaARNs
- -- ** ListDirectories
+ -- ** ListDirectories (Paginated)
, module Network.AWS.CloudDirectory.ListDirectories
-- ** CreateTypedLinkFacet
, module Network.AWS.CloudDirectory.CreateTypedLinkFacet
- -- ** ListObjectParentPaths
+ -- ** ListObjectParentPaths (Paginated)
, module Network.AWS.CloudDirectory.ListObjectParentPaths
-- ** DisableDirectory
@@ -176,7 +182,7 @@ module Network.AWS.CloudDirectory
-- ** CreateDirectory
, module Network.AWS.CloudDirectory.CreateDirectory
- -- ** ListFacetAttributes
+ -- ** ListFacetAttributes (Paginated)
, module Network.AWS.CloudDirectory.ListFacetAttributes
-- ** UpdateTypedLinkFacet
@@ -185,16 +191,19 @@ module Network.AWS.CloudDirectory
-- ** DeleteTypedLinkFacet
, module Network.AWS.CloudDirectory.DeleteTypedLinkFacet
+ -- ** GetAppliedSchemaVersion
+ , module Network.AWS.CloudDirectory.GetAppliedSchemaVersion
+
-- ** RemoveFacetFromObject
, module Network.AWS.CloudDirectory.RemoveFacetFromObject
-- ** EnableDirectory
, module Network.AWS.CloudDirectory.EnableDirectory
- -- ** ListObjectAttributes
+ -- ** ListObjectAttributes (Paginated)
, module Network.AWS.CloudDirectory.ListObjectAttributes
- -- ** ListAppliedSchemaARNs
+ -- ** ListAppliedSchemaARNs (Paginated)
, module Network.AWS.CloudDirectory.ListAppliedSchemaARNs
-- ** ListIncomingTypedLinks
@@ -206,7 +215,7 @@ module Network.AWS.CloudDirectory
-- ** GetTypedLinkFacetInformation
, module Network.AWS.CloudDirectory.GetTypedLinkFacetInformation
- -- ** ListDevelopmentSchemaARNs
+ -- ** ListDevelopmentSchemaARNs (Paginated)
, module Network.AWS.CloudDirectory.ListDevelopmentSchemaARNs
-- ** AttachObject
@@ -218,9 +227,15 @@ module Network.AWS.CloudDirectory
-- ** CreateObject
, module Network.AWS.CloudDirectory.CreateObject
+ -- ** UpgradePublishedSchema
+ , module Network.AWS.CloudDirectory.UpgradePublishedSchema
+
-- ** CreateFacet
, module Network.AWS.CloudDirectory.CreateFacet
+ -- ** GetObjectAttributes
+ , module Network.AWS.CloudDirectory.GetObjectAttributes
+
-- ** DeleteFacet
, module Network.AWS.CloudDirectory.DeleteFacet
@@ -230,7 +245,7 @@ module Network.AWS.CloudDirectory
-- ** ListObjectChildren
, module Network.AWS.CloudDirectory.ListObjectChildren
- -- ** ListTypedLinkFacetNames
+ -- ** ListTypedLinkFacetNames (Paginated)
, module Network.AWS.CloudDirectory.ListTypedLinkFacetNames
-- ** AttachTypedLink
@@ -266,7 +281,7 @@ module Network.AWS.CloudDirectory
-- ** ListObjectParents
, module Network.AWS.CloudDirectory.ListObjectParents
- -- ** ListPolicyAttachments
+ -- ** ListPolicyAttachments (Paginated)
, module Network.AWS.CloudDirectory.ListPolicyAttachments
-- ** TagResource
@@ -281,7 +296,7 @@ module Network.AWS.CloudDirectory
-- ** DetachTypedLink
, module Network.AWS.CloudDirectory.DetachTypedLink
- -- ** ListFacetNames
+ -- ** ListFacetNames (Paginated)
, module Network.AWS.CloudDirectory.ListFacetNames
-- ** UntagResource
@@ -305,7 +320,7 @@ module Network.AWS.CloudDirectory
-- ** AttachToIndex
, module Network.AWS.CloudDirectory.AttachToIndex
- -- ** ListObjectPolicies
+ -- ** ListObjectPolicies (Paginated)
, module Network.AWS.CloudDirectory.ListObjectPolicies
-- * Types
@@ -430,11 +445,11 @@ module Network.AWS.CloudDirectory
-- ** BatchCreateObject
, BatchCreateObject
, batchCreateObject
- , bcoSchemaFacet
- , bcoObjectAttributeList
, bcoParentReference
, bcoLinkName
, bcoBatchReferenceName
+ , bcoSchemaFacet
+ , bcoObjectAttributeList
-- ** BatchCreateObjectResponse
, BatchCreateObjectResponse
@@ -464,9 +479,9 @@ module Network.AWS.CloudDirectory
-- ** BatchDetachObject
, BatchDetachObject
, batchDetachObject
+ , bdoBatchReferenceName
, bdoParentReference
, bdoLinkName
- , bdoBatchReferenceName
-- ** BatchDetachObjectResponse
, BatchDetachObjectResponse
@@ -492,6 +507,18 @@ module Network.AWS.CloudDirectory
, BatchDetachTypedLinkResponse
, batchDetachTypedLinkResponse
+ -- ** BatchGetObjectAttributes
+ , BatchGetObjectAttributes
+ , batchGetObjectAttributes
+ , bgoaObjectReference
+ , bgoaSchemaFacet
+ , bgoaAttributeNames
+
+ -- ** BatchGetObjectAttributesResponse
+ , BatchGetObjectAttributesResponse
+ , batchGetObjectAttributesResponse
+ , bgoaAttributes
+
-- ** BatchGetObjectInformation
, BatchGetObjectInformation
, batchGetObjectInformation
@@ -655,6 +682,7 @@ module Network.AWS.CloudDirectory
, broListObjectParentPaths
, broListObjectAttributes
, broListIncomingTypedLinks
+ , broGetObjectAttributes
, broListObjectChildren
, broListPolicyAttachments
, broListOutgoingTypedLinks
@@ -676,6 +704,7 @@ module Network.AWS.CloudDirectory
, brsListObjectParentPaths
, brsListObjectAttributes
, brsListIncomingTypedLinks
+ , brsGetObjectAttributes
, brsListObjectChildren
, brsListPolicyAttachments
, brsListOutgoingTypedLinks
@@ -932,8 +961,10 @@ import Network.AWS.CloudDirectory.DetachPolicy
import Network.AWS.CloudDirectory.DetachTypedLink
import Network.AWS.CloudDirectory.DisableDirectory
import Network.AWS.CloudDirectory.EnableDirectory
+import Network.AWS.CloudDirectory.GetAppliedSchemaVersion
import Network.AWS.CloudDirectory.GetDirectory
import Network.AWS.CloudDirectory.GetFacet
+import Network.AWS.CloudDirectory.GetObjectAttributes
import Network.AWS.CloudDirectory.GetObjectInformation
import Network.AWS.CloudDirectory.GetSchemaAsJSON
import Network.AWS.CloudDirectory.GetTypedLinkFacetInformation
@@ -967,6 +998,8 @@ import Network.AWS.CloudDirectory.UpdateFacet
import Network.AWS.CloudDirectory.UpdateObjectAttributes
import Network.AWS.CloudDirectory.UpdateSchema
import Network.AWS.CloudDirectory.UpdateTypedLinkFacet
+import Network.AWS.CloudDirectory.UpgradeAppliedSchema
+import Network.AWS.CloudDirectory.UpgradePublishedSchema
import Network.AWS.CloudDirectory.Waiters
{- $errors
diff --git a/gen/Network/AWS/CloudDirectory/AddFacetToObject.hs b/gen/Network/AWS/CloudDirectory/AddFacetToObject.hs
index 4270163..a5d4682 100644
--- a/gen/Network/AWS/CloudDirectory/AddFacetToObject.hs
+++ b/gen/Network/AWS/CloudDirectory/AddFacetToObject.hs
@@ -12,13 +12,13 @@
-- |
-- Module : Network.AWS.CloudDirectory.AddFacetToObject
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Adds a new 'Facet' to an object.
+-- Adds a new 'Facet' to an object. An object can have more than one facet applied on it.
--
--
module Network.AWS.CloudDirectory.AddFacetToObject
@@ -63,7 +63,7 @@ data AddFacetToObject = AddFacetToObject'
--
-- * 'aftoDirectoryARN' - The Amazon Resource Name (ARN) that is associated with the 'Directory' where the object resides. For more information, see 'arns' .
--
--- * 'aftoSchemaFacet' - Identifiers for the facet that you are adding to the object.
+-- * 'aftoSchemaFacet' - Identifiers for the facet that you are adding to the object. See 'SchemaFacet' for details.
--
-- * 'aftoObjectReference' - A reference to the object you are adding the specified facet to.
addFacetToObject
@@ -73,28 +73,28 @@ addFacetToObject
-> AddFacetToObject
addFacetToObject pDirectoryARN_ pSchemaFacet_ pObjectReference_ =
AddFacetToObject'
- { _aftoObjectAttributeList = Nothing
- , _aftoDirectoryARN = pDirectoryARN_
- , _aftoSchemaFacet = pSchemaFacet_
- , _aftoObjectReference = pObjectReference_
- }
+ { _aftoObjectAttributeList = Nothing
+ , _aftoDirectoryARN = pDirectoryARN_
+ , _aftoSchemaFacet = pSchemaFacet_
+ , _aftoObjectReference = pObjectReference_
+ }
-- | Attributes on the facet that you are adding to the object.
aftoObjectAttributeList :: Lens' AddFacetToObject [AttributeKeyAndValue]
-aftoObjectAttributeList = lens _aftoObjectAttributeList (\ s a -> s{_aftoObjectAttributeList = a}) . _Default . _Coerce;
+aftoObjectAttributeList = lens _aftoObjectAttributeList (\ s a -> s{_aftoObjectAttributeList = a}) . _Default . _Coerce
-- | The Amazon Resource Name (ARN) that is associated with the 'Directory' where the object resides. For more information, see 'arns' .
aftoDirectoryARN :: Lens' AddFacetToObject Text
-aftoDirectoryARN = lens _aftoDirectoryARN (\ s a -> s{_aftoDirectoryARN = a});
+aftoDirectoryARN = lens _aftoDirectoryARN (\ s a -> s{_aftoDirectoryARN = a})
--- | Identifiers for the facet that you are adding to the object.
+-- | Identifiers for the facet that you are adding to the object. See 'SchemaFacet' for details.
aftoSchemaFacet :: Lens' AddFacetToObject SchemaFacet
-aftoSchemaFacet = lens _aftoSchemaFacet (\ s a -> s{_aftoSchemaFacet = a});
+aftoSchemaFacet = lens _aftoSchemaFacet (\ s a -> s{_aftoSchemaFacet = a})
-- | A reference to the object you are adding the specified facet to.
aftoObjectReference :: Lens' AddFacetToObject ObjectReference
-aftoObjectReference = lens _aftoObjectReference (\ s a -> s{_aftoObjectReference = a});
+aftoObjectReference = lens _aftoObjectReference (\ s a -> s{_aftoObjectReference = a})
instance AWSRequest AddFacetToObject where
type Rs AddFacetToObject = AddFacetToObjectResponse
@@ -150,6 +150,6 @@ addFacetToObjectResponse pResponseStatus_ =
-- | -- | The response status code.
aftorsResponseStatus :: Lens' AddFacetToObjectResponse Int
-aftorsResponseStatus = lens _aftorsResponseStatus (\ s a -> s{_aftorsResponseStatus = a});
+aftorsResponseStatus = lens _aftorsResponseStatus (\ s a -> s{_aftorsResponseStatus = a})
instance NFData AddFacetToObjectResponse where
diff --git a/gen/Network/AWS/CloudDirectory/ApplySchema.hs b/gen/Network/AWS/CloudDirectory/ApplySchema.hs
index b88908f..db2d4e5 100644
--- a/gen/Network/AWS/CloudDirectory/ApplySchema.hs
+++ b/gen/Network/AWS/CloudDirectory/ApplySchema.hs
@@ -12,13 +12,13 @@
-- |
-- Module : Network.AWS.CloudDirectory.ApplySchema
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Copies the input published schema into the 'Directory' with the same name and version as that of the published schema .
+-- Copies the input published schema, at the specified version, into the 'Directory' with the same name and version as that of the published schema.
--
--
module Network.AWS.CloudDirectory.ApplySchema
@@ -66,18 +66,18 @@ applySchema
-> ApplySchema
applySchema pPublishedSchemaARN_ pDirectoryARN_ =
ApplySchema'
- { _asPublishedSchemaARN = pPublishedSchemaARN_
- , _asDirectoryARN = pDirectoryARN_
- }
+ { _asPublishedSchemaARN = pPublishedSchemaARN_
+ , _asDirectoryARN = pDirectoryARN_
+ }
-- | Published schema Amazon Resource Name (ARN) that needs to be copied. For more information, see 'arns' .
asPublishedSchemaARN :: Lens' ApplySchema Text
-asPublishedSchemaARN = lens _asPublishedSchemaARN (\ s a -> s{_asPublishedSchemaARN = a});
+asPublishedSchemaARN = lens _asPublishedSchemaARN (\ s a -> s{_asPublishedSchemaARN = a})
-- | The Amazon Resource Name (ARN) that is associated with the 'Directory' into which the schema is copied. For more information, see 'arns' .
asDirectoryARN :: Lens' ApplySchema Text
-asDirectoryARN = lens _asDirectoryARN (\ s a -> s{_asDirectoryARN = a});
+asDirectoryARN = lens _asDirectoryARN (\ s a -> s{_asDirectoryARN = a})
instance AWSRequest ApplySchema where
type Rs ApplySchema = ApplySchemaResponse
@@ -134,22 +134,22 @@ applySchemaResponse
-> ApplySchemaResponse
applySchemaResponse pResponseStatus_ =
ApplySchemaResponse'
- { _asrsDirectoryARN = Nothing
- , _asrsAppliedSchemaARN = Nothing
- , _asrsResponseStatus = pResponseStatus_
- }
+ { _asrsDirectoryARN = Nothing
+ , _asrsAppliedSchemaARN = Nothing
+ , _asrsResponseStatus = pResponseStatus_
+ }
-- | The ARN that is associated with the 'Directory' . For more information, see 'arns' .
asrsDirectoryARN :: Lens' ApplySchemaResponse (Maybe Text)
-asrsDirectoryARN = lens _asrsDirectoryARN (\ s a -> s{_asrsDirectoryARN = a});
+asrsDirectoryARN = lens _asrsDirectoryARN (\ s a -> s{_asrsDirectoryARN = a})
-- | The applied schema ARN that is associated with the copied schema in the 'Directory' . You can use this ARN to describe the schema information applied on this directory. For more information, see 'arns' .
asrsAppliedSchemaARN :: Lens' ApplySchemaResponse (Maybe Text)
-asrsAppliedSchemaARN = lens _asrsAppliedSchemaARN (\ s a -> s{_asrsAppliedSchemaARN = a});
+asrsAppliedSchemaARN = lens _asrsAppliedSchemaARN (\ s a -> s{_asrsAppliedSchemaARN = a})
-- | -- | The response status code.
asrsResponseStatus :: Lens' ApplySchemaResponse Int
-asrsResponseStatus = lens _asrsResponseStatus (\ s a -> s{_asrsResponseStatus = a});
+asrsResponseStatus = lens _asrsResponseStatus (\ s a -> s{_asrsResponseStatus = a})
instance NFData ApplySchemaResponse where
diff --git a/gen/Network/AWS/CloudDirectory/AttachObject.hs b/gen/Network/AWS/CloudDirectory/AttachObject.hs
index e3475da..b881962 100644
--- a/gen/Network/AWS/CloudDirectory/AttachObject.hs
+++ b/gen/Network/AWS/CloudDirectory/AttachObject.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.AttachObject
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -81,28 +81,28 @@ attachObject
-> AttachObject
attachObject pDirectoryARN_ pParentReference_ pChildReference_ pLinkName_ =
AttachObject'
- { _aoDirectoryARN = pDirectoryARN_
- , _aoParentReference = pParentReference_
- , _aoChildReference = pChildReference_
- , _aoLinkName = pLinkName_
- }
+ { _aoDirectoryARN = pDirectoryARN_
+ , _aoParentReference = pParentReference_
+ , _aoChildReference = pChildReference_
+ , _aoLinkName = pLinkName_
+ }
-- | Amazon Resource Name (ARN) that is associated with the 'Directory' where both objects reside. For more information, see 'arns' .
aoDirectoryARN :: Lens' AttachObject Text
-aoDirectoryARN = lens _aoDirectoryARN (\ s a -> s{_aoDirectoryARN = a});
+aoDirectoryARN = lens _aoDirectoryARN (\ s a -> s{_aoDirectoryARN = a})
-- | The parent object reference.
aoParentReference :: Lens' AttachObject ObjectReference
-aoParentReference = lens _aoParentReference (\ s a -> s{_aoParentReference = a});
+aoParentReference = lens _aoParentReference (\ s a -> s{_aoParentReference = a})
-- | The child object reference to be attached to the object.
aoChildReference :: Lens' AttachObject ObjectReference
-aoChildReference = lens _aoChildReference (\ s a -> s{_aoChildReference = a});
+aoChildReference = lens _aoChildReference (\ s a -> s{_aoChildReference = a})
-- | The link name with which the child object is attached to the parent.
aoLinkName :: Lens' AttachObject Text
-aoLinkName = lens _aoLinkName (\ s a -> s{_aoLinkName = a});
+aoLinkName = lens _aoLinkName (\ s a -> s{_aoLinkName = a})
instance AWSRequest AttachObject where
type Rs AttachObject = AttachObjectResponse
@@ -157,17 +157,17 @@ attachObjectResponse
-> AttachObjectResponse
attachObjectResponse pResponseStatus_ =
AttachObjectResponse'
- { _aorsAttachedObjectIdentifier = Nothing
- , _aorsResponseStatus = pResponseStatus_
- }
+ { _aorsAttachedObjectIdentifier = Nothing
+ , _aorsResponseStatus = pResponseStatus_
+ }
-- | The attached @ObjectIdentifier@ , which is the child @ObjectIdentifier@ .
aorsAttachedObjectIdentifier :: Lens' AttachObjectResponse (Maybe Text)
-aorsAttachedObjectIdentifier = lens _aorsAttachedObjectIdentifier (\ s a -> s{_aorsAttachedObjectIdentifier = a});
+aorsAttachedObjectIdentifier = lens _aorsAttachedObjectIdentifier (\ s a -> s{_aorsAttachedObjectIdentifier = a})
-- | -- | The response status code.
aorsResponseStatus :: Lens' AttachObjectResponse Int
-aorsResponseStatus = lens _aorsResponseStatus (\ s a -> s{_aorsResponseStatus = a});
+aorsResponseStatus = lens _aorsResponseStatus (\ s a -> s{_aorsResponseStatus = a})
instance NFData AttachObjectResponse where
diff --git a/gen/Network/AWS/CloudDirectory/AttachPolicy.hs b/gen/Network/AWS/CloudDirectory/AttachPolicy.hs
index 667fc98..7865b08 100644
--- a/gen/Network/AWS/CloudDirectory/AttachPolicy.hs
+++ b/gen/Network/AWS/CloudDirectory/AttachPolicy.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.AttachPolicy
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -47,7 +47,7 @@ import Network.AWS.Response
-- | /See:/ 'attachPolicy' smart constructor.
data AttachPolicy = AttachPolicy'
- { _apDirectoryARN :: !(Maybe Text)
+ { _apDirectoryARN :: !Text
, _apPolicyReference :: !ObjectReference
, _apObjectReference :: !ObjectReference
} deriving (Eq, Read, Show, Data, Typeable, Generic)
@@ -63,28 +63,29 @@ data AttachPolicy = AttachPolicy'
--
-- * 'apObjectReference' - The reference that identifies the object to which the policy will be attached.
attachPolicy
- :: ObjectReference -- ^ 'apPolicyReference'
+ :: Text -- ^ 'apDirectoryARN'
+ -> ObjectReference -- ^ 'apPolicyReference'
-> ObjectReference -- ^ 'apObjectReference'
-> AttachPolicy
-attachPolicy pPolicyReference_ pObjectReference_ =
+attachPolicy pDirectoryARN_ pPolicyReference_ pObjectReference_ =
AttachPolicy'
- { _apDirectoryARN = Nothing
- , _apPolicyReference = pPolicyReference_
- , _apObjectReference = pObjectReference_
- }
+ { _apDirectoryARN = pDirectoryARN_
+ , _apPolicyReference = pPolicyReference_
+ , _apObjectReference = pObjectReference_
+ }
-- | The Amazon Resource Name (ARN) that is associated with the 'Directory' where both objects reside. For more information, see 'arns' .
-apDirectoryARN :: Lens' AttachPolicy (Maybe Text)
-apDirectoryARN = lens _apDirectoryARN (\ s a -> s{_apDirectoryARN = a});
+apDirectoryARN :: Lens' AttachPolicy Text
+apDirectoryARN = lens _apDirectoryARN (\ s a -> s{_apDirectoryARN = a})
-- | The reference that is associated with the policy object.
apPolicyReference :: Lens' AttachPolicy ObjectReference
-apPolicyReference = lens _apPolicyReference (\ s a -> s{_apPolicyReference = a});
+apPolicyReference = lens _apPolicyReference (\ s a -> s{_apPolicyReference = a})
-- | The reference that identifies the object to which the policy will be attached.
apObjectReference :: Lens' AttachPolicy ObjectReference
-apObjectReference = lens _apObjectReference (\ s a -> s{_apObjectReference = a});
+apObjectReference = lens _apObjectReference (\ s a -> s{_apObjectReference = a})
instance AWSRequest AttachPolicy where
type Rs AttachPolicy = AttachPolicyResponse
@@ -137,6 +138,6 @@ attachPolicyResponse pResponseStatus_ =
-- | -- | The response status code.
aprsResponseStatus :: Lens' AttachPolicyResponse Int
-aprsResponseStatus = lens _aprsResponseStatus (\ s a -> s{_aprsResponseStatus = a});
+aprsResponseStatus = lens _aprsResponseStatus (\ s a -> s{_aprsResponseStatus = a})
instance NFData AttachPolicyResponse where
diff --git a/gen/Network/AWS/CloudDirectory/AttachToIndex.hs b/gen/Network/AWS/CloudDirectory/AttachToIndex.hs
index 233f6d7..eca3737 100644
--- a/gen/Network/AWS/CloudDirectory/AttachToIndex.hs
+++ b/gen/Network/AWS/CloudDirectory/AttachToIndex.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.AttachToIndex
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -70,23 +70,23 @@ attachToIndex
-> AttachToIndex
attachToIndex pDirectoryARN_ pIndexReference_ pTargetReference_ =
AttachToIndex'
- { _atiDirectoryARN = pDirectoryARN_
- , _atiIndexReference = pIndexReference_
- , _atiTargetReference = pTargetReference_
- }
+ { _atiDirectoryARN = pDirectoryARN_
+ , _atiIndexReference = pIndexReference_
+ , _atiTargetReference = pTargetReference_
+ }
-- | The Amazon Resource Name (ARN) of the directory where the object and index exist.
atiDirectoryARN :: Lens' AttachToIndex Text
-atiDirectoryARN = lens _atiDirectoryARN (\ s a -> s{_atiDirectoryARN = a});
+atiDirectoryARN = lens _atiDirectoryARN (\ s a -> s{_atiDirectoryARN = a})
-- | A reference to the index that you are attaching the object to.
atiIndexReference :: Lens' AttachToIndex ObjectReference
-atiIndexReference = lens _atiIndexReference (\ s a -> s{_atiIndexReference = a});
+atiIndexReference = lens _atiIndexReference (\ s a -> s{_atiIndexReference = a})
-- | A reference to the object that you are attaching to the index.
atiTargetReference :: Lens' AttachToIndex ObjectReference
-atiTargetReference = lens _atiTargetReference (\ s a -> s{_atiTargetReference = a});
+atiTargetReference = lens _atiTargetReference (\ s a -> s{_atiTargetReference = a})
instance AWSRequest AttachToIndex where
type Rs AttachToIndex = AttachToIndexResponse
@@ -141,17 +141,17 @@ attachToIndexResponse
-> AttachToIndexResponse
attachToIndexResponse pResponseStatus_ =
AttachToIndexResponse'
- { _atirsAttachedObjectIdentifier = Nothing
- , _atirsResponseStatus = pResponseStatus_
- }
+ { _atirsAttachedObjectIdentifier = Nothing
+ , _atirsResponseStatus = pResponseStatus_
+ }
-- | The @ObjectIdentifier@ of the object that was attached to the index.
atirsAttachedObjectIdentifier :: Lens' AttachToIndexResponse (Maybe Text)
-atirsAttachedObjectIdentifier = lens _atirsAttachedObjectIdentifier (\ s a -> s{_atirsAttachedObjectIdentifier = a});
+atirsAttachedObjectIdentifier = lens _atirsAttachedObjectIdentifier (\ s a -> s{_atirsAttachedObjectIdentifier = a})
-- | -- | The response status code.
atirsResponseStatus :: Lens' AttachToIndexResponse Int
-atirsResponseStatus = lens _atirsResponseStatus (\ s a -> s{_atirsResponseStatus = a});
+atirsResponseStatus = lens _atirsResponseStatus (\ s a -> s{_atirsResponseStatus = a})
instance NFData AttachToIndexResponse where
diff --git a/gen/Network/AWS/CloudDirectory/AttachTypedLink.hs b/gen/Network/AWS/CloudDirectory/AttachTypedLink.hs
index 866e81b..56085e8 100644
--- a/gen/Network/AWS/CloudDirectory/AttachTypedLink.hs
+++ b/gen/Network/AWS/CloudDirectory/AttachTypedLink.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.AttachTypedLink
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -79,33 +79,33 @@ attachTypedLink
-> AttachTypedLink
attachTypedLink pDirectoryARN_ pSourceObjectReference_ pTargetObjectReference_ pTypedLinkFacet_ =
AttachTypedLink'
- { _atlDirectoryARN = pDirectoryARN_
- , _atlSourceObjectReference = pSourceObjectReference_
- , _atlTargetObjectReference = pTargetObjectReference_
- , _atlTypedLinkFacet = pTypedLinkFacet_
- , _atlAttributes = mempty
- }
+ { _atlDirectoryARN = pDirectoryARN_
+ , _atlSourceObjectReference = pSourceObjectReference_
+ , _atlTargetObjectReference = pTargetObjectReference_
+ , _atlTypedLinkFacet = pTypedLinkFacet_
+ , _atlAttributes = mempty
+ }
-- | The Amazon Resource Name (ARN) of the directory where you want to attach the typed link.
atlDirectoryARN :: Lens' AttachTypedLink Text
-atlDirectoryARN = lens _atlDirectoryARN (\ s a -> s{_atlDirectoryARN = a});
+atlDirectoryARN = lens _atlDirectoryARN (\ s a -> s{_atlDirectoryARN = a})
-- | Identifies the source object that the typed link will attach to.
atlSourceObjectReference :: Lens' AttachTypedLink ObjectReference
-atlSourceObjectReference = lens _atlSourceObjectReference (\ s a -> s{_atlSourceObjectReference = a});
+atlSourceObjectReference = lens _atlSourceObjectReference (\ s a -> s{_atlSourceObjectReference = a})
-- | Identifies the target object that the typed link will attach to.
atlTargetObjectReference :: Lens' AttachTypedLink ObjectReference
-atlTargetObjectReference = lens _atlTargetObjectReference (\ s a -> s{_atlTargetObjectReference = a});
+atlTargetObjectReference = lens _atlTargetObjectReference (\ s a -> s{_atlTargetObjectReference = a})
-- | Identifies the typed link facet that is associated with the typed link.
atlTypedLinkFacet :: Lens' AttachTypedLink TypedLinkSchemaAndFacetName
-atlTypedLinkFacet = lens _atlTypedLinkFacet (\ s a -> s{_atlTypedLinkFacet = a});
+atlTypedLinkFacet = lens _atlTypedLinkFacet (\ s a -> s{_atlTypedLinkFacet = a})
-- | A set of attributes that are associated with the typed link.
atlAttributes :: Lens' AttachTypedLink [AttributeNameAndValue]
-atlAttributes = lens _atlAttributes (\ s a -> s{_atlAttributes = a}) . _Coerce;
+atlAttributes = lens _atlAttributes (\ s a -> s{_atlAttributes = a}) . _Coerce
instance AWSRequest AttachTypedLink where
type Rs AttachTypedLink = AttachTypedLinkResponse
@@ -165,15 +165,17 @@ attachTypedLinkResponse
-> AttachTypedLinkResponse
attachTypedLinkResponse pResponseStatus_ =
AttachTypedLinkResponse'
- {_atlrsTypedLinkSpecifier = Nothing, _atlrsResponseStatus = pResponseStatus_}
+ { _atlrsTypedLinkSpecifier = Nothing
+ , _atlrsResponseStatus = pResponseStatus_
+ }
-- | Returns a typed link specifier as output.
atlrsTypedLinkSpecifier :: Lens' AttachTypedLinkResponse (Maybe TypedLinkSpecifier)
-atlrsTypedLinkSpecifier = lens _atlrsTypedLinkSpecifier (\ s a -> s{_atlrsTypedLinkSpecifier = a});
+atlrsTypedLinkSpecifier = lens _atlrsTypedLinkSpecifier (\ s a -> s{_atlrsTypedLinkSpecifier = a})
-- | -- | The response status code.
atlrsResponseStatus :: Lens' AttachTypedLinkResponse Int
-atlrsResponseStatus = lens _atlrsResponseStatus (\ s a -> s{_atlrsResponseStatus = a});
+atlrsResponseStatus = lens _atlrsResponseStatus (\ s a -> s{_atlrsResponseStatus = a})
instance NFData AttachTypedLinkResponse where
diff --git a/gen/Network/AWS/CloudDirectory/BatchRead.hs b/gen/Network/AWS/CloudDirectory/BatchRead.hs
index 6fee7c5..f6e6f87 100644
--- a/gen/Network/AWS/CloudDirectory/BatchRead.hs
+++ b/gen/Network/AWS/CloudDirectory/BatchRead.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.BatchRead
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -68,23 +68,23 @@ batchRead
-> BatchRead
batchRead pDirectoryARN_ =
BatchRead'
- { _brConsistencyLevel = Nothing
- , _brDirectoryARN = pDirectoryARN_
- , _brOperations = mempty
- }
+ { _brConsistencyLevel = Nothing
+ , _brDirectoryARN = pDirectoryARN_
+ , _brOperations = mempty
+ }
-- | Represents the manner and timing in which the successful write or update of an object is reflected in a subsequent read operation of that same object.
brConsistencyLevel :: Lens' BatchRead (Maybe ConsistencyLevel)
-brConsistencyLevel = lens _brConsistencyLevel (\ s a -> s{_brConsistencyLevel = a});
+brConsistencyLevel = lens _brConsistencyLevel (\ s a -> s{_brConsistencyLevel = a})
-- | The Amazon Resource Name (ARN) that is associated with the 'Directory' . For more information, see 'arns' .
brDirectoryARN :: Lens' BatchRead Text
-brDirectoryARN = lens _brDirectoryARN (\ s a -> s{_brDirectoryARN = a});
+brDirectoryARN = lens _brDirectoryARN (\ s a -> s{_brDirectoryARN = a})
-- | A list of operations that are part of the batch.
brOperations :: Lens' BatchRead [BatchReadOperation]
-brOperations = lens _brOperations (\ s a -> s{_brOperations = a}) . _Coerce;
+brOperations = lens _brOperations (\ s a -> s{_brOperations = a}) . _Coerce
instance AWSRequest BatchRead where
type Rs BatchRead = BatchReadResponse
@@ -137,15 +137,15 @@ batchReadResponse
-> BatchReadResponse
batchReadResponse pResponseStatus_ =
BatchReadResponse'
- {_brrsResponses = Nothing, _brrsResponseStatus = pResponseStatus_}
+ {_brrsResponses = Nothing, _brrsResponseStatus = pResponseStatus_}
-- | A list of all the responses for each batch read.
brrsResponses :: Lens' BatchReadResponse [BatchReadOperationResponse]
-brrsResponses = lens _brrsResponses (\ s a -> s{_brrsResponses = a}) . _Default . _Coerce;
+brrsResponses = lens _brrsResponses (\ s a -> s{_brrsResponses = a}) . _Default . _Coerce
-- | -- | The response status code.
brrsResponseStatus :: Lens' BatchReadResponse Int
-brrsResponseStatus = lens _brrsResponseStatus (\ s a -> s{_brrsResponseStatus = a});
+brrsResponseStatus = lens _brrsResponseStatus (\ s a -> s{_brrsResponseStatus = a})
instance NFData BatchReadResponse where
diff --git a/gen/Network/AWS/CloudDirectory/BatchWrite.hs b/gen/Network/AWS/CloudDirectory/BatchWrite.hs
index 82ff000..aa9d0b2 100644
--- a/gen/Network/AWS/CloudDirectory/BatchWrite.hs
+++ b/gen/Network/AWS/CloudDirectory/BatchWrite.hs
@@ -12,13 +12,13 @@
-- |
-- Module : Network.AWS.CloudDirectory.BatchWrite
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Performs all the write operations in a batch. Either all the operations succeed or none. Batch writes supports only object-related operations.
+-- Performs all the write operations in a batch. Either all the operations succeed or none.
--
--
module Network.AWS.CloudDirectory.BatchWrite
@@ -68,11 +68,11 @@ batchWrite pDirectoryARN_ =
-- | The Amazon Resource Name (ARN) that is associated with the 'Directory' . For more information, see 'arns' .
bwDirectoryARN :: Lens' BatchWrite Text
-bwDirectoryARN = lens _bwDirectoryARN (\ s a -> s{_bwDirectoryARN = a});
+bwDirectoryARN = lens _bwDirectoryARN (\ s a -> s{_bwDirectoryARN = a})
-- | A list of operations that are part of the batch.
bwOperations :: Lens' BatchWrite [BatchWriteOperation]
-bwOperations = lens _bwOperations (\ s a -> s{_bwOperations = a}) . _Coerce;
+bwOperations = lens _bwOperations (\ s a -> s{_bwOperations = a}) . _Coerce
instance AWSRequest BatchWrite where
type Rs BatchWrite = BatchWriteResponse
@@ -123,15 +123,15 @@ batchWriteResponse
-> BatchWriteResponse
batchWriteResponse pResponseStatus_ =
BatchWriteResponse'
- {_bwrsResponses = Nothing, _bwrsResponseStatus = pResponseStatus_}
+ {_bwrsResponses = Nothing, _bwrsResponseStatus = pResponseStatus_}
-- | A list of all the responses for each batch write.
bwrsResponses :: Lens' BatchWriteResponse [BatchWriteOperationResponse]
-bwrsResponses = lens _bwrsResponses (\ s a -> s{_bwrsResponses = a}) . _Default . _Coerce;
+bwrsResponses = lens _bwrsResponses (\ s a -> s{_bwrsResponses = a}) . _Default . _Coerce
-- | -- | The response status code.
bwrsResponseStatus :: Lens' BatchWriteResponse Int
-bwrsResponseStatus = lens _bwrsResponseStatus (\ s a -> s{_bwrsResponseStatus = a});
+bwrsResponseStatus = lens _bwrsResponseStatus (\ s a -> s{_bwrsResponseStatus = a})
instance NFData BatchWriteResponse where
diff --git a/gen/Network/AWS/CloudDirectory/CreateDirectory.hs b/gen/Network/AWS/CloudDirectory/CreateDirectory.hs
index 8a47f3b..5869040 100644
--- a/gen/Network/AWS/CloudDirectory/CreateDirectory.hs
+++ b/gen/Network/AWS/CloudDirectory/CreateDirectory.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.CreateDirectory
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -72,11 +72,11 @@ createDirectory pName_ pSchemaARN_ =
-- | The name of the 'Directory' . Should be unique per account, per region.
cdName :: Lens' CreateDirectory Text
-cdName = lens _cdName (\ s a -> s{_cdName = a});
+cdName = lens _cdName (\ s a -> s{_cdName = a})
-- | The Amazon Resource Name (ARN) of the published schema that will be copied into the data 'Directory' . For more information, see 'arns' .
cdSchemaARN :: Lens' CreateDirectory Text
-cdSchemaARN = lens _cdSchemaARN (\ s a -> s{_cdSchemaARN = a});
+cdSchemaARN = lens _cdSchemaARN (\ s a -> s{_cdSchemaARN = a})
instance AWSRequest CreateDirectory where
type Rs CreateDirectory = CreateDirectoryResponse
@@ -142,32 +142,32 @@ createDirectoryResponse
-> CreateDirectoryResponse
createDirectoryResponse pResponseStatus_ pDirectoryARN_ pName_ pObjectIdentifier_ pAppliedSchemaARN_ =
CreateDirectoryResponse'
- { _cdrsResponseStatus = pResponseStatus_
- , _cdrsDirectoryARN = pDirectoryARN_
- , _cdrsName = pName_
- , _cdrsObjectIdentifier = pObjectIdentifier_
- , _cdrsAppliedSchemaARN = pAppliedSchemaARN_
- }
+ { _cdrsResponseStatus = pResponseStatus_
+ , _cdrsDirectoryARN = pDirectoryARN_
+ , _cdrsName = pName_
+ , _cdrsObjectIdentifier = pObjectIdentifier_
+ , _cdrsAppliedSchemaARN = pAppliedSchemaARN_
+ }
-- | -- | The response status code.
cdrsResponseStatus :: Lens' CreateDirectoryResponse Int
-cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a});
+cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a})
-- | The ARN that is associated with the 'Directory' . For more information, see 'arns' .
cdrsDirectoryARN :: Lens' CreateDirectoryResponse Text
-cdrsDirectoryARN = lens _cdrsDirectoryARN (\ s a -> s{_cdrsDirectoryARN = a});
+cdrsDirectoryARN = lens _cdrsDirectoryARN (\ s a -> s{_cdrsDirectoryARN = a})
-- | The name of the 'Directory' .
cdrsName :: Lens' CreateDirectoryResponse Text
-cdrsName = lens _cdrsName (\ s a -> s{_cdrsName = a});
+cdrsName = lens _cdrsName (\ s a -> s{_cdrsName = a})
-- | The root object node of the created directory.
cdrsObjectIdentifier :: Lens' CreateDirectoryResponse Text
-cdrsObjectIdentifier = lens _cdrsObjectIdentifier (\ s a -> s{_cdrsObjectIdentifier = a});
+cdrsObjectIdentifier = lens _cdrsObjectIdentifier (\ s a -> s{_cdrsObjectIdentifier = a})
-- | The ARN of the published schema in the 'Directory' . Once a published schema is copied into the directory, it has its own ARN, which is referred to applied schema ARN. For more information, see 'arns' .
cdrsAppliedSchemaARN :: Lens' CreateDirectoryResponse Text
-cdrsAppliedSchemaARN = lens _cdrsAppliedSchemaARN (\ s a -> s{_cdrsAppliedSchemaARN = a});
+cdrsAppliedSchemaARN = lens _cdrsAppliedSchemaARN (\ s a -> s{_cdrsAppliedSchemaARN = a})
instance NFData CreateDirectoryResponse where
diff --git a/gen/Network/AWS/CloudDirectory/CreateFacet.hs b/gen/Network/AWS/CloudDirectory/CreateFacet.hs
index 33e0346..38c3db5 100644
--- a/gen/Network/AWS/CloudDirectory/CreateFacet.hs
+++ b/gen/Network/AWS/CloudDirectory/CreateFacet.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.CreateFacet
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -73,28 +73,28 @@ createFacet
-> CreateFacet
createFacet pSchemaARN_ pName_ pObjectType_ =
CreateFacet'
- { _cfAttributes = Nothing
- , _cfSchemaARN = pSchemaARN_
- , _cfName = pName_
- , _cfObjectType = pObjectType_
- }
+ { _cfAttributes = Nothing
+ , _cfSchemaARN = pSchemaARN_
+ , _cfName = pName_
+ , _cfObjectType = pObjectType_
+ }
-- | The attributes that are associated with the 'Facet' .
cfAttributes :: Lens' CreateFacet [FacetAttribute]
-cfAttributes = lens _cfAttributes (\ s a -> s{_cfAttributes = a}) . _Default . _Coerce;
+cfAttributes = lens _cfAttributes (\ s a -> s{_cfAttributes = a}) . _Default . _Coerce
-- | The schema ARN in which the new 'Facet' will be created. For more information, see 'arns' .
cfSchemaARN :: Lens' CreateFacet Text
-cfSchemaARN = lens _cfSchemaARN (\ s a -> s{_cfSchemaARN = a});
+cfSchemaARN = lens _cfSchemaARN (\ s a -> s{_cfSchemaARN = a})
-- | The name of the 'Facet' , which is unique for a given schema.
cfName :: Lens' CreateFacet Text
-cfName = lens _cfName (\ s a -> s{_cfName = a});
+cfName = lens _cfName (\ s a -> s{_cfName = a})
-- | Specifies whether a given object created from this facet is of type node, leaf node, policy or index. * Node: Can have multiple children but one parent. * Leaf node: Cannot have children but can have multiple parents. * Policy: Allows you to store a policy document and policy type. For more information, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/cd_key_concepts.html#policies Policies> . * Index: Can be created with the Index API.
cfObjectType :: Lens' CreateFacet ObjectType
-cfObjectType = lens _cfObjectType (\ s a -> s{_cfObjectType = a});
+cfObjectType = lens _cfObjectType (\ s a -> s{_cfObjectType = a})
instance AWSRequest CreateFacet where
type Rs CreateFacet = CreateFacetResponse
@@ -148,6 +148,6 @@ createFacetResponse pResponseStatus_ =
-- | -- | The response status code.
cfrsResponseStatus :: Lens' CreateFacetResponse Int
-cfrsResponseStatus = lens _cfrsResponseStatus (\ s a -> s{_cfrsResponseStatus = a});
+cfrsResponseStatus = lens _cfrsResponseStatus (\ s a -> s{_cfrsResponseStatus = a})
instance NFData CreateFacetResponse where
diff --git a/gen/Network/AWS/CloudDirectory/CreateIndex.hs b/gen/Network/AWS/CloudDirectory/CreateIndex.hs
index 2b38e04..7f2d278 100644
--- a/gen/Network/AWS/CloudDirectory/CreateIndex.hs
+++ b/gen/Network/AWS/CloudDirectory/CreateIndex.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.CreateIndex
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -77,33 +77,33 @@ createIndex
-> CreateIndex
createIndex pDirectoryARN_ pIsUnique_ =
CreateIndex'
- { _ciParentReference = Nothing
- , _ciLinkName = Nothing
- , _ciDirectoryARN = pDirectoryARN_
- , _ciOrderedIndexedAttributeList = mempty
- , _ciIsUnique = pIsUnique_
- }
+ { _ciParentReference = Nothing
+ , _ciLinkName = Nothing
+ , _ciDirectoryARN = pDirectoryARN_
+ , _ciOrderedIndexedAttributeList = mempty
+ , _ciIsUnique = pIsUnique_
+ }
-- | A reference to the parent object that contains the index object.
ciParentReference :: Lens' CreateIndex (Maybe ObjectReference)
-ciParentReference = lens _ciParentReference (\ s a -> s{_ciParentReference = a});
+ciParentReference = lens _ciParentReference (\ s a -> s{_ciParentReference = a})
-- | The name of the link between the parent object and the index object.
ciLinkName :: Lens' CreateIndex (Maybe Text)
-ciLinkName = lens _ciLinkName (\ s a -> s{_ciLinkName = a});
+ciLinkName = lens _ciLinkName (\ s a -> s{_ciLinkName = a})
-- | The ARN of the directory where the index should be created.
ciDirectoryARN :: Lens' CreateIndex Text
-ciDirectoryARN = lens _ciDirectoryARN (\ s a -> s{_ciDirectoryARN = a});
+ciDirectoryARN = lens _ciDirectoryARN (\ s a -> s{_ciDirectoryARN = a})
-- | Specifies the attributes that should be indexed on. Currently only a single attribute is supported.
ciOrderedIndexedAttributeList :: Lens' CreateIndex [AttributeKey]
-ciOrderedIndexedAttributeList = lens _ciOrderedIndexedAttributeList (\ s a -> s{_ciOrderedIndexedAttributeList = a}) . _Coerce;
+ciOrderedIndexedAttributeList = lens _ciOrderedIndexedAttributeList (\ s a -> s{_ciOrderedIndexedAttributeList = a}) . _Coerce
-- | Indicates whether the attribute that is being indexed has unique values or not.
ciIsUnique :: Lens' CreateIndex Bool
-ciIsUnique = lens _ciIsUnique (\ s a -> s{_ciIsUnique = a});
+ciIsUnique = lens _ciIsUnique (\ s a -> s{_ciIsUnique = a})
instance AWSRequest CreateIndex where
type Rs CreateIndex = CreateIndexResponse
@@ -159,15 +159,15 @@ createIndexResponse
-> CreateIndexResponse
createIndexResponse pResponseStatus_ =
CreateIndexResponse'
- {_cirsObjectIdentifier = Nothing, _cirsResponseStatus = pResponseStatus_}
+ {_cirsObjectIdentifier = Nothing, _cirsResponseStatus = pResponseStatus_}
-- | The @ObjectIdentifier@ of the index created by this operation.
cirsObjectIdentifier :: Lens' CreateIndexResponse (Maybe Text)
-cirsObjectIdentifier = lens _cirsObjectIdentifier (\ s a -> s{_cirsObjectIdentifier = a});
+cirsObjectIdentifier = lens _cirsObjectIdentifier (\ s a -> s{_cirsObjectIdentifier = a})
-- | -- | The response status code.
cirsResponseStatus :: Lens' CreateIndexResponse Int
-cirsResponseStatus = lens _cirsResponseStatus (\ s a -> s{_cirsResponseStatus = a});
+cirsResponseStatus = lens _cirsResponseStatus (\ s a -> s{_cirsResponseStatus = a})
instance NFData CreateIndexResponse where
diff --git a/gen/Network/AWS/CloudDirectory/CreateObject.hs b/gen/Network/AWS/CloudDirectory/CreateObject.hs
index 9bdb8eb..49b960a 100644
--- a/gen/Network/AWS/CloudDirectory/CreateObject.hs
+++ b/gen/Network/AWS/CloudDirectory/CreateObject.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.CreateObject
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -70,39 +70,39 @@ data CreateObject = CreateObject'
--
-- * 'coDirectoryARN' - The Amazon Resource Name (ARN) that is associated with the 'Directory' in which the object will be created. For more information, see 'arns' .
--
--- * 'coSchemaFacets' - A list of schema facets to be associated with the object that contains @SchemaArn@ and facet name. For more information, see 'arns' .
+-- * 'coSchemaFacets' - A list of schema facets to be associated with the object. Do not provide minor version components. See 'SchemaFacet' for details.
createObject
:: Text -- ^ 'coDirectoryARN'
-> CreateObject
createObject pDirectoryARN_ =
CreateObject'
- { _coParentReference = Nothing
- , _coObjectAttributeList = Nothing
- , _coLinkName = Nothing
- , _coDirectoryARN = pDirectoryARN_
- , _coSchemaFacets = mempty
- }
+ { _coParentReference = Nothing
+ , _coObjectAttributeList = Nothing
+ , _coLinkName = Nothing
+ , _coDirectoryARN = pDirectoryARN_
+ , _coSchemaFacets = mempty
+ }
-- | If specified, the parent reference to which this object will be attached.
coParentReference :: Lens' CreateObject (Maybe ObjectReference)
-coParentReference = lens _coParentReference (\ s a -> s{_coParentReference = a});
+coParentReference = lens _coParentReference (\ s a -> s{_coParentReference = a})
-- | The attribute map whose attribute ARN contains the key and attribute value as the map value.
coObjectAttributeList :: Lens' CreateObject [AttributeKeyAndValue]
-coObjectAttributeList = lens _coObjectAttributeList (\ s a -> s{_coObjectAttributeList = a}) . _Default . _Coerce;
+coObjectAttributeList = lens _coObjectAttributeList (\ s a -> s{_coObjectAttributeList = a}) . _Default . _Coerce
-- | The name of link that is used to attach this object to a parent.
coLinkName :: Lens' CreateObject (Maybe Text)
-coLinkName = lens _coLinkName (\ s a -> s{_coLinkName = a});
+coLinkName = lens _coLinkName (\ s a -> s{_coLinkName = a})
-- | The Amazon Resource Name (ARN) that is associated with the 'Directory' in which the object will be created. For more information, see 'arns' .
coDirectoryARN :: Lens' CreateObject Text
-coDirectoryARN = lens _coDirectoryARN (\ s a -> s{_coDirectoryARN = a});
+coDirectoryARN = lens _coDirectoryARN (\ s a -> s{_coDirectoryARN = a})
--- | A list of schema facets to be associated with the object that contains @SchemaArn@ and facet name. For more information, see 'arns' .
+-- | A list of schema facets to be associated with the object. Do not provide minor version components. See 'SchemaFacet' for details.
coSchemaFacets :: Lens' CreateObject [SchemaFacet]
-coSchemaFacets = lens _coSchemaFacets (\ s a -> s{_coSchemaFacets = a}) . _Coerce;
+coSchemaFacets = lens _coSchemaFacets (\ s a -> s{_coSchemaFacets = a}) . _Coerce
instance AWSRequest CreateObject where
type Rs CreateObject = CreateObjectResponse
@@ -157,15 +157,15 @@ createObjectResponse
-> CreateObjectResponse
createObjectResponse pResponseStatus_ =
CreateObjectResponse'
- {_corsObjectIdentifier = Nothing, _corsResponseStatus = pResponseStatus_}
+ {_corsObjectIdentifier = Nothing, _corsResponseStatus = pResponseStatus_}
-- | The identifier that is associated with the object.
corsObjectIdentifier :: Lens' CreateObjectResponse (Maybe Text)
-corsObjectIdentifier = lens _corsObjectIdentifier (\ s a -> s{_corsObjectIdentifier = a});
+corsObjectIdentifier = lens _corsObjectIdentifier (\ s a -> s{_corsObjectIdentifier = a})
-- | -- | The response status code.
corsResponseStatus :: Lens' CreateObjectResponse Int
-corsResponseStatus = lens _corsResponseStatus (\ s a -> s{_corsResponseStatus = a});
+corsResponseStatus = lens _corsResponseStatus (\ s a -> s{_corsResponseStatus = a})
instance NFData CreateObjectResponse where
diff --git a/gen/Network/AWS/CloudDirectory/CreateSchema.hs b/gen/Network/AWS/CloudDirectory/CreateSchema.hs
index c7feaa0..e0322c2 100644
--- a/gen/Network/AWS/CloudDirectory/CreateSchema.hs
+++ b/gen/Network/AWS/CloudDirectory/CreateSchema.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.CreateSchema
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -71,7 +71,7 @@ createSchema pName_ = CreateSchema' {_csName = pName_}
-- | The name that is associated with the schema. This is unique to each account and in each region.
csName :: Lens' CreateSchema Text
-csName = lens _csName (\ s a -> s{_csName = a});
+csName = lens _csName (\ s a -> s{_csName = a})
instance AWSRequest CreateSchema where
type Rs CreateSchema = CreateSchemaResponse
@@ -120,15 +120,15 @@ createSchemaResponse
-> CreateSchemaResponse
createSchemaResponse pResponseStatus_ =
CreateSchemaResponse'
- {_csrsSchemaARN = Nothing, _csrsResponseStatus = pResponseStatus_}
+ {_csrsSchemaARN = Nothing, _csrsResponseStatus = pResponseStatus_}
-- | The Amazon Resource Name (ARN) that is associated with the schema. For more information, see 'arns' .
csrsSchemaARN :: Lens' CreateSchemaResponse (Maybe Text)
-csrsSchemaARN = lens _csrsSchemaARN (\ s a -> s{_csrsSchemaARN = a});
+csrsSchemaARN = lens _csrsSchemaARN (\ s a -> s{_csrsSchemaARN = a})
-- | -- | The response status code.
csrsResponseStatus :: Lens' CreateSchemaResponse Int
-csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a});
+csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a})
instance NFData CreateSchemaResponse where
diff --git a/gen/Network/AWS/CloudDirectory/CreateTypedLinkFacet.hs b/gen/Network/AWS/CloudDirectory/CreateTypedLinkFacet.hs
index 10f6f87..8e10a40 100644
--- a/gen/Network/AWS/CloudDirectory/CreateTypedLinkFacet.hs
+++ b/gen/Network/AWS/CloudDirectory/CreateTypedLinkFacet.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.CreateTypedLinkFacet
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -68,11 +68,11 @@ createTypedLinkFacet pSchemaARN_ pFacet_ =
-- | The Amazon Resource Name (ARN) that is associated with the schema. For more information, see 'arns' .
ctlfSchemaARN :: Lens' CreateTypedLinkFacet Text
-ctlfSchemaARN = lens _ctlfSchemaARN (\ s a -> s{_ctlfSchemaARN = a});
+ctlfSchemaARN = lens _ctlfSchemaARN (\ s a -> s{_ctlfSchemaARN = a})
-- | 'Facet' structure that is associated with the typed link facet.
ctlfFacet :: Lens' CreateTypedLinkFacet TypedLinkFacet
-ctlfFacet = lens _ctlfFacet (\ s a -> s{_ctlfFacet = a});
+ctlfFacet = lens _ctlfFacet (\ s a -> s{_ctlfFacet = a})
instance AWSRequest CreateTypedLinkFacet where
type Rs CreateTypedLinkFacet =
@@ -124,6 +124,6 @@ createTypedLinkFacetResponse pResponseStatus_ =
-- | -- | The response status code.
ctlfrsResponseStatus :: Lens' CreateTypedLinkFacetResponse Int
-ctlfrsResponseStatus = lens _ctlfrsResponseStatus (\ s a -> s{_ctlfrsResponseStatus = a});
+ctlfrsResponseStatus = lens _ctlfrsResponseStatus (\ s a -> s{_ctlfrsResponseStatus = a})
instance NFData CreateTypedLinkFacetResponse where
diff --git a/gen/Network/AWS/CloudDirectory/DeleteDirectory.hs b/gen/Network/AWS/CloudDirectory/DeleteDirectory.hs
index 3d6f884..dd0d6c2 100644
--- a/gen/Network/AWS/CloudDirectory/DeleteDirectory.hs
+++ b/gen/Network/AWS/CloudDirectory/DeleteDirectory.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.DeleteDirectory
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -64,7 +64,7 @@ deleteDirectory pDirectoryARN_ =
-- | The ARN of the directory to delete.
delDirectoryARN :: Lens' DeleteDirectory Text
-delDirectoryARN = lens _delDirectoryARN (\ s a -> s{_delDirectoryARN = a});
+delDirectoryARN = lens _delDirectoryARN (\ s a -> s{_delDirectoryARN = a})
instance AWSRequest DeleteDirectory where
type Rs DeleteDirectory = DeleteDirectoryResponse
@@ -114,15 +114,15 @@ deleteDirectoryResponse
-> DeleteDirectoryResponse
deleteDirectoryResponse pResponseStatus_ pDirectoryARN_ =
DeleteDirectoryResponse'
- {_ddrsResponseStatus = pResponseStatus_, _ddrsDirectoryARN = pDirectoryARN_}
+ {_ddrsResponseStatus = pResponseStatus_, _ddrsDirectoryARN = pDirectoryARN_}
-- | -- | The response status code.
ddrsResponseStatus :: Lens' DeleteDirectoryResponse Int
-ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a});
+ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a})
-- | The ARN of the deleted directory.
ddrsDirectoryARN :: Lens' DeleteDirectoryResponse Text
-ddrsDirectoryARN = lens _ddrsDirectoryARN (\ s a -> s{_ddrsDirectoryARN = a});
+ddrsDirectoryARN = lens _ddrsDirectoryARN (\ s a -> s{_ddrsDirectoryARN = a})
instance NFData DeleteDirectoryResponse where
diff --git a/gen/Network/AWS/CloudDirectory/DeleteFacet.hs b/gen/Network/AWS/CloudDirectory/DeleteFacet.hs
index dbcbc62..50710e2 100644
--- a/gen/Network/AWS/CloudDirectory/DeleteFacet.hs
+++ b/gen/Network/AWS/CloudDirectory/DeleteFacet.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.DeleteFacet
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -68,11 +68,11 @@ deleteFacet pSchemaARN_ pName_ =
-- | The Amazon Resource Name (ARN) that is associated with the 'Facet' . For more information, see 'arns' .
dfSchemaARN :: Lens' DeleteFacet Text
-dfSchemaARN = lens _dfSchemaARN (\ s a -> s{_dfSchemaARN = a});
+dfSchemaARN = lens _dfSchemaARN (\ s a -> s{_dfSchemaARN = a})
-- | The name of the facet to delete.
dfName :: Lens' DeleteFacet Text
-dfName = lens _dfName (\ s a -> s{_dfName = a});
+dfName = lens _dfName (\ s a -> s{_dfName = a})
instance AWSRequest DeleteFacet where
type Rs DeleteFacet = DeleteFacetResponse
@@ -122,6 +122,6 @@ deleteFacetResponse pResponseStatus_ =
-- | -- | The response status code.
dfrsResponseStatus :: Lens' DeleteFacetResponse Int
-dfrsResponseStatus = lens _dfrsResponseStatus (\ s a -> s{_dfrsResponseStatus = a});
+dfrsResponseStatus = lens _dfrsResponseStatus (\ s a -> s{_dfrsResponseStatus = a})
instance NFData DeleteFacetResponse where
diff --git a/gen/Network/AWS/CloudDirectory/DeleteObject.hs b/gen/Network/AWS/CloudDirectory/DeleteObject.hs
index d3bafbe..30fa1c4 100644
--- a/gen/Network/AWS/CloudDirectory/DeleteObject.hs
+++ b/gen/Network/AWS/CloudDirectory/DeleteObject.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.DeleteObject
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -64,16 +64,16 @@ deleteObject
-> DeleteObject
deleteObject pDirectoryARN_ pObjectReference_ =
DeleteObject'
- {_doDirectoryARN = pDirectoryARN_, _doObjectReference = pObjectReference_}
+ {_doDirectoryARN = pDirectoryARN_, _doObjectReference = pObjectReference_}
-- | The Amazon Resource Name (ARN) that is associated with the 'Directory' where the object resides. For more information, see 'arns' .
doDirectoryARN :: Lens' DeleteObject Text
-doDirectoryARN = lens _doDirectoryARN (\ s a -> s{_doDirectoryARN = a});
+doDirectoryARN = lens _doDirectoryARN (\ s a -> s{_doDirectoryARN = a})
-- | A reference that identifies the object.
doObjectReference :: Lens' DeleteObject ObjectReference
-doObjectReference = lens _doObjectReference (\ s a -> s{_doObjectReference = a});
+doObjectReference = lens _doObjectReference (\ s a -> s{_doObjectReference = a})
instance AWSRequest DeleteObject where
type Rs DeleteObject = DeleteObjectResponse
@@ -125,6 +125,6 @@ deleteObjectResponse pResponseStatus_ =
-- | -- | The response status code.
dorsResponseStatus :: Lens' DeleteObjectResponse Int
-dorsResponseStatus = lens _dorsResponseStatus (\ s a -> s{_dorsResponseStatus = a});
+dorsResponseStatus = lens _dorsResponseStatus (\ s a -> s{_dorsResponseStatus = a})
instance NFData DeleteObjectResponse where
diff --git a/gen/Network/AWS/CloudDirectory/DeleteSchema.hs b/gen/Network/AWS/CloudDirectory/DeleteSchema.hs
index af19c90..1e0ac12 100644
--- a/gen/Network/AWS/CloudDirectory/DeleteSchema.hs
+++ b/gen/Network/AWS/CloudDirectory/DeleteSchema.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.DeleteSchema
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -63,7 +63,7 @@ deleteSchema pSchemaARN_ = DeleteSchema' {_dsSchemaARN = pSchemaARN_}
-- | The Amazon Resource Name (ARN) of the development schema. For more information, see 'arns' .
dsSchemaARN :: Lens' DeleteSchema Text
-dsSchemaARN = lens _dsSchemaARN (\ s a -> s{_dsSchemaARN = a});
+dsSchemaARN = lens _dsSchemaARN (\ s a -> s{_dsSchemaARN = a})
instance AWSRequest DeleteSchema where
type Rs DeleteSchema = DeleteSchemaResponse
@@ -111,15 +111,15 @@ deleteSchemaResponse
-> DeleteSchemaResponse
deleteSchemaResponse pResponseStatus_ =
DeleteSchemaResponse'
- {_dsrsSchemaARN = Nothing, _dsrsResponseStatus = pResponseStatus_}
+ {_dsrsSchemaARN = Nothing, _dsrsResponseStatus = pResponseStatus_}
-- | The input ARN that is returned as part of the response. For more information, see 'arns' .
dsrsSchemaARN :: Lens' DeleteSchemaResponse (Maybe Text)
-dsrsSchemaARN = lens _dsrsSchemaARN (\ s a -> s{_dsrsSchemaARN = a});
+dsrsSchemaARN = lens _dsrsSchemaARN (\ s a -> s{_dsrsSchemaARN = a})
-- | -- | The response status code.
dsrsResponseStatus :: Lens' DeleteSchemaResponse Int
-dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a});
+dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a})
instance NFData DeleteSchemaResponse where
diff --git a/gen/Network/AWS/CloudDirectory/DeleteTypedLinkFacet.hs b/gen/Network/AWS/CloudDirectory/DeleteTypedLinkFacet.hs
index 3ae9ef7..871c9a7 100644
--- a/gen/Network/AWS/CloudDirectory/DeleteTypedLinkFacet.hs
+++ b/gen/Network/AWS/CloudDirectory/DeleteTypedLinkFacet.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.DeleteTypedLinkFacet
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -68,11 +68,11 @@ deleteTypedLinkFacet pSchemaARN_ pName_ =
-- | The Amazon Resource Name (ARN) that is associated with the schema. For more information, see 'arns' .
dtlfSchemaARN :: Lens' DeleteTypedLinkFacet Text
-dtlfSchemaARN = lens _dtlfSchemaARN (\ s a -> s{_dtlfSchemaARN = a});
+dtlfSchemaARN = lens _dtlfSchemaARN (\ s a -> s{_dtlfSchemaARN = a})
-- | The unique name of the typed link facet.
dtlfName :: Lens' DeleteTypedLinkFacet Text
-dtlfName = lens _dtlfName (\ s a -> s{_dtlfName = a});
+dtlfName = lens _dtlfName (\ s a -> s{_dtlfName = a})
instance AWSRequest DeleteTypedLinkFacet where
type Rs DeleteTypedLinkFacet =
@@ -124,6 +124,6 @@ deleteTypedLinkFacetResponse pResponseStatus_ =
-- | -- | The response status code.
dtlfrsResponseStatus :: Lens' DeleteTypedLinkFacetResponse Int
-dtlfrsResponseStatus = lens _dtlfrsResponseStatus (\ s a -> s{_dtlfrsResponseStatus = a});
+dtlfrsResponseStatus = lens _dtlfrsResponseStatus (\ s a -> s{_dtlfrsResponseStatus = a})
instance NFData DeleteTypedLinkFacetResponse where
diff --git a/gen/Network/AWS/CloudDirectory/DetachFromIndex.hs b/gen/Network/AWS/CloudDirectory/DetachFromIndex.hs
index f273839..bec616d 100644
--- a/gen/Network/AWS/CloudDirectory/DetachFromIndex.hs
+++ b/gen/Network/AWS/CloudDirectory/DetachFromIndex.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.DetachFromIndex
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -70,23 +70,23 @@ detachFromIndex
-> DetachFromIndex
detachFromIndex pDirectoryARN_ pIndexReference_ pTargetReference_ =
DetachFromIndex'
- { _dfiDirectoryARN = pDirectoryARN_
- , _dfiIndexReference = pIndexReference_
- , _dfiTargetReference = pTargetReference_
- }
+ { _dfiDirectoryARN = pDirectoryARN_
+ , _dfiIndexReference = pIndexReference_
+ , _dfiTargetReference = pTargetReference_
+ }
-- | The Amazon Resource Name (ARN) of the directory the index and object exist in.
dfiDirectoryARN :: Lens' DetachFromIndex Text
-dfiDirectoryARN = lens _dfiDirectoryARN (\ s a -> s{_dfiDirectoryARN = a});
+dfiDirectoryARN = lens _dfiDirectoryARN (\ s a -> s{_dfiDirectoryARN = a})
-- | A reference to the index object.
dfiIndexReference :: Lens' DetachFromIndex ObjectReference
-dfiIndexReference = lens _dfiIndexReference (\ s a -> s{_dfiIndexReference = a});
+dfiIndexReference = lens _dfiIndexReference (\ s a -> s{_dfiIndexReference = a})
-- | A reference to the object being detached from the index.
dfiTargetReference :: Lens' DetachFromIndex ObjectReference
-dfiTargetReference = lens _dfiTargetReference (\ s a -> s{_dfiTargetReference = a});
+dfiTargetReference = lens _dfiTargetReference (\ s a -> s{_dfiTargetReference = a})
instance AWSRequest DetachFromIndex where
type Rs DetachFromIndex = DetachFromIndexResponse
@@ -141,17 +141,17 @@ detachFromIndexResponse
-> DetachFromIndexResponse
detachFromIndexResponse pResponseStatus_ =
DetachFromIndexResponse'
- { _dfirsDetachedObjectIdentifier = Nothing
- , _dfirsResponseStatus = pResponseStatus_
- }
+ { _dfirsDetachedObjectIdentifier = Nothing
+ , _dfirsResponseStatus = pResponseStatus_
+ }
-- | The @ObjectIdentifier@ of the object that was detached from the index.
dfirsDetachedObjectIdentifier :: Lens' DetachFromIndexResponse (Maybe Text)
-dfirsDetachedObjectIdentifier = lens _dfirsDetachedObjectIdentifier (\ s a -> s{_dfirsDetachedObjectIdentifier = a});
+dfirsDetachedObjectIdentifier = lens _dfirsDetachedObjectIdentifier (\ s a -> s{_dfirsDetachedObjectIdentifier = a})
-- | -- | The response status code.
dfirsResponseStatus :: Lens' DetachFromIndexResponse Int
-dfirsResponseStatus = lens _dfirsResponseStatus (\ s a -> s{_dfirsResponseStatus = a});
+dfirsResponseStatus = lens _dfirsResponseStatus (\ s a -> s{_dfirsResponseStatus = a})
instance NFData DetachFromIndexResponse where
diff --git a/gen/Network/AWS/CloudDirectory/DetachObject.hs b/gen/Network/AWS/CloudDirectory/DetachObject.hs
index 4ed144e..38596c8 100644
--- a/gen/Network/AWS/CloudDirectory/DetachObject.hs
+++ b/gen/Network/AWS/CloudDirectory/DetachObject.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.DetachObject
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -70,23 +70,23 @@ detachObject
-> DetachObject
detachObject pDirectoryARN_ pParentReference_ pLinkName_ =
DetachObject'
- { _detDirectoryARN = pDirectoryARN_
- , _detParentReference = pParentReference_
- , _detLinkName = pLinkName_
- }
+ { _detDirectoryARN = pDirectoryARN_
+ , _detParentReference = pParentReference_
+ , _detLinkName = pLinkName_
+ }
-- | The Amazon Resource Name (ARN) that is associated with the 'Directory' where objects reside. For more information, see 'arns' .
detDirectoryARN :: Lens' DetachObject Text
-detDirectoryARN = lens _detDirectoryARN (\ s a -> s{_detDirectoryARN = a});
+detDirectoryARN = lens _detDirectoryARN (\ s a -> s{_detDirectoryARN = a})
-- | The parent reference from which the object with the specified link name is detached.
detParentReference :: Lens' DetachObject ObjectReference
-detParentReference = lens _detParentReference (\ s a -> s{_detParentReference = a});
+detParentReference = lens _detParentReference (\ s a -> s{_detParentReference = a})
-- | The link name associated with the object that needs to be detached.
detLinkName :: Lens' DetachObject Text
-detLinkName = lens _detLinkName (\ s a -> s{_detLinkName = a});
+detLinkName = lens _detLinkName (\ s a -> s{_detLinkName = a})
instance AWSRequest DetachObject where
type Rs DetachObject = DetachObjectResponse
@@ -141,17 +141,17 @@ detachObjectResponse
-> DetachObjectResponse
detachObjectResponse pResponseStatus_ =
DetachObjectResponse'
- { _detrsDetachedObjectIdentifier = Nothing
- , _detrsResponseStatus = pResponseStatus_
- }
+ { _detrsDetachedObjectIdentifier = Nothing
+ , _detrsResponseStatus = pResponseStatus_
+ }
-- | The @ObjectIdentifier@ that was detached from the object.
detrsDetachedObjectIdentifier :: Lens' DetachObjectResponse (Maybe Text)
-detrsDetachedObjectIdentifier = lens _detrsDetachedObjectIdentifier (\ s a -> s{_detrsDetachedObjectIdentifier = a});
+detrsDetachedObjectIdentifier = lens _detrsDetachedObjectIdentifier (\ s a -> s{_detrsDetachedObjectIdentifier = a})
-- | -- | The response status code.
detrsResponseStatus :: Lens' DetachObjectResponse Int
-detrsResponseStatus = lens _detrsResponseStatus (\ s a -> s{_detrsResponseStatus = a});
+detrsResponseStatus = lens _detrsResponseStatus (\ s a -> s{_detrsResponseStatus = a})
instance NFData DetachObjectResponse where
diff --git a/gen/Network/AWS/CloudDirectory/DetachPolicy.hs b/gen/Network/AWS/CloudDirectory/DetachPolicy.hs
index 1d5f86b..99dddf1 100644
--- a/gen/Network/AWS/CloudDirectory/DetachPolicy.hs
+++ b/gen/Network/AWS/CloudDirectory/DetachPolicy.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.DetachPolicy
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -69,23 +69,23 @@ detachPolicy
-> DetachPolicy
detachPolicy pDirectoryARN_ pPolicyReference_ pObjectReference_ =
DetachPolicy'
- { _dpDirectoryARN = pDirectoryARN_
- , _dpPolicyReference = pPolicyReference_
- , _dpObjectReference = pObjectReference_
- }
+ { _dpDirectoryARN = pDirectoryARN_
+ , _dpPolicyReference = pPolicyReference_
+ , _dpObjectReference = pObjectReference_
+ }
-- | The Amazon Resource Name (ARN) that is associated with the 'Directory' where both objects reside. For more information, see 'arns' .
dpDirectoryARN :: Lens' DetachPolicy Text
-dpDirectoryARN = lens _dpDirectoryARN (\ s a -> s{_dpDirectoryARN = a});
+dpDirectoryARN = lens _dpDirectoryARN (\ s a -> s{_dpDirectoryARN = a})
-- | Reference that identifies the policy object.
dpPolicyReference :: Lens' DetachPolicy ObjectReference
-dpPolicyReference = lens _dpPolicyReference (\ s a -> s{_dpPolicyReference = a});
+dpPolicyReference = lens _dpPolicyReference (\ s a -> s{_dpPolicyReference = a})
-- | Reference that identifies the object whose policy object will be detached.
dpObjectReference :: Lens' DetachPolicy ObjectReference
-dpObjectReference = lens _dpObjectReference (\ s a -> s{_dpObjectReference = a});
+dpObjectReference = lens _dpObjectReference (\ s a -> s{_dpObjectReference = a})
instance AWSRequest DetachPolicy where
type Rs DetachPolicy = DetachPolicyResponse
@@ -138,6 +138,6 @@ detachPolicyResponse pResponseStatus_ =
-- | -- | The response status code.
dprsResponseStatus :: Lens' DetachPolicyResponse Int
-dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a});
+dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a})
instance NFData DetachPolicyResponse where
diff --git a/gen/Network/AWS/CloudDirectory/DetachTypedLink.hs b/gen/Network/AWS/CloudDirectory/DetachTypedLink.hs
index 4f3474a..8ea7dbf 100644
--- a/gen/Network/AWS/CloudDirectory/DetachTypedLink.hs
+++ b/gen/Network/AWS/CloudDirectory/DetachTypedLink.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.DetachTypedLink
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -62,18 +62,18 @@ detachTypedLink
-> DetachTypedLink
detachTypedLink pDirectoryARN_ pTypedLinkSpecifier_ =
DetachTypedLink'
- { _dtlDirectoryARN = pDirectoryARN_
- , _dtlTypedLinkSpecifier = pTypedLinkSpecifier_
- }
+ { _dtlDirectoryARN = pDirectoryARN_
+ , _dtlTypedLinkSpecifier = pTypedLinkSpecifier_
+ }
-- | The Amazon Resource Name (ARN) of the directory where you want to detach the typed link.
dtlDirectoryARN :: Lens' DetachTypedLink Text
-dtlDirectoryARN = lens _dtlDirectoryARN (\ s a -> s{_dtlDirectoryARN = a});
+dtlDirectoryARN = lens _dtlDirectoryARN (\ s a -> s{_dtlDirectoryARN = a})
-- | Used to accept a typed link specifier as input.
dtlTypedLinkSpecifier :: Lens' DetachTypedLink TypedLinkSpecifier
-dtlTypedLinkSpecifier = lens _dtlTypedLinkSpecifier (\ s a -> s{_dtlTypedLinkSpecifier = a});
+dtlTypedLinkSpecifier = lens _dtlTypedLinkSpecifier (\ s a -> s{_dtlTypedLinkSpecifier = a})
instance AWSRequest DetachTypedLink where
type Rs DetachTypedLink = DetachTypedLinkResponse
diff --git a/gen/Network/AWS/CloudDirectory/DisableDirectory.hs b/gen/Network/AWS/CloudDirectory/DisableDirectory.hs
index 3dafe0e..4fed2ff 100644
--- a/gen/Network/AWS/CloudDirectory/DisableDirectory.hs
+++ b/gen/Network/AWS/CloudDirectory/DisableDirectory.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.DisableDirectory
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -64,7 +64,7 @@ disableDirectory pDirectoryARN_ =
-- | The ARN of the directory to disable.
ddDirectoryARN :: Lens' DisableDirectory Text
-ddDirectoryARN = lens _ddDirectoryARN (\ s a -> s{_ddDirectoryARN = a});
+ddDirectoryARN = lens _ddDirectoryARN (\ s a -> s{_ddDirectoryARN = a})
instance AWSRequest DisableDirectory where
type Rs DisableDirectory = DisableDirectoryResponse
@@ -114,15 +114,15 @@ disableDirectoryResponse
-> DisableDirectoryResponse
disableDirectoryResponse pResponseStatus_ pDirectoryARN_ =
DisableDirectoryResponse'
- {_drsResponseStatus = pResponseStatus_, _drsDirectoryARN = pDirectoryARN_}
+ {_drsResponseStatus = pResponseStatus_, _drsDirectoryARN = pDirectoryARN_}
-- | -- | The response status code.
drsResponseStatus :: Lens' DisableDirectoryResponse Int
-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});
+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})
-- | The ARN of the directory that has been disabled.
drsDirectoryARN :: Lens' DisableDirectoryResponse Text
-drsDirectoryARN = lens _drsDirectoryARN (\ s a -> s{_drsDirectoryARN = a});
+drsDirectoryARN = lens _drsDirectoryARN (\ s a -> s{_drsDirectoryARN = a})
instance NFData DisableDirectoryResponse where
diff --git a/gen/Network/AWS/CloudDirectory/EnableDirectory.hs b/gen/Network/AWS/CloudDirectory/EnableDirectory.hs
index 3c4b718..9cbb8ff 100644
--- a/gen/Network/AWS/CloudDirectory/EnableDirectory.hs
+++ b/gen/Network/AWS/CloudDirectory/EnableDirectory.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.EnableDirectory
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -64,7 +64,7 @@ enableDirectory pDirectoryARN_ =
-- | The ARN of the directory to enable.
edDirectoryARN :: Lens' EnableDirectory Text
-edDirectoryARN = lens _edDirectoryARN (\ s a -> s{_edDirectoryARN = a});
+edDirectoryARN = lens _edDirectoryARN (\ s a -> s{_edDirectoryARN = a})
instance AWSRequest EnableDirectory where
type Rs EnableDirectory = EnableDirectoryResponse
@@ -114,15 +114,15 @@ enableDirectoryResponse
-> EnableDirectoryResponse
enableDirectoryResponse pResponseStatus_ pDirectoryARN_ =
EnableDirectoryResponse'
- {_edrsResponseStatus = pResponseStatus_, _edrsDirectoryARN = pDirectoryARN_}
+ {_edrsResponseStatus = pResponseStatus_, _edrsDirectoryARN = pDirectoryARN_}
-- | -- | The response status code.
edrsResponseStatus :: Lens' EnableDirectoryResponse Int
-edrsResponseStatus = lens _edrsResponseStatus (\ s a -> s{_edrsResponseStatus = a});
+edrsResponseStatus = lens _edrsResponseStatus (\ s a -> s{_edrsResponseStatus = a})
-- | The ARN of the enabled directory.
edrsDirectoryARN :: Lens' EnableDirectoryResponse Text
-edrsDirectoryARN = lens _edrsDirectoryARN (\ s a -> s{_edrsDirectoryARN = a});
+edrsDirectoryARN = lens _edrsDirectoryARN (\ s a -> s{_edrsDirectoryARN = a})
instance NFData EnableDirectoryResponse where
diff --git a/gen/Network/AWS/CloudDirectory/GetAppliedSchemaVersion.hs b/gen/Network/AWS/CloudDirectory/GetAppliedSchemaVersion.hs
new file mode 100644
index 0000000..3b07041
--- /dev/null
+++ b/gen/Network/AWS/CloudDirectory/GetAppliedSchemaVersion.hs
@@ -0,0 +1,131 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module : Network.AWS.CloudDirectory.GetAppliedSchemaVersion
+-- Copyright : (c) 2013-2018 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Returns current applied schema version ARN, including the minor version in use.
+--
+--
+module Network.AWS.CloudDirectory.GetAppliedSchemaVersion
+ (
+ -- * Creating a Request
+ getAppliedSchemaVersion
+ , GetAppliedSchemaVersion
+ -- * Request Lenses
+ , gasvSchemaARN
+
+ -- * Destructuring the Response
+ , getAppliedSchemaVersionResponse
+ , GetAppliedSchemaVersionResponse
+ -- * Response Lenses
+ , gasvrsAppliedSchemaARN
+ , gasvrsResponseStatus
+ ) where
+
+import Network.AWS.CloudDirectory.Types
+import Network.AWS.CloudDirectory.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
+
+-- | /See:/ 'getAppliedSchemaVersion' smart constructor.
+newtype GetAppliedSchemaVersion = GetAppliedSchemaVersion'
+ { _gasvSchemaARN :: Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'GetAppliedSchemaVersion' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'gasvSchemaARN' - The ARN of the applied schema.
+getAppliedSchemaVersion
+ :: Text -- ^ 'gasvSchemaARN'
+ -> GetAppliedSchemaVersion
+getAppliedSchemaVersion pSchemaARN_ =
+ GetAppliedSchemaVersion' {_gasvSchemaARN = pSchemaARN_}
+
+
+-- | The ARN of the applied schema.
+gasvSchemaARN :: Lens' GetAppliedSchemaVersion Text
+gasvSchemaARN = lens _gasvSchemaARN (\ s a -> s{_gasvSchemaARN = a})
+
+instance AWSRequest GetAppliedSchemaVersion where
+ type Rs GetAppliedSchemaVersion =
+ GetAppliedSchemaVersionResponse
+ request = postJSON cloudDirectory
+ response
+ = receiveJSON
+ (\ s h x ->
+ GetAppliedSchemaVersionResponse' <$>
+ (x .?> "AppliedSchemaArn") <*> (pure (fromEnum s)))
+
+instance Hashable GetAppliedSchemaVersion where
+
+instance NFData GetAppliedSchemaVersion where
+
+instance ToHeaders GetAppliedSchemaVersion where
+ toHeaders = const mempty
+
+instance ToJSON GetAppliedSchemaVersion where
+ toJSON GetAppliedSchemaVersion'{..}
+ = object
+ (catMaybes [Just ("SchemaArn" .= _gasvSchemaARN)])
+
+instance ToPath GetAppliedSchemaVersion where
+ toPath
+ = const
+ "/amazonclouddirectory/2017-01-11/schema/getappliedschema"
+
+instance ToQuery GetAppliedSchemaVersion where
+ toQuery = const mempty
+
+-- | /See:/ 'getAppliedSchemaVersionResponse' smart constructor.
+data GetAppliedSchemaVersionResponse = GetAppliedSchemaVersionResponse'
+ { _gasvrsAppliedSchemaARN :: !(Maybe Text)
+ , _gasvrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'GetAppliedSchemaVersionResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'gasvrsAppliedSchemaARN' - Current applied schema ARN, including the minor version in use if one was provided.
+--
+-- * 'gasvrsResponseStatus' - -- | The response status code.
+getAppliedSchemaVersionResponse
+ :: Int -- ^ 'gasvrsResponseStatus'
+ -> GetAppliedSchemaVersionResponse
+getAppliedSchemaVersionResponse pResponseStatus_ =
+ GetAppliedSchemaVersionResponse'
+ { _gasvrsAppliedSchemaARN = Nothing
+ , _gasvrsResponseStatus = pResponseStatus_
+ }
+
+
+-- | Current applied schema ARN, including the minor version in use if one was provided.
+gasvrsAppliedSchemaARN :: Lens' GetAppliedSchemaVersionResponse (Maybe Text)
+gasvrsAppliedSchemaARN = lens _gasvrsAppliedSchemaARN (\ s a -> s{_gasvrsAppliedSchemaARN = a})
+
+-- | -- | The response status code.
+gasvrsResponseStatus :: Lens' GetAppliedSchemaVersionResponse Int
+gasvrsResponseStatus = lens _gasvrsResponseStatus (\ s a -> s{_gasvrsResponseStatus = a})
+
+instance NFData GetAppliedSchemaVersionResponse where
diff --git a/gen/Network/AWS/CloudDirectory/GetDirectory.hs b/gen/Network/AWS/CloudDirectory/GetDirectory.hs
index 686a102..75d10a4 100644
--- a/gen/Network/AWS/CloudDirectory/GetDirectory.hs
+++ b/gen/Network/AWS/CloudDirectory/GetDirectory.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.GetDirectory
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -63,7 +63,7 @@ getDirectory pDirectoryARN_ = GetDirectory' {_gdDirectoryARN = pDirectoryARN_}
-- | The ARN of the directory.
gdDirectoryARN :: Lens' GetDirectory Text
-gdDirectoryARN = lens _gdDirectoryARN (\ s a -> s{_gdDirectoryARN = a});
+gdDirectoryARN = lens _gdDirectoryARN (\ s a -> s{_gdDirectoryARN = a})
instance AWSRequest GetDirectory where
type Rs GetDirectory = GetDirectoryResponse
@@ -113,15 +113,15 @@ getDirectoryResponse
-> GetDirectoryResponse
getDirectoryResponse pResponseStatus_ pDirectory_ =
GetDirectoryResponse'
- {_gdrsResponseStatus = pResponseStatus_, _gdrsDirectory = pDirectory_}
+ {_gdrsResponseStatus = pResponseStatus_, _gdrsDirectory = pDirectory_}
-- | -- | The response status code.
gdrsResponseStatus :: Lens' GetDirectoryResponse Int
-gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a});
+gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a})
-- | Metadata about the directory.
gdrsDirectory :: Lens' GetDirectoryResponse Directory
-gdrsDirectory = lens _gdrsDirectory (\ s a -> s{_gdrsDirectory = a});
+gdrsDirectory = lens _gdrsDirectory (\ s a -> s{_gdrsDirectory = a})
instance NFData GetDirectoryResponse where
diff --git a/gen/Network/AWS/CloudDirectory/GetFacet.hs b/gen/Network/AWS/CloudDirectory/GetFacet.hs
index fc4cb5c..7234723 100644
--- a/gen/Network/AWS/CloudDirectory/GetFacet.hs
+++ b/gen/Network/AWS/CloudDirectory/GetFacet.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.GetFacet
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -69,11 +69,11 @@ getFacet pSchemaARN_ pName_ =
-- | The Amazon Resource Name (ARN) that is associated with the 'Facet' . For more information, see 'arns' .
gfSchemaARN :: Lens' GetFacet Text
-gfSchemaARN = lens _gfSchemaARN (\ s a -> s{_gfSchemaARN = a});
+gfSchemaARN = lens _gfSchemaARN (\ s a -> s{_gfSchemaARN = a})
-- | The name of the facet to retrieve.
gfName :: Lens' GetFacet Text
-gfName = lens _gfName (\ s a -> s{_gfName = a});
+gfName = lens _gfName (\ s a -> s{_gfName = a})
instance AWSRequest GetFacet where
type Rs GetFacet = GetFacetResponse
@@ -122,15 +122,15 @@ getFacetResponse
-> GetFacetResponse
getFacetResponse pResponseStatus_ =
GetFacetResponse'
- {_gfrsFacet = Nothing, _gfrsResponseStatus = pResponseStatus_}
+ {_gfrsFacet = Nothing, _gfrsResponseStatus = pResponseStatus_}
-- | The 'Facet' structure that is associated with the facet.
gfrsFacet :: Lens' GetFacetResponse (Maybe Facet)
-gfrsFacet = lens _gfrsFacet (\ s a -> s{_gfrsFacet = a});
+gfrsFacet = lens _gfrsFacet (\ s a -> s{_gfrsFacet = a})
-- | -- | The response status code.
gfrsResponseStatus :: Lens' GetFacetResponse Int
-gfrsResponseStatus = lens _gfrsResponseStatus (\ s a -> s{_gfrsResponseStatus = a});
+gfrsResponseStatus = lens _gfrsResponseStatus (\ s a -> s{_gfrsResponseStatus = a})
instance NFData GetFacetResponse where
diff --git a/gen/Network/AWS/CloudDirectory/GetObjectAttributes.hs b/gen/Network/AWS/CloudDirectory/GetObjectAttributes.hs
new file mode 100644
index 0000000..e9d43a9
--- /dev/null
+++ b/gen/Network/AWS/CloudDirectory/GetObjectAttributes.hs
@@ -0,0 +1,176 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module : Network.AWS.CloudDirectory.GetObjectAttributes
+-- Copyright : (c) 2013-2018 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Retrieves attributes within a facet that are associated with an object.
+--
+--
+module Network.AWS.CloudDirectory.GetObjectAttributes
+ (
+ -- * Creating a Request
+ getObjectAttributes
+ , GetObjectAttributes
+ -- * Request Lenses
+ , goaConsistencyLevel
+ , goaDirectoryARN
+ , goaObjectReference
+ , goaSchemaFacet
+ , goaAttributeNames
+
+ -- * Destructuring the Response
+ , getObjectAttributesResponse
+ , GetObjectAttributesResponse
+ -- * Response Lenses
+ , goarsAttributes
+ , goarsResponseStatus
+ ) where
+
+import Network.AWS.CloudDirectory.Types
+import Network.AWS.CloudDirectory.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
+
+-- | /See:/ 'getObjectAttributes' smart constructor.
+data GetObjectAttributes = GetObjectAttributes'
+ { _goaConsistencyLevel :: !(Maybe ConsistencyLevel)
+ , _goaDirectoryARN :: !Text
+ , _goaObjectReference :: !ObjectReference
+ , _goaSchemaFacet :: !SchemaFacet
+ , _goaAttributeNames :: ![Text]
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'GetObjectAttributes' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'goaConsistencyLevel' - The consistency level at which to retrieve the attributes on an object.
+--
+-- * 'goaDirectoryARN' - The Amazon Resource Name (ARN) that is associated with the 'Directory' where the object resides.
+--
+-- * 'goaObjectReference' - Reference that identifies the object whose attributes will be retrieved.
+--
+-- * 'goaSchemaFacet' - Identifier for the facet whose attributes will be retrieved. See 'SchemaFacet' for details.
+--
+-- * 'goaAttributeNames' - List of attribute names whose values will be retrieved.
+getObjectAttributes
+ :: Text -- ^ 'goaDirectoryARN'
+ -> ObjectReference -- ^ 'goaObjectReference'
+ -> SchemaFacet -- ^ 'goaSchemaFacet'
+ -> GetObjectAttributes
+getObjectAttributes pDirectoryARN_ pObjectReference_ pSchemaFacet_ =
+ GetObjectAttributes'
+ { _goaConsistencyLevel = Nothing
+ , _goaDirectoryARN = pDirectoryARN_
+ , _goaObjectReference = pObjectReference_
+ , _goaSchemaFacet = pSchemaFacet_
+ , _goaAttributeNames = mempty
+ }
+
+
+-- | The consistency level at which to retrieve the attributes on an object.
+goaConsistencyLevel :: Lens' GetObjectAttributes (Maybe ConsistencyLevel)
+goaConsistencyLevel = lens _goaConsistencyLevel (\ s a -> s{_goaConsistencyLevel = a})
+
+-- | The Amazon Resource Name (ARN) that is associated with the 'Directory' where the object resides.
+goaDirectoryARN :: Lens' GetObjectAttributes Text
+goaDirectoryARN = lens _goaDirectoryARN (\ s a -> s{_goaDirectoryARN = a})
+
+-- | Reference that identifies the object whose attributes will be retrieved.
+goaObjectReference :: Lens' GetObjectAttributes ObjectReference
+goaObjectReference = lens _goaObjectReference (\ s a -> s{_goaObjectReference = a})
+
+-- | Identifier for the facet whose attributes will be retrieved. See 'SchemaFacet' for details.
+goaSchemaFacet :: Lens' GetObjectAttributes SchemaFacet
+goaSchemaFacet = lens _goaSchemaFacet (\ s a -> s{_goaSchemaFacet = a})
+
+-- | List of attribute names whose values will be retrieved.
+goaAttributeNames :: Lens' GetObjectAttributes [Text]
+goaAttributeNames = lens _goaAttributeNames (\ s a -> s{_goaAttributeNames = a}) . _Coerce
+
+instance AWSRequest GetObjectAttributes where
+ type Rs GetObjectAttributes =
+ GetObjectAttributesResponse
+ request = postJSON cloudDirectory
+ response
+ = receiveJSON
+ (\ s h x ->
+ GetObjectAttributesResponse' <$>
+ (x .?> "Attributes" .!@ mempty) <*>
+ (pure (fromEnum s)))
+
+instance Hashable GetObjectAttributes where
+
+instance NFData GetObjectAttributes where
+
+instance ToHeaders GetObjectAttributes where
+ toHeaders GetObjectAttributes'{..}
+ = mconcat
+ ["x-amz-consistency-level" =# _goaConsistencyLevel,
+ "x-amz-data-partition" =# _goaDirectoryARN]
+
+instance ToJSON GetObjectAttributes where
+ toJSON GetObjectAttributes'{..}
+ = object
+ (catMaybes
+ [Just ("ObjectReference" .= _goaObjectReference),
+ Just ("SchemaFacet" .= _goaSchemaFacet),
+ Just ("AttributeNames" .= _goaAttributeNames)])
+
+instance ToPath GetObjectAttributes where
+ toPath
+ = const
+ "/amazonclouddirectory/2017-01-11/object/attributes/get"
+
+instance ToQuery GetObjectAttributes where
+ toQuery = const mempty
+
+-- | /See:/ 'getObjectAttributesResponse' smart constructor.
+data GetObjectAttributesResponse = GetObjectAttributesResponse'
+ { _goarsAttributes :: !(Maybe [AttributeKeyAndValue])
+ , _goarsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'GetObjectAttributesResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'goarsAttributes' - The attributes that are associated with the object.
+--
+-- * 'goarsResponseStatus' - -- | The response status code.
+getObjectAttributesResponse
+ :: Int -- ^ 'goarsResponseStatus'
+ -> GetObjectAttributesResponse
+getObjectAttributesResponse pResponseStatus_ =
+ GetObjectAttributesResponse'
+ {_goarsAttributes = Nothing, _goarsResponseStatus = pResponseStatus_}
+
+
+-- | The attributes that are associated with the object.
+goarsAttributes :: Lens' GetObjectAttributesResponse [AttributeKeyAndValue]
+goarsAttributes = lens _goarsAttributes (\ s a -> s{_goarsAttributes = a}) . _Default . _Coerce
+
+-- | -- | The response status code.
+goarsResponseStatus :: Lens' GetObjectAttributesResponse Int
+goarsResponseStatus = lens _goarsResponseStatus (\ s a -> s{_goarsResponseStatus = a})
+
+instance NFData GetObjectAttributesResponse where
diff --git a/gen/Network/AWS/CloudDirectory/GetObjectInformation.hs b/gen/Network/AWS/CloudDirectory/GetObjectInformation.hs
index 9060de8..80aee95 100644
--- a/gen/Network/AWS/CloudDirectory/GetObjectInformation.hs
+++ b/gen/Network/AWS/CloudDirectory/GetObjectInformation.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.GetObjectInformation
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -70,23 +70,23 @@ getObjectInformation
-> GetObjectInformation
getObjectInformation pDirectoryARN_ pObjectReference_ =
GetObjectInformation'
- { _goiConsistencyLevel = Nothing
- , _goiDirectoryARN = pDirectoryARN_
- , _goiObjectReference = pObjectReference_
- }
+ { _goiConsistencyLevel = Nothing
+ , _goiDirectoryARN = pDirectoryARN_
+ , _goiObjectReference = pObjectReference_
+ }
-- | The consistency level at which to retrieve the object information.
goiConsistencyLevel :: Lens' GetObjectInformation (Maybe ConsistencyLevel)
-goiConsistencyLevel = lens _goiConsistencyLevel (\ s a -> s{_goiConsistencyLevel = a});
+goiConsistencyLevel = lens _goiConsistencyLevel (\ s a -> s{_goiConsistencyLevel = a})
-- | The ARN of the directory being retrieved.
goiDirectoryARN :: Lens' GetObjectInformation Text
-goiDirectoryARN = lens _goiDirectoryARN (\ s a -> s{_goiDirectoryARN = a});
+goiDirectoryARN = lens _goiDirectoryARN (\ s a -> s{_goiDirectoryARN = a})
-- | A reference to the object.
goiObjectReference :: Lens' GetObjectInformation ObjectReference
-goiObjectReference = lens _goiObjectReference (\ s a -> s{_goiObjectReference = a});
+goiObjectReference = lens _goiObjectReference (\ s a -> s{_goiObjectReference = a})
instance AWSRequest GetObjectInformation where
type Rs GetObjectInformation =
@@ -138,7 +138,7 @@ data GetObjectInformationResponse = GetObjectInformationResponse'
--
-- * 'goirsObjectIdentifier' - The @ObjectIdentifier@ of the specified object.
--
--- * 'goirsSchemaFacets' - The facets attached to the specified object.
+-- * 'goirsSchemaFacets' - The facets attached to the specified object. Although the response does not include minor version information, the most recently applied minor version of each Facet is in effect. See 'GetAppliedSchemaVersion' for details.
--
-- * 'goirsResponseStatus' - -- | The response status code.
getObjectInformationResponse
@@ -146,22 +146,22 @@ getObjectInformationResponse
-> GetObjectInformationResponse
getObjectInformationResponse pResponseStatus_ =
GetObjectInformationResponse'
- { _goirsObjectIdentifier = Nothing
- , _goirsSchemaFacets = Nothing
- , _goirsResponseStatus = pResponseStatus_
- }
+ { _goirsObjectIdentifier = Nothing
+ , _goirsSchemaFacets = Nothing
+ , _goirsResponseStatus = pResponseStatus_
+ }
-- | The @ObjectIdentifier@ of the specified object.
goirsObjectIdentifier :: Lens' GetObjectInformationResponse (Maybe Text)
-goirsObjectIdentifier = lens _goirsObjectIdentifier (\ s a -> s{_goirsObjectIdentifier = a});
+goirsObjectIdentifier = lens _goirsObjectIdentifier (\ s a -> s{_goirsObjectIdentifier = a})
--- | The facets attached to the specified object.
+-- | The facets attached to the specified object. Although the response does not include minor version information, the most recently applied minor version of each Facet is in effect. See 'GetAppliedSchemaVersion' for details.
goirsSchemaFacets :: Lens' GetObjectInformationResponse [SchemaFacet]
-goirsSchemaFacets = lens _goirsSchemaFacets (\ s a -> s{_goirsSchemaFacets = a}) . _Default . _Coerce;
+goirsSchemaFacets = lens _goirsSchemaFacets (\ s a -> s{_goirsSchemaFacets = a}) . _Default . _Coerce
-- | -- | The response status code.
goirsResponseStatus :: Lens' GetObjectInformationResponse Int
-goirsResponseStatus = lens _goirsResponseStatus (\ s a -> s{_goirsResponseStatus = a});
+goirsResponseStatus = lens _goirsResponseStatus (\ s a -> s{_goirsResponseStatus = a})
instance NFData GetObjectInformationResponse where
diff --git a/gen/Network/AWS/CloudDirectory/GetSchemaAsJSON.hs b/gen/Network/AWS/CloudDirectory/GetSchemaAsJSON.hs
index 0cf28f4..931b2d3 100644
--- a/gen/Network/AWS/CloudDirectory/GetSchemaAsJSON.hs
+++ b/gen/Network/AWS/CloudDirectory/GetSchemaAsJSON.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.GetSchemaAsJSON
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -64,7 +64,7 @@ getSchemaAsJSON pSchemaARN_ = GetSchemaAsJSON' {_gsajSchemaARN = pSchemaARN_}
-- | The ARN of the schema to retrieve.
gsajSchemaARN :: Lens' GetSchemaAsJSON Text
-gsajSchemaARN = lens _gsajSchemaARN (\ s a -> s{_gsajSchemaARN = a});
+gsajSchemaARN = lens _gsajSchemaARN (\ s a -> s{_gsajSchemaARN = a})
instance AWSRequest GetSchemaAsJSON where
type Rs GetSchemaAsJSON = GetSchemaAsJSONResponse
@@ -117,22 +117,22 @@ getSchemaAsJSONResponse
-> GetSchemaAsJSONResponse
getSchemaAsJSONResponse pResponseStatus_ =
GetSchemaAsJSONResponse'
- { _gsajrsDocument = Nothing
- , _gsajrsName = Nothing
- , _gsajrsResponseStatus = pResponseStatus_
- }
+ { _gsajrsDocument = Nothing
+ , _gsajrsName = Nothing
+ , _gsajrsResponseStatus = pResponseStatus_
+ }
-- | The JSON representation of the schema document.
gsajrsDocument :: Lens' GetSchemaAsJSONResponse (Maybe Text)
-gsajrsDocument = lens _gsajrsDocument (\ s a -> s{_gsajrsDocument = a});
+gsajrsDocument = lens _gsajrsDocument (\ s a -> s{_gsajrsDocument = a})
-- | The name of the retrieved schema.
gsajrsName :: Lens' GetSchemaAsJSONResponse (Maybe Text)
-gsajrsName = lens _gsajrsName (\ s a -> s{_gsajrsName = a});
+gsajrsName = lens _gsajrsName (\ s a -> s{_gsajrsName = a})
-- | -- | The response status code.
gsajrsResponseStatus :: Lens' GetSchemaAsJSONResponse Int
-gsajrsResponseStatus = lens _gsajrsResponseStatus (\ s a -> s{_gsajrsResponseStatus = a});
+gsajrsResponseStatus = lens _gsajrsResponseStatus (\ s a -> s{_gsajrsResponseStatus = a})
instance NFData GetSchemaAsJSONResponse where
diff --git a/gen/Network/AWS/CloudDirectory/GetTypedLinkFacetInformation.hs b/gen/Network/AWS/CloudDirectory/GetTypedLinkFacetInformation.hs
index 28aa9f9..3222803 100644
--- a/gen/Network/AWS/CloudDirectory/GetTypedLinkFacetInformation.hs
+++ b/gen/Network/AWS/CloudDirectory/GetTypedLinkFacetInformation.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.GetTypedLinkFacetInformation
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -65,16 +65,16 @@ getTypedLinkFacetInformation
-> GetTypedLinkFacetInformation
getTypedLinkFacetInformation pSchemaARN_ pName_ =
GetTypedLinkFacetInformation'
- {_gtlfiSchemaARN = pSchemaARN_, _gtlfiName = pName_}
+ {_gtlfiSchemaARN = pSchemaARN_, _gtlfiName = pName_}
-- | The Amazon Resource Name (ARN) that is associated with the schema. For more information, see 'arns' .
gtlfiSchemaARN :: Lens' GetTypedLinkFacetInformation Text
-gtlfiSchemaARN = lens _gtlfiSchemaARN (\ s a -> s{_gtlfiSchemaARN = a});
+gtlfiSchemaARN = lens _gtlfiSchemaARN (\ s a -> s{_gtlfiSchemaARN = a})
-- | The unique name of the typed link facet.
gtlfiName :: Lens' GetTypedLinkFacetInformation Text
-gtlfiName = lens _gtlfiName (\ s a -> s{_gtlfiName = a});
+gtlfiName = lens _gtlfiName (\ s a -> s{_gtlfiName = a})
instance AWSRequest GetTypedLinkFacetInformation
where
@@ -127,18 +127,18 @@ getTypedLinkFacetInformationResponse
-> GetTypedLinkFacetInformationResponse
getTypedLinkFacetInformationResponse pResponseStatus_ =
GetTypedLinkFacetInformationResponse'
- { _gtlfirsIdentityAttributeOrder = Nothing
- , _gtlfirsResponseStatus = pResponseStatus_
- }
+ { _gtlfirsIdentityAttributeOrder = Nothing
+ , _gtlfirsResponseStatus = pResponseStatus_
+ }
-- | The order of identity attributes for the facet, from most significant to least significant. The ability to filter typed links considers the order that the attributes are defined on the typed link facet. When providing ranges to typed link selection, any inexact ranges must be specified at the end. Any attributes that do not have a range specified are presumed to match the entire range. Filters are interpreted in the order of the attributes on the typed link facet, not the order in which they are supplied to any API calls. For more information about identity attributes, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/objectsandlinks.html#typedlink Typed link> .
gtlfirsIdentityAttributeOrder :: Lens' GetTypedLinkFacetInformationResponse [Text]
-gtlfirsIdentityAttributeOrder = lens _gtlfirsIdentityAttributeOrder (\ s a -> s{_gtlfirsIdentityAttributeOrder = a}) . _Default . _Coerce;
+gtlfirsIdentityAttributeOrder = lens _gtlfirsIdentityAttributeOrder (\ s a -> s{_gtlfirsIdentityAttributeOrder = a}) . _Default . _Coerce
-- | -- | The response status code.
gtlfirsResponseStatus :: Lens' GetTypedLinkFacetInformationResponse Int
-gtlfirsResponseStatus = lens _gtlfirsResponseStatus (\ s a -> s{_gtlfirsResponseStatus = a});
+gtlfirsResponseStatus = lens _gtlfirsResponseStatus (\ s a -> s{_gtlfirsResponseStatus = a})
instance NFData GetTypedLinkFacetInformationResponse
where
diff --git a/gen/Network/AWS/CloudDirectory/ListAppliedSchemaARNs.hs b/gen/Network/AWS/CloudDirectory/ListAppliedSchemaARNs.hs
index 3b1843e..b7ae73b 100644
--- a/gen/Network/AWS/CloudDirectory/ListAppliedSchemaARNs.hs
+++ b/gen/Network/AWS/CloudDirectory/ListAppliedSchemaARNs.hs
@@ -12,15 +12,17 @@
-- |
-- Module : Network.AWS.CloudDirectory.ListAppliedSchemaARNs
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Lists schemas applied to a directory.
+-- Lists schema major versions applied to a directory. If @SchemaArn@ is provided, lists the minor version.
--
--
+--
+-- This operation returns paginated results.
module Network.AWS.CloudDirectory.ListAppliedSchemaARNs
(
-- * Creating a Request
@@ -28,6 +30,7 @@ module Network.AWS.CloudDirectory.ListAppliedSchemaARNs
, ListAppliedSchemaARNs
-- * Request Lenses
, lasaNextToken
+ , lasaSchemaARN
, lasaMaxResults
, lasaDirectoryARN
@@ -43,6 +46,7 @@ module Network.AWS.CloudDirectory.ListAppliedSchemaARNs
import Network.AWS.CloudDirectory.Types
import Network.AWS.CloudDirectory.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -50,6 +54,7 @@ import Network.AWS.Response
-- | /See:/ 'listAppliedSchemaARNs' smart constructor.
data ListAppliedSchemaARNs = ListAppliedSchemaARNs'
{ _lasaNextToken :: !(Maybe Text)
+ , _lasaSchemaARN :: !(Maybe Text)
, _lasaMaxResults :: !(Maybe Nat)
, _lasaDirectoryARN :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
@@ -61,6 +66,8 @@ data ListAppliedSchemaARNs = ListAppliedSchemaARNs'
--
-- * 'lasaNextToken' - The pagination token.
--
+-- * 'lasaSchemaARN' - The response for @ListAppliedSchemaArns@ when this parameter is used will list all minor version ARNs for a major version.
+--
-- * 'lasaMaxResults' - The maximum number of results to retrieve.
--
-- * 'lasaDirectoryARN' - The ARN of the directory you are listing.
@@ -69,23 +76,35 @@ listAppliedSchemaARNs
-> ListAppliedSchemaARNs
listAppliedSchemaARNs pDirectoryARN_ =
ListAppliedSchemaARNs'
- { _lasaNextToken = Nothing
- , _lasaMaxResults = Nothing
- , _lasaDirectoryARN = pDirectoryARN_
- }
+ { _lasaNextToken = Nothing
+ , _lasaSchemaARN = Nothing
+ , _lasaMaxResults = Nothing
+ , _lasaDirectoryARN = pDirectoryARN_
+ }
-- | The pagination token.
lasaNextToken :: Lens' ListAppliedSchemaARNs (Maybe Text)
-lasaNextToken = lens _lasaNextToken (\ s a -> s{_lasaNextToken = a});
+lasaNextToken = lens _lasaNextToken (\ s a -> s{_lasaNextToken = a})
+
+-- | The response for @ListAppliedSchemaArns@ when this parameter is used will list all minor version ARNs for a major version.
+lasaSchemaARN :: Lens' ListAppliedSchemaARNs (Maybe Text)
+lasaSchemaARN = lens _lasaSchemaARN (\ s a -> s{_lasaSchemaARN = a})
-- | The maximum number of results to retrieve.
lasaMaxResults :: Lens' ListAppliedSchemaARNs (Maybe Natural)
-lasaMaxResults = lens _lasaMaxResults (\ s a -> s{_lasaMaxResults = a}) . mapping _Nat;
+lasaMaxResults = lens _lasaMaxResults (\ s a -> s{_lasaMaxResults = a}) . mapping _Nat
-- | The ARN of the directory you are listing.
lasaDirectoryARN :: Lens' ListAppliedSchemaARNs Text
-lasaDirectoryARN = lens _lasaDirectoryARN (\ s a -> s{_lasaDirectoryARN = a});
+lasaDirectoryARN = lens _lasaDirectoryARN (\ s a -> s{_lasaDirectoryARN = a})
+
+instance AWSPager ListAppliedSchemaARNs where
+ page rq rs
+ | stop (rs ^. lasarsNextToken) = Nothing
+ | stop (rs ^. lasarsSchemaARNs) = Nothing
+ | otherwise =
+ Just $ rq & lasaNextToken .~ rs ^. lasarsNextToken
instance AWSRequest ListAppliedSchemaARNs where
type Rs ListAppliedSchemaARNs =
@@ -111,6 +130,7 @@ instance ToJSON ListAppliedSchemaARNs where
= object
(catMaybes
[("NextToken" .=) <$> _lasaNextToken,
+ ("SchemaArn" .=) <$> _lasaSchemaARN,
("MaxResults" .=) <$> _lasaMaxResults,
Just ("DirectoryArn" .= _lasaDirectoryARN)])
@@ -144,22 +164,22 @@ listAppliedSchemaARNsResponse
-> ListAppliedSchemaARNsResponse
listAppliedSchemaARNsResponse pResponseStatus_ =
ListAppliedSchemaARNsResponse'
- { _lasarsSchemaARNs = Nothing
- , _lasarsNextToken = Nothing
- , _lasarsResponseStatus = pResponseStatus_
- }
+ { _lasarsSchemaARNs = Nothing
+ , _lasarsNextToken = Nothing
+ , _lasarsResponseStatus = pResponseStatus_
+ }
-- | The ARNs of schemas that are applied to the directory.
lasarsSchemaARNs :: Lens' ListAppliedSchemaARNsResponse [Text]
-lasarsSchemaARNs = lens _lasarsSchemaARNs (\ s a -> s{_lasarsSchemaARNs = a}) . _Default . _Coerce;
+lasarsSchemaARNs = lens _lasarsSchemaARNs (\ s a -> s{_lasarsSchemaARNs = a}) . _Default . _Coerce
-- | The pagination token.
lasarsNextToken :: Lens' ListAppliedSchemaARNsResponse (Maybe Text)
-lasarsNextToken = lens _lasarsNextToken (\ s a -> s{_lasarsNextToken = a});
+lasarsNextToken = lens _lasarsNextToken (\ s a -> s{_lasarsNextToken = a})
-- | -- | The response status code.
lasarsResponseStatus :: Lens' ListAppliedSchemaARNsResponse Int
-lasarsResponseStatus = lens _lasarsResponseStatus (\ s a -> s{_lasarsResponseStatus = a});
+lasarsResponseStatus = lens _lasarsResponseStatus (\ s a -> s{_lasarsResponseStatus = a})
instance NFData ListAppliedSchemaARNsResponse where
diff --git a/gen/Network/AWS/CloudDirectory/ListAttachedIndices.hs b/gen/Network/AWS/CloudDirectory/ListAttachedIndices.hs
index bd6c60f..f5a559d 100644
--- a/gen/Network/AWS/CloudDirectory/ListAttachedIndices.hs
+++ b/gen/Network/AWS/CloudDirectory/ListAttachedIndices.hs
@@ -12,15 +12,17 @@
-- |
-- Module : Network.AWS.CloudDirectory.ListAttachedIndices
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Lists indices attached to an object.
+-- Lists indices attached to the specified object.
--
--
+--
+-- This operation returns paginated results.
module Network.AWS.CloudDirectory.ListAttachedIndices
(
-- * Creating a Request
@@ -45,6 +47,7 @@ module Network.AWS.CloudDirectory.ListAttachedIndices
import Network.AWS.CloudDirectory.Types
import Network.AWS.CloudDirectory.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -78,33 +81,40 @@ listAttachedIndices
-> ListAttachedIndices
listAttachedIndices pDirectoryARN_ pTargetReference_ =
ListAttachedIndices'
- { _laiConsistencyLevel = Nothing
- , _laiNextToken = Nothing
- , _laiMaxResults = Nothing
- , _laiDirectoryARN = pDirectoryARN_
- , _laiTargetReference = pTargetReference_
- }
+ { _laiConsistencyLevel = Nothing
+ , _laiNextToken = Nothing
+ , _laiMaxResults = Nothing
+ , _laiDirectoryARN = pDirectoryARN_
+ , _laiTargetReference = pTargetReference_
+ }
-- | The consistency level to use for this operation.
laiConsistencyLevel :: Lens' ListAttachedIndices (Maybe ConsistencyLevel)
-laiConsistencyLevel = lens _laiConsistencyLevel (\ s a -> s{_laiConsistencyLevel = a});
+laiConsistencyLevel = lens _laiConsistencyLevel (\ s a -> s{_laiConsistencyLevel = a})
-- | The pagination token.
laiNextToken :: Lens' ListAttachedIndices (Maybe Text)
-laiNextToken = lens _laiNextToken (\ s a -> s{_laiNextToken = a});
+laiNextToken = lens _laiNextToken (\ s a -> s{_laiNextToken = a})
-- | The maximum number of results to retrieve.
laiMaxResults :: Lens' ListAttachedIndices (Maybe Natural)
-laiMaxResults = lens _laiMaxResults (\ s a -> s{_laiMaxResults = a}) . mapping _Nat;
+laiMaxResults = lens _laiMaxResults (\ s a -> s{_laiMaxResults = a}) . mapping _Nat
-- | The ARN of the directory.
laiDirectoryARN :: Lens' ListAttachedIndices Text
-laiDirectoryARN = lens _laiDirectoryARN (\ s a -> s{_laiDirectoryARN = a});
+laiDirectoryARN = lens _laiDirectoryARN (\ s a -> s{_laiDirectoryARN = a})
-- | A reference to the object that has indices attached.
laiTargetReference :: Lens' ListAttachedIndices ObjectReference
-laiTargetReference = lens _laiTargetReference (\ s a -> s{_laiTargetReference = a});
+laiTargetReference = lens _laiTargetReference (\ s a -> s{_laiTargetReference = a})
+
+instance AWSPager ListAttachedIndices where
+ page rq rs
+ | stop (rs ^. lairsNextToken) = Nothing
+ | stop (rs ^. lairsIndexAttachments) = Nothing
+ | otherwise =
+ Just $ rq & laiNextToken .~ rs ^. lairsNextToken
instance AWSRequest ListAttachedIndices where
type Rs ListAttachedIndices =
@@ -166,22 +176,22 @@ listAttachedIndicesResponse
-> ListAttachedIndicesResponse
listAttachedIndicesResponse pResponseStatus_ =
ListAttachedIndicesResponse'
- { _lairsIndexAttachments = Nothing
- , _lairsNextToken = Nothing
- , _lairsResponseStatus = pResponseStatus_
- }
+ { _lairsIndexAttachments = Nothing
+ , _lairsNextToken = Nothing
+ , _lairsResponseStatus = pResponseStatus_
+ }
-- | The indices attached to the specified object.
lairsIndexAttachments :: Lens' ListAttachedIndicesResponse [IndexAttachment]
-lairsIndexAttachments = lens _lairsIndexAttachments (\ s a -> s{_lairsIndexAttachments = a}) . _Default . _Coerce;
+lairsIndexAttachments = lens _lairsIndexAttachments (\ s a -> s{_lairsIndexAttachments = a}) . _Default . _Coerce
-- | The pagination token.
lairsNextToken :: Lens' ListAttachedIndicesResponse (Maybe Text)
-lairsNextToken = lens _lairsNextToken (\ s a -> s{_lairsNextToken = a});
+lairsNextToken = lens _lairsNextToken (\ s a -> s{_lairsNextToken = a})
-- | -- | The response status code.
lairsResponseStatus :: Lens' ListAttachedIndicesResponse Int
-lairsResponseStatus = lens _lairsResponseStatus (\ s a -> s{_lairsResponseStatus = a});
+lairsResponseStatus = lens _lairsResponseStatus (\ s a -> s{_lairsResponseStatus = a})
instance NFData ListAttachedIndicesResponse where
diff --git a/gen/Network/AWS/CloudDirectory/ListDevelopmentSchemaARNs.hs b/gen/Network/AWS/CloudDirectory/ListDevelopmentSchemaARNs.hs
index 63a7b25..bedb5a9 100644
--- a/gen/Network/AWS/CloudDirectory/ListDevelopmentSchemaARNs.hs
+++ b/gen/Network/AWS/CloudDirectory/ListDevelopmentSchemaARNs.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.ListDevelopmentSchemaARNs
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -21,6 +21,8 @@
-- Retrieves each Amazon Resource Name (ARN) of schemas in the development state.
--
--
+--
+-- This operation returns paginated results.
module Network.AWS.CloudDirectory.ListDevelopmentSchemaARNs
(
-- * Creating a Request
@@ -42,6 +44,7 @@ module Network.AWS.CloudDirectory.ListDevelopmentSchemaARNs
import Network.AWS.CloudDirectory.Types
import Network.AWS.CloudDirectory.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -64,16 +67,23 @@ listDevelopmentSchemaARNs
:: ListDevelopmentSchemaARNs
listDevelopmentSchemaARNs =
ListDevelopmentSchemaARNs'
- {_ldsaNextToken = Nothing, _ldsaMaxResults = Nothing}
+ {_ldsaNextToken = Nothing, _ldsaMaxResults = Nothing}
-- | The pagination token.
ldsaNextToken :: Lens' ListDevelopmentSchemaARNs (Maybe Text)
-ldsaNextToken = lens _ldsaNextToken (\ s a -> s{_ldsaNextToken = a});
+ldsaNextToken = lens _ldsaNextToken (\ s a -> s{_ldsaNextToken = a})
-- | The maximum number of results to retrieve.
ldsaMaxResults :: Lens' ListDevelopmentSchemaARNs (Maybe Natural)
-ldsaMaxResults = lens _ldsaMaxResults (\ s a -> s{_ldsaMaxResults = a}) . mapping _Nat;
+ldsaMaxResults = lens _ldsaMaxResults (\ s a -> s{_ldsaMaxResults = a}) . mapping _Nat
+
+instance AWSPager ListDevelopmentSchemaARNs where
+ page rq rs
+ | stop (rs ^. ldsarsNextToken) = Nothing
+ | stop (rs ^. ldsarsSchemaARNs) = Nothing
+ | otherwise =
+ Just $ rq & ldsaNextToken .~ rs ^. ldsarsNextToken
instance AWSRequest ListDevelopmentSchemaARNs where
type Rs ListDevelopmentSchemaARNs =
@@ -131,23 +141,23 @@ listDevelopmentSchemaARNsResponse
-> ListDevelopmentSchemaARNsResponse
listDevelopmentSchemaARNsResponse pResponseStatus_ =
ListDevelopmentSchemaARNsResponse'
- { _ldsarsSchemaARNs = Nothing
- , _ldsarsNextToken = Nothing
- , _ldsarsResponseStatus = pResponseStatus_
- }
+ { _ldsarsSchemaARNs = Nothing
+ , _ldsarsNextToken = Nothing
+ , _ldsarsResponseStatus = pResponseStatus_
+ }
-- | The ARNs of retrieved development schemas.
ldsarsSchemaARNs :: Lens' ListDevelopmentSchemaARNsResponse [Text]
-ldsarsSchemaARNs = lens _ldsarsSchemaARNs (\ s a -> s{_ldsarsSchemaARNs = a}) . _Default . _Coerce;
+ldsarsSchemaARNs = lens _ldsarsSchemaARNs (\ s a -> s{_ldsarsSchemaARNs = a}) . _Default . _Coerce
-- | The pagination token.
ldsarsNextToken :: Lens' ListDevelopmentSchemaARNsResponse (Maybe Text)
-ldsarsNextToken = lens _ldsarsNextToken (\ s a -> s{_ldsarsNextToken = a});
+ldsarsNextToken = lens _ldsarsNextToken (\ s a -> s{_ldsarsNextToken = a})
-- | -- | The response status code.
ldsarsResponseStatus :: Lens' ListDevelopmentSchemaARNsResponse Int
-ldsarsResponseStatus = lens _ldsarsResponseStatus (\ s a -> s{_ldsarsResponseStatus = a});
+ldsarsResponseStatus = lens _ldsarsResponseStatus (\ s a -> s{_ldsarsResponseStatus = a})
instance NFData ListDevelopmentSchemaARNsResponse
where
diff --git a/gen/Network/AWS/CloudDirectory/ListDirectories.hs b/gen/Network/AWS/CloudDirectory/ListDirectories.hs
index 9bb0489..4995098 100644
--- a/gen/Network/AWS/CloudDirectory/ListDirectories.hs
+++ b/gen/Network/AWS/CloudDirectory/ListDirectories.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.ListDirectories
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -21,6 +21,8 @@
-- Lists directories created within an account.
--
--
+--
+-- This operation returns paginated results.
module Network.AWS.CloudDirectory.ListDirectories
(
-- * Creating a Request
@@ -43,6 +45,7 @@ module Network.AWS.CloudDirectory.ListDirectories
import Network.AWS.CloudDirectory.Types
import Network.AWS.CloudDirectory.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -68,20 +71,27 @@ listDirectories
:: ListDirectories
listDirectories =
ListDirectories'
- {_ldState = Nothing, _ldNextToken = Nothing, _ldMaxResults = Nothing}
+ {_ldState = Nothing, _ldNextToken = Nothing, _ldMaxResults = Nothing}
-- | The state of the directories in the list. Can be either Enabled, Disabled, or Deleted.
ldState :: Lens' ListDirectories (Maybe DirectoryState)
-ldState = lens _ldState (\ s a -> s{_ldState = a});
+ldState = lens _ldState (\ s a -> s{_ldState = a})
-- | The pagination token.
ldNextToken :: Lens' ListDirectories (Maybe Text)
-ldNextToken = lens _ldNextToken (\ s a -> s{_ldNextToken = a});
+ldNextToken = lens _ldNextToken (\ s a -> s{_ldNextToken = a})
-- | The maximum number of results to retrieve.
ldMaxResults :: Lens' ListDirectories (Maybe Natural)
-ldMaxResults = lens _ldMaxResults (\ s a -> s{_ldMaxResults = a}) . mapping _Nat;
+ldMaxResults = lens _ldMaxResults (\ s a -> s{_ldMaxResults = a}) . mapping _Nat
+
+instance AWSPager ListDirectories where
+ page rq rs
+ | stop (rs ^. ldrsNextToken) = Nothing
+ | stop (rs ^. ldrsDirectories) = Nothing
+ | otherwise =
+ Just $ rq & ldNextToken .~ rs ^. ldrsNextToken
instance AWSRequest ListDirectories where
type Rs ListDirectories = ListDirectoriesResponse
@@ -138,22 +148,22 @@ listDirectoriesResponse
-> ListDirectoriesResponse
listDirectoriesResponse pResponseStatus_ =
ListDirectoriesResponse'
- { _ldrsNextToken = Nothing
- , _ldrsResponseStatus = pResponseStatus_
- , _ldrsDirectories = mempty
- }
+ { _ldrsNextToken = Nothing
+ , _ldrsResponseStatus = pResponseStatus_
+ , _ldrsDirectories = mempty
+ }
-- | The pagination token.
ldrsNextToken :: Lens' ListDirectoriesResponse (Maybe Text)
-ldrsNextToken = lens _ldrsNextToken (\ s a -> s{_ldrsNextToken = a});
+ldrsNextToken = lens _ldrsNextToken (\ s a -> s{_ldrsNextToken = a})
-- | -- | The response status code.
ldrsResponseStatus :: Lens' ListDirectoriesResponse Int
-ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a});
+ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a})
-- | Lists all directories that are associated with your account in pagination fashion.
ldrsDirectories :: Lens' ListDirectoriesResponse [Directory]
-ldrsDirectories = lens _ldrsDirectories (\ s a -> s{_ldrsDirectories = a}) . _Coerce;
+ldrsDirectories = lens _ldrsDirectories (\ s a -> s{_ldrsDirectories = a}) . _Coerce
instance NFData ListDirectoriesResponse where
diff --git a/gen/Network/AWS/CloudDirectory/ListFacetAttributes.hs b/gen/Network/AWS/CloudDirectory/ListFacetAttributes.hs
index 98fc967..9e83007 100644
--- a/gen/Network/AWS/CloudDirectory/ListFacetAttributes.hs
+++ b/gen/Network/AWS/CloudDirectory/ListFacetAttributes.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.ListFacetAttributes
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -21,6 +21,8 @@
-- Retrieves attributes attached to the facet.
--
--
+--
+-- This operation returns paginated results.
module Network.AWS.CloudDirectory.ListFacetAttributes
(
-- * Creating a Request
@@ -44,6 +46,7 @@ module Network.AWS.CloudDirectory.ListFacetAttributes
import Network.AWS.CloudDirectory.Types
import Network.AWS.CloudDirectory.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -74,28 +77,35 @@ listFacetAttributes
-> ListFacetAttributes
listFacetAttributes pSchemaARN_ pName_ =
ListFacetAttributes'
- { _lfaNextToken = Nothing
- , _lfaMaxResults = Nothing
- , _lfaSchemaARN = pSchemaARN_
- , _lfaName = pName_
- }
+ { _lfaNextToken = Nothing
+ , _lfaMaxResults = Nothing
+ , _lfaSchemaARN = pSchemaARN_
+ , _lfaName = pName_
+ }
-- | The pagination token.
lfaNextToken :: Lens' ListFacetAttributes (Maybe Text)
-lfaNextToken = lens _lfaNextToken (\ s a -> s{_lfaNextToken = a});
+lfaNextToken = lens _lfaNextToken (\ s a -> s{_lfaNextToken = a})
-- | The maximum number of results to retrieve.
lfaMaxResults :: Lens' ListFacetAttributes (Maybe Natural)
-lfaMaxResults = lens _lfaMaxResults (\ s a -> s{_lfaMaxResults = a}) . mapping _Nat;
+lfaMaxResults = lens _lfaMaxResults (\ s a -> s{_lfaMaxResults = a}) . mapping _Nat
-- | The ARN of the schema where the facet resides.
lfaSchemaARN :: Lens' ListFacetAttributes Text
-lfaSchemaARN = lens _lfaSchemaARN (\ s a -> s{_lfaSchemaARN = a});
+lfaSchemaARN = lens _lfaSchemaARN (\ s a -> s{_lfaSchemaARN = a})
-- | The name of the facet whose attributes will be retrieved.
lfaName :: Lens' ListFacetAttributes Text
-lfaName = lens _lfaName (\ s a -> s{_lfaName = a});
+lfaName = lens _lfaName (\ s a -> s{_lfaName = a})
+
+instance AWSPager ListFacetAttributes where
+ page rq rs
+ | stop (rs ^. lfarsNextToken) = Nothing
+ | stop (rs ^. lfarsAttributes) = Nothing
+ | otherwise =
+ Just $ rq & lfaNextToken .~ rs ^. lfarsNextToken
instance AWSRequest ListFacetAttributes where
type Rs ListFacetAttributes =
@@ -155,22 +165,22 @@ listFacetAttributesResponse
-> ListFacetAttributesResponse
listFacetAttributesResponse pResponseStatus_ =
ListFacetAttributesResponse'
- { _lfarsNextToken = Nothing
- , _lfarsAttributes = Nothing
- , _lfarsResponseStatus = pResponseStatus_
- }
+ { _lfarsNextToken = Nothing
+ , _lfarsAttributes = Nothing
+ , _lfarsResponseStatus = pResponseStatus_
+ }
-- | The pagination token.
lfarsNextToken :: Lens' ListFacetAttributesResponse (Maybe Text)
-lfarsNextToken = lens _lfarsNextToken (\ s a -> s{_lfarsNextToken = a});
+lfarsNextToken = lens _lfarsNextToken (\ s a -> s{_lfarsNextToken = a})
-- | The attributes attached to the facet.
lfarsAttributes :: Lens' ListFacetAttributesResponse [FacetAttribute]
-lfarsAttributes = lens _lfarsAttributes (\ s a -> s{_lfarsAttributes = a}) . _Default . _Coerce;
+lfarsAttributes = lens _lfarsAttributes (\ s a -> s{_lfarsAttributes = a}) . _Default . _Coerce
-- | -- | The response status code.
lfarsResponseStatus :: Lens' ListFacetAttributesResponse Int
-lfarsResponseStatus = lens _lfarsResponseStatus (\ s a -> s{_lfarsResponseStatus = a});
+lfarsResponseStatus = lens _lfarsResponseStatus (\ s a -> s{_lfarsResponseStatus = a})
instance NFData ListFacetAttributesResponse where
diff --git a/gen/Network/AWS/CloudDirectory/ListFacetNames.hs b/gen/Network/AWS/CloudDirectory/ListFacetNames.hs
index f659ba8..d98c977 100644
--- a/gen/Network/AWS/CloudDirectory/ListFacetNames.hs
+++ b/gen/Network/AWS/CloudDirectory/ListFacetNames.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.ListFacetNames
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -21,6 +21,8 @@
-- Retrieves the names of facets that exist in a schema.
--
--
+--
+-- This operation returns paginated results.
module Network.AWS.CloudDirectory.ListFacetNames
(
-- * Creating a Request
@@ -43,6 +45,7 @@ module Network.AWS.CloudDirectory.ListFacetNames
import Network.AWS.CloudDirectory.Types
import Network.AWS.CloudDirectory.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -69,23 +72,30 @@ listFacetNames
-> ListFacetNames
listFacetNames pSchemaARN_ =
ListFacetNames'
- { _lfnNextToken = Nothing
- , _lfnMaxResults = Nothing
- , _lfnSchemaARN = pSchemaARN_
- }
+ { _lfnNextToken = Nothing
+ , _lfnMaxResults = Nothing
+ , _lfnSchemaARN = pSchemaARN_
+ }
-- | The pagination token.
lfnNextToken :: Lens' ListFacetNames (Maybe Text)
-lfnNextToken = lens _lfnNextToken (\ s a -> s{_lfnNextToken = a});
+lfnNextToken = lens _lfnNextToken (\ s a -> s{_lfnNextToken = a})
-- | The maximum number of results to retrieve.
lfnMaxResults :: Lens' ListFacetNames (Maybe Natural)
-lfnMaxResults = lens _lfnMaxResults (\ s a -> s{_lfnMaxResults = a}) . mapping _Nat;
+lfnMaxResults = lens _lfnMaxResults (\ s a -> s{_lfnMaxResults = a}) . mapping _Nat
-- | The Amazon Resource Name (ARN) to retrieve facet names from.
lfnSchemaARN :: Lens' ListFacetNames Text
-lfnSchemaARN = lens _lfnSchemaARN (\ s a -> s{_lfnSchemaARN = a});
+lfnSchemaARN = lens _lfnSchemaARN (\ s a -> s{_lfnSchemaARN = a})
+
+instance AWSPager ListFacetNames where
+ page rq rs
+ | stop (rs ^. lfnrsNextToken) = Nothing
+ | stop (rs ^. lfnrsFacetNames) = Nothing
+ | otherwise =
+ Just $ rq & lfnNextToken .~ rs ^. lfnrsNextToken
instance AWSRequest ListFacetNames where
type Rs ListFacetNames = ListFacetNamesResponse
@@ -142,22 +152,22 @@ listFacetNamesResponse
-> ListFacetNamesResponse
listFacetNamesResponse pResponseStatus_ =
ListFacetNamesResponse'
- { _lfnrsNextToken = Nothing
- , _lfnrsFacetNames = Nothing
- , _lfnrsResponseStatus = pResponseStatus_
- }
+ { _lfnrsNextToken = Nothing
+ , _lfnrsFacetNames = Nothing
+ , _lfnrsResponseStatus = pResponseStatus_
+ }
-- | The pagination token.
lfnrsNextToken :: Lens' ListFacetNamesResponse (Maybe Text)
-lfnrsNextToken = lens _lfnrsNextToken (\ s a -> s{_lfnrsNextToken = a});
+lfnrsNextToken = lens _lfnrsNextToken (\ s a -> s{_lfnrsNextToken = a})
-- | The names of facets that exist within the schema.
lfnrsFacetNames :: Lens' ListFacetNamesResponse [Text]
-lfnrsFacetNames = lens _lfnrsFacetNames (\ s a -> s{_lfnrsFacetNames = a}) . _Default . _Coerce;
+lfnrsFacetNames = lens _lfnrsFacetNames (\ s a -> s{_lfnrsFacetNames = a}) . _Default . _Coerce
-- | -- | The response status code.
lfnrsResponseStatus :: Lens' ListFacetNamesResponse Int
-lfnrsResponseStatus = lens _lfnrsResponseStatus (\ s a -> s{_lfnrsResponseStatus = a});
+lfnrsResponseStatus = lens _lfnrsResponseStatus (\ s a -> s{_lfnrsResponseStatus = a})
instance NFData ListFacetNamesResponse where
diff --git a/gen/Network/AWS/CloudDirectory/ListIncomingTypedLinks.hs b/gen/Network/AWS/CloudDirectory/ListIncomingTypedLinks.hs
index 11ce2d6..bc614c6 100644
--- a/gen/Network/AWS/CloudDirectory/ListIncomingTypedLinks.hs
+++ b/gen/Network/AWS/CloudDirectory/ListIncomingTypedLinks.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.ListIncomingTypedLinks
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -86,43 +86,43 @@ listIncomingTypedLinks
-> ListIncomingTypedLinks
listIncomingTypedLinks pDirectoryARN_ pObjectReference_ =
ListIncomingTypedLinks'
- { _litlFilterAttributeRanges = Nothing
- , _litlConsistencyLevel = Nothing
- , _litlNextToken = Nothing
- , _litlFilterTypedLink = Nothing
- , _litlMaxResults = Nothing
- , _litlDirectoryARN = pDirectoryARN_
- , _litlObjectReference = pObjectReference_
- }
+ { _litlFilterAttributeRanges = Nothing
+ , _litlConsistencyLevel = Nothing
+ , _litlNextToken = Nothing
+ , _litlFilterTypedLink = Nothing
+ , _litlMaxResults = Nothing
+ , _litlDirectoryARN = pDirectoryARN_
+ , _litlObjectReference = pObjectReference_
+ }
-- | Provides range filters for multiple attributes. When providing ranges to typed link selection, any inexact ranges must be specified at the end. Any attributes that do not have a range specified are presumed to match the entire range.
litlFilterAttributeRanges :: Lens' ListIncomingTypedLinks [TypedLinkAttributeRange]
-litlFilterAttributeRanges = lens _litlFilterAttributeRanges (\ s a -> s{_litlFilterAttributeRanges = a}) . _Default . _Coerce;
+litlFilterAttributeRanges = lens _litlFilterAttributeRanges (\ s a -> s{_litlFilterAttributeRanges = a}) . _Default . _Coerce
-- | The consistency level to execute the request at.
litlConsistencyLevel :: Lens' ListIncomingTypedLinks (Maybe ConsistencyLevel)
-litlConsistencyLevel = lens _litlConsistencyLevel (\ s a -> s{_litlConsistencyLevel = a});
+litlConsistencyLevel = lens _litlConsistencyLevel (\ s a -> s{_litlConsistencyLevel = a})
-- | The pagination token.
litlNextToken :: Lens' ListIncomingTypedLinks (Maybe Text)
-litlNextToken = lens _litlNextToken (\ s a -> s{_litlNextToken = a});
+litlNextToken = lens _litlNextToken (\ s a -> s{_litlNextToken = a})
-- | Filters are interpreted in the order of the attributes on the typed link facet, not the order in which they are supplied to any API calls.
litlFilterTypedLink :: Lens' ListIncomingTypedLinks (Maybe TypedLinkSchemaAndFacetName)
-litlFilterTypedLink = lens _litlFilterTypedLink (\ s a -> s{_litlFilterTypedLink = a});
+litlFilterTypedLink = lens _litlFilterTypedLink (\ s a -> s{_litlFilterTypedLink = a})
-- | The maximum number of results to retrieve.
litlMaxResults :: Lens' ListIncomingTypedLinks (Maybe Natural)
-litlMaxResults = lens _litlMaxResults (\ s a -> s{_litlMaxResults = a}) . mapping _Nat;
+litlMaxResults = lens _litlMaxResults (\ s a -> s{_litlMaxResults = a}) . mapping _Nat
-- | The Amazon Resource Name (ARN) of the directory where you want to list the typed links.
litlDirectoryARN :: Lens' ListIncomingTypedLinks Text
-litlDirectoryARN = lens _litlDirectoryARN (\ s a -> s{_litlDirectoryARN = a});
+litlDirectoryARN = lens _litlDirectoryARN (\ s a -> s{_litlDirectoryARN = a})
-- | Reference that identifies the object whose attributes will be listed.
litlObjectReference :: Lens' ListIncomingTypedLinks ObjectReference
-litlObjectReference = lens _litlObjectReference (\ s a -> s{_litlObjectReference = a});
+litlObjectReference = lens _litlObjectReference (\ s a -> s{_litlObjectReference = a})
instance AWSRequest ListIncomingTypedLinks where
type Rs ListIncomingTypedLinks =
@@ -187,22 +187,22 @@ listIncomingTypedLinksResponse
-> ListIncomingTypedLinksResponse
listIncomingTypedLinksResponse pResponseStatus_ =
ListIncomingTypedLinksResponse'
- { _litlrsLinkSpecifiers = Nothing
- , _litlrsNextToken = Nothing
- , _litlrsResponseStatus = pResponseStatus_
- }
+ { _litlrsLinkSpecifiers = Nothing
+ , _litlrsNextToken = Nothing
+ , _litlrsResponseStatus = pResponseStatus_
+ }
-- | Returns one or more typed link specifiers as output.
litlrsLinkSpecifiers :: Lens' ListIncomingTypedLinksResponse [TypedLinkSpecifier]
-litlrsLinkSpecifiers = lens _litlrsLinkSpecifiers (\ s a -> s{_litlrsLinkSpecifiers = a}) . _Default . _Coerce;
+litlrsLinkSpecifiers = lens _litlrsLinkSpecifiers (\ s a -> s{_litlrsLinkSpecifiers = a}) . _Default . _Coerce
-- | The pagination token.
litlrsNextToken :: Lens' ListIncomingTypedLinksResponse (Maybe Text)
-litlrsNextToken = lens _litlrsNextToken (\ s a -> s{_litlrsNextToken = a});
+litlrsNextToken = lens _litlrsNextToken (\ s a -> s{_litlrsNextToken = a})
-- | -- | The response status code.
litlrsResponseStatus :: Lens' ListIncomingTypedLinksResponse Int
-litlrsResponseStatus = lens _litlrsResponseStatus (\ s a -> s{_litlrsResponseStatus = a});
+litlrsResponseStatus = lens _litlrsResponseStatus (\ s a -> s{_litlrsResponseStatus = a})
instance NFData ListIncomingTypedLinksResponse where
diff --git a/gen/Network/AWS/CloudDirectory/ListIndex.hs b/gen/Network/AWS/CloudDirectory/ListIndex.hs
index b6bf465..2dd2804 100644
--- a/gen/Network/AWS/CloudDirectory/ListIndex.hs
+++ b/gen/Network/AWS/CloudDirectory/ListIndex.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.ListIndex
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -21,6 +21,8 @@
-- Lists objects attached to the specified index.
--
--
+--
+-- This operation returns paginated results.
module Network.AWS.CloudDirectory.ListIndex
(
-- * Creating a Request
@@ -46,6 +48,7 @@ module Network.AWS.CloudDirectory.ListIndex
import Network.AWS.CloudDirectory.Types
import Network.AWS.CloudDirectory.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -71,7 +74,7 @@ data ListIndex = ListIndex'
--
-- * 'liNextToken' - The pagination token.
--
--- * 'liMaxResults' - The maximum number of results to retrieve from the index.
+-- * 'liMaxResults' - The maximum number of objects in a single page to retrieve from the index during a request. For more information, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/limits.html#limits_cd AWS Directory Service Limits> .
--
-- * 'liDirectoryARN' - The ARN of the directory that the index exists in.
--
@@ -82,38 +85,45 @@ listIndex
-> ListIndex
listIndex pDirectoryARN_ pIndexReference_ =
ListIndex'
- { _liRangesOnIndexedValues = Nothing
- , _liConsistencyLevel = Nothing
- , _liNextToken = Nothing
- , _liMaxResults = Nothing
- , _liDirectoryARN = pDirectoryARN_
- , _liIndexReference = pIndexReference_
- }
+ { _liRangesOnIndexedValues = Nothing
+ , _liConsistencyLevel = Nothing
+ , _liNextToken = Nothing
+ , _liMaxResults = Nothing
+ , _liDirectoryARN = pDirectoryARN_
+ , _liIndexReference = pIndexReference_
+ }
-- | Specifies the ranges of indexed values that you want to query.
liRangesOnIndexedValues :: Lens' ListIndex [ObjectAttributeRange]
-liRangesOnIndexedValues = lens _liRangesOnIndexedValues (\ s a -> s{_liRangesOnIndexedValues = a}) . _Default . _Coerce;
+liRangesOnIndexedValues = lens _liRangesOnIndexedValues (\ s a -> s{_liRangesOnIndexedValues = a}) . _Default . _Coerce
-- | The consistency level to execute the request at.
liConsistencyLevel :: Lens' ListIndex (Maybe ConsistencyLevel)
-liConsistencyLevel = lens _liConsistencyLevel (\ s a -> s{_liConsistencyLevel = a});
+liConsistencyLevel = lens _liConsistencyLevel (\ s a -> s{_liConsistencyLevel = a})
-- | The pagination token.
liNextToken :: Lens' ListIndex (Maybe Text)
-liNextToken = lens _liNextToken (\ s a -> s{_liNextToken = a});
+liNextToken = lens _liNextToken (\ s a -> s{_liNextToken = a})
--- | The maximum number of results to retrieve from the index.
+-- | The maximum number of objects in a single page to retrieve from the index during a request. For more information, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/limits.html#limits_cd AWS Directory Service Limits> .
liMaxResults :: Lens' ListIndex (Maybe Natural)
-liMaxResults = lens _liMaxResults (\ s a -> s{_liMaxResults = a}) . mapping _Nat;
+liMaxResults = lens _liMaxResults (\ s a -> s{_liMaxResults = a}) . mapping _Nat
-- | The ARN of the directory that the index exists in.
liDirectoryARN :: Lens' ListIndex Text
-liDirectoryARN = lens _liDirectoryARN (\ s a -> s{_liDirectoryARN = a});
+liDirectoryARN = lens _liDirectoryARN (\ s a -> s{_liDirectoryARN = a})
-- | The reference to the index to list.
liIndexReference :: Lens' ListIndex ObjectReference
-liIndexReference = lens _liIndexReference (\ s a -> s{_liIndexReference = a});
+liIndexReference = lens _liIndexReference (\ s a -> s{_liIndexReference = a})
+
+instance AWSPager ListIndex where
+ page rq rs
+ | stop (rs ^. lirsNextToken) = Nothing
+ | stop (rs ^. lirsIndexAttachments) = Nothing
+ | otherwise =
+ Just $ rq & liNextToken .~ rs ^. lirsNextToken
instance AWSRequest ListIndex where
type Rs ListIndex = ListIndexResponse
@@ -176,22 +186,22 @@ listIndexResponse
-> ListIndexResponse
listIndexResponse pResponseStatus_ =
ListIndexResponse'
- { _lirsIndexAttachments = Nothing
- , _lirsNextToken = Nothing
- , _lirsResponseStatus = pResponseStatus_
- }
+ { _lirsIndexAttachments = Nothing
+ , _lirsNextToken = Nothing
+ , _lirsResponseStatus = pResponseStatus_
+ }
-- | The objects and indexed values attached to the index.
lirsIndexAttachments :: Lens' ListIndexResponse [IndexAttachment]
-lirsIndexAttachments = lens _lirsIndexAttachments (\ s a -> s{_lirsIndexAttachments = a}) . _Default . _Coerce;
+lirsIndexAttachments = lens _lirsIndexAttachments (\ s a -> s{_lirsIndexAttachments = a}) . _Default . _Coerce
-- | The pagination token.
lirsNextToken :: Lens' ListIndexResponse (Maybe Text)
-lirsNextToken = lens _lirsNextToken (\ s a -> s{_lirsNextToken = a});
+lirsNextToken = lens _lirsNextToken (\ s a -> s{_lirsNextToken = a})
-- | -- | The response status code.
lirsResponseStatus :: Lens' ListIndexResponse Int
-lirsResponseStatus = lens _lirsResponseStatus (\ s a -> s{_lirsResponseStatus = a});
+lirsResponseStatus = lens _lirsResponseStatus (\ s a -> s{_lirsResponseStatus = a})
instance NFData ListIndexResponse where
diff --git a/gen/Network/AWS/CloudDirectory/ListObjectAttributes.hs b/gen/Network/AWS/CloudDirectory/ListObjectAttributes.hs
index 8286053..67b80d3 100644
--- a/gen/Network/AWS/CloudDirectory/ListObjectAttributes.hs
+++ b/gen/Network/AWS/CloudDirectory/ListObjectAttributes.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.ListObjectAttributes
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -21,6 +21,8 @@
-- Lists all attributes that are associated with an object.
--
--
+--
+-- This operation returns paginated results.
module Network.AWS.CloudDirectory.ListObjectAttributes
(
-- * Creating a Request
@@ -46,6 +48,7 @@ module Network.AWS.CloudDirectory.ListObjectAttributes
import Network.AWS.CloudDirectory.Types
import Network.AWS.CloudDirectory.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -82,38 +85,45 @@ listObjectAttributes
-> ListObjectAttributes
listObjectAttributes pDirectoryARN_ pObjectReference_ =
ListObjectAttributes'
- { _loaFacetFilter = Nothing
- , _loaConsistencyLevel = Nothing
- , _loaNextToken = Nothing
- , _loaMaxResults = Nothing
- , _loaDirectoryARN = pDirectoryARN_
- , _loaObjectReference = pObjectReference_
- }
+ { _loaFacetFilter = Nothing
+ , _loaConsistencyLevel = Nothing
+ , _loaNextToken = Nothing
+ , _loaMaxResults = Nothing
+ , _loaDirectoryARN = pDirectoryARN_
+ , _loaObjectReference = pObjectReference_
+ }
-- | Used to filter the list of object attributes that are associated with a certain facet.
loaFacetFilter :: Lens' ListObjectAttributes (Maybe SchemaFacet)
-loaFacetFilter = lens _loaFacetFilter (\ s a -> s{_loaFacetFilter = a});
+loaFacetFilter = lens _loaFacetFilter (\ s a -> s{_loaFacetFilter = a})
-- | Represents the manner and timing in which the successful write or update of an object is reflected in a subsequent read operation of that same object.
loaConsistencyLevel :: Lens' ListObjectAttributes (Maybe ConsistencyLevel)
-loaConsistencyLevel = lens _loaConsistencyLevel (\ s a -> s{_loaConsistencyLevel = a});
+loaConsistencyLevel = lens _loaConsistencyLevel (\ s a -> s{_loaConsistencyLevel = a})
-- | The pagination token.
loaNextToken :: Lens' ListObjectAttributes (Maybe Text)
-loaNextToken = lens _loaNextToken (\ s a -> s{_loaNextToken = a});
+loaNextToken = lens _loaNextToken (\ s a -> s{_loaNextToken = a})
-- | The maximum number of items to be retrieved in a single call. This is an approximate number.
loaMaxResults :: Lens' ListObjectAttributes (Maybe Natural)
-loaMaxResults = lens _loaMaxResults (\ s a -> s{_loaMaxResults = a}) . mapping _Nat;
+loaMaxResults = lens _loaMaxResults (\ s a -> s{_loaMaxResults = a}) . mapping _Nat
-- | The Amazon Resource Name (ARN) that is associated with the 'Directory' where the object resides. For more information, see 'arns' .
loaDirectoryARN :: Lens' ListObjectAttributes Text
-loaDirectoryARN = lens _loaDirectoryARN (\ s a -> s{_loaDirectoryARN = a});
+loaDirectoryARN = lens _loaDirectoryARN (\ s a -> s{_loaDirectoryARN = a})
-- | The reference that identifies the object whose attributes will be listed.
loaObjectReference :: Lens' ListObjectAttributes ObjectReference
-loaObjectReference = lens _loaObjectReference (\ s a -> s{_loaObjectReference = a});
+loaObjectReference = lens _loaObjectReference (\ s a -> s{_loaObjectReference = a})
+
+instance AWSPager ListObjectAttributes where
+ page rq rs
+ | stop (rs ^. loarsNextToken) = Nothing
+ | stop (rs ^. loarsAttributes) = Nothing
+ | otherwise =
+ Just $ rq & loaNextToken .~ rs ^. loarsNextToken
instance AWSRequest ListObjectAttributes where
type Rs ListObjectAttributes =
@@ -176,22 +186,22 @@ listObjectAttributesResponse
-> ListObjectAttributesResponse
listObjectAttributesResponse pResponseStatus_ =
ListObjectAttributesResponse'
- { _loarsNextToken = Nothing
- , _loarsAttributes = Nothing
- , _loarsResponseStatus = pResponseStatus_
- }
+ { _loarsNextToken = Nothing
+ , _loarsAttributes = Nothing
+ , _loarsResponseStatus = pResponseStatus_
+ }
-- | The pagination token.
loarsNextToken :: Lens' ListObjectAttributesResponse (Maybe Text)
-loarsNextToken = lens _loarsNextToken (\ s a -> s{_loarsNextToken = a});
+loarsNextToken = lens _loarsNextToken (\ s a -> s{_loarsNextToken = a})
-- | Attributes map that is associated with the object. @AttributeArn@ is the key, and attribute value is the value.
loarsAttributes :: Lens' ListObjectAttributesResponse [AttributeKeyAndValue]
-loarsAttributes = lens _loarsAttributes (\ s a -> s{_loarsAttributes = a}) . _Default . _Coerce;
+loarsAttributes = lens _loarsAttributes (\ s a -> s{_loarsAttributes = a}) . _Default . _Coerce
-- | -- | The response status code.
loarsResponseStatus :: Lens' ListObjectAttributesResponse Int
-loarsResponseStatus = lens _loarsResponseStatus (\ s a -> s{_loarsResponseStatus = a});
+loarsResponseStatus = lens _loarsResponseStatus (\ s a -> s{_loarsResponseStatus = a})
instance NFData ListObjectAttributesResponse where
diff --git a/gen/Network/AWS/CloudDirectory/ListObjectChildren.hs b/gen/Network/AWS/CloudDirectory/ListObjectChildren.hs
index a3ed062..5972577 100644
--- a/gen/Network/AWS/CloudDirectory/ListObjectChildren.hs
+++ b/gen/Network/AWS/CloudDirectory/ListObjectChildren.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.ListObjectChildren
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -78,33 +78,33 @@ listObjectChildren
-> ListObjectChildren
listObjectChildren pDirectoryARN_ pObjectReference_ =
ListObjectChildren'
- { _locConsistencyLevel = Nothing
- , _locNextToken = Nothing
- , _locMaxResults = Nothing
- , _locDirectoryARN = pDirectoryARN_
- , _locObjectReference = pObjectReference_
- }
+ { _locConsistencyLevel = Nothing
+ , _locNextToken = Nothing
+ , _locMaxResults = Nothing
+ , _locDirectoryARN = pDirectoryARN_
+ , _locObjectReference = pObjectReference_
+ }
-- | Represents the manner and timing in which the successful write or update of an object is reflected in a subsequent read operation of that same object.
locConsistencyLevel :: Lens' ListObjectChildren (Maybe ConsistencyLevel)
-locConsistencyLevel = lens _locConsistencyLevel (\ s a -> s{_locConsistencyLevel = a});
+locConsistencyLevel = lens _locConsistencyLevel (\ s a -> s{_locConsistencyLevel = a})
-- | The pagination token.
locNextToken :: Lens' ListObjectChildren (Maybe Text)
-locNextToken = lens _locNextToken (\ s a -> s{_locNextToken = a});
+locNextToken = lens _locNextToken (\ s a -> s{_locNextToken = a})
-- | The maximum number of items to be retrieved in a single call. This is an approximate number.
locMaxResults :: Lens' ListObjectChildren (Maybe Natural)
-locMaxResults = lens _locMaxResults (\ s a -> s{_locMaxResults = a}) . mapping _Nat;
+locMaxResults = lens _locMaxResults (\ s a -> s{_locMaxResults = a}) . mapping _Nat
-- | The Amazon Resource Name (ARN) that is associated with the 'Directory' where the object resides. For more information, see 'arns' .
locDirectoryARN :: Lens' ListObjectChildren Text
-locDirectoryARN = lens _locDirectoryARN (\ s a -> s{_locDirectoryARN = a});
+locDirectoryARN = lens _locDirectoryARN (\ s a -> s{_locDirectoryARN = a})
-- | The reference that identifies the object for which child objects are being listed.
locObjectReference :: Lens' ListObjectChildren ObjectReference
-locObjectReference = lens _locObjectReference (\ s a -> s{_locObjectReference = a});
+locObjectReference = lens _locObjectReference (\ s a -> s{_locObjectReference = a})
instance AWSRequest ListObjectChildren where
type Rs ListObjectChildren =
@@ -165,22 +165,22 @@ listObjectChildrenResponse
-> ListObjectChildrenResponse
listObjectChildrenResponse pResponseStatus_ =
ListObjectChildrenResponse'
- { _locrsChildren = Nothing
- , _locrsNextToken = Nothing
- , _locrsResponseStatus = pResponseStatus_
- }
+ { _locrsChildren = Nothing
+ , _locrsNextToken = Nothing
+ , _locrsResponseStatus = pResponseStatus_
+ }
-- | Children structure, which is a map with key as the @LinkName@ and @ObjectIdentifier@ as the value.
locrsChildren :: Lens' ListObjectChildrenResponse (HashMap Text Text)
-locrsChildren = lens _locrsChildren (\ s a -> s{_locrsChildren = a}) . _Default . _Map;
+locrsChildren = lens _locrsChildren (\ s a -> s{_locrsChildren = a}) . _Default . _Map
-- | The pagination token.
locrsNextToken :: Lens' ListObjectChildrenResponse (Maybe Text)
-locrsNextToken = lens _locrsNextToken (\ s a -> s{_locrsNextToken = a});
+locrsNextToken = lens _locrsNextToken (\ s a -> s{_locrsNextToken = a})
-- | -- | The response status code.
locrsResponseStatus :: Lens' ListObjectChildrenResponse Int
-locrsResponseStatus = lens _locrsResponseStatus (\ s a -> s{_locrsResponseStatus = a});
+locrsResponseStatus = lens _locrsResponseStatus (\ s a -> s{_locrsResponseStatus = a})
instance NFData ListObjectChildrenResponse where
diff --git a/gen/Network/AWS/CloudDirectory/ListObjectParentPaths.hs b/gen/Network/AWS/CloudDirectory/ListObjectParentPaths.hs
index 06dfb79..a80b5dc 100644
--- a/gen/Network/AWS/CloudDirectory/ListObjectParentPaths.hs
+++ b/gen/Network/AWS/CloudDirectory/ListObjectParentPaths.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.ListObjectParentPaths
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -23,6 +23,8 @@
--
-- Use this API to evaluate all parents for an object. The call returns all objects from the root of the directory up to the requested object. The API returns the number of paths based on user-defined @MaxResults@ , in case there are multiple paths to the parent. The order of the paths and nodes returned is consistent among multiple API calls unless the objects are deleted or moved. Paths not leading to the directory root are ignored from the target object.
--
+--
+-- This operation returns paginated results.
module Network.AWS.CloudDirectory.ListObjectParentPaths
(
-- * Creating a Request
@@ -46,6 +48,7 @@ module Network.AWS.CloudDirectory.ListObjectParentPaths
import Network.AWS.CloudDirectory.Types
import Network.AWS.CloudDirectory.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -76,28 +79,36 @@ listObjectParentPaths
-> ListObjectParentPaths
listObjectParentPaths pDirectoryARN_ pObjectReference_ =
ListObjectParentPaths'
- { _loppNextToken = Nothing
- , _loppMaxResults = Nothing
- , _loppDirectoryARN = pDirectoryARN_
- , _loppObjectReference = pObjectReference_
- }
+ { _loppNextToken = Nothing
+ , _loppMaxResults = Nothing
+ , _loppDirectoryARN = pDirectoryARN_
+ , _loppObjectReference = pObjectReference_
+ }
-- | The pagination token.
loppNextToken :: Lens' ListObjectParentPaths (Maybe Text)
-loppNextToken = lens _loppNextToken (\ s a -> s{_loppNextToken = a});
+loppNextToken = lens _loppNextToken (\ s a -> s{_loppNextToken = a})
-- | The maximum number of items to be retrieved in a single call. This is an approximate number.
loppMaxResults :: Lens' ListObjectParentPaths (Maybe Natural)
-loppMaxResults = lens _loppMaxResults (\ s a -> s{_loppMaxResults = a}) . mapping _Nat;
+loppMaxResults = lens _loppMaxResults (\ s a -> s{_loppMaxResults = a}) . mapping _Nat
-- | The ARN of the directory to which the parent path applies.
loppDirectoryARN :: Lens' ListObjectParentPaths Text
-loppDirectoryARN = lens _loppDirectoryARN (\ s a -> s{_loppDirectoryARN = a});
+loppDirectoryARN = lens _loppDirectoryARN (\ s a -> s{_loppDirectoryARN = a})
-- | The reference that identifies the object whose parent paths are listed.
loppObjectReference :: Lens' ListObjectParentPaths ObjectReference
-loppObjectReference = lens _loppObjectReference (\ s a -> s{_loppObjectReference = a});
+loppObjectReference = lens _loppObjectReference (\ s a -> s{_loppObjectReference = a})
+
+instance AWSPager ListObjectParentPaths where
+ page rq rs
+ | stop (rs ^. lopprsNextToken) = Nothing
+ | stop (rs ^. lopprsPathToObjectIdentifiersList) =
+ Nothing
+ | otherwise =
+ Just $ rq & loppNextToken .~ rs ^. lopprsNextToken
instance AWSRequest ListObjectParentPaths where
type Rs ListObjectParentPaths =
@@ -158,22 +169,22 @@ listObjectParentPathsResponse
-> ListObjectParentPathsResponse
listObjectParentPathsResponse pResponseStatus_ =
ListObjectParentPathsResponse'
- { _lopprsPathToObjectIdentifiersList = Nothing
- , _lopprsNextToken = Nothing
- , _lopprsResponseStatus = pResponseStatus_
- }
+ { _lopprsPathToObjectIdentifiersList = Nothing
+ , _lopprsNextToken = Nothing
+ , _lopprsResponseStatus = pResponseStatus_
+ }
-- | Returns the path to the @ObjectIdentifiers@ that are associated with the directory.
lopprsPathToObjectIdentifiersList :: Lens' ListObjectParentPathsResponse [PathToObjectIdentifiers]
-lopprsPathToObjectIdentifiersList = lens _lopprsPathToObjectIdentifiersList (\ s a -> s{_lopprsPathToObjectIdentifiersList = a}) . _Default . _Coerce;
+lopprsPathToObjectIdentifiersList = lens _lopprsPathToObjectIdentifiersList (\ s a -> s{_lopprsPathToObjectIdentifiersList = a}) . _Default . _Coerce
-- | The pagination token.
lopprsNextToken :: Lens' ListObjectParentPathsResponse (Maybe Text)
-lopprsNextToken = lens _lopprsNextToken (\ s a -> s{_lopprsNextToken = a});
+lopprsNextToken = lens _lopprsNextToken (\ s a -> s{_lopprsNextToken = a})
-- | -- | The response status code.
lopprsResponseStatus :: Lens' ListObjectParentPathsResponse Int
-lopprsResponseStatus = lens _lopprsResponseStatus (\ s a -> s{_lopprsResponseStatus = a});
+lopprsResponseStatus = lens _lopprsResponseStatus (\ s a -> s{_lopprsResponseStatus = a})
instance NFData ListObjectParentPathsResponse where
diff --git a/gen/Network/AWS/CloudDirectory/ListObjectParents.hs b/gen/Network/AWS/CloudDirectory/ListObjectParents.hs
index a0b1f80..92af747 100644
--- a/gen/Network/AWS/CloudDirectory/ListObjectParents.hs
+++ b/gen/Network/AWS/CloudDirectory/ListObjectParents.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.ListObjectParents
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -78,33 +78,33 @@ listObjectParents
-> ListObjectParents
listObjectParents pDirectoryARN_ pObjectReference_ =
ListObjectParents'
- { _lopConsistencyLevel = Nothing
- , _lopNextToken = Nothing
- , _lopMaxResults = Nothing
- , _lopDirectoryARN = pDirectoryARN_
- , _lopObjectReference = pObjectReference_
- }
+ { _lopConsistencyLevel = Nothing
+ , _lopNextToken = Nothing
+ , _lopMaxResults = Nothing
+ , _lopDirectoryARN = pDirectoryARN_
+ , _lopObjectReference = pObjectReference_
+ }
-- | Represents the manner and timing in which the successful write or update of an object is reflected in a subsequent read operation of that same object.
lopConsistencyLevel :: Lens' ListObjectParents (Maybe ConsistencyLevel)
-lopConsistencyLevel = lens _lopConsistencyLevel (\ s a -> s{_lopConsistencyLevel = a});
+lopConsistencyLevel = lens _lopConsistencyLevel (\ s a -> s{_lopConsistencyLevel = a})
-- | The pagination token.
lopNextToken :: Lens' ListObjectParents (Maybe Text)
-lopNextToken = lens _lopNextToken (\ s a -> s{_lopNextToken = a});
+lopNextToken = lens _lopNextToken (\ s a -> s{_lopNextToken = a})
-- | The maximum number of items to be retrieved in a single call. This is an approximate number.
lopMaxResults :: Lens' ListObjectParents (Maybe Natural)
-lopMaxResults = lens _lopMaxResults (\ s a -> s{_lopMaxResults = a}) . mapping _Nat;
+lopMaxResults = lens _lopMaxResults (\ s a -> s{_lopMaxResults = a}) . mapping _Nat
-- | The Amazon Resource Name (ARN) that is associated with the 'Directory' where the object resides. For more information, see 'arns' .
lopDirectoryARN :: Lens' ListObjectParents Text
-lopDirectoryARN = lens _lopDirectoryARN (\ s a -> s{_lopDirectoryARN = a});
+lopDirectoryARN = lens _lopDirectoryARN (\ s a -> s{_lopDirectoryARN = a})
-- | The reference that identifies the object for which parent objects are being listed.
lopObjectReference :: Lens' ListObjectParents ObjectReference
-lopObjectReference = lens _lopObjectReference (\ s a -> s{_lopObjectReference = a});
+lopObjectReference = lens _lopObjectReference (\ s a -> s{_lopObjectReference = a})
instance AWSRequest ListObjectParents where
type Rs ListObjectParents = ListObjectParentsResponse
@@ -164,22 +164,22 @@ listObjectParentsResponse
-> ListObjectParentsResponse
listObjectParentsResponse pResponseStatus_ =
ListObjectParentsResponse'
- { _lrsNextToken = Nothing
- , _lrsParents = Nothing
- , _lrsResponseStatus = pResponseStatus_
- }
+ { _lrsNextToken = Nothing
+ , _lrsParents = Nothing
+ , _lrsResponseStatus = pResponseStatus_
+ }
-- | The pagination token.
lrsNextToken :: Lens' ListObjectParentsResponse (Maybe Text)
-lrsNextToken = lens _lrsNextToken (\ s a -> s{_lrsNextToken = a});
+lrsNextToken = lens _lrsNextToken (\ s a -> s{_lrsNextToken = a})
-- | The parent structure, which is a map with key as the @ObjectIdentifier@ and LinkName as the value.
lrsParents :: Lens' ListObjectParentsResponse (HashMap Text Text)
-lrsParents = lens _lrsParents (\ s a -> s{_lrsParents = a}) . _Default . _Map;
+lrsParents = lens _lrsParents (\ s a -> s{_lrsParents = a}) . _Default . _Map
-- | -- | The response status code.
lrsResponseStatus :: Lens' ListObjectParentsResponse Int
-lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a});
+lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a})
instance NFData ListObjectParentsResponse where
diff --git a/gen/Network/AWS/CloudDirectory/ListObjectPolicies.hs b/gen/Network/AWS/CloudDirectory/ListObjectPolicies.hs
index 50a23ae..b733b31 100644
--- a/gen/Network/AWS/CloudDirectory/ListObjectPolicies.hs
+++ b/gen/Network/AWS/CloudDirectory/ListObjectPolicies.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.ListObjectPolicies
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -21,6 +21,8 @@
-- Returns policies attached to an object in pagination fashion.
--
--
+--
+-- This operation returns paginated results.
module Network.AWS.CloudDirectory.ListObjectPolicies
(
-- * Creating a Request
@@ -45,6 +47,7 @@ module Network.AWS.CloudDirectory.ListObjectPolicies
import Network.AWS.CloudDirectory.Types
import Network.AWS.CloudDirectory.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -78,33 +81,40 @@ listObjectPolicies
-> ListObjectPolicies
listObjectPolicies pDirectoryARN_ pObjectReference_ =
ListObjectPolicies'
- { _lConsistencyLevel = Nothing
- , _lNextToken = Nothing
- , _lMaxResults = Nothing
- , _lDirectoryARN = pDirectoryARN_
- , _lObjectReference = pObjectReference_
- }
+ { _lConsistencyLevel = Nothing
+ , _lNextToken = Nothing
+ , _lMaxResults = Nothing
+ , _lDirectoryARN = pDirectoryARN_
+ , _lObjectReference = pObjectReference_
+ }
-- | Represents the manner and timing in which the successful write or update of an object is reflected in a subsequent read operation of that same object.
lConsistencyLevel :: Lens' ListObjectPolicies (Maybe ConsistencyLevel)
-lConsistencyLevel = lens _lConsistencyLevel (\ s a -> s{_lConsistencyLevel = a});
+lConsistencyLevel = lens _lConsistencyLevel (\ s a -> s{_lConsistencyLevel = a})
-- | The pagination token.
lNextToken :: Lens' ListObjectPolicies (Maybe Text)
-lNextToken = lens _lNextToken (\ s a -> s{_lNextToken = a});
+lNextToken = lens _lNextToken (\ s a -> s{_lNextToken = a})
-- | The maximum number of items to be retrieved in a single call. This is an approximate number.
lMaxResults :: Lens' ListObjectPolicies (Maybe Natural)
-lMaxResults = lens _lMaxResults (\ s a -> s{_lMaxResults = a}) . mapping _Nat;
+lMaxResults = lens _lMaxResults (\ s a -> s{_lMaxResults = a}) . mapping _Nat
-- | The Amazon Resource Name (ARN) that is associated with the 'Directory' where objects reside. For more information, see 'arns' .
lDirectoryARN :: Lens' ListObjectPolicies Text
-lDirectoryARN = lens _lDirectoryARN (\ s a -> s{_lDirectoryARN = a});
+lDirectoryARN = lens _lDirectoryARN (\ s a -> s{_lDirectoryARN = a})
-- | Reference that identifies the object for which policies will be listed.
lObjectReference :: Lens' ListObjectPolicies ObjectReference
-lObjectReference = lens _lObjectReference (\ s a -> s{_lObjectReference = a});
+lObjectReference = lens _lObjectReference (\ s a -> s{_lObjectReference = a})
+
+instance AWSPager ListObjectPolicies where
+ page rq rs
+ | stop (rs ^. loprsNextToken) = Nothing
+ | stop (rs ^. loprsAttachedPolicyIds) = Nothing
+ | otherwise =
+ Just $ rq & lNextToken .~ rs ^. loprsNextToken
instance AWSRequest ListObjectPolicies where
type Rs ListObjectPolicies =
@@ -166,22 +176,22 @@ listObjectPoliciesResponse
-> ListObjectPoliciesResponse
listObjectPoliciesResponse pResponseStatus_ =
ListObjectPoliciesResponse'
- { _loprsNextToken = Nothing
- , _loprsAttachedPolicyIds = Nothing
- , _loprsResponseStatus = pResponseStatus_
- }
+ { _loprsNextToken = Nothing
+ , _loprsAttachedPolicyIds = Nothing
+ , _loprsResponseStatus = pResponseStatus_
+ }
-- | The pagination token.
loprsNextToken :: Lens' ListObjectPoliciesResponse (Maybe Text)
-loprsNextToken = lens _loprsNextToken (\ s a -> s{_loprsNextToken = a});
+loprsNextToken = lens _loprsNextToken (\ s a -> s{_loprsNextToken = a})
-- | A list of policy @ObjectIdentifiers@ , that are attached to the object.
loprsAttachedPolicyIds :: Lens' ListObjectPoliciesResponse [Text]
-loprsAttachedPolicyIds = lens _loprsAttachedPolicyIds (\ s a -> s{_loprsAttachedPolicyIds = a}) . _Default . _Coerce;
+loprsAttachedPolicyIds = lens _loprsAttachedPolicyIds (\ s a -> s{_loprsAttachedPolicyIds = a}) . _Default . _Coerce
-- | -- | The response status code.
loprsResponseStatus :: Lens' ListObjectPoliciesResponse Int
-loprsResponseStatus = lens _loprsResponseStatus (\ s a -> s{_loprsResponseStatus = a});
+loprsResponseStatus = lens _loprsResponseStatus (\ s a -> s{_loprsResponseStatus = a})
instance NFData ListObjectPoliciesResponse where
diff --git a/gen/Network/AWS/CloudDirectory/ListOutgoingTypedLinks.hs b/gen/Network/AWS/CloudDirectory/ListOutgoingTypedLinks.hs
index 22b42de..25639ca 100644
--- a/gen/Network/AWS/CloudDirectory/ListOutgoingTypedLinks.hs
+++ b/gen/Network/AWS/CloudDirectory/ListOutgoingTypedLinks.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.ListOutgoingTypedLinks
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -86,43 +86,43 @@ listOutgoingTypedLinks
-> ListOutgoingTypedLinks
listOutgoingTypedLinks pDirectoryARN_ pObjectReference_ =
ListOutgoingTypedLinks'
- { _lotlFilterAttributeRanges = Nothing
- , _lotlConsistencyLevel = Nothing
- , _lotlNextToken = Nothing
- , _lotlFilterTypedLink = Nothing
- , _lotlMaxResults = Nothing
- , _lotlDirectoryARN = pDirectoryARN_
- , _lotlObjectReference = pObjectReference_
- }
+ { _lotlFilterAttributeRanges = Nothing
+ , _lotlConsistencyLevel = Nothing
+ , _lotlNextToken = Nothing
+ , _lotlFilterTypedLink = Nothing
+ , _lotlMaxResults = Nothing
+ , _lotlDirectoryARN = pDirectoryARN_
+ , _lotlObjectReference = pObjectReference_
+ }
-- | Provides range filters for multiple attributes. When providing ranges to typed link selection, any inexact ranges must be specified at the end. Any attributes that do not have a range specified are presumed to match the entire range.
lotlFilterAttributeRanges :: Lens' ListOutgoingTypedLinks [TypedLinkAttributeRange]
-lotlFilterAttributeRanges = lens _lotlFilterAttributeRanges (\ s a -> s{_lotlFilterAttributeRanges = a}) . _Default . _Coerce;
+lotlFilterAttributeRanges = lens _lotlFilterAttributeRanges (\ s a -> s{_lotlFilterAttributeRanges = a}) . _Default . _Coerce
-- | The consistency level to execute the request at.
lotlConsistencyLevel :: Lens' ListOutgoingTypedLinks (Maybe ConsistencyLevel)
-lotlConsistencyLevel = lens _lotlConsistencyLevel (\ s a -> s{_lotlConsistencyLevel = a});
+lotlConsistencyLevel = lens _lotlConsistencyLevel (\ s a -> s{_lotlConsistencyLevel = a})
-- | The pagination token.
lotlNextToken :: Lens' ListOutgoingTypedLinks (Maybe Text)
-lotlNextToken = lens _lotlNextToken (\ s a -> s{_lotlNextToken = a});
+lotlNextToken = lens _lotlNextToken (\ s a -> s{_lotlNextToken = a})
-- | Filters are interpreted in the order of the attributes defined on the typed link facet, not the order they are supplied to any API calls.
lotlFilterTypedLink :: Lens' ListOutgoingTypedLinks (Maybe TypedLinkSchemaAndFacetName)
-lotlFilterTypedLink = lens _lotlFilterTypedLink (\ s a -> s{_lotlFilterTypedLink = a});
+lotlFilterTypedLink = lens _lotlFilterTypedLink (\ s a -> s{_lotlFilterTypedLink = a})
-- | The maximum number of results to retrieve.
lotlMaxResults :: Lens' ListOutgoingTypedLinks (Maybe Natural)
-lotlMaxResults = lens _lotlMaxResults (\ s a -> s{_lotlMaxResults = a}) . mapping _Nat;
+lotlMaxResults = lens _lotlMaxResults (\ s a -> s{_lotlMaxResults = a}) . mapping _Nat
-- | The Amazon Resource Name (ARN) of the directory where you want to list the typed links.
lotlDirectoryARN :: Lens' ListOutgoingTypedLinks Text
-lotlDirectoryARN = lens _lotlDirectoryARN (\ s a -> s{_lotlDirectoryARN = a});
+lotlDirectoryARN = lens _lotlDirectoryARN (\ s a -> s{_lotlDirectoryARN = a})
-- | A reference that identifies the object whose attributes will be listed.
lotlObjectReference :: Lens' ListOutgoingTypedLinks ObjectReference
-lotlObjectReference = lens _lotlObjectReference (\ s a -> s{_lotlObjectReference = a});
+lotlObjectReference = lens _lotlObjectReference (\ s a -> s{_lotlObjectReference = a})
instance AWSRequest ListOutgoingTypedLinks where
type Rs ListOutgoingTypedLinks =
@@ -187,22 +187,22 @@ listOutgoingTypedLinksResponse
-> ListOutgoingTypedLinksResponse
listOutgoingTypedLinksResponse pResponseStatus_ =
ListOutgoingTypedLinksResponse'
- { _lotlrsTypedLinkSpecifiers = Nothing
- , _lotlrsNextToken = Nothing
- , _lotlrsResponseStatus = pResponseStatus_
- }
+ { _lotlrsTypedLinkSpecifiers = Nothing
+ , _lotlrsNextToken = Nothing
+ , _lotlrsResponseStatus = pResponseStatus_
+ }
-- | Returns a typed link specifier as output.
lotlrsTypedLinkSpecifiers :: Lens' ListOutgoingTypedLinksResponse [TypedLinkSpecifier]
-lotlrsTypedLinkSpecifiers = lens _lotlrsTypedLinkSpecifiers (\ s a -> s{_lotlrsTypedLinkSpecifiers = a}) . _Default . _Coerce;
+lotlrsTypedLinkSpecifiers = lens _lotlrsTypedLinkSpecifiers (\ s a -> s{_lotlrsTypedLinkSpecifiers = a}) . _Default . _Coerce
-- | The pagination token.
lotlrsNextToken :: Lens' ListOutgoingTypedLinksResponse (Maybe Text)
-lotlrsNextToken = lens _lotlrsNextToken (\ s a -> s{_lotlrsNextToken = a});
+lotlrsNextToken = lens _lotlrsNextToken (\ s a -> s{_lotlrsNextToken = a})
-- | -- | The response status code.
lotlrsResponseStatus :: Lens' ListOutgoingTypedLinksResponse Int
-lotlrsResponseStatus = lens _lotlrsResponseStatus (\ s a -> s{_lotlrsResponseStatus = a});
+lotlrsResponseStatus = lens _lotlrsResponseStatus (\ s a -> s{_lotlrsResponseStatus = a})
instance NFData ListOutgoingTypedLinksResponse where
diff --git a/gen/Network/AWS/CloudDirectory/ListPolicyAttachments.hs b/gen/Network/AWS/CloudDirectory/ListPolicyAttachments.hs
index 9b7e886..da1d4e6 100644
--- a/gen/Network/AWS/CloudDirectory/ListPolicyAttachments.hs
+++ b/gen/Network/AWS/CloudDirectory/ListPolicyAttachments.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.ListPolicyAttachments
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -21,6 +21,8 @@
-- Returns all of the @ObjectIdentifiers@ to which a given policy is attached.
--
--
+--
+-- This operation returns paginated results.
module Network.AWS.CloudDirectory.ListPolicyAttachments
(
-- * Creating a Request
@@ -45,6 +47,7 @@ module Network.AWS.CloudDirectory.ListPolicyAttachments
import Network.AWS.CloudDirectory.Types
import Network.AWS.CloudDirectory.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -78,33 +81,40 @@ listPolicyAttachments
-> ListPolicyAttachments
listPolicyAttachments pDirectoryARN_ pPolicyReference_ =
ListPolicyAttachments'
- { _lpaConsistencyLevel = Nothing
- , _lpaNextToken = Nothing
- , _lpaMaxResults = Nothing
- , _lpaDirectoryARN = pDirectoryARN_
- , _lpaPolicyReference = pPolicyReference_
- }
+ { _lpaConsistencyLevel = Nothing
+ , _lpaNextToken = Nothing
+ , _lpaMaxResults = Nothing
+ , _lpaDirectoryARN = pDirectoryARN_
+ , _lpaPolicyReference = pPolicyReference_
+ }
-- | Represents the manner and timing in which the successful write or update of an object is reflected in a subsequent read operation of that same object.
lpaConsistencyLevel :: Lens' ListPolicyAttachments (Maybe ConsistencyLevel)
-lpaConsistencyLevel = lens _lpaConsistencyLevel (\ s a -> s{_lpaConsistencyLevel = a});
+lpaConsistencyLevel = lens _lpaConsistencyLevel (\ s a -> s{_lpaConsistencyLevel = a})
-- | The pagination token.
lpaNextToken :: Lens' ListPolicyAttachments (Maybe Text)
-lpaNextToken = lens _lpaNextToken (\ s a -> s{_lpaNextToken = a});
+lpaNextToken = lens _lpaNextToken (\ s a -> s{_lpaNextToken = a})
-- | The maximum number of items to be retrieved in a single call. This is an approximate number.
lpaMaxResults :: Lens' ListPolicyAttachments (Maybe Natural)
-lpaMaxResults = lens _lpaMaxResults (\ s a -> s{_lpaMaxResults = a}) . mapping _Nat;
+lpaMaxResults = lens _lpaMaxResults (\ s a -> s{_lpaMaxResults = a}) . mapping _Nat
-- | The Amazon Resource Name (ARN) that is associated with the 'Directory' where objects reside. For more information, see 'arns' .
lpaDirectoryARN :: Lens' ListPolicyAttachments Text
-lpaDirectoryARN = lens _lpaDirectoryARN (\ s a -> s{_lpaDirectoryARN = a});
+lpaDirectoryARN = lens _lpaDirectoryARN (\ s a -> s{_lpaDirectoryARN = a})
-- | The reference that identifies the policy object.
lpaPolicyReference :: Lens' ListPolicyAttachments ObjectReference
-lpaPolicyReference = lens _lpaPolicyReference (\ s a -> s{_lpaPolicyReference = a});
+lpaPolicyReference = lens _lpaPolicyReference (\ s a -> s{_lpaPolicyReference = a})
+
+instance AWSPager ListPolicyAttachments where
+ page rq rs
+ | stop (rs ^. lparsNextToken) = Nothing
+ | stop (rs ^. lparsObjectIdentifiers) = Nothing
+ | otherwise =
+ Just $ rq & lpaNextToken .~ rs ^. lparsNextToken
instance AWSRequest ListPolicyAttachments where
type Rs ListPolicyAttachments =
@@ -166,22 +176,22 @@ listPolicyAttachmentsResponse
-> ListPolicyAttachmentsResponse
listPolicyAttachmentsResponse pResponseStatus_ =
ListPolicyAttachmentsResponse'
- { _lparsObjectIdentifiers = Nothing
- , _lparsNextToken = Nothing
- , _lparsResponseStatus = pResponseStatus_
- }
+ { _lparsObjectIdentifiers = Nothing
+ , _lparsNextToken = Nothing
+ , _lparsResponseStatus = pResponseStatus_
+ }
-- | A list of @ObjectIdentifiers@ to which the policy is attached.
lparsObjectIdentifiers :: Lens' ListPolicyAttachmentsResponse [Text]
-lparsObjectIdentifiers = lens _lparsObjectIdentifiers (\ s a -> s{_lparsObjectIdentifiers = a}) . _Default . _Coerce;
+lparsObjectIdentifiers = lens _lparsObjectIdentifiers (\ s a -> s{_lparsObjectIdentifiers = a}) . _Default . _Coerce
-- | The pagination token.
lparsNextToken :: Lens' ListPolicyAttachmentsResponse (Maybe Text)
-lparsNextToken = lens _lparsNextToken (\ s a -> s{_lparsNextToken = a});
+lparsNextToken = lens _lparsNextToken (\ s a -> s{_lparsNextToken = a})
-- | -- | The response status code.
lparsResponseStatus :: Lens' ListPolicyAttachmentsResponse Int
-lparsResponseStatus = lens _lparsResponseStatus (\ s a -> s{_lparsResponseStatus = a});
+lparsResponseStatus = lens _lparsResponseStatus (\ s a -> s{_lparsResponseStatus = a})
instance NFData ListPolicyAttachmentsResponse where
diff --git a/gen/Network/AWS/CloudDirectory/ListPublishedSchemaARNs.hs b/gen/Network/AWS/CloudDirectory/ListPublishedSchemaARNs.hs
index fd5cfdb..35cf7bb 100644
--- a/gen/Network/AWS/CloudDirectory/ListPublishedSchemaARNs.hs
+++ b/gen/Network/AWS/CloudDirectory/ListPublishedSchemaARNs.hs
@@ -12,15 +12,17 @@
-- |
-- Module : Network.AWS.CloudDirectory.ListPublishedSchemaARNs
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Retrieves each published schema Amazon Resource Name (ARN).
+-- Lists the major version families of each published schema. If a major version ARN is provided as @SchemaArn@ , the minor version revisions in that family are listed instead.
--
--
+--
+-- This operation returns paginated results.
module Network.AWS.CloudDirectory.ListPublishedSchemaARNs
(
-- * Creating a Request
@@ -28,6 +30,7 @@ module Network.AWS.CloudDirectory.ListPublishedSchemaARNs
, ListPublishedSchemaARNs
-- * Request Lenses
, lpsaNextToken
+ , lpsaSchemaARN
, lpsaMaxResults
-- * Destructuring the Response
@@ -42,6 +45,7 @@ module Network.AWS.CloudDirectory.ListPublishedSchemaARNs
import Network.AWS.CloudDirectory.Types
import Network.AWS.CloudDirectory.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -49,6 +53,7 @@ import Network.AWS.Response
-- | /See:/ 'listPublishedSchemaARNs' smart constructor.
data ListPublishedSchemaARNs = ListPublishedSchemaARNs'
{ _lpsaNextToken :: !(Maybe Text)
+ , _lpsaSchemaARN :: !(Maybe Text)
, _lpsaMaxResults :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
@@ -59,20 +64,37 @@ data ListPublishedSchemaARNs = ListPublishedSchemaARNs'
--
-- * 'lpsaNextToken' - The pagination token.
--
+-- * 'lpsaSchemaARN' - The response for @ListPublishedSchemaArns@ when this parameter is used will list all minor version ARNs for a major version.
+--
-- * 'lpsaMaxResults' - The maximum number of results to retrieve.
listPublishedSchemaARNs
:: ListPublishedSchemaARNs
listPublishedSchemaARNs =
- ListPublishedSchemaARNs' {_lpsaNextToken = Nothing, _lpsaMaxResults = Nothing}
+ ListPublishedSchemaARNs'
+ { _lpsaNextToken = Nothing
+ , _lpsaSchemaARN = Nothing
+ , _lpsaMaxResults = Nothing
+ }
-- | The pagination token.
lpsaNextToken :: Lens' ListPublishedSchemaARNs (Maybe Text)
-lpsaNextToken = lens _lpsaNextToken (\ s a -> s{_lpsaNextToken = a});
+lpsaNextToken = lens _lpsaNextToken (\ s a -> s{_lpsaNextToken = a})
+
+-- | The response for @ListPublishedSchemaArns@ when this parameter is used will list all minor version ARNs for a major version.
+lpsaSchemaARN :: Lens' ListPublishedSchemaARNs (Maybe Text)
+lpsaSchemaARN = lens _lpsaSchemaARN (\ s a -> s{_lpsaSchemaARN = a})
-- | The maximum number of results to retrieve.
lpsaMaxResults :: Lens' ListPublishedSchemaARNs (Maybe Natural)
-lpsaMaxResults = lens _lpsaMaxResults (\ s a -> s{_lpsaMaxResults = a}) . mapping _Nat;
+lpsaMaxResults = lens _lpsaMaxResults (\ s a -> s{_lpsaMaxResults = a}) . mapping _Nat
+
+instance AWSPager ListPublishedSchemaARNs where
+ page rq rs
+ | stop (rs ^. lpsarsNextToken) = Nothing
+ | stop (rs ^. lpsarsSchemaARNs) = Nothing
+ | otherwise =
+ Just $ rq & lpsaNextToken .~ rs ^. lpsarsNextToken
instance AWSRequest ListPublishedSchemaARNs where
type Rs ListPublishedSchemaARNs =
@@ -98,6 +120,7 @@ instance ToJSON ListPublishedSchemaARNs where
= object
(catMaybes
[("NextToken" .=) <$> _lpsaNextToken,
+ ("SchemaArn" .=) <$> _lpsaSchemaARN,
("MaxResults" .=) <$> _lpsaMaxResults])
instance ToPath ListPublishedSchemaARNs where
@@ -130,22 +153,22 @@ listPublishedSchemaARNsResponse
-> ListPublishedSchemaARNsResponse
listPublishedSchemaARNsResponse pResponseStatus_ =
ListPublishedSchemaARNsResponse'
- { _lpsarsSchemaARNs = Nothing
- , _lpsarsNextToken = Nothing
- , _lpsarsResponseStatus = pResponseStatus_
- }
+ { _lpsarsSchemaARNs = Nothing
+ , _lpsarsNextToken = Nothing
+ , _lpsarsResponseStatus = pResponseStatus_
+ }
-- | The ARNs of published schemas.
lpsarsSchemaARNs :: Lens' ListPublishedSchemaARNsResponse [Text]
-lpsarsSchemaARNs = lens _lpsarsSchemaARNs (\ s a -> s{_lpsarsSchemaARNs = a}) . _Default . _Coerce;
+lpsarsSchemaARNs = lens _lpsarsSchemaARNs (\ s a -> s{_lpsarsSchemaARNs = a}) . _Default . _Coerce
-- | The pagination token.
lpsarsNextToken :: Lens' ListPublishedSchemaARNsResponse (Maybe Text)
-lpsarsNextToken = lens _lpsarsNextToken (\ s a -> s{_lpsarsNextToken = a});
+lpsarsNextToken = lens _lpsarsNextToken (\ s a -> s{_lpsarsNextToken = a})
-- | -- | The response status code.
lpsarsResponseStatus :: Lens' ListPublishedSchemaARNsResponse Int
-lpsarsResponseStatus = lens _lpsarsResponseStatus (\ s a -> s{_lpsarsResponseStatus = a});
+lpsarsResponseStatus = lens _lpsarsResponseStatus (\ s a -> s{_lpsarsResponseStatus = a})
instance NFData ListPublishedSchemaARNsResponse where
diff --git a/gen/Network/AWS/CloudDirectory/ListTagsForResource.hs b/gen/Network/AWS/CloudDirectory/ListTagsForResource.hs
index 854e4f3..c724037 100644
--- a/gen/Network/AWS/CloudDirectory/ListTagsForResource.hs
+++ b/gen/Network/AWS/CloudDirectory/ListTagsForResource.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.ListTagsForResource
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -21,6 +21,8 @@
-- Returns tags for a resource. Tagging is currently supported only for directories with a limit of 50 tags per directory. All 50 tags are returned for a given directory with this API call.
--
--
+--
+-- This operation returns paginated results.
module Network.AWS.CloudDirectory.ListTagsForResource
(
-- * Creating a Request
@@ -43,6 +45,7 @@ module Network.AWS.CloudDirectory.ListTagsForResource
import Network.AWS.CloudDirectory.Types
import Network.AWS.CloudDirectory.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -69,23 +72,30 @@ listTagsForResource
-> ListTagsForResource
listTagsForResource pResourceARN_ =
ListTagsForResource'
- { _ltfrNextToken = Nothing
- , _ltfrMaxResults = Nothing
- , _ltfrResourceARN = pResourceARN_
- }
+ { _ltfrNextToken = Nothing
+ , _ltfrMaxResults = Nothing
+ , _ltfrResourceARN = pResourceARN_
+ }
-- | The pagination token. This is for future use. Currently pagination is not supported for tagging.
ltfrNextToken :: Lens' ListTagsForResource (Maybe Text)
-ltfrNextToken = lens _ltfrNextToken (\ s a -> s{_ltfrNextToken = a});
+ltfrNextToken = lens _ltfrNextToken (\ s a -> s{_ltfrNextToken = a})
-- | The @MaxResults@ parameter sets the maximum number of results returned in a single page. This is for future use and is not supported currently.
ltfrMaxResults :: Lens' ListTagsForResource (Maybe Natural)
-ltfrMaxResults = lens _ltfrMaxResults (\ s a -> s{_ltfrMaxResults = a}) . mapping _Nat;
+ltfrMaxResults = lens _ltfrMaxResults (\ s a -> s{_ltfrMaxResults = a}) . mapping _Nat
-- | The Amazon Resource Name (ARN) of the resource. Tagging is only supported for directories.
ltfrResourceARN :: Lens' ListTagsForResource Text
-ltfrResourceARN = lens _ltfrResourceARN (\ s a -> s{_ltfrResourceARN = a});
+ltfrResourceARN = lens _ltfrResourceARN (\ s a -> s{_ltfrResourceARN = a})
+
+instance AWSPager ListTagsForResource where
+ page rq rs
+ | stop (rs ^. ltfrrsNextToken) = Nothing
+ | stop (rs ^. ltfrrsTags) = Nothing
+ | otherwise =
+ Just $ rq & ltfrNextToken .~ rs ^. ltfrrsNextToken
instance AWSRequest ListTagsForResource where
type Rs ListTagsForResource =
@@ -142,22 +152,22 @@ listTagsForResourceResponse
-> ListTagsForResourceResponse
listTagsForResourceResponse pResponseStatus_ =
ListTagsForResourceResponse'
- { _ltfrrsNextToken = Nothing
- , _ltfrrsTags = Nothing
- , _ltfrrsResponseStatus = pResponseStatus_
- }
+ { _ltfrrsNextToken = Nothing
+ , _ltfrrsTags = Nothing
+ , _ltfrrsResponseStatus = pResponseStatus_
+ }
-- | The token to use to retrieve the next page of results. This value is null when there are no more results to return.
ltfrrsNextToken :: Lens' ListTagsForResourceResponse (Maybe Text)
-ltfrrsNextToken = lens _ltfrrsNextToken (\ s a -> s{_ltfrrsNextToken = a});
+ltfrrsNextToken = lens _ltfrrsNextToken (\ s a -> s{_ltfrrsNextToken = a})
-- | A list of tag key value pairs that are associated with the response.
ltfrrsTags :: Lens' ListTagsForResourceResponse [Tag]
-ltfrrsTags = lens _ltfrrsTags (\ s a -> s{_ltfrrsTags = a}) . _Default . _Coerce;
+ltfrrsTags = lens _ltfrrsTags (\ s a -> s{_ltfrrsTags = a}) . _Default . _Coerce
-- | -- | The response status code.
ltfrrsResponseStatus :: Lens' ListTagsForResourceResponse Int
-ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a});
+ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a})
instance NFData ListTagsForResourceResponse where
diff --git a/gen/Network/AWS/CloudDirectory/ListTypedLinkFacetAttributes.hs b/gen/Network/AWS/CloudDirectory/ListTypedLinkFacetAttributes.hs
index 2ebc16e..8f2903f 100644
--- a/gen/Network/AWS/CloudDirectory/ListTypedLinkFacetAttributes.hs
+++ b/gen/Network/AWS/CloudDirectory/ListTypedLinkFacetAttributes.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.ListTypedLinkFacetAttributes
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -21,6 +21,8 @@
-- Returns a paginated list of all attribute definitions for a particular 'TypedLinkFacet' . For more information, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/objectsandlinks.html#typedlink Typed link> .
--
--
+--
+-- This operation returns paginated results.
module Network.AWS.CloudDirectory.ListTypedLinkFacetAttributes
(
-- * Creating a Request
@@ -44,6 +46,7 @@ module Network.AWS.CloudDirectory.ListTypedLinkFacetAttributes
import Network.AWS.CloudDirectory.Types
import Network.AWS.CloudDirectory.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -74,28 +77,35 @@ listTypedLinkFacetAttributes
-> ListTypedLinkFacetAttributes
listTypedLinkFacetAttributes pSchemaARN_ pName_ =
ListTypedLinkFacetAttributes'
- { _ltlfaNextToken = Nothing
- , _ltlfaMaxResults = Nothing
- , _ltlfaSchemaARN = pSchemaARN_
- , _ltlfaName = pName_
- }
+ { _ltlfaNextToken = Nothing
+ , _ltlfaMaxResults = Nothing
+ , _ltlfaSchemaARN = pSchemaARN_
+ , _ltlfaName = pName_
+ }
-- | The pagination token.
ltlfaNextToken :: Lens' ListTypedLinkFacetAttributes (Maybe Text)
-ltlfaNextToken = lens _ltlfaNextToken (\ s a -> s{_ltlfaNextToken = a});
+ltlfaNextToken = lens _ltlfaNextToken (\ s a -> s{_ltlfaNextToken = a})
-- | The maximum number of results to retrieve.
ltlfaMaxResults :: Lens' ListTypedLinkFacetAttributes (Maybe Natural)
-ltlfaMaxResults = lens _ltlfaMaxResults (\ s a -> s{_ltlfaMaxResults = a}) . mapping _Nat;
+ltlfaMaxResults = lens _ltlfaMaxResults (\ s a -> s{_ltlfaMaxResults = a}) . mapping _Nat
-- | The Amazon Resource Name (ARN) that is associated with the schema. For more information, see 'arns' .
ltlfaSchemaARN :: Lens' ListTypedLinkFacetAttributes Text
-ltlfaSchemaARN = lens _ltlfaSchemaARN (\ s a -> s{_ltlfaSchemaARN = a});
+ltlfaSchemaARN = lens _ltlfaSchemaARN (\ s a -> s{_ltlfaSchemaARN = a})
-- | The unique name of the typed link facet.
ltlfaName :: Lens' ListTypedLinkFacetAttributes Text
-ltlfaName = lens _ltlfaName (\ s a -> s{_ltlfaName = a});
+ltlfaName = lens _ltlfaName (\ s a -> s{_ltlfaName = a})
+
+instance AWSPager ListTypedLinkFacetAttributes where
+ page rq rs
+ | stop (rs ^. ltlfarsNextToken) = Nothing
+ | stop (rs ^. ltlfarsAttributes) = Nothing
+ | otherwise =
+ Just $ rq & ltlfaNextToken .~ rs ^. ltlfarsNextToken
instance AWSRequest ListTypedLinkFacetAttributes
where
@@ -156,23 +166,23 @@ listTypedLinkFacetAttributesResponse
-> ListTypedLinkFacetAttributesResponse
listTypedLinkFacetAttributesResponse pResponseStatus_ =
ListTypedLinkFacetAttributesResponse'
- { _ltlfarsNextToken = Nothing
- , _ltlfarsAttributes = Nothing
- , _ltlfarsResponseStatus = pResponseStatus_
- }
+ { _ltlfarsNextToken = Nothing
+ , _ltlfarsAttributes = Nothing
+ , _ltlfarsResponseStatus = pResponseStatus_
+ }
-- | The pagination token.
ltlfarsNextToken :: Lens' ListTypedLinkFacetAttributesResponse (Maybe Text)
-ltlfarsNextToken = lens _ltlfarsNextToken (\ s a -> s{_ltlfarsNextToken = a});
+ltlfarsNextToken = lens _ltlfarsNextToken (\ s a -> s{_ltlfarsNextToken = a})
-- | An ordered set of attributes associate with the typed link.
ltlfarsAttributes :: Lens' ListTypedLinkFacetAttributesResponse [TypedLinkAttributeDefinition]
-ltlfarsAttributes = lens _ltlfarsAttributes (\ s a -> s{_ltlfarsAttributes = a}) . _Default . _Coerce;
+ltlfarsAttributes = lens _ltlfarsAttributes (\ s a -> s{_ltlfarsAttributes = a}) . _Default . _Coerce
-- | -- | The response status code.
ltlfarsResponseStatus :: Lens' ListTypedLinkFacetAttributesResponse Int
-ltlfarsResponseStatus = lens _ltlfarsResponseStatus (\ s a -> s{_ltlfarsResponseStatus = a});
+ltlfarsResponseStatus = lens _ltlfarsResponseStatus (\ s a -> s{_ltlfarsResponseStatus = a})
instance NFData ListTypedLinkFacetAttributesResponse
where
diff --git a/gen/Network/AWS/CloudDirectory/ListTypedLinkFacetNames.hs b/gen/Network/AWS/CloudDirectory/ListTypedLinkFacetNames.hs
index c48848d..a099762 100644
--- a/gen/Network/AWS/CloudDirectory/ListTypedLinkFacetNames.hs
+++ b/gen/Network/AWS/CloudDirectory/ListTypedLinkFacetNames.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.ListTypedLinkFacetNames
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -21,6 +21,8 @@
-- Returns a paginated list of @TypedLink@ facet names for a particular schema. For more information, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/objectsandlinks.html#typedlink Typed link> .
--
--
+--
+-- This operation returns paginated results.
module Network.AWS.CloudDirectory.ListTypedLinkFacetNames
(
-- * Creating a Request
@@ -43,6 +45,7 @@ module Network.AWS.CloudDirectory.ListTypedLinkFacetNames
import Network.AWS.CloudDirectory.Types
import Network.AWS.CloudDirectory.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -69,23 +72,30 @@ listTypedLinkFacetNames
-> ListTypedLinkFacetNames
listTypedLinkFacetNames pSchemaARN_ =
ListTypedLinkFacetNames'
- { _ltlfnNextToken = Nothing
- , _ltlfnMaxResults = Nothing
- , _ltlfnSchemaARN = pSchemaARN_
- }
+ { _ltlfnNextToken = Nothing
+ , _ltlfnMaxResults = Nothing
+ , _ltlfnSchemaARN = pSchemaARN_
+ }
-- | The pagination token.
ltlfnNextToken :: Lens' ListTypedLinkFacetNames (Maybe Text)
-ltlfnNextToken = lens _ltlfnNextToken (\ s a -> s{_ltlfnNextToken = a});
+ltlfnNextToken = lens _ltlfnNextToken (\ s a -> s{_ltlfnNextToken = a})
-- | The maximum number of results to retrieve.
ltlfnMaxResults :: Lens' ListTypedLinkFacetNames (Maybe Natural)
-ltlfnMaxResults = lens _ltlfnMaxResults (\ s a -> s{_ltlfnMaxResults = a}) . mapping _Nat;
+ltlfnMaxResults = lens _ltlfnMaxResults (\ s a -> s{_ltlfnMaxResults = a}) . mapping _Nat
-- | The Amazon Resource Name (ARN) that is associated with the schema. For more information, see 'arns' .
ltlfnSchemaARN :: Lens' ListTypedLinkFacetNames Text
-ltlfnSchemaARN = lens _ltlfnSchemaARN (\ s a -> s{_ltlfnSchemaARN = a});
+ltlfnSchemaARN = lens _ltlfnSchemaARN (\ s a -> s{_ltlfnSchemaARN = a})
+
+instance AWSPager ListTypedLinkFacetNames where
+ page rq rs
+ | stop (rs ^. ltlfnrsNextToken) = Nothing
+ | stop (rs ^. ltlfnrsFacetNames) = Nothing
+ | otherwise =
+ Just $ rq & ltlfnNextToken .~ rs ^. ltlfnrsNextToken
instance AWSRequest ListTypedLinkFacetNames where
type Rs ListTypedLinkFacetNames =
@@ -144,22 +154,22 @@ listTypedLinkFacetNamesResponse
-> ListTypedLinkFacetNamesResponse
listTypedLinkFacetNamesResponse pResponseStatus_ =
ListTypedLinkFacetNamesResponse'
- { _ltlfnrsNextToken = Nothing
- , _ltlfnrsFacetNames = Nothing
- , _ltlfnrsResponseStatus = pResponseStatus_
- }
+ { _ltlfnrsNextToken = Nothing
+ , _ltlfnrsFacetNames = Nothing
+ , _ltlfnrsResponseStatus = pResponseStatus_
+ }
-- | The pagination token.
ltlfnrsNextToken :: Lens' ListTypedLinkFacetNamesResponse (Maybe Text)
-ltlfnrsNextToken = lens _ltlfnrsNextToken (\ s a -> s{_ltlfnrsNextToken = a});
+ltlfnrsNextToken = lens _ltlfnrsNextToken (\ s a -> s{_ltlfnrsNextToken = a})
-- | The names of typed link facets that exist within the schema.
ltlfnrsFacetNames :: Lens' ListTypedLinkFacetNamesResponse [Text]
-ltlfnrsFacetNames = lens _ltlfnrsFacetNames (\ s a -> s{_ltlfnrsFacetNames = a}) . _Default . _Coerce;
+ltlfnrsFacetNames = lens _ltlfnrsFacetNames (\ s a -> s{_ltlfnrsFacetNames = a}) . _Default . _Coerce
-- | -- | The response status code.
ltlfnrsResponseStatus :: Lens' ListTypedLinkFacetNamesResponse Int
-ltlfnrsResponseStatus = lens _ltlfnrsResponseStatus (\ s a -> s{_ltlfnrsResponseStatus = a});
+ltlfnrsResponseStatus = lens _ltlfnrsResponseStatus (\ s a -> s{_ltlfnrsResponseStatus = a})
instance NFData ListTypedLinkFacetNamesResponse where
diff --git a/gen/Network/AWS/CloudDirectory/LookupPolicy.hs b/gen/Network/AWS/CloudDirectory/LookupPolicy.hs
index 6ca93d2..61010ca 100644
--- a/gen/Network/AWS/CloudDirectory/LookupPolicy.hs
+++ b/gen/Network/AWS/CloudDirectory/LookupPolicy.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.LookupPolicy
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -21,6 +21,8 @@
-- Lists all policies from the root of the 'Directory' to the object specified. If there are no policies present, an empty list is returned. If policies are present, and if some objects don't have the policies attached, it returns the @ObjectIdentifier@ for such objects. If policies are present, it returns @ObjectIdentifier@ , @policyId@ , and @policyType@ . Paths that don't lead to the root from the target object are ignored. For more information, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/cd_key_concepts.html#policies Policies> .
--
--
+--
+-- This operation returns paginated results.
module Network.AWS.CloudDirectory.LookupPolicy
(
-- * Creating a Request
@@ -44,6 +46,7 @@ module Network.AWS.CloudDirectory.LookupPolicy
import Network.AWS.CloudDirectory.Types
import Network.AWS.CloudDirectory.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -74,28 +77,35 @@ lookupPolicy
-> LookupPolicy
lookupPolicy pDirectoryARN_ pObjectReference_ =
LookupPolicy'
- { _lpNextToken = Nothing
- , _lpMaxResults = Nothing
- , _lpDirectoryARN = pDirectoryARN_
- , _lpObjectReference = pObjectReference_
- }
+ { _lpNextToken = Nothing
+ , _lpMaxResults = Nothing
+ , _lpDirectoryARN = pDirectoryARN_
+ , _lpObjectReference = pObjectReference_
+ }
-- | The token to request the next page of results.
lpNextToken :: Lens' LookupPolicy (Maybe Text)
-lpNextToken = lens _lpNextToken (\ s a -> s{_lpNextToken = a});
+lpNextToken = lens _lpNextToken (\ s a -> s{_lpNextToken = a})
-- | The maximum number of items to be retrieved in a single call. This is an approximate number.
lpMaxResults :: Lens' LookupPolicy (Maybe Natural)
-lpMaxResults = lens _lpMaxResults (\ s a -> s{_lpMaxResults = a}) . mapping _Nat;
+lpMaxResults = lens _lpMaxResults (\ s a -> s{_lpMaxResults = a}) . mapping _Nat
-- | The Amazon Resource Name (ARN) that is associated with the 'Directory' . For more information, see 'arns' .
lpDirectoryARN :: Lens' LookupPolicy Text
-lpDirectoryARN = lens _lpDirectoryARN (\ s a -> s{_lpDirectoryARN = a});
+lpDirectoryARN = lens _lpDirectoryARN (\ s a -> s{_lpDirectoryARN = a})
-- | Reference that identifies the object whose policies will be looked up.
lpObjectReference :: Lens' LookupPolicy ObjectReference
-lpObjectReference = lens _lpObjectReference (\ s a -> s{_lpObjectReference = a});
+lpObjectReference = lens _lpObjectReference (\ s a -> s{_lpObjectReference = a})
+
+instance AWSPager LookupPolicy where
+ page rq rs
+ | stop (rs ^. lprsNextToken) = Nothing
+ | stop (rs ^. lprsPolicyToPathList) = Nothing
+ | otherwise =
+ Just $ rq & lpNextToken .~ rs ^. lprsNextToken
instance AWSRequest LookupPolicy where
type Rs LookupPolicy = LookupPolicyResponse
@@ -154,22 +164,22 @@ lookupPolicyResponse
-> LookupPolicyResponse
lookupPolicyResponse pResponseStatus_ =
LookupPolicyResponse'
- { _lprsNextToken = Nothing
- , _lprsPolicyToPathList = Nothing
- , _lprsResponseStatus = pResponseStatus_
- }
+ { _lprsNextToken = Nothing
+ , _lprsPolicyToPathList = Nothing
+ , _lprsResponseStatus = pResponseStatus_
+ }
-- | The pagination token.
lprsNextToken :: Lens' LookupPolicyResponse (Maybe Text)
-lprsNextToken = lens _lprsNextToken (\ s a -> s{_lprsNextToken = a});
+lprsNextToken = lens _lprsNextToken (\ s a -> s{_lprsNextToken = a})
-- | Provides list of path to policies. Policies contain @PolicyId@ , @ObjectIdentifier@ , and @PolicyType@ . For more information, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/cd_key_concepts.html#policies Policies> .
lprsPolicyToPathList :: Lens' LookupPolicyResponse [PolicyToPath]
-lprsPolicyToPathList = lens _lprsPolicyToPathList (\ s a -> s{_lprsPolicyToPathList = a}) . _Default . _Coerce;
+lprsPolicyToPathList = lens _lprsPolicyToPathList (\ s a -> s{_lprsPolicyToPathList = a}) . _Default . _Coerce
-- | -- | The response status code.
lprsResponseStatus :: Lens' LookupPolicyResponse Int
-lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a});
+lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a})
instance NFData LookupPolicyResponse where
diff --git a/gen/Network/AWS/CloudDirectory/PublishSchema.hs b/gen/Network/AWS/CloudDirectory/PublishSchema.hs
index ee13656..bf94ccf 100644
--- a/gen/Network/AWS/CloudDirectory/PublishSchema.hs
+++ b/gen/Network/AWS/CloudDirectory/PublishSchema.hs
@@ -12,13 +12,13 @@
-- |
-- Module : Network.AWS.CloudDirectory.PublishSchema
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Publishes a development schema with a version. If description and attributes are specified, @PublishSchema@ overrides the development schema description and attributes. If not, the development schema description and attributes are used.
+-- Publishes a development schema with a major version and a recommended minor version.
--
--
module Network.AWS.CloudDirectory.PublishSchema
@@ -27,6 +27,7 @@ module Network.AWS.CloudDirectory.PublishSchema
publishSchema
, PublishSchema
-- * Request Lenses
+ , psMinorVersion
, psName
, psDevelopmentSchemaARN
, psVersion
@@ -48,7 +49,8 @@ import Network.AWS.Response
-- | /See:/ 'publishSchema' smart constructor.
data PublishSchema = PublishSchema'
- { _psName :: !(Maybe Text)
+ { _psMinorVersion :: !(Maybe Text)
+ , _psName :: !(Maybe Text)
, _psDevelopmentSchemaARN :: !Text
, _psVersion :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
@@ -58,34 +60,41 @@ data PublishSchema = PublishSchema'
--
-- Use one of the following lenses to modify other fields as desired:
--
+-- * 'psMinorVersion' - The minor version under which the schema will be published. This parameter is recommended. Schemas have both a major and minor version associated with them.
+--
-- * 'psName' - The new name under which the schema will be published. If this is not provided, the development schema is considered.
--
-- * 'psDevelopmentSchemaARN' - The Amazon Resource Name (ARN) that is associated with the development schema. For more information, see 'arns' .
--
--- * 'psVersion' - The version under which the schema will be published.
+-- * 'psVersion' - The major version under which the schema will be published. Schemas have both a major and minor version associated with them.
publishSchema
:: Text -- ^ 'psDevelopmentSchemaARN'
-> Text -- ^ 'psVersion'
-> PublishSchema
publishSchema pDevelopmentSchemaARN_ pVersion_ =
PublishSchema'
- { _psName = Nothing
- , _psDevelopmentSchemaARN = pDevelopmentSchemaARN_
- , _psVersion = pVersion_
- }
+ { _psMinorVersion = Nothing
+ , _psName = Nothing
+ , _psDevelopmentSchemaARN = pDevelopmentSchemaARN_
+ , _psVersion = pVersion_
+ }
+
+-- | The minor version under which the schema will be published. This parameter is recommended. Schemas have both a major and minor version associated with them.
+psMinorVersion :: Lens' PublishSchema (Maybe Text)
+psMinorVersion = lens _psMinorVersion (\ s a -> s{_psMinorVersion = a})
-- | The new name under which the schema will be published. If this is not provided, the development schema is considered.
psName :: Lens' PublishSchema (Maybe Text)
-psName = lens _psName (\ s a -> s{_psName = a});
+psName = lens _psName (\ s a -> s{_psName = a})
-- | The Amazon Resource Name (ARN) that is associated with the development schema. For more information, see 'arns' .
psDevelopmentSchemaARN :: Lens' PublishSchema Text
-psDevelopmentSchemaARN = lens _psDevelopmentSchemaARN (\ s a -> s{_psDevelopmentSchemaARN = a});
+psDevelopmentSchemaARN = lens _psDevelopmentSchemaARN (\ s a -> s{_psDevelopmentSchemaARN = a})
--- | The version under which the schema will be published.
+-- | The major version under which the schema will be published. Schemas have both a major and minor version associated with them.
psVersion :: Lens' PublishSchema Text
-psVersion = lens _psVersion (\ s a -> s{_psVersion = a});
+psVersion = lens _psVersion (\ s a -> s{_psVersion = a})
instance AWSRequest PublishSchema where
type Rs PublishSchema = PublishSchemaResponse
@@ -109,7 +118,8 @@ instance ToJSON PublishSchema where
toJSON PublishSchema'{..}
= object
(catMaybes
- [("Name" .=) <$> _psName,
+ [("MinorVersion" .=) <$> _psMinorVersion,
+ ("Name" .=) <$> _psName,
Just ("Version" .= _psVersion)])
instance ToPath PublishSchema where
@@ -139,15 +149,15 @@ publishSchemaResponse
-> PublishSchemaResponse
publishSchemaResponse pResponseStatus_ =
PublishSchemaResponse'
- {_psrsPublishedSchemaARN = Nothing, _psrsResponseStatus = pResponseStatus_}
+ {_psrsPublishedSchemaARN = Nothing, _psrsResponseStatus = pResponseStatus_}
-- | The ARN that is associated with the published schema. For more information, see 'arns' .
psrsPublishedSchemaARN :: Lens' PublishSchemaResponse (Maybe Text)
-psrsPublishedSchemaARN = lens _psrsPublishedSchemaARN (\ s a -> s{_psrsPublishedSchemaARN = a});
+psrsPublishedSchemaARN = lens _psrsPublishedSchemaARN (\ s a -> s{_psrsPublishedSchemaARN = a})
-- | -- | The response status code.
psrsResponseStatus :: Lens' PublishSchemaResponse Int
-psrsResponseStatus = lens _psrsResponseStatus (\ s a -> s{_psrsResponseStatus = a});
+psrsResponseStatus = lens _psrsResponseStatus (\ s a -> s{_psrsResponseStatus = a})
instance NFData PublishSchemaResponse where
diff --git a/gen/Network/AWS/CloudDirectory/PutSchemaFromJSON.hs b/gen/Network/AWS/CloudDirectory/PutSchemaFromJSON.hs
index 50e7ec9..7d2ce51 100644
--- a/gen/Network/AWS/CloudDirectory/PutSchemaFromJSON.hs
+++ b/gen/Network/AWS/CloudDirectory/PutSchemaFromJSON.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.PutSchemaFromJSON
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -69,11 +69,11 @@ putSchemaFromJSON pSchemaARN_ pDocument_ =
-- | The ARN of the schema to update.
psfjSchemaARN :: Lens' PutSchemaFromJSON Text
-psfjSchemaARN = lens _psfjSchemaARN (\ s a -> s{_psfjSchemaARN = a});
+psfjSchemaARN = lens _psfjSchemaARN (\ s a -> s{_psfjSchemaARN = a})
-- | The replacement JSON schema.
psfjDocument :: Lens' PutSchemaFromJSON Text
-psfjDocument = lens _psfjDocument (\ s a -> s{_psfjDocument = a});
+psfjDocument = lens _psfjDocument (\ s a -> s{_psfjDocument = a})
instance AWSRequest PutSchemaFromJSON where
type Rs PutSchemaFromJSON = PutSchemaFromJSONResponse
@@ -124,15 +124,15 @@ putSchemaFromJSONResponse
-> PutSchemaFromJSONResponse
putSchemaFromJSONResponse pResponseStatus_ =
PutSchemaFromJSONResponse'
- {_psfjrsARN = Nothing, _psfjrsResponseStatus = pResponseStatus_}
+ {_psfjrsARN = Nothing, _psfjrsResponseStatus = pResponseStatus_}
-- | The ARN of the schema to update.
psfjrsARN :: Lens' PutSchemaFromJSONResponse (Maybe Text)
-psfjrsARN = lens _psfjrsARN (\ s a -> s{_psfjrsARN = a});
+psfjrsARN = lens _psfjrsARN (\ s a -> s{_psfjrsARN = a})
-- | -- | The response status code.
psfjrsResponseStatus :: Lens' PutSchemaFromJSONResponse Int
-psfjrsResponseStatus = lens _psfjrsResponseStatus (\ s a -> s{_psfjrsResponseStatus = a});
+psfjrsResponseStatus = lens _psfjrsResponseStatus (\ s a -> s{_psfjrsResponseStatus = a})
instance NFData PutSchemaFromJSONResponse where
diff --git a/gen/Network/AWS/CloudDirectory/RemoveFacetFromObject.hs b/gen/Network/AWS/CloudDirectory/RemoveFacetFromObject.hs
index fb21932..8103a42 100644
--- a/gen/Network/AWS/CloudDirectory/RemoveFacetFromObject.hs
+++ b/gen/Network/AWS/CloudDirectory/RemoveFacetFromObject.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.RemoveFacetFromObject
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -59,7 +59,7 @@ data RemoveFacetFromObject = RemoveFacetFromObject'
--
-- * 'rffoDirectoryARN' - The ARN of the directory in which the object resides.
--
--- * 'rffoSchemaFacet' - The facet to remove.
+-- * 'rffoSchemaFacet' - The facet to remove. See 'SchemaFacet' for details.
--
-- * 'rffoObjectReference' - A reference to the object to remove the facet from.
removeFacetFromObject
@@ -69,23 +69,23 @@ removeFacetFromObject
-> RemoveFacetFromObject
removeFacetFromObject pDirectoryARN_ pSchemaFacet_ pObjectReference_ =
RemoveFacetFromObject'
- { _rffoDirectoryARN = pDirectoryARN_
- , _rffoSchemaFacet = pSchemaFacet_
- , _rffoObjectReference = pObjectReference_
- }
+ { _rffoDirectoryARN = pDirectoryARN_
+ , _rffoSchemaFacet = pSchemaFacet_
+ , _rffoObjectReference = pObjectReference_
+ }
-- | The ARN of the directory in which the object resides.
rffoDirectoryARN :: Lens' RemoveFacetFromObject Text
-rffoDirectoryARN = lens _rffoDirectoryARN (\ s a -> s{_rffoDirectoryARN = a});
+rffoDirectoryARN = lens _rffoDirectoryARN (\ s a -> s{_rffoDirectoryARN = a})
--- | The facet to remove.
+-- | The facet to remove. See 'SchemaFacet' for details.
rffoSchemaFacet :: Lens' RemoveFacetFromObject SchemaFacet
-rffoSchemaFacet = lens _rffoSchemaFacet (\ s a -> s{_rffoSchemaFacet = a});
+rffoSchemaFacet = lens _rffoSchemaFacet (\ s a -> s{_rffoSchemaFacet = a})
-- | A reference to the object to remove the facet from.
rffoObjectReference :: Lens' RemoveFacetFromObject ObjectReference
-rffoObjectReference = lens _rffoObjectReference (\ s a -> s{_rffoObjectReference = a});
+rffoObjectReference = lens _rffoObjectReference (\ s a -> s{_rffoObjectReference = a})
instance AWSRequest RemoveFacetFromObject where
type Rs RemoveFacetFromObject =
@@ -141,6 +141,6 @@ removeFacetFromObjectResponse pResponseStatus_ =
-- | -- | The response status code.
rfforsResponseStatus :: Lens' RemoveFacetFromObjectResponse Int
-rfforsResponseStatus = lens _rfforsResponseStatus (\ s a -> s{_rfforsResponseStatus = a});
+rfforsResponseStatus = lens _rfforsResponseStatus (\ s a -> s{_rfforsResponseStatus = a})
instance NFData RemoveFacetFromObjectResponse where
diff --git a/gen/Network/AWS/CloudDirectory/TagResource.hs b/gen/Network/AWS/CloudDirectory/TagResource.hs
index c20a661..f7a1739 100644
--- a/gen/Network/AWS/CloudDirectory/TagResource.hs
+++ b/gen/Network/AWS/CloudDirectory/TagResource.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.TagResource
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -67,11 +67,11 @@ tagResource pResourceARN_ =
-- | The Amazon Resource Name (ARN) of the resource. Tagging is only supported for directories.
trResourceARN :: Lens' TagResource Text
-trResourceARN = lens _trResourceARN (\ s a -> s{_trResourceARN = a});
+trResourceARN = lens _trResourceARN (\ s a -> s{_trResourceARN = a})
-- | A list of tag key-value pairs.
trTags :: Lens' TagResource [Tag]
-trTags = lens _trTags (\ s a -> s{_trTags = a}) . _Coerce;
+trTags = lens _trTags (\ s a -> s{_trTags = a}) . _Coerce
instance AWSRequest TagResource where
type Rs TagResource = TagResourceResponse
@@ -122,6 +122,6 @@ tagResourceResponse pResponseStatus_ =
-- | -- | The response status code.
trrsResponseStatus :: Lens' TagResourceResponse Int
-trrsResponseStatus = lens _trrsResponseStatus (\ s a -> s{_trrsResponseStatus = a});
+trrsResponseStatus = lens _trrsResponseStatus (\ s a -> s{_trrsResponseStatus = a})
instance NFData TagResourceResponse where
diff --git a/gen/Network/AWS/CloudDirectory/Types.hs b/gen/Network/AWS/CloudDirectory/Types.hs
index b562830..36267c4 100644
--- a/gen/Network/AWS/CloudDirectory/Types.hs
+++ b/gen/Network/AWS/CloudDirectory/Types.hs
@@ -4,7 +4,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.Types
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -36,6 +36,7 @@ module Network.AWS.CloudDirectory.Types
, _FacetInUseException
, _FacetValidationException
, _StillContainsLinksException
+ , _IncompatibleSchemaException
, _NotNodeException
, _InvalidNextTokenException
, _ObjectAlreadyDetachedException
@@ -171,11 +172,11 @@ module Network.AWS.CloudDirectory.Types
-- * BatchCreateObject
, BatchCreateObject
, batchCreateObject
- , bcoSchemaFacet
- , bcoObjectAttributeList
, bcoParentReference
, bcoLinkName
, bcoBatchReferenceName
+ , bcoSchemaFacet
+ , bcoObjectAttributeList
-- * BatchCreateObjectResponse
, BatchCreateObjectResponse
@@ -205,9 +206,9 @@ module Network.AWS.CloudDirectory.Types
-- * BatchDetachObject
, BatchDetachObject
, batchDetachObject
+ , bdoBatchReferenceName
, bdoParentReference
, bdoLinkName
- , bdoBatchReferenceName
-- * BatchDetachObjectResponse
, BatchDetachObjectResponse
@@ -233,6 +234,18 @@ module Network.AWS.CloudDirectory.Types
, BatchDetachTypedLinkResponse
, batchDetachTypedLinkResponse
+ -- * BatchGetObjectAttributes
+ , BatchGetObjectAttributes
+ , batchGetObjectAttributes
+ , bgoaObjectReference
+ , bgoaSchemaFacet
+ , bgoaAttributeNames
+
+ -- * BatchGetObjectAttributesResponse
+ , BatchGetObjectAttributesResponse
+ , batchGetObjectAttributesResponse
+ , bgoaAttributes
+
-- * BatchGetObjectInformation
, BatchGetObjectInformation
, batchGetObjectInformation
@@ -396,6 +409,7 @@ module Network.AWS.CloudDirectory.Types
, broListObjectParentPaths
, broListObjectAttributes
, broListIncomingTypedLinks
+ , broGetObjectAttributes
, broListObjectChildren
, broListPolicyAttachments
, broListOutgoingTypedLinks
@@ -417,6 +431,7 @@ module Network.AWS.CloudDirectory.Types
, brsListObjectParentPaths
, brsListObjectAttributes
, brsListIncomingTypedLinks
+ , brsGetObjectAttributes
, brsListObjectChildren
, brsListPolicyAttachments
, brsListOutgoingTypedLinks
@@ -658,24 +673,24 @@ import Network.AWS.Sign.V4
cloudDirectory :: Service
cloudDirectory =
Service
- { _svcAbbrev = "CloudDirectory"
- , _svcSigner = v4
- , _svcPrefix = "clouddirectory"
- , _svcVersion = "2016-05-10"
- , _svcEndpoint = defaultEndpoint cloudDirectory
- , _svcTimeout = Just 70
- , _svcCheck = statusSuccess
- , _svcError = parseJSONError "CloudDirectory"
- , _svcRetry = retry
- }
+ { _svcAbbrev = "CloudDirectory"
+ , _svcSigner = v4
+ , _svcPrefix = "clouddirectory"
+ , _svcVersion = "2016-05-10"
+ , _svcEndpoint = defaultEndpoint cloudDirectory
+ , _svcTimeout = Just 70
+ , _svcCheck = statusSuccess
+ , _svcError = parseJSONError "CloudDirectory"
+ , _svcRetry = retry
+ }
where
retry =
Exponential
- { _retryBase = 5.0e-2
- , _retryGrowth = 2
- , _retryAttempts = 5
- , _retryCheck = check
- }
+ { _retryBase = 5.0e-2
+ , _retryGrowth = 2
+ , _retryAttempts = 5
+ , _retryCheck = check
+ }
check e
| has (hasCode "ThrottledException" . hasStatus 400) e =
Just "throttled_exception"
@@ -684,6 +699,8 @@ cloudDirectory =
Just "throttling_exception"
| has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"
| has (hasStatus 504) e = Just "gateway_timeout"
+ | has (hasCode "RequestThrottledException" . hasStatus 400) e =
+ Just "request_throttled_exception"
| has (hasStatus 502) e = Just "bad_gateway"
| has (hasStatus 503) e = Just "service_unavailable"
| has (hasStatus 500) e = Just "general_server_error"
@@ -826,7 +843,7 @@ _BatchWriteException :: AsError a => Getting (First ServiceError) a ServiceError
_BatchWriteException = _MatchServiceError cloudDirectory "BatchWriteException"
--- | An operation can only operate on a directory that is not enabled.
+-- | Operations are only permitted on enabled directories.
--
--
_DirectoryNotEnabledException :: AsError a => Getting (First ServiceError) a ServiceError
@@ -860,6 +877,15 @@ _StillContainsLinksException =
hasStatus 400
+-- | Indicates a failure occurred while performing a check for backward compatibility between the specified schema and the schema that is currently applied to the directory.
+--
+--
+_IncompatibleSchemaException :: AsError a => Getting (First ServiceError) a ServiceError
+_IncompatibleSchemaException =
+ _MatchServiceError cloudDirectory "IncompatibleSchemaException" .
+ hasStatus 400
+
+
-- | Occurs when any invalid operations are performed on an object that is not a node, such as calling @ListObjectChildren@ for a leaf node object.
--
--
diff --git a/gen/Network/AWS/CloudDirectory/Types/Product.hs b/gen/Network/AWS/CloudDirectory/Types/Product.hs
index f3b7a47..6f39107 100644
--- a/gen/Network/AWS/CloudDirectory/Types/Product.hs
+++ b/gen/Network/AWS/CloudDirectory/Types/Product.hs
@@ -9,7 +9,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.Types.Product
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -49,20 +49,20 @@ attributeKey
-> AttributeKey
attributeKey pSchemaARN_ pFacetName_ pName_ =
AttributeKey'
- {_akSchemaARN = pSchemaARN_, _akFacetName = pFacetName_, _akName = pName_}
+ {_akSchemaARN = pSchemaARN_, _akFacetName = pFacetName_, _akName = pName_}
-- | The Amazon Resource Name (ARN) of the schema that contains the facet and attribute.
akSchemaARN :: Lens' AttributeKey Text
-akSchemaARN = lens _akSchemaARN (\ s a -> s{_akSchemaARN = a});
+akSchemaARN = lens _akSchemaARN (\ s a -> s{_akSchemaARN = a})
-- | The name of the facet that the attribute exists within.
akFacetName :: Lens' AttributeKey Text
-akFacetName = lens _akFacetName (\ s a -> s{_akFacetName = a});
+akFacetName = lens _akFacetName (\ s a -> s{_akFacetName = a})
-- | The name of the attribute.
akName :: Lens' AttributeKey Text
-akName = lens _akName (\ s a -> s{_akName = a});
+akName = lens _akName (\ s a -> s{_akName = a})
instance FromJSON AttributeKey where
parseJSON
@@ -112,11 +112,11 @@ attributeKeyAndValue pKey_ pValue_ =
-- | The key of the attribute.
akavKey :: Lens' AttributeKeyAndValue AttributeKey
-akavKey = lens _akavKey (\ s a -> s{_akavKey = a});
+akavKey = lens _akavKey (\ s a -> s{_akavKey = a})
-- | The value of the attribute.
akavValue :: Lens' AttributeKeyAndValue TypedAttributeValue
-akavValue = lens _akavValue (\ s a -> s{_akavValue = a});
+akavValue = lens _akavValue (\ s a -> s{_akavValue = a})
instance FromJSON AttributeKeyAndValue where
parseJSON
@@ -160,16 +160,16 @@ attributeNameAndValue
-> AttributeNameAndValue
attributeNameAndValue pAttributeName_ pValue_ =
AttributeNameAndValue'
- {_anavAttributeName = pAttributeName_, _anavValue = pValue_}
+ {_anavAttributeName = pAttributeName_, _anavValue = pValue_}
-- | The attribute name of the typed link.
anavAttributeName :: Lens' AttributeNameAndValue Text
-anavAttributeName = lens _anavAttributeName (\ s a -> s{_anavAttributeName = a});
+anavAttributeName = lens _anavAttributeName (\ s a -> s{_anavAttributeName = a})
-- | The value for the typed link.
anavValue :: Lens' AttributeNameAndValue TypedAttributeValue
-anavValue = lens _anavValue (\ s a -> s{_anavValue = a});
+anavValue = lens _anavValue (\ s a -> s{_anavValue = a})
instance FromJSON AttributeNameAndValue where
parseJSON
@@ -216,23 +216,23 @@ batchAddFacetToObject
-> BatchAddFacetToObject
batchAddFacetToObject pSchemaFacet_ pObjectReference_ =
BatchAddFacetToObject'
- { _baftoSchemaFacet = pSchemaFacet_
- , _baftoObjectAttributeList = mempty
- , _baftoObjectReference = pObjectReference_
- }
+ { _baftoSchemaFacet = pSchemaFacet_
+ , _baftoObjectAttributeList = mempty
+ , _baftoObjectReference = pObjectReference_
+ }
-- | Represents the facet being added to the object.
baftoSchemaFacet :: Lens' BatchAddFacetToObject SchemaFacet
-baftoSchemaFacet = lens _baftoSchemaFacet (\ s a -> s{_baftoSchemaFacet = a});
+baftoSchemaFacet = lens _baftoSchemaFacet (\ s a -> s{_baftoSchemaFacet = a})
-- | The attributes to set on the object.
baftoObjectAttributeList :: Lens' BatchAddFacetToObject [AttributeKeyAndValue]
-baftoObjectAttributeList = lens _baftoObjectAttributeList (\ s a -> s{_baftoObjectAttributeList = a}) . _Coerce;
+baftoObjectAttributeList = lens _baftoObjectAttributeList (\ s a -> s{_baftoObjectAttributeList = a}) . _Coerce
-- | A reference to the object being mutated.
baftoObjectReference :: Lens' BatchAddFacetToObject ObjectReference
-baftoObjectReference = lens _baftoObjectReference (\ s a -> s{_baftoObjectReference = a});
+baftoObjectReference = lens _baftoObjectReference (\ s a -> s{_baftoObjectReference = a})
instance Hashable BatchAddFacetToObject where
@@ -301,23 +301,23 @@ batchAttachObject
-> BatchAttachObject
batchAttachObject pParentReference_ pChildReference_ pLinkName_ =
BatchAttachObject'
- { _baoParentReference = pParentReference_
- , _baoChildReference = pChildReference_
- , _baoLinkName = pLinkName_
- }
+ { _baoParentReference = pParentReference_
+ , _baoChildReference = pChildReference_
+ , _baoLinkName = pLinkName_
+ }
-- | The parent object reference.
baoParentReference :: Lens' BatchAttachObject ObjectReference
-baoParentReference = lens _baoParentReference (\ s a -> s{_baoParentReference = a});
+baoParentReference = lens _baoParentReference (\ s a -> s{_baoParentReference = a})
-- | The child object reference that is to be attached to the object.
baoChildReference :: Lens' BatchAttachObject ObjectReference
-baoChildReference = lens _baoChildReference (\ s a -> s{_baoChildReference = a});
+baoChildReference = lens _baoChildReference (\ s a -> s{_baoChildReference = a})
-- | The name of the link.
baoLinkName :: Lens' BatchAttachObject Text
-baoLinkName = lens _baoLinkName (\ s a -> s{_baoLinkName = a});
+baoLinkName = lens _baoLinkName (\ s a -> s{_baoLinkName = a})
instance Hashable BatchAttachObject where
@@ -354,7 +354,7 @@ batchAttachObjectResponse =
-- | The @ObjectIdentifier@ of the object that has been attached.
baoAttachedObjectIdentifier :: Lens' BatchAttachObjectResponse (Maybe Text)
-baoAttachedObjectIdentifier = lens _baoAttachedObjectIdentifier (\ s a -> s{_baoAttachedObjectIdentifier = a});
+baoAttachedObjectIdentifier = lens _baoAttachedObjectIdentifier (\ s a -> s{_baoAttachedObjectIdentifier = a})
instance FromJSON BatchAttachObjectResponse where
parseJSON
@@ -391,18 +391,18 @@ batchAttachPolicy
-> BatchAttachPolicy
batchAttachPolicy pPolicyReference_ pObjectReference_ =
BatchAttachPolicy'
- { _bapPolicyReference = pPolicyReference_
- , _bapObjectReference = pObjectReference_
- }
+ { _bapPolicyReference = pPolicyReference_
+ , _bapObjectReference = pObjectReference_
+ }
-- | The reference that is associated with the policy object.
bapPolicyReference :: Lens' BatchAttachPolicy ObjectReference
-bapPolicyReference = lens _bapPolicyReference (\ s a -> s{_bapPolicyReference = a});
+bapPolicyReference = lens _bapPolicyReference (\ s a -> s{_bapPolicyReference = a})
-- | The reference that identifies the object to which the policy will be attached.
bapObjectReference :: Lens' BatchAttachPolicy ObjectReference
-bapObjectReference = lens _bapObjectReference (\ s a -> s{_bapObjectReference = a});
+bapObjectReference = lens _bapObjectReference (\ s a -> s{_bapObjectReference = a})
instance Hashable BatchAttachPolicy where
@@ -465,18 +465,18 @@ batchAttachToIndex
-> BatchAttachToIndex
batchAttachToIndex pIndexReference_ pTargetReference_ =
BatchAttachToIndex'
- { _batiIndexReference = pIndexReference_
- , _batiTargetReference = pTargetReference_
- }
+ { _batiIndexReference = pIndexReference_
+ , _batiTargetReference = pTargetReference_
+ }
-- | A reference to the index that you are attaching the object to.
batiIndexReference :: Lens' BatchAttachToIndex ObjectReference
-batiIndexReference = lens _batiIndexReference (\ s a -> s{_batiIndexReference = a});
+batiIndexReference = lens _batiIndexReference (\ s a -> s{_batiIndexReference = a})
-- | A reference to the object that you are attaching to the index.
batiTargetReference :: Lens' BatchAttachToIndex ObjectReference
-batiTargetReference = lens _batiTargetReference (\ s a -> s{_batiTargetReference = a});
+batiTargetReference = lens _batiTargetReference (\ s a -> s{_batiTargetReference = a})
instance Hashable BatchAttachToIndex where
@@ -512,7 +512,7 @@ batchAttachToIndexResponse =
-- | The @ObjectIdentifier@ of the object that was attached to the index.
batiAttachedObjectIdentifier :: Lens' BatchAttachToIndexResponse (Maybe Text)
-batiAttachedObjectIdentifier = lens _batiAttachedObjectIdentifier (\ s a -> s{_batiAttachedObjectIdentifier = a});
+batiAttachedObjectIdentifier = lens _batiAttachedObjectIdentifier (\ s a -> s{_batiAttachedObjectIdentifier = a})
instance FromJSON BatchAttachToIndexResponse where
parseJSON
@@ -556,28 +556,28 @@ batchAttachTypedLink
-> BatchAttachTypedLink
batchAttachTypedLink pSourceObjectReference_ pTargetObjectReference_ pTypedLinkFacet_ =
BatchAttachTypedLink'
- { _batlSourceObjectReference = pSourceObjectReference_
- , _batlTargetObjectReference = pTargetObjectReference_
- , _batlTypedLinkFacet = pTypedLinkFacet_
- , _batlAttributes = mempty
- }
+ { _batlSourceObjectReference = pSourceObjectReference_
+ , _batlTargetObjectReference = pTargetObjectReference_
+ , _batlTypedLinkFacet = pTypedLinkFacet_
+ , _batlAttributes = mempty
+ }
-- | Identifies the source object that the typed link will attach to.
batlSourceObjectReference :: Lens' BatchAttachTypedLink ObjectReference
-batlSourceObjectReference = lens _batlSourceObjectReference (\ s a -> s{_batlSourceObjectReference = a});
+batlSourceObjectReference = lens _batlSourceObjectReference (\ s a -> s{_batlSourceObjectReference = a})
-- | Identifies the target object that the typed link will attach to.
batlTargetObjectReference :: Lens' BatchAttachTypedLink ObjectReference
-batlTargetObjectReference = lens _batlTargetObjectReference (\ s a -> s{_batlTargetObjectReference = a});
+batlTargetObjectReference = lens _batlTargetObjectReference (\ s a -> s{_batlTargetObjectReference = a})
-- | Identifies the typed link facet that is associated with the typed link.
batlTypedLinkFacet :: Lens' BatchAttachTypedLink TypedLinkSchemaAndFacetName
-batlTypedLinkFacet = lens _batlTypedLinkFacet (\ s a -> s{_batlTypedLinkFacet = a});
+batlTypedLinkFacet = lens _batlTypedLinkFacet (\ s a -> s{_batlTypedLinkFacet = a})
-- | A set of attributes that are associated with the typed link.
batlAttributes :: Lens' BatchAttachTypedLink [AttributeNameAndValue]
-batlAttributes = lens _batlAttributes (\ s a -> s{_batlAttributes = a}) . _Coerce;
+batlAttributes = lens _batlAttributes (\ s a -> s{_batlAttributes = a}) . _Coerce
instance Hashable BatchAttachTypedLink where
@@ -619,7 +619,7 @@ batchAttachTypedLinkResponse =
-- | Returns a typed link specifier as output.
batlTypedLinkSpecifier :: Lens' BatchAttachTypedLinkResponse (Maybe TypedLinkSpecifier)
-batlTypedLinkSpecifier = lens _batlTypedLinkSpecifier (\ s a -> s{_batlTypedLinkSpecifier = a});
+batlTypedLinkSpecifier = lens _batlTypedLinkSpecifier (\ s a -> s{_batlTypedLinkSpecifier = a})
instance FromJSON BatchAttachTypedLinkResponse where
parseJSON
@@ -664,33 +664,33 @@ batchCreateIndex
-> BatchCreateIndex
batchCreateIndex pIsUnique_ =
BatchCreateIndex'
- { _bciParentReference = Nothing
- , _bciLinkName = Nothing
- , _bciBatchReferenceName = Nothing
- , _bciOrderedIndexedAttributeList = mempty
- , _bciIsUnique = pIsUnique_
- }
+ { _bciParentReference = Nothing
+ , _bciLinkName = Nothing
+ , _bciBatchReferenceName = Nothing
+ , _bciOrderedIndexedAttributeList = mempty
+ , _bciIsUnique = pIsUnique_
+ }
-- | A reference to the parent object that contains the index object.
bciParentReference :: Lens' BatchCreateIndex (Maybe ObjectReference)
-bciParentReference = lens _bciParentReference (\ s a -> s{_bciParentReference = a});
+bciParentReference = lens _bciParentReference (\ s a -> s{_bciParentReference = a})
-- | The name of the link between the parent object and the index object.
bciLinkName :: Lens' BatchCreateIndex (Maybe Text)
-bciLinkName = lens _bciLinkName (\ s a -> s{_bciLinkName = a});
+bciLinkName = lens _bciLinkName (\ s a -> s{_bciLinkName = a})
-- | The batch reference name. See <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/cd_advanced.html#batches Batches> for more information.
bciBatchReferenceName :: Lens' BatchCreateIndex (Maybe Text)
-bciBatchReferenceName = lens _bciBatchReferenceName (\ s a -> s{_bciBatchReferenceName = a});
+bciBatchReferenceName = lens _bciBatchReferenceName (\ s a -> s{_bciBatchReferenceName = a})
-- | Specifies the attributes that should be indexed on. Currently only a single attribute is supported.
bciOrderedIndexedAttributeList :: Lens' BatchCreateIndex [AttributeKey]
-bciOrderedIndexedAttributeList = lens _bciOrderedIndexedAttributeList (\ s a -> s{_bciOrderedIndexedAttributeList = a}) . _Coerce;
+bciOrderedIndexedAttributeList = lens _bciOrderedIndexedAttributeList (\ s a -> s{_bciOrderedIndexedAttributeList = a}) . _Coerce
-- | Indicates whether the attribute that is being indexed has unique values or not.
bciIsUnique :: Lens' BatchCreateIndex Bool
-bciIsUnique = lens _bciIsUnique (\ s a -> s{_bciIsUnique = a});
+bciIsUnique = lens _bciIsUnique (\ s a -> s{_bciIsUnique = a})
instance Hashable BatchCreateIndex where
@@ -731,7 +731,7 @@ batchCreateIndexResponse =
-- | The @ObjectIdentifier@ of the index created by this operation.
bciObjectIdentifier :: Lens' BatchCreateIndexResponse (Maybe Text)
-bciObjectIdentifier = lens _bciObjectIdentifier (\ s a -> s{_bciObjectIdentifier = a});
+bciObjectIdentifier = lens _bciObjectIdentifier (\ s a -> s{_bciObjectIdentifier = a})
instance FromJSON BatchCreateIndexResponse where
parseJSON
@@ -750,11 +750,11 @@ instance NFData BatchCreateIndexResponse where
--
-- /See:/ 'batchCreateObject' smart constructor.
data BatchCreateObject = BatchCreateObject'
- { _bcoSchemaFacet :: ![SchemaFacet]
+ { _bcoParentReference :: !(Maybe ObjectReference)
+ , _bcoLinkName :: !(Maybe Text)
+ , _bcoBatchReferenceName :: !(Maybe Text)
+ , _bcoSchemaFacet :: ![SchemaFacet]
, _bcoObjectAttributeList :: ![AttributeKeyAndValue]
- , _bcoParentReference :: !ObjectReference
- , _bcoLinkName :: !Text
- , _bcoBatchReferenceName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
@@ -762,49 +762,46 @@ data BatchCreateObject = BatchCreateObject'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'bcoSchemaFacet' - A list of @FacetArns@ that will be associated with the object. For more information, see 'arns' .
---
--- * 'bcoObjectAttributeList' - An attribute map, which contains an attribute ARN as the key and attribute value as the map value.
---
-- * 'bcoParentReference' - If specified, the parent reference to which this object will be attached.
--
-- * 'bcoLinkName' - The name of the link.
--
-- * 'bcoBatchReferenceName' - The batch reference name. See <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/cd_advanced.html#batches Batches> for more information.
+--
+-- * 'bcoSchemaFacet' - A list of @FacetArns@ that will be associated with the object. For more information, see 'arns' .
+--
+-- * 'bcoObjectAttributeList' - An attribute map, which contains an attribute ARN as the key and attribute value as the map value.
batchCreateObject
- :: ObjectReference -- ^ 'bcoParentReference'
- -> Text -- ^ 'bcoLinkName'
- -> Text -- ^ 'bcoBatchReferenceName'
- -> BatchCreateObject
-batchCreateObject pParentReference_ pLinkName_ pBatchReferenceName_ =
+ :: BatchCreateObject
+batchCreateObject =
BatchCreateObject'
- { _bcoSchemaFacet = mempty
- , _bcoObjectAttributeList = mempty
- , _bcoParentReference = pParentReference_
- , _bcoLinkName = pLinkName_
- , _bcoBatchReferenceName = pBatchReferenceName_
- }
+ { _bcoParentReference = Nothing
+ , _bcoLinkName = Nothing
+ , _bcoBatchReferenceName = Nothing
+ , _bcoSchemaFacet = mempty
+ , _bcoObjectAttributeList = mempty
+ }
--- | A list of @FacetArns@ that will be associated with the object. For more information, see 'arns' .
-bcoSchemaFacet :: Lens' BatchCreateObject [SchemaFacet]
-bcoSchemaFacet = lens _bcoSchemaFacet (\ s a -> s{_bcoSchemaFacet = a}) . _Coerce;
-
--- | An attribute map, which contains an attribute ARN as the key and attribute value as the map value.
-bcoObjectAttributeList :: Lens' BatchCreateObject [AttributeKeyAndValue]
-bcoObjectAttributeList = lens _bcoObjectAttributeList (\ s a -> s{_bcoObjectAttributeList = a}) . _Coerce;
-
-- | If specified, the parent reference to which this object will be attached.
-bcoParentReference :: Lens' BatchCreateObject ObjectReference
-bcoParentReference = lens _bcoParentReference (\ s a -> s{_bcoParentReference = a});
+bcoParentReference :: Lens' BatchCreateObject (Maybe ObjectReference)
+bcoParentReference = lens _bcoParentReference (\ s a -> s{_bcoParentReference = a})
-- | The name of the link.
-bcoLinkName :: Lens' BatchCreateObject Text
-bcoLinkName = lens _bcoLinkName (\ s a -> s{_bcoLinkName = a});
+bcoLinkName :: Lens' BatchCreateObject (Maybe Text)
+bcoLinkName = lens _bcoLinkName (\ s a -> s{_bcoLinkName = a})
-- | The batch reference name. See <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/cd_advanced.html#batches Batches> for more information.
-bcoBatchReferenceName :: Lens' BatchCreateObject Text
-bcoBatchReferenceName = lens _bcoBatchReferenceName (\ s a -> s{_bcoBatchReferenceName = a});
+bcoBatchReferenceName :: Lens' BatchCreateObject (Maybe Text)
+bcoBatchReferenceName = lens _bcoBatchReferenceName (\ s a -> s{_bcoBatchReferenceName = a})
+
+-- | A list of @FacetArns@ that will be associated with the object. For more information, see 'arns' .
+bcoSchemaFacet :: Lens' BatchCreateObject [SchemaFacet]
+bcoSchemaFacet = lens _bcoSchemaFacet (\ s a -> s{_bcoSchemaFacet = a}) . _Coerce
+
+-- | An attribute map, which contains an attribute ARN as the key and attribute value as the map value.
+bcoObjectAttributeList :: Lens' BatchCreateObject [AttributeKeyAndValue]
+bcoObjectAttributeList = lens _bcoObjectAttributeList (\ s a -> s{_bcoObjectAttributeList = a}) . _Coerce
instance Hashable BatchCreateObject where
@@ -814,13 +811,12 @@ instance ToJSON BatchCreateObject where
toJSON BatchCreateObject'{..}
= object
(catMaybes
- [Just ("SchemaFacet" .= _bcoSchemaFacet),
- Just
- ("ObjectAttributeList" .= _bcoObjectAttributeList),
- Just ("ParentReference" .= _bcoParentReference),
- Just ("LinkName" .= _bcoLinkName),
+ [("ParentReference" .=) <$> _bcoParentReference,
+ ("LinkName" .=) <$> _bcoLinkName,
+ ("BatchReferenceName" .=) <$> _bcoBatchReferenceName,
+ Just ("SchemaFacet" .= _bcoSchemaFacet),
Just
- ("BatchReferenceName" .= _bcoBatchReferenceName)])
+ ("ObjectAttributeList" .= _bcoObjectAttributeList)])
-- | Represents the output of a 'CreateObject' response operation.
--
@@ -845,7 +841,7 @@ batchCreateObjectResponse =
-- | The ID that is associated with the object.
bcoObjectIdentifier :: Lens' BatchCreateObjectResponse (Maybe Text)
-bcoObjectIdentifier = lens _bcoObjectIdentifier (\ s a -> s{_bcoObjectIdentifier = a});
+bcoObjectIdentifier = lens _bcoObjectIdentifier (\ s a -> s{_bcoObjectIdentifier = a})
instance FromJSON BatchCreateObjectResponse where
parseJSON
@@ -882,7 +878,7 @@ batchDeleteObject pObjectReference_ =
-- | The reference that identifies the object.
bdoObjectReference :: Lens' BatchDeleteObject ObjectReference
-bdoObjectReference = lens _bdoObjectReference (\ s a -> s{_bdoObjectReference = a});
+bdoObjectReference = lens _bdoObjectReference (\ s a -> s{_bdoObjectReference = a})
instance Hashable BatchDeleteObject where
@@ -944,18 +940,18 @@ batchDetachFromIndex
-> BatchDetachFromIndex
batchDetachFromIndex pIndexReference_ pTargetReference_ =
BatchDetachFromIndex'
- { _bdfiIndexReference = pIndexReference_
- , _bdfiTargetReference = pTargetReference_
- }
+ { _bdfiIndexReference = pIndexReference_
+ , _bdfiTargetReference = pTargetReference_
+ }
-- | A reference to the index object.
bdfiIndexReference :: Lens' BatchDetachFromIndex ObjectReference
-bdfiIndexReference = lens _bdfiIndexReference (\ s a -> s{_bdfiIndexReference = a});
+bdfiIndexReference = lens _bdfiIndexReference (\ s a -> s{_bdfiIndexReference = a})
-- | A reference to the object being detached from the index.
bdfiTargetReference :: Lens' BatchDetachFromIndex ObjectReference
-bdfiTargetReference = lens _bdfiTargetReference (\ s a -> s{_bdfiTargetReference = a});
+bdfiTargetReference = lens _bdfiTargetReference (\ s a -> s{_bdfiTargetReference = a})
instance Hashable BatchDetachFromIndex where
@@ -991,7 +987,7 @@ batchDetachFromIndexResponse =
-- | The @ObjectIdentifier@ of the object that was detached from the index.
bdfiDetachedObjectIdentifier :: Lens' BatchDetachFromIndexResponse (Maybe Text)
-bdfiDetachedObjectIdentifier = lens _bdfiDetachedObjectIdentifier (\ s a -> s{_bdfiDetachedObjectIdentifier = a});
+bdfiDetachedObjectIdentifier = lens _bdfiDetachedObjectIdentifier (\ s a -> s{_bdfiDetachedObjectIdentifier = a})
instance FromJSON BatchDetachFromIndexResponse where
parseJSON
@@ -1010,9 +1006,9 @@ instance NFData BatchDetachFromIndexResponse where
--
-- /See:/ 'batchDetachObject' smart constructor.
data BatchDetachObject = BatchDetachObject'
- { _bdoParentReference :: !ObjectReference
+ { _bdoBatchReferenceName :: !(Maybe Text)
+ , _bdoParentReference :: !ObjectReference
, _bdoLinkName :: !Text
- , _bdoBatchReferenceName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
@@ -1020,35 +1016,34 @@ data BatchDetachObject = BatchDetachObject'
--
-- Use one of the following lenses to modify other fields as desired:
--
+-- * 'bdoBatchReferenceName' - The batch reference name. See <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/cd_advanced.html#batches Batches> for more information.
+--
-- * 'bdoParentReference' - Parent reference from which the object with the specified link name is detached.
--
-- * 'bdoLinkName' - The name of the link.
---
--- * 'bdoBatchReferenceName' - The batch reference name. See <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/cd_advanced.html#batches Batches> for more information.
batchDetachObject
:: ObjectReference -- ^ 'bdoParentReference'
-> Text -- ^ 'bdoLinkName'
- -> Text -- ^ 'bdoBatchReferenceName'
-> BatchDetachObject
-batchDetachObject pParentReference_ pLinkName_ pBatchReferenceName_ =
+batchDetachObject pParentReference_ pLinkName_ =
BatchDetachObject'
- { _bdoParentReference = pParentReference_
- , _bdoLinkName = pLinkName_
- , _bdoBatchReferenceName = pBatchReferenceName_
- }
+ { _bdoBatchReferenceName = Nothing
+ , _bdoParentReference = pParentReference_
+ , _bdoLinkName = pLinkName_
+ }
+
+-- | The batch reference name. See <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/cd_advanced.html#batches Batches> for more information.
+bdoBatchReferenceName :: Lens' BatchDetachObject (Maybe Text)
+bdoBatchReferenceName = lens _bdoBatchReferenceName (\ s a -> s{_bdoBatchReferenceName = a})
-- | Parent reference from which the object with the specified link name is detached.
bdoParentReference :: Lens' BatchDetachObject ObjectReference
-bdoParentReference = lens _bdoParentReference (\ s a -> s{_bdoParentReference = a});
+bdoParentReference = lens _bdoParentReference (\ s a -> s{_bdoParentReference = a})
-- | The name of the link.
bdoLinkName :: Lens' BatchDetachObject Text
-bdoLinkName = lens _bdoLinkName (\ s a -> s{_bdoLinkName = a});
-
--- | The batch reference name. See <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/cd_advanced.html#batches Batches> for more information.
-bdoBatchReferenceName :: Lens' BatchDetachObject Text
-bdoBatchReferenceName = lens _bdoBatchReferenceName (\ s a -> s{_bdoBatchReferenceName = a});
+bdoLinkName = lens _bdoLinkName (\ s a -> s{_bdoLinkName = a})
instance Hashable BatchDetachObject where
@@ -1058,10 +1053,10 @@ instance ToJSON BatchDetachObject where
toJSON BatchDetachObject'{..}
= object
(catMaybes
- [Just ("ParentReference" .= _bdoParentReference),
- Just ("LinkName" .= _bdoLinkName),
- Just
- ("BatchReferenceName" .= _bdoBatchReferenceName)])
+ [("BatchReferenceName" .=) <$>
+ _bdoBatchReferenceName,
+ Just ("ParentReference" .= _bdoParentReference),
+ Just ("LinkName" .= _bdoLinkName)])
-- | Represents the output of a 'DetachObject' response operation.
--
@@ -1086,7 +1081,7 @@ batchDetachObjectResponse =
-- | The @ObjectIdentifier@ of the detached object.
bdoDetachedObjectIdentifier :: Lens' BatchDetachObjectResponse (Maybe Text)
-bdoDetachedObjectIdentifier = lens _bdoDetachedObjectIdentifier (\ s a -> s{_bdoDetachedObjectIdentifier = a});
+bdoDetachedObjectIdentifier = lens _bdoDetachedObjectIdentifier (\ s a -> s{_bdoDetachedObjectIdentifier = a})
instance FromJSON BatchDetachObjectResponse where
parseJSON
@@ -1099,7 +1094,7 @@ instance Hashable BatchDetachObjectResponse where
instance NFData BatchDetachObjectResponse where
--- | Detaches the specified policy from the specified directory inside a 'BatchRead' operation. For more information, see 'DetachPolicy' and 'BatchReadRequest$Operations' .
+-- | Detaches the specified policy from the specified directory inside a 'BatchWrite' operation. For more information, see 'DetachPolicy' and 'BatchWriteRequest$Operations' .
--
--
--
@@ -1123,18 +1118,18 @@ batchDetachPolicy
-> BatchDetachPolicy
batchDetachPolicy pPolicyReference_ pObjectReference_ =
BatchDetachPolicy'
- { _bdpPolicyReference = pPolicyReference_
- , _bdpObjectReference = pObjectReference_
- }
+ { _bdpPolicyReference = pPolicyReference_
+ , _bdpObjectReference = pObjectReference_
+ }
-- | Reference that identifies the policy object.
bdpPolicyReference :: Lens' BatchDetachPolicy ObjectReference
-bdpPolicyReference = lens _bdpPolicyReference (\ s a -> s{_bdpPolicyReference = a});
+bdpPolicyReference = lens _bdpPolicyReference (\ s a -> s{_bdpPolicyReference = a})
-- | Reference that identifies the object whose policy object will be detached.
bdpObjectReference :: Lens' BatchDetachPolicy ObjectReference
-bdpObjectReference = lens _bdpObjectReference (\ s a -> s{_bdpObjectReference = a});
+bdpObjectReference = lens _bdpObjectReference (\ s a -> s{_bdpObjectReference = a})
instance Hashable BatchDetachPolicy where
@@ -1197,7 +1192,7 @@ batchDetachTypedLink pTypedLinkSpecifier_ =
-- | Used to accept a typed link specifier as input.
bdtlTypedLinkSpecifier :: Lens' BatchDetachTypedLink TypedLinkSpecifier
-bdtlTypedLinkSpecifier = lens _bdtlTypedLinkSpecifier (\ s a -> s{_bdtlTypedLinkSpecifier = a});
+bdtlTypedLinkSpecifier = lens _bdtlTypedLinkSpecifier (\ s a -> s{_bdtlTypedLinkSpecifier = a})
instance Hashable BatchDetachTypedLink where
@@ -1236,6 +1231,102 @@ instance Hashable BatchDetachTypedLinkResponse where
instance NFData BatchDetachTypedLinkResponse where
+-- | Retrieves attributes within a facet that are associated with an object inside an 'BatchRead' operation. For more information, see 'GetObjectAttributes' and 'BatchReadRequest$Operations' .
+--
+--
+--
+-- /See:/ 'batchGetObjectAttributes' smart constructor.
+data BatchGetObjectAttributes = BatchGetObjectAttributes'
+ { _bgoaObjectReference :: !ObjectReference
+ , _bgoaSchemaFacet :: !SchemaFacet
+ , _bgoaAttributeNames :: ![Text]
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'BatchGetObjectAttributes' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'bgoaObjectReference' - Reference that identifies the object whose attributes will be retrieved.
+--
+-- * 'bgoaSchemaFacet' - Identifier for the facet whose attributes will be retrieved. See 'SchemaFacet' for details.
+--
+-- * 'bgoaAttributeNames' - List of attribute names whose values will be retrieved.
+batchGetObjectAttributes
+ :: ObjectReference -- ^ 'bgoaObjectReference'
+ -> SchemaFacet -- ^ 'bgoaSchemaFacet'
+ -> BatchGetObjectAttributes
+batchGetObjectAttributes pObjectReference_ pSchemaFacet_ =
+ BatchGetObjectAttributes'
+ { _bgoaObjectReference = pObjectReference_
+ , _bgoaSchemaFacet = pSchemaFacet_
+ , _bgoaAttributeNames = mempty
+ }
+
+
+-- | Reference that identifies the object whose attributes will be retrieved.
+bgoaObjectReference :: Lens' BatchGetObjectAttributes ObjectReference
+bgoaObjectReference = lens _bgoaObjectReference (\ s a -> s{_bgoaObjectReference = a})
+
+-- | Identifier for the facet whose attributes will be retrieved. See 'SchemaFacet' for details.
+bgoaSchemaFacet :: Lens' BatchGetObjectAttributes SchemaFacet
+bgoaSchemaFacet = lens _bgoaSchemaFacet (\ s a -> s{_bgoaSchemaFacet = a})
+
+-- | List of attribute names whose values will be retrieved.
+bgoaAttributeNames :: Lens' BatchGetObjectAttributes [Text]
+bgoaAttributeNames = lens _bgoaAttributeNames (\ s a -> s{_bgoaAttributeNames = a}) . _Coerce
+
+instance Hashable BatchGetObjectAttributes where
+
+instance NFData BatchGetObjectAttributes where
+
+instance ToJSON BatchGetObjectAttributes where
+ toJSON BatchGetObjectAttributes'{..}
+ = object
+ (catMaybes
+ [Just ("ObjectReference" .= _bgoaObjectReference),
+ Just ("SchemaFacet" .= _bgoaSchemaFacet),
+ Just ("AttributeNames" .= _bgoaAttributeNames)])
+
+-- | Represents the output of a 'GetObjectAttributes' response operation.
+--
+--
+--
+-- /See:/ 'batchGetObjectAttributesResponse' smart constructor.
+newtype BatchGetObjectAttributesResponse = BatchGetObjectAttributesResponse'
+ { _bgoaAttributes :: Maybe [AttributeKeyAndValue]
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'BatchGetObjectAttributesResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'bgoaAttributes' - The attribute values that are associated with an object.
+batchGetObjectAttributesResponse
+ :: BatchGetObjectAttributesResponse
+batchGetObjectAttributesResponse =
+ BatchGetObjectAttributesResponse' {_bgoaAttributes = Nothing}
+
+
+-- | The attribute values that are associated with an object.
+bgoaAttributes :: Lens' BatchGetObjectAttributesResponse [AttributeKeyAndValue]
+bgoaAttributes = lens _bgoaAttributes (\ s a -> s{_bgoaAttributes = a}) . _Default . _Coerce
+
+instance FromJSON BatchGetObjectAttributesResponse
+ where
+ parseJSON
+ = withObject "BatchGetObjectAttributesResponse"
+ (\ x ->
+ BatchGetObjectAttributesResponse' <$>
+ (x .:? "Attributes" .!= mempty))
+
+instance Hashable BatchGetObjectAttributesResponse
+ where
+
+instance NFData BatchGetObjectAttributesResponse
+ where
+
-- | Retrieves metadata about an object inside a 'BatchRead' operation. For more information, see 'GetObjectInformation' and 'BatchReadRequest$Operations' .
--
--
@@ -1260,7 +1351,7 @@ batchGetObjectInformation pObjectReference_ =
-- | A reference to the object.
bgoiObjectReference :: Lens' BatchGetObjectInformation ObjectReference
-bgoiObjectReference = lens _bgoiObjectReference (\ s a -> s{_bgoiObjectReference = a});
+bgoiObjectReference = lens _bgoiObjectReference (\ s a -> s{_bgoiObjectReference = a})
instance Hashable BatchGetObjectInformation where
@@ -1294,16 +1385,16 @@ batchGetObjectInformationResponse
:: BatchGetObjectInformationResponse
batchGetObjectInformationResponse =
BatchGetObjectInformationResponse'
- {_bgoiObjectIdentifier = Nothing, _bgoiSchemaFacets = Nothing}
+ {_bgoiObjectIdentifier = Nothing, _bgoiSchemaFacets = Nothing}
-- | The @ObjectIdentifier@ of the specified object.
bgoiObjectIdentifier :: Lens' BatchGetObjectInformationResponse (Maybe Text)
-bgoiObjectIdentifier = lens _bgoiObjectIdentifier (\ s a -> s{_bgoiObjectIdentifier = a});
+bgoiObjectIdentifier = lens _bgoiObjectIdentifier (\ s a -> s{_bgoiObjectIdentifier = a})
-- | The facets attached to the specified object.
bgoiSchemaFacets :: Lens' BatchGetObjectInformationResponse [SchemaFacet]
-bgoiSchemaFacets = lens _bgoiSchemaFacets (\ s a -> s{_bgoiSchemaFacets = a}) . _Default . _Coerce;
+bgoiSchemaFacets = lens _bgoiSchemaFacets (\ s a -> s{_bgoiSchemaFacets = a}) . _Default . _Coerce
instance FromJSON BatchGetObjectInformationResponse
where
@@ -1346,23 +1437,23 @@ batchListAttachedIndices
-> BatchListAttachedIndices
batchListAttachedIndices pTargetReference_ =
BatchListAttachedIndices'
- { _blaisNextToken = Nothing
- , _blaisMaxResults = Nothing
- , _blaisTargetReference = pTargetReference_
- }
+ { _blaisNextToken = Nothing
+ , _blaisMaxResults = Nothing
+ , _blaisTargetReference = pTargetReference_
+ }
-- | The pagination token.
blaisNextToken :: Lens' BatchListAttachedIndices (Maybe Text)
-blaisNextToken = lens _blaisNextToken (\ s a -> s{_blaisNextToken = a});
+blaisNextToken = lens _blaisNextToken (\ s a -> s{_blaisNextToken = a})
-- | The maximum number of results to retrieve.
blaisMaxResults :: Lens' BatchListAttachedIndices (Maybe Natural)
-blaisMaxResults = lens _blaisMaxResults (\ s a -> s{_blaisMaxResults = a}) . mapping _Nat;
+blaisMaxResults = lens _blaisMaxResults (\ s a -> s{_blaisMaxResults = a}) . mapping _Nat
-- | A reference to the object that has indices attached.
blaisTargetReference :: Lens' BatchListAttachedIndices ObjectReference
-blaisTargetReference = lens _blaisTargetReference (\ s a -> s{_blaisTargetReference = a});
+blaisTargetReference = lens _blaisTargetReference (\ s a -> s{_blaisTargetReference = a})
instance Hashable BatchListAttachedIndices where
@@ -1398,16 +1489,16 @@ batchListAttachedIndicesResponse
:: BatchListAttachedIndicesResponse
batchListAttachedIndicesResponse =
BatchListAttachedIndicesResponse'
- {_blaiIndexAttachments = Nothing, _blaiNextToken = Nothing}
+ {_blaiIndexAttachments = Nothing, _blaiNextToken = Nothing}
-- | The indices attached to the specified object.
blaiIndexAttachments :: Lens' BatchListAttachedIndicesResponse [IndexAttachment]
-blaiIndexAttachments = lens _blaiIndexAttachments (\ s a -> s{_blaiIndexAttachments = a}) . _Default . _Coerce;
+blaiIndexAttachments = lens _blaiIndexAttachments (\ s a -> s{_blaiIndexAttachments = a}) . _Default . _Coerce
-- | The pagination token.
blaiNextToken :: Lens' BatchListAttachedIndicesResponse (Maybe Text)
-blaiNextToken = lens _blaiNextToken (\ s a -> s{_blaiNextToken = a});
+blaiNextToken = lens _blaiNextToken (\ s a -> s{_blaiNextToken = a})
instance FromJSON BatchListAttachedIndicesResponse
where
@@ -1456,33 +1547,33 @@ batchListIncomingTypedLinks
-> BatchListIncomingTypedLinks
batchListIncomingTypedLinks pObjectReference_ =
BatchListIncomingTypedLinks'
- { _blitlsFilterAttributeRanges = Nothing
- , _blitlsNextToken = Nothing
- , _blitlsFilterTypedLink = Nothing
- , _blitlsMaxResults = Nothing
- , _blitlsObjectReference = pObjectReference_
- }
+ { _blitlsFilterAttributeRanges = Nothing
+ , _blitlsNextToken = Nothing
+ , _blitlsFilterTypedLink = Nothing
+ , _blitlsMaxResults = Nothing
+ , _blitlsObjectReference = pObjectReference_
+ }
-- | Provides range filters for multiple attributes. When providing ranges to typed link selection, any inexact ranges must be specified at the end. Any attributes that do not have a range specified are presumed to match the entire range.
blitlsFilterAttributeRanges :: Lens' BatchListIncomingTypedLinks [TypedLinkAttributeRange]
-blitlsFilterAttributeRanges = lens _blitlsFilterAttributeRanges (\ s a -> s{_blitlsFilterAttributeRanges = a}) . _Default . _Coerce;
+blitlsFilterAttributeRanges = lens _blitlsFilterAttributeRanges (\ s a -> s{_blitlsFilterAttributeRanges = a}) . _Default . _Coerce
-- | The pagination token.
blitlsNextToken :: Lens' BatchListIncomingTypedLinks (Maybe Text)
-blitlsNextToken = lens _blitlsNextToken (\ s a -> s{_blitlsNextToken = a});
+blitlsNextToken = lens _blitlsNextToken (\ s a -> s{_blitlsNextToken = a})
-- | Filters are interpreted in the order of the attributes on the typed link facet, not the order in which they are supplied to any API calls.
blitlsFilterTypedLink :: Lens' BatchListIncomingTypedLinks (Maybe TypedLinkSchemaAndFacetName)
-blitlsFilterTypedLink = lens _blitlsFilterTypedLink (\ s a -> s{_blitlsFilterTypedLink = a});
+blitlsFilterTypedLink = lens _blitlsFilterTypedLink (\ s a -> s{_blitlsFilterTypedLink = a})
-- | The maximum number of results to retrieve.
blitlsMaxResults :: Lens' BatchListIncomingTypedLinks (Maybe Natural)
-blitlsMaxResults = lens _blitlsMaxResults (\ s a -> s{_blitlsMaxResults = a}) . mapping _Nat;
+blitlsMaxResults = lens _blitlsMaxResults (\ s a -> s{_blitlsMaxResults = a}) . mapping _Nat
-- | The reference that identifies the object whose attributes will be listed.
blitlsObjectReference :: Lens' BatchListIncomingTypedLinks ObjectReference
-blitlsObjectReference = lens _blitlsObjectReference (\ s a -> s{_blitlsObjectReference = a});
+blitlsObjectReference = lens _blitlsObjectReference (\ s a -> s{_blitlsObjectReference = a})
instance Hashable BatchListIncomingTypedLinks where
@@ -1521,16 +1612,16 @@ batchListIncomingTypedLinksResponse
:: BatchListIncomingTypedLinksResponse
batchListIncomingTypedLinksResponse =
BatchListIncomingTypedLinksResponse'
- {_blitlLinkSpecifiers = Nothing, _blitlNextToken = Nothing}
+ {_blitlLinkSpecifiers = Nothing, _blitlNextToken = Nothing}
-- | Returns one or more typed link specifiers as output.
blitlLinkSpecifiers :: Lens' BatchListIncomingTypedLinksResponse [TypedLinkSpecifier]
-blitlLinkSpecifiers = lens _blitlLinkSpecifiers (\ s a -> s{_blitlLinkSpecifiers = a}) . _Default . _Coerce;
+blitlLinkSpecifiers = lens _blitlLinkSpecifiers (\ s a -> s{_blitlLinkSpecifiers = a}) . _Default . _Coerce
-- | The pagination token.
blitlNextToken :: Lens' BatchListIncomingTypedLinksResponse (Maybe Text)
-blitlNextToken = lens _blitlNextToken (\ s a -> s{_blitlNextToken = a});
+blitlNextToken = lens _blitlNextToken (\ s a -> s{_blitlNextToken = a})
instance FromJSON BatchListIncomingTypedLinksResponse
where
@@ -1576,28 +1667,28 @@ batchListIndex
-> BatchListIndex
batchListIndex pIndexReference_ =
BatchListIndex'
- { _batRangesOnIndexedValues = Nothing
- , _batNextToken = Nothing
- , _batMaxResults = Nothing
- , _batIndexReference = pIndexReference_
- }
+ { _batRangesOnIndexedValues = Nothing
+ , _batNextToken = Nothing
+ , _batMaxResults = Nothing
+ , _batIndexReference = pIndexReference_
+ }
-- | Specifies the ranges of indexed values that you want to query.
batRangesOnIndexedValues :: Lens' BatchListIndex [ObjectAttributeRange]
-batRangesOnIndexedValues = lens _batRangesOnIndexedValues (\ s a -> s{_batRangesOnIndexedValues = a}) . _Default . _Coerce;
+batRangesOnIndexedValues = lens _batRangesOnIndexedValues (\ s a -> s{_batRangesOnIndexedValues = a}) . _Default . _Coerce
-- | The pagination token.
batNextToken :: Lens' BatchListIndex (Maybe Text)
-batNextToken = lens _batNextToken (\ s a -> s{_batNextToken = a});
+batNextToken = lens _batNextToken (\ s a -> s{_batNextToken = a})
-- | The maximum number of results to retrieve.
batMaxResults :: Lens' BatchListIndex (Maybe Natural)
-batMaxResults = lens _batMaxResults (\ s a -> s{_batMaxResults = a}) . mapping _Nat;
+batMaxResults = lens _batMaxResults (\ s a -> s{_batMaxResults = a}) . mapping _Nat
-- | The reference to the index to list.
batIndexReference :: Lens' BatchListIndex ObjectReference
-batIndexReference = lens _batIndexReference (\ s a -> s{_batIndexReference = a});
+batIndexReference = lens _batIndexReference (\ s a -> s{_batIndexReference = a})
instance Hashable BatchListIndex where
@@ -1635,16 +1726,16 @@ batchListIndexResponse
:: BatchListIndexResponse
batchListIndexResponse =
BatchListIndexResponse'
- {_bliIndexAttachments = Nothing, _bliNextToken = Nothing}
+ {_bliIndexAttachments = Nothing, _bliNextToken = Nothing}
-- | The objects and indexed values attached to the index.
bliIndexAttachments :: Lens' BatchListIndexResponse [IndexAttachment]
-bliIndexAttachments = lens _bliIndexAttachments (\ s a -> s{_bliIndexAttachments = a}) . _Default . _Coerce;
+bliIndexAttachments = lens _bliIndexAttachments (\ s a -> s{_bliIndexAttachments = a}) . _Default . _Coerce
-- | The pagination token.
bliNextToken :: Lens' BatchListIndexResponse (Maybe Text)
-bliNextToken = lens _bliNextToken (\ s a -> s{_bliNextToken = a});
+bliNextToken = lens _bliNextToken (\ s a -> s{_bliNextToken = a})
instance FromJSON BatchListIndexResponse where
parseJSON
@@ -1687,28 +1778,28 @@ batchListObjectAttributes
-> BatchListObjectAttributes
batchListObjectAttributes pObjectReference_ =
BatchListObjectAttributes'
- { _bloaFacetFilter = Nothing
- , _bloaNextToken = Nothing
- , _bloaMaxResults = Nothing
- , _bloaObjectReference = pObjectReference_
- }
+ { _bloaFacetFilter = Nothing
+ , _bloaNextToken = Nothing
+ , _bloaMaxResults = Nothing
+ , _bloaObjectReference = pObjectReference_
+ }
-- | Used to filter the list of object attributes that are associated with a certain facet.
bloaFacetFilter :: Lens' BatchListObjectAttributes (Maybe SchemaFacet)
-bloaFacetFilter = lens _bloaFacetFilter (\ s a -> s{_bloaFacetFilter = a});
+bloaFacetFilter = lens _bloaFacetFilter (\ s a -> s{_bloaFacetFilter = a})
-- | The pagination token.
bloaNextToken :: Lens' BatchListObjectAttributes (Maybe Text)
-bloaNextToken = lens _bloaNextToken (\ s a -> s{_bloaNextToken = a});
+bloaNextToken = lens _bloaNextToken (\ s a -> s{_bloaNextToken = a})
-- | The maximum number of items to be retrieved in a single call. This is an approximate number.
bloaMaxResults :: Lens' BatchListObjectAttributes (Maybe Natural)
-bloaMaxResults = lens _bloaMaxResults (\ s a -> s{_bloaMaxResults = a}) . mapping _Nat;
+bloaMaxResults = lens _bloaMaxResults (\ s a -> s{_bloaMaxResults = a}) . mapping _Nat
-- | Reference of the object whose attributes need to be listed.
bloaObjectReference :: Lens' BatchListObjectAttributes ObjectReference
-bloaObjectReference = lens _bloaObjectReference (\ s a -> s{_bloaObjectReference = a});
+bloaObjectReference = lens _bloaObjectReference (\ s a -> s{_bloaObjectReference = a})
instance Hashable BatchListObjectAttributes where
@@ -1745,16 +1836,16 @@ batchListObjectAttributesResponse
:: BatchListObjectAttributesResponse
batchListObjectAttributesResponse =
BatchListObjectAttributesResponse'
- {_bNextToken = Nothing, _bAttributes = Nothing}
+ {_bNextToken = Nothing, _bAttributes = Nothing}
-- | The pagination token.
bNextToken :: Lens' BatchListObjectAttributesResponse (Maybe Text)
-bNextToken = lens _bNextToken (\ s a -> s{_bNextToken = a});
+bNextToken = lens _bNextToken (\ s a -> s{_bNextToken = a})
-- | The attributes map that is associated with the object. @AttributeArn@ is the key; attribute value is the value.
bAttributes :: Lens' BatchListObjectAttributesResponse [AttributeKeyAndValue]
-bAttributes = lens _bAttributes (\ s a -> s{_bAttributes = a}) . _Default . _Coerce;
+bAttributes = lens _bAttributes (\ s a -> s{_bAttributes = a}) . _Default . _Coerce
instance FromJSON BatchListObjectAttributesResponse
where
@@ -1797,23 +1888,23 @@ batchListObjectChildren
-> BatchListObjectChildren
batchListObjectChildren pObjectReference_ =
BatchListObjectChildren'
- { _bloclNextToken = Nothing
- , _bloclMaxResults = Nothing
- , _bloclObjectReference = pObjectReference_
- }
+ { _bloclNextToken = Nothing
+ , _bloclMaxResults = Nothing
+ , _bloclObjectReference = pObjectReference_
+ }
-- | The pagination token.
bloclNextToken :: Lens' BatchListObjectChildren (Maybe Text)
-bloclNextToken = lens _bloclNextToken (\ s a -> s{_bloclNextToken = a});
+bloclNextToken = lens _bloclNextToken (\ s a -> s{_bloclNextToken = a})
-- | Maximum number of items to be retrieved in a single call. This is an approximate number.
bloclMaxResults :: Lens' BatchListObjectChildren (Maybe Natural)
-bloclMaxResults = lens _bloclMaxResults (\ s a -> s{_bloclMaxResults = a}) . mapping _Nat;
+bloclMaxResults = lens _bloclMaxResults (\ s a -> s{_bloclMaxResults = a}) . mapping _Nat
-- | Reference of the object for which child objects are being listed.
bloclObjectReference :: Lens' BatchListObjectChildren ObjectReference
-bloclObjectReference = lens _bloclObjectReference (\ s a -> s{_bloclObjectReference = a});
+bloclObjectReference = lens _bloclObjectReference (\ s a -> s{_bloclObjectReference = a})
instance Hashable BatchListObjectChildren where
@@ -1849,16 +1940,16 @@ batchListObjectChildrenResponse
:: BatchListObjectChildrenResponse
batchListObjectChildrenResponse =
BatchListObjectChildrenResponse'
- {_blocChildren = Nothing, _blocNextToken = Nothing}
+ {_blocChildren = Nothing, _blocNextToken = Nothing}
-- | The children structure, which is a map with the key as the @LinkName@ and @ObjectIdentifier@ as the value.
blocChildren :: Lens' BatchListObjectChildrenResponse (HashMap Text Text)
-blocChildren = lens _blocChildren (\ s a -> s{_blocChildren = a}) . _Default . _Map;
+blocChildren = lens _blocChildren (\ s a -> s{_blocChildren = a}) . _Default . _Map
-- | The pagination token.
blocNextToken :: Lens' BatchListObjectChildrenResponse (Maybe Text)
-blocNextToken = lens _blocNextToken (\ s a -> s{_blocNextToken = a});
+blocNextToken = lens _blocNextToken (\ s a -> s{_blocNextToken = a})
instance FromJSON BatchListObjectChildrenResponse
where
@@ -1900,23 +1991,23 @@ batchListObjectParentPaths
-> BatchListObjectParentPaths
batchListObjectParentPaths pObjectReference_ =
BatchListObjectParentPaths'
- { _bloppsNextToken = Nothing
- , _bloppsMaxResults = Nothing
- , _bloppsObjectReference = pObjectReference_
- }
+ { _bloppsNextToken = Nothing
+ , _bloppsMaxResults = Nothing
+ , _bloppsObjectReference = pObjectReference_
+ }
-- | The pagination token.
bloppsNextToken :: Lens' BatchListObjectParentPaths (Maybe Text)
-bloppsNextToken = lens _bloppsNextToken (\ s a -> s{_bloppsNextToken = a});
+bloppsNextToken = lens _bloppsNextToken (\ s a -> s{_bloppsNextToken = a})
-- | The maximum number of results to retrieve.
bloppsMaxResults :: Lens' BatchListObjectParentPaths (Maybe Natural)
-bloppsMaxResults = lens _bloppsMaxResults (\ s a -> s{_bloppsMaxResults = a}) . mapping _Nat;
+bloppsMaxResults = lens _bloppsMaxResults (\ s a -> s{_bloppsMaxResults = a}) . mapping _Nat
-- | The reference that identifies the object whose attributes will be listed.
bloppsObjectReference :: Lens' BatchListObjectParentPaths ObjectReference
-bloppsObjectReference = lens _bloppsObjectReference (\ s a -> s{_bloppsObjectReference = a});
+bloppsObjectReference = lens _bloppsObjectReference (\ s a -> s{_bloppsObjectReference = a})
instance Hashable BatchListObjectParentPaths where
@@ -1952,16 +2043,16 @@ batchListObjectParentPathsResponse
:: BatchListObjectParentPathsResponse
batchListObjectParentPathsResponse =
BatchListObjectParentPathsResponse'
- {_bloppPathToObjectIdentifiersList = Nothing, _bloppNextToken = Nothing}
+ {_bloppPathToObjectIdentifiersList = Nothing, _bloppNextToken = Nothing}
-- | Returns the path to the @ObjectIdentifiers@ that are associated with the directory.
bloppPathToObjectIdentifiersList :: Lens' BatchListObjectParentPathsResponse [PathToObjectIdentifiers]
-bloppPathToObjectIdentifiersList = lens _bloppPathToObjectIdentifiersList (\ s a -> s{_bloppPathToObjectIdentifiersList = a}) . _Default . _Coerce;
+bloppPathToObjectIdentifiersList = lens _bloppPathToObjectIdentifiersList (\ s a -> s{_bloppPathToObjectIdentifiersList = a}) . _Default . _Coerce
-- | The pagination token.
bloppNextToken :: Lens' BatchListObjectParentPathsResponse (Maybe Text)
-bloppNextToken = lens _bloppNextToken (\ s a -> s{_bloppNextToken = a});
+bloppNextToken = lens _bloppNextToken (\ s a -> s{_bloppNextToken = a})
instance FromJSON BatchListObjectParentPathsResponse
where
@@ -2004,23 +2095,23 @@ batchListObjectPolicies
-> BatchListObjectPolicies
batchListObjectPolicies pObjectReference_ =
BatchListObjectPolicies'
- { _blopsNextToken = Nothing
- , _blopsMaxResults = Nothing
- , _blopsObjectReference = pObjectReference_
- }
+ { _blopsNextToken = Nothing
+ , _blopsMaxResults = Nothing
+ , _blopsObjectReference = pObjectReference_
+ }
-- | The pagination token.
blopsNextToken :: Lens' BatchListObjectPolicies (Maybe Text)
-blopsNextToken = lens _blopsNextToken (\ s a -> s{_blopsNextToken = a});
+blopsNextToken = lens _blopsNextToken (\ s a -> s{_blopsNextToken = a})
-- | The maximum number of results to retrieve.
blopsMaxResults :: Lens' BatchListObjectPolicies (Maybe Natural)
-blopsMaxResults = lens _blopsMaxResults (\ s a -> s{_blopsMaxResults = a}) . mapping _Nat;
+blopsMaxResults = lens _blopsMaxResults (\ s a -> s{_blopsMaxResults = a}) . mapping _Nat
-- | The reference that identifies the object whose attributes will be listed.
blopsObjectReference :: Lens' BatchListObjectPolicies ObjectReference
-blopsObjectReference = lens _blopsObjectReference (\ s a -> s{_blopsObjectReference = a});
+blopsObjectReference = lens _blopsObjectReference (\ s a -> s{_blopsObjectReference = a})
instance Hashable BatchListObjectPolicies where
@@ -2056,16 +2147,16 @@ batchListObjectPoliciesResponse
:: BatchListObjectPoliciesResponse
batchListObjectPoliciesResponse =
BatchListObjectPoliciesResponse'
- {_blopNextToken = Nothing, _blopAttachedPolicyIds = Nothing}
+ {_blopNextToken = Nothing, _blopAttachedPolicyIds = Nothing}
-- | The pagination token.
blopNextToken :: Lens' BatchListObjectPoliciesResponse (Maybe Text)
-blopNextToken = lens _blopNextToken (\ s a -> s{_blopNextToken = a});
+blopNextToken = lens _blopNextToken (\ s a -> s{_blopNextToken = a})
-- | A list of policy @ObjectIdentifiers@ , that are attached to the object.
blopAttachedPolicyIds :: Lens' BatchListObjectPoliciesResponse [Text]
-blopAttachedPolicyIds = lens _blopAttachedPolicyIds (\ s a -> s{_blopAttachedPolicyIds = a}) . _Default . _Coerce;
+blopAttachedPolicyIds = lens _blopAttachedPolicyIds (\ s a -> s{_blopAttachedPolicyIds = a}) . _Default . _Coerce
instance FromJSON BatchListObjectPoliciesResponse
where
@@ -2113,33 +2204,33 @@ batchListOutgoingTypedLinks
-> BatchListOutgoingTypedLinks
batchListOutgoingTypedLinks pObjectReference_ =
BatchListOutgoingTypedLinks'
- { _blotlsFilterAttributeRanges = Nothing
- , _blotlsNextToken = Nothing
- , _blotlsFilterTypedLink = Nothing
- , _blotlsMaxResults = Nothing
- , _blotlsObjectReference = pObjectReference_
- }
+ { _blotlsFilterAttributeRanges = Nothing
+ , _blotlsNextToken = Nothing
+ , _blotlsFilterTypedLink = Nothing
+ , _blotlsMaxResults = Nothing
+ , _blotlsObjectReference = pObjectReference_
+ }
-- | Provides range filters for multiple attributes. When providing ranges to typed link selection, any inexact ranges must be specified at the end. Any attributes that do not have a range specified are presumed to match the entire range.
blotlsFilterAttributeRanges :: Lens' BatchListOutgoingTypedLinks [TypedLinkAttributeRange]
-blotlsFilterAttributeRanges = lens _blotlsFilterAttributeRanges (\ s a -> s{_blotlsFilterAttributeRanges = a}) . _Default . _Coerce;
+blotlsFilterAttributeRanges = lens _blotlsFilterAttributeRanges (\ s a -> s{_blotlsFilterAttributeRanges = a}) . _Default . _Coerce
-- | The pagination token.
blotlsNextToken :: Lens' BatchListOutgoingTypedLinks (Maybe Text)
-blotlsNextToken = lens _blotlsNextToken (\ s a -> s{_blotlsNextToken = a});
+blotlsNextToken = lens _blotlsNextToken (\ s a -> s{_blotlsNextToken = a})
-- | Filters are interpreted in the order of the attributes defined on the typed link facet, not the order they are supplied to any API calls.
blotlsFilterTypedLink :: Lens' BatchListOutgoingTypedLinks (Maybe TypedLinkSchemaAndFacetName)
-blotlsFilterTypedLink = lens _blotlsFilterTypedLink (\ s a -> s{_blotlsFilterTypedLink = a});
+blotlsFilterTypedLink = lens _blotlsFilterTypedLink (\ s a -> s{_blotlsFilterTypedLink = a})
-- | The maximum number of results to retrieve.
blotlsMaxResults :: Lens' BatchListOutgoingTypedLinks (Maybe Natural)
-blotlsMaxResults = lens _blotlsMaxResults (\ s a -> s{_blotlsMaxResults = a}) . mapping _Nat;
+blotlsMaxResults = lens _blotlsMaxResults (\ s a -> s{_blotlsMaxResults = a}) . mapping _Nat
-- | The reference that identifies the object whose attributes will be listed.
blotlsObjectReference :: Lens' BatchListOutgoingTypedLinks ObjectReference
-blotlsObjectReference = lens _blotlsObjectReference (\ s a -> s{_blotlsObjectReference = a});
+blotlsObjectReference = lens _blotlsObjectReference (\ s a -> s{_blotlsObjectReference = a})
instance Hashable BatchListOutgoingTypedLinks where
@@ -2178,16 +2269,16 @@ batchListOutgoingTypedLinksResponse
:: BatchListOutgoingTypedLinksResponse
batchListOutgoingTypedLinksResponse =
BatchListOutgoingTypedLinksResponse'
- {_blotlTypedLinkSpecifiers = Nothing, _blotlNextToken = Nothing}
+ {_blotlTypedLinkSpecifiers = Nothing, _blotlNextToken = Nothing}
-- | Returns a typed link specifier as output.
blotlTypedLinkSpecifiers :: Lens' BatchListOutgoingTypedLinksResponse [TypedLinkSpecifier]
-blotlTypedLinkSpecifiers = lens _blotlTypedLinkSpecifiers (\ s a -> s{_blotlTypedLinkSpecifiers = a}) . _Default . _Coerce;
+blotlTypedLinkSpecifiers = lens _blotlTypedLinkSpecifiers (\ s a -> s{_blotlTypedLinkSpecifiers = a}) . _Default . _Coerce
-- | The pagination token.
blotlNextToken :: Lens' BatchListOutgoingTypedLinksResponse (Maybe Text)
-blotlNextToken = lens _blotlNextToken (\ s a -> s{_blotlNextToken = a});
+blotlNextToken = lens _blotlNextToken (\ s a -> s{_blotlNextToken = a})
instance FromJSON BatchListOutgoingTypedLinksResponse
where
@@ -2230,23 +2321,23 @@ batchListPolicyAttachments
-> BatchListPolicyAttachments
batchListPolicyAttachments pPolicyReference_ =
BatchListPolicyAttachments'
- { _blpasNextToken = Nothing
- , _blpasMaxResults = Nothing
- , _blpasPolicyReference = pPolicyReference_
- }
+ { _blpasNextToken = Nothing
+ , _blpasMaxResults = Nothing
+ , _blpasPolicyReference = pPolicyReference_
+ }
-- | The pagination token.
blpasNextToken :: Lens' BatchListPolicyAttachments (Maybe Text)
-blpasNextToken = lens _blpasNextToken (\ s a -> s{_blpasNextToken = a});
+blpasNextToken = lens _blpasNextToken (\ s a -> s{_blpasNextToken = a})
-- | The maximum number of results to retrieve.
blpasMaxResults :: Lens' BatchListPolicyAttachments (Maybe Natural)
-blpasMaxResults = lens _blpasMaxResults (\ s a -> s{_blpasMaxResults = a}) . mapping _Nat;
+blpasMaxResults = lens _blpasMaxResults (\ s a -> s{_blpasMaxResults = a}) . mapping _Nat
-- | The reference that identifies the policy object.
blpasPolicyReference :: Lens' BatchListPolicyAttachments ObjectReference
-blpasPolicyReference = lens _blpasPolicyReference (\ s a -> s{_blpasPolicyReference = a});
+blpasPolicyReference = lens _blpasPolicyReference (\ s a -> s{_blpasPolicyReference = a})
instance Hashable BatchListPolicyAttachments where
@@ -2282,16 +2373,16 @@ batchListPolicyAttachmentsResponse
:: BatchListPolicyAttachmentsResponse
batchListPolicyAttachmentsResponse =
BatchListPolicyAttachmentsResponse'
- {_blpaObjectIdentifiers = Nothing, _blpaNextToken = Nothing}
+ {_blpaObjectIdentifiers = Nothing, _blpaNextToken = Nothing}
-- | A list of @ObjectIdentifiers@ to which the policy is attached.
blpaObjectIdentifiers :: Lens' BatchListPolicyAttachmentsResponse [Text]
-blpaObjectIdentifiers = lens _blpaObjectIdentifiers (\ s a -> s{_blpaObjectIdentifiers = a}) . _Default . _Coerce;
+blpaObjectIdentifiers = lens _blpaObjectIdentifiers (\ s a -> s{_blpaObjectIdentifiers = a}) . _Default . _Coerce
-- | The pagination token.
blpaNextToken :: Lens' BatchListPolicyAttachmentsResponse (Maybe Text)
-blpaNextToken = lens _blpaNextToken (\ s a -> s{_blpaNextToken = a});
+blpaNextToken = lens _blpaNextToken (\ s a -> s{_blpaNextToken = a})
instance FromJSON BatchListPolicyAttachmentsResponse
where
@@ -2334,23 +2425,23 @@ batchLookupPolicy
-> BatchLookupPolicy
batchLookupPolicy pObjectReference_ =
BatchLookupPolicy'
- { _blplNextToken = Nothing
- , _blplMaxResults = Nothing
- , _blplObjectReference = pObjectReference_
- }
+ { _blplNextToken = Nothing
+ , _blplMaxResults = Nothing
+ , _blplObjectReference = pObjectReference_
+ }
-- | The pagination token.
blplNextToken :: Lens' BatchLookupPolicy (Maybe Text)
-blplNextToken = lens _blplNextToken (\ s a -> s{_blplNextToken = a});
+blplNextToken = lens _blplNextToken (\ s a -> s{_blplNextToken = a})
-- | The maximum number of results to retrieve.
blplMaxResults :: Lens' BatchLookupPolicy (Maybe Natural)
-blplMaxResults = lens _blplMaxResults (\ s a -> s{_blplMaxResults = a}) . mapping _Nat;
+blplMaxResults = lens _blplMaxResults (\ s a -> s{_blplMaxResults = a}) . mapping _Nat
-- | Reference that identifies the object whose policies will be looked up.
blplObjectReference :: Lens' BatchLookupPolicy ObjectReference
-blplObjectReference = lens _blplObjectReference (\ s a -> s{_blplObjectReference = a});
+blplObjectReference = lens _blplObjectReference (\ s a -> s{_blplObjectReference = a})
instance Hashable BatchLookupPolicy where
@@ -2386,16 +2477,16 @@ batchLookupPolicyResponse
:: BatchLookupPolicyResponse
batchLookupPolicyResponse =
BatchLookupPolicyResponse'
- {_blpNextToken = Nothing, _blpPolicyToPathList = Nothing}
+ {_blpNextToken = Nothing, _blpPolicyToPathList = Nothing}
-- | The pagination token.
blpNextToken :: Lens' BatchLookupPolicyResponse (Maybe Text)
-blpNextToken = lens _blpNextToken (\ s a -> s{_blpNextToken = a});
+blpNextToken = lens _blpNextToken (\ s a -> s{_blpNextToken = a})
-- | Provides list of path to policies. Policies contain @PolicyId@ , @ObjectIdentifier@ , and @PolicyType@ . For more information, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/cd_key_concepts.html#policies Policies> .
blpPolicyToPathList :: Lens' BatchLookupPolicyResponse [PolicyToPath]
-blpPolicyToPathList = lens _blpPolicyToPathList (\ s a -> s{_blpPolicyToPathList = a}) . _Default . _Coerce;
+blpPolicyToPathList = lens _blpPolicyToPathList (\ s a -> s{_blpPolicyToPathList = a}) . _Default . _Coerce
instance FromJSON BatchLookupPolicyResponse where
parseJSON
@@ -2435,11 +2526,11 @@ batchReadException =
-- | A type of exception, such as @InvalidArnException@ .
breType :: Lens' BatchReadException (Maybe BatchReadExceptionType)
-breType = lens _breType (\ s a -> s{_breType = a});
+breType = lens _breType (\ s a -> s{_breType = a})
-- | An exception message that is associated with the failure.
breMessage :: Lens' BatchReadException (Maybe Text)
-breMessage = lens _breMessage (\ s a -> s{_breMessage = a});
+breMessage = lens _breMessage (\ s a -> s{_breMessage = a})
instance FromJSON BatchReadException where
parseJSON
@@ -2465,6 +2556,7 @@ data BatchReadOperation = BatchReadOperation'
, _broListObjectParentPaths :: !(Maybe BatchListObjectParentPaths)
, _broListObjectAttributes :: !(Maybe BatchListObjectAttributes)
, _broListIncomingTypedLinks :: !(Maybe BatchListIncomingTypedLinks)
+ , _broGetObjectAttributes :: !(Maybe BatchGetObjectAttributes)
, _broListObjectChildren :: !(Maybe BatchListObjectChildren)
, _broListPolicyAttachments :: !(Maybe BatchListPolicyAttachments)
, _broListOutgoingTypedLinks :: !(Maybe BatchListOutgoingTypedLinks)
@@ -2490,6 +2582,8 @@ data BatchReadOperation = BatchReadOperation'
--
-- * 'broListIncomingTypedLinks' - Returns a paginated list of all the incoming 'TypedLinkSpecifier' information for an object. It also supports filtering by typed link facet and identity attributes. For more information, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/objectsandlinks.html#typedlink Typed link> .
--
+-- * 'broGetObjectAttributes' - Retrieves attributes within a facet that are associated with an object.
+--
-- * 'broListObjectChildren' - Returns a paginated list of child objects that are associated with a given object.
--
-- * 'broListPolicyAttachments' - Returns all of the @ObjectIdentifiers@ to which a given policy is attached.
@@ -2501,63 +2595,68 @@ batchReadOperation
:: BatchReadOperation
batchReadOperation =
BatchReadOperation'
- { _broListIndex = Nothing
- , _broGetObjectInformation = Nothing
- , _broListAttachedIndices = Nothing
- , _broLookupPolicy = Nothing
- , _broListObjectParentPaths = Nothing
- , _broListObjectAttributes = Nothing
- , _broListIncomingTypedLinks = Nothing
- , _broListObjectChildren = Nothing
- , _broListPolicyAttachments = Nothing
- , _broListOutgoingTypedLinks = Nothing
- , _broListObjectPolicies = Nothing
- }
+ { _broListIndex = Nothing
+ , _broGetObjectInformation = Nothing
+ , _broListAttachedIndices = Nothing
+ , _broLookupPolicy = Nothing
+ , _broListObjectParentPaths = Nothing
+ , _broListObjectAttributes = Nothing
+ , _broListIncomingTypedLinks = Nothing
+ , _broGetObjectAttributes = Nothing
+ , _broListObjectChildren = Nothing
+ , _broListPolicyAttachments = Nothing
+ , _broListOutgoingTypedLinks = Nothing
+ , _broListObjectPolicies = Nothing
+ }
-- | Lists objects attached to the specified index.
broListIndex :: Lens' BatchReadOperation (Maybe BatchListIndex)
-broListIndex = lens _broListIndex (\ s a -> s{_broListIndex = a});
+broListIndex = lens _broListIndex (\ s a -> s{_broListIndex = a})
-- | Retrieves metadata about an object.
broGetObjectInformation :: Lens' BatchReadOperation (Maybe BatchGetObjectInformation)
-broGetObjectInformation = lens _broGetObjectInformation (\ s a -> s{_broGetObjectInformation = a});
+broGetObjectInformation = lens _broGetObjectInformation (\ s a -> s{_broGetObjectInformation = a})
-- | Lists indices attached to an object.
broListAttachedIndices :: Lens' BatchReadOperation (Maybe BatchListAttachedIndices)
-broListAttachedIndices = lens _broListAttachedIndices (\ s a -> s{_broListAttachedIndices = a});
+broListAttachedIndices = lens _broListAttachedIndices (\ s a -> s{_broListAttachedIndices = a})
-- | Lists all policies from the root of the 'Directory' to the object specified. If there are no policies present, an empty list is returned. If policies are present, and if some objects don't have the policies attached, it returns the @ObjectIdentifier@ for such objects. If policies are present, it returns @ObjectIdentifier@ , @policyId@ , and @policyType@ . Paths that don't lead to the root from the target object are ignored. For more information, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/cd_key_concepts.html#policies Policies> .
broLookupPolicy :: Lens' BatchReadOperation (Maybe BatchLookupPolicy)
-broLookupPolicy = lens _broLookupPolicy (\ s a -> s{_broLookupPolicy = a});
+broLookupPolicy = lens _broLookupPolicy (\ s a -> s{_broLookupPolicy = a})
-- | Retrieves all available parent paths for any object type such as node, leaf node, policy node, and index node objects. For more information about objects, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/cd_key_concepts.html#dirstructure Directory Structure> .
broListObjectParentPaths :: Lens' BatchReadOperation (Maybe BatchListObjectParentPaths)
-broListObjectParentPaths = lens _broListObjectParentPaths (\ s a -> s{_broListObjectParentPaths = a});
+broListObjectParentPaths = lens _broListObjectParentPaths (\ s a -> s{_broListObjectParentPaths = a})
-- | Lists all attributes that are associated with an object.
broListObjectAttributes :: Lens' BatchReadOperation (Maybe BatchListObjectAttributes)
-broListObjectAttributes = lens _broListObjectAttributes (\ s a -> s{_broListObjectAttributes = a});
+broListObjectAttributes = lens _broListObjectAttributes (\ s a -> s{_broListObjectAttributes = a})
-- | Returns a paginated list of all the incoming 'TypedLinkSpecifier' information for an object. It also supports filtering by typed link facet and identity attributes. For more information, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/objectsandlinks.html#typedlink Typed link> .
broListIncomingTypedLinks :: Lens' BatchReadOperation (Maybe BatchListIncomingTypedLinks)
-broListIncomingTypedLinks = lens _broListIncomingTypedLinks (\ s a -> s{_broListIncomingTypedLinks = a});
+broListIncomingTypedLinks = lens _broListIncomingTypedLinks (\ s a -> s{_broListIncomingTypedLinks = a})
+
+-- | Retrieves attributes within a facet that are associated with an object.
+broGetObjectAttributes :: Lens' BatchReadOperation (Maybe BatchGetObjectAttributes)
+broGetObjectAttributes = lens _broGetObjectAttributes (\ s a -> s{_broGetObjectAttributes = a})
-- | Returns a paginated list of child objects that are associated with a given object.
broListObjectChildren :: Lens' BatchReadOperation (Maybe BatchListObjectChildren)
-broListObjectChildren = lens _broListObjectChildren (\ s a -> s{_broListObjectChildren = a});
+broListObjectChildren = lens _broListObjectChildren (\ s a -> s{_broListObjectChildren = a})
-- | Returns all of the @ObjectIdentifiers@ to which a given policy is attached.
broListPolicyAttachments :: Lens' BatchReadOperation (Maybe BatchListPolicyAttachments)
-broListPolicyAttachments = lens _broListPolicyAttachments (\ s a -> s{_broListPolicyAttachments = a});
+broListPolicyAttachments = lens _broListPolicyAttachments (\ s a -> s{_broListPolicyAttachments = a})
-- | Returns a paginated list of all the outgoing 'TypedLinkSpecifier' information for an object. It also supports filtering by typed link facet and identity attributes. For more information, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/objectsandlinks.html#typedlink Typed link> .
broListOutgoingTypedLinks :: Lens' BatchReadOperation (Maybe BatchListOutgoingTypedLinks)
-broListOutgoingTypedLinks = lens _broListOutgoingTypedLinks (\ s a -> s{_broListOutgoingTypedLinks = a});
+broListOutgoingTypedLinks = lens _broListOutgoingTypedLinks (\ s a -> s{_broListOutgoingTypedLinks = a})
-- | Returns policies attached to an object in pagination fashion.
broListObjectPolicies :: Lens' BatchReadOperation (Maybe BatchListObjectPolicies)
-broListObjectPolicies = lens _broListObjectPolicies (\ s a -> s{_broListObjectPolicies = a});
+broListObjectPolicies = lens _broListObjectPolicies (\ s a -> s{_broListObjectPolicies = a})
instance Hashable BatchReadOperation where
@@ -2579,6 +2678,8 @@ instance ToJSON BatchReadOperation where
_broListObjectAttributes,
("ListIncomingTypedLinks" .=) <$>
_broListIncomingTypedLinks,
+ ("GetObjectAttributes" .=) <$>
+ _broGetObjectAttributes,
("ListObjectChildren" .=) <$> _broListObjectChildren,
("ListPolicyAttachments" .=) <$>
_broListPolicyAttachments,
@@ -2609,16 +2710,16 @@ batchReadOperationResponse
:: BatchReadOperationResponse
batchReadOperationResponse =
BatchReadOperationResponse'
- {_broExceptionResponse = Nothing, _broSuccessfulResponse = Nothing}
+ {_broExceptionResponse = Nothing, _broSuccessfulResponse = Nothing}
-- | Identifies which operation in a batch has failed.
broExceptionResponse :: Lens' BatchReadOperationResponse (Maybe BatchReadException)
-broExceptionResponse = lens _broExceptionResponse (\ s a -> s{_broExceptionResponse = a});
+broExceptionResponse = lens _broExceptionResponse (\ s a -> s{_broExceptionResponse = a})
-- | Identifies which operation in a batch has succeeded.
broSuccessfulResponse :: Lens' BatchReadOperationResponse (Maybe BatchReadSuccessfulResponse)
-broSuccessfulResponse = lens _broSuccessfulResponse (\ s a -> s{_broSuccessfulResponse = a});
+broSuccessfulResponse = lens _broSuccessfulResponse (\ s a -> s{_broSuccessfulResponse = a})
instance FromJSON BatchReadOperationResponse where
parseJSON
@@ -2645,6 +2746,7 @@ data BatchReadSuccessfulResponse = BatchReadSuccessfulResponse'
, _brsListObjectParentPaths :: !(Maybe BatchListObjectParentPathsResponse)
, _brsListObjectAttributes :: !(Maybe BatchListObjectAttributesResponse)
, _brsListIncomingTypedLinks :: !(Maybe BatchListIncomingTypedLinksResponse)
+ , _brsGetObjectAttributes :: !(Maybe BatchGetObjectAttributesResponse)
, _brsListObjectChildren :: !(Maybe BatchListObjectChildrenResponse)
, _brsListPolicyAttachments :: !(Maybe BatchListPolicyAttachmentsResponse)
, _brsListOutgoingTypedLinks :: !(Maybe BatchListOutgoingTypedLinksResponse)
@@ -2670,6 +2772,8 @@ data BatchReadSuccessfulResponse = BatchReadSuccessfulResponse'
--
-- * 'brsListIncomingTypedLinks' - Returns a paginated list of all the incoming 'TypedLinkSpecifier' information for an object. It also supports filtering by typed link facet and identity attributes. For more information, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/objectsandlinks.html#typedlink Typed link> .
--
+-- * 'brsGetObjectAttributes' - Retrieves attributes within a facet that are associated with an object.
+--
-- * 'brsListObjectChildren' - Returns a paginated list of child objects that are associated with a given object.
--
-- * 'brsListPolicyAttachments' - Returns all of the @ObjectIdentifiers@ to which a given policy is attached.
@@ -2681,63 +2785,68 @@ batchReadSuccessfulResponse
:: BatchReadSuccessfulResponse
batchReadSuccessfulResponse =
BatchReadSuccessfulResponse'
- { _brsListIndex = Nothing
- , _brsGetObjectInformation = Nothing
- , _brsListAttachedIndices = Nothing
- , _brsLookupPolicy = Nothing
- , _brsListObjectParentPaths = Nothing
- , _brsListObjectAttributes = Nothing
- , _brsListIncomingTypedLinks = Nothing
- , _brsListObjectChildren = Nothing
- , _brsListPolicyAttachments = Nothing
- , _brsListOutgoingTypedLinks = Nothing
- , _brsListObjectPolicies = Nothing
- }
+ { _brsListIndex = Nothing
+ , _brsGetObjectInformation = Nothing
+ , _brsListAttachedIndices = Nothing
+ , _brsLookupPolicy = Nothing
+ , _brsListObjectParentPaths = Nothing
+ , _brsListObjectAttributes = Nothing
+ , _brsListIncomingTypedLinks = Nothing
+ , _brsGetObjectAttributes = Nothing
+ , _brsListObjectChildren = Nothing
+ , _brsListPolicyAttachments = Nothing
+ , _brsListOutgoingTypedLinks = Nothing
+ , _brsListObjectPolicies = Nothing
+ }
-- | Lists objects attached to the specified index.
brsListIndex :: Lens' BatchReadSuccessfulResponse (Maybe BatchListIndexResponse)
-brsListIndex = lens _brsListIndex (\ s a -> s{_brsListIndex = a});
+brsListIndex = lens _brsListIndex (\ s a -> s{_brsListIndex = a})
-- | Retrieves metadata about an object.
brsGetObjectInformation :: Lens' BatchReadSuccessfulResponse (Maybe BatchGetObjectInformationResponse)
-brsGetObjectInformation = lens _brsGetObjectInformation (\ s a -> s{_brsGetObjectInformation = a});
+brsGetObjectInformation = lens _brsGetObjectInformation (\ s a -> s{_brsGetObjectInformation = a})
-- | Lists indices attached to an object.
brsListAttachedIndices :: Lens' BatchReadSuccessfulResponse (Maybe BatchListAttachedIndicesResponse)
-brsListAttachedIndices = lens _brsListAttachedIndices (\ s a -> s{_brsListAttachedIndices = a});
+brsListAttachedIndices = lens _brsListAttachedIndices (\ s a -> s{_brsListAttachedIndices = a})
-- | Lists all policies from the root of the 'Directory' to the object specified. If there are no policies present, an empty list is returned. If policies are present, and if some objects don't have the policies attached, it returns the @ObjectIdentifier@ for such objects. If policies are present, it returns @ObjectIdentifier@ , @policyId@ , and @policyType@ . Paths that don't lead to the root from the target object are ignored. For more information, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/cd_key_concepts.html#policies Policies> .
brsLookupPolicy :: Lens' BatchReadSuccessfulResponse (Maybe BatchLookupPolicyResponse)
-brsLookupPolicy = lens _brsLookupPolicy (\ s a -> s{_brsLookupPolicy = a});
+brsLookupPolicy = lens _brsLookupPolicy (\ s a -> s{_brsLookupPolicy = a})
-- | Retrieves all available parent paths for any object type such as node, leaf node, policy node, and index node objects. For more information about objects, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/cd_key_concepts.html#dirstructure Directory Structure> .
brsListObjectParentPaths :: Lens' BatchReadSuccessfulResponse (Maybe BatchListObjectParentPathsResponse)
-brsListObjectParentPaths = lens _brsListObjectParentPaths (\ s a -> s{_brsListObjectParentPaths = a});
+brsListObjectParentPaths = lens _brsListObjectParentPaths (\ s a -> s{_brsListObjectParentPaths = a})
-- | Lists all attributes that are associated with an object.
brsListObjectAttributes :: Lens' BatchReadSuccessfulResponse (Maybe BatchListObjectAttributesResponse)
-brsListObjectAttributes = lens _brsListObjectAttributes (\ s a -> s{_brsListObjectAttributes = a});
+brsListObjectAttributes = lens _brsListObjectAttributes (\ s a -> s{_brsListObjectAttributes = a})
-- | Returns a paginated list of all the incoming 'TypedLinkSpecifier' information for an object. It also supports filtering by typed link facet and identity attributes. For more information, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/objectsandlinks.html#typedlink Typed link> .
brsListIncomingTypedLinks :: Lens' BatchReadSuccessfulResponse (Maybe BatchListIncomingTypedLinksResponse)
-brsListIncomingTypedLinks = lens _brsListIncomingTypedLinks (\ s a -> s{_brsListIncomingTypedLinks = a});
+brsListIncomingTypedLinks = lens _brsListIncomingTypedLinks (\ s a -> s{_brsListIncomingTypedLinks = a})
+
+-- | Retrieves attributes within a facet that are associated with an object.
+brsGetObjectAttributes :: Lens' BatchReadSuccessfulResponse (Maybe BatchGetObjectAttributesResponse)
+brsGetObjectAttributes = lens _brsGetObjectAttributes (\ s a -> s{_brsGetObjectAttributes = a})
-- | Returns a paginated list of child objects that are associated with a given object.
brsListObjectChildren :: Lens' BatchReadSuccessfulResponse (Maybe BatchListObjectChildrenResponse)
-brsListObjectChildren = lens _brsListObjectChildren (\ s a -> s{_brsListObjectChildren = a});
+brsListObjectChildren = lens _brsListObjectChildren (\ s a -> s{_brsListObjectChildren = a})
-- | Returns all of the @ObjectIdentifiers@ to which a given policy is attached.
brsListPolicyAttachments :: Lens' BatchReadSuccessfulResponse (Maybe BatchListPolicyAttachmentsResponse)
-brsListPolicyAttachments = lens _brsListPolicyAttachments (\ s a -> s{_brsListPolicyAttachments = a});
+brsListPolicyAttachments = lens _brsListPolicyAttachments (\ s a -> s{_brsListPolicyAttachments = a})
-- | Returns a paginated list of all the outgoing 'TypedLinkSpecifier' information for an object. It also supports filtering by typed link facet and identity attributes. For more information, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/objectsandlinks.html#typedlink Typed link> .
brsListOutgoingTypedLinks :: Lens' BatchReadSuccessfulResponse (Maybe BatchListOutgoingTypedLinksResponse)
-brsListOutgoingTypedLinks = lens _brsListOutgoingTypedLinks (\ s a -> s{_brsListOutgoingTypedLinks = a});
+brsListOutgoingTypedLinks = lens _brsListOutgoingTypedLinks (\ s a -> s{_brsListOutgoingTypedLinks = a})
-- | Returns policies attached to an object in pagination fashion.
brsListObjectPolicies :: Lens' BatchReadSuccessfulResponse (Maybe BatchListObjectPoliciesResponse)
-brsListObjectPolicies = lens _brsListObjectPolicies (\ s a -> s{_brsListObjectPolicies = a});
+brsListObjectPolicies = lens _brsListObjectPolicies (\ s a -> s{_brsListObjectPolicies = a})
instance FromJSON BatchReadSuccessfulResponse where
parseJSON
@@ -2751,6 +2860,7 @@ instance FromJSON BatchReadSuccessfulResponse where
<*> (x .:? "ListObjectParentPaths")
<*> (x .:? "ListObjectAttributes")
<*> (x .:? "ListIncomingTypedLinks")
+ <*> (x .:? "GetObjectAttributes")
<*> (x .:? "ListObjectChildren")
<*> (x .:? "ListPolicyAttachments")
<*> (x .:? "ListOutgoingTypedLinks")
@@ -2784,16 +2894,18 @@ batchRemoveFacetFromObject
-> BatchRemoveFacetFromObject
batchRemoveFacetFromObject pSchemaFacet_ pObjectReference_ =
BatchRemoveFacetFromObject'
- {_brffoSchemaFacet = pSchemaFacet_, _brffoObjectReference = pObjectReference_}
+ { _brffoSchemaFacet = pSchemaFacet_
+ , _brffoObjectReference = pObjectReference_
+ }
-- | The facet to remove from the object.
brffoSchemaFacet :: Lens' BatchRemoveFacetFromObject SchemaFacet
-brffoSchemaFacet = lens _brffoSchemaFacet (\ s a -> s{_brffoSchemaFacet = a});
+brffoSchemaFacet = lens _brffoSchemaFacet (\ s a -> s{_brffoSchemaFacet = a})
-- | A reference to the object whose facet will be removed.
brffoObjectReference :: Lens' BatchRemoveFacetFromObject ObjectReference
-brffoObjectReference = lens _brffoObjectReference (\ s a -> s{_brffoObjectReference = a});
+brffoObjectReference = lens _brffoObjectReference (\ s a -> s{_brffoObjectReference = a})
instance Hashable BatchRemoveFacetFromObject where
@@ -2858,16 +2970,16 @@ batchUpdateObjectAttributes
-> BatchUpdateObjectAttributes
batchUpdateObjectAttributes pObjectReference_ =
BatchUpdateObjectAttributes'
- {_buoaObjectReference = pObjectReference_, _buoaAttributeUpdates = mempty}
+ {_buoaObjectReference = pObjectReference_, _buoaAttributeUpdates = mempty}
-- | Reference that identifies the object.
buoaObjectReference :: Lens' BatchUpdateObjectAttributes ObjectReference
-buoaObjectReference = lens _buoaObjectReference (\ s a -> s{_buoaObjectReference = a});
+buoaObjectReference = lens _buoaObjectReference (\ s a -> s{_buoaObjectReference = a})
-- | Attributes update structure.
buoaAttributeUpdates :: Lens' BatchUpdateObjectAttributes [ObjectAttributeUpdate]
-buoaAttributeUpdates = lens _buoaAttributeUpdates (\ s a -> s{_buoaAttributeUpdates = a}) . _Coerce;
+buoaAttributeUpdates = lens _buoaAttributeUpdates (\ s a -> s{_buoaAttributeUpdates = a}) . _Coerce
instance Hashable BatchUpdateObjectAttributes where
@@ -2903,7 +3015,7 @@ batchUpdateObjectAttributesResponse =
-- | ID that is associated with the object.
buoaObjectIdentifier :: Lens' BatchUpdateObjectAttributesResponse (Maybe Text)
-buoaObjectIdentifier = lens _buoaObjectIdentifier (\ s a -> s{_buoaObjectIdentifier = a});
+buoaObjectIdentifier = lens _buoaObjectIdentifier (\ s a -> s{_buoaObjectIdentifier = a})
instance FromJSON BatchUpdateObjectAttributesResponse
where
@@ -2977,78 +3089,78 @@ batchWriteOperation
:: BatchWriteOperation
batchWriteOperation =
BatchWriteOperation'
- { _bDeleteObject = Nothing
- , _bDetachFromIndex = Nothing
- , _bRemoveFacetFromObject = Nothing
- , _bAttachObject = Nothing
- , _bCreateObject = Nothing
- , _bAttachTypedLink = Nothing
- , _bDetachPolicy = Nothing
- , _bCreateIndex = Nothing
- , _bDetachObject = Nothing
- , _bAddFacetToObject = Nothing
- , _bDetachTypedLink = Nothing
- , _bUpdateObjectAttributes = Nothing
- , _bAttachPolicy = Nothing
- , _bAttachToIndex = Nothing
- }
+ { _bDeleteObject = Nothing
+ , _bDetachFromIndex = Nothing
+ , _bRemoveFacetFromObject = Nothing
+ , _bAttachObject = Nothing
+ , _bCreateObject = Nothing
+ , _bAttachTypedLink = Nothing
+ , _bDetachPolicy = Nothing
+ , _bCreateIndex = Nothing
+ , _bDetachObject = Nothing
+ , _bAddFacetToObject = Nothing
+ , _bDetachTypedLink = Nothing
+ , _bUpdateObjectAttributes = Nothing
+ , _bAttachPolicy = Nothing
+ , _bAttachToIndex = Nothing
+ }
-- | Deletes an object in a 'Directory' .
bDeleteObject :: Lens' BatchWriteOperation (Maybe BatchDeleteObject)
-bDeleteObject = lens _bDeleteObject (\ s a -> s{_bDeleteObject = a});
+bDeleteObject = lens _bDeleteObject (\ s a -> s{_bDeleteObject = a})
-- | Detaches the specified object from the specified index.
bDetachFromIndex :: Lens' BatchWriteOperation (Maybe BatchDetachFromIndex)
-bDetachFromIndex = lens _bDetachFromIndex (\ s a -> s{_bDetachFromIndex = a});
+bDetachFromIndex = lens _bDetachFromIndex (\ s a -> s{_bDetachFromIndex = a})
-- | A batch operation that removes a facet from an object.
bRemoveFacetFromObject :: Lens' BatchWriteOperation (Maybe BatchRemoveFacetFromObject)
-bRemoveFacetFromObject = lens _bRemoveFacetFromObject (\ s a -> s{_bRemoveFacetFromObject = a});
+bRemoveFacetFromObject = lens _bRemoveFacetFromObject (\ s a -> s{_bRemoveFacetFromObject = a})
-- | Attaches an object to a 'Directory' .
bAttachObject :: Lens' BatchWriteOperation (Maybe BatchAttachObject)
-bAttachObject = lens _bAttachObject (\ s a -> s{_bAttachObject = a});
+bAttachObject = lens _bAttachObject (\ s a -> s{_bAttachObject = a})
-- | Creates an object.
bCreateObject :: Lens' BatchWriteOperation (Maybe BatchCreateObject)
-bCreateObject = lens _bCreateObject (\ s a -> s{_bCreateObject = a});
+bCreateObject = lens _bCreateObject (\ s a -> s{_bCreateObject = a})
-- | Attaches a typed link to a specified source and target object. For more information, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/objectsandlinks.html#typedlink Typed link> .
bAttachTypedLink :: Lens' BatchWriteOperation (Maybe BatchAttachTypedLink)
-bAttachTypedLink = lens _bAttachTypedLink (\ s a -> s{_bAttachTypedLink = a});
+bAttachTypedLink = lens _bAttachTypedLink (\ s a -> s{_bAttachTypedLink = a})
-- | Detaches a policy from a 'Directory' .
bDetachPolicy :: Lens' BatchWriteOperation (Maybe BatchDetachPolicy)
-bDetachPolicy = lens _bDetachPolicy (\ s a -> s{_bDetachPolicy = a});
+bDetachPolicy = lens _bDetachPolicy (\ s a -> s{_bDetachPolicy = a})
-- | Creates an index object. See <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/cd_indexing.html Indexing> for more information.
bCreateIndex :: Lens' BatchWriteOperation (Maybe BatchCreateIndex)
-bCreateIndex = lens _bCreateIndex (\ s a -> s{_bCreateIndex = a});
+bCreateIndex = lens _bCreateIndex (\ s a -> s{_bCreateIndex = a})
-- | Detaches an object from a 'Directory' .
bDetachObject :: Lens' BatchWriteOperation (Maybe BatchDetachObject)
-bDetachObject = lens _bDetachObject (\ s a -> s{_bDetachObject = a});
+bDetachObject = lens _bDetachObject (\ s a -> s{_bDetachObject = a})
-- | A batch operation that adds a facet to an object.
bAddFacetToObject :: Lens' BatchWriteOperation (Maybe BatchAddFacetToObject)
-bAddFacetToObject = lens _bAddFacetToObject (\ s a -> s{_bAddFacetToObject = a});
+bAddFacetToObject = lens _bAddFacetToObject (\ s a -> s{_bAddFacetToObject = a})
-- | Detaches a typed link from a specified source and target object. For more information, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/objectsandlinks.html#typedlink Typed link> .
bDetachTypedLink :: Lens' BatchWriteOperation (Maybe BatchDetachTypedLink)
-bDetachTypedLink = lens _bDetachTypedLink (\ s a -> s{_bDetachTypedLink = a});
+bDetachTypedLink = lens _bDetachTypedLink (\ s a -> s{_bDetachTypedLink = a})
-- | Updates a given object's attributes.
bUpdateObjectAttributes :: Lens' BatchWriteOperation (Maybe BatchUpdateObjectAttributes)
-bUpdateObjectAttributes = lens _bUpdateObjectAttributes (\ s a -> s{_bUpdateObjectAttributes = a});
+bUpdateObjectAttributes = lens _bUpdateObjectAttributes (\ s a -> s{_bUpdateObjectAttributes = a})
-- | Attaches a policy object to a regular object. An object can have a limited number of attached policies.
bAttachPolicy :: Lens' BatchWriteOperation (Maybe BatchAttachPolicy)
-bAttachPolicy = lens _bAttachPolicy (\ s a -> s{_bAttachPolicy = a});
+bAttachPolicy = lens _bAttachPolicy (\ s a -> s{_bAttachPolicy = a})
-- | Attaches the specified object to the specified index.
bAttachToIndex :: Lens' BatchWriteOperation (Maybe BatchAttachToIndex)
-bAttachToIndex = lens _bAttachToIndex (\ s a -> s{_bAttachToIndex = a});
+bAttachToIndex = lens _bAttachToIndex (\ s a -> s{_bAttachToIndex = a})
instance Hashable BatchWriteOperation where
@@ -3133,78 +3245,78 @@ batchWriteOperationResponse
:: BatchWriteOperationResponse
batchWriteOperationResponse =
BatchWriteOperationResponse'
- { _bwoDeleteObject = Nothing
- , _bwoDetachFromIndex = Nothing
- , _bwoRemoveFacetFromObject = Nothing
- , _bwoAttachObject = Nothing
- , _bwoCreateObject = Nothing
- , _bwoAttachTypedLink = Nothing
- , _bwoDetachPolicy = Nothing
- , _bwoCreateIndex = Nothing
- , _bwoDetachObject = Nothing
- , _bwoAddFacetToObject = Nothing
- , _bwoDetachTypedLink = Nothing
- , _bwoUpdateObjectAttributes = Nothing
- , _bwoAttachPolicy = Nothing
- , _bwoAttachToIndex = Nothing
- }
+ { _bwoDeleteObject = Nothing
+ , _bwoDetachFromIndex = Nothing
+ , _bwoRemoveFacetFromObject = Nothing
+ , _bwoAttachObject = Nothing
+ , _bwoCreateObject = Nothing
+ , _bwoAttachTypedLink = Nothing
+ , _bwoDetachPolicy = Nothing
+ , _bwoCreateIndex = Nothing
+ , _bwoDetachObject = Nothing
+ , _bwoAddFacetToObject = Nothing
+ , _bwoDetachTypedLink = Nothing
+ , _bwoUpdateObjectAttributes = Nothing
+ , _bwoAttachPolicy = Nothing
+ , _bwoAttachToIndex = Nothing
+ }
-- | Deletes an object in a 'Directory' .
bwoDeleteObject :: Lens' BatchWriteOperationResponse (Maybe BatchDeleteObjectResponse)
-bwoDeleteObject = lens _bwoDeleteObject (\ s a -> s{_bwoDeleteObject = a});
+bwoDeleteObject = lens _bwoDeleteObject (\ s a -> s{_bwoDeleteObject = a})
-- | Detaches the specified object from the specified index.
bwoDetachFromIndex :: Lens' BatchWriteOperationResponse (Maybe BatchDetachFromIndexResponse)
-bwoDetachFromIndex = lens _bwoDetachFromIndex (\ s a -> s{_bwoDetachFromIndex = a});
+bwoDetachFromIndex = lens _bwoDetachFromIndex (\ s a -> s{_bwoDetachFromIndex = a})
-- | The result of a batch remove facet from object operation.
bwoRemoveFacetFromObject :: Lens' BatchWriteOperationResponse (Maybe BatchRemoveFacetFromObjectResponse)
-bwoRemoveFacetFromObject = lens _bwoRemoveFacetFromObject (\ s a -> s{_bwoRemoveFacetFromObject = a});
+bwoRemoveFacetFromObject = lens _bwoRemoveFacetFromObject (\ s a -> s{_bwoRemoveFacetFromObject = a})
-- | Attaches an object to a 'Directory' .
bwoAttachObject :: Lens' BatchWriteOperationResponse (Maybe BatchAttachObjectResponse)
-bwoAttachObject = lens _bwoAttachObject (\ s a -> s{_bwoAttachObject = a});
+bwoAttachObject = lens _bwoAttachObject (\ s a -> s{_bwoAttachObject = a})
-- | Creates an object in a 'Directory' .
bwoCreateObject :: Lens' BatchWriteOperationResponse (Maybe BatchCreateObjectResponse)
-bwoCreateObject = lens _bwoCreateObject (\ s a -> s{_bwoCreateObject = a});
+bwoCreateObject = lens _bwoCreateObject (\ s a -> s{_bwoCreateObject = a})
-- | Attaches a typed link to a specified source and target object. For more information, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/objectsandlinks.html#typedlink Typed link> .
bwoAttachTypedLink :: Lens' BatchWriteOperationResponse (Maybe BatchAttachTypedLinkResponse)
-bwoAttachTypedLink = lens _bwoAttachTypedLink (\ s a -> s{_bwoAttachTypedLink = a});
+bwoAttachTypedLink = lens _bwoAttachTypedLink (\ s a -> s{_bwoAttachTypedLink = a})
-- | Detaches a policy from a 'Directory' .
bwoDetachPolicy :: Lens' BatchWriteOperationResponse (Maybe BatchDetachPolicyResponse)
-bwoDetachPolicy = lens _bwoDetachPolicy (\ s a -> s{_bwoDetachPolicy = a});
+bwoDetachPolicy = lens _bwoDetachPolicy (\ s a -> s{_bwoDetachPolicy = a})
-- | Creates an index object. See <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/cd_indexing.html Indexing> for more information.
bwoCreateIndex :: Lens' BatchWriteOperationResponse (Maybe BatchCreateIndexResponse)
-bwoCreateIndex = lens _bwoCreateIndex (\ s a -> s{_bwoCreateIndex = a});
+bwoCreateIndex = lens _bwoCreateIndex (\ s a -> s{_bwoCreateIndex = a})
-- | Detaches an object from a 'Directory' .
bwoDetachObject :: Lens' BatchWriteOperationResponse (Maybe BatchDetachObjectResponse)
-bwoDetachObject = lens _bwoDetachObject (\ s a -> s{_bwoDetachObject = a});
+bwoDetachObject = lens _bwoDetachObject (\ s a -> s{_bwoDetachObject = a})
-- | The result of an add facet to object batch operation.
bwoAddFacetToObject :: Lens' BatchWriteOperationResponse (Maybe BatchAddFacetToObjectResponse)
-bwoAddFacetToObject = lens _bwoAddFacetToObject (\ s a -> s{_bwoAddFacetToObject = a});
+bwoAddFacetToObject = lens _bwoAddFacetToObject (\ s a -> s{_bwoAddFacetToObject = a})
-- | Detaches a typed link from a specified source and target object. For more information, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/objectsandlinks.html#typedlink Typed link> .
bwoDetachTypedLink :: Lens' BatchWriteOperationResponse (Maybe BatchDetachTypedLinkResponse)
-bwoDetachTypedLink = lens _bwoDetachTypedLink (\ s a -> s{_bwoDetachTypedLink = a});
+bwoDetachTypedLink = lens _bwoDetachTypedLink (\ s a -> s{_bwoDetachTypedLink = a})
-- | Updates a given object’s attributes.
bwoUpdateObjectAttributes :: Lens' BatchWriteOperationResponse (Maybe BatchUpdateObjectAttributesResponse)
-bwoUpdateObjectAttributes = lens _bwoUpdateObjectAttributes (\ s a -> s{_bwoUpdateObjectAttributes = a});
+bwoUpdateObjectAttributes = lens _bwoUpdateObjectAttributes (\ s a -> s{_bwoUpdateObjectAttributes = a})
-- | Attaches a policy object to a regular object. An object can have a limited number of attached policies.
bwoAttachPolicy :: Lens' BatchWriteOperationResponse (Maybe BatchAttachPolicyResponse)
-bwoAttachPolicy = lens _bwoAttachPolicy (\ s a -> s{_bwoAttachPolicy = a});
+bwoAttachPolicy = lens _bwoAttachPolicy (\ s a -> s{_bwoAttachPolicy = a})
-- | Attaches the specified object to the specified index.
bwoAttachToIndex :: Lens' BatchWriteOperationResponse (Maybe BatchAttachToIndexResponse)
-bwoAttachToIndex = lens _bwoAttachToIndex (\ s a -> s{_bwoAttachToIndex = a});
+bwoAttachToIndex = lens _bwoAttachToIndex (\ s a -> s{_bwoAttachToIndex = a})
instance FromJSON BatchWriteOperationResponse where
parseJSON
@@ -3257,28 +3369,28 @@ directory
:: Directory
directory =
Directory'
- { _dDirectoryARN = Nothing
- , _dState = Nothing
- , _dName = Nothing
- , _dCreationDateTime = Nothing
- }
+ { _dDirectoryARN = Nothing
+ , _dState = Nothing
+ , _dName = Nothing
+ , _dCreationDateTime = Nothing
+ }
-- | The Amazon Resource Name (ARN) that is associated with the directory. For more information, see 'arns' .
dDirectoryARN :: Lens' Directory (Maybe Text)
-dDirectoryARN = lens _dDirectoryARN (\ s a -> s{_dDirectoryARN = a});
+dDirectoryARN = lens _dDirectoryARN (\ s a -> s{_dDirectoryARN = a})
-- | The state of the directory. Can be either @Enabled@ , @Disabled@ , or @Deleted@ .
dState :: Lens' Directory (Maybe DirectoryState)
-dState = lens _dState (\ s a -> s{_dState = a});
+dState = lens _dState (\ s a -> s{_dState = a})
-- | The name of the directory.
dName :: Lens' Directory (Maybe Text)
-dName = lens _dName (\ s a -> s{_dName = a});
+dName = lens _dName (\ s a -> s{_dName = a})
-- | The date and time when the directory was created.
dCreationDateTime :: Lens' Directory (Maybe UTCTime)
-dCreationDateTime = lens _dCreationDateTime (\ s a -> s{_dCreationDateTime = a}) . mapping _Time;
+dCreationDateTime = lens _dCreationDateTime (\ s a -> s{_dCreationDateTime = a}) . mapping _Time
instance FromJSON Directory where
parseJSON
@@ -3293,7 +3405,7 @@ instance Hashable Directory where
instance NFData Directory where
--- | A structure that contains @Name@ , @ARN@ , @Attributes@ , 'Rule' s, and @ObjectTypes@ .
+-- | A structure that contains @Name@ , @ARN@ , @Attributes@ , @'Rule' s@ , and @ObjectTypes@ . See <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/whatarefacets.html Facets> for more information.
--
--
--
@@ -3318,11 +3430,11 @@ facet = Facet' {_fObjectType = Nothing, _fName = Nothing}
-- | The object type that is associated with the facet. See 'CreateFacetRequest$ObjectType' for more details.
fObjectType :: Lens' Facet (Maybe ObjectType)
-fObjectType = lens _fObjectType (\ s a -> s{_fObjectType = a});
+fObjectType = lens _fObjectType (\ s a -> s{_fObjectType = a})
-- | The name of the 'Facet' .
fName :: Lens' Facet (Maybe Text)
-fName = lens _fName (\ s a -> s{_fName = a});
+fName = lens _fName (\ s a -> s{_fName = a})
instance FromJSON Facet where
parseJSON
@@ -3363,28 +3475,28 @@ facetAttribute
-> FacetAttribute
facetAttribute pName_ =
FacetAttribute'
- { _faAttributeReference = Nothing
- , _faAttributeDefinition = Nothing
- , _faRequiredBehavior = Nothing
- , _faName = pName_
- }
+ { _faAttributeReference = Nothing
+ , _faAttributeDefinition = Nothing
+ , _faRequiredBehavior = Nothing
+ , _faName = pName_
+ }
-- | An attribute reference that is associated with the attribute. See <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/cd_advanced.html#attributereferences Attribute References> for more information.
faAttributeReference :: Lens' FacetAttribute (Maybe FacetAttributeReference)
-faAttributeReference = lens _faAttributeReference (\ s a -> s{_faAttributeReference = a});
+faAttributeReference = lens _faAttributeReference (\ s a -> s{_faAttributeReference = a})
-- | A facet attribute consists of either a definition or a reference. This structure contains the attribute definition. See <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/cd_advanced.html#attributereferences Attribute References> for more information.
faAttributeDefinition :: Lens' FacetAttribute (Maybe FacetAttributeDefinition)
-faAttributeDefinition = lens _faAttributeDefinition (\ s a -> s{_faAttributeDefinition = a});
+faAttributeDefinition = lens _faAttributeDefinition (\ s a -> s{_faAttributeDefinition = a})
-- | The required behavior of the @FacetAttribute@ .
faRequiredBehavior :: Lens' FacetAttribute (Maybe RequiredAttributeBehavior)
-faRequiredBehavior = lens _faRequiredBehavior (\ s a -> s{_faRequiredBehavior = a});
+faRequiredBehavior = lens _faRequiredBehavior (\ s a -> s{_faRequiredBehavior = a})
-- | The name of the facet attribute.
faName :: Lens' FacetAttribute Text
-faName = lens _faName (\ s a -> s{_faName = a});
+faName = lens _faName (\ s a -> s{_faName = a})
instance FromJSON FacetAttribute where
parseJSON
@@ -3439,28 +3551,28 @@ facetAttributeDefinition
-> FacetAttributeDefinition
facetAttributeDefinition pType_ =
FacetAttributeDefinition'
- { _fadRules = Nothing
- , _fadDefaultValue = Nothing
- , _fadIsImmutable = Nothing
- , _fadType = pType_
- }
+ { _fadRules = Nothing
+ , _fadDefaultValue = Nothing
+ , _fadIsImmutable = Nothing
+ , _fadType = pType_
+ }
-- | Validation rules attached to the attribute definition.
fadRules :: Lens' FacetAttributeDefinition (HashMap Text Rule)
-fadRules = lens _fadRules (\ s a -> s{_fadRules = a}) . _Default . _Map;
+fadRules = lens _fadRules (\ s a -> s{_fadRules = a}) . _Default . _Map
-- | The default value of the attribute (if configured).
fadDefaultValue :: Lens' FacetAttributeDefinition (Maybe TypedAttributeValue)
-fadDefaultValue = lens _fadDefaultValue (\ s a -> s{_fadDefaultValue = a});
+fadDefaultValue = lens _fadDefaultValue (\ s a -> s{_fadDefaultValue = a})
-- | Whether the attribute is mutable or not.
fadIsImmutable :: Lens' FacetAttributeDefinition (Maybe Bool)
-fadIsImmutable = lens _fadIsImmutable (\ s a -> s{_fadIsImmutable = a});
+fadIsImmutable = lens _fadIsImmutable (\ s a -> s{_fadIsImmutable = a})
-- | The type of the attribute.
fadType :: Lens' FacetAttributeDefinition FacetAttributeType
-fadType = lens _fadType (\ s a -> s{_fadType = a});
+fadType = lens _fadType (\ s a -> s{_fadType = a})
instance FromJSON FacetAttributeDefinition where
parseJSON
@@ -3508,18 +3620,18 @@ facetAttributeReference
-> FacetAttributeReference
facetAttributeReference pTargetFacetName_ pTargetAttributeName_ =
FacetAttributeReference'
- { _farTargetFacetName = pTargetFacetName_
- , _farTargetAttributeName = pTargetAttributeName_
- }
+ { _farTargetFacetName = pTargetFacetName_
+ , _farTargetAttributeName = pTargetAttributeName_
+ }
-- | The target facet name that is associated with the facet reference. See <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/cd_advanced.html#attributereferences Attribute References> for more information.
farTargetFacetName :: Lens' FacetAttributeReference Text
-farTargetFacetName = lens _farTargetFacetName (\ s a -> s{_farTargetFacetName = a});
+farTargetFacetName = lens _farTargetFacetName (\ s a -> s{_farTargetFacetName = a})
-- | The target attribute name that is associated with the facet reference. See <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/cd_advanced.html#attributereferences Attribute References> for more information.
farTargetAttributeName :: Lens' FacetAttributeReference Text
-farTargetAttributeName = lens _farTargetAttributeName (\ s a -> s{_farTargetAttributeName = a});
+farTargetAttributeName = lens _farTargetAttributeName (\ s a -> s{_farTargetAttributeName = a})
instance FromJSON FacetAttributeReference where
parseJSON
@@ -3567,11 +3679,11 @@ facetAttributeUpdate =
-- | The attribute to update.
fauAttribute :: Lens' FacetAttributeUpdate (Maybe FacetAttribute)
-fauAttribute = lens _fauAttribute (\ s a -> s{_fauAttribute = a});
+fauAttribute = lens _fauAttribute (\ s a -> s{_fauAttribute = a})
-- | The action to perform when updating the attribute.
fauAction :: Lens' FacetAttributeUpdate (Maybe UpdateActionType)
-fauAction = lens _fauAction (\ s a -> s{_fauAction = a});
+fauAction = lens _fauAction (\ s a -> s{_fauAction = a})
instance Hashable FacetAttributeUpdate where
@@ -3601,21 +3713,21 @@ data IndexAttachment = IndexAttachment'
--
-- * 'iaIndexedAttributes' - The indexed attribute values.
--
--- * 'iaObjectIdentifier' - The @ObjectIdentifier@ of the object attached to the index.
+-- * 'iaObjectIdentifier' - In response to 'ListIndex' , the @ObjectIdentifier@ of the object attached to the index. In response to 'ListAttachedIndices' , the @ObjectIdentifier@ of the index attached to the object. This field will always contain the @ObjectIdentifier@ of the object on the opposite side of the attachment specified in the query.
indexAttachment
:: IndexAttachment
indexAttachment =
IndexAttachment'
- {_iaIndexedAttributes = Nothing, _iaObjectIdentifier = Nothing}
+ {_iaIndexedAttributes = Nothing, _iaObjectIdentifier = Nothing}
-- | The indexed attribute values.
iaIndexedAttributes :: Lens' IndexAttachment [AttributeKeyAndValue]
-iaIndexedAttributes = lens _iaIndexedAttributes (\ s a -> s{_iaIndexedAttributes = a}) . _Default . _Coerce;
+iaIndexedAttributes = lens _iaIndexedAttributes (\ s a -> s{_iaIndexedAttributes = a}) . _Default . _Coerce
--- | The @ObjectIdentifier@ of the object attached to the index.
+-- | In response to 'ListIndex' , the @ObjectIdentifier@ of the object attached to the index. In response to 'ListAttachedIndices' , the @ObjectIdentifier@ of the index attached to the object. This field will always contain the @ObjectIdentifier@ of the object on the opposite side of the attachment specified in the query.
iaObjectIdentifier :: Lens' IndexAttachment (Maybe Text)
-iaObjectIdentifier = lens _iaObjectIdentifier (\ s a -> s{_iaObjectIdentifier = a});
+iaObjectIdentifier = lens _iaObjectIdentifier (\ s a -> s{_iaObjectIdentifier = a})
instance FromJSON IndexAttachment where
parseJSON
@@ -3651,18 +3763,18 @@ objectAttributeAction
:: ObjectAttributeAction
objectAttributeAction =
ObjectAttributeAction'
- { _oaaObjectAttributeActionType = Nothing
- , _oaaObjectAttributeUpdateValue = Nothing
- }
+ { _oaaObjectAttributeActionType = Nothing
+ , _oaaObjectAttributeUpdateValue = Nothing
+ }
-- | A type that can be either @Update@ or @Delete@ .
oaaObjectAttributeActionType :: Lens' ObjectAttributeAction (Maybe UpdateActionType)
-oaaObjectAttributeActionType = lens _oaaObjectAttributeActionType (\ s a -> s{_oaaObjectAttributeActionType = a});
+oaaObjectAttributeActionType = lens _oaaObjectAttributeActionType (\ s a -> s{_oaaObjectAttributeActionType = a})
-- | The value that you want to update to.
oaaObjectAttributeUpdateValue :: Lens' ObjectAttributeAction (Maybe TypedAttributeValue)
-oaaObjectAttributeUpdateValue = lens _oaaObjectAttributeUpdateValue (\ s a -> s{_oaaObjectAttributeUpdateValue = a});
+oaaObjectAttributeUpdateValue = lens _oaaObjectAttributeUpdateValue (\ s a -> s{_oaaObjectAttributeUpdateValue = a})
instance Hashable ObjectAttributeAction where
@@ -3703,11 +3815,11 @@ objectAttributeRange =
-- | The range of attribute values being selected.
oarRange :: Lens' ObjectAttributeRange (Maybe TypedAttributeValueRange)
-oarRange = lens _oarRange (\ s a -> s{_oarRange = a});
+oarRange = lens _oarRange (\ s a -> s{_oarRange = a})
-- | The key of the attribute that the attribute range covers.
oarAttributeKey :: Lens' ObjectAttributeRange (Maybe AttributeKey)
-oarAttributeKey = lens _oarAttributeKey (\ s a -> s{_oarAttributeKey = a});
+oarAttributeKey = lens _oarAttributeKey (\ s a -> s{_oarAttributeKey = a})
instance Hashable ObjectAttributeRange where
@@ -3742,16 +3854,16 @@ objectAttributeUpdate
:: ObjectAttributeUpdate
objectAttributeUpdate =
ObjectAttributeUpdate'
- {_oauObjectAttributeAction = Nothing, _oauObjectAttributeKey = Nothing}
+ {_oauObjectAttributeAction = Nothing, _oauObjectAttributeKey = Nothing}
-- | The action to perform as part of the attribute update.
oauObjectAttributeAction :: Lens' ObjectAttributeUpdate (Maybe ObjectAttributeAction)
-oauObjectAttributeAction = lens _oauObjectAttributeAction (\ s a -> s{_oauObjectAttributeAction = a});
+oauObjectAttributeAction = lens _oauObjectAttributeAction (\ s a -> s{_oauObjectAttributeAction = a})
-- | The key of the attribute being updated.
oauObjectAttributeKey :: Lens' ObjectAttributeUpdate (Maybe AttributeKey)
-oauObjectAttributeKey = lens _oauObjectAttributeKey (\ s a -> s{_oauObjectAttributeKey = a});
+oauObjectAttributeKey = lens _oauObjectAttributeKey (\ s a -> s{_oauObjectAttributeKey = a})
instance Hashable ObjectAttributeUpdate where
@@ -3788,7 +3900,7 @@ objectReference = ObjectReference' {_orSelector = Nothing}
-- | A path selector supports easy selection of an object by the parent/child links leading to it from the directory root. Use the link names from each parent/child link to construct the path. Path selectors start with a slash (/) and link names are separated by slashes. For more information about paths, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/objectsandlinks.html#accessingobjects Accessing Objects> . You can identify an object in one of the following ways: * /> ObjectIdentifier/ - An object identifier is an opaque string provided by Amazon Cloud Directory. When creating objects, the system will provide you with the identifier of the created object. An object’s identifier is immutable and no two objects will ever share the same object identifier * /\/some\/path/ - Identifies the object based on path * /#SomeBatchReference/ - Identifies the object in a batch call
orSelector :: Lens' ObjectReference (Maybe Text)
-orSelector = lens _orSelector (\ s a -> s{_orSelector = a});
+orSelector = lens _orSelector (\ s a -> s{_orSelector = a})
instance FromJSON ObjectReference where
parseJSON
@@ -3826,16 +3938,16 @@ pathToObjectIdentifiers
:: PathToObjectIdentifiers
pathToObjectIdentifiers =
PathToObjectIdentifiers'
- {_ptoiObjectIdentifiers = Nothing, _ptoiPath = Nothing}
+ {_ptoiObjectIdentifiers = Nothing, _ptoiPath = Nothing}
-- | Lists @ObjectIdentifiers@ starting from directory root to the object in the request.
ptoiObjectIdentifiers :: Lens' PathToObjectIdentifiers [Text]
-ptoiObjectIdentifiers = lens _ptoiObjectIdentifiers (\ s a -> s{_ptoiObjectIdentifiers = a}) . _Default . _Coerce;
+ptoiObjectIdentifiers = lens _ptoiObjectIdentifiers (\ s a -> s{_ptoiObjectIdentifiers = a}) . _Default . _Coerce
-- | The path that is used to identify the object starting from directory root.
ptoiPath :: Lens' PathToObjectIdentifiers (Maybe Text)
-ptoiPath = lens _ptoiPath (\ s a -> s{_ptoiPath = a});
+ptoiPath = lens _ptoiPath (\ s a -> s{_ptoiPath = a})
instance FromJSON PathToObjectIdentifiers where
parseJSON
@@ -3874,23 +3986,23 @@ policyAttachment
:: PolicyAttachment
policyAttachment =
PolicyAttachment'
- { _paPolicyId = Nothing
- , _paPolicyType = Nothing
- , _paObjectIdentifier = Nothing
- }
+ { _paPolicyId = Nothing
+ , _paPolicyType = Nothing
+ , _paObjectIdentifier = Nothing
+ }
-- | The ID of @PolicyAttachment@ .
paPolicyId :: Lens' PolicyAttachment (Maybe Text)
-paPolicyId = lens _paPolicyId (\ s a -> s{_paPolicyId = a});
+paPolicyId = lens _paPolicyId (\ s a -> s{_paPolicyId = a})
-- | The type of policy that can be associated with @PolicyAttachment@ .
paPolicyType :: Lens' PolicyAttachment (Maybe Text)
-paPolicyType = lens _paPolicyType (\ s a -> s{_paPolicyType = a});
+paPolicyType = lens _paPolicyType (\ s a -> s{_paPolicyType = a})
-- | The @ObjectIdentifier@ that is associated with @PolicyAttachment@ .
paObjectIdentifier :: Lens' PolicyAttachment (Maybe Text)
-paObjectIdentifier = lens _paObjectIdentifier (\ s a -> s{_paObjectIdentifier = a});
+paObjectIdentifier = lens _paObjectIdentifier (\ s a -> s{_paObjectIdentifier = a})
instance FromJSON PolicyAttachment where
parseJSON
@@ -3929,11 +4041,11 @@ policyToPath = PolicyToPath' {_ptpPath = Nothing, _ptpPolicies = Nothing}
-- | The path that is referenced from the root.
ptpPath :: Lens' PolicyToPath (Maybe Text)
-ptpPath = lens _ptpPath (\ s a -> s{_ptpPath = a});
+ptpPath = lens _ptpPath (\ s a -> s{_ptpPath = a})
-- | List of policy objects.
ptpPolicies :: Lens' PolicyToPath [PolicyAttachment]
-ptpPolicies = lens _ptpPolicies (\ s a -> s{_ptpPolicies = a}) . _Default . _Coerce;
+ptpPolicies = lens _ptpPolicies (\ s a -> s{_ptpPolicies = a}) . _Default . _Coerce
instance FromJSON PolicyToPath where
parseJSON
@@ -3971,11 +4083,11 @@ rule = Rule' {_rParameters = Nothing, _rType = Nothing}
-- | The minimum and maximum parameters that are associated with the rule.
rParameters :: Lens' Rule (HashMap Text Text)
-rParameters = lens _rParameters (\ s a -> s{_rParameters = a}) . _Default . _Map;
+rParameters = lens _rParameters (\ s a -> s{_rParameters = a}) . _Default . _Map
-- | The type of attribute validation rule.
rType :: Lens' Rule (Maybe RuleType)
-rType = lens _rType (\ s a -> s{_rType = a});
+rType = lens _rType (\ s a -> s{_rType = a})
instance FromJSON Rule where
parseJSON
@@ -4012,7 +4124,7 @@ data SchemaFacet = SchemaFacet'
--
-- * 'sfFacetName' - The name of the facet.
--
--- * 'sfSchemaARN' - The ARN of the schema that contains the facet.
+-- * 'sfSchemaARN' - The ARN of the schema that contains the facet with no minor component. See 'arns' and <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/inplaceschemaupgrade.html In-Place Schema Upgrade> for a description of when to provide minor versions.
schemaFacet
:: SchemaFacet
schemaFacet = SchemaFacet' {_sfFacetName = Nothing, _sfSchemaARN = Nothing}
@@ -4020,11 +4132,11 @@ schemaFacet = SchemaFacet' {_sfFacetName = Nothing, _sfSchemaARN = Nothing}
-- | The name of the facet.
sfFacetName :: Lens' SchemaFacet (Maybe Text)
-sfFacetName = lens _sfFacetName (\ s a -> s{_sfFacetName = a});
+sfFacetName = lens _sfFacetName (\ s a -> s{_sfFacetName = a})
--- | The ARN of the schema that contains the facet.
+-- | The ARN of the schema that contains the facet with no minor component. See 'arns' and <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/inplaceschemaupgrade.html In-Place Schema Upgrade> for a description of when to provide minor versions.
sfSchemaARN :: Lens' SchemaFacet (Maybe Text)
-sfSchemaARN = lens _sfSchemaARN (\ s a -> s{_sfSchemaARN = a});
+sfSchemaARN = lens _sfSchemaARN (\ s a -> s{_sfSchemaARN = a})
instance FromJSON SchemaFacet where
parseJSON
@@ -4069,11 +4181,11 @@ tag = Tag' {_tagValue = Nothing, _tagKey = Nothing}
-- | The value that is associated with the tag.
tagValue :: Lens' Tag (Maybe Text)
-tagValue = lens _tagValue (\ s a -> s{_tagValue = a});
+tagValue = lens _tagValue (\ s a -> s{_tagValue = a})
-- | The key that is associated with the tag.
tagKey :: Lens' Tag (Maybe Text)
-tagKey = lens _tagKey (\ s a -> s{_tagKey = a});
+tagKey = lens _tagKey (\ s a -> s{_tagKey = a})
instance FromJSON Tag where
parseJSON
@@ -4121,33 +4233,33 @@ typedAttributeValue
:: TypedAttributeValue
typedAttributeValue =
TypedAttributeValue'
- { _tavBinaryValue = Nothing
- , _tavDatetimeValue = Nothing
- , _tavNumberValue = Nothing
- , _tavStringValue = Nothing
- , _tavBooleanValue = Nothing
- }
+ { _tavBinaryValue = Nothing
+ , _tavDatetimeValue = Nothing
+ , _tavNumberValue = Nothing
+ , _tavStringValue = Nothing
+ , _tavBooleanValue = Nothing
+ }
-- | A binary data value.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data.
tavBinaryValue :: Lens' TypedAttributeValue (Maybe ByteString)
-tavBinaryValue = lens _tavBinaryValue (\ s a -> s{_tavBinaryValue = a}) . mapping _Base64;
+tavBinaryValue = lens _tavBinaryValue (\ s a -> s{_tavBinaryValue = a}) . mapping _Base64
-- | A date and time value.
tavDatetimeValue :: Lens' TypedAttributeValue (Maybe UTCTime)
-tavDatetimeValue = lens _tavDatetimeValue (\ s a -> s{_tavDatetimeValue = a}) . mapping _Time;
+tavDatetimeValue = lens _tavDatetimeValue (\ s a -> s{_tavDatetimeValue = a}) . mapping _Time
-- | A number data value.
tavNumberValue :: Lens' TypedAttributeValue (Maybe Text)
-tavNumberValue = lens _tavNumberValue (\ s a -> s{_tavNumberValue = a});
+tavNumberValue = lens _tavNumberValue (\ s a -> s{_tavNumberValue = a})
-- | A string data value.
tavStringValue :: Lens' TypedAttributeValue (Maybe Text)
-tavStringValue = lens _tavStringValue (\ s a -> s{_tavStringValue = a});
+tavStringValue = lens _tavStringValue (\ s a -> s{_tavStringValue = a})
-- | A Boolean data value.
tavBooleanValue :: Lens' TypedAttributeValue (Maybe Bool)
-tavBooleanValue = lens _tavBooleanValue (\ s a -> s{_tavBooleanValue = a});
+tavBooleanValue = lens _tavBooleanValue (\ s a -> s{_tavBooleanValue = a})
instance FromJSON TypedAttributeValue where
parseJSON
@@ -4173,7 +4285,7 @@ instance ToJSON TypedAttributeValue where
("StringValue" .=) <$> _tavStringValue,
("BooleanValue" .=) <$> _tavBooleanValue])
--- | A range of attribute values.
+-- | A range of attribute values. For more information, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/objectsandlinks.html#rangefilters Range Filters> .
--
--
--
@@ -4203,28 +4315,28 @@ typedAttributeValueRange
-> TypedAttributeValueRange
typedAttributeValueRange pStartMode_ pEndMode_ =
TypedAttributeValueRange'
- { _tavrEndValue = Nothing
- , _tavrStartValue = Nothing
- , _tavrStartMode = pStartMode_
- , _tavrEndMode = pEndMode_
- }
+ { _tavrEndValue = Nothing
+ , _tavrStartValue = Nothing
+ , _tavrStartMode = pStartMode_
+ , _tavrEndMode = pEndMode_
+ }
-- | The attribute value to terminate the range at.
tavrEndValue :: Lens' TypedAttributeValueRange (Maybe TypedAttributeValue)
-tavrEndValue = lens _tavrEndValue (\ s a -> s{_tavrEndValue = a});
+tavrEndValue = lens _tavrEndValue (\ s a -> s{_tavrEndValue = a})
-- | The value to start the range at.
tavrStartValue :: Lens' TypedAttributeValueRange (Maybe TypedAttributeValue)
-tavrStartValue = lens _tavrStartValue (\ s a -> s{_tavrStartValue = a});
+tavrStartValue = lens _tavrStartValue (\ s a -> s{_tavrStartValue = a})
-- | The inclusive or exclusive range start.
tavrStartMode :: Lens' TypedAttributeValueRange RangeMode
-tavrStartMode = lens _tavrStartMode (\ s a -> s{_tavrStartMode = a});
+tavrStartMode = lens _tavrStartMode (\ s a -> s{_tavrStartMode = a})
-- | The inclusive or exclusive range end.
tavrEndMode :: Lens' TypedAttributeValueRange RangeMode
-tavrEndMode = lens _tavrEndMode (\ s a -> s{_tavrEndMode = a});
+tavrEndMode = lens _tavrEndMode (\ s a -> s{_tavrEndMode = a})
instance Hashable TypedAttributeValueRange where
@@ -4276,38 +4388,38 @@ typedLinkAttributeDefinition
-> TypedLinkAttributeDefinition
typedLinkAttributeDefinition pName_ pType_ pRequiredBehavior_ =
TypedLinkAttributeDefinition'
- { _tladRules = Nothing
- , _tladDefaultValue = Nothing
- , _tladIsImmutable = Nothing
- , _tladName = pName_
- , _tladType = pType_
- , _tladRequiredBehavior = pRequiredBehavior_
- }
+ { _tladRules = Nothing
+ , _tladDefaultValue = Nothing
+ , _tladIsImmutable = Nothing
+ , _tladName = pName_
+ , _tladType = pType_
+ , _tladRequiredBehavior = pRequiredBehavior_
+ }
-- | Validation rules that are attached to the attribute definition.
tladRules :: Lens' TypedLinkAttributeDefinition (HashMap Text Rule)
-tladRules = lens _tladRules (\ s a -> s{_tladRules = a}) . _Default . _Map;
+tladRules = lens _tladRules (\ s a -> s{_tladRules = a}) . _Default . _Map
-- | The default value of the attribute (if configured).
tladDefaultValue :: Lens' TypedLinkAttributeDefinition (Maybe TypedAttributeValue)
-tladDefaultValue = lens _tladDefaultValue (\ s a -> s{_tladDefaultValue = a});
+tladDefaultValue = lens _tladDefaultValue (\ s a -> s{_tladDefaultValue = a})
-- | Whether the attribute is mutable or not.
tladIsImmutable :: Lens' TypedLinkAttributeDefinition (Maybe Bool)
-tladIsImmutable = lens _tladIsImmutable (\ s a -> s{_tladIsImmutable = a});
+tladIsImmutable = lens _tladIsImmutable (\ s a -> s{_tladIsImmutable = a})
-- | The unique name of the typed link attribute.
tladName :: Lens' TypedLinkAttributeDefinition Text
-tladName = lens _tladName (\ s a -> s{_tladName = a});
+tladName = lens _tladName (\ s a -> s{_tladName = a})
-- | The type of the attribute.
tladType :: Lens' TypedLinkAttributeDefinition FacetAttributeType
-tladType = lens _tladType (\ s a -> s{_tladType = a});
+tladType = lens _tladType (\ s a -> s{_tladType = a})
-- | The required behavior of the @TypedLinkAttributeDefinition@ .
tladRequiredBehavior :: Lens' TypedLinkAttributeDefinition RequiredAttributeBehavior
-tladRequiredBehavior = lens _tladRequiredBehavior (\ s a -> s{_tladRequiredBehavior = a});
+tladRequiredBehavior = lens _tladRequiredBehavior (\ s a -> s{_tladRequiredBehavior = a})
instance FromJSON TypedLinkAttributeDefinition where
parseJSON
@@ -4362,11 +4474,11 @@ typedLinkAttributeRange pRange_ =
-- | The unique name of the typed link attribute.
tlarAttributeName :: Lens' TypedLinkAttributeRange (Maybe Text)
-tlarAttributeName = lens _tlarAttributeName (\ s a -> s{_tlarAttributeName = a});
+tlarAttributeName = lens _tlarAttributeName (\ s a -> s{_tlarAttributeName = a})
-- | The range of attribute values that are being selected.
tlarRange :: Lens' TypedLinkAttributeRange TypedAttributeValueRange
-tlarRange = lens _tlarRange (\ s a -> s{_tlarRange = a});
+tlarRange = lens _tlarRange (\ s a -> s{_tlarRange = a})
instance Hashable TypedLinkAttributeRange where
@@ -4405,23 +4517,23 @@ typedLinkFacet
-> TypedLinkFacet
typedLinkFacet pName_ =
TypedLinkFacet'
- { _tlfName = pName_
- , _tlfAttributes = mempty
- , _tlfIdentityAttributeOrder = mempty
- }
+ { _tlfName = pName_
+ , _tlfAttributes = mempty
+ , _tlfIdentityAttributeOrder = mempty
+ }
-- | The unique name of the typed link facet.
tlfName :: Lens' TypedLinkFacet Text
-tlfName = lens _tlfName (\ s a -> s{_tlfName = a});
+tlfName = lens _tlfName (\ s a -> s{_tlfName = a})
-- | A set of key-value pairs associated with the typed link. Typed link attributes are used when you have data values that are related to the link itself, and not to one of the two objects being linked. Identity attributes also serve to distinguish the link from others of the same type between the same objects.
tlfAttributes :: Lens' TypedLinkFacet [TypedLinkAttributeDefinition]
-tlfAttributes = lens _tlfAttributes (\ s a -> s{_tlfAttributes = a}) . _Coerce;
+tlfAttributes = lens _tlfAttributes (\ s a -> s{_tlfAttributes = a}) . _Coerce
-- | The set of attributes that distinguish links made from this facet from each other, in the order of significance. Listing typed links can filter on the values of these attributes. See 'ListOutgoingTypedLinks' and 'ListIncomingTypedLinks' for details.
tlfIdentityAttributeOrder :: Lens' TypedLinkFacet [Text]
-tlfIdentityAttributeOrder = lens _tlfIdentityAttributeOrder (\ s a -> s{_tlfIdentityAttributeOrder = a}) . _Coerce;
+tlfIdentityAttributeOrder = lens _tlfIdentityAttributeOrder (\ s a -> s{_tlfIdentityAttributeOrder = a}) . _Coerce
instance Hashable TypedLinkFacet where
@@ -4461,16 +4573,16 @@ typedLinkFacetAttributeUpdate
-> TypedLinkFacetAttributeUpdate
typedLinkFacetAttributeUpdate pAttribute_ pAction_ =
TypedLinkFacetAttributeUpdate'
- {_tlfauAttribute = pAttribute_, _tlfauAction = pAction_}
+ {_tlfauAttribute = pAttribute_, _tlfauAction = pAction_}
-- | The attribute to update.
tlfauAttribute :: Lens' TypedLinkFacetAttributeUpdate TypedLinkAttributeDefinition
-tlfauAttribute = lens _tlfauAttribute (\ s a -> s{_tlfauAttribute = a});
+tlfauAttribute = lens _tlfauAttribute (\ s a -> s{_tlfauAttribute = a})
-- | The action to perform when updating the attribute.
tlfauAction :: Lens' TypedLinkFacetAttributeUpdate UpdateActionType
-tlfauAction = lens _tlfauAction (\ s a -> s{_tlfauAction = a});
+tlfauAction = lens _tlfauAction (\ s a -> s{_tlfauAction = a})
instance Hashable TypedLinkFacetAttributeUpdate where
@@ -4507,16 +4619,16 @@ typedLinkSchemaAndFacetName
-> TypedLinkSchemaAndFacetName
typedLinkSchemaAndFacetName pSchemaARN_ pTypedLinkName_ =
TypedLinkSchemaAndFacetName'
- {_tlsafnSchemaARN = pSchemaARN_, _tlsafnTypedLinkName = pTypedLinkName_}
+ {_tlsafnSchemaARN = pSchemaARN_, _tlsafnTypedLinkName = pTypedLinkName_}
-- | The Amazon Resource Name (ARN) that is associated with the schema. For more information, see 'arns' .
tlsafnSchemaARN :: Lens' TypedLinkSchemaAndFacetName Text
-tlsafnSchemaARN = lens _tlsafnSchemaARN (\ s a -> s{_tlsafnSchemaARN = a});
+tlsafnSchemaARN = lens _tlsafnSchemaARN (\ s a -> s{_tlsafnSchemaARN = a})
-- | The unique name of the typed link facet.
tlsafnTypedLinkName :: Lens' TypedLinkSchemaAndFacetName Text
-tlsafnTypedLinkName = lens _tlsafnTypedLinkName (\ s a -> s{_tlsafnTypedLinkName = a});
+tlsafnTypedLinkName = lens _tlsafnTypedLinkName (\ s a -> s{_tlsafnTypedLinkName = a})
instance FromJSON TypedLinkSchemaAndFacetName where
parseJSON
@@ -4567,28 +4679,28 @@ typedLinkSpecifier
-> TypedLinkSpecifier
typedLinkSpecifier pTypedLinkFacet_ pSourceObjectReference_ pTargetObjectReference_ =
TypedLinkSpecifier'
- { _tlsTypedLinkFacet = pTypedLinkFacet_
- , _tlsSourceObjectReference = pSourceObjectReference_
- , _tlsTargetObjectReference = pTargetObjectReference_
- , _tlsIdentityAttributeValues = mempty
- }
+ { _tlsTypedLinkFacet = pTypedLinkFacet_
+ , _tlsSourceObjectReference = pSourceObjectReference_
+ , _tlsTargetObjectReference = pTargetObjectReference_
+ , _tlsIdentityAttributeValues = mempty
+ }
-- | Identifies the typed link facet that is associated with the typed link.
tlsTypedLinkFacet :: Lens' TypedLinkSpecifier TypedLinkSchemaAndFacetName
-tlsTypedLinkFacet = lens _tlsTypedLinkFacet (\ s a -> s{_tlsTypedLinkFacet = a});
+tlsTypedLinkFacet = lens _tlsTypedLinkFacet (\ s a -> s{_tlsTypedLinkFacet = a})
-- | Identifies the source object that the typed link will attach to.
tlsSourceObjectReference :: Lens' TypedLinkSpecifier ObjectReference
-tlsSourceObjectReference = lens _tlsSourceObjectReference (\ s a -> s{_tlsSourceObjectReference = a});
+tlsSourceObjectReference = lens _tlsSourceObjectReference (\ s a -> s{_tlsSourceObjectReference = a})
-- | Identifies the target object that the typed link will attach to.
tlsTargetObjectReference :: Lens' TypedLinkSpecifier ObjectReference
-tlsTargetObjectReference = lens _tlsTargetObjectReference (\ s a -> s{_tlsTargetObjectReference = a});
+tlsTargetObjectReference = lens _tlsTargetObjectReference (\ s a -> s{_tlsTargetObjectReference = a})
-- | Identifies the attribute value to update.
tlsIdentityAttributeValues :: Lens' TypedLinkSpecifier [AttributeNameAndValue]
-tlsIdentityAttributeValues = lens _tlsIdentityAttributeValues (\ s a -> s{_tlsIdentityAttributeValues = a}) . _Coerce;
+tlsIdentityAttributeValues = lens _tlsIdentityAttributeValues (\ s a -> s{_tlsIdentityAttributeValues = a}) . _Coerce
instance FromJSON TypedLinkSpecifier where
parseJSON
diff --git a/gen/Network/AWS/CloudDirectory/Types/Sum.hs b/gen/Network/AWS/CloudDirectory/Types/Sum.hs
index 38019a0..85efa73 100644
--- a/gen/Network/AWS/CloudDirectory/Types/Sum.hs
+++ b/gen/Network/AWS/CloudDirectory/Types/Sum.hs
@@ -9,7 +9,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.Types.Sum
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
diff --git a/gen/Network/AWS/CloudDirectory/UntagResource.hs b/gen/Network/AWS/CloudDirectory/UntagResource.hs
index d252554..cdc1765 100644
--- a/gen/Network/AWS/CloudDirectory/UntagResource.hs
+++ b/gen/Network/AWS/CloudDirectory/UntagResource.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.UntagResource
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -67,11 +67,11 @@ untagResource pResourceARN_ =
-- | The Amazon Resource Name (ARN) of the resource. Tagging is only supported for directories.
urResourceARN :: Lens' UntagResource Text
-urResourceARN = lens _urResourceARN (\ s a -> s{_urResourceARN = a});
+urResourceARN = lens _urResourceARN (\ s a -> s{_urResourceARN = a})
-- | Keys of the tag that need to be removed from the resource.
urTagKeys :: Lens' UntagResource [Text]
-urTagKeys = lens _urTagKeys (\ s a -> s{_urTagKeys = a}) . _Coerce;
+urTagKeys = lens _urTagKeys (\ s a -> s{_urTagKeys = a}) . _Coerce
instance AWSRequest UntagResource where
type Rs UntagResource = UntagResourceResponse
@@ -123,6 +123,6 @@ untagResourceResponse pResponseStatus_ =
-- | -- | The response status code.
urrsResponseStatus :: Lens' UntagResourceResponse Int
-urrsResponseStatus = lens _urrsResponseStatus (\ s a -> s{_urrsResponseStatus = a});
+urrsResponseStatus = lens _urrsResponseStatus (\ s a -> s{_urrsResponseStatus = a})
instance NFData UntagResourceResponse where
diff --git a/gen/Network/AWS/CloudDirectory/UpdateFacet.hs b/gen/Network/AWS/CloudDirectory/UpdateFacet.hs
index b039265..47faca3 100644
--- a/gen/Network/AWS/CloudDirectory/UpdateFacet.hs
+++ b/gen/Network/AWS/CloudDirectory/UpdateFacet.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.UpdateFacet
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -80,28 +80,28 @@ updateFacet
-> UpdateFacet
updateFacet pSchemaARN_ pName_ =
UpdateFacet'
- { _ufObjectType = Nothing
- , _ufAttributeUpdates = Nothing
- , _ufSchemaARN = pSchemaARN_
- , _ufName = pName_
- }
+ { _ufObjectType = Nothing
+ , _ufAttributeUpdates = Nothing
+ , _ufSchemaARN = pSchemaARN_
+ , _ufName = pName_
+ }
-- | The object type that is associated with the facet. See 'CreateFacetRequest$ObjectType' for more details.
ufObjectType :: Lens' UpdateFacet (Maybe ObjectType)
-ufObjectType = lens _ufObjectType (\ s a -> s{_ufObjectType = a});
+ufObjectType = lens _ufObjectType (\ s a -> s{_ufObjectType = a})
-- | List of attributes that need to be updated in a given schema 'Facet' . Each attribute is followed by @AttributeAction@ , which specifies the type of update operation to perform.
ufAttributeUpdates :: Lens' UpdateFacet [FacetAttributeUpdate]
-ufAttributeUpdates = lens _ufAttributeUpdates (\ s a -> s{_ufAttributeUpdates = a}) . _Default . _Coerce;
+ufAttributeUpdates = lens _ufAttributeUpdates (\ s a -> s{_ufAttributeUpdates = a}) . _Default . _Coerce
-- | The Amazon Resource Name (ARN) that is associated with the 'Facet' . For more information, see 'arns' .
ufSchemaARN :: Lens' UpdateFacet Text
-ufSchemaARN = lens _ufSchemaARN (\ s a -> s{_ufSchemaARN = a});
+ufSchemaARN = lens _ufSchemaARN (\ s a -> s{_ufSchemaARN = a})
-- | The name of the facet.
ufName :: Lens' UpdateFacet Text
-ufName = lens _ufName (\ s a -> s{_ufName = a});
+ufName = lens _ufName (\ s a -> s{_ufName = a})
instance AWSRequest UpdateFacet where
type Rs UpdateFacet = UpdateFacetResponse
@@ -154,6 +154,6 @@ updateFacetResponse pResponseStatus_ =
-- | -- | The response status code.
ufrsResponseStatus :: Lens' UpdateFacetResponse Int
-ufrsResponseStatus = lens _ufrsResponseStatus (\ s a -> s{_ufrsResponseStatus = a});
+ufrsResponseStatus = lens _ufrsResponseStatus (\ s a -> s{_ufrsResponseStatus = a})
instance NFData UpdateFacetResponse where
diff --git a/gen/Network/AWS/CloudDirectory/UpdateObjectAttributes.hs b/gen/Network/AWS/CloudDirectory/UpdateObjectAttributes.hs
index 6773813..2162358 100644
--- a/gen/Network/AWS/CloudDirectory/UpdateObjectAttributes.hs
+++ b/gen/Network/AWS/CloudDirectory/UpdateObjectAttributes.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.UpdateObjectAttributes
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -69,23 +69,23 @@ updateObjectAttributes
-> UpdateObjectAttributes
updateObjectAttributes pDirectoryARN_ pObjectReference_ =
UpdateObjectAttributes'
- { _uoaDirectoryARN = pDirectoryARN_
- , _uoaObjectReference = pObjectReference_
- , _uoaAttributeUpdates = mempty
- }
+ { _uoaDirectoryARN = pDirectoryARN_
+ , _uoaObjectReference = pObjectReference_
+ , _uoaAttributeUpdates = mempty
+ }
-- | The Amazon Resource Name (ARN) that is associated with the 'Directory' where the object resides. For more information, see 'arns' .
uoaDirectoryARN :: Lens' UpdateObjectAttributes Text
-uoaDirectoryARN = lens _uoaDirectoryARN (\ s a -> s{_uoaDirectoryARN = a});
+uoaDirectoryARN = lens _uoaDirectoryARN (\ s a -> s{_uoaDirectoryARN = a})
-- | The reference that identifies the object.
uoaObjectReference :: Lens' UpdateObjectAttributes ObjectReference
-uoaObjectReference = lens _uoaObjectReference (\ s a -> s{_uoaObjectReference = a});
+uoaObjectReference = lens _uoaObjectReference (\ s a -> s{_uoaObjectReference = a})
-- | The attributes update structure.
uoaAttributeUpdates :: Lens' UpdateObjectAttributes [ObjectAttributeUpdate]
-uoaAttributeUpdates = lens _uoaAttributeUpdates (\ s a -> s{_uoaAttributeUpdates = a}) . _Coerce;
+uoaAttributeUpdates = lens _uoaAttributeUpdates (\ s a -> s{_uoaAttributeUpdates = a}) . _Coerce
instance AWSRequest UpdateObjectAttributes where
type Rs UpdateObjectAttributes =
@@ -140,15 +140,15 @@ updateObjectAttributesResponse
-> UpdateObjectAttributesResponse
updateObjectAttributesResponse pResponseStatus_ =
UpdateObjectAttributesResponse'
- {_uoarsObjectIdentifier = Nothing, _uoarsResponseStatus = pResponseStatus_}
+ {_uoarsObjectIdentifier = Nothing, _uoarsResponseStatus = pResponseStatus_}
-- | The @ObjectIdentifier@ of the updated object.
uoarsObjectIdentifier :: Lens' UpdateObjectAttributesResponse (Maybe Text)
-uoarsObjectIdentifier = lens _uoarsObjectIdentifier (\ s a -> s{_uoarsObjectIdentifier = a});
+uoarsObjectIdentifier = lens _uoarsObjectIdentifier (\ s a -> s{_uoarsObjectIdentifier = a})
-- | -- | The response status code.
uoarsResponseStatus :: Lens' UpdateObjectAttributesResponse Int
-uoarsResponseStatus = lens _uoarsResponseStatus (\ s a -> s{_uoarsResponseStatus = a});
+uoarsResponseStatus = lens _uoarsResponseStatus (\ s a -> s{_uoarsResponseStatus = a})
instance NFData UpdateObjectAttributesResponse where
diff --git a/gen/Network/AWS/CloudDirectory/UpdateSchema.hs b/gen/Network/AWS/CloudDirectory/UpdateSchema.hs
index d570931..bf98c81 100644
--- a/gen/Network/AWS/CloudDirectory/UpdateSchema.hs
+++ b/gen/Network/AWS/CloudDirectory/UpdateSchema.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.UpdateSchema
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -69,11 +69,11 @@ updateSchema pSchemaARN_ pName_ =
-- | The Amazon Resource Name (ARN) of the development schema. For more information, see 'arns' .
usSchemaARN :: Lens' UpdateSchema Text
-usSchemaARN = lens _usSchemaARN (\ s a -> s{_usSchemaARN = a});
+usSchemaARN = lens _usSchemaARN (\ s a -> s{_usSchemaARN = a})
-- | The name of the schema.
usName :: Lens' UpdateSchema Text
-usName = lens _usName (\ s a -> s{_usName = a});
+usName = lens _usName (\ s a -> s{_usName = a})
instance AWSRequest UpdateSchema where
type Rs UpdateSchema = UpdateSchemaResponse
@@ -123,15 +123,15 @@ updateSchemaResponse
-> UpdateSchemaResponse
updateSchemaResponse pResponseStatus_ =
UpdateSchemaResponse'
- {_usrsSchemaARN = Nothing, _usrsResponseStatus = pResponseStatus_}
+ {_usrsSchemaARN = Nothing, _usrsResponseStatus = pResponseStatus_}
-- | The ARN that is associated with the updated schema. For more information, see 'arns' .
usrsSchemaARN :: Lens' UpdateSchemaResponse (Maybe Text)
-usrsSchemaARN = lens _usrsSchemaARN (\ s a -> s{_usrsSchemaARN = a});
+usrsSchemaARN = lens _usrsSchemaARN (\ s a -> s{_usrsSchemaARN = a})
-- | -- | The response status code.
usrsResponseStatus :: Lens' UpdateSchemaResponse Int
-usrsResponseStatus = lens _usrsResponseStatus (\ s a -> s{_usrsResponseStatus = a});
+usrsResponseStatus = lens _usrsResponseStatus (\ s a -> s{_usrsResponseStatus = a})
instance NFData UpdateSchemaResponse where
diff --git a/gen/Network/AWS/CloudDirectory/UpdateTypedLinkFacet.hs b/gen/Network/AWS/CloudDirectory/UpdateTypedLinkFacet.hs
index ab42742..22a41b9 100644
--- a/gen/Network/AWS/CloudDirectory/UpdateTypedLinkFacet.hs
+++ b/gen/Network/AWS/CloudDirectory/UpdateTypedLinkFacet.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.UpdateTypedLinkFacet
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -72,28 +72,28 @@ updateTypedLinkFacet
-> UpdateTypedLinkFacet
updateTypedLinkFacet pSchemaARN_ pName_ =
UpdateTypedLinkFacet'
- { _utlfSchemaARN = pSchemaARN_
- , _utlfName = pName_
- , _utlfAttributeUpdates = mempty
- , _utlfIdentityAttributeOrder = mempty
- }
+ { _utlfSchemaARN = pSchemaARN_
+ , _utlfName = pName_
+ , _utlfAttributeUpdates = mempty
+ , _utlfIdentityAttributeOrder = mempty
+ }
-- | The Amazon Resource Name (ARN) that is associated with the schema. For more information, see 'arns' .
utlfSchemaARN :: Lens' UpdateTypedLinkFacet Text
-utlfSchemaARN = lens _utlfSchemaARN (\ s a -> s{_utlfSchemaARN = a});
+utlfSchemaARN = lens _utlfSchemaARN (\ s a -> s{_utlfSchemaARN = a})
-- | The unique name of the typed link facet.
utlfName :: Lens' UpdateTypedLinkFacet Text
-utlfName = lens _utlfName (\ s a -> s{_utlfName = a});
+utlfName = lens _utlfName (\ s a -> s{_utlfName = a})
-- | Attributes update structure.
utlfAttributeUpdates :: Lens' UpdateTypedLinkFacet [TypedLinkFacetAttributeUpdate]
-utlfAttributeUpdates = lens _utlfAttributeUpdates (\ s a -> s{_utlfAttributeUpdates = a}) . _Coerce;
+utlfAttributeUpdates = lens _utlfAttributeUpdates (\ s a -> s{_utlfAttributeUpdates = a}) . _Coerce
-- | The order of identity attributes for the facet, from most significant to least significant. The ability to filter typed links considers the order that the attributes are defined on the typed link facet. When providing ranges to a typed link selection, any inexact ranges must be specified at the end. Any attributes that do not have a range specified are presumed to match the entire range. Filters are interpreted in the order of the attributes on the typed link facet, not the order in which they are supplied to any API calls. For more information about identity attributes, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/objectsandlinks.html#typedlink Typed link> .
utlfIdentityAttributeOrder :: Lens' UpdateTypedLinkFacet [Text]
-utlfIdentityAttributeOrder = lens _utlfIdentityAttributeOrder (\ s a -> s{_utlfIdentityAttributeOrder = a}) . _Coerce;
+utlfIdentityAttributeOrder = lens _utlfIdentityAttributeOrder (\ s a -> s{_utlfIdentityAttributeOrder = a}) . _Coerce
instance AWSRequest UpdateTypedLinkFacet where
type Rs UpdateTypedLinkFacet =
@@ -151,6 +151,6 @@ updateTypedLinkFacetResponse pResponseStatus_ =
-- | -- | The response status code.
utlfrsResponseStatus :: Lens' UpdateTypedLinkFacetResponse Int
-utlfrsResponseStatus = lens _utlfrsResponseStatus (\ s a -> s{_utlfrsResponseStatus = a});
+utlfrsResponseStatus = lens _utlfrsResponseStatus (\ s a -> s{_utlfrsResponseStatus = a})
instance NFData UpdateTypedLinkFacetResponse where
diff --git a/gen/Network/AWS/CloudDirectory/UpgradeAppliedSchema.hs b/gen/Network/AWS/CloudDirectory/UpgradeAppliedSchema.hs
new file mode 100644
index 0000000..6df8a15
--- /dev/null
+++ b/gen/Network/AWS/CloudDirectory/UpgradeAppliedSchema.hs
@@ -0,0 +1,167 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module : Network.AWS.CloudDirectory.UpgradeAppliedSchema
+-- Copyright : (c) 2013-2018 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Upgrades a single directory in-place using the @PublishedSchemaArn@ with schema updates found in @MinorVersion@ . Backwards-compatible minor version upgrades are instantaneously available for readers on all objects in the directory. Note: This is a synchronous API call and upgrades only one schema on a given directory per call. To upgrade multiple directories from one schema, you would need to call this API on each directory.
+--
+--
+module Network.AWS.CloudDirectory.UpgradeAppliedSchema
+ (
+ -- * Creating a Request
+ upgradeAppliedSchema
+ , UpgradeAppliedSchema
+ -- * Request Lenses
+ , uasDryRun
+ , uasPublishedSchemaARN
+ , uasDirectoryARN
+
+ -- * Destructuring the Response
+ , upgradeAppliedSchemaResponse
+ , UpgradeAppliedSchemaResponse
+ -- * Response Lenses
+ , uasrsDirectoryARN
+ , uasrsUpgradedSchemaARN
+ , uasrsResponseStatus
+ ) where
+
+import Network.AWS.CloudDirectory.Types
+import Network.AWS.CloudDirectory.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
+
+-- | /See:/ 'upgradeAppliedSchema' smart constructor.
+data UpgradeAppliedSchema = UpgradeAppliedSchema'
+ { _uasDryRun :: !(Maybe Bool)
+ , _uasPublishedSchemaARN :: !Text
+ , _uasDirectoryARN :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'UpgradeAppliedSchema' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'uasDryRun' - Used for testing whether the major version schemas are backward compatible or not. If schema compatibility fails, an exception would be thrown else the call would succeed but no changes will be saved. This parameter is optional.
+--
+-- * 'uasPublishedSchemaARN' - The revision of the published schema to upgrade the directory to.
+--
+-- * 'uasDirectoryARN' - The ARN for the directory to which the upgraded schema will be applied.
+upgradeAppliedSchema
+ :: Text -- ^ 'uasPublishedSchemaARN'
+ -> Text -- ^ 'uasDirectoryARN'
+ -> UpgradeAppliedSchema
+upgradeAppliedSchema pPublishedSchemaARN_ pDirectoryARN_ =
+ UpgradeAppliedSchema'
+ { _uasDryRun = Nothing
+ , _uasPublishedSchemaARN = pPublishedSchemaARN_
+ , _uasDirectoryARN = pDirectoryARN_
+ }
+
+
+-- | Used for testing whether the major version schemas are backward compatible or not. If schema compatibility fails, an exception would be thrown else the call would succeed but no changes will be saved. This parameter is optional.
+uasDryRun :: Lens' UpgradeAppliedSchema (Maybe Bool)
+uasDryRun = lens _uasDryRun (\ s a -> s{_uasDryRun = a})
+
+-- | The revision of the published schema to upgrade the directory to.
+uasPublishedSchemaARN :: Lens' UpgradeAppliedSchema Text
+uasPublishedSchemaARN = lens _uasPublishedSchemaARN (\ s a -> s{_uasPublishedSchemaARN = a})
+
+-- | The ARN for the directory to which the upgraded schema will be applied.
+uasDirectoryARN :: Lens' UpgradeAppliedSchema Text
+uasDirectoryARN = lens _uasDirectoryARN (\ s a -> s{_uasDirectoryARN = a})
+
+instance AWSRequest UpgradeAppliedSchema where
+ type Rs UpgradeAppliedSchema =
+ UpgradeAppliedSchemaResponse
+ request = putJSON cloudDirectory
+ response
+ = receiveJSON
+ (\ s h x ->
+ UpgradeAppliedSchemaResponse' <$>
+ (x .?> "DirectoryArn") <*>
+ (x .?> "UpgradedSchemaArn")
+ <*> (pure (fromEnum s)))
+
+instance Hashable UpgradeAppliedSchema where
+
+instance NFData UpgradeAppliedSchema where
+
+instance ToHeaders UpgradeAppliedSchema where
+ toHeaders = const mempty
+
+instance ToJSON UpgradeAppliedSchema where
+ toJSON UpgradeAppliedSchema'{..}
+ = object
+ (catMaybes
+ [("DryRun" .=) <$> _uasDryRun,
+ Just
+ ("PublishedSchemaArn" .= _uasPublishedSchemaARN),
+ Just ("DirectoryArn" .= _uasDirectoryARN)])
+
+instance ToPath UpgradeAppliedSchema where
+ toPath
+ = const
+ "/amazonclouddirectory/2017-01-11/schema/upgradeapplied"
+
+instance ToQuery UpgradeAppliedSchema where
+ toQuery = const mempty
+
+-- | /See:/ 'upgradeAppliedSchemaResponse' smart constructor.
+data UpgradeAppliedSchemaResponse = UpgradeAppliedSchemaResponse'
+ { _uasrsDirectoryARN :: !(Maybe Text)
+ , _uasrsUpgradedSchemaARN :: !(Maybe Text)
+ , _uasrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'UpgradeAppliedSchemaResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'uasrsDirectoryARN' - The ARN of the directory that is returned as part of the response.
+--
+-- * 'uasrsUpgradedSchemaARN' - The ARN of the upgraded schema that is returned as part of the response.
+--
+-- * 'uasrsResponseStatus' - -- | The response status code.
+upgradeAppliedSchemaResponse
+ :: Int -- ^ 'uasrsResponseStatus'
+ -> UpgradeAppliedSchemaResponse
+upgradeAppliedSchemaResponse pResponseStatus_ =
+ UpgradeAppliedSchemaResponse'
+ { _uasrsDirectoryARN = Nothing
+ , _uasrsUpgradedSchemaARN = Nothing
+ , _uasrsResponseStatus = pResponseStatus_
+ }
+
+
+-- | The ARN of the directory that is returned as part of the response.
+uasrsDirectoryARN :: Lens' UpgradeAppliedSchemaResponse (Maybe Text)
+uasrsDirectoryARN = lens _uasrsDirectoryARN (\ s a -> s{_uasrsDirectoryARN = a})
+
+-- | The ARN of the upgraded schema that is returned as part of the response.
+uasrsUpgradedSchemaARN :: Lens' UpgradeAppliedSchemaResponse (Maybe Text)
+uasrsUpgradedSchemaARN = lens _uasrsUpgradedSchemaARN (\ s a -> s{_uasrsUpgradedSchemaARN = a})
+
+-- | -- | The response status code.
+uasrsResponseStatus :: Lens' UpgradeAppliedSchemaResponse Int
+uasrsResponseStatus = lens _uasrsResponseStatus (\ s a -> s{_uasrsResponseStatus = a})
+
+instance NFData UpgradeAppliedSchemaResponse where
diff --git a/gen/Network/AWS/CloudDirectory/UpgradePublishedSchema.hs b/gen/Network/AWS/CloudDirectory/UpgradePublishedSchema.hs
new file mode 100644
index 0000000..52eb52e
--- /dev/null
+++ b/gen/Network/AWS/CloudDirectory/UpgradePublishedSchema.hs
@@ -0,0 +1,166 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module : Network.AWS.CloudDirectory.UpgradePublishedSchema
+-- Copyright : (c) 2013-2018 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Upgrades a published schema under a new minor version revision using the current contents of @DevelopmentSchemaArn@ .
+--
+--
+module Network.AWS.CloudDirectory.UpgradePublishedSchema
+ (
+ -- * Creating a Request
+ upgradePublishedSchema
+ , UpgradePublishedSchema
+ -- * Request Lenses
+ , upsDryRun
+ , upsDevelopmentSchemaARN
+ , upsPublishedSchemaARN
+ , upsMinorVersion
+
+ -- * Destructuring the Response
+ , upgradePublishedSchemaResponse
+ , UpgradePublishedSchemaResponse
+ -- * Response Lenses
+ , upsrsUpgradedSchemaARN
+ , upsrsResponseStatus
+ ) where
+
+import Network.AWS.CloudDirectory.Types
+import Network.AWS.CloudDirectory.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
+
+-- | /See:/ 'upgradePublishedSchema' smart constructor.
+data UpgradePublishedSchema = UpgradePublishedSchema'
+ { _upsDryRun :: !(Maybe Bool)
+ , _upsDevelopmentSchemaARN :: !Text
+ , _upsPublishedSchemaARN :: !Text
+ , _upsMinorVersion :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'UpgradePublishedSchema' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'upsDryRun' - Used for testing whether the Development schema provided is backwards compatible, or not, with the publish schema provided by the user to be upgraded. If schema compatibility fails, an exception would be thrown else the call would succeed. This parameter is optional and defaults to false.
+--
+-- * 'upsDevelopmentSchemaARN' - The ARN of the development schema with the changes used for the upgrade.
+--
+-- * 'upsPublishedSchemaARN' - The ARN of the published schema to be upgraded.
+--
+-- * 'upsMinorVersion' - Identifies the minor version of the published schema that will be created. This parameter is NOT optional.
+upgradePublishedSchema
+ :: Text -- ^ 'upsDevelopmentSchemaARN'
+ -> Text -- ^ 'upsPublishedSchemaARN'
+ -> Text -- ^ 'upsMinorVersion'
+ -> UpgradePublishedSchema
+upgradePublishedSchema pDevelopmentSchemaARN_ pPublishedSchemaARN_ pMinorVersion_ =
+ UpgradePublishedSchema'
+ { _upsDryRun = Nothing
+ , _upsDevelopmentSchemaARN = pDevelopmentSchemaARN_
+ , _upsPublishedSchemaARN = pPublishedSchemaARN_
+ , _upsMinorVersion = pMinorVersion_
+ }
+
+
+-- | Used for testing whether the Development schema provided is backwards compatible, or not, with the publish schema provided by the user to be upgraded. If schema compatibility fails, an exception would be thrown else the call would succeed. This parameter is optional and defaults to false.
+upsDryRun :: Lens' UpgradePublishedSchema (Maybe Bool)
+upsDryRun = lens _upsDryRun (\ s a -> s{_upsDryRun = a})
+
+-- | The ARN of the development schema with the changes used for the upgrade.
+upsDevelopmentSchemaARN :: Lens' UpgradePublishedSchema Text
+upsDevelopmentSchemaARN = lens _upsDevelopmentSchemaARN (\ s a -> s{_upsDevelopmentSchemaARN = a})
+
+-- | The ARN of the published schema to be upgraded.
+upsPublishedSchemaARN :: Lens' UpgradePublishedSchema Text
+upsPublishedSchemaARN = lens _upsPublishedSchemaARN (\ s a -> s{_upsPublishedSchemaARN = a})
+
+-- | Identifies the minor version of the published schema that will be created. This parameter is NOT optional.
+upsMinorVersion :: Lens' UpgradePublishedSchema Text
+upsMinorVersion = lens _upsMinorVersion (\ s a -> s{_upsMinorVersion = a})
+
+instance AWSRequest UpgradePublishedSchema where
+ type Rs UpgradePublishedSchema =
+ UpgradePublishedSchemaResponse
+ request = putJSON cloudDirectory
+ response
+ = receiveJSON
+ (\ s h x ->
+ UpgradePublishedSchemaResponse' <$>
+ (x .?> "UpgradedSchemaArn") <*> (pure (fromEnum s)))
+
+instance Hashable UpgradePublishedSchema where
+
+instance NFData UpgradePublishedSchema where
+
+instance ToHeaders UpgradePublishedSchema where
+ toHeaders = const mempty
+
+instance ToJSON UpgradePublishedSchema where
+ toJSON UpgradePublishedSchema'{..}
+ = object
+ (catMaybes
+ [("DryRun" .=) <$> _upsDryRun,
+ Just
+ ("DevelopmentSchemaArn" .= _upsDevelopmentSchemaARN),
+ Just
+ ("PublishedSchemaArn" .= _upsPublishedSchemaARN),
+ Just ("MinorVersion" .= _upsMinorVersion)])
+
+instance ToPath UpgradePublishedSchema where
+ toPath
+ = const
+ "/amazonclouddirectory/2017-01-11/schema/upgradepublished"
+
+instance ToQuery UpgradePublishedSchema where
+ toQuery = const mempty
+
+-- | /See:/ 'upgradePublishedSchemaResponse' smart constructor.
+data UpgradePublishedSchemaResponse = UpgradePublishedSchemaResponse'
+ { _upsrsUpgradedSchemaARN :: !(Maybe Text)
+ , _upsrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'UpgradePublishedSchemaResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'upsrsUpgradedSchemaARN' - The ARN of the upgraded schema that is returned as part of the response.
+--
+-- * 'upsrsResponseStatus' - -- | The response status code.
+upgradePublishedSchemaResponse
+ :: Int -- ^ 'upsrsResponseStatus'
+ -> UpgradePublishedSchemaResponse
+upgradePublishedSchemaResponse pResponseStatus_ =
+ UpgradePublishedSchemaResponse'
+ {_upsrsUpgradedSchemaARN = Nothing, _upsrsResponseStatus = pResponseStatus_}
+
+
+-- | The ARN of the upgraded schema that is returned as part of the response.
+upsrsUpgradedSchemaARN :: Lens' UpgradePublishedSchemaResponse (Maybe Text)
+upsrsUpgradedSchemaARN = lens _upsrsUpgradedSchemaARN (\ s a -> s{_upsrsUpgradedSchemaARN = a})
+
+-- | -- | The response status code.
+upsrsResponseStatus :: Lens' UpgradePublishedSchemaResponse Int
+upsrsResponseStatus = lens _upsrsResponseStatus (\ s a -> s{_upsrsResponseStatus = a})
+
+instance NFData UpgradePublishedSchemaResponse where
diff --git a/gen/Network/AWS/CloudDirectory/Waiters.hs b/gen/Network/AWS/CloudDirectory/Waiters.hs
index d40cfdd..50a34db 100644
--- a/gen/Network/AWS/CloudDirectory/Waiters.hs
+++ b/gen/Network/AWS/CloudDirectory/Waiters.hs
@@ -7,7 +7,7 @@
-- |
-- Module : Network.AWS.CloudDirectory.Waiters
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
diff --git a/test/Main.hs b/test/Main.hs
index 25b84a0..456b0d5 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -2,7 +2,7 @@
-- |
-- Module : Main
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
diff --git a/test/Test/AWS/CloudDirectory.hs b/test/Test/AWS/CloudDirectory.hs
index f58c2aa..3719390 100644
--- a/test/Test/AWS/CloudDirectory.hs
+++ b/test/Test/AWS/CloudDirectory.hs
@@ -1,6 +1,6 @@
-- |
-- Module : Test.AWS.CloudDirectory
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : auto-generated
diff --git a/test/Test/AWS/CloudDirectory/Internal.hs b/test/Test/AWS/CloudDirectory/Internal.hs
index 9c3084e..d484210 100644
--- a/test/Test/AWS/CloudDirectory/Internal.hs
+++ b/test/Test/AWS/CloudDirectory/Internal.hs
@@ -1,6 +1,6 @@
-- |
-- Module : Test.AWS.CloudDirectory.Internal
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : auto-generated
diff --git a/test/Test/AWS/Gen/CloudDirectory.hs b/test/Test/AWS/Gen/CloudDirectory.hs
index 375d20a..22a74b5 100644
--- a/test/Test/AWS/Gen/CloudDirectory.hs
+++ b/test/Test/AWS/Gen/CloudDirectory.hs
@@ -5,7 +5,7 @@
-- |
-- Module : Test.AWS.Gen.CloudDirectory
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -37,6 +37,9 @@ import Test.Tasty
-- , requestListIndex $
-- listIndex
--
+-- , requestUpgradeAppliedSchema $
+-- upgradeAppliedSchema
+--
-- , requestGetDirectory $
-- getDirectory
--
@@ -82,6 +85,9 @@ import Test.Tasty
-- , requestDeleteTypedLinkFacet $
-- deleteTypedLinkFacet
--
+-- , requestGetAppliedSchemaVersion $
+-- getAppliedSchemaVersion
+--
-- , requestRemoveFacetFromObject $
-- removeFacetFromObject
--
@@ -115,9 +121,15 @@ import Test.Tasty
-- , requestCreateObject $
-- createObject
--
+-- , requestUpgradePublishedSchema $
+-- upgradePublishedSchema
+--
-- , requestCreateFacet $
-- createFacet
--
+-- , requestGetObjectAttributes $
+-- getObjectAttributes
+--
-- , requestDeleteFacet $
-- deleteFacet
--
@@ -217,6 +229,9 @@ import Test.Tasty
-- , responseListIndex $
-- listIndexResponse
--
+-- , responseUpgradeAppliedSchema $
+-- upgradeAppliedSchemaResponse
+--
-- , responseGetDirectory $
-- getDirectoryResponse
--
@@ -262,6 +277,9 @@ import Test.Tasty
-- , responseDeleteTypedLinkFacet $
-- deleteTypedLinkFacetResponse
--
+-- , responseGetAppliedSchemaVersion $
+-- getAppliedSchemaVersionResponse
+--
-- , responseRemoveFacetFromObject $
-- removeFacetFromObjectResponse
--
@@ -295,9 +313,15 @@ import Test.Tasty
-- , responseCreateObject $
-- createObjectResponse
--
+-- , responseUpgradePublishedSchema $
+-- upgradePublishedSchemaResponse
+--
-- , responseCreateFacet $
-- createFacetResponse
--
+-- , responseGetObjectAttributes $
+-- getObjectAttributesResponse
+--
-- , responseDeleteFacet $
-- deleteFacetResponse
--
@@ -405,6 +429,11 @@ requestListIndex = req
"ListIndex"
"fixture/ListIndex.yaml"
+requestUpgradeAppliedSchema :: UpgradeAppliedSchema -> TestTree
+requestUpgradeAppliedSchema = req
+ "UpgradeAppliedSchema"
+ "fixture/UpgradeAppliedSchema.yaml"
+
requestGetDirectory :: GetDirectory -> TestTree
requestGetDirectory = req
"GetDirectory"
@@ -480,6 +509,11 @@ requestDeleteTypedLinkFacet = req
"DeleteTypedLinkFacet"
"fixture/DeleteTypedLinkFacet.yaml"
+requestGetAppliedSchemaVersion :: GetAppliedSchemaVersion -> TestTree
+requestGetAppliedSchemaVersion = req
+ "GetAppliedSchemaVersion"
+ "fixture/GetAppliedSchemaVersion.yaml"
+
requestRemoveFacetFromObject :: RemoveFacetFromObject -> TestTree
requestRemoveFacetFromObject = req
"RemoveFacetFromObject"
@@ -535,11 +569,21 @@ requestCreateObject = req
"CreateObject"
"fixture/CreateObject.yaml"
+requestUpgradePublishedSchema :: UpgradePublishedSchema -> TestTree
+requestUpgradePublishedSchema = req
+ "UpgradePublishedSchema"
+ "fixture/UpgradePublishedSchema.yaml"
+
requestCreateFacet :: CreateFacet -> TestTree
requestCreateFacet = req
"CreateFacet"
"fixture/CreateFacet.yaml"
+requestGetObjectAttributes :: GetObjectAttributes -> TestTree
+requestGetObjectAttributes = req
+ "GetObjectAttributes"
+ "fixture/GetObjectAttributes.yaml"
+
requestDeleteFacet :: DeleteFacet -> TestTree
requestDeleteFacet = req
"DeleteFacet"
@@ -708,6 +752,13 @@ responseListIndex = res
cloudDirectory
(Proxy :: Proxy ListIndex)
+responseUpgradeAppliedSchema :: UpgradeAppliedSchemaResponse -> TestTree
+responseUpgradeAppliedSchema = res
+ "UpgradeAppliedSchemaResponse"
+ "fixture/UpgradeAppliedSchemaResponse.proto"
+ cloudDirectory
+ (Proxy :: Proxy UpgradeAppliedSchema)
+
responseGetDirectory :: GetDirectoryResponse -> TestTree
responseGetDirectory = res
"GetDirectoryResponse"
@@ -813,6 +864,13 @@ responseDeleteTypedLinkFacet = res
cloudDirectory
(Proxy :: Proxy DeleteTypedLinkFacet)
+responseGetAppliedSchemaVersion :: GetAppliedSchemaVersionResponse -> TestTree
+responseGetAppliedSchemaVersion = res
+ "GetAppliedSchemaVersionResponse"
+ "fixture/GetAppliedSchemaVersionResponse.proto"
+ cloudDirectory
+ (Proxy :: Proxy GetAppliedSchemaVersion)
+
responseRemoveFacetFromObject :: RemoveFacetFromObjectResponse -> TestTree
responseRemoveFacetFromObject = res
"RemoveFacetFromObjectResponse"
@@ -890,6 +948,13 @@ responseCreateObject = res
cloudDirectory
(Proxy :: Proxy CreateObject)
+responseUpgradePublishedSchema :: UpgradePublishedSchemaResponse -> TestTree
+responseUpgradePublishedSchema = res
+ "UpgradePublishedSchemaResponse"
+ "fixture/UpgradePublishedSchemaResponse.proto"
+ cloudDirectory
+ (Proxy :: Proxy UpgradePublishedSchema)
+
responseCreateFacet :: CreateFacetResponse -> TestTree
responseCreateFacet = res
"CreateFacetResponse"
@@ -897,6 +962,13 @@ responseCreateFacet = res
cloudDirectory
(Proxy :: Proxy CreateFacet)
+responseGetObjectAttributes :: GetObjectAttributesResponse -> TestTree
+responseGetObjectAttributes = res
+ "GetObjectAttributesResponse"
+ "fixture/GetObjectAttributesResponse.proto"
+ cloudDirectory
+ (Proxy :: Proxy GetObjectAttributes)
+
responseDeleteFacet :: DeleteFacetResponse -> TestTree
responseDeleteFacet = res
"DeleteFacetResponse"