{-# 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.CreateAssessmentTarget
(
createAssessmentTarget
, CreateAssessmentTarget
, catAssessmentTargetName
, catResourceGroupARN
, createAssessmentTargetResponse
, CreateAssessmentTargetResponse
, catrsResponseStatus
, catrsAssessmentTargetARN
) 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 CreateAssessmentTarget = CreateAssessmentTarget'
{ _catAssessmentTargetName :: !Text
, _catResourceGroupARN :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
createAssessmentTarget
:: Text
-> Text
-> CreateAssessmentTarget
createAssessmentTarget pAssessmentTargetName_ pResourceGroupARN_ =
CreateAssessmentTarget'
{ _catAssessmentTargetName = pAssessmentTargetName_
, _catResourceGroupARN = pResourceGroupARN_
}
catAssessmentTargetName :: Lens' CreateAssessmentTarget Text
catAssessmentTargetName = lens _catAssessmentTargetName (\ s a -> s{_catAssessmentTargetName = a});
catResourceGroupARN :: Lens' CreateAssessmentTarget Text
catResourceGroupARN = lens _catResourceGroupARN (\ s a -> s{_catResourceGroupARN = a});
instance AWSRequest CreateAssessmentTarget where
type Rs CreateAssessmentTarget =
CreateAssessmentTargetResponse
request = postJSON inspector
response
= receiveJSON
(\ s h x ->
CreateAssessmentTargetResponse' <$>
(pure (fromEnum s)) <*>
(x .:> "assessmentTargetArn"))
instance Hashable CreateAssessmentTarget
instance NFData CreateAssessmentTarget
instance ToHeaders CreateAssessmentTarget where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("InspectorService.CreateAssessmentTarget" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreateAssessmentTarget where
toJSON CreateAssessmentTarget'{..}
= object
(catMaybes
[Just
("assessmentTargetName" .= _catAssessmentTargetName),
Just ("resourceGroupArn" .= _catResourceGroupARN)])
instance ToPath CreateAssessmentTarget where
toPath = const "/"
instance ToQuery CreateAssessmentTarget where
toQuery = const mempty
data CreateAssessmentTargetResponse = CreateAssessmentTargetResponse'
{ _catrsResponseStatus :: !Int
, _catrsAssessmentTargetARN :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
createAssessmentTargetResponse
:: Int
-> Text
-> CreateAssessmentTargetResponse
createAssessmentTargetResponse pResponseStatus_ pAssessmentTargetARN_ =
CreateAssessmentTargetResponse'
{ _catrsResponseStatus = pResponseStatus_
, _catrsAssessmentTargetARN = pAssessmentTargetARN_
}
catrsResponseStatus :: Lens' CreateAssessmentTargetResponse Int
catrsResponseStatus = lens _catrsResponseStatus (\ s a -> s{_catrsResponseStatus = a});
catrsAssessmentTargetARN :: Lens' CreateAssessmentTargetResponse Text
catrsAssessmentTargetARN = lens _catrsAssessmentTargetARN (\ s a -> s{_catrsAssessmentTargetARN = a});
instance NFData CreateAssessmentTargetResponse