module Network.AWS.Inspector.DescribeAssessment
(
describeAssessment
, DescribeAssessment
, dAssessmentARN
, describeAssessmentResponse
, DescribeAssessmentResponse
, desrsAssessment
, desrsResponseStatus
) where
import Network.AWS.Inspector.Types
import Network.AWS.Inspector.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DescribeAssessment = DescribeAssessment'
{ _dAssessmentARN :: Maybe Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeAssessment
:: DescribeAssessment
describeAssessment =
DescribeAssessment'
{ _dAssessmentARN = Nothing
}
dAssessmentARN :: Lens' DescribeAssessment (Maybe Text)
dAssessmentARN = lens _dAssessmentARN (\ s a -> s{_dAssessmentARN = a});
instance AWSRequest DescribeAssessment where
type Rs DescribeAssessment =
DescribeAssessmentResponse
request = postJSON inspector
response
= receiveJSON
(\ s h x ->
DescribeAssessmentResponse' <$>
(x .?> "assessment") <*> (pure (fromEnum s)))
instance ToHeaders DescribeAssessment where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("InspectorService.DescribeAssessment" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeAssessment where
toJSON DescribeAssessment'{..}
= object
(catMaybes
[("assessmentArn" .=) <$> _dAssessmentARN])
instance ToPath DescribeAssessment where
toPath = const "/"
instance ToQuery DescribeAssessment where
toQuery = const mempty
data DescribeAssessmentResponse = DescribeAssessmentResponse'
{ _desrsAssessment :: !(Maybe Assessment)
, _desrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeAssessmentResponse
:: Int
-> DescribeAssessmentResponse
describeAssessmentResponse pResponseStatus_ =
DescribeAssessmentResponse'
{ _desrsAssessment = Nothing
, _desrsResponseStatus = pResponseStatus_
}
desrsAssessment :: Lens' DescribeAssessmentResponse (Maybe Assessment)
desrsAssessment = lens _desrsAssessment (\ s a -> s{_desrsAssessment = a});
desrsResponseStatus :: Lens' DescribeAssessmentResponse Int
desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});