amazonka-efs 1.5.0 → 1.6.0
raw patch · 22 files changed
+168/−163 lines, 22 filesdep ~amazonka-coredep ~amazonka-testPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: amazonka-core, amazonka-test
API changes (from Hackage documentation)
Files
- README.md +1/−1
- amazonka-efs.cabal +5/−5
- gen/Network/AWS/EFS.hs +1/−1
- gen/Network/AWS/EFS/CreateFileSystem.hs +10/−10
- gen/Network/AWS/EFS/CreateMountTarget.hs +10/−10
- gen/Network/AWS/EFS/CreateTags.hs +3/−3
- gen/Network/AWS/EFS/DeleteFileSystem.hs +2/−2
- gen/Network/AWS/EFS/DeleteMountTarget.hs +2/−2
- gen/Network/AWS/EFS/DeleteTags.hs +3/−3
- gen/Network/AWS/EFS/DescribeFileSystems.hs +19/−19
- gen/Network/AWS/EFS/DescribeMountTargetSecurityGroups.hs +5/−5
- gen/Network/AWS/EFS/DescribeMountTargets.hs +19/−19
- gen/Network/AWS/EFS/DescribeTags.hs +17/−14
- gen/Network/AWS/EFS/ModifyMountTargetSecurityGroups.hs +4/−4
- gen/Network/AWS/EFS/Types.hs +18/−16
- gen/Network/AWS/EFS/Types/Product.hs +43/−43
- gen/Network/AWS/EFS/Types/Sum.hs +1/−1
- gen/Network/AWS/EFS/Waiters.hs +1/−1
- test/Main.hs +1/−1
- test/Test/AWS/EFS.hs +1/−1
- test/Test/AWS/EFS/Internal.hs +1/−1
- test/Test/AWS/Gen/EFS.hs +1/−1
README.md view
@@ -8,7 +8,7 @@ ## Version -`1.5.0`+`1.6.0` ## Description
amazonka-efs.cabal view
@@ -1,5 +1,5 @@ name: amazonka-efs-version: 1.5.0+version: 1.6.0 synopsis: Amazon Elastic File System SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ 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@@ -64,7 +64,7 @@ , Network.AWS.EFS.Types.Sum build-depends:- amazonka-core == 1.5.0.*+ amazonka-core == 1.6.0.* , base >= 4.7 && < 5 test-suite amazonka-efs-test@@ -84,8 +84,8 @@ , Test.AWS.EFS.Internal build-depends:- amazonka-core == 1.5.0.*- , amazonka-test == 1.5.0.*+ amazonka-core == 1.6.0.*+ , amazonka-test == 1.6.0.* , amazonka-efs , base , bytestring
gen/Network/AWS/EFS.hs view
@@ -5,7 +5,7 @@ -- | -- Module : Network.AWS.EFS--- 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
gen/Network/AWS/EFS/CreateFileSystem.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EFS.CreateFileSystem--- 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@@ -97,28 +97,28 @@ -> CreateFileSystem createFileSystem pCreationToken_ = CreateFileSystem'- { _cfsPerformanceMode = Nothing- , _cfsEncrypted = Nothing- , _cfsKMSKeyId = Nothing- , _cfsCreationToken = pCreationToken_- }+ { _cfsPerformanceMode = Nothing+ , _cfsEncrypted = Nothing+ , _cfsKMSKeyId = Nothing+ , _cfsCreationToken = pCreationToken_+ } -- | The @PerformanceMode@ of the file system. We recommend @generalPurpose@ performance mode for most file systems. File systems using the @maxIO@ performance mode can scale to higher levels of aggregate throughput and operations per second with a tradeoff of slightly higher latencies for most file operations. This can't be changed after the file system has been created. cfsPerformanceMode :: Lens' CreateFileSystem (Maybe PerformanceMode)-cfsPerformanceMode = lens _cfsPerformanceMode (\ s a -> s{_cfsPerformanceMode = a});+cfsPerformanceMode = lens _cfsPerformanceMode (\ s a -> s{_cfsPerformanceMode = a}) -- | A boolean value that, if true, creates an encrypted file system. When creating an encrypted file system, you have the option of specifying a 'CreateFileSystemRequest$KmsKeyId' for an existing AWS Key Management Service (AWS KMS) customer master key (CMK). If you don't specify a CMK, then the default CMK for Amazon EFS, @/aws/elasticfilesystem@ , is used to protect the encrypted file system. cfsEncrypted :: Lens' CreateFileSystem (Maybe Bool)-cfsEncrypted = lens _cfsEncrypted (\ s a -> s{_cfsEncrypted = a});+cfsEncrypted = lens _cfsEncrypted (\ s a -> s{_cfsEncrypted = a}) -- | The id of the AWS KMS CMK that will be used to protect the encrypted file system. This parameter is only required if you want to use a non-default CMK. If this parameter is not specified, the default CMK for Amazon EFS is used. This id can be in one of the following formats: * Key ID - A unique identifier of the key. For example, @1234abcd-12ab-34cd-56ef-1234567890ab@ . * ARN - An Amazon Resource Name for the key. For example, @arn:aws:kms:us-west-2:111122223333:key/1234abcd-12ab-34cd-56ef-1234567890ab@ . * Key alias - A previously created display name for a key. For example, @alias/projectKey1@ . * Key alias ARN - An Amazon Resource Name for a key alias. For example, @arn:aws:kms:us-west-2:444455556666:alias/projectKey1@ . Note that if the KmsKeyId is specified, the 'CreateFileSystemRequest$Encrypted' parameter must be set to true. cfsKMSKeyId :: Lens' CreateFileSystem (Maybe Text)-cfsKMSKeyId = lens _cfsKMSKeyId (\ s a -> s{_cfsKMSKeyId = a});+cfsKMSKeyId = lens _cfsKMSKeyId (\ s a -> s{_cfsKMSKeyId = a}) -- | String of up to 64 ASCII characters. Amazon EFS uses this to ensure idempotent creation. cfsCreationToken :: Lens' CreateFileSystem Text-cfsCreationToken = lens _cfsCreationToken (\ s a -> s{_cfsCreationToken = a});+cfsCreationToken = lens _cfsCreationToken (\ s a -> s{_cfsCreationToken = a}) instance AWSRequest CreateFileSystem where type Rs CreateFileSystem = FileSystemDescription
gen/Network/AWS/EFS/CreateMountTarget.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EFS.CreateMountTarget--- 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@@ -144,28 +144,28 @@ -> CreateMountTarget createMountTarget pFileSystemId_ pSubnetId_ = CreateMountTarget'- { _cmtIPAddress = Nothing- , _cmtSecurityGroups = Nothing- , _cmtFileSystemId = pFileSystemId_- , _cmtSubnetId = pSubnetId_- }+ { _cmtIPAddress = Nothing+ , _cmtSecurityGroups = Nothing+ , _cmtFileSystemId = pFileSystemId_+ , _cmtSubnetId = pSubnetId_+ } -- | Valid IPv4 address within the address range of the specified subnet. cmtIPAddress :: Lens' CreateMountTarget (Maybe Text)-cmtIPAddress = lens _cmtIPAddress (\ s a -> s{_cmtIPAddress = a});+cmtIPAddress = lens _cmtIPAddress (\ s a -> s{_cmtIPAddress = a}) -- | Up to five VPC security group IDs, of the form @sg-xxxxxxxx@ . These must be for the same VPC as subnet specified. cmtSecurityGroups :: Lens' CreateMountTarget [Text]-cmtSecurityGroups = lens _cmtSecurityGroups (\ s a -> s{_cmtSecurityGroups = a}) . _Default . _Coerce;+cmtSecurityGroups = lens _cmtSecurityGroups (\ s a -> s{_cmtSecurityGroups = a}) . _Default . _Coerce -- | ID of the file system for which to create the mount target. cmtFileSystemId :: Lens' CreateMountTarget Text-cmtFileSystemId = lens _cmtFileSystemId (\ s a -> s{_cmtFileSystemId = a});+cmtFileSystemId = lens _cmtFileSystemId (\ s a -> s{_cmtFileSystemId = a}) -- | ID of the subnet to add the mount target in. cmtSubnetId :: Lens' CreateMountTarget Text-cmtSubnetId = lens _cmtSubnetId (\ s a -> s{_cmtSubnetId = a});+cmtSubnetId = lens _cmtSubnetId (\ s a -> s{_cmtSubnetId = a}) instance AWSRequest CreateMountTarget where type Rs CreateMountTarget = MountTargetDescription
gen/Network/AWS/EFS/CreateTags.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EFS.CreateTags--- 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,11 +71,11 @@ -- | ID of the file system whose tags you want to modify (String). This operation modifies the tags only, not the file system. ctFileSystemId :: Lens' CreateTags Text-ctFileSystemId = lens _ctFileSystemId (\ s a -> s{_ctFileSystemId = a});+ctFileSystemId = lens _ctFileSystemId (\ s a -> s{_ctFileSystemId = a}) -- | Array of @Tag@ objects to add. Each @Tag@ object is a key-value pair. ctTags :: Lens' CreateTags [Tag]-ctTags = lens _ctTags (\ s a -> s{_ctTags = a}) . _Coerce;+ctTags = lens _ctTags (\ s a -> s{_ctTags = a}) . _Coerce instance AWSRequest CreateTags where type Rs CreateTags = CreateTagsResponse
gen/Network/AWS/EFS/DeleteFileSystem.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EFS.DeleteFileSystem--- 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,7 +69,7 @@ -- | ID of the file system you want to delete. delFileSystemId :: Lens' DeleteFileSystem Text-delFileSystemId = lens _delFileSystemId (\ s a -> s{_delFileSystemId = a});+delFileSystemId = lens _delFileSystemId (\ s a -> s{_delFileSystemId = a}) instance AWSRequest DeleteFileSystem where type Rs DeleteFileSystem = DeleteFileSystemResponse
gen/Network/AWS/EFS/DeleteMountTarget.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EFS.DeleteMountTarget--- 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,7 +79,7 @@ -- | ID of the mount target to delete (String). dMountTargetId :: Lens' DeleteMountTarget Text-dMountTargetId = lens _dMountTargetId (\ s a -> s{_dMountTargetId = a});+dMountTargetId = lens _dMountTargetId (\ s a -> s{_dMountTargetId = a}) instance AWSRequest DeleteMountTarget where type Rs DeleteMountTarget = DeleteMountTargetResponse
gen/Network/AWS/EFS/DeleteTags.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EFS.DeleteTags--- 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,11 +71,11 @@ -- | ID of the file system whose tags you want to delete (String). dFileSystemId :: Lens' DeleteTags Text-dFileSystemId = lens _dFileSystemId (\ s a -> s{_dFileSystemId = a});+dFileSystemId = lens _dFileSystemId (\ s a -> s{_dFileSystemId = a}) -- | List of tag keys to delete. dTagKeys :: Lens' DeleteTags [Text]-dTagKeys = lens _dTagKeys (\ s a -> s{_dTagKeys = a}) . _Coerce;+dTagKeys = lens _dTagKeys (\ s a -> s{_dTagKeys = a}) . _Coerce instance AWSRequest DeleteTags where type Rs DeleteTags = DeleteTagsResponse
gen/Network/AWS/EFS/DescribeFileSystems.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EFS.DescribeFileSystems--- 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@@ -90,28 +90,28 @@ :: DescribeFileSystems describeFileSystems = DescribeFileSystems'- { _dfsFileSystemId = Nothing- , _dfsCreationToken = Nothing- , _dfsMarker = Nothing- , _dfsMaxItems = Nothing- }+ { _dfsFileSystemId = Nothing+ , _dfsCreationToken = Nothing+ , _dfsMarker = Nothing+ , _dfsMaxItems = Nothing+ } -- | (Optional) ID of the file system whose description you want to retrieve (String). dfsFileSystemId :: Lens' DescribeFileSystems (Maybe Text)-dfsFileSystemId = lens _dfsFileSystemId (\ s a -> s{_dfsFileSystemId = a});+dfsFileSystemId = lens _dfsFileSystemId (\ s a -> s{_dfsFileSystemId = a}) -- | (Optional) Restricts the list to the file system with this creation token (String). You specify a creation token when you create an Amazon EFS file system. dfsCreationToken :: Lens' DescribeFileSystems (Maybe Text)-dfsCreationToken = lens _dfsCreationToken (\ s a -> s{_dfsCreationToken = a});+dfsCreationToken = lens _dfsCreationToken (\ s a -> s{_dfsCreationToken = a}) -- | (Optional) Opaque pagination token returned from a previous @DescribeFileSystems@ operation (String). If present, specifies to continue the list from where the returning call had left off. dfsMarker :: Lens' DescribeFileSystems (Maybe Text)-dfsMarker = lens _dfsMarker (\ s a -> s{_dfsMarker = a});+dfsMarker = lens _dfsMarker (\ s a -> s{_dfsMarker = a}) -- | (Optional) Specifies the maximum number of file systems to return in the response (integer). This parameter value must be greater than 0. The number of items that Amazon EFS returns is the minimum of the @MaxItems@ parameter specified in the request and the service's internal maximum number of items per page. dfsMaxItems :: Lens' DescribeFileSystems (Maybe Natural)-dfsMaxItems = lens _dfsMaxItems (\ s a -> s{_dfsMaxItems = a}) . mapping _Nat;+dfsMaxItems = lens _dfsMaxItems (\ s a -> s{_dfsMaxItems = a}) . mapping _Nat instance AWSPager DescribeFileSystems where page rq rs@@ -174,27 +174,27 @@ -> DescribeFileSystemsResponse describeFileSystemsResponse pResponseStatus_ = DescribeFileSystemsResponse'- { _dfsrsFileSystems = Nothing- , _dfsrsMarker = Nothing- , _dfsrsNextMarker = Nothing- , _dfsrsResponseStatus = pResponseStatus_- }+ { _dfsrsFileSystems = Nothing+ , _dfsrsMarker = Nothing+ , _dfsrsNextMarker = Nothing+ , _dfsrsResponseStatus = pResponseStatus_+ } -- | Array of file system descriptions. dfsrsFileSystems :: Lens' DescribeFileSystemsResponse [FileSystemDescription]-dfsrsFileSystems = lens _dfsrsFileSystems (\ s a -> s{_dfsrsFileSystems = a}) . _Default . _Coerce;+dfsrsFileSystems = lens _dfsrsFileSystems (\ s a -> s{_dfsrsFileSystems = a}) . _Default . _Coerce -- | Present if provided by caller in the request (String). dfsrsMarker :: Lens' DescribeFileSystemsResponse (Maybe Text)-dfsrsMarker = lens _dfsrsMarker (\ s a -> s{_dfsrsMarker = a});+dfsrsMarker = lens _dfsrsMarker (\ s a -> s{_dfsrsMarker = a}) -- | Present if there are more file systems than returned in the response (String). You can use the @NextMarker@ in the subsequent request to fetch the descriptions. dfsrsNextMarker :: Lens' DescribeFileSystemsResponse (Maybe Text)-dfsrsNextMarker = lens _dfsrsNextMarker (\ s a -> s{_dfsrsNextMarker = a});+dfsrsNextMarker = lens _dfsrsNextMarker (\ s a -> s{_dfsrsNextMarker = a}) -- | -- | The response status code. dfsrsResponseStatus :: Lens' DescribeFileSystemsResponse Int-dfsrsResponseStatus = lens _dfsrsResponseStatus (\ s a -> s{_dfsrsResponseStatus = a});+dfsrsResponseStatus = lens _dfsrsResponseStatus (\ s a -> s{_dfsrsResponseStatus = a}) instance NFData DescribeFileSystemsResponse where
gen/Network/AWS/EFS/DescribeMountTargetSecurityGroups.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EFS.DescribeMountTargetSecurityGroups--- 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@@ -76,7 +76,7 @@ -- | ID of the mount target whose security groups you want to retrieve. dmtsgMountTargetId :: Lens' DescribeMountTargetSecurityGroups Text-dmtsgMountTargetId = lens _dmtsgMountTargetId (\ s a -> s{_dmtsgMountTargetId = a});+dmtsgMountTargetId = lens _dmtsgMountTargetId (\ s a -> s{_dmtsgMountTargetId = a}) instance AWSRequest DescribeMountTargetSecurityGroups where@@ -130,16 +130,16 @@ -> DescribeMountTargetSecurityGroupsResponse describeMountTargetSecurityGroupsResponse pResponseStatus_ = DescribeMountTargetSecurityGroupsResponse'- {_dmtsgrsResponseStatus = pResponseStatus_, _dmtsgrsSecurityGroups = mempty}+ {_dmtsgrsResponseStatus = pResponseStatus_, _dmtsgrsSecurityGroups = mempty} -- | -- | The response status code. dmtsgrsResponseStatus :: Lens' DescribeMountTargetSecurityGroupsResponse Int-dmtsgrsResponseStatus = lens _dmtsgrsResponseStatus (\ s a -> s{_dmtsgrsResponseStatus = a});+dmtsgrsResponseStatus = lens _dmtsgrsResponseStatus (\ s a -> s{_dmtsgrsResponseStatus = a}) -- | Array of security groups. dmtsgrsSecurityGroups :: Lens' DescribeMountTargetSecurityGroupsResponse [Text]-dmtsgrsSecurityGroups = lens _dmtsgrsSecurityGroups (\ s a -> s{_dmtsgrsSecurityGroups = a}) . _Coerce;+dmtsgrsSecurityGroups = lens _dmtsgrsSecurityGroups (\ s a -> s{_dmtsgrsSecurityGroups = a}) . _Coerce instance NFData DescribeMountTargetSecurityGroupsResponse
gen/Network/AWS/EFS/DescribeMountTargets.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EFS.DescribeMountTargets--- 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@@ -82,28 +82,28 @@ :: DescribeMountTargets describeMountTargets = DescribeMountTargets'- { _dmtFileSystemId = Nothing- , _dmtMarker = Nothing- , _dmtMaxItems = Nothing- , _dmtMountTargetId = Nothing- }+ { _dmtFileSystemId = Nothing+ , _dmtMarker = Nothing+ , _dmtMaxItems = Nothing+ , _dmtMountTargetId = Nothing+ } -- | (Optional) ID of the file system whose mount targets you want to list (String). It must be included in your request if @MountTargetId@ is not included. dmtFileSystemId :: Lens' DescribeMountTargets (Maybe Text)-dmtFileSystemId = lens _dmtFileSystemId (\ s a -> s{_dmtFileSystemId = a});+dmtFileSystemId = lens _dmtFileSystemId (\ s a -> s{_dmtFileSystemId = a}) -- | (Optional) Opaque pagination token returned from a previous @DescribeMountTargets@ operation (String). If present, it specifies to continue the list from where the previous returning call left off. dmtMarker :: Lens' DescribeMountTargets (Maybe Text)-dmtMarker = lens _dmtMarker (\ s a -> s{_dmtMarker = a});+dmtMarker = lens _dmtMarker (\ s a -> s{_dmtMarker = a}) -- | (Optional) Maximum number of mount targets to return in the response. It must be an integer with a value greater than zero. dmtMaxItems :: Lens' DescribeMountTargets (Maybe Natural)-dmtMaxItems = lens _dmtMaxItems (\ s a -> s{_dmtMaxItems = a}) . mapping _Nat;+dmtMaxItems = lens _dmtMaxItems (\ s a -> s{_dmtMaxItems = a}) . mapping _Nat -- | (Optional) ID of the mount target that you want to have described (String). It must be included in your request if @FileSystemId@ is not included. dmtMountTargetId :: Lens' DescribeMountTargets (Maybe Text)-dmtMountTargetId = lens _dmtMountTargetId (\ s a -> s{_dmtMountTargetId = a});+dmtMountTargetId = lens _dmtMountTargetId (\ s a -> s{_dmtMountTargetId = a}) instance AWSPager DescribeMountTargets where page rq rs@@ -171,27 +171,27 @@ -> DescribeMountTargetsResponse describeMountTargetsResponse pResponseStatus_ = DescribeMountTargetsResponse'- { _dmtrsMountTargets = Nothing- , _dmtrsMarker = Nothing- , _dmtrsNextMarker = Nothing- , _dmtrsResponseStatus = pResponseStatus_- }+ { _dmtrsMountTargets = Nothing+ , _dmtrsMarker = Nothing+ , _dmtrsNextMarker = Nothing+ , _dmtrsResponseStatus = pResponseStatus_+ } -- | Returns the file system's mount targets as an array of @MountTargetDescription@ objects. dmtrsMountTargets :: Lens' DescribeMountTargetsResponse [MountTargetDescription]-dmtrsMountTargets = lens _dmtrsMountTargets (\ s a -> s{_dmtrsMountTargets = a}) . _Default . _Coerce;+dmtrsMountTargets = lens _dmtrsMountTargets (\ s a -> s{_dmtrsMountTargets = a}) . _Default . _Coerce -- | If the request included the @Marker@ , the response returns that value in this field. dmtrsMarker :: Lens' DescribeMountTargetsResponse (Maybe Text)-dmtrsMarker = lens _dmtrsMarker (\ s a -> s{_dmtrsMarker = a});+dmtrsMarker = lens _dmtrsMarker (\ s a -> s{_dmtrsMarker = a}) -- | If a value is present, there are more mount targets to return. In a subsequent request, you can provide @Marker@ in your request with this value to retrieve the next set of mount targets. dmtrsNextMarker :: Lens' DescribeMountTargetsResponse (Maybe Text)-dmtrsNextMarker = lens _dmtrsNextMarker (\ s a -> s{_dmtrsNextMarker = a});+dmtrsNextMarker = lens _dmtrsNextMarker (\ s a -> s{_dmtrsNextMarker = a}) -- | -- | The response status code. dmtrsResponseStatus :: Lens' DescribeMountTargetsResponse Int-dmtrsResponseStatus = lens _dmtrsResponseStatus (\ s a -> s{_dmtrsResponseStatus = a});+dmtrsResponseStatus = lens _dmtrsResponseStatus (\ s a -> s{_dmtrsResponseStatus = a}) instance NFData DescribeMountTargetsResponse where
gen/Network/AWS/EFS/DescribeTags.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EFS.DescribeTags--- 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,20 +79,23 @@ -> DescribeTags describeTags pFileSystemId_ = DescribeTags'- {_dtMarker = Nothing, _dtMaxItems = Nothing, _dtFileSystemId = pFileSystemId_}+ { _dtMarker = Nothing+ , _dtMaxItems = Nothing+ , _dtFileSystemId = pFileSystemId_+ } -- | (Optional) Opaque pagination token returned from a previous @DescribeTags@ operation (String). If present, it specifies to continue the list from where the previous call left off. dtMarker :: Lens' DescribeTags (Maybe Text)-dtMarker = lens _dtMarker (\ s a -> s{_dtMarker = a});+dtMarker = lens _dtMarker (\ s a -> s{_dtMarker = a}) -- | (Optional) Maximum number of file system tags to return in the response. It must be an integer with a value greater than zero. dtMaxItems :: Lens' DescribeTags (Maybe Natural)-dtMaxItems = lens _dtMaxItems (\ s a -> s{_dtMaxItems = a}) . mapping _Nat;+dtMaxItems = lens _dtMaxItems (\ s a -> s{_dtMaxItems = a}) . mapping _Nat -- | ID of the file system whose tag set you want to retrieve. dtFileSystemId :: Lens' DescribeTags Text-dtFileSystemId = lens _dtFileSystemId (\ s a -> s{_dtFileSystemId = a});+dtFileSystemId = lens _dtFileSystemId (\ s a -> s{_dtFileSystemId = a}) instance AWSPager DescribeTags where page rq rs@@ -158,27 +161,27 @@ -> DescribeTagsResponse describeTagsResponse pResponseStatus_ = DescribeTagsResponse'- { _dtrsMarker = Nothing- , _dtrsNextMarker = Nothing- , _dtrsResponseStatus = pResponseStatus_- , _dtrsTags = mempty- }+ { _dtrsMarker = Nothing+ , _dtrsNextMarker = Nothing+ , _dtrsResponseStatus = pResponseStatus_+ , _dtrsTags = mempty+ } -- | If the request included a @Marker@ , the response returns that value in this field. dtrsMarker :: Lens' DescribeTagsResponse (Maybe Text)-dtrsMarker = lens _dtrsMarker (\ s a -> s{_dtrsMarker = a});+dtrsMarker = lens _dtrsMarker (\ s a -> s{_dtrsMarker = a}) -- | If a value is present, there are more tags to return. In a subsequent request, you can provide the value of @NextMarker@ as the value of the @Marker@ parameter in your next request to retrieve the next set of tags. dtrsNextMarker :: Lens' DescribeTagsResponse (Maybe Text)-dtrsNextMarker = lens _dtrsNextMarker (\ s a -> s{_dtrsNextMarker = a});+dtrsNextMarker = lens _dtrsNextMarker (\ s a -> s{_dtrsNextMarker = a}) -- | -- | The response status code. dtrsResponseStatus :: Lens' DescribeTagsResponse Int-dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a});+dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a}) -- | Returns tags associated with the file system as an array of @Tag@ objects. dtrsTags :: Lens' DescribeTagsResponse [Tag]-dtrsTags = lens _dtrsTags (\ s a -> s{_dtrsTags = a}) . _Coerce;+dtrsTags = lens _dtrsTags (\ s a -> s{_dtrsTags = a}) . _Coerce instance NFData DescribeTagsResponse where
gen/Network/AWS/EFS/ModifyMountTargetSecurityGroups.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EFS.ModifyMountTargetSecurityGroups--- 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@@ -75,16 +75,16 @@ -> ModifyMountTargetSecurityGroups modifyMountTargetSecurityGroups pMountTargetId_ = ModifyMountTargetSecurityGroups'- {_mmtsgSecurityGroups = Nothing, _mmtsgMountTargetId = pMountTargetId_}+ {_mmtsgSecurityGroups = Nothing, _mmtsgMountTargetId = pMountTargetId_} -- | Array of up to five VPC security group IDs. mmtsgSecurityGroups :: Lens' ModifyMountTargetSecurityGroups [Text]-mmtsgSecurityGroups = lens _mmtsgSecurityGroups (\ s a -> s{_mmtsgSecurityGroups = a}) . _Default . _Coerce;+mmtsgSecurityGroups = lens _mmtsgSecurityGroups (\ s a -> s{_mmtsgSecurityGroups = a}) . _Default . _Coerce -- | ID of the mount target whose security groups you want to modify. mmtsgMountTargetId :: Lens' ModifyMountTargetSecurityGroups Text-mmtsgMountTargetId = lens _mmtsgMountTargetId (\ s a -> s{_mmtsgMountTargetId = a});+mmtsgMountTargetId = lens _mmtsgMountTargetId (\ s a -> s{_mmtsgMountTargetId = a}) instance AWSRequest ModifyMountTargetSecurityGroups where
gen/Network/AWS/EFS/Types.hs view
@@ -4,7 +4,7 @@ -- | -- Module : Network.AWS.EFS.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@@ -90,24 +90,24 @@ efs :: Service efs = Service- { _svcAbbrev = "EFS"- , _svcSigner = v4- , _svcPrefix = "elasticfilesystem"- , _svcVersion = "2015-02-01"- , _svcEndpoint = defaultEndpoint efs- , _svcTimeout = Just 70- , _svcCheck = statusSuccess- , _svcError = parseJSONError "EFS"- , _svcRetry = retry- }+ { _svcAbbrev = "EFS"+ , _svcSigner = v4+ , _svcPrefix = "elasticfilesystem"+ , _svcVersion = "2015-02-01"+ , _svcEndpoint = defaultEndpoint efs+ , _svcTimeout = Just 70+ , _svcCheck = statusSuccess+ , _svcError = parseJSONError "EFS"+ , _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"@@ -116,6 +116,8 @@ 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"
gen/Network/AWS/EFS/Types/Product.hs view
@@ -9,7 +9,7 @@ -- | -- Module : Network.AWS.EFS.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@@ -78,63 +78,63 @@ -> FileSystemDescription fileSystemDescription pOwnerId_ pCreationToken_ pFileSystemId_ pCreationTime_ pLifeCycleState_ pNumberOfMountTargets_ pSizeInBytes_ pPerformanceMode_ = FileSystemDescription'- { _fsdEncrypted = Nothing- , _fsdKMSKeyId = Nothing- , _fsdName = Nothing- , _fsdOwnerId = pOwnerId_- , _fsdCreationToken = pCreationToken_- , _fsdFileSystemId = pFileSystemId_- , _fsdCreationTime = _Time # pCreationTime_- , _fsdLifeCycleState = pLifeCycleState_- , _fsdNumberOfMountTargets = _Nat # pNumberOfMountTargets_- , _fsdSizeInBytes = pSizeInBytes_- , _fsdPerformanceMode = pPerformanceMode_- }+ { _fsdEncrypted = Nothing+ , _fsdKMSKeyId = Nothing+ , _fsdName = Nothing+ , _fsdOwnerId = pOwnerId_+ , _fsdCreationToken = pCreationToken_+ , _fsdFileSystemId = pFileSystemId_+ , _fsdCreationTime = _Time # pCreationTime_+ , _fsdLifeCycleState = pLifeCycleState_+ , _fsdNumberOfMountTargets = _Nat # pNumberOfMountTargets_+ , _fsdSizeInBytes = pSizeInBytes_+ , _fsdPerformanceMode = pPerformanceMode_+ } -- | A boolean value that, if true, indicates that the file system is encrypted. fsdEncrypted :: Lens' FileSystemDescription (Maybe Bool)-fsdEncrypted = lens _fsdEncrypted (\ s a -> s{_fsdEncrypted = a});+fsdEncrypted = lens _fsdEncrypted (\ s a -> s{_fsdEncrypted = a}) -- | The id of an AWS Key Management Service (AWS KMS) customer master key (CMK) that was used to protect the encrypted file system. fsdKMSKeyId :: Lens' FileSystemDescription (Maybe Text)-fsdKMSKeyId = lens _fsdKMSKeyId (\ s a -> s{_fsdKMSKeyId = a});+fsdKMSKeyId = lens _fsdKMSKeyId (\ s a -> s{_fsdKMSKeyId = a}) -- | You can add tags to a file system, including a @Name@ tag. For more information, see 'CreateTags' . If the file system has a @Name@ tag, Amazon EFS returns the value in this field. fsdName :: Lens' FileSystemDescription (Maybe Text)-fsdName = lens _fsdName (\ s a -> s{_fsdName = a});+fsdName = lens _fsdName (\ s a -> s{_fsdName = a}) -- | AWS account that created the file system. If the file system was created by an IAM user, the parent account to which the user belongs is the owner. fsdOwnerId :: Lens' FileSystemDescription Text-fsdOwnerId = lens _fsdOwnerId (\ s a -> s{_fsdOwnerId = a});+fsdOwnerId = lens _fsdOwnerId (\ s a -> s{_fsdOwnerId = a}) -- | Opaque string specified in the request. fsdCreationToken :: Lens' FileSystemDescription Text-fsdCreationToken = lens _fsdCreationToken (\ s a -> s{_fsdCreationToken = a});+fsdCreationToken = lens _fsdCreationToken (\ s a -> s{_fsdCreationToken = a}) -- | ID of the file system, assigned by Amazon EFS. fsdFileSystemId :: Lens' FileSystemDescription Text-fsdFileSystemId = lens _fsdFileSystemId (\ s a -> s{_fsdFileSystemId = a});+fsdFileSystemId = lens _fsdFileSystemId (\ s a -> s{_fsdFileSystemId = a}) -- | Time that the file system was created, in seconds (since 1970-01-01T00:00:00Z). fsdCreationTime :: Lens' FileSystemDescription UTCTime-fsdCreationTime = lens _fsdCreationTime (\ s a -> s{_fsdCreationTime = a}) . _Time;+fsdCreationTime = lens _fsdCreationTime (\ s a -> s{_fsdCreationTime = a}) . _Time -- | Lifecycle phase of the file system. fsdLifeCycleState :: Lens' FileSystemDescription LifeCycleState-fsdLifeCycleState = lens _fsdLifeCycleState (\ s a -> s{_fsdLifeCycleState = a});+fsdLifeCycleState = lens _fsdLifeCycleState (\ s a -> s{_fsdLifeCycleState = a}) -- | Current number of mount targets that the file system has. For more information, see 'CreateMountTarget' . fsdNumberOfMountTargets :: Lens' FileSystemDescription Natural-fsdNumberOfMountTargets = lens _fsdNumberOfMountTargets (\ s a -> s{_fsdNumberOfMountTargets = a}) . _Nat;+fsdNumberOfMountTargets = lens _fsdNumberOfMountTargets (\ s a -> s{_fsdNumberOfMountTargets = a}) . _Nat -- | Latest known metered size (in bytes) of data stored in the file system, in bytes, in its @Value@ field, and the time at which that size was determined in its @Timestamp@ field. The @Timestamp@ value is the integer number of seconds since 1970-01-01T00:00:00Z. Note that the value does not represent the size of a consistent snapshot of the file system, but it is eventually consistent when there are no writes to the file system. That is, the value will represent actual size only if the file system is not modified for a period longer than a couple of hours. Otherwise, the value is not the exact size the file system was at any instant in time. fsdSizeInBytes :: Lens' FileSystemDescription FileSystemSize-fsdSizeInBytes = lens _fsdSizeInBytes (\ s a -> s{_fsdSizeInBytes = a});+fsdSizeInBytes = lens _fsdSizeInBytes (\ s a -> s{_fsdSizeInBytes = a}) -- | The @PerformanceMode@ of the file system. fsdPerformanceMode :: Lens' FileSystemDescription PerformanceMode-fsdPerformanceMode = lens _fsdPerformanceMode (\ s a -> s{_fsdPerformanceMode = a});+fsdPerformanceMode = lens _fsdPerformanceMode (\ s a -> s{_fsdPerformanceMode = a}) instance FromJSON FileSystemDescription where parseJSON@@ -183,11 +183,11 @@ -- | Time at which the size of data, returned in the @Value@ field, was determined. The value is the integer number of seconds since 1970-01-01T00:00:00Z. fssTimestamp :: Lens' FileSystemSize (Maybe UTCTime)-fssTimestamp = lens _fssTimestamp (\ s a -> s{_fssTimestamp = a}) . mapping _Time;+fssTimestamp = lens _fssTimestamp (\ s a -> s{_fssTimestamp = a}) . mapping _Time -- | Latest known metered size (in bytes) of data stored in the file system. fssValue :: Lens' FileSystemSize Natural-fssValue = lens _fssValue (\ s a -> s{_fssValue = a}) . _Nat;+fssValue = lens _fssValue (\ s a -> s{_fssValue = a}) . _Nat instance FromJSON FileSystemSize where parseJSON@@ -241,43 +241,43 @@ -> MountTargetDescription mountTargetDescription pMountTargetId_ pFileSystemId_ pSubnetId_ pLifeCycleState_ = MountTargetDescription'- { _mtdIPAddress = Nothing- , _mtdNetworkInterfaceId = Nothing- , _mtdOwnerId = Nothing- , _mtdMountTargetId = pMountTargetId_- , _mtdFileSystemId = pFileSystemId_- , _mtdSubnetId = pSubnetId_- , _mtdLifeCycleState = pLifeCycleState_- }+ { _mtdIPAddress = Nothing+ , _mtdNetworkInterfaceId = Nothing+ , _mtdOwnerId = Nothing+ , _mtdMountTargetId = pMountTargetId_+ , _mtdFileSystemId = pFileSystemId_+ , _mtdSubnetId = pSubnetId_+ , _mtdLifeCycleState = pLifeCycleState_+ } -- | Address at which the file system may be mounted via the mount target. mtdIPAddress :: Lens' MountTargetDescription (Maybe Text)-mtdIPAddress = lens _mtdIPAddress (\ s a -> s{_mtdIPAddress = a});+mtdIPAddress = lens _mtdIPAddress (\ s a -> s{_mtdIPAddress = a}) -- | ID of the network interface that Amazon EFS created when it created the mount target. mtdNetworkInterfaceId :: Lens' MountTargetDescription (Maybe Text)-mtdNetworkInterfaceId = lens _mtdNetworkInterfaceId (\ s a -> s{_mtdNetworkInterfaceId = a});+mtdNetworkInterfaceId = lens _mtdNetworkInterfaceId (\ s a -> s{_mtdNetworkInterfaceId = a}) -- | AWS account ID that owns the resource. mtdOwnerId :: Lens' MountTargetDescription (Maybe Text)-mtdOwnerId = lens _mtdOwnerId (\ s a -> s{_mtdOwnerId = a});+mtdOwnerId = lens _mtdOwnerId (\ s a -> s{_mtdOwnerId = a}) -- | System-assigned mount target ID. mtdMountTargetId :: Lens' MountTargetDescription Text-mtdMountTargetId = lens _mtdMountTargetId (\ s a -> s{_mtdMountTargetId = a});+mtdMountTargetId = lens _mtdMountTargetId (\ s a -> s{_mtdMountTargetId = a}) -- | ID of the file system for which the mount target is intended. mtdFileSystemId :: Lens' MountTargetDescription Text-mtdFileSystemId = lens _mtdFileSystemId (\ s a -> s{_mtdFileSystemId = a});+mtdFileSystemId = lens _mtdFileSystemId (\ s a -> s{_mtdFileSystemId = a}) -- | ID of the mount target's subnet. mtdSubnetId :: Lens' MountTargetDescription Text-mtdSubnetId = lens _mtdSubnetId (\ s a -> s{_mtdSubnetId = a});+mtdSubnetId = lens _mtdSubnetId (\ s a -> s{_mtdSubnetId = a}) -- | Lifecycle state of the mount target. mtdLifeCycleState :: Lens' MountTargetDescription LifeCycleState-mtdLifeCycleState = lens _mtdLifeCycleState (\ s a -> s{_mtdLifeCycleState = a});+mtdLifeCycleState = lens _mtdLifeCycleState (\ s a -> s{_mtdLifeCycleState = a}) instance FromJSON MountTargetDescription where parseJSON@@ -322,11 +322,11 @@ -- | Tag key (String). The key can't start with @aws:@ . tagKey :: Lens' Tag Text-tagKey = lens _tagKey (\ s a -> s{_tagKey = a});+tagKey = lens _tagKey (\ s a -> s{_tagKey = a}) -- | Value of the tag key. tagValue :: Lens' Tag Text-tagValue = lens _tagValue (\ s a -> s{_tagValue = a});+tagValue = lens _tagValue (\ s a -> s{_tagValue = a}) instance FromJSON Tag where parseJSON
gen/Network/AWS/EFS/Types/Sum.hs view
@@ -9,7 +9,7 @@ -- | -- Module : Network.AWS.EFS.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
gen/Network/AWS/EFS/Waiters.hs view
@@ -7,7 +7,7 @@ -- | -- Module : Network.AWS.EFS.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
test/Main.hs view
@@ -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
test/Test/AWS/EFS.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE OverloadedStrings #-} -- Module : Test.AWS.nEFS--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : This Source Code Form is subject to the terms of -- the Mozilla Public License, v. 2.0. -- A copy of the MPL can be found in the LICENSE file or
test/Test/AWS/EFS/Internal.hs view
@@ -2,7 +2,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} -- Module : Test.AWS.EFS.Internal--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : This Source Code Form is subject to the terms of -- the Mozilla Public License, v. 2.0. -- A copy of the MPL can be found in the LICENSE file or
test/Test/AWS/Gen/EFS.hs view
@@ -5,7 +5,7 @@ -- | -- Module : Test.AWS.Gen.EFS--- 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