{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.Inspector.GetAssessmentReport
(
getAssessmentReport
, GetAssessmentReport
, garAssessmentRunARN
, garReportFileFormat
, garReportType
, getAssessmentReportResponse
, GetAssessmentReportResponse
, garrsUrl
, garrsResponseStatus
, garrsStatus
) 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 GetAssessmentReport = GetAssessmentReport'
{ _garAssessmentRunARN :: !Text
, _garReportFileFormat :: !ReportFileFormat
, _garReportType :: !ReportType
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getAssessmentReport
:: Text
-> ReportFileFormat
-> ReportType
-> GetAssessmentReport
getAssessmentReport pAssessmentRunARN_ pReportFileFormat_ pReportType_ =
GetAssessmentReport'
{ _garAssessmentRunARN = pAssessmentRunARN_
, _garReportFileFormat = pReportFileFormat_
, _garReportType = pReportType_
}
garAssessmentRunARN :: Lens' GetAssessmentReport Text
garAssessmentRunARN = lens _garAssessmentRunARN (\ s a -> s{_garAssessmentRunARN = a})
garReportFileFormat :: Lens' GetAssessmentReport ReportFileFormat
garReportFileFormat = lens _garReportFileFormat (\ s a -> s{_garReportFileFormat = a})
garReportType :: Lens' GetAssessmentReport ReportType
garReportType = lens _garReportType (\ s a -> s{_garReportType = a})
instance AWSRequest GetAssessmentReport where
type Rs GetAssessmentReport =
GetAssessmentReportResponse
request = postJSON inspector
response
= receiveJSON
(\ s h x ->
GetAssessmentReportResponse' <$>
(x .?> "url") <*> (pure (fromEnum s)) <*>
(x .:> "status"))
instance Hashable GetAssessmentReport where
instance NFData GetAssessmentReport where
instance ToHeaders GetAssessmentReport where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("InspectorService.GetAssessmentReport" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetAssessmentReport where
toJSON GetAssessmentReport'{..}
= object
(catMaybes
[Just ("assessmentRunArn" .= _garAssessmentRunARN),
Just ("reportFileFormat" .= _garReportFileFormat),
Just ("reportType" .= _garReportType)])
instance ToPath GetAssessmentReport where
toPath = const "/"
instance ToQuery GetAssessmentReport where
toQuery = const mempty
data GetAssessmentReportResponse = GetAssessmentReportResponse'
{ _garrsUrl :: !(Maybe Text)
, _garrsResponseStatus :: !Int
, _garrsStatus :: !ReportStatus
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getAssessmentReportResponse
:: Int
-> ReportStatus
-> GetAssessmentReportResponse
getAssessmentReportResponse pResponseStatus_ pStatus_ =
GetAssessmentReportResponse'
{ _garrsUrl = Nothing
, _garrsResponseStatus = pResponseStatus_
, _garrsStatus = pStatus_
}
garrsUrl :: Lens' GetAssessmentReportResponse (Maybe Text)
garrsUrl = lens _garrsUrl (\ s a -> s{_garrsUrl = a})
garrsResponseStatus :: Lens' GetAssessmentReportResponse Int
garrsResponseStatus = lens _garrsResponseStatus (\ s a -> s{_garrsResponseStatus = a})
garrsStatus :: Lens' GetAssessmentReportResponse ReportStatus
garrsStatus = lens _garrsStatus (\ s a -> s{_garrsStatus = a})
instance NFData GetAssessmentReportResponse where