module Network.AWS.KMS.CreateGrant
(
createGrant
, CreateGrant
, cgRetiringPrincipal
, cgGrantTokens
, cgConstraints
, cgOperations
, cgKeyId
, cgGranteePrincipal
, createGrantResponse
, CreateGrantResponse
, cgrsGrantId
, cgrsGrantToken
, cgrsResponseStatus
) where
import Network.AWS.KMS.Types
import Network.AWS.KMS.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data CreateGrant = CreateGrant'
{ _cgRetiringPrincipal :: !(Maybe Text)
, _cgGrantTokens :: !(Maybe [Text])
, _cgConstraints :: !(Maybe GrantConstraints)
, _cgOperations :: !(Maybe [GrantOperation])
, _cgKeyId :: !Text
, _cgGranteePrincipal :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
createGrant
:: Text
-> Text
-> CreateGrant
createGrant pKeyId_ pGranteePrincipal_ =
CreateGrant'
{ _cgRetiringPrincipal = Nothing
, _cgGrantTokens = Nothing
, _cgConstraints = Nothing
, _cgOperations = Nothing
, _cgKeyId = pKeyId_
, _cgGranteePrincipal = pGranteePrincipal_
}
cgRetiringPrincipal :: Lens' CreateGrant (Maybe Text)
cgRetiringPrincipal = lens _cgRetiringPrincipal (\ s a -> s{_cgRetiringPrincipal = a});
cgGrantTokens :: Lens' CreateGrant [Text]
cgGrantTokens = lens _cgGrantTokens (\ s a -> s{_cgGrantTokens = a}) . _Default . _Coerce;
cgConstraints :: Lens' CreateGrant (Maybe GrantConstraints)
cgConstraints = lens _cgConstraints (\ s a -> s{_cgConstraints = a});
cgOperations :: Lens' CreateGrant [GrantOperation]
cgOperations = lens _cgOperations (\ s a -> s{_cgOperations = a}) . _Default . _Coerce;
cgKeyId :: Lens' CreateGrant Text
cgKeyId = lens _cgKeyId (\ s a -> s{_cgKeyId = a});
cgGranteePrincipal :: Lens' CreateGrant Text
cgGranteePrincipal = lens _cgGranteePrincipal (\ s a -> s{_cgGranteePrincipal = a});
instance AWSRequest CreateGrant where
type Rs CreateGrant = CreateGrantResponse
request = postJSON kMS
response
= receiveJSON
(\ s h x ->
CreateGrantResponse' <$>
(x .?> "GrantId") <*> (x .?> "GrantToken") <*>
(pure (fromEnum s)))
instance ToHeaders CreateGrant where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("TrentService.CreateGrant" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreateGrant where
toJSON CreateGrant'{..}
= object
(catMaybes
[("RetiringPrincipal" .=) <$> _cgRetiringPrincipal,
("GrantTokens" .=) <$> _cgGrantTokens,
("Constraints" .=) <$> _cgConstraints,
("Operations" .=) <$> _cgOperations,
Just ("KeyId" .= _cgKeyId),
Just ("GranteePrincipal" .= _cgGranteePrincipal)])
instance ToPath CreateGrant where
toPath = const "/"
instance ToQuery CreateGrant where
toQuery = const mempty
data CreateGrantResponse = CreateGrantResponse'
{ _cgrsGrantId :: !(Maybe Text)
, _cgrsGrantToken :: !(Maybe Text)
, _cgrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
createGrantResponse
:: Int
-> CreateGrantResponse
createGrantResponse pResponseStatus_ =
CreateGrantResponse'
{ _cgrsGrantId = Nothing
, _cgrsGrantToken = Nothing
, _cgrsResponseStatus = pResponseStatus_
}
cgrsGrantId :: Lens' CreateGrantResponse (Maybe Text)
cgrsGrantId = lens _cgrsGrantId (\ s a -> s{_cgrsGrantId = a});
cgrsGrantToken :: Lens' CreateGrantResponse (Maybe Text)
cgrsGrantToken = lens _cgrsGrantToken (\ s a -> s{_cgrsGrantToken = a});
cgrsResponseStatus :: Lens' CreateGrantResponse Int
cgrsResponseStatus = lens _cgrsResponseStatus (\ s a -> s{_cgrsResponseStatus = a});