{-# 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 #-}
module Network.AWS.SecretsManager.RestoreSecret
(
restoreSecret
, RestoreSecret
, rSecretId
, restoreSecretResponse
, RestoreSecretResponse
, rrsARN
, rrsName
, rrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SecretsManager.Types
import Network.AWS.SecretsManager.Types.Product
newtype RestoreSecret = RestoreSecret'
{ _rSecretId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
restoreSecret
:: Text
-> RestoreSecret
restoreSecret pSecretId_ = RestoreSecret' {_rSecretId = pSecretId_}
rSecretId :: Lens' RestoreSecret Text
rSecretId = lens _rSecretId (\ s a -> s{_rSecretId = a})
instance AWSRequest RestoreSecret where
type Rs RestoreSecret = RestoreSecretResponse
request = postJSON secretsManager
response
= receiveJSON
(\ s h x ->
RestoreSecretResponse' <$>
(x .?> "ARN") <*> (x .?> "Name") <*>
(pure (fromEnum s)))
instance Hashable RestoreSecret where
instance NFData RestoreSecret where
instance ToHeaders RestoreSecret where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("secretsmanager.RestoreSecret" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON RestoreSecret where
toJSON RestoreSecret'{..}
= object
(catMaybes [Just ("SecretId" .= _rSecretId)])
instance ToPath RestoreSecret where
toPath = const "/"
instance ToQuery RestoreSecret where
toQuery = const mempty
data RestoreSecretResponse = RestoreSecretResponse'
{ _rrsARN :: !(Maybe Text)
, _rrsName :: !(Maybe Text)
, _rrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
restoreSecretResponse
:: Int
-> RestoreSecretResponse
restoreSecretResponse pResponseStatus_ =
RestoreSecretResponse'
{ _rrsARN = Nothing
, _rrsName = Nothing
, _rrsResponseStatus = pResponseStatus_
}
rrsARN :: Lens' RestoreSecretResponse (Maybe Text)
rrsARN = lens _rrsARN (\ s a -> s{_rrsARN = a})
rrsName :: Lens' RestoreSecretResponse (Maybe Text)
rrsName = lens _rrsName (\ s a -> s{_rrsName = a})
rrsResponseStatus :: Lens' RestoreSecretResponse Int
rrsResponseStatus = lens _rrsResponseStatus (\ s a -> s{_rrsResponseStatus = a})
instance NFData RestoreSecretResponse where