module Network.AWS.Inspector.DetachAssessmentAndRulesPackage
(
detachAssessmentAndRulesPackage
, DetachAssessmentAndRulesPackage
, daarpAssessmentARN
, daarpRulesPackageARN
, detachAssessmentAndRulesPackageResponse
, DetachAssessmentAndRulesPackageResponse
, daarprsMessage
, daarprsResponseStatus
) where
import Network.AWS.Inspector.Types
import Network.AWS.Inspector.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DetachAssessmentAndRulesPackage = DetachAssessmentAndRulesPackage'
{ _daarpAssessmentARN :: !(Maybe Text)
, _daarpRulesPackageARN :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
detachAssessmentAndRulesPackage
:: DetachAssessmentAndRulesPackage
detachAssessmentAndRulesPackage =
DetachAssessmentAndRulesPackage'
{ _daarpAssessmentARN = Nothing
, _daarpRulesPackageARN = Nothing
}
daarpAssessmentARN :: Lens' DetachAssessmentAndRulesPackage (Maybe Text)
daarpAssessmentARN = lens _daarpAssessmentARN (\ s a -> s{_daarpAssessmentARN = a});
daarpRulesPackageARN :: Lens' DetachAssessmentAndRulesPackage (Maybe Text)
daarpRulesPackageARN = lens _daarpRulesPackageARN (\ s a -> s{_daarpRulesPackageARN = a});
instance AWSRequest DetachAssessmentAndRulesPackage
where
type Rs DetachAssessmentAndRulesPackage =
DetachAssessmentAndRulesPackageResponse
request = postJSON inspector
response
= receiveJSON
(\ s h x ->
DetachAssessmentAndRulesPackageResponse' <$>
(x .?> "message") <*> (pure (fromEnum s)))
instance ToHeaders DetachAssessmentAndRulesPackage
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("InspectorService.DetachAssessmentAndRulesPackage"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DetachAssessmentAndRulesPackage where
toJSON DetachAssessmentAndRulesPackage'{..}
= object
(catMaybes
[("assessmentArn" .=) <$> _daarpAssessmentARN,
("rulesPackageArn" .=) <$> _daarpRulesPackageARN])
instance ToPath DetachAssessmentAndRulesPackage where
toPath = const "/"
instance ToQuery DetachAssessmentAndRulesPackage
where
toQuery = const mempty
data DetachAssessmentAndRulesPackageResponse = DetachAssessmentAndRulesPackageResponse'
{ _daarprsMessage :: !(Maybe Text)
, _daarprsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
detachAssessmentAndRulesPackageResponse
:: Int
-> DetachAssessmentAndRulesPackageResponse
detachAssessmentAndRulesPackageResponse pResponseStatus_ =
DetachAssessmentAndRulesPackageResponse'
{ _daarprsMessage = Nothing
, _daarprsResponseStatus = pResponseStatus_
}
daarprsMessage :: Lens' DetachAssessmentAndRulesPackageResponse (Maybe Text)
daarprsMessage = lens _daarprsMessage (\ s a -> s{_daarprsMessage = a});
daarprsResponseStatus :: Lens' DetachAssessmentAndRulesPackageResponse Int
daarprsResponseStatus = lens _daarprsResponseStatus (\ s a -> s{_daarprsResponseStatus = a});