module Network.AWS.KMS.GenerateRandom
(
generateRandom
, GenerateRandom
, grNumberOfBytes
, generateRandomResponse
, GenerateRandomResponse
, grrsPlaintext
, grrsStatus
) where
import Network.AWS.KMS.Types
import Network.AWS.KMS.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype GenerateRandom = GenerateRandom'
{ _grNumberOfBytes :: Maybe Nat
} deriving (Eq,Read,Show,Data,Typeable,Generic)
generateRandom
:: GenerateRandom
generateRandom =
GenerateRandom'
{ _grNumberOfBytes = Nothing
}
grNumberOfBytes :: Lens' GenerateRandom (Maybe Natural)
grNumberOfBytes = lens _grNumberOfBytes (\ s a -> s{_grNumberOfBytes = a}) . mapping _Nat;
instance AWSRequest GenerateRandom where
type Sv GenerateRandom = KMS
type Rs GenerateRandom = GenerateRandomResponse
request = postJSON
response
= receiveJSON
(\ s h x ->
GenerateRandomResponse' <$>
(x .?> "Plaintext") <*> (pure (fromEnum s)))
instance ToHeaders GenerateRandom where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("TrentService.GenerateRandom" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GenerateRandom where
toJSON GenerateRandom'{..}
= object ["NumberOfBytes" .= _grNumberOfBytes]
instance ToPath GenerateRandom where
toPath = const "/"
instance ToQuery GenerateRandom where
toQuery = const mempty
data GenerateRandomResponse = GenerateRandomResponse'
{ _grrsPlaintext :: !(Maybe (Sensitive Base64))
, _grrsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
generateRandomResponse
:: Int
-> GenerateRandomResponse
generateRandomResponse pStatus_ =
GenerateRandomResponse'
{ _grrsPlaintext = Nothing
, _grrsStatus = pStatus_
}
grrsPlaintext :: Lens' GenerateRandomResponse (Maybe ByteString)
grrsPlaintext = lens _grrsPlaintext (\ s a -> s{_grrsPlaintext = a}) . mapping (_Sensitive . _Base64);
grrsStatus :: Lens' GenerateRandomResponse Int
grrsStatus = lens _grrsStatus (\ s a -> s{_grrsStatus = a});