amazonka-kms 1.3.6 → 1.3.7
raw patch · 36 files changed
+86/−15 lines, 36 filesdep −lensdep ~amazonka-coredep ~amazonka-kmsdep ~amazonka-testPVP ok
version bump matches the API change (PVP)
Dependencies removed: lens
Dependency ranges changed: amazonka-core, amazonka-kms, amazonka-test
API changes (from Hackage documentation)
+ Network.AWS.KMS.ListAliases: instance Network.AWS.Pager.AWSPager Network.AWS.KMS.ListAliases.ListAliases
+ Network.AWS.KMS.ListGrants: instance Network.AWS.Pager.AWSPager Network.AWS.KMS.ListGrants.ListGrants
+ Network.AWS.KMS.ListKeyPolicies: instance Network.AWS.Pager.AWSPager Network.AWS.KMS.ListKeyPolicies.ListKeyPolicies
+ Network.AWS.KMS.ListKeys: instance Network.AWS.Pager.AWSPager Network.AWS.KMS.ListKeys.ListKeys
Files
- README.md +1/−1
- amazonka-kms.cabal +5/−6
- gen/Network/AWS/KMS.hs +4/−4
- gen/Network/AWS/KMS/CancelKeyDeletion.hs +1/−0
- gen/Network/AWS/KMS/CreateAlias.hs +1/−0
- gen/Network/AWS/KMS/CreateGrant.hs +1/−0
- gen/Network/AWS/KMS/CreateKey.hs +1/−0
- gen/Network/AWS/KMS/Decrypt.hs +1/−0
- gen/Network/AWS/KMS/DeleteAlias.hs +1/−0
- gen/Network/AWS/KMS/DescribeKey.hs +1/−0
- gen/Network/AWS/KMS/DisableKey.hs +1/−0
- gen/Network/AWS/KMS/DisableKeyRotation.hs +1/−0
- gen/Network/AWS/KMS/EnableKey.hs +1/−0
- gen/Network/AWS/KMS/EnableKeyRotation.hs +1/−0
- gen/Network/AWS/KMS/Encrypt.hs +1/−0
- gen/Network/AWS/KMS/GenerateDataKey.hs +1/−0
- gen/Network/AWS/KMS/GenerateDataKeyWithoutPlaintext.hs +1/−0
- gen/Network/AWS/KMS/GenerateRandom.hs +1/−0
- gen/Network/AWS/KMS/GetKeyPolicy.hs +1/−0
- gen/Network/AWS/KMS/GetKeyRotationStatus.hs +1/−0
- gen/Network/AWS/KMS/ListAliases.hs +11/−0
- gen/Network/AWS/KMS/ListGrants.hs +11/−0
- gen/Network/AWS/KMS/ListKeyPolicies.hs +11/−0
- gen/Network/AWS/KMS/ListKeys.hs +11/−0
- gen/Network/AWS/KMS/ListRetirableGrants.hs +1/−0
- gen/Network/AWS/KMS/PutKeyPolicy.hs +1/−0
- gen/Network/AWS/KMS/ReEncrypt.hs +1/−0
- gen/Network/AWS/KMS/RetireGrant.hs +1/−0
- gen/Network/AWS/KMS/RevokeGrant.hs +1/−0
- gen/Network/AWS/KMS/ScheduleKeyDeletion.hs +1/−0
- gen/Network/AWS/KMS/Types.hs +1/−0
- gen/Network/AWS/KMS/Types/Product.hs +1/−0
- gen/Network/AWS/KMS/Types/Sum.hs +4/−4
- gen/Network/AWS/KMS/UpdateAlias.hs +1/−0
- gen/Network/AWS/KMS/UpdateKeyDescription.hs +1/−0
- gen/Network/AWS/KMS/Waiters.hs +1/−0
README.md view
@@ -8,7 +8,7 @@ ## Version -`1.3.6`+`1.3.7` ## Description
amazonka-kms.cabal view
@@ -1,5 +1,5 @@ name: amazonka-kms-version: 1.3.6+version: 1.3.7 synopsis: Amazon Key Management Service SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues@@ -150,7 +150,7 @@ , Network.AWS.KMS.Types.Sum build-depends:- amazonka-core == 1.3.6.*+ amazonka-core == 1.3.7.* , base >= 4.7 && < 5 test-suite amazonka-kms-test@@ -170,12 +170,11 @@ , Test.AWS.KMS.Internal build-depends:- amazonka-core == 1.3.6.*- , amazonka-test == 1.3.6.*- , amazonka-kms == 1.3.6.*+ amazonka-core == 1.3.7.*+ , amazonka-test == 1.3.7.*+ , amazonka-kms == 1.3.7.* , base , bytestring- , lens , tasty , tasty-hunit , text
gen/Network/AWS/KMS.hs view
@@ -154,7 +154,7 @@ -- ** Encrypt , module Network.AWS.KMS.Encrypt - -- ** ListGrants+ -- ** ListGrants (Paginated) , module Network.AWS.KMS.ListGrants -- ** DisableKeyRotation@@ -172,7 +172,7 @@ -- ** CreateGrant , module Network.AWS.KMS.CreateGrant - -- ** ListAliases+ -- ** ListAliases (Paginated) , module Network.AWS.KMS.ListAliases -- ** ListRetirableGrants@@ -190,7 +190,7 @@ -- ** RetireGrant , module Network.AWS.KMS.RetireGrant - -- ** ListKeys+ -- ** ListKeys (Paginated) , module Network.AWS.KMS.ListKeys -- ** GetKeyRotationStatus@@ -220,7 +220,7 @@ -- ** ReEncrypt , module Network.AWS.KMS.ReEncrypt - -- ** ListKeyPolicies+ -- ** ListKeyPolicies (Paginated) , module Network.AWS.KMS.ListKeyPolicies -- ** ScheduleKeyDeletion
gen/Network/AWS/KMS/CancelKeyDeletion.hs view
@@ -46,6 +46,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/CreateAlias.hs view
@@ -49,6 +49,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/CreateGrant.hs view
@@ -51,6 +51,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/CreateKey.hs view
@@ -45,6 +45,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/Decrypt.hs view
@@ -56,6 +56,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/DeleteAlias.hs view
@@ -37,6 +37,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/DescribeKey.hs view
@@ -40,6 +40,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/DisableKey.hs view
@@ -40,6 +40,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/DisableKeyRotation.hs view
@@ -36,6 +36,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/EnableKey.hs view
@@ -36,6 +36,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/EnableKeyRotation.hs view
@@ -36,6 +36,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/Encrypt.hs view
@@ -64,6 +64,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/GenerateDataKey.hs view
@@ -78,6 +78,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/GenerateDataKeyWithoutPlaintext.hs view
@@ -48,6 +48,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/GenerateRandom.hs view
@@ -39,6 +39,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/GetKeyPolicy.hs view
@@ -40,6 +40,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/GetKeyRotationStatus.hs view
@@ -40,6 +40,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/ListAliases.hs view
@@ -21,6 +21,8 @@ -- Lists all of the key aliases in the account. -- -- /See:/ <http://docs.aws.amazon.com/kms/latest/APIReference/API_ListAliases.html AWS API Reference> for ListAliases.+--+-- This operation returns paginated results. module Network.AWS.KMS.ListAliases ( -- * Creating a Request@@ -42,6 +44,8 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -81,6 +85,13 @@ -- 100, inclusive. If you do not include a value, it defaults to 50. laLimit :: Lens' ListAliases (Maybe Natural) laLimit = lens _laLimit (\ s a -> s{_laLimit = a}) . mapping _Nat;++instance AWSPager ListAliases where+ page rq rs+ | stop (rs ^. larsTruncated) = Nothing+ | isNothing (rs ^. larsNextMarker) = Nothing+ | otherwise =+ Just $ rq & laMarker .~ rs ^. larsNextMarker instance AWSRequest ListAliases where type Rs ListAliases = ListAliasesResponse
gen/Network/AWS/KMS/ListGrants.hs view
@@ -21,6 +21,8 @@ -- List the grants for a specified key. -- -- /See:/ <http://docs.aws.amazon.com/kms/latest/APIReference/API_ListGrants.html AWS API Reference> for ListGrants.+--+-- This operation returns paginated results. module Network.AWS.KMS.ListGrants ( -- * Creating a Request@@ -42,6 +44,8 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -96,6 +100,13 @@ -- 12345678-1234-1234-1234-123456789012 lgKeyId :: Lens' ListGrants Text lgKeyId = lens _lgKeyId (\ s a -> s{_lgKeyId = a});++instance AWSPager ListGrants where+ page rq rs+ | stop (rs ^. lgTruncated) = Nothing+ | isNothing (rs ^. lgNextMarker) = Nothing+ | otherwise =+ Just $ rq & lgMarker .~ rs ^. lgNextMarker instance AWSRequest ListGrants where type Rs ListGrants = ListGrantsResponse
gen/Network/AWS/KMS/ListKeyPolicies.hs view
@@ -21,6 +21,8 @@ -- Retrieves a list of policies attached to a key. -- -- /See:/ <http://docs.aws.amazon.com/kms/latest/APIReference/API_ListKeyPolicies.html AWS API Reference> for ListKeyPolicies.+--+-- This operation returns paginated results. module Network.AWS.KMS.ListKeyPolicies ( -- * Creating a Request@@ -43,6 +45,8 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -103,6 +107,13 @@ -- - Alias Name Example - alias\/MyAliasName lkpKeyId :: Lens' ListKeyPolicies Text lkpKeyId = lens _lkpKeyId (\ s a -> s{_lkpKeyId = a});++instance AWSPager ListKeyPolicies where+ page rq rs+ | stop (rs ^. lkprsTruncated) = Nothing+ | isNothing (rs ^. lkprsNextMarker) = Nothing+ | otherwise =+ Just $ rq & lkpMarker .~ rs ^. lkprsNextMarker instance AWSRequest ListKeyPolicies where type Rs ListKeyPolicies = ListKeyPoliciesResponse
gen/Network/AWS/KMS/ListKeys.hs view
@@ -21,6 +21,8 @@ -- Lists the customer master keys. -- -- /See:/ <http://docs.aws.amazon.com/kms/latest/APIReference/API_ListKeys.html AWS API Reference> for ListKeys.+--+-- This operation returns paginated results. module Network.AWS.KMS.ListKeys ( -- * Creating a Request@@ -42,6 +44,8 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -81,6 +85,13 @@ -- 1000, inclusive. If you do not include a value, it defaults to 100. lkLimit :: Lens' ListKeys (Maybe Natural) lkLimit = lens _lkLimit (\ s a -> s{_lkLimit = a}) . mapping _Nat;++instance AWSPager ListKeys where+ page rq rs+ | stop (rs ^. lkrsTruncated) = Nothing+ | isNothing (rs ^. lkrsNextMarker) = Nothing+ | otherwise =+ Just $ rq & lkMarker .~ rs ^. lkrsNextMarker instance AWSRequest ListKeys where type Rs ListKeys = ListKeysResponse
gen/Network/AWS/KMS/ListRetirableGrants.hs view
@@ -46,6 +46,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/PutKeyPolicy.hs view
@@ -38,6 +38,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/ReEncrypt.hs view
@@ -57,6 +57,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/RetireGrant.hs view
@@ -51,6 +51,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/RevokeGrant.hs view
@@ -38,6 +38,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/ScheduleKeyDeletion.hs view
@@ -57,6 +57,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/Types.hs view
@@ -101,6 +101,7 @@ import Network.AWS.KMS.Types.Product import Network.AWS.KMS.Types.Sum+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Sign.V4
gen/Network/AWS/KMS/Types/Product.hs view
@@ -18,6 +18,7 @@ module Network.AWS.KMS.Types.Product where import Network.AWS.KMS.Types.Sum+import Network.AWS.Lens import Network.AWS.Prelude -- | Contains information about an alias.
gen/Network/AWS/KMS/Types/Sum.hs view
@@ -22,7 +22,7 @@ data DataKeySpec = AES128 | AES256- deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+ deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic) instance FromText DataKeySpec where parser = takeLowerText >>= \case@@ -54,7 +54,7 @@ | ReEncryptFrom | ReEncryptTo | RetireGrant- deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+ deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic) instance FromText GrantOperation where parser = takeLowerText >>= \case@@ -97,7 +97,7 @@ = Disabled | Enabled | PendingDeletion- deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+ deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic) instance FromText KeyState where parser = takeLowerText >>= \case@@ -123,7 +123,7 @@ data KeyUsageType = EncryptDecrypt- deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+ deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic) instance FromText KeyUsageType where parser = takeLowerText >>= \case
gen/Network/AWS/KMS/UpdateAlias.hs view
@@ -50,6 +50,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/UpdateKeyDescription.hs view
@@ -37,6 +37,7 @@ import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response
gen/Network/AWS/KMS/Waiters.hs view
@@ -16,5 +16,6 @@ module Network.AWS.KMS.Waiters where import Network.AWS.KMS.Types+import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Waiter