diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.4.5` +`1.5.0` ## Description diff --git a/amazonka-glacier.cabal b/amazonka-glacier.cabal --- a/amazonka-glacier.cabal +++ b/amazonka-glacier.cabal @@ -1,13 +1,13 @@ name: amazonka-glacier -version: 1.4.5 +version: 1.5.0 synopsis: Amazon Glacier SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues -license: OtherLicense +license: MPL-2.0 license-file: LICENSE author: Brendan Hay -maintainer: Brendan Hay -copyright: Copyright (c) 2013-2016 Brendan Hay +maintainer: Brendan Hay +copyright: Copyright (c) 2013-2017 Brendan Hay category: Network, AWS, Cloud, Distributed Computing build-type: Simple cabal-version: >= 1.10 @@ -29,14 +29,19 @@ to get started. source-repository head - type: git - location: git://github.com/brendanhay/amazonka.git + type: git + location: git://github.com/brendanhay/amazonka.git + subdir: amazonka-glacier library default-language: Haskell2010 hs-source-dirs: src gen - ghc-options: -Wall + ghc-options: + -Wall + -fwarn-incomplete-uni-patterns + -fwarn-incomplete-record-updates + -funbox-strict-fields exposed-modules: Network.AWS.Glacier @@ -81,7 +86,7 @@ , Network.AWS.Glacier.Types.Sum build-depends: - amazonka-core == 1.4.5.* + amazonka-core == 1.5.0.* , base >= 4.7 && < 5 test-suite amazonka-glacier-test @@ -101,9 +106,9 @@ , Test.AWS.Glacier.Internal build-depends: - amazonka-core == 1.4.5.* - , amazonka-test == 1.4.5.* - , amazonka-glacier == 1.4.5.* + amazonka-core == 1.5.0.* + , amazonka-test == 1.5.0.* + , amazonka-glacier , base , bytestring , tasty diff --git a/gen/Network/AWS/Glacier.hs b/gen/Network/AWS/Glacier.hs --- a/gen/Network/AWS/Glacier.hs +++ b/gen/Network/AWS/Glacier.hs @@ -5,9 +5,9 @@ -- | -- Module : Network.AWS.Glacier --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -63,6 +63,12 @@ -- * Waiters -- $waiters + -- ** VaultNotExists + , vaultNotExists + + -- ** VaultExists + , vaultExists + -- * Operations -- $operations @@ -291,41 +297,41 @@ , vncEvents ) where -import Network.AWS.Glacier.AbortMultipartUpload -import Network.AWS.Glacier.AbortVaultLock -import Network.AWS.Glacier.AddTagsToVault -import Network.AWS.Glacier.CompleteMultipartUpload -import Network.AWS.Glacier.CompleteVaultLock -import Network.AWS.Glacier.CreateVault -import Network.AWS.Glacier.DeleteArchive -import Network.AWS.Glacier.DeleteVault -import Network.AWS.Glacier.DeleteVaultAccessPolicy -import Network.AWS.Glacier.DeleteVaultNotifications -import Network.AWS.Glacier.DescribeJob -import Network.AWS.Glacier.DescribeVault -import Network.AWS.Glacier.GetDataRetrievalPolicy -import Network.AWS.Glacier.GetJobOutput -import Network.AWS.Glacier.GetVaultAccessPolicy -import Network.AWS.Glacier.GetVaultLock -import Network.AWS.Glacier.GetVaultNotifications -import Network.AWS.Glacier.InitiateJob -import Network.AWS.Glacier.InitiateMultipartUpload -import Network.AWS.Glacier.InitiateVaultLock -import Network.AWS.Glacier.ListJobs -import Network.AWS.Glacier.ListMultipartUploads -import Network.AWS.Glacier.ListParts -import Network.AWS.Glacier.ListProvisionedCapacity -import Network.AWS.Glacier.ListTagsForVault -import Network.AWS.Glacier.ListVaults -import Network.AWS.Glacier.PurchaseProvisionedCapacity -import Network.AWS.Glacier.RemoveTagsFromVault -import Network.AWS.Glacier.SetDataRetrievalPolicy -import Network.AWS.Glacier.SetVaultAccessPolicy -import Network.AWS.Glacier.SetVaultNotifications -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.UploadArchive -import Network.AWS.Glacier.UploadMultipartPart -import Network.AWS.Glacier.Waiters +import Network.AWS.Glacier.AbortMultipartUpload +import Network.AWS.Glacier.AbortVaultLock +import Network.AWS.Glacier.AddTagsToVault +import Network.AWS.Glacier.CompleteMultipartUpload +import Network.AWS.Glacier.CompleteVaultLock +import Network.AWS.Glacier.CreateVault +import Network.AWS.Glacier.DeleteArchive +import Network.AWS.Glacier.DeleteVault +import Network.AWS.Glacier.DeleteVaultAccessPolicy +import Network.AWS.Glacier.DeleteVaultNotifications +import Network.AWS.Glacier.DescribeJob +import Network.AWS.Glacier.DescribeVault +import Network.AWS.Glacier.GetDataRetrievalPolicy +import Network.AWS.Glacier.GetJobOutput +import Network.AWS.Glacier.GetVaultAccessPolicy +import Network.AWS.Glacier.GetVaultLock +import Network.AWS.Glacier.GetVaultNotifications +import Network.AWS.Glacier.InitiateJob +import Network.AWS.Glacier.InitiateMultipartUpload +import Network.AWS.Glacier.InitiateVaultLock +import Network.AWS.Glacier.ListJobs +import Network.AWS.Glacier.ListMultipartUploads +import Network.AWS.Glacier.ListParts +import Network.AWS.Glacier.ListProvisionedCapacity +import Network.AWS.Glacier.ListTagsForVault +import Network.AWS.Glacier.ListVaults +import Network.AWS.Glacier.PurchaseProvisionedCapacity +import Network.AWS.Glacier.RemoveTagsFromVault +import Network.AWS.Glacier.SetDataRetrievalPolicy +import Network.AWS.Glacier.SetVaultAccessPolicy +import Network.AWS.Glacier.SetVaultNotifications +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.UploadArchive +import Network.AWS.Glacier.UploadMultipartPart +import Network.AWS.Glacier.Waiters {- $errors Error matchers are designed for use with the functions provided by diff --git a/gen/Network/AWS/Glacier/AbortMultipartUpload.hs b/gen/Network/AWS/Glacier/AbortMultipartUpload.hs --- a/gen/Network/AWS/Glacier/AbortMultipartUpload.hs +++ b/gen/Network/AWS/Glacier/AbortMultipartUpload.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.AbortMultipartUpload --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -44,12 +44,12 @@ , AbortMultipartUploadResponse ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Provides options to abort a multipart upload identified by the upload ID. -- @@ -59,11 +59,12 @@ -- -- /See:/ 'abortMultipartUpload' smart constructor. data AbortMultipartUpload = AbortMultipartUpload' - { _amuAccountId :: !Text - , _amuVaultName :: !Text - , _amuUploadId :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _amuAccountId :: !Text + , _amuVaultName :: !Text + , _amuUploadId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AbortMultipartUpload' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -79,12 +80,13 @@ -> Text -- ^ 'amuUploadId' -> AbortMultipartUpload abortMultipartUpload pAccountId_ pVaultName_ pUploadId_ = - AbortMultipartUpload' - { _amuAccountId = pAccountId_ - , _amuVaultName = pVaultName_ - , _amuUploadId = pUploadId_ - } + AbortMultipartUpload' + { _amuAccountId = pAccountId_ + , _amuVaultName = pVaultName_ + , _amuUploadId = pUploadId_ + } + -- | The @AccountId@ value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '@-@ ' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID. amuAccountId :: Lens' AbortMultipartUpload Text amuAccountId = lens _amuAccountId (\ s a -> s{_amuAccountId = a}); @@ -103,9 +105,9 @@ request = delete glacier response = receiveNull AbortMultipartUploadResponse' -instance Hashable AbortMultipartUpload +instance Hashable AbortMultipartUpload where -instance NFData AbortMultipartUpload +instance NFData AbortMultipartUpload where instance ToHeaders AbortMultipartUpload where toHeaders = const mempty @@ -122,13 +124,15 @@ -- | /See:/ 'abortMultipartUploadResponse' smart constructor. data AbortMultipartUploadResponse = - AbortMultipartUploadResponse' - deriving (Eq,Read,Show,Data,Typeable,Generic) + AbortMultipartUploadResponse' + deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AbortMultipartUploadResponse' with the minimum fields required to make a request. -- abortMultipartUploadResponse :: AbortMultipartUploadResponse abortMultipartUploadResponse = AbortMultipartUploadResponse' -instance NFData AbortMultipartUploadResponse + +instance NFData AbortMultipartUploadResponse where diff --git a/gen/Network/AWS/Glacier/AbortVaultLock.hs b/gen/Network/AWS/Glacier/AbortVaultLock.hs --- a/gen/Network/AWS/Glacier/AbortVaultLock.hs +++ b/gen/Network/AWS/Glacier/AbortVaultLock.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.AbortVaultLock --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -39,12 +39,12 @@ , AbortVaultLockResponse ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | The input values for @AbortVaultLock@ . -- @@ -52,10 +52,11 @@ -- -- /See:/ 'abortVaultLock' smart constructor. data AbortVaultLock = AbortVaultLock' - { _avlAccountId :: !Text - , _avlVaultName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _avlAccountId :: !Text + , _avlVaultName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AbortVaultLock' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -68,11 +69,9 @@ -> Text -- ^ 'avlVaultName' -> AbortVaultLock abortVaultLock pAccountId_ pVaultName_ = - AbortVaultLock' - { _avlAccountId = pAccountId_ - , _avlVaultName = pVaultName_ - } + AbortVaultLock' {_avlAccountId = pAccountId_, _avlVaultName = pVaultName_} + -- | The @AccountId@ value is the AWS account ID. This value must match the AWS account ID associated with the credentials used to sign the request. You can either specify an AWS account ID or optionally a single '@-@ ' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you specify your account ID, do not include any hyphens ('-') in the ID. avlAccountId :: Lens' AbortVaultLock Text avlAccountId = lens _avlAccountId (\ s a -> s{_avlAccountId = a}); @@ -86,9 +85,9 @@ request = delete glacier response = receiveNull AbortVaultLockResponse' -instance Hashable AbortVaultLock +instance Hashable AbortVaultLock where -instance NFData AbortVaultLock +instance NFData AbortVaultLock where instance ToHeaders AbortVaultLock where toHeaders = const mempty @@ -104,13 +103,15 @@ -- | /See:/ 'abortVaultLockResponse' smart constructor. data AbortVaultLockResponse = - AbortVaultLockResponse' - deriving (Eq,Read,Show,Data,Typeable,Generic) + AbortVaultLockResponse' + deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AbortVaultLockResponse' with the minimum fields required to make a request. -- abortVaultLockResponse :: AbortVaultLockResponse abortVaultLockResponse = AbortVaultLockResponse' -instance NFData AbortVaultLockResponse + +instance NFData AbortVaultLockResponse where diff --git a/gen/Network/AWS/Glacier/AddTagsToVault.hs b/gen/Network/AWS/Glacier/AddTagsToVault.hs --- a/gen/Network/AWS/Glacier/AddTagsToVault.hs +++ b/gen/Network/AWS/Glacier/AddTagsToVault.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.AddTagsToVault --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -36,12 +36,12 @@ , AddTagsToVaultResponse ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | The input values for @AddTagsToVault@ . -- @@ -49,11 +49,12 @@ -- -- /See:/ 'addTagsToVault' smart constructor. data AddTagsToVault = AddTagsToVault' - { _attvTags :: !(Maybe (Map Text Text)) - , _attvAccountId :: !Text - , _attvVaultName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _attvTags :: !(Maybe (Map Text Text)) + , _attvAccountId :: !Text + , _attvVaultName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddTagsToVault' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -68,12 +69,13 @@ -> Text -- ^ 'attvVaultName' -> AddTagsToVault addTagsToVault pAccountId_ pVaultName_ = - AddTagsToVault' - { _attvTags = Nothing - , _attvAccountId = pAccountId_ - , _attvVaultName = pVaultName_ - } + AddTagsToVault' + { _attvTags = Nothing + , _attvAccountId = pAccountId_ + , _attvVaultName = pVaultName_ + } + -- | The tags to add to the vault. Each tag is composed of a key and a value. The value can be an empty string. attvTags :: Lens' AddTagsToVault (HashMap Text Text) attvTags = lens _attvTags (\ s a -> s{_attvTags = a}) . _Default . _Map; @@ -91,9 +93,9 @@ request = postJSON glacier response = receiveNull AddTagsToVaultResponse' -instance Hashable AddTagsToVault +instance Hashable AddTagsToVault where -instance NFData AddTagsToVault +instance NFData AddTagsToVault where instance ToHeaders AddTagsToVault where toHeaders = const mempty @@ -113,13 +115,15 @@ -- | /See:/ 'addTagsToVaultResponse' smart constructor. data AddTagsToVaultResponse = - AddTagsToVaultResponse' - deriving (Eq,Read,Show,Data,Typeable,Generic) + AddTagsToVaultResponse' + deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddTagsToVaultResponse' with the minimum fields required to make a request. -- addTagsToVaultResponse :: AddTagsToVaultResponse addTagsToVaultResponse = AddTagsToVaultResponse' -instance NFData AddTagsToVaultResponse + +instance NFData AddTagsToVaultResponse where diff --git a/gen/Network/AWS/Glacier/CompleteMultipartUpload.hs b/gen/Network/AWS/Glacier/CompleteMultipartUpload.hs --- a/gen/Network/AWS/Glacier/CompleteMultipartUpload.hs +++ b/gen/Network/AWS/Glacier/CompleteMultipartUpload.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.CompleteMultipartUpload --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -52,12 +52,12 @@ , acoLocation ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Provides options to complete a multipart upload operation. This informs Amazon Glacier that all the archive parts have been uploaded and Amazon Glacier can now assemble the archive from the uploaded parts. After assembling and saving the archive to the vault, Amazon Glacier returns the URI path of the newly created archive resource. -- @@ -65,13 +65,14 @@ -- -- /See:/ 'completeMultipartUpload' smart constructor. data CompleteMultipartUpload = CompleteMultipartUpload' - { _cmuChecksum :: !(Maybe Text) - , _cmuArchiveSize :: !(Maybe Text) - , _cmuAccountId :: !Text - , _cmuVaultName :: !Text - , _cmuUploadId :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _cmuChecksum :: !(Maybe Text) + , _cmuArchiveSize :: !(Maybe Text) + , _cmuAccountId :: !Text + , _cmuVaultName :: !Text + , _cmuUploadId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CompleteMultipartUpload' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -91,14 +92,15 @@ -> Text -- ^ 'cmuUploadId' -> CompleteMultipartUpload completeMultipartUpload pAccountId_ pVaultName_ pUploadId_ = - CompleteMultipartUpload' - { _cmuChecksum = Nothing - , _cmuArchiveSize = Nothing - , _cmuAccountId = pAccountId_ - , _cmuVaultName = pVaultName_ - , _cmuUploadId = pUploadId_ - } + CompleteMultipartUpload' + { _cmuChecksum = Nothing + , _cmuArchiveSize = Nothing + , _cmuAccountId = pAccountId_ + , _cmuVaultName = pVaultName_ + , _cmuUploadId = pUploadId_ + } + -- | The SHA256 tree hash of the entire archive. It is the tree hash of SHA256 tree hash of the individual parts. If the value you specify in the request does not match the SHA256 tree hash of the final assembled archive as computed by Amazon Glacier, Amazon Glacier returns an error and the request fails. cmuChecksum :: Lens' CompleteMultipartUpload (Maybe Text) cmuChecksum = lens _cmuChecksum (\ s a -> s{_cmuChecksum = a}); @@ -131,9 +133,9 @@ (h .#? "x-amz-sha256-tree-hash") <*> (h .#? "Location")) -instance Hashable CompleteMultipartUpload +instance Hashable CompleteMultipartUpload where -instance NFData CompleteMultipartUpload +instance NFData CompleteMultipartUpload where instance ToHeaders CompleteMultipartUpload where toHeaders CompleteMultipartUpload'{..} diff --git a/gen/Network/AWS/Glacier/CompleteVaultLock.hs b/gen/Network/AWS/Glacier/CompleteVaultLock.hs --- a/gen/Network/AWS/Glacier/CompleteVaultLock.hs +++ b/gen/Network/AWS/Glacier/CompleteVaultLock.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.CompleteVaultLock --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -40,12 +40,12 @@ , CompleteVaultLockResponse ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | The input values for @CompleteVaultLock@ . -- @@ -53,11 +53,12 @@ -- -- /See:/ 'completeVaultLock' smart constructor. data CompleteVaultLock = CompleteVaultLock' - { _cvlAccountId :: !Text - , _cvlVaultName :: !Text - , _cvlLockId :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _cvlAccountId :: !Text + , _cvlVaultName :: !Text + , _cvlLockId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CompleteVaultLock' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -73,12 +74,13 @@ -> Text -- ^ 'cvlLockId' -> CompleteVaultLock completeVaultLock pAccountId_ pVaultName_ pLockId_ = - CompleteVaultLock' - { _cvlAccountId = pAccountId_ - , _cvlVaultName = pVaultName_ - , _cvlLockId = pLockId_ - } + CompleteVaultLock' + { _cvlAccountId = pAccountId_ + , _cvlVaultName = pVaultName_ + , _cvlLockId = pLockId_ + } + -- | The @AccountId@ value is the AWS account ID. This value must match the AWS account ID associated with the credentials used to sign the request. You can either specify an AWS account ID or optionally a single '@-@ ' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you specify your account ID, do not include any hyphens ('-') in the ID. cvlAccountId :: Lens' CompleteVaultLock Text cvlAccountId = lens _cvlAccountId (\ s a -> s{_cvlAccountId = a}); @@ -96,9 +98,9 @@ request = postJSON glacier response = receiveNull CompleteVaultLockResponse' -instance Hashable CompleteVaultLock +instance Hashable CompleteVaultLock where -instance NFData CompleteVaultLock +instance NFData CompleteVaultLock where instance ToHeaders CompleteVaultLock where toHeaders = const mempty @@ -117,13 +119,15 @@ -- | /See:/ 'completeVaultLockResponse' smart constructor. data CompleteVaultLockResponse = - CompleteVaultLockResponse' - deriving (Eq,Read,Show,Data,Typeable,Generic) + CompleteVaultLockResponse' + deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CompleteVaultLockResponse' with the minimum fields required to make a request. -- completeVaultLockResponse :: CompleteVaultLockResponse completeVaultLockResponse = CompleteVaultLockResponse' -instance NFData CompleteVaultLockResponse + +instance NFData CompleteVaultLockResponse where diff --git a/gen/Network/AWS/Glacier/CreateVault.hs b/gen/Network/AWS/Glacier/CreateVault.hs --- a/gen/Network/AWS/Glacier/CreateVault.hs +++ b/gen/Network/AWS/Glacier/CreateVault.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.CreateVault --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -52,12 +52,12 @@ , cvrsResponseStatus ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Provides options to create a vault. -- @@ -65,10 +65,11 @@ -- -- /See:/ 'createVault' smart constructor. data CreateVault = CreateVault' - { _cvAccountId :: !Text - , _cvVaultName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _cvAccountId :: !Text + , _cvVaultName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateVault' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -81,11 +82,9 @@ -> Text -- ^ 'cvVaultName' -> CreateVault createVault pAccountId_ pVaultName_ = - CreateVault' - { _cvAccountId = pAccountId_ - , _cvVaultName = pVaultName_ - } + CreateVault' {_cvAccountId = pAccountId_, _cvVaultName = pVaultName_} + -- | The @AccountId@ value is the AWS account ID. This value must match the AWS account ID associated with the credentials used to sign the request. You can either specify an AWS account ID or optionally a single '@-@ ' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you specify your account ID, do not include any hyphens ('-') in the ID. cvAccountId :: Lens' CreateVault Text cvAccountId = lens _cvAccountId (\ s a -> s{_cvAccountId = a}); @@ -103,9 +102,9 @@ CreateVaultResponse' <$> (h .#? "Location") <*> (pure (fromEnum s))) -instance Hashable CreateVault +instance Hashable CreateVault where -instance NFData CreateVault +instance NFData CreateVault where instance ToHeaders CreateVault where toHeaders = const mempty @@ -128,10 +127,11 @@ -- -- /See:/ 'createVaultResponse' smart constructor. data CreateVaultResponse = CreateVaultResponse' - { _cvrsLocation :: !(Maybe Text) - , _cvrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _cvrsLocation :: !(Maybe Text) + , _cvrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateVaultResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -143,11 +143,10 @@ :: Int -- ^ 'cvrsResponseStatus' -> CreateVaultResponse createVaultResponse pResponseStatus_ = - CreateVaultResponse' - { _cvrsLocation = Nothing - , _cvrsResponseStatus = pResponseStatus_ - } + CreateVaultResponse' + {_cvrsLocation = Nothing, _cvrsResponseStatus = pResponseStatus_} + -- | The URI of the vault that was created. cvrsLocation :: Lens' CreateVaultResponse (Maybe Text) cvrsLocation = lens _cvrsLocation (\ s a -> s{_cvrsLocation = a}); @@ -156,4 +155,4 @@ cvrsResponseStatus :: Lens' CreateVaultResponse Int cvrsResponseStatus = lens _cvrsResponseStatus (\ s a -> s{_cvrsResponseStatus = a}); -instance NFData CreateVaultResponse +instance NFData CreateVaultResponse where diff --git a/gen/Network/AWS/Glacier/DeleteArchive.hs b/gen/Network/AWS/Glacier/DeleteArchive.hs --- a/gen/Network/AWS/Glacier/DeleteArchive.hs +++ b/gen/Network/AWS/Glacier/DeleteArchive.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.DeleteArchive --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -48,12 +48,12 @@ , DeleteArchiveResponse ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Provides options for deleting an archive from an Amazon Glacier vault. -- @@ -61,11 +61,12 @@ -- -- /See:/ 'deleteArchive' smart constructor. data DeleteArchive = DeleteArchive' - { _daAccountId :: !Text - , _daVaultName :: !Text - , _daArchiveId :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _daAccountId :: !Text + , _daVaultName :: !Text + , _daArchiveId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteArchive' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -81,12 +82,13 @@ -> Text -- ^ 'daArchiveId' -> DeleteArchive deleteArchive pAccountId_ pVaultName_ pArchiveId_ = - DeleteArchive' - { _daAccountId = pAccountId_ - , _daVaultName = pVaultName_ - , _daArchiveId = pArchiveId_ - } + DeleteArchive' + { _daAccountId = pAccountId_ + , _daVaultName = pVaultName_ + , _daArchiveId = pArchiveId_ + } + -- | The @AccountId@ value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '@-@ ' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID. daAccountId :: Lens' DeleteArchive Text daAccountId = lens _daAccountId (\ s a -> s{_daAccountId = a}); @@ -104,9 +106,9 @@ request = delete glacier response = receiveNull DeleteArchiveResponse' -instance Hashable DeleteArchive +instance Hashable DeleteArchive where -instance NFData DeleteArchive +instance NFData DeleteArchive where instance ToHeaders DeleteArchive where toHeaders = const mempty @@ -122,13 +124,15 @@ -- | /See:/ 'deleteArchiveResponse' smart constructor. data DeleteArchiveResponse = - DeleteArchiveResponse' - deriving (Eq,Read,Show,Data,Typeable,Generic) + DeleteArchiveResponse' + deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteArchiveResponse' with the minimum fields required to make a request. -- deleteArchiveResponse :: DeleteArchiveResponse deleteArchiveResponse = DeleteArchiveResponse' -instance NFData DeleteArchiveResponse + +instance NFData DeleteArchiveResponse where diff --git a/gen/Network/AWS/Glacier/DeleteVault.hs b/gen/Network/AWS/Glacier/DeleteVault.hs --- a/gen/Network/AWS/Glacier/DeleteVault.hs +++ b/gen/Network/AWS/Glacier/DeleteVault.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.DeleteVault --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -41,12 +41,12 @@ , DeleteVaultResponse ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Provides options for deleting a vault from Amazon Glacier. -- @@ -54,10 +54,11 @@ -- -- /See:/ 'deleteVault' smart constructor. data DeleteVault = DeleteVault' - { _dAccountId :: !Text - , _dVaultName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dAccountId :: !Text + , _dVaultName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteVault' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -70,11 +71,9 @@ -> Text -- ^ 'dVaultName' -> DeleteVault deleteVault pAccountId_ pVaultName_ = - DeleteVault' - { _dAccountId = pAccountId_ - , _dVaultName = pVaultName_ - } + DeleteVault' {_dAccountId = pAccountId_, _dVaultName = pVaultName_} + -- | The @AccountId@ value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '@-@ ' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID. dAccountId :: Lens' DeleteVault Text dAccountId = lens _dAccountId (\ s a -> s{_dAccountId = a}); @@ -88,9 +87,9 @@ request = delete glacier response = receiveNull DeleteVaultResponse' -instance Hashable DeleteVault +instance Hashable DeleteVault where -instance NFData DeleteVault +instance NFData DeleteVault where instance ToHeaders DeleteVault where toHeaders = const mempty @@ -105,13 +104,15 @@ -- | /See:/ 'deleteVaultResponse' smart constructor. data DeleteVaultResponse = - DeleteVaultResponse' - deriving (Eq,Read,Show,Data,Typeable,Generic) + DeleteVaultResponse' + deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteVaultResponse' with the minimum fields required to make a request. -- deleteVaultResponse :: DeleteVaultResponse deleteVaultResponse = DeleteVaultResponse' -instance NFData DeleteVaultResponse + +instance NFData DeleteVaultResponse where diff --git a/gen/Network/AWS/Glacier/DeleteVaultAccessPolicy.hs b/gen/Network/AWS/Glacier/DeleteVaultAccessPolicy.hs --- a/gen/Network/AWS/Glacier/DeleteVaultAccessPolicy.hs +++ b/gen/Network/AWS/Glacier/DeleteVaultAccessPolicy.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.DeleteVaultAccessPolicy --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -37,12 +37,12 @@ , DeleteVaultAccessPolicyResponse ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | DeleteVaultAccessPolicy input. -- @@ -50,10 +50,11 @@ -- -- /See:/ 'deleteVaultAccessPolicy' smart constructor. data DeleteVaultAccessPolicy = DeleteVaultAccessPolicy' - { _dvapAccountId :: !Text - , _dvapVaultName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dvapAccountId :: !Text + , _dvapVaultName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteVaultAccessPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -66,11 +67,10 @@ -> Text -- ^ 'dvapVaultName' -> DeleteVaultAccessPolicy deleteVaultAccessPolicy pAccountId_ pVaultName_ = - DeleteVaultAccessPolicy' - { _dvapAccountId = pAccountId_ - , _dvapVaultName = pVaultName_ - } + DeleteVaultAccessPolicy' + {_dvapAccountId = pAccountId_, _dvapVaultName = pVaultName_} + -- | The @AccountId@ value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '@-@ ' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID. dvapAccountId :: Lens' DeleteVaultAccessPolicy Text dvapAccountId = lens _dvapAccountId (\ s a -> s{_dvapAccountId = a}); @@ -86,9 +86,9 @@ response = receiveNull DeleteVaultAccessPolicyResponse' -instance Hashable DeleteVaultAccessPolicy +instance Hashable DeleteVaultAccessPolicy where -instance NFData DeleteVaultAccessPolicy +instance NFData DeleteVaultAccessPolicy where instance ToHeaders DeleteVaultAccessPolicy where toHeaders = const mempty @@ -104,13 +104,15 @@ -- | /See:/ 'deleteVaultAccessPolicyResponse' smart constructor. data DeleteVaultAccessPolicyResponse = - DeleteVaultAccessPolicyResponse' - deriving (Eq,Read,Show,Data,Typeable,Generic) + DeleteVaultAccessPolicyResponse' + deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteVaultAccessPolicyResponse' with the minimum fields required to make a request. -- deleteVaultAccessPolicyResponse :: DeleteVaultAccessPolicyResponse deleteVaultAccessPolicyResponse = DeleteVaultAccessPolicyResponse' -instance NFData DeleteVaultAccessPolicyResponse + +instance NFData DeleteVaultAccessPolicyResponse where diff --git a/gen/Network/AWS/Glacier/DeleteVaultNotifications.hs b/gen/Network/AWS/Glacier/DeleteVaultNotifications.hs --- a/gen/Network/AWS/Glacier/DeleteVaultNotifications.hs +++ b/gen/Network/AWS/Glacier/DeleteVaultNotifications.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.DeleteVaultNotifications --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -39,12 +39,12 @@ , DeleteVaultNotificationsResponse ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Provides options for deleting a vault notification configuration from an Amazon Glacier vault. -- @@ -52,10 +52,11 @@ -- -- /See:/ 'deleteVaultNotifications' smart constructor. data DeleteVaultNotifications = DeleteVaultNotifications' - { _dvnAccountId :: !Text - , _dvnVaultName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dvnAccountId :: !Text + , _dvnVaultName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteVaultNotifications' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -68,11 +69,10 @@ -> Text -- ^ 'dvnVaultName' -> DeleteVaultNotifications deleteVaultNotifications pAccountId_ pVaultName_ = - DeleteVaultNotifications' - { _dvnAccountId = pAccountId_ - , _dvnVaultName = pVaultName_ - } + DeleteVaultNotifications' + {_dvnAccountId = pAccountId_, _dvnVaultName = pVaultName_} + -- | The @AccountId@ value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '@-@ ' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID. dvnAccountId :: Lens' DeleteVaultNotifications Text dvnAccountId = lens _dvnAccountId (\ s a -> s{_dvnAccountId = a}); @@ -88,9 +88,9 @@ response = receiveNull DeleteVaultNotificationsResponse' -instance Hashable DeleteVaultNotifications +instance Hashable DeleteVaultNotifications where -instance NFData DeleteVaultNotifications +instance NFData DeleteVaultNotifications where instance ToHeaders DeleteVaultNotifications where toHeaders = const mempty @@ -106,13 +106,16 @@ -- | /See:/ 'deleteVaultNotificationsResponse' smart constructor. data DeleteVaultNotificationsResponse = - DeleteVaultNotificationsResponse' - deriving (Eq,Read,Show,Data,Typeable,Generic) + DeleteVaultNotificationsResponse' + deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteVaultNotificationsResponse' with the minimum fields required to make a request. -- deleteVaultNotificationsResponse :: DeleteVaultNotificationsResponse deleteVaultNotificationsResponse = DeleteVaultNotificationsResponse' + instance NFData DeleteVaultNotificationsResponse + where diff --git a/gen/Network/AWS/Glacier/DescribeJob.hs b/gen/Network/AWS/Glacier/DescribeJob.hs --- a/gen/Network/AWS/Glacier/DescribeJob.hs +++ b/gen/Network/AWS/Glacier/DescribeJob.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.DescribeJob --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -61,12 +61,12 @@ , gjdStatusCode ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Provides options for retrieving a job description. -- @@ -74,11 +74,12 @@ -- -- /See:/ 'describeJob' smart constructor. data DescribeJob = DescribeJob' - { _djAccountId :: !Text - , _djVaultName :: !Text - , _djJobId :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _djAccountId :: !Text + , _djVaultName :: !Text + , _djJobId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeJob' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -94,12 +95,10 @@ -> Text -- ^ 'djJobId' -> DescribeJob describeJob pAccountId_ pVaultName_ pJobId_ = - DescribeJob' - { _djAccountId = pAccountId_ - , _djVaultName = pVaultName_ - , _djJobId = pJobId_ - } + DescribeJob' + {_djAccountId = pAccountId_, _djVaultName = pVaultName_, _djJobId = pJobId_} + -- | The @AccountId@ value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '@-@ ' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID. djAccountId :: Lens' DescribeJob Text djAccountId = lens _djAccountId (\ s a -> s{_djAccountId = a}); @@ -117,9 +116,9 @@ request = get glacier response = receiveJSON (\ s h x -> eitherParseJSON x) -instance Hashable DescribeJob +instance Hashable DescribeJob where -instance NFData DescribeJob +instance NFData DescribeJob where instance ToHeaders DescribeJob where toHeaders = const mempty diff --git a/gen/Network/AWS/Glacier/DescribeVault.hs b/gen/Network/AWS/Glacier/DescribeVault.hs --- a/gen/Network/AWS/Glacier/DescribeVault.hs +++ b/gen/Network/AWS/Glacier/DescribeVault.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.DescribeVault --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -46,12 +46,12 @@ , dvoNumberOfArchives ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Provides options for retrieving metadata for a specific vault in Amazon Glacier. -- @@ -59,10 +59,11 @@ -- -- /See:/ 'describeVault' smart constructor. data DescribeVault = DescribeVault' - { _dvAccountId :: !Text - , _dvVaultName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dvAccountId :: !Text + , _dvVaultName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeVault' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -75,11 +76,9 @@ -> Text -- ^ 'dvVaultName' -> DescribeVault describeVault pAccountId_ pVaultName_ = - DescribeVault' - { _dvAccountId = pAccountId_ - , _dvVaultName = pVaultName_ - } + DescribeVault' {_dvAccountId = pAccountId_, _dvVaultName = pVaultName_} + -- | The @AccountId@ value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '@-@ ' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID. dvAccountId :: Lens' DescribeVault Text dvAccountId = lens _dvAccountId (\ s a -> s{_dvAccountId = a}); @@ -93,9 +92,9 @@ request = get glacier response = receiveJSON (\ s h x -> eitherParseJSON x) -instance Hashable DescribeVault +instance Hashable DescribeVault where -instance NFData DescribeVault +instance NFData DescribeVault where instance ToHeaders DescribeVault where toHeaders = const mempty diff --git a/gen/Network/AWS/Glacier/GetDataRetrievalPolicy.hs b/gen/Network/AWS/Glacier/GetDataRetrievalPolicy.hs --- a/gen/Network/AWS/Glacier/GetDataRetrievalPolicy.hs +++ b/gen/Network/AWS/Glacier/GetDataRetrievalPolicy.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.GetDataRetrievalPolicy --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -37,12 +37,12 @@ , gdrprsResponseStatus ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Input for GetDataRetrievalPolicy. -- @@ -50,9 +50,10 @@ -- -- /See:/ 'getDataRetrievalPolicy' smart constructor. newtype GetDataRetrievalPolicy = GetDataRetrievalPolicy' - { _gdrpAccountId :: Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _gdrpAccountId :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetDataRetrievalPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -62,10 +63,9 @@ :: Text -- ^ 'gdrpAccountId' -> GetDataRetrievalPolicy getDataRetrievalPolicy pAccountId_ = - GetDataRetrievalPolicy' - { _gdrpAccountId = pAccountId_ - } + GetDataRetrievalPolicy' {_gdrpAccountId = pAccountId_} + -- | The @AccountId@ value is the AWS account ID. This value must match the AWS account ID associated with the credentials used to sign the request. You can either specify an AWS account ID or optionally a single '@-@ ' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you specify your account ID, do not include any hyphens ('-') in the ID. gdrpAccountId :: Lens' GetDataRetrievalPolicy Text gdrpAccountId = lens _gdrpAccountId (\ s a -> s{_gdrpAccountId = a}); @@ -80,9 +80,9 @@ GetDataRetrievalPolicyResponse' <$> (x .?> "Policy") <*> (pure (fromEnum s))) -instance Hashable GetDataRetrievalPolicy +instance Hashable GetDataRetrievalPolicy where -instance NFData GetDataRetrievalPolicy +instance NFData GetDataRetrievalPolicy where instance ToHeaders GetDataRetrievalPolicy where toHeaders = const mempty @@ -102,10 +102,11 @@ -- -- /See:/ 'getDataRetrievalPolicyResponse' smart constructor. data GetDataRetrievalPolicyResponse = GetDataRetrievalPolicyResponse' - { _gdrprsPolicy :: !(Maybe DataRetrievalPolicy) - , _gdrprsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _gdrprsPolicy :: !(Maybe DataRetrievalPolicy) + , _gdrprsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetDataRetrievalPolicyResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -117,11 +118,10 @@ :: Int -- ^ 'gdrprsResponseStatus' -> GetDataRetrievalPolicyResponse getDataRetrievalPolicyResponse pResponseStatus_ = - GetDataRetrievalPolicyResponse' - { _gdrprsPolicy = Nothing - , _gdrprsResponseStatus = pResponseStatus_ - } + GetDataRetrievalPolicyResponse' + {_gdrprsPolicy = Nothing, _gdrprsResponseStatus = pResponseStatus_} + -- | Contains the returned data retrieval policy in JSON format. gdrprsPolicy :: Lens' GetDataRetrievalPolicyResponse (Maybe DataRetrievalPolicy) gdrprsPolicy = lens _gdrprsPolicy (\ s a -> s{_gdrprsPolicy = a}); @@ -130,4 +130,4 @@ gdrprsResponseStatus :: Lens' GetDataRetrievalPolicyResponse Int gdrprsResponseStatus = lens _gdrprsResponseStatus (\ s a -> s{_gdrprsResponseStatus = a}); -instance NFData GetDataRetrievalPolicyResponse +instance NFData GetDataRetrievalPolicyResponse where diff --git a/gen/Network/AWS/Glacier/GetJobOutput.hs b/gen/Network/AWS/Glacier/GetJobOutput.hs --- a/gen/Network/AWS/Glacier/GetJobOutput.hs +++ b/gen/Network/AWS/Glacier/GetJobOutput.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.GetJobOutput --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -59,12 +59,12 @@ , gjorsBody ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Provides options for downloading output of an Amazon Glacier job. -- @@ -72,12 +72,13 @@ -- -- /See:/ 'getJobOutput' smart constructor. data GetJobOutput = GetJobOutput' - { _gjoRange :: !(Maybe Text) - , _gjoAccountId :: !Text - , _gjoVaultName :: !Text - , _gjoJobId :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _gjoRange :: !(Maybe Text) + , _gjoAccountId :: !Text + , _gjoVaultName :: !Text + , _gjoJobId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetJobOutput' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -95,13 +96,14 @@ -> Text -- ^ 'gjoJobId' -> GetJobOutput getJobOutput pAccountId_ pVaultName_ pJobId_ = - GetJobOutput' - { _gjoRange = Nothing - , _gjoAccountId = pAccountId_ - , _gjoVaultName = pVaultName_ - , _gjoJobId = pJobId_ - } + GetJobOutput' + { _gjoRange = Nothing + , _gjoAccountId = pAccountId_ + , _gjoVaultName = pVaultName_ + , _gjoJobId = pJobId_ + } + -- | The range of bytes to retrieve from the output. For example, if you want to download the first 1,048,576 bytes, specify the range as @bytes=0-1048575@ . By default, this operation downloads the entire output. If the job output is large, then you can use a range to retrieve a portion of the output. This allows you to download the entire output in smaller chunks of bytes. For example, suppose you have 1 GB of job output you want to download and you decide to download 128 MB chunks of data at a time, which is a total of eight Get Job Output requests. You use the following process to download the job output: * Download a 128 MB chunk of output by specifying the appropriate byte range. Verify that all 128 MB of data was received. * Along with the data, the response includes a SHA256 tree hash of the payload. You compute the checksum of the payload on the client and compare it with the checksum you received in the response to ensure you received all the expected data. * Repeat steps 1 and 2 for all the eight 128 MB chunks of output data, each time specifying the appropriate byte range. * After downloading all the parts of the job output, you have a list of eight checksum values. Compute the tree hash of these values to find the checksum of the entire output. Using the 'DescribeJob' API, obtain job information of the job that provided you the output. The response includes the checksum of the entire archive stored in Amazon Glacier. You compare this value with the checksum you computed to ensure you have downloaded the entire archive content with no errors. gjoRange :: Lens' GetJobOutput (Maybe Text) gjoRange = lens _gjoRange (\ s a -> s{_gjoRange = a}); @@ -133,9 +135,9 @@ <*> (pure (fromEnum s)) <*> (pure x)) -instance Hashable GetJobOutput +instance Hashable GetJobOutput where -instance NFData GetJobOutput +instance NFData GetJobOutput where instance ToHeaders GetJobOutput where toHeaders GetJobOutput'{..} @@ -157,15 +159,16 @@ -- -- /See:/ 'getJobOutputResponse' smart constructor. data GetJobOutputResponse = GetJobOutputResponse' - { _gjorsChecksum :: !(Maybe Text) - , _gjorsAcceptRanges :: !(Maybe Text) - , _gjorsArchiveDescription :: !(Maybe Text) - , _gjorsContentRange :: !(Maybe Text) - , _gjorsContentType :: !(Maybe Text) - , _gjorsStatus :: !Int - , _gjorsBody :: !RsBody - } deriving (Show,Generic) + { _gjorsChecksum :: !(Maybe Text) + , _gjorsAcceptRanges :: !(Maybe Text) + , _gjorsArchiveDescription :: !(Maybe Text) + , _gjorsContentRange :: !(Maybe Text) + , _gjorsContentType :: !(Maybe Text) + , _gjorsStatus :: !Int + , _gjorsBody :: !RsBody + } deriving (Show, Generic) + -- | Creates a value of 'GetJobOutputResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -188,15 +191,16 @@ -> RsBody -- ^ 'gjorsBody' -> GetJobOutputResponse getJobOutputResponse pStatus_ pBody_ = - GetJobOutputResponse' - { _gjorsChecksum = Nothing - , _gjorsAcceptRanges = Nothing - , _gjorsArchiveDescription = Nothing - , _gjorsContentRange = Nothing - , _gjorsContentType = Nothing - , _gjorsStatus = pStatus_ - , _gjorsBody = pBody_ - } + GetJobOutputResponse' + { _gjorsChecksum = Nothing + , _gjorsAcceptRanges = Nothing + , _gjorsArchiveDescription = Nothing + , _gjorsContentRange = Nothing + , _gjorsContentType = Nothing + , _gjorsStatus = pStatus_ + , _gjorsBody = pBody_ + } + -- | The checksum of the data in the response. This header is returned only when retrieving the output for an archive retrieval job. Furthermore, this header appears only under the following conditions: * You get the entire range of the archive. * You request a range to return of the archive that starts and ends on a multiple of 1 MB. For example, if you have an 3.1 MB archive and you specify a range to return that starts at 1 MB and ends at 2 MB, then the x-amz-sha256-tree-hash is returned as a response header. * You request a range of the archive to return that starts on a multiple of 1 MB and goes to the end of the archive. For example, if you have a 3.1 MB archive and you specify a range that starts at 2 MB and ends at 3.1 MB (the end of the archive), then the x-amz-sha256-tree-hash is returned as a response header. gjorsChecksum :: Lens' GetJobOutputResponse (Maybe Text) diff --git a/gen/Network/AWS/Glacier/GetVaultAccessPolicy.hs b/gen/Network/AWS/Glacier/GetVaultAccessPolicy.hs --- a/gen/Network/AWS/Glacier/GetVaultAccessPolicy.hs +++ b/gen/Network/AWS/Glacier/GetVaultAccessPolicy.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.GetVaultAccessPolicy --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,12 +38,12 @@ , gvaprsResponseStatus ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Input for GetVaultAccessPolicy. -- @@ -51,10 +51,11 @@ -- -- /See:/ 'getVaultAccessPolicy' smart constructor. data GetVaultAccessPolicy = GetVaultAccessPolicy' - { _gvapAccountId :: !Text - , _gvapVaultName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _gvapAccountId :: !Text + , _gvapVaultName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetVaultAccessPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -67,11 +68,10 @@ -> Text -- ^ 'gvapVaultName' -> GetVaultAccessPolicy getVaultAccessPolicy pAccountId_ pVaultName_ = - GetVaultAccessPolicy' - { _gvapAccountId = pAccountId_ - , _gvapVaultName = pVaultName_ - } + GetVaultAccessPolicy' + {_gvapAccountId = pAccountId_, _gvapVaultName = pVaultName_} + -- | The @AccountId@ value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '@-@ ' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID. gvapAccountId :: Lens' GetVaultAccessPolicy Text gvapAccountId = lens _gvapAccountId (\ s a -> s{_gvapAccountId = a}); @@ -90,9 +90,9 @@ GetVaultAccessPolicyResponse' <$> (eitherParseJSON x) <*> (pure (fromEnum s))) -instance Hashable GetVaultAccessPolicy +instance Hashable GetVaultAccessPolicy where -instance NFData GetVaultAccessPolicy +instance NFData GetVaultAccessPolicy where instance ToHeaders GetVaultAccessPolicy where toHeaders = const mempty @@ -112,10 +112,11 @@ -- -- /See:/ 'getVaultAccessPolicyResponse' smart constructor. data GetVaultAccessPolicyResponse = GetVaultAccessPolicyResponse' - { _gvaprsPolicy :: !(Maybe VaultAccessPolicy) - , _gvaprsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _gvaprsPolicy :: !(Maybe VaultAccessPolicy) + , _gvaprsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetVaultAccessPolicyResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -127,11 +128,10 @@ :: Int -- ^ 'gvaprsResponseStatus' -> GetVaultAccessPolicyResponse getVaultAccessPolicyResponse pResponseStatus_ = - GetVaultAccessPolicyResponse' - { _gvaprsPolicy = Nothing - , _gvaprsResponseStatus = pResponseStatus_ - } + GetVaultAccessPolicyResponse' + {_gvaprsPolicy = Nothing, _gvaprsResponseStatus = pResponseStatus_} + -- | Contains the returned vault access policy as a JSON string. gvaprsPolicy :: Lens' GetVaultAccessPolicyResponse (Maybe VaultAccessPolicy) gvaprsPolicy = lens _gvaprsPolicy (\ s a -> s{_gvaprsPolicy = a}); @@ -140,4 +140,4 @@ gvaprsResponseStatus :: Lens' GetVaultAccessPolicyResponse Int gvaprsResponseStatus = lens _gvaprsResponseStatus (\ s a -> s{_gvaprsResponseStatus = a}); -instance NFData GetVaultAccessPolicyResponse +instance NFData GetVaultAccessPolicyResponse where diff --git a/gen/Network/AWS/Glacier/GetVaultLock.hs b/gen/Network/AWS/Glacier/GetVaultLock.hs --- a/gen/Network/AWS/Glacier/GetVaultLock.hs +++ b/gen/Network/AWS/Glacier/GetVaultLock.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.GetVaultLock --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -55,12 +55,12 @@ , gvlrsResponseStatus ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | The input values for @GetVaultLock@ . -- @@ -68,10 +68,11 @@ -- -- /See:/ 'getVaultLock' smart constructor. data GetVaultLock = GetVaultLock' - { _gvlAccountId :: !Text - , _gvlVaultName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _gvlAccountId :: !Text + , _gvlVaultName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetVaultLock' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -84,11 +85,9 @@ -> Text -- ^ 'gvlVaultName' -> GetVaultLock getVaultLock pAccountId_ pVaultName_ = - GetVaultLock' - { _gvlAccountId = pAccountId_ - , _gvlVaultName = pVaultName_ - } + GetVaultLock' {_gvlAccountId = pAccountId_, _gvlVaultName = pVaultName_} + -- | The @AccountId@ value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '@-@ ' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID. gvlAccountId :: Lens' GetVaultLock Text gvlAccountId = lens _gvlAccountId (\ s a -> s{_gvlAccountId = a}); @@ -109,9 +108,9 @@ <*> (x .?> "Policy") <*> (pure (fromEnum s))) -instance Hashable GetVaultLock +instance Hashable GetVaultLock where -instance NFData GetVaultLock +instance NFData GetVaultLock where instance ToHeaders GetVaultLock where toHeaders = const mempty @@ -131,13 +130,14 @@ -- -- /See:/ 'getVaultLockResponse' smart constructor. data GetVaultLockResponse = GetVaultLockResponse' - { _gvlrsState :: !(Maybe Text) - , _gvlrsExpirationDate :: !(Maybe Text) - , _gvlrsCreationDate :: !(Maybe Text) - , _gvlrsPolicy :: !(Maybe Text) - , _gvlrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _gvlrsState :: !(Maybe Text) + , _gvlrsExpirationDate :: !(Maybe Text) + , _gvlrsCreationDate :: !(Maybe Text) + , _gvlrsPolicy :: !(Maybe Text) + , _gvlrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetVaultLockResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -155,14 +155,15 @@ :: Int -- ^ 'gvlrsResponseStatus' -> GetVaultLockResponse getVaultLockResponse pResponseStatus_ = - GetVaultLockResponse' - { _gvlrsState = Nothing - , _gvlrsExpirationDate = Nothing - , _gvlrsCreationDate = Nothing - , _gvlrsPolicy = Nothing - , _gvlrsResponseStatus = pResponseStatus_ - } + GetVaultLockResponse' + { _gvlrsState = Nothing + , _gvlrsExpirationDate = Nothing + , _gvlrsCreationDate = Nothing + , _gvlrsPolicy = Nothing + , _gvlrsResponseStatus = pResponseStatus_ + } + -- | The state of the vault lock. @InProgress@ or @Locked@ . gvlrsState :: Lens' GetVaultLockResponse (Maybe Text) gvlrsState = lens _gvlrsState (\ s a -> s{_gvlrsState = a}); @@ -183,4 +184,4 @@ gvlrsResponseStatus :: Lens' GetVaultLockResponse Int gvlrsResponseStatus = lens _gvlrsResponseStatus (\ s a -> s{_gvlrsResponseStatus = a}); -instance NFData GetVaultLockResponse +instance NFData GetVaultLockResponse where diff --git a/gen/Network/AWS/Glacier/GetVaultNotifications.hs b/gen/Network/AWS/Glacier/GetVaultNotifications.hs --- a/gen/Network/AWS/Glacier/GetVaultNotifications.hs +++ b/gen/Network/AWS/Glacier/GetVaultNotifications.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.GetVaultNotifications --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -44,12 +44,12 @@ , gvnrsResponseStatus ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Provides options for retrieving the notification configuration set on an Amazon Glacier vault. -- @@ -57,10 +57,11 @@ -- -- /See:/ 'getVaultNotifications' smart constructor. data GetVaultNotifications = GetVaultNotifications' - { _gvnAccountId :: !Text - , _gvnVaultName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _gvnAccountId :: !Text + , _gvnVaultName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetVaultNotifications' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -73,11 +74,10 @@ -> Text -- ^ 'gvnVaultName' -> GetVaultNotifications getVaultNotifications pAccountId_ pVaultName_ = - GetVaultNotifications' - { _gvnAccountId = pAccountId_ - , _gvnVaultName = pVaultName_ - } + GetVaultNotifications' + {_gvnAccountId = pAccountId_, _gvnVaultName = pVaultName_} + -- | The @AccountId@ value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '@-@ ' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID. gvnAccountId :: Lens' GetVaultNotifications Text gvnAccountId = lens _gvnAccountId (\ s a -> s{_gvnAccountId = a}); @@ -96,9 +96,9 @@ GetVaultNotificationsResponse' <$> (eitherParseJSON x) <*> (pure (fromEnum s))) -instance Hashable GetVaultNotifications +instance Hashable GetVaultNotifications where -instance NFData GetVaultNotifications +instance NFData GetVaultNotifications where instance ToHeaders GetVaultNotifications where toHeaders = const mempty @@ -118,10 +118,11 @@ -- -- /See:/ 'getVaultNotificationsResponse' smart constructor. data GetVaultNotificationsResponse = GetVaultNotificationsResponse' - { _gvnrsVaultNotificationConfig :: !(Maybe VaultNotificationConfig) - , _gvnrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _gvnrsVaultNotificationConfig :: !(Maybe VaultNotificationConfig) + , _gvnrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetVaultNotificationsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -133,11 +134,12 @@ :: Int -- ^ 'gvnrsResponseStatus' -> GetVaultNotificationsResponse getVaultNotificationsResponse pResponseStatus_ = - GetVaultNotificationsResponse' - { _gvnrsVaultNotificationConfig = Nothing - , _gvnrsResponseStatus = pResponseStatus_ - } + GetVaultNotificationsResponse' + { _gvnrsVaultNotificationConfig = Nothing + , _gvnrsResponseStatus = pResponseStatus_ + } + -- | Returns the notification configuration set on the vault. gvnrsVaultNotificationConfig :: Lens' GetVaultNotificationsResponse (Maybe VaultNotificationConfig) gvnrsVaultNotificationConfig = lens _gvnrsVaultNotificationConfig (\ s a -> s{_gvnrsVaultNotificationConfig = a}); @@ -146,4 +148,4 @@ gvnrsResponseStatus :: Lens' GetVaultNotificationsResponse Int gvnrsResponseStatus = lens _gvnrsResponseStatus (\ s a -> s{_gvnrsResponseStatus = a}); -instance NFData GetVaultNotificationsResponse +instance NFData GetVaultNotificationsResponse where diff --git a/gen/Network/AWS/Glacier/InitiateJob.hs b/gen/Network/AWS/Glacier/InitiateJob.hs --- a/gen/Network/AWS/Glacier/InitiateJob.hs +++ b/gen/Network/AWS/Glacier/InitiateJob.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.InitiateJob --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -102,12 +102,12 @@ , ijrsResponseStatus ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Provides options for initiating an Amazon Glacier job. -- @@ -115,11 +115,12 @@ -- -- /See:/ 'initiateJob' smart constructor. data InitiateJob = InitiateJob' - { _ijJobParameters :: !(Maybe JobParameters) - , _ijAccountId :: !Text - , _ijVaultName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ijJobParameters :: !(Maybe JobParameters) + , _ijAccountId :: !Text + , _ijVaultName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'InitiateJob' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -134,12 +135,13 @@ -> Text -- ^ 'ijVaultName' -> InitiateJob initiateJob pAccountId_ pVaultName_ = - InitiateJob' - { _ijJobParameters = Nothing - , _ijAccountId = pAccountId_ - , _ijVaultName = pVaultName_ - } + InitiateJob' + { _ijJobParameters = Nothing + , _ijAccountId = pAccountId_ + , _ijVaultName = pVaultName_ + } + -- | Provides options for specifying job information. ijJobParameters :: Lens' InitiateJob (Maybe JobParameters) ijJobParameters = lens _ijJobParameters (\ s a -> s{_ijJobParameters = a}); @@ -162,9 +164,9 @@ (h .#? "x-amz-job-id") <*> (h .#? "Location") <*> (pure (fromEnum s))) -instance Hashable InitiateJob +instance Hashable InitiateJob where -instance NFData InitiateJob +instance NFData InitiateJob where instance ToHeaders InitiateJob where toHeaders = const mempty @@ -190,11 +192,12 @@ -- -- /See:/ 'initiateJobResponse' smart constructor. data InitiateJobResponse = InitiateJobResponse' - { _ijrsJobId :: !(Maybe Text) - , _ijrsLocation :: !(Maybe Text) - , _ijrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ijrsJobId :: !(Maybe Text) + , _ijrsLocation :: !(Maybe Text) + , _ijrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'InitiateJobResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -208,12 +211,13 @@ :: Int -- ^ 'ijrsResponseStatus' -> InitiateJobResponse initiateJobResponse pResponseStatus_ = - InitiateJobResponse' - { _ijrsJobId = Nothing - , _ijrsLocation = Nothing - , _ijrsResponseStatus = pResponseStatus_ - } + InitiateJobResponse' + { _ijrsJobId = Nothing + , _ijrsLocation = Nothing + , _ijrsResponseStatus = pResponseStatus_ + } + -- | The ID of the job. ijrsJobId :: Lens' InitiateJobResponse (Maybe Text) ijrsJobId = lens _ijrsJobId (\ s a -> s{_ijrsJobId = a}); @@ -226,4 +230,4 @@ ijrsResponseStatus :: Lens' InitiateJobResponse Int ijrsResponseStatus = lens _ijrsResponseStatus (\ s a -> s{_ijrsResponseStatus = a}); -instance NFData InitiateJobResponse +instance NFData InitiateJobResponse where diff --git a/gen/Network/AWS/Glacier/InitiateMultipartUpload.hs b/gen/Network/AWS/Glacier/InitiateMultipartUpload.hs --- a/gen/Network/AWS/Glacier/InitiateMultipartUpload.hs +++ b/gen/Network/AWS/Glacier/InitiateMultipartUpload.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.InitiateMultipartUpload --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -51,12 +51,12 @@ , imursResponseStatus ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Provides options for initiating a multipart upload to an Amazon Glacier vault. -- @@ -64,12 +64,13 @@ -- -- /See:/ 'initiateMultipartUpload' smart constructor. data InitiateMultipartUpload = InitiateMultipartUpload' - { _imuPartSize :: !(Maybe Text) - , _imuArchiveDescription :: !(Maybe Text) - , _imuAccountId :: !Text - , _imuVaultName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _imuPartSize :: !(Maybe Text) + , _imuArchiveDescription :: !(Maybe Text) + , _imuAccountId :: !Text + , _imuVaultName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'InitiateMultipartUpload' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -86,13 +87,14 @@ -> Text -- ^ 'imuVaultName' -> InitiateMultipartUpload initiateMultipartUpload pAccountId_ pVaultName_ = - InitiateMultipartUpload' - { _imuPartSize = Nothing - , _imuArchiveDescription = Nothing - , _imuAccountId = pAccountId_ - , _imuVaultName = pVaultName_ - } + InitiateMultipartUpload' + { _imuPartSize = Nothing + , _imuArchiveDescription = Nothing + , _imuAccountId = pAccountId_ + , _imuVaultName = pVaultName_ + } + -- | The size of each part except the last, in bytes. The last part can be smaller than this part size. imuPartSize :: Lens' InitiateMultipartUpload (Maybe Text) imuPartSize = lens _imuPartSize (\ s a -> s{_imuPartSize = a}); @@ -121,9 +123,9 @@ (h .#? "x-amz-multipart-upload-id") <*> (pure (fromEnum s))) -instance Hashable InitiateMultipartUpload +instance Hashable InitiateMultipartUpload where -instance NFData InitiateMultipartUpload +instance NFData InitiateMultipartUpload where instance ToHeaders InitiateMultipartUpload where toHeaders InitiateMultipartUpload'{..} @@ -150,11 +152,12 @@ -- -- /See:/ 'initiateMultipartUploadResponse' smart constructor. data InitiateMultipartUploadResponse = InitiateMultipartUploadResponse' - { _imursLocation :: !(Maybe Text) - , _imursUploadId :: !(Maybe Text) - , _imursResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _imursLocation :: !(Maybe Text) + , _imursUploadId :: !(Maybe Text) + , _imursResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'InitiateMultipartUploadResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -168,12 +171,13 @@ :: Int -- ^ 'imursResponseStatus' -> InitiateMultipartUploadResponse initiateMultipartUploadResponse pResponseStatus_ = - InitiateMultipartUploadResponse' - { _imursLocation = Nothing - , _imursUploadId = Nothing - , _imursResponseStatus = pResponseStatus_ - } + InitiateMultipartUploadResponse' + { _imursLocation = Nothing + , _imursUploadId = Nothing + , _imursResponseStatus = pResponseStatus_ + } + -- | The relative URI path of the multipart upload ID Amazon Glacier created. imursLocation :: Lens' InitiateMultipartUploadResponse (Maybe Text) imursLocation = lens _imursLocation (\ s a -> s{_imursLocation = a}); @@ -186,4 +190,4 @@ imursResponseStatus :: Lens' InitiateMultipartUploadResponse Int imursResponseStatus = lens _imursResponseStatus (\ s a -> s{_imursResponseStatus = a}); -instance NFData InitiateMultipartUploadResponse +instance NFData InitiateMultipartUploadResponse where diff --git a/gen/Network/AWS/Glacier/InitiateVaultLock.hs b/gen/Network/AWS/Glacier/InitiateVaultLock.hs --- a/gen/Network/AWS/Glacier/InitiateVaultLock.hs +++ b/gen/Network/AWS/Glacier/InitiateVaultLock.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.InitiateVaultLock --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -57,12 +57,12 @@ , ivlrsResponseStatus ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | The input values for @InitiateVaultLock@ . -- @@ -70,11 +70,12 @@ -- -- /See:/ 'initiateVaultLock' smart constructor. data InitiateVaultLock = InitiateVaultLock' - { _ivlPolicy :: !(Maybe VaultLockPolicy) - , _ivlAccountId :: !Text - , _ivlVaultName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ivlPolicy :: !(Maybe VaultLockPolicy) + , _ivlAccountId :: !Text + , _ivlVaultName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'InitiateVaultLock' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -89,12 +90,13 @@ -> Text -- ^ 'ivlVaultName' -> InitiateVaultLock initiateVaultLock pAccountId_ pVaultName_ = - InitiateVaultLock' - { _ivlPolicy = Nothing - , _ivlAccountId = pAccountId_ - , _ivlVaultName = pVaultName_ - } + InitiateVaultLock' + { _ivlPolicy = Nothing + , _ivlAccountId = pAccountId_ + , _ivlVaultName = pVaultName_ + } + -- | The vault lock policy as a JSON string, which uses "\" as an escape character. ivlPolicy :: Lens' InitiateVaultLock (Maybe VaultLockPolicy) ivlPolicy = lens _ivlPolicy (\ s a -> s{_ivlPolicy = a}); @@ -116,9 +118,9 @@ InitiateVaultLockResponse' <$> (h .#? "x-amz-lock-id") <*> (pure (fromEnum s))) -instance Hashable InitiateVaultLock +instance Hashable InitiateVaultLock where -instance NFData InitiateVaultLock +instance NFData InitiateVaultLock where instance ToHeaders InitiateVaultLock where toHeaders = const mempty @@ -142,10 +144,11 @@ -- -- /See:/ 'initiateVaultLockResponse' smart constructor. data InitiateVaultLockResponse = InitiateVaultLockResponse' - { _ivlrsLockId :: !(Maybe Text) - , _ivlrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ivlrsLockId :: !(Maybe Text) + , _ivlrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'InitiateVaultLockResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -157,11 +160,10 @@ :: Int -- ^ 'ivlrsResponseStatus' -> InitiateVaultLockResponse initiateVaultLockResponse pResponseStatus_ = - InitiateVaultLockResponse' - { _ivlrsLockId = Nothing - , _ivlrsResponseStatus = pResponseStatus_ - } + InitiateVaultLockResponse' + {_ivlrsLockId = Nothing, _ivlrsResponseStatus = pResponseStatus_} + -- | The lock ID, which is used to complete the vault locking process. ivlrsLockId :: Lens' InitiateVaultLockResponse (Maybe Text) ivlrsLockId = lens _ivlrsLockId (\ s a -> s{_ivlrsLockId = a}); @@ -170,4 +172,4 @@ ivlrsResponseStatus :: Lens' InitiateVaultLockResponse Int ivlrsResponseStatus = lens _ivlrsResponseStatus (\ s a -> s{_ivlrsResponseStatus = a}); -instance NFData InitiateVaultLockResponse +instance NFData InitiateVaultLockResponse where diff --git a/gen/Network/AWS/Glacier/ListJobs.hs b/gen/Network/AWS/Glacier/ListJobs.hs --- a/gen/Network/AWS/Glacier/ListJobs.hs +++ b/gen/Network/AWS/Glacier/ListJobs.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.ListJobs --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -55,13 +55,13 @@ , ljrsResponseStatus ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Pager -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Pager +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Provides options for retrieving a job list for an Amazon Glacier vault. -- @@ -69,14 +69,15 @@ -- -- /See:/ 'listJobs' smart constructor. data ListJobs = ListJobs' - { _ljMarker :: !(Maybe Text) - , _ljCompleted :: !(Maybe Text) - , _ljLimit :: !(Maybe Text) - , _ljStatuscode :: !(Maybe Text) - , _ljAccountId :: !Text - , _ljVaultName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ljMarker :: !(Maybe Text) + , _ljCompleted :: !(Maybe Text) + , _ljLimit :: !(Maybe Text) + , _ljStatuscode :: !(Maybe Text) + , _ljAccountId :: !Text + , _ljVaultName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListJobs' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -97,15 +98,16 @@ -> Text -- ^ 'ljVaultName' -> ListJobs listJobs pAccountId_ pVaultName_ = - ListJobs' - { _ljMarker = Nothing - , _ljCompleted = Nothing - , _ljLimit = Nothing - , _ljStatuscode = Nothing - , _ljAccountId = pAccountId_ - , _ljVaultName = pVaultName_ - } + ListJobs' + { _ljMarker = Nothing + , _ljCompleted = Nothing + , _ljLimit = Nothing + , _ljStatuscode = Nothing + , _ljAccountId = pAccountId_ + , _ljVaultName = pVaultName_ + } + -- | An opaque string used for pagination. This value specifies the job at which the listing of jobs should begin. Get the marker value from a previous List Jobs response. You only need to include the marker if you are continuing the pagination of results started in a previous List Jobs request. ljMarker :: Lens' ListJobs (Maybe Text) ljMarker = lens _ljMarker (\ s a -> s{_ljMarker = a}); @@ -147,9 +149,9 @@ (x .?> "Marker") <*> (x .?> "JobList" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable ListJobs +instance Hashable ListJobs where -instance NFData ListJobs +instance NFData ListJobs where instance ToHeaders ListJobs where toHeaders = const mempty @@ -172,11 +174,12 @@ -- -- /See:/ 'listJobsResponse' smart constructor. data ListJobsResponse = ListJobsResponse' - { _ljrsMarker :: !(Maybe Text) - , _ljrsJobList :: !(Maybe [GlacierJobDescription]) - , _ljrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ljrsMarker :: !(Maybe Text) + , _ljrsJobList :: !(Maybe [GlacierJobDescription]) + , _ljrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListJobsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -190,12 +193,13 @@ :: Int -- ^ 'ljrsResponseStatus' -> ListJobsResponse listJobsResponse pResponseStatus_ = - ListJobsResponse' - { _ljrsMarker = Nothing - , _ljrsJobList = Nothing - , _ljrsResponseStatus = pResponseStatus_ - } + ListJobsResponse' + { _ljrsMarker = Nothing + , _ljrsJobList = Nothing + , _ljrsResponseStatus = pResponseStatus_ + } + -- | An opaque string used for pagination that specifies the job at which the listing of jobs should begin. You get the @marker@ value from a previous List Jobs response. You only need to include the marker if you are continuing the pagination of the results started in a previous List Jobs request. ljrsMarker :: Lens' ListJobsResponse (Maybe Text) ljrsMarker = lens _ljrsMarker (\ s a -> s{_ljrsMarker = a}); @@ -208,4 +212,4 @@ ljrsResponseStatus :: Lens' ListJobsResponse Int ljrsResponseStatus = lens _ljrsResponseStatus (\ s a -> s{_ljrsResponseStatus = a}); -instance NFData ListJobsResponse +instance NFData ListJobsResponse where diff --git a/gen/Network/AWS/Glacier/ListMultipartUploads.hs b/gen/Network/AWS/Glacier/ListMultipartUploads.hs --- a/gen/Network/AWS/Glacier/ListMultipartUploads.hs +++ b/gen/Network/AWS/Glacier/ListMultipartUploads.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.ListMultipartUploads --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -51,13 +51,13 @@ , lmursResponseStatus ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Pager -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Pager +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Provides options for retrieving list of in-progress multipart uploads for an Amazon Glacier vault. -- @@ -65,12 +65,13 @@ -- -- /See:/ 'listMultipartUploads' smart constructor. data ListMultipartUploads = ListMultipartUploads' - { _lmuMarker :: !(Maybe Text) - , _lmuLimit :: !(Maybe Text) - , _lmuAccountId :: !Text - , _lmuVaultName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _lmuMarker :: !(Maybe Text) + , _lmuLimit :: !(Maybe Text) + , _lmuAccountId :: !Text + , _lmuVaultName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListMultipartUploads' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -87,13 +88,14 @@ -> Text -- ^ 'lmuVaultName' -> ListMultipartUploads listMultipartUploads pAccountId_ pVaultName_ = - ListMultipartUploads' - { _lmuMarker = Nothing - , _lmuLimit = Nothing - , _lmuAccountId = pAccountId_ - , _lmuVaultName = pVaultName_ - } + ListMultipartUploads' + { _lmuMarker = Nothing + , _lmuLimit = Nothing + , _lmuAccountId = pAccountId_ + , _lmuVaultName = pVaultName_ + } + -- | An opaque string used for pagination. This value specifies the upload at which the listing of uploads should begin. Get the marker value from a previous List Uploads response. You need only include the marker if you are continuing the pagination of results started in a previous List Uploads request. lmuMarker :: Lens' ListMultipartUploads (Maybe Text) lmuMarker = lens _lmuMarker (\ s a -> s{_lmuMarker = a}); @@ -128,9 +130,9 @@ (x .?> "UploadsList" .!@ mempty) <*> (x .?> "Marker") <*> (pure (fromEnum s))) -instance Hashable ListMultipartUploads +instance Hashable ListMultipartUploads where -instance NFData ListMultipartUploads +instance NFData ListMultipartUploads where instance ToHeaders ListMultipartUploads where toHeaders = const mempty @@ -152,11 +154,12 @@ -- -- /See:/ 'listMultipartUploadsResponse' smart constructor. data ListMultipartUploadsResponse = ListMultipartUploadsResponse' - { _lmursUploadsList :: !(Maybe [UploadListElement]) - , _lmursMarker :: !(Maybe Text) - , _lmursResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _lmursUploadsList :: !(Maybe [UploadListElement]) + , _lmursMarker :: !(Maybe Text) + , _lmursResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListMultipartUploadsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -170,12 +173,13 @@ :: Int -- ^ 'lmursResponseStatus' -> ListMultipartUploadsResponse listMultipartUploadsResponse pResponseStatus_ = - ListMultipartUploadsResponse' - { _lmursUploadsList = Nothing - , _lmursMarker = Nothing - , _lmursResponseStatus = pResponseStatus_ - } + ListMultipartUploadsResponse' + { _lmursUploadsList = Nothing + , _lmursMarker = Nothing + , _lmursResponseStatus = pResponseStatus_ + } + -- | A list of in-progress multipart uploads. lmursUploadsList :: Lens' ListMultipartUploadsResponse [UploadListElement] lmursUploadsList = lens _lmursUploadsList (\ s a -> s{_lmursUploadsList = a}) . _Default . _Coerce; @@ -188,4 +192,4 @@ lmursResponseStatus :: Lens' ListMultipartUploadsResponse Int lmursResponseStatus = lens _lmursResponseStatus (\ s a -> s{_lmursResponseStatus = a}); -instance NFData ListMultipartUploadsResponse +instance NFData ListMultipartUploadsResponse where diff --git a/gen/Network/AWS/Glacier/ListParts.hs b/gen/Network/AWS/Glacier/ListParts.hs --- a/gen/Network/AWS/Glacier/ListParts.hs +++ b/gen/Network/AWS/Glacier/ListParts.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.ListParts --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -55,13 +55,13 @@ , lprsResponseStatus ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Pager -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Pager +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Provides options for retrieving a list of parts of an archive that have been uploaded in a specific multipart upload. -- @@ -69,13 +69,14 @@ -- -- /See:/ 'listParts' smart constructor. data ListParts = ListParts' - { _lpMarker :: !(Maybe Text) - , _lpLimit :: !(Maybe Text) - , _lpAccountId :: !Text - , _lpVaultName :: !Text - , _lpUploadId :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _lpMarker :: !(Maybe Text) + , _lpLimit :: !(Maybe Text) + , _lpAccountId :: !Text + , _lpVaultName :: !Text + , _lpUploadId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListParts' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -95,14 +96,15 @@ -> Text -- ^ 'lpUploadId' -> ListParts listParts pAccountId_ pVaultName_ pUploadId_ = - ListParts' - { _lpMarker = Nothing - , _lpLimit = Nothing - , _lpAccountId = pAccountId_ - , _lpVaultName = pVaultName_ - , _lpUploadId = pUploadId_ - } + ListParts' + { _lpMarker = Nothing + , _lpLimit = Nothing + , _lpAccountId = pAccountId_ + , _lpVaultName = pVaultName_ + , _lpUploadId = pUploadId_ + } + -- | An opaque string used for pagination. This value specifies the part at which the listing of parts should begin. Get the marker value from the response of a previous List Parts response. You need only include the marker if you are continuing the pagination of results started in a previous List Parts request. lpMarker :: Lens' ListParts (Maybe Text) lpMarker = lens _lpMarker (\ s a -> s{_lpMarker = a}); @@ -146,9 +148,9 @@ <*> (x .?> "CreationDate") <*> (pure (fromEnum s))) -instance Hashable ListParts +instance Hashable ListParts where -instance NFData ListParts +instance NFData ListParts where instance ToHeaders ListParts where toHeaders = const mempty @@ -171,16 +173,17 @@ -- -- /See:/ 'listPartsResponse' smart constructor. data ListPartsResponse = ListPartsResponse' - { _lprsParts :: !(Maybe [PartListElement]) - , _lprsMultipartUploadId :: !(Maybe Text) - , _lprsPartSizeInBytes :: !(Maybe Integer) - , _lprsArchiveDescription :: !(Maybe Text) - , _lprsVaultARN :: !(Maybe Text) - , _lprsMarker :: !(Maybe Text) - , _lprsCreationDate :: !(Maybe Text) - , _lprsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _lprsParts :: !(Maybe [PartListElement]) + , _lprsMultipartUploadId :: !(Maybe Text) + , _lprsPartSizeInBytes :: !(Maybe Integer) + , _lprsArchiveDescription :: !(Maybe Text) + , _lprsVaultARN :: !(Maybe Text) + , _lprsMarker :: !(Maybe Text) + , _lprsCreationDate :: !(Maybe Text) + , _lprsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListPartsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -204,17 +207,18 @@ :: Int -- ^ 'lprsResponseStatus' -> ListPartsResponse listPartsResponse pResponseStatus_ = - ListPartsResponse' - { _lprsParts = Nothing - , _lprsMultipartUploadId = Nothing - , _lprsPartSizeInBytes = Nothing - , _lprsArchiveDescription = Nothing - , _lprsVaultARN = Nothing - , _lprsMarker = Nothing - , _lprsCreationDate = Nothing - , _lprsResponseStatus = pResponseStatus_ - } + ListPartsResponse' + { _lprsParts = Nothing + , _lprsMultipartUploadId = Nothing + , _lprsPartSizeInBytes = Nothing + , _lprsArchiveDescription = Nothing + , _lprsVaultARN = Nothing + , _lprsMarker = Nothing + , _lprsCreationDate = Nothing + , _lprsResponseStatus = pResponseStatus_ + } + -- | A list of the part sizes of the multipart upload. Each object in the array contains a @RangeBytes@ and @sha256-tree-hash@ name/value pair. lprsParts :: Lens' ListPartsResponse [PartListElement] lprsParts = lens _lprsParts (\ s a -> s{_lprsParts = a}) . _Default . _Coerce; @@ -247,4 +251,4 @@ lprsResponseStatus :: Lens' ListPartsResponse Int lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a}); -instance NFData ListPartsResponse +instance NFData ListPartsResponse where diff --git a/gen/Network/AWS/Glacier/ListProvisionedCapacity.hs b/gen/Network/AWS/Glacier/ListProvisionedCapacity.hs --- a/gen/Network/AWS/Glacier/ListProvisionedCapacity.hs +++ b/gen/Network/AWS/Glacier/ListProvisionedCapacity.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.ListProvisionedCapacity --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -37,18 +37,19 @@ , lpcrsResponseStatus ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'listProvisionedCapacity' smart constructor. newtype ListProvisionedCapacity = ListProvisionedCapacity' - { _lpcAccountId :: Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _lpcAccountId :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListProvisionedCapacity' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -58,10 +59,9 @@ :: Text -- ^ 'lpcAccountId' -> ListProvisionedCapacity listProvisionedCapacity pAccountId_ = - ListProvisionedCapacity' - { _lpcAccountId = pAccountId_ - } + ListProvisionedCapacity' {_lpcAccountId = pAccountId_} + -- | The @AccountId@ value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, don't include any hyphens ('-') in the ID. lpcAccountId :: Lens' ListProvisionedCapacity Text lpcAccountId = lens _lpcAccountId (\ s a -> s{_lpcAccountId = a}); @@ -77,9 +77,9 @@ (x .?> "ProvisionedCapacityList" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable ListProvisionedCapacity +instance Hashable ListProvisionedCapacity where -instance NFData ListProvisionedCapacity +instance NFData ListProvisionedCapacity where instance ToHeaders ListProvisionedCapacity where toHeaders = const mempty @@ -94,10 +94,11 @@ -- | /See:/ 'listProvisionedCapacityResponse' smart constructor. data ListProvisionedCapacityResponse = ListProvisionedCapacityResponse' - { _lpcrsProvisionedCapacityList :: !(Maybe [ProvisionedCapacityDescription]) - , _lpcrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _lpcrsProvisionedCapacityList :: !(Maybe [ProvisionedCapacityDescription]) + , _lpcrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListProvisionedCapacityResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -109,11 +110,12 @@ :: Int -- ^ 'lpcrsResponseStatus' -> ListProvisionedCapacityResponse listProvisionedCapacityResponse pResponseStatus_ = - ListProvisionedCapacityResponse' - { _lpcrsProvisionedCapacityList = Nothing - , _lpcrsResponseStatus = pResponseStatus_ - } + ListProvisionedCapacityResponse' + { _lpcrsProvisionedCapacityList = Nothing + , _lpcrsResponseStatus = pResponseStatus_ + } + -- | The response body contains the following JSON fields. lpcrsProvisionedCapacityList :: Lens' ListProvisionedCapacityResponse [ProvisionedCapacityDescription] lpcrsProvisionedCapacityList = lens _lpcrsProvisionedCapacityList (\ s a -> s{_lpcrsProvisionedCapacityList = a}) . _Default . _Coerce; @@ -122,4 +124,4 @@ lpcrsResponseStatus :: Lens' ListProvisionedCapacityResponse Int lpcrsResponseStatus = lens _lpcrsResponseStatus (\ s a -> s{_lpcrsResponseStatus = a}); -instance NFData ListProvisionedCapacityResponse +instance NFData ListProvisionedCapacityResponse where diff --git a/gen/Network/AWS/Glacier/ListTagsForVault.hs b/gen/Network/AWS/Glacier/ListTagsForVault.hs --- a/gen/Network/AWS/Glacier/ListTagsForVault.hs +++ b/gen/Network/AWS/Glacier/ListTagsForVault.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.ListTagsForVault --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,12 +38,12 @@ , ltfvrsResponseStatus ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | The input value for @ListTagsForVaultInput@ . -- @@ -51,10 +51,11 @@ -- -- /See:/ 'listTagsForVault' smart constructor. data ListTagsForVault = ListTagsForVault' - { _ltfvAccountId :: !Text - , _ltfvVaultName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ltfvAccountId :: !Text + , _ltfvVaultName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTagsForVault' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -67,11 +68,9 @@ -> Text -- ^ 'ltfvVaultName' -> ListTagsForVault listTagsForVault pAccountId_ pVaultName_ = - ListTagsForVault' - { _ltfvAccountId = pAccountId_ - , _ltfvVaultName = pVaultName_ - } + ListTagsForVault' {_ltfvAccountId = pAccountId_, _ltfvVaultName = pVaultName_} + -- | The @AccountId@ value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '@-@ ' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID. ltfvAccountId :: Lens' ListTagsForVault Text ltfvAccountId = lens _ltfvAccountId (\ s a -> s{_ltfvAccountId = a}); @@ -89,9 +88,9 @@ ListTagsForVaultResponse' <$> (x .?> "Tags" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable ListTagsForVault +instance Hashable ListTagsForVault where -instance NFData ListTagsForVault +instance NFData ListTagsForVault where instance ToHeaders ListTagsForVault where toHeaders = const mempty @@ -111,10 +110,11 @@ -- -- /See:/ 'listTagsForVaultResponse' smart constructor. data ListTagsForVaultResponse = ListTagsForVaultResponse' - { _ltfvrsTags :: !(Maybe (Map Text Text)) - , _ltfvrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ltfvrsTags :: !(Maybe (Map Text Text)) + , _ltfvrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTagsForVaultResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -126,11 +126,10 @@ :: Int -- ^ 'ltfvrsResponseStatus' -> ListTagsForVaultResponse listTagsForVaultResponse pResponseStatus_ = - ListTagsForVaultResponse' - { _ltfvrsTags = Nothing - , _ltfvrsResponseStatus = pResponseStatus_ - } + ListTagsForVaultResponse' + {_ltfvrsTags = Nothing, _ltfvrsResponseStatus = pResponseStatus_} + -- | The tags attached to the vault. Each tag is composed of a key and a value. ltfvrsTags :: Lens' ListTagsForVaultResponse (HashMap Text Text) ltfvrsTags = lens _ltfvrsTags (\ s a -> s{_ltfvrsTags = a}) . _Default . _Map; @@ -139,4 +138,4 @@ ltfvrsResponseStatus :: Lens' ListTagsForVaultResponse Int ltfvrsResponseStatus = lens _ltfvrsResponseStatus (\ s a -> s{_ltfvrsResponseStatus = a}); -instance NFData ListTagsForVaultResponse +instance NFData ListTagsForVaultResponse where diff --git a/gen/Network/AWS/Glacier/ListVaults.hs b/gen/Network/AWS/Glacier/ListVaults.hs --- a/gen/Network/AWS/Glacier/ListVaults.hs +++ b/gen/Network/AWS/Glacier/ListVaults.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.ListVaults --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -48,13 +48,13 @@ , lvrsResponseStatus ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Pager -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Pager +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Provides options to retrieve the vault list owned by the calling user's account. The list provides metadata information for each vault. -- @@ -62,11 +62,12 @@ -- -- /See:/ 'listVaults' smart constructor. data ListVaults = ListVaults' - { _lvMarker :: !(Maybe Text) - , _lvLimit :: !(Maybe Text) - , _lvAccountId :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _lvMarker :: !(Maybe Text) + , _lvLimit :: !(Maybe Text) + , _lvAccountId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListVaults' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -80,12 +81,10 @@ :: Text -- ^ 'lvAccountId' -> ListVaults listVaults pAccountId_ = - ListVaults' - { _lvMarker = Nothing - , _lvLimit = Nothing - , _lvAccountId = pAccountId_ - } + ListVaults' + {_lvMarker = Nothing, _lvLimit = Nothing, _lvAccountId = pAccountId_} + -- | A string used for pagination. The marker specifies the vault ARN after which the listing of vaults should begin. lvMarker :: Lens' ListVaults (Maybe Text) lvMarker = lens _lvMarker (\ s a -> s{_lvMarker = a}); @@ -115,9 +114,9 @@ (x .?> "Marker") <*> (x .?> "VaultList" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable ListVaults +instance Hashable ListVaults where -instance NFData ListVaults +instance NFData ListVaults where instance ToHeaders ListVaults where toHeaders = const mempty @@ -137,11 +136,12 @@ -- -- /See:/ 'listVaultsResponse' smart constructor. data ListVaultsResponse = ListVaultsResponse' - { _lvrsMarker :: !(Maybe Text) - , _lvrsVaultList :: !(Maybe [DescribeVaultOutput]) - , _lvrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _lvrsMarker :: !(Maybe Text) + , _lvrsVaultList :: !(Maybe [DescribeVaultOutput]) + , _lvrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListVaultsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -155,12 +155,13 @@ :: Int -- ^ 'lvrsResponseStatus' -> ListVaultsResponse listVaultsResponse pResponseStatus_ = - ListVaultsResponse' - { _lvrsMarker = Nothing - , _lvrsVaultList = Nothing - , _lvrsResponseStatus = pResponseStatus_ - } + ListVaultsResponse' + { _lvrsMarker = Nothing + , _lvrsVaultList = Nothing + , _lvrsResponseStatus = pResponseStatus_ + } + -- | The vault ARN at which to continue pagination of the results. You use the marker in another List Vaults request to obtain more vaults in the list. lvrsMarker :: Lens' ListVaultsResponse (Maybe Text) lvrsMarker = lens _lvrsMarker (\ s a -> s{_lvrsMarker = a}); @@ -173,4 +174,4 @@ lvrsResponseStatus :: Lens' ListVaultsResponse Int lvrsResponseStatus = lens _lvrsResponseStatus (\ s a -> s{_lvrsResponseStatus = a}); -instance NFData ListVaultsResponse +instance NFData ListVaultsResponse where diff --git a/gen/Network/AWS/Glacier/PurchaseProvisionedCapacity.hs b/gen/Network/AWS/Glacier/PurchaseProvisionedCapacity.hs --- a/gen/Network/AWS/Glacier/PurchaseProvisionedCapacity.hs +++ b/gen/Network/AWS/Glacier/PurchaseProvisionedCapacity.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.PurchaseProvisionedCapacity --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -37,18 +37,19 @@ , ppcrsResponseStatus ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'purchaseProvisionedCapacity' smart constructor. newtype PurchaseProvisionedCapacity = PurchaseProvisionedCapacity' - { _ppcAccountId :: Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ppcAccountId :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PurchaseProvisionedCapacity' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -58,10 +59,9 @@ :: Text -- ^ 'ppcAccountId' -> PurchaseProvisionedCapacity purchaseProvisionedCapacity pAccountId_ = - PurchaseProvisionedCapacity' - { _ppcAccountId = pAccountId_ - } + PurchaseProvisionedCapacity' {_ppcAccountId = pAccountId_} + -- | The AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, don't include any hyphens ('-') in the ID. ppcAccountId :: Lens' PurchaseProvisionedCapacity Text ppcAccountId = lens _ppcAccountId (\ s a -> s{_ppcAccountId = a}); @@ -76,9 +76,9 @@ PurchaseProvisionedCapacityResponse' <$> (h .#? "x-amz-capacity-id") <*> (pure (fromEnum s))) -instance Hashable PurchaseProvisionedCapacity +instance Hashable PurchaseProvisionedCapacity where -instance NFData PurchaseProvisionedCapacity +instance NFData PurchaseProvisionedCapacity where instance ToHeaders PurchaseProvisionedCapacity where toHeaders = const mempty @@ -96,10 +96,11 @@ -- | /See:/ 'purchaseProvisionedCapacityResponse' smart constructor. data PurchaseProvisionedCapacityResponse = PurchaseProvisionedCapacityResponse' - { _ppcrsCapacityId :: !(Maybe Text) - , _ppcrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ppcrsCapacityId :: !(Maybe Text) + , _ppcrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PurchaseProvisionedCapacityResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -111,11 +112,10 @@ :: Int -- ^ 'ppcrsResponseStatus' -> PurchaseProvisionedCapacityResponse purchaseProvisionedCapacityResponse pResponseStatus_ = - PurchaseProvisionedCapacityResponse' - { _ppcrsCapacityId = Nothing - , _ppcrsResponseStatus = pResponseStatus_ - } + PurchaseProvisionedCapacityResponse' + {_ppcrsCapacityId = Nothing, _ppcrsResponseStatus = pResponseStatus_} + -- | The ID that identifies the provisioned capacity unit. ppcrsCapacityId :: Lens' PurchaseProvisionedCapacityResponse (Maybe Text) ppcrsCapacityId = lens _ppcrsCapacityId (\ s a -> s{_ppcrsCapacityId = a}); @@ -125,3 +125,4 @@ ppcrsResponseStatus = lens _ppcrsResponseStatus (\ s a -> s{_ppcrsResponseStatus = a}); instance NFData PurchaseProvisionedCapacityResponse + where diff --git a/gen/Network/AWS/Glacier/RemoveTagsFromVault.hs b/gen/Network/AWS/Glacier/RemoveTagsFromVault.hs --- a/gen/Network/AWS/Glacier/RemoveTagsFromVault.hs +++ b/gen/Network/AWS/Glacier/RemoveTagsFromVault.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.RemoveTagsFromVault --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -36,12 +36,12 @@ , RemoveTagsFromVaultResponse ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | The input value for @RemoveTagsFromVaultInput@ . -- @@ -49,11 +49,12 @@ -- -- /See:/ 'removeTagsFromVault' smart constructor. data RemoveTagsFromVault = RemoveTagsFromVault' - { _rtfvTagKeys :: !(Maybe [Text]) - , _rtfvAccountId :: !Text - , _rtfvVaultName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _rtfvTagKeys :: !(Maybe [Text]) + , _rtfvAccountId :: !Text + , _rtfvVaultName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RemoveTagsFromVault' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -68,12 +69,13 @@ -> Text -- ^ 'rtfvVaultName' -> RemoveTagsFromVault removeTagsFromVault pAccountId_ pVaultName_ = - RemoveTagsFromVault' - { _rtfvTagKeys = Nothing - , _rtfvAccountId = pAccountId_ - , _rtfvVaultName = pVaultName_ - } + RemoveTagsFromVault' + { _rtfvTagKeys = Nothing + , _rtfvAccountId = pAccountId_ + , _rtfvVaultName = pVaultName_ + } + -- | A list of tag keys. Each corresponding tag is removed from the vault. rtfvTagKeys :: Lens' RemoveTagsFromVault [Text] rtfvTagKeys = lens _rtfvTagKeys (\ s a -> s{_rtfvTagKeys = a}) . _Default . _Coerce; @@ -92,9 +94,9 @@ request = postJSON glacier response = receiveNull RemoveTagsFromVaultResponse' -instance Hashable RemoveTagsFromVault +instance Hashable RemoveTagsFromVault where -instance NFData RemoveTagsFromVault +instance NFData RemoveTagsFromVault where instance ToHeaders RemoveTagsFromVault where toHeaders = const mempty @@ -115,13 +117,15 @@ -- | /See:/ 'removeTagsFromVaultResponse' smart constructor. data RemoveTagsFromVaultResponse = - RemoveTagsFromVaultResponse' - deriving (Eq,Read,Show,Data,Typeable,Generic) + RemoveTagsFromVaultResponse' + deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RemoveTagsFromVaultResponse' with the minimum fields required to make a request. -- removeTagsFromVaultResponse :: RemoveTagsFromVaultResponse removeTagsFromVaultResponse = RemoveTagsFromVaultResponse' -instance NFData RemoveTagsFromVaultResponse + +instance NFData RemoveTagsFromVaultResponse where diff --git a/gen/Network/AWS/Glacier/SetDataRetrievalPolicy.hs b/gen/Network/AWS/Glacier/SetDataRetrievalPolicy.hs --- a/gen/Network/AWS/Glacier/SetDataRetrievalPolicy.hs +++ b/gen/Network/AWS/Glacier/SetDataRetrievalPolicy.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.SetDataRetrievalPolicy --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -37,12 +37,12 @@ , SetDataRetrievalPolicyResponse ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | SetDataRetrievalPolicy input. -- @@ -50,10 +50,11 @@ -- -- /See:/ 'setDataRetrievalPolicy' smart constructor. data SetDataRetrievalPolicy = SetDataRetrievalPolicy' - { _sdrpPolicy :: !(Maybe DataRetrievalPolicy) - , _sdrpAccountId :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _sdrpPolicy :: !(Maybe DataRetrievalPolicy) + , _sdrpAccountId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetDataRetrievalPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -65,11 +66,9 @@ :: Text -- ^ 'sdrpAccountId' -> SetDataRetrievalPolicy setDataRetrievalPolicy pAccountId_ = - SetDataRetrievalPolicy' - { _sdrpPolicy = Nothing - , _sdrpAccountId = pAccountId_ - } + SetDataRetrievalPolicy' {_sdrpPolicy = Nothing, _sdrpAccountId = pAccountId_} + -- | The data retrieval policy in JSON format. sdrpPolicy :: Lens' SetDataRetrievalPolicy (Maybe DataRetrievalPolicy) sdrpPolicy = lens _sdrpPolicy (\ s a -> s{_sdrpPolicy = a}); @@ -85,9 +84,9 @@ response = receiveNull SetDataRetrievalPolicyResponse' -instance Hashable SetDataRetrievalPolicy +instance Hashable SetDataRetrievalPolicy where -instance NFData SetDataRetrievalPolicy +instance NFData SetDataRetrievalPolicy where instance ToHeaders SetDataRetrievalPolicy where toHeaders = const mempty @@ -107,13 +106,15 @@ -- | /See:/ 'setDataRetrievalPolicyResponse' smart constructor. data SetDataRetrievalPolicyResponse = - SetDataRetrievalPolicyResponse' - deriving (Eq,Read,Show,Data,Typeable,Generic) + SetDataRetrievalPolicyResponse' + deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetDataRetrievalPolicyResponse' with the minimum fields required to make a request. -- setDataRetrievalPolicyResponse :: SetDataRetrievalPolicyResponse setDataRetrievalPolicyResponse = SetDataRetrievalPolicyResponse' -instance NFData SetDataRetrievalPolicyResponse + +instance NFData SetDataRetrievalPolicyResponse where diff --git a/gen/Network/AWS/Glacier/SetVaultAccessPolicy.hs b/gen/Network/AWS/Glacier/SetVaultAccessPolicy.hs --- a/gen/Network/AWS/Glacier/SetVaultAccessPolicy.hs +++ b/gen/Network/AWS/Glacier/SetVaultAccessPolicy.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.SetVaultAccessPolicy --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -36,12 +36,12 @@ , SetVaultAccessPolicyResponse ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | SetVaultAccessPolicy input. -- @@ -49,11 +49,12 @@ -- -- /See:/ 'setVaultAccessPolicy' smart constructor. data SetVaultAccessPolicy = SetVaultAccessPolicy' - { _svapPolicy :: !(Maybe VaultAccessPolicy) - , _svapAccountId :: !Text - , _svapVaultName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _svapPolicy :: !(Maybe VaultAccessPolicy) + , _svapAccountId :: !Text + , _svapVaultName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetVaultAccessPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -68,12 +69,13 @@ -> Text -- ^ 'svapVaultName' -> SetVaultAccessPolicy setVaultAccessPolicy pAccountId_ pVaultName_ = - SetVaultAccessPolicy' - { _svapPolicy = Nothing - , _svapAccountId = pAccountId_ - , _svapVaultName = pVaultName_ - } + SetVaultAccessPolicy' + { _svapPolicy = Nothing + , _svapAccountId = pAccountId_ + , _svapVaultName = pVaultName_ + } + -- | The vault access policy as a JSON string. svapPolicy :: Lens' SetVaultAccessPolicy (Maybe VaultAccessPolicy) svapPolicy = lens _svapPolicy (\ s a -> s{_svapPolicy = a}); @@ -92,9 +94,9 @@ request = putJSON glacier response = receiveNull SetVaultAccessPolicyResponse' -instance Hashable SetVaultAccessPolicy +instance Hashable SetVaultAccessPolicy where -instance NFData SetVaultAccessPolicy +instance NFData SetVaultAccessPolicy where instance ToHeaders SetVaultAccessPolicy where toHeaders = const mempty @@ -114,13 +116,15 @@ -- | /See:/ 'setVaultAccessPolicyResponse' smart constructor. data SetVaultAccessPolicyResponse = - SetVaultAccessPolicyResponse' - deriving (Eq,Read,Show,Data,Typeable,Generic) + SetVaultAccessPolicyResponse' + deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetVaultAccessPolicyResponse' with the minimum fields required to make a request. -- setVaultAccessPolicyResponse :: SetVaultAccessPolicyResponse setVaultAccessPolicyResponse = SetVaultAccessPolicyResponse' -instance NFData SetVaultAccessPolicyResponse + +instance NFData SetVaultAccessPolicyResponse where diff --git a/gen/Network/AWS/Glacier/SetVaultNotifications.hs b/gen/Network/AWS/Glacier/SetVaultNotifications.hs --- a/gen/Network/AWS/Glacier/SetVaultNotifications.hs +++ b/gen/Network/AWS/Glacier/SetVaultNotifications.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.SetVaultNotifications --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -50,12 +50,12 @@ , SetVaultNotificationsResponse ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Provides options to configure notifications that will be sent when specific events happen to a vault. -- @@ -63,11 +63,12 @@ -- -- /See:/ 'setVaultNotifications' smart constructor. data SetVaultNotifications = SetVaultNotifications' - { _svnVaultNotificationConfig :: !(Maybe VaultNotificationConfig) - , _svnAccountId :: !Text - , _svnVaultName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _svnVaultNotificationConfig :: !(Maybe VaultNotificationConfig) + , _svnAccountId :: !Text + , _svnVaultName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetVaultNotifications' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -82,12 +83,13 @@ -> Text -- ^ 'svnVaultName' -> SetVaultNotifications setVaultNotifications pAccountId_ pVaultName_ = - SetVaultNotifications' - { _svnVaultNotificationConfig = Nothing - , _svnAccountId = pAccountId_ - , _svnVaultName = pVaultName_ - } + SetVaultNotifications' + { _svnVaultNotificationConfig = Nothing + , _svnAccountId = pAccountId_ + , _svnVaultName = pVaultName_ + } + -- | Provides options for specifying notification configuration. svnVaultNotificationConfig :: Lens' SetVaultNotifications (Maybe VaultNotificationConfig) svnVaultNotificationConfig = lens _svnVaultNotificationConfig (\ s a -> s{_svnVaultNotificationConfig = a}); @@ -106,9 +108,9 @@ request = putJSON glacier response = receiveNull SetVaultNotificationsResponse' -instance Hashable SetVaultNotifications +instance Hashable SetVaultNotifications where -instance NFData SetVaultNotifications +instance NFData SetVaultNotifications where instance ToHeaders SetVaultNotifications where toHeaders = const mempty @@ -131,13 +133,15 @@ -- | /See:/ 'setVaultNotificationsResponse' smart constructor. data SetVaultNotificationsResponse = - SetVaultNotificationsResponse' - deriving (Eq,Read,Show,Data,Typeable,Generic) + SetVaultNotificationsResponse' + deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetVaultNotificationsResponse' with the minimum fields required to make a request. -- setVaultNotificationsResponse :: SetVaultNotificationsResponse setVaultNotificationsResponse = SetVaultNotificationsResponse' -instance NFData SetVaultNotificationsResponse + +instance NFData SetVaultNotificationsResponse where diff --git a/gen/Network/AWS/Glacier/Types.hs b/gen/Network/AWS/Glacier/Types.hs --- a/gen/Network/AWS/Glacier/Types.hs +++ b/gen/Network/AWS/Glacier/Types.hs @@ -4,9 +4,9 @@ -- | -- Module : Network.AWS.Glacier.Types --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -149,38 +149,40 @@ , vncEvents ) where -import Network.AWS.Glacier.Types.Product -import Network.AWS.Glacier.Types.Sum -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Sign.V4 +import Network.AWS.Glacier.Types.Product +import Network.AWS.Glacier.Types.Sum +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Sign.V4 -- | API version @2012-06-01@ of the Amazon Glacier SDK configuration. glacier :: Service glacier = - Service - { _svcAbbrev = "Glacier" - , _svcSigner = v4 - , _svcPrefix = "glacier" - , _svcVersion = "2012-06-01" - , _svcEndpoint = defaultEndpoint glacier - , _svcTimeout = Just 70 - , _svcCheck = statusSuccess - , _svcError = parseJSONError "Glacier" - , _svcRetry = retry - } + Service + { _svcAbbrev = "Glacier" + , _svcSigner = v4 + , _svcPrefix = "glacier" + , _svcVersion = "2012-06-01" + , _svcEndpoint = defaultEndpoint glacier + , _svcTimeout = Just 70 + , _svcCheck = statusSuccess + , _svcError = parseJSONError "Glacier" + , _svcRetry = retry + } where retry = - Exponential - { _retryBase = 5.0e-2 - , _retryGrowth = 2 - , _retryAttempts = 5 - , _retryCheck = check - } + Exponential + { _retryBase = 5.0e-2 + , _retryGrowth = 2 + , _retryAttempts = 5 + , _retryCheck = check + } check e + | has (hasCode "ThrottledException" . hasStatus 400) e = + Just "throttled_exception" | has (hasStatus 429) e = Just "too_many_requests" | has (hasCode "ThrottlingException" . hasStatus 400) e = - Just "throttling_exception" + Just "throttling_exception" | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" | has (hasStatus 504) e = Just "gateway_timeout" | has (hasStatus 502) e = Just "bad_gateway" @@ -189,58 +191,67 @@ | has (hasStatus 509) e = Just "limit_exceeded" | otherwise = Nothing + -- | Returned if a retrieval job would exceed the current data policy's retrieval rate limit. For more information about data retrieval policies, -- -- _PolicyEnforcedException :: AsError a => Getting (First ServiceError) a ServiceError _PolicyEnforcedException = - _ServiceError . hasStatus 400 . hasCode "PolicyEnforcedException" + _MatchServiceError glacier "PolicyEnforcedException" . hasStatus 400 + -- | Returned if a parameter of the request is incorrectly specified. -- -- _InvalidParameterValueException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidParameterValueException = - _ServiceError . hasStatus 400 . hasCode "InvalidParameterValueException" + _MatchServiceError glacier "InvalidParameterValueException" . hasStatus 400 + -- | Returned if, when uploading an archive, Amazon Glacier times out while receiving the upload. -- -- _RequestTimeoutException :: AsError a => Getting (First ServiceError) a ServiceError _RequestTimeoutException = - _ServiceError . hasStatus 408 . hasCode "RequestTimeoutException" + _MatchServiceError glacier "RequestTimeoutException" . hasStatus 408 + -- | Returned if the service cannot complete the request. -- -- _ServiceUnavailableException :: AsError a => Getting (First ServiceError) a ServiceError _ServiceUnavailableException = - _ServiceError . hasStatus 500 . hasCode "ServiceUnavailableException" + _MatchServiceError glacier "ServiceUnavailableException" . hasStatus 500 + -- | Returned if there is insufficient capacity to process this expedited request. This error only applies to expedited retrievals and not to standard or bulk retrievals. -- -- _InsufficientCapacityException :: AsError a => Getting (First ServiceError) a ServiceError _InsufficientCapacityException = - _ServiceError . hasStatus 400 . hasCode "InsufficientCapacityException" + _MatchServiceError glacier "InsufficientCapacityException" . hasStatus 400 + -- | Returned if the specified resource (such as a vault, upload ID, or job ID) doesn't exist. -- -- _ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceNotFoundException = - _ServiceError . hasStatus 404 . hasCode "ResourceNotFoundException" + _MatchServiceError glacier "ResourceNotFoundException" . hasStatus 404 + -- | Returned if the request results in a vault or account limit being exceeded. -- -- _LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _LimitExceededException = - _ServiceError . hasStatus 400 . hasCode "LimitExceededException" + _MatchServiceError glacier "LimitExceededException" . hasStatus 400 + -- | Returned if a required header or parameter is missing from the request. -- -- _MissingParameterValueException :: AsError a => Getting (First ServiceError) a ServiceError _MissingParameterValueException = - _ServiceError . hasStatus 400 . hasCode "MissingParameterValueException" + _MatchServiceError glacier "MissingParameterValueException" . hasStatus 400 + diff --git a/gen/Network/AWS/Glacier/Types/Product.hs b/gen/Network/AWS/Glacier/Types/Product.hs --- a/gen/Network/AWS/Glacier/Types/Product.hs +++ b/gen/Network/AWS/Glacier/Types/Product.hs @@ -9,17 +9,17 @@ -- | -- Module : Network.AWS.Glacier.Types.Product --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.Glacier.Types.Product where -import Network.AWS.Glacier.Types.Sum -import Network.AWS.Lens -import Network.AWS.Prelude +import Network.AWS.Glacier.Types.Sum +import Network.AWS.Lens +import Network.AWS.Prelude -- | Contains the Amazon Glacier response to your request. -- @@ -29,11 +29,12 @@ -- -- /See:/ 'archiveCreationOutput' smart constructor. data ArchiveCreationOutput = ArchiveCreationOutput' - { _acoArchiveId :: !(Maybe Text) - , _acoChecksum :: !(Maybe Text) - , _acoLocation :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _acoArchiveId :: !(Maybe Text) + , _acoChecksum :: !(Maybe Text) + , _acoLocation :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ArchiveCreationOutput' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -46,12 +47,10 @@ archiveCreationOutput :: ArchiveCreationOutput archiveCreationOutput = - ArchiveCreationOutput' - { _acoArchiveId = Nothing - , _acoChecksum = Nothing - , _acoLocation = Nothing - } + ArchiveCreationOutput' + {_acoArchiveId = Nothing, _acoChecksum = Nothing, _acoLocation = Nothing} + -- | The ID of the archive. This value is also included as part of the location. acoArchiveId :: Lens' ArchiveCreationOutput (Maybe Text) acoArchiveId = lens _acoArchiveId (\ s a -> s{_acoArchiveId = a}); @@ -73,9 +72,9 @@ (x .:? "x-amz-sha256-tree-hash") <*> (x .:? "Location")) -instance Hashable ArchiveCreationOutput +instance Hashable ArchiveCreationOutput where -instance NFData ArchiveCreationOutput +instance NFData ArchiveCreationOutput where -- | Data retrieval policy. -- @@ -83,9 +82,10 @@ -- -- /See:/ 'dataRetrievalPolicy' smart constructor. newtype DataRetrievalPolicy = DataRetrievalPolicy' - { _drpRules :: Maybe [DataRetrievalRule] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _drpRules :: Maybe [DataRetrievalRule] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DataRetrievalPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -93,11 +93,9 @@ -- * 'drpRules' - The policy rule. Although this is a list type, currently there must be only one rule, which contains a Strategy field and optionally a BytesPerHour field. dataRetrievalPolicy :: DataRetrievalPolicy -dataRetrievalPolicy = - DataRetrievalPolicy' - { _drpRules = Nothing - } +dataRetrievalPolicy = DataRetrievalPolicy' {_drpRules = Nothing} + -- | The policy rule. Although this is a list type, currently there must be only one rule, which contains a Strategy field and optionally a BytesPerHour field. drpRules :: Lens' DataRetrievalPolicy [DataRetrievalRule] drpRules = lens _drpRules (\ s a -> s{_drpRules = a}) . _Default . _Coerce; @@ -108,9 +106,9 @@ (\ x -> DataRetrievalPolicy' <$> (x .:? "Rules" .!= mempty)) -instance Hashable DataRetrievalPolicy +instance Hashable DataRetrievalPolicy where -instance NFData DataRetrievalPolicy +instance NFData DataRetrievalPolicy where instance ToJSON DataRetrievalPolicy where toJSON DataRetrievalPolicy'{..} @@ -122,10 +120,11 @@ -- -- /See:/ 'dataRetrievalRule' smart constructor. data DataRetrievalRule = DataRetrievalRule' - { _drrStrategy :: !(Maybe Text) - , _drrBytesPerHour :: !(Maybe Integer) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _drrStrategy :: !(Maybe Text) + , _drrBytesPerHour :: !(Maybe Integer) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DataRetrievalRule' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -136,11 +135,9 @@ dataRetrievalRule :: DataRetrievalRule dataRetrievalRule = - DataRetrievalRule' - { _drrStrategy = Nothing - , _drrBytesPerHour = Nothing - } + DataRetrievalRule' {_drrStrategy = Nothing, _drrBytesPerHour = Nothing} + -- | The type of data retrieval policy to set. Valid values: BytesPerHour|FreeTier|None drrStrategy :: Lens' DataRetrievalRule (Maybe Text) drrStrategy = lens _drrStrategy (\ s a -> s{_drrStrategy = a}); @@ -156,9 +153,9 @@ DataRetrievalRule' <$> (x .:? "Strategy") <*> (x .:? "BytesPerHour")) -instance Hashable DataRetrievalRule +instance Hashable DataRetrievalRule where -instance NFData DataRetrievalRule +instance NFData DataRetrievalRule where instance ToJSON DataRetrievalRule where toJSON DataRetrievalRule'{..} @@ -173,14 +170,15 @@ -- -- /See:/ 'describeVaultOutput' smart constructor. data DescribeVaultOutput = DescribeVaultOutput' - { _dvoVaultName :: !(Maybe Text) - , _dvoSizeInBytes :: !(Maybe Integer) - , _dvoLastInventoryDate :: !(Maybe Text) - , _dvoVaultARN :: !(Maybe Text) - , _dvoCreationDate :: !(Maybe Text) - , _dvoNumberOfArchives :: !(Maybe Integer) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dvoVaultName :: !(Maybe Text) + , _dvoSizeInBytes :: !(Maybe Integer) + , _dvoLastInventoryDate :: !(Maybe Text) + , _dvoVaultARN :: !(Maybe Text) + , _dvoCreationDate :: !(Maybe Text) + , _dvoNumberOfArchives :: !(Maybe Integer) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeVaultOutput' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -199,15 +197,16 @@ describeVaultOutput :: DescribeVaultOutput describeVaultOutput = - DescribeVaultOutput' - { _dvoVaultName = Nothing - , _dvoSizeInBytes = Nothing - , _dvoLastInventoryDate = Nothing - , _dvoVaultARN = Nothing - , _dvoCreationDate = Nothing - , _dvoNumberOfArchives = Nothing - } + DescribeVaultOutput' + { _dvoVaultName = Nothing + , _dvoSizeInBytes = Nothing + , _dvoLastInventoryDate = Nothing + , _dvoVaultARN = Nothing + , _dvoCreationDate = Nothing + , _dvoNumberOfArchives = Nothing + } + -- | The name of the vault. dvoVaultName :: Lens' DescribeVaultOutput (Maybe Text) dvoVaultName = lens _dvoVaultName (\ s a -> s{_dvoVaultName = a}); @@ -243,9 +242,9 @@ <*> (x .:? "CreationDate") <*> (x .:? "NumberOfArchives")) -instance Hashable DescribeVaultOutput +instance Hashable DescribeVaultOutput where -instance NFData DescribeVaultOutput +instance NFData DescribeVaultOutput where -- | Describes an Amazon Glacier job. -- @@ -253,26 +252,27 @@ -- -- /See:/ 'glacierJobDescription' smart constructor. data GlacierJobDescription = GlacierJobDescription' - { _gjdSHA256TreeHash :: !(Maybe Text) - , _gjdArchiveId :: !(Maybe Text) - , _gjdJobId :: !(Maybe Text) - , _gjdRetrievalByteRange :: !(Maybe Text) - , _gjdInventoryRetrievalParameters :: !(Maybe InventoryRetrievalJobDescription) - , _gjdAction :: !(Maybe ActionCode) - , _gjdJobDescription :: !(Maybe Text) - , _gjdSNSTopic :: !(Maybe Text) - , _gjdStatusMessage :: !(Maybe Text) - , _gjdVaultARN :: !(Maybe Text) - , _gjdTier :: !(Maybe Text) - , _gjdArchiveSHA256TreeHash :: !(Maybe Text) - , _gjdCreationDate :: !(Maybe Text) - , _gjdCompleted :: !(Maybe Bool) - , _gjdCompletionDate :: !(Maybe Text) - , _gjdInventorySizeInBytes :: !(Maybe Integer) - , _gjdArchiveSizeInBytes :: !(Maybe Integer) - , _gjdStatusCode :: !(Maybe StatusCode) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _gjdSHA256TreeHash :: !(Maybe Text) + , _gjdArchiveId :: !(Maybe Text) + , _gjdJobId :: !(Maybe Text) + , _gjdRetrievalByteRange :: !(Maybe Text) + , _gjdInventoryRetrievalParameters :: !(Maybe InventoryRetrievalJobDescription) + , _gjdAction :: !(Maybe ActionCode) + , _gjdJobDescription :: !(Maybe Text) + , _gjdSNSTopic :: !(Maybe Text) + , _gjdStatusMessage :: !(Maybe Text) + , _gjdVaultARN :: !(Maybe Text) + , _gjdTier :: !(Maybe Text) + , _gjdArchiveSHA256TreeHash :: !(Maybe Text) + , _gjdCreationDate :: !(Maybe Text) + , _gjdCompleted :: !(Maybe Bool) + , _gjdCompletionDate :: !(Maybe Text) + , _gjdInventorySizeInBytes :: !(Maybe Integer) + , _gjdArchiveSizeInBytes :: !(Maybe Integer) + , _gjdStatusCode :: !(Maybe StatusCode) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GlacierJobDescription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -315,27 +315,28 @@ glacierJobDescription :: GlacierJobDescription glacierJobDescription = - GlacierJobDescription' - { _gjdSHA256TreeHash = Nothing - , _gjdArchiveId = Nothing - , _gjdJobId = Nothing - , _gjdRetrievalByteRange = Nothing - , _gjdInventoryRetrievalParameters = Nothing - , _gjdAction = Nothing - , _gjdJobDescription = Nothing - , _gjdSNSTopic = Nothing - , _gjdStatusMessage = Nothing - , _gjdVaultARN = Nothing - , _gjdTier = Nothing - , _gjdArchiveSHA256TreeHash = Nothing - , _gjdCreationDate = Nothing - , _gjdCompleted = Nothing - , _gjdCompletionDate = Nothing - , _gjdInventorySizeInBytes = Nothing - , _gjdArchiveSizeInBytes = Nothing - , _gjdStatusCode = Nothing - } + GlacierJobDescription' + { _gjdSHA256TreeHash = Nothing + , _gjdArchiveId = Nothing + , _gjdJobId = Nothing + , _gjdRetrievalByteRange = Nothing + , _gjdInventoryRetrievalParameters = Nothing + , _gjdAction = Nothing + , _gjdJobDescription = Nothing + , _gjdSNSTopic = Nothing + , _gjdStatusMessage = Nothing + , _gjdVaultARN = Nothing + , _gjdTier = Nothing + , _gjdArchiveSHA256TreeHash = Nothing + , _gjdCreationDate = Nothing + , _gjdCompleted = Nothing + , _gjdCompletionDate = Nothing + , _gjdInventorySizeInBytes = Nothing + , _gjdArchiveSizeInBytes = Nothing + , _gjdStatusCode = Nothing + } + -- | For an ArchiveRetrieval job, it is the checksum of the archive. Otherwise, the value is null. The SHA256 tree hash value for the requested range of an archive. If the Initiate a Job request for an archive specified a tree-hash aligned range, then this field returns a value. For the specific case when the whole archive is retrieved, this value is the same as the ArchiveSHA256TreeHash value. This field is null in the following situations: * Archive retrieval jobs that specify a range that is not tree-hash aligned. * Archival jobs that specify a range that is equal to the whole archive and the job status is InProgress. * Inventory jobs. gjdSHA256TreeHash :: Lens' GlacierJobDescription (Maybe Text) gjdSHA256TreeHash = lens _gjdSHA256TreeHash (\ s a -> s{_gjdSHA256TreeHash = a}); @@ -431,9 +432,9 @@ <*> (x .:? "ArchiveSizeInBytes") <*> (x .:? "StatusCode")) -instance Hashable GlacierJobDescription +instance Hashable GlacierJobDescription where -instance NFData GlacierJobDescription +instance NFData GlacierJobDescription where -- | Describes the options for a range inventory retrieval job. -- @@ -441,13 +442,14 @@ -- -- /See:/ 'inventoryRetrievalJobDescription' smart constructor. data InventoryRetrievalJobDescription = InventoryRetrievalJobDescription' - { _irjdFormat :: !(Maybe Text) - , _irjdEndDate :: !(Maybe Text) - , _irjdStartDate :: !(Maybe Text) - , _irjdMarker :: !(Maybe Text) - , _irjdLimit :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _irjdFormat :: !(Maybe Text) + , _irjdEndDate :: !(Maybe Text) + , _irjdStartDate :: !(Maybe Text) + , _irjdMarker :: !(Maybe Text) + , _irjdLimit :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'InventoryRetrievalJobDescription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -464,14 +466,15 @@ inventoryRetrievalJobDescription :: InventoryRetrievalJobDescription inventoryRetrievalJobDescription = - InventoryRetrievalJobDescription' - { _irjdFormat = Nothing - , _irjdEndDate = Nothing - , _irjdStartDate = Nothing - , _irjdMarker = Nothing - , _irjdLimit = Nothing - } + InventoryRetrievalJobDescription' + { _irjdFormat = Nothing + , _irjdEndDate = Nothing + , _irjdStartDate = Nothing + , _irjdMarker = Nothing + , _irjdLimit = Nothing + } + -- | The output format for the vault inventory list, which is set by the __InitiateJob__ request when initiating a job to retrieve a vault inventory. Valid values are @CSV@ and @JSON@ . irjdFormat :: Lens' InventoryRetrievalJobDescription (Maybe Text) irjdFormat = lens _irjdFormat (\ s a -> s{_irjdFormat = a}); @@ -504,8 +507,10 @@ <*> (x .:? "Limit")) instance Hashable InventoryRetrievalJobDescription + where instance NFData InventoryRetrievalJobDescription + where -- | Provides options for specifying a range inventory retrieval job. -- @@ -513,12 +518,13 @@ -- -- /See:/ 'inventoryRetrievalJobInput' smart constructor. data InventoryRetrievalJobInput = InventoryRetrievalJobInput' - { _irjiEndDate :: !(Maybe Text) - , _irjiStartDate :: !(Maybe Text) - , _irjiMarker :: !(Maybe Text) - , _irjiLimit :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _irjiEndDate :: !(Maybe Text) + , _irjiStartDate :: !(Maybe Text) + , _irjiMarker :: !(Maybe Text) + , _irjiLimit :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'InventoryRetrievalJobInput' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -533,13 +539,14 @@ inventoryRetrievalJobInput :: InventoryRetrievalJobInput inventoryRetrievalJobInput = - InventoryRetrievalJobInput' - { _irjiEndDate = Nothing - , _irjiStartDate = Nothing - , _irjiMarker = Nothing - , _irjiLimit = Nothing - } + InventoryRetrievalJobInput' + { _irjiEndDate = Nothing + , _irjiStartDate = Nothing + , _irjiMarker = Nothing + , _irjiLimit = Nothing + } + -- | The end of the date range in UTC for vault inventory retrieval that includes archives created before this date. This value should be a string in the ISO 8601 date format, for example @2013-03-20T17:03:43Z@ . irjiEndDate :: Lens' InventoryRetrievalJobInput (Maybe Text) irjiEndDate = lens _irjiEndDate (\ s a -> s{_irjiEndDate = a}); @@ -556,9 +563,9 @@ irjiLimit :: Lens' InventoryRetrievalJobInput (Maybe Text) irjiLimit = lens _irjiLimit (\ s a -> s{_irjiLimit = a}); -instance Hashable InventoryRetrievalJobInput +instance Hashable InventoryRetrievalJobInput where -instance NFData InventoryRetrievalJobInput +instance NFData InventoryRetrievalJobInput where instance ToJSON InventoryRetrievalJobInput where toJSON InventoryRetrievalJobInput'{..} @@ -575,16 +582,17 @@ -- -- /See:/ 'jobParameters' smart constructor. data JobParameters = JobParameters' - { _jpArchiveId :: !(Maybe Text) - , _jpFormat :: !(Maybe Text) - , _jpRetrievalByteRange :: !(Maybe Text) - , _jpInventoryRetrievalParameters :: !(Maybe InventoryRetrievalJobInput) - , _jpSNSTopic :: !(Maybe Text) - , _jpTier :: !(Maybe Text) - , _jpType :: !(Maybe Text) - , _jpDescription :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _jpArchiveId :: !(Maybe Text) + , _jpFormat :: !(Maybe Text) + , _jpRetrievalByteRange :: !(Maybe Text) + , _jpInventoryRetrievalParameters :: !(Maybe InventoryRetrievalJobInput) + , _jpSNSTopic :: !(Maybe Text) + , _jpTier :: !(Maybe Text) + , _jpType :: !(Maybe Text) + , _jpDescription :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'JobParameters' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -607,17 +615,18 @@ jobParameters :: JobParameters jobParameters = - JobParameters' - { _jpArchiveId = Nothing - , _jpFormat = Nothing - , _jpRetrievalByteRange = Nothing - , _jpInventoryRetrievalParameters = Nothing - , _jpSNSTopic = Nothing - , _jpTier = Nothing - , _jpType = Nothing - , _jpDescription = Nothing - } + JobParameters' + { _jpArchiveId = Nothing + , _jpFormat = Nothing + , _jpRetrievalByteRange = Nothing + , _jpInventoryRetrievalParameters = Nothing + , _jpSNSTopic = Nothing + , _jpTier = Nothing + , _jpType = Nothing + , _jpDescription = Nothing + } + -- | The ID of the archive that you want to retrieve. This field is required only if @Type@ is set to archive-retrieval. An error occurs if you specify this request parameter for an inventory retrieval job request. jpArchiveId :: Lens' JobParameters (Maybe Text) jpArchiveId = lens _jpArchiveId (\ s a -> s{_jpArchiveId = a}); @@ -650,9 +659,9 @@ jpDescription :: Lens' JobParameters (Maybe Text) jpDescription = lens _jpDescription (\ s a -> s{_jpDescription = a}); -instance Hashable JobParameters +instance Hashable JobParameters where -instance NFData JobParameters +instance NFData JobParameters where instance ToJSON JobParameters where toJSON JobParameters'{..} @@ -673,10 +682,11 @@ -- -- /See:/ 'partListElement' smart constructor. data PartListElement = PartListElement' - { _pleSHA256TreeHash :: !(Maybe Text) - , _pleRangeInBytes :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _pleSHA256TreeHash :: !(Maybe Text) + , _pleRangeInBytes :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PartListElement' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -687,11 +697,9 @@ partListElement :: PartListElement partListElement = - PartListElement' - { _pleSHA256TreeHash = Nothing - , _pleRangeInBytes = Nothing - } + PartListElement' {_pleSHA256TreeHash = Nothing, _pleRangeInBytes = Nothing} + -- | The SHA256 tree hash value that Amazon Glacier calculated for the part. This field is never @null@ . pleSHA256TreeHash :: Lens' PartListElement (Maybe Text) pleSHA256TreeHash = lens _pleSHA256TreeHash (\ s a -> s{_pleSHA256TreeHash = a}); @@ -707,9 +715,9 @@ PartListElement' <$> (x .:? "SHA256TreeHash") <*> (x .:? "RangeInBytes")) -instance Hashable PartListElement +instance Hashable PartListElement where -instance NFData PartListElement +instance NFData PartListElement where -- | The definition for a provisioned capacity unit. -- @@ -717,11 +725,12 @@ -- -- /See:/ 'provisionedCapacityDescription' smart constructor. data ProvisionedCapacityDescription = ProvisionedCapacityDescription' - { _pcdCapacityId :: !(Maybe Text) - , _pcdStartDate :: !(Maybe Text) - , _pcdExpirationDate :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _pcdCapacityId :: !(Maybe Text) + , _pcdStartDate :: !(Maybe Text) + , _pcdExpirationDate :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProvisionedCapacityDescription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -734,12 +743,13 @@ provisionedCapacityDescription :: ProvisionedCapacityDescription provisionedCapacityDescription = - ProvisionedCapacityDescription' - { _pcdCapacityId = Nothing - , _pcdStartDate = Nothing - , _pcdExpirationDate = Nothing - } + ProvisionedCapacityDescription' + { _pcdCapacityId = Nothing + , _pcdStartDate = Nothing + , _pcdExpirationDate = Nothing + } + -- | The ID that identifies the provisioned capacity unit. pcdCapacityId :: Lens' ProvisionedCapacityDescription (Maybe Text) pcdCapacityId = lens _pcdCapacityId (\ s a -> s{_pcdCapacityId = a}); @@ -762,8 +772,9 @@ (x .:? "ExpirationDate")) instance Hashable ProvisionedCapacityDescription + where -instance NFData ProvisionedCapacityDescription +instance NFData ProvisionedCapacityDescription where -- | A list of in-progress multipart uploads for a vault. -- @@ -771,13 +782,14 @@ -- -- /See:/ 'uploadListElement' smart constructor. data UploadListElement = UploadListElement' - { _uleMultipartUploadId :: !(Maybe Text) - , _ulePartSizeInBytes :: !(Maybe Integer) - , _uleArchiveDescription :: !(Maybe Text) - , _uleVaultARN :: !(Maybe Text) - , _uleCreationDate :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _uleMultipartUploadId :: !(Maybe Text) + , _ulePartSizeInBytes :: !(Maybe Integer) + , _uleArchiveDescription :: !(Maybe Text) + , _uleVaultARN :: !(Maybe Text) + , _uleCreationDate :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UploadListElement' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -794,14 +806,15 @@ uploadListElement :: UploadListElement uploadListElement = - UploadListElement' - { _uleMultipartUploadId = Nothing - , _ulePartSizeInBytes = Nothing - , _uleArchiveDescription = Nothing - , _uleVaultARN = Nothing - , _uleCreationDate = Nothing - } + UploadListElement' + { _uleMultipartUploadId = Nothing + , _ulePartSizeInBytes = Nothing + , _uleArchiveDescription = Nothing + , _uleVaultARN = Nothing + , _uleCreationDate = Nothing + } + -- | The ID of a multipart upload. uleMultipartUploadId :: Lens' UploadListElement (Maybe Text) uleMultipartUploadId = lens _uleMultipartUploadId (\ s a -> s{_uleMultipartUploadId = a}); @@ -833,9 +846,9 @@ <*> (x .:? "VaultARN") <*> (x .:? "CreationDate")) -instance Hashable UploadListElement +instance Hashable UploadListElement where -instance NFData UploadListElement +instance NFData UploadListElement where -- | Contains the vault access policy. -- @@ -843,9 +856,10 @@ -- -- /See:/ 'vaultAccessPolicy' smart constructor. newtype VaultAccessPolicy = VaultAccessPolicy' - { _vapPolicy :: Maybe Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _vapPolicy :: Maybe Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'VaultAccessPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -853,11 +867,9 @@ -- * 'vapPolicy' - The vault access policy. vaultAccessPolicy :: VaultAccessPolicy -vaultAccessPolicy = - VaultAccessPolicy' - { _vapPolicy = Nothing - } +vaultAccessPolicy = VaultAccessPolicy' {_vapPolicy = Nothing} + -- | The vault access policy. vapPolicy :: Lens' VaultAccessPolicy (Maybe Text) vapPolicy = lens _vapPolicy (\ s a -> s{_vapPolicy = a}); @@ -867,9 +879,9 @@ = withObject "VaultAccessPolicy" (\ x -> VaultAccessPolicy' <$> (x .:? "Policy")) -instance Hashable VaultAccessPolicy +instance Hashable VaultAccessPolicy where -instance NFData VaultAccessPolicy +instance NFData VaultAccessPolicy where instance ToJSON VaultAccessPolicy where toJSON VaultAccessPolicy'{..} @@ -881,9 +893,10 @@ -- -- /See:/ 'vaultLockPolicy' smart constructor. newtype VaultLockPolicy = VaultLockPolicy' - { _vlpPolicy :: Maybe Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _vlpPolicy :: Maybe Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'VaultLockPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -891,18 +904,16 @@ -- * 'vlpPolicy' - The vault lock policy. vaultLockPolicy :: VaultLockPolicy -vaultLockPolicy = - VaultLockPolicy' - { _vlpPolicy = Nothing - } +vaultLockPolicy = VaultLockPolicy' {_vlpPolicy = Nothing} + -- | The vault lock policy. vlpPolicy :: Lens' VaultLockPolicy (Maybe Text) vlpPolicy = lens _vlpPolicy (\ s a -> s{_vlpPolicy = a}); -instance Hashable VaultLockPolicy +instance Hashable VaultLockPolicy where -instance NFData VaultLockPolicy +instance NFData VaultLockPolicy where instance ToJSON VaultLockPolicy where toJSON VaultLockPolicy'{..} @@ -914,10 +925,11 @@ -- -- /See:/ 'vaultNotificationConfig' smart constructor. data VaultNotificationConfig = VaultNotificationConfig' - { _vncSNSTopic :: !(Maybe Text) - , _vncEvents :: !(Maybe [Text]) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _vncSNSTopic :: !(Maybe Text) + , _vncEvents :: !(Maybe [Text]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'VaultNotificationConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -928,11 +940,9 @@ vaultNotificationConfig :: VaultNotificationConfig vaultNotificationConfig = - VaultNotificationConfig' - { _vncSNSTopic = Nothing - , _vncEvents = Nothing - } + VaultNotificationConfig' {_vncSNSTopic = Nothing, _vncEvents = Nothing} + -- | The Amazon Simple Notification Service (Amazon SNS) topic Amazon Resource Name (ARN). vncSNSTopic :: Lens' VaultNotificationConfig (Maybe Text) vncSNSTopic = lens _vncSNSTopic (\ s a -> s{_vncSNSTopic = a}); @@ -948,9 +958,9 @@ VaultNotificationConfig' <$> (x .:? "SNSTopic") <*> (x .:? "Events" .!= mempty)) -instance Hashable VaultNotificationConfig +instance Hashable VaultNotificationConfig where -instance NFData VaultNotificationConfig +instance NFData VaultNotificationConfig where instance ToJSON VaultNotificationConfig where toJSON VaultNotificationConfig'{..} diff --git a/gen/Network/AWS/Glacier/Types/Sum.hs b/gen/Network/AWS/Glacier/Types/Sum.hs --- a/gen/Network/AWS/Glacier/Types/Sum.hs +++ b/gen/Network/AWS/Glacier/Types/Sum.hs @@ -9,21 +9,22 @@ -- | -- Module : Network.AWS.Glacier.Types.Sum --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.Glacier.Types.Sum where -import Network.AWS.Prelude +import Network.AWS.Prelude data ActionCode - = ArchiveRetrieval - | InventoryRetrieval - deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic) + = ArchiveRetrieval + | InventoryRetrieval + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText ActionCode where parser = takeLowerText >>= \case "archiveretrieval" -> pure ArchiveRetrieval @@ -46,10 +47,11 @@ parseJSON = parseJSONText "ActionCode" data StatusCode - = Failed - | InProgress - | Succeeded - deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic) + = Failed + | InProgress + | Succeeded + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText StatusCode where parser = takeLowerText >>= \case diff --git a/gen/Network/AWS/Glacier/UploadArchive.hs b/gen/Network/AWS/Glacier/UploadArchive.hs --- a/gen/Network/AWS/Glacier/UploadArchive.hs +++ b/gen/Network/AWS/Glacier/UploadArchive.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.UploadArchive --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -54,12 +54,12 @@ , acoLocation ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Provides options to add an archive to a vault. -- @@ -67,13 +67,14 @@ -- -- /See:/ 'uploadArchive' smart constructor. data UploadArchive = UploadArchive' - { _uaChecksum :: !(Maybe Text) - , _uaArchiveDescription :: !(Maybe Text) - , _uaVaultName :: !Text - , _uaAccountId :: !Text - , _uaBody :: !HashedBody - } deriving (Show,Generic) + { _uaChecksum :: !(Maybe Text) + , _uaArchiveDescription :: !(Maybe Text) + , _uaVaultName :: !Text + , _uaAccountId :: !Text + , _uaBody :: !HashedBody + } deriving (Show, Generic) + -- | Creates a value of 'UploadArchive' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -93,13 +94,14 @@ -> HashedBody -- ^ 'uaBody' -> UploadArchive uploadArchive pVaultName_ pAccountId_ pBody_ = - UploadArchive' - { _uaChecksum = Nothing - , _uaArchiveDescription = Nothing - , _uaVaultName = pVaultName_ - , _uaAccountId = pAccountId_ - , _uaBody = pBody_ - } + UploadArchive' + { _uaChecksum = Nothing + , _uaArchiveDescription = Nothing + , _uaVaultName = pVaultName_ + , _uaAccountId = pAccountId_ + , _uaBody = pBody_ + } + -- | The SHA256 tree hash of the data being uploaded. uaChecksum :: Lens' UploadArchive (Maybe Text) diff --git a/gen/Network/AWS/Glacier/UploadMultipartPart.hs b/gen/Network/AWS/Glacier/UploadMultipartPart.hs --- a/gen/Network/AWS/Glacier/UploadMultipartPart.hs +++ b/gen/Network/AWS/Glacier/UploadMultipartPart.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Glacier.UploadMultipartPart --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -58,12 +58,12 @@ , umprsResponseStatus ) where -import Network.AWS.Glacier.Types -import Network.AWS.Glacier.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Glacier.Types +import Network.AWS.Glacier.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Provides options to upload a part of an archive in a multipart upload operation. -- @@ -71,14 +71,15 @@ -- -- /See:/ 'uploadMultipartPart' smart constructor. data UploadMultipartPart = UploadMultipartPart' - { _umpChecksum :: !(Maybe Text) - , _umpRange :: !(Maybe Text) - , _umpAccountId :: !Text - , _umpVaultName :: !Text - , _umpUploadId :: !Text - , _umpBody :: !HashedBody - } deriving (Show,Generic) + { _umpChecksum :: !(Maybe Text) + , _umpRange :: !(Maybe Text) + , _umpAccountId :: !Text + , _umpVaultName :: !Text + , _umpUploadId :: !Text + , _umpBody :: !HashedBody + } deriving (Show, Generic) + -- | Creates a value of 'UploadMultipartPart' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -101,15 +102,16 @@ -> HashedBody -- ^ 'umpBody' -> UploadMultipartPart uploadMultipartPart pAccountId_ pVaultName_ pUploadId_ pBody_ = - UploadMultipartPart' - { _umpChecksum = Nothing - , _umpRange = Nothing - , _umpAccountId = pAccountId_ - , _umpVaultName = pVaultName_ - , _umpUploadId = pUploadId_ - , _umpBody = pBody_ - } + UploadMultipartPart' + { _umpChecksum = Nothing + , _umpRange = Nothing + , _umpAccountId = pAccountId_ + , _umpVaultName = pVaultName_ + , _umpUploadId = pUploadId_ + , _umpBody = pBody_ + } + -- | The SHA256 tree hash of the data being uploaded. umpChecksum :: Lens' UploadMultipartPart (Maybe Text) umpChecksum = lens _umpChecksum (\ s a -> s{_umpChecksum = a}); @@ -170,10 +172,11 @@ -- -- /See:/ 'uploadMultipartPartResponse' smart constructor. data UploadMultipartPartResponse = UploadMultipartPartResponse' - { _umprsChecksum :: !(Maybe Text) - , _umprsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _umprsChecksum :: !(Maybe Text) + , _umprsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UploadMultipartPartResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -185,11 +188,10 @@ :: Int -- ^ 'umprsResponseStatus' -> UploadMultipartPartResponse uploadMultipartPartResponse pResponseStatus_ = - UploadMultipartPartResponse' - { _umprsChecksum = Nothing - , _umprsResponseStatus = pResponseStatus_ - } + UploadMultipartPartResponse' + {_umprsChecksum = Nothing, _umprsResponseStatus = pResponseStatus_} + -- | The SHA256 tree hash that Amazon Glacier computed for the uploaded part. umprsChecksum :: Lens' UploadMultipartPartResponse (Maybe Text) umprsChecksum = lens _umprsChecksum (\ s a -> s{_umprsChecksum = a}); @@ -198,4 +200,4 @@ umprsResponseStatus :: Lens' UploadMultipartPartResponse Int umprsResponseStatus = lens _umprsResponseStatus (\ s a -> s{_umprsResponseStatus = a}); -instance NFData UploadMultipartPartResponse +instance NFData UploadMultipartPartResponse where diff --git a/gen/Network/AWS/Glacier/Waiters.hs b/gen/Network/AWS/Glacier/Waiters.hs --- a/gen/Network/AWS/Glacier/Waiters.hs +++ b/gen/Network/AWS/Glacier/Waiters.hs @@ -7,15 +7,45 @@ -- | -- Module : Network.AWS.Glacier.Waiters --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.Glacier.Waiters where -import Network.AWS.Glacier.Types -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Waiter +import Network.AWS.Glacier.DescribeVault +import Network.AWS.Glacier.DescribeVault +import Network.AWS.Glacier.Types +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Waiter + +-- | Polls 'Network.AWS.Glacier.DescribeVault' every 3 seconds until a successful state is reached. An error is returned after 15 failed checks. +vaultNotExists :: Wait DescribeVault +vaultNotExists = + Wait + { _waitName = "VaultNotExists" + , _waitAttempts = 15 + , _waitDelay = 3 + , _waitAcceptors = + [ matchStatus 200 AcceptRetry + , matchError "ResourceNotFoundException" AcceptSuccess + ] + } + + +-- | Polls 'Network.AWS.Glacier.DescribeVault' every 3 seconds until a successful state is reached. An error is returned after 15 failed checks. +vaultExists :: Wait DescribeVault +vaultExists = + Wait + { _waitName = "VaultExists" + , _waitAttempts = 15 + , _waitDelay = 3 + , _waitAcceptors = + [ matchStatus 200 AcceptSuccess + , matchError "ResourceNotFoundException" AcceptRetry + ] + } + diff --git a/test/Main.hs b/test/Main.hs --- a/test/Main.hs +++ b/test/Main.hs @@ -2,9 +2,9 @@ -- | -- Module : Main --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- diff --git a/test/Test/AWS/Gen/Glacier.hs b/test/Test/AWS/Gen/Glacier.hs --- a/test/Test/AWS/Gen/Glacier.hs +++ b/test/Test/AWS/Gen/Glacier.hs @@ -5,20 +5,20 @@ -- | -- Module : Test.AWS.Gen.Glacier --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Test.AWS.Gen.Glacier where import Data.Proxy +import Network.AWS.Glacier import Test.AWS.Fixture +import Test.AWS.Glacier.Internal import Test.AWS.Prelude import Test.Tasty -import Network.AWS.Glacier -import Test.AWS.Glacier.Internal -- Auto-generated: the actual test selection needs to be manually placed into -- the top-level so that real test data can be incrementally added.