module Network.AWS.KMS.UpdateKeyDescription
(
UpdateKeyDescription
, updateKeyDescription
, ukdDescription
, ukdKeyId
, UpdateKeyDescriptionResponse
, updateKeyDescriptionResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.KMS.Types
import qualified GHC.Exts
data UpdateKeyDescription = UpdateKeyDescription
{ _ukdDescription :: Text
, _ukdKeyId :: Text
} deriving (Eq, Ord, Show)
updateKeyDescription :: Text
-> Text
-> UpdateKeyDescription
updateKeyDescription p1 p2 = UpdateKeyDescription
{ _ukdKeyId = p1
, _ukdDescription = p2
}
ukdDescription :: Lens' UpdateKeyDescription Text
ukdDescription = lens _ukdDescription (\s a -> s { _ukdDescription = a })
ukdKeyId :: Lens' UpdateKeyDescription Text
ukdKeyId = lens _ukdKeyId (\s a -> s { _ukdKeyId = a })
data UpdateKeyDescriptionResponse = UpdateKeyDescriptionResponse
deriving (Eq, Ord, Show, Generic)
updateKeyDescriptionResponse :: UpdateKeyDescriptionResponse
updateKeyDescriptionResponse = UpdateKeyDescriptionResponse
instance ToPath UpdateKeyDescription where
toPath = const "/"
instance ToQuery UpdateKeyDescription where
toQuery = const mempty
instance ToHeaders UpdateKeyDescription
instance ToJSON UpdateKeyDescription where
toJSON UpdateKeyDescription{..} = object
[ "KeyId" .= _ukdKeyId
, "Description" .= _ukdDescription
]
instance AWSRequest UpdateKeyDescription where
type Sv UpdateKeyDescription = KMS
type Rs UpdateKeyDescription = UpdateKeyDescriptionResponse
request = post "UpdateKeyDescription"
response = nullResponse UpdateKeyDescriptionResponse