{-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE TypeFamilies #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} {-# OPTIONS_GHC -fno-warn-unused-binds #-} {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- Derived from AWS service descriptions, licensed under Apache 2.0. -- | -- Module : Network.AWS.KMS.GetKeyRotationStatus -- Copyright : (c) 2013-2015 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Retrieves a Boolean value that indicates whether key rotation is enabled -- for the specified key. -- -- /See:/ for GetKeyRotationStatus. module Network.AWS.KMS.GetKeyRotationStatus ( -- * Creating a Request getKeyRotationStatus , GetKeyRotationStatus -- * Request Lenses , gkrsKeyId -- * Destructuring the Response , getKeyRotationStatusResponse , GetKeyRotationStatusResponse -- * Response Lenses , gkrsrsKeyRotationEnabled , gkrsrsResponseStatus ) where import Network.AWS.KMS.Types import Network.AWS.KMS.Types.Product import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response -- | /See:/ 'getKeyRotationStatus' smart constructor. newtype GetKeyRotationStatus = GetKeyRotationStatus' { _gkrsKeyId :: Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetKeyRotationStatus' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'gkrsKeyId' getKeyRotationStatus :: Text -- ^ 'gkrsKeyId' -> GetKeyRotationStatus getKeyRotationStatus pKeyId_ = GetKeyRotationStatus' { _gkrsKeyId = pKeyId_ } -- | A unique identifier for the customer master key. This value can be a -- globally unique identifier or the fully specified ARN to a key. -- -- - Key ARN Example - -- arn:aws:kms:us-east-1:123456789012:key\/12345678-1234-1234-1234-123456789012 -- - Globally Unique Key ID Example - -- 12345678-1234-1234-1234-123456789012 gkrsKeyId :: Lens' GetKeyRotationStatus Text gkrsKeyId = lens _gkrsKeyId (\ s a -> s{_gkrsKeyId = a}); instance AWSRequest GetKeyRotationStatus where type Rs GetKeyRotationStatus = GetKeyRotationStatusResponse request = postJSON kMS response = receiveJSON (\ s h x -> GetKeyRotationStatusResponse' <$> (x .?> "KeyRotationEnabled") <*> (pure (fromEnum s))) instance ToHeaders GetKeyRotationStatus where toHeaders = const (mconcat ["X-Amz-Target" =# ("TrentService.GetKeyRotationStatus" :: ByteString), "Content-Type" =# ("application/x-amz-json-1.1" :: ByteString)]) instance ToJSON GetKeyRotationStatus where toJSON GetKeyRotationStatus'{..} = object (catMaybes [Just ("KeyId" .= _gkrsKeyId)]) instance ToPath GetKeyRotationStatus where toPath = const "/" instance ToQuery GetKeyRotationStatus where toQuery = const mempty -- | /See:/ 'getKeyRotationStatusResponse' smart constructor. data GetKeyRotationStatusResponse = GetKeyRotationStatusResponse' { _gkrsrsKeyRotationEnabled :: !(Maybe Bool) , _gkrsrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetKeyRotationStatusResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'gkrsrsKeyRotationEnabled' -- -- * 'gkrsrsResponseStatus' getKeyRotationStatusResponse :: Int -- ^ 'gkrsrsResponseStatus' -> GetKeyRotationStatusResponse getKeyRotationStatusResponse pResponseStatus_ = GetKeyRotationStatusResponse' { _gkrsrsKeyRotationEnabled = Nothing , _gkrsrsResponseStatus = pResponseStatus_ } -- | A Boolean value that specifies whether key rotation is enabled. gkrsrsKeyRotationEnabled :: Lens' GetKeyRotationStatusResponse (Maybe Bool) gkrsrsKeyRotationEnabled = lens _gkrsrsKeyRotationEnabled (\ s a -> s{_gkrsrsKeyRotationEnabled = a}); -- | The response status code. gkrsrsResponseStatus :: Lens' GetKeyRotationStatusResponse Int gkrsrsResponseStatus = lens _gkrsrsResponseStatus (\ s a -> s{_gkrsrsResponseStatus = a});