module Network.AWS.KMS.GenerateRandom
(
generateRandom
, GenerateRandom
, grNumberOfBytes
, generateRandomResponse
, GenerateRandomResponse
, grrsPlaintext
, grrsResponseStatus
) 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 Rs GenerateRandom = GenerateRandomResponse
request = postJSON kMS
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
(catMaybes
[("NumberOfBytes" .=) <$> _grNumberOfBytes])
instance ToPath GenerateRandom where
toPath = const "/"
instance ToQuery GenerateRandom where
toQuery = const mempty
data GenerateRandomResponse = GenerateRandomResponse'
{ _grrsPlaintext :: !(Maybe (Sensitive Base64))
, _grrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
generateRandomResponse
:: Int
-> GenerateRandomResponse
generateRandomResponse pResponseStatus_ =
GenerateRandomResponse'
{ _grrsPlaintext = Nothing
, _grrsResponseStatus = pResponseStatus_
}
grrsPlaintext :: Lens' GenerateRandomResponse (Maybe ByteString)
grrsPlaintext = lens _grrsPlaintext (\ s a -> s{_grrsPlaintext = a}) . mapping (_Sensitive . _Base64);
grrsResponseStatus :: Lens' GenerateRandomResponse Int
grrsResponseStatus = lens _grrsResponseStatus (\ s a -> s{_grrsResponseStatus = a});