module Network.AWS.Inspector.DescribeCrossAccountAccessRole
(
describeCrossAccountAccessRole
, DescribeCrossAccountAccessRole
, describeCrossAccountAccessRoleResponse
, DescribeCrossAccountAccessRoleResponse
, dcaarrsResponseStatus
, dcaarrsRoleARN
, dcaarrsValid
, dcaarrsRegisteredAt
) where
import Network.AWS.Inspector.Types
import Network.AWS.Inspector.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeCrossAccountAccessRole =
DescribeCrossAccountAccessRole'
deriving (Eq, Read, Show, Data, Typeable, Generic)
describeCrossAccountAccessRole
:: DescribeCrossAccountAccessRole
describeCrossAccountAccessRole = DescribeCrossAccountAccessRole'
instance AWSRequest DescribeCrossAccountAccessRole
where
type Rs DescribeCrossAccountAccessRole =
DescribeCrossAccountAccessRoleResponse
request = postJSON inspector
response
= receiveJSON
(\ s h x ->
DescribeCrossAccountAccessRoleResponse' <$>
(pure (fromEnum s)) <*> (x .:> "roleArn") <*>
(x .:> "valid")
<*> (x .:> "registeredAt"))
instance Hashable DescribeCrossAccountAccessRole
where
instance NFData DescribeCrossAccountAccessRole where
instance ToHeaders DescribeCrossAccountAccessRole
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("InspectorService.DescribeCrossAccountAccessRole" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeCrossAccountAccessRole where
toJSON = const (Object mempty)
instance ToPath DescribeCrossAccountAccessRole where
toPath = const "/"
instance ToQuery DescribeCrossAccountAccessRole where
toQuery = const mempty
data DescribeCrossAccountAccessRoleResponse = DescribeCrossAccountAccessRoleResponse'
{ _dcaarrsResponseStatus :: !Int
, _dcaarrsRoleARN :: !Text
, _dcaarrsValid :: !Bool
, _dcaarrsRegisteredAt :: !POSIX
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeCrossAccountAccessRoleResponse
:: Int
-> Text
-> Bool
-> UTCTime
-> DescribeCrossAccountAccessRoleResponse
describeCrossAccountAccessRoleResponse pResponseStatus_ pRoleARN_ pValid_ pRegisteredAt_ =
DescribeCrossAccountAccessRoleResponse'
{ _dcaarrsResponseStatus = pResponseStatus_
, _dcaarrsRoleARN = pRoleARN_
, _dcaarrsValid = pValid_
, _dcaarrsRegisteredAt = _Time # pRegisteredAt_
}
dcaarrsResponseStatus :: Lens' DescribeCrossAccountAccessRoleResponse Int
dcaarrsResponseStatus = lens _dcaarrsResponseStatus (\ s a -> s{_dcaarrsResponseStatus = a});
dcaarrsRoleARN :: Lens' DescribeCrossAccountAccessRoleResponse Text
dcaarrsRoleARN = lens _dcaarrsRoleARN (\ s a -> s{_dcaarrsRoleARN = a});
dcaarrsValid :: Lens' DescribeCrossAccountAccessRoleResponse Bool
dcaarrsValid = lens _dcaarrsValid (\ s a -> s{_dcaarrsValid = a});
dcaarrsRegisteredAt :: Lens' DescribeCrossAccountAccessRoleResponse UTCTime
dcaarrsRegisteredAt = lens _dcaarrsRegisteredAt (\ s a -> s{_dcaarrsRegisteredAt = a}) . _Time;
instance NFData
DescribeCrossAccountAccessRoleResponse
where