CreateAssessmentTemplate.hs

{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Network.AWS.Inspector.CreateAssessmentTemplate
-- Copyright   : (c) 2013-2016 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Creates an assessment template for the assessment target that is specified by the ARN of the assessment target.
module Network.AWS.Inspector.CreateAssessmentTemplate
    (
    -- * Creating a Request
      createAssessmentTemplate
    , CreateAssessmentTemplate
    -- * Request Lenses
    , catUserAttributesForFindings
    , catAssessmentTargetARN
    , catAssessmentTemplateName
    , catDurationInSeconds
    , catRulesPackageARNs

    -- * Destructuring the Response
    , createAssessmentTemplateResponse
    , CreateAssessmentTemplateResponse
    -- * Response Lenses
    , crsResponseStatus
    , crsAssessmentTemplateARN
    ) 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

-- | /See:/ 'createAssessmentTemplate' smart constructor.
data CreateAssessmentTemplate = CreateAssessmentTemplate'
    { _catUserAttributesForFindings :: !(Maybe [Attribute])
    , _catAssessmentTargetARN       :: !Text
    , _catAssessmentTemplateName    :: !Text
    , _catDurationInSeconds         :: !Nat
    , _catRulesPackageARNs          :: ![Text]
    } deriving (Eq,Read,Show,Data,Typeable,Generic)

-- | Creates a value of 'CreateAssessmentTemplate' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'catUserAttributesForFindings'
--
-- * 'catAssessmentTargetARN'
--
-- * 'catAssessmentTemplateName'
--
-- * 'catDurationInSeconds'
--
-- * 'catRulesPackageARNs'
createAssessmentTemplate
    :: Text -- ^ 'catAssessmentTargetARN'
    -> Text -- ^ 'catAssessmentTemplateName'
    -> Natural -- ^ 'catDurationInSeconds'
    -> CreateAssessmentTemplate
createAssessmentTemplate pAssessmentTargetARN_ pAssessmentTemplateName_ pDurationInSeconds_ =
    CreateAssessmentTemplate'
    { _catUserAttributesForFindings = Nothing
    , _catAssessmentTargetARN = pAssessmentTargetARN_
    , _catAssessmentTemplateName = pAssessmentTemplateName_
    , _catDurationInSeconds = _Nat # pDurationInSeconds_
    , _catRulesPackageARNs = mempty
    }

-- | The user-defined attributes that are assigned to every finding that is generated by the assessment run that uses this assessment template.
catUserAttributesForFindings :: Lens' CreateAssessmentTemplate [Attribute]
catUserAttributesForFindings = lens _catUserAttributesForFindings (\ s a -> s{_catUserAttributesForFindings = a}) . _Default . _Coerce;

-- | The ARN that specifies the assessment target for which you want to create the assessment template.
catAssessmentTargetARN :: Lens' CreateAssessmentTemplate Text
catAssessmentTargetARN = lens _catAssessmentTargetARN (\ s a -> s{_catAssessmentTargetARN = a});

-- | The user-defined name that identifies the assessment template that you want to create. You can create several assessment templates for an assessment target. The names of the assessment templates that correspond to a particular assessment target must be unique.
catAssessmentTemplateName :: Lens' CreateAssessmentTemplate Text
catAssessmentTemplateName = lens _catAssessmentTemplateName (\ s a -> s{_catAssessmentTemplateName = a});

-- | The duration of the assessment run in seconds. The default value is 3600 seconds (one hour).
catDurationInSeconds :: Lens' CreateAssessmentTemplate Natural
catDurationInSeconds = lens _catDurationInSeconds (\ s a -> s{_catDurationInSeconds = a}) . _Nat;

-- | The ARNs that specify the rules packages that you want to attach to the assessment template.
catRulesPackageARNs :: Lens' CreateAssessmentTemplate [Text]
catRulesPackageARNs = lens _catRulesPackageARNs (\ s a -> s{_catRulesPackageARNs = a}) . _Coerce;

instance AWSRequest CreateAssessmentTemplate where
        type Rs CreateAssessmentTemplate =
             CreateAssessmentTemplateResponse
        request = postJSON inspector
        response
          = receiveJSON
              (\ s h x ->
                 CreateAssessmentTemplateResponse' <$>
                   (pure (fromEnum s)) <*>
                     (x .:> "assessmentTemplateArn"))

instance Hashable CreateAssessmentTemplate

instance NFData CreateAssessmentTemplate

instance ToHeaders CreateAssessmentTemplate where
        toHeaders
          = const
              (mconcat
                 ["X-Amz-Target" =#
                    ("InspectorService.CreateAssessmentTemplate" ::
                       ByteString),
                  "Content-Type" =#
                    ("application/x-amz-json-1.1" :: ByteString)])

instance ToJSON CreateAssessmentTemplate where
        toJSON CreateAssessmentTemplate'{..}
          = object
              (catMaybes
                 [("userAttributesForFindings" .=) <$>
                    _catUserAttributesForFindings,
                  Just
                    ("assessmentTargetArn" .= _catAssessmentTargetARN),
                  Just
                    ("assessmentTemplateName" .=
                       _catAssessmentTemplateName),
                  Just ("durationInSeconds" .= _catDurationInSeconds),
                  Just ("rulesPackageArns" .= _catRulesPackageARNs)])

instance ToPath CreateAssessmentTemplate where
        toPath = const "/"

instance ToQuery CreateAssessmentTemplate where
        toQuery = const mempty

-- | /See:/ 'createAssessmentTemplateResponse' smart constructor.
data CreateAssessmentTemplateResponse = CreateAssessmentTemplateResponse'
    { _crsResponseStatus        :: !Int
    , _crsAssessmentTemplateARN :: !Text
    } deriving (Eq,Read,Show,Data,Typeable,Generic)

-- | Creates a value of 'CreateAssessmentTemplateResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'crsResponseStatus'
--
-- * 'crsAssessmentTemplateARN'
createAssessmentTemplateResponse
    :: Int -- ^ 'crsResponseStatus'
    -> Text -- ^ 'crsAssessmentTemplateARN'
    -> CreateAssessmentTemplateResponse
createAssessmentTemplateResponse pResponseStatus_ pAssessmentTemplateARN_ =
    CreateAssessmentTemplateResponse'
    { _crsResponseStatus = pResponseStatus_
    , _crsAssessmentTemplateARN = pAssessmentTemplateARN_
    }

-- | The response status code.
crsResponseStatus :: Lens' CreateAssessmentTemplateResponse Int
crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a});

-- | The ARN that specifies the assessment template that is created.
crsAssessmentTemplateARN :: Lens' CreateAssessmentTemplateResponse Text
crsAssessmentTemplateARN = lens _crsAssessmentTemplateARN (\ s a -> s{_crsAssessmentTemplateARN = a});

instance NFData CreateAssessmentTemplateResponse