module Network.AWS.Inspector.UpdateAssessmentTarget
(
updateAssessmentTarget
, UpdateAssessmentTarget
, uatAssessmentTargetARN
, uatAssessmentTargetName
, uatResourceGroupARN
, updateAssessmentTargetResponse
, UpdateAssessmentTargetResponse
) 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 UpdateAssessmentTarget = UpdateAssessmentTarget'
{ _uatAssessmentTargetARN :: !Text
, _uatAssessmentTargetName :: !Text
, _uatResourceGroupARN :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateAssessmentTarget
:: Text
-> Text
-> Text
-> UpdateAssessmentTarget
updateAssessmentTarget pAssessmentTargetARN_ pAssessmentTargetName_ pResourceGroupARN_ =
UpdateAssessmentTarget'
{ _uatAssessmentTargetARN = pAssessmentTargetARN_
, _uatAssessmentTargetName = pAssessmentTargetName_
, _uatResourceGroupARN = pResourceGroupARN_
}
uatAssessmentTargetARN :: Lens' UpdateAssessmentTarget Text
uatAssessmentTargetARN = lens _uatAssessmentTargetARN (\ s a -> s{_uatAssessmentTargetARN = a});
uatAssessmentTargetName :: Lens' UpdateAssessmentTarget Text
uatAssessmentTargetName = lens _uatAssessmentTargetName (\ s a -> s{_uatAssessmentTargetName = a});
uatResourceGroupARN :: Lens' UpdateAssessmentTarget Text
uatResourceGroupARN = lens _uatResourceGroupARN (\ s a -> s{_uatResourceGroupARN = a});
instance AWSRequest UpdateAssessmentTarget where
type Rs UpdateAssessmentTarget =
UpdateAssessmentTargetResponse
request = postJSON inspector
response
= receiveNull UpdateAssessmentTargetResponse'
instance Hashable UpdateAssessmentTarget where
instance NFData UpdateAssessmentTarget where
instance ToHeaders UpdateAssessmentTarget where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("InspectorService.UpdateAssessmentTarget" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateAssessmentTarget where
toJSON UpdateAssessmentTarget'{..}
= object
(catMaybes
[Just
("assessmentTargetArn" .= _uatAssessmentTargetARN),
Just
("assessmentTargetName" .= _uatAssessmentTargetName),
Just ("resourceGroupArn" .= _uatResourceGroupARN)])
instance ToPath UpdateAssessmentTarget where
toPath = const "/"
instance ToQuery UpdateAssessmentTarget where
toQuery = const mempty
data UpdateAssessmentTargetResponse =
UpdateAssessmentTargetResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
updateAssessmentTargetResponse
:: UpdateAssessmentTargetResponse
updateAssessmentTargetResponse = UpdateAssessmentTargetResponse'
instance NFData UpdateAssessmentTargetResponse where