module Network.AWS.KMS.ReEncrypt
(
ReEncrypt
, reEncrypt
, reCiphertextBlob
, reDestinationEncryptionContext
, reDestinationKeyId
, reGrantTokens
, reSourceEncryptionContext
, ReEncryptResponse
, reEncryptResponse
, rerCiphertextBlob
, rerKeyId
, rerSourceKeyId
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.KMS.Types
import qualified GHC.Exts
data ReEncrypt = ReEncrypt
{ _reCiphertextBlob :: Base64
, _reDestinationEncryptionContext :: Map Text Text
, _reDestinationKeyId :: Text
, _reGrantTokens :: List "GrantTokens" Text
, _reSourceEncryptionContext :: Map Text Text
} deriving (Eq, Show)
reEncrypt :: Base64
-> Text
-> ReEncrypt
reEncrypt p1 p2 = ReEncrypt
{ _reCiphertextBlob = p1
, _reDestinationKeyId = p2
, _reSourceEncryptionContext = mempty
, _reDestinationEncryptionContext = mempty
, _reGrantTokens = mempty
}
reCiphertextBlob :: Lens' ReEncrypt Base64
reCiphertextBlob = lens _reCiphertextBlob (\s a -> s { _reCiphertextBlob = a })
reDestinationEncryptionContext :: Lens' ReEncrypt (HashMap Text Text)
reDestinationEncryptionContext =
lens _reDestinationEncryptionContext
(\s a -> s { _reDestinationEncryptionContext = a })
. _Map
reDestinationKeyId :: Lens' ReEncrypt Text
reDestinationKeyId =
lens _reDestinationKeyId (\s a -> s { _reDestinationKeyId = a })
reGrantTokens :: Lens' ReEncrypt [Text]
reGrantTokens = lens _reGrantTokens (\s a -> s { _reGrantTokens = a }) . _List
reSourceEncryptionContext :: Lens' ReEncrypt (HashMap Text Text)
reSourceEncryptionContext =
lens _reSourceEncryptionContext
(\s a -> s { _reSourceEncryptionContext = a })
. _Map
data ReEncryptResponse = ReEncryptResponse
{ _rerCiphertextBlob :: Maybe Base64
, _rerKeyId :: Maybe Text
, _rerSourceKeyId :: Maybe Text
} deriving (Eq, Show)
reEncryptResponse :: ReEncryptResponse
reEncryptResponse = ReEncryptResponse
{ _rerCiphertextBlob = Nothing
, _rerSourceKeyId = Nothing
, _rerKeyId = Nothing
}
rerCiphertextBlob :: Lens' ReEncryptResponse (Maybe Base64)
rerCiphertextBlob =
lens _rerCiphertextBlob (\s a -> s { _rerCiphertextBlob = a })
rerKeyId :: Lens' ReEncryptResponse (Maybe Text)
rerKeyId = lens _rerKeyId (\s a -> s { _rerKeyId = a })
rerSourceKeyId :: Lens' ReEncryptResponse (Maybe Text)
rerSourceKeyId = lens _rerSourceKeyId (\s a -> s { _rerSourceKeyId = a })
instance ToPath ReEncrypt where
toPath = const "/"
instance ToQuery ReEncrypt where
toQuery = const mempty
instance ToHeaders ReEncrypt
instance ToJSON ReEncrypt where
toJSON ReEncrypt{..} = object
[ "CiphertextBlob" .= _reCiphertextBlob
, "SourceEncryptionContext" .= _reSourceEncryptionContext
, "DestinationKeyId" .= _reDestinationKeyId
, "DestinationEncryptionContext" .= _reDestinationEncryptionContext
, "GrantTokens" .= _reGrantTokens
]
instance AWSRequest ReEncrypt where
type Sv ReEncrypt = KMS
type Rs ReEncrypt = ReEncryptResponse
request = post "ReEncrypt"
response = jsonResponse
instance FromJSON ReEncryptResponse where
parseJSON = withObject "ReEncryptResponse" $ \o -> ReEncryptResponse
<$> o .:? "CiphertextBlob"
<*> o .:? "KeyId"
<*> o .:? "SourceKeyId"