CreateSizeConstraintSet.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.WAF.CreateSizeConstraintSet
-- 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 a 'SizeConstraintSet'. You then use < UpdateSizeConstraintSet> to identify the part of a web request that you want AWS WAF to check for length, such as the length of the 'User-Agent' header or the length of the query string. For example, you can create a 'SizeConstraintSet' that matches any requests that have a query string that is longer than 100 bytes. You can then configure AWS WAF to reject those requests.
--
-- To create and configure a 'SizeConstraintSet', perform the following steps:
--
-- 1.  Use < GetChangeToken> to get the change token that you provide in the 'ChangeToken' parameter of a 'CreateSizeConstraintSet' request.
-- 2.  Submit a 'CreateSizeConstraintSet' request.
-- 3.  Use 'GetChangeToken' to get the change token that you provide in the 'ChangeToken' parameter of an 'UpdateSizeConstraintSet' request.
-- 4.  Submit an < UpdateSizeConstraintSet> request to specify the part of the request that you want AWS WAF to inspect (for example, the header or the URI) and the value that you want AWS WAF to watch for.
--
-- For more information about how to use the AWS WAF API to allow or block HTTP requests, see the <http://docs.aws.amazon.com/waf/latest/developerguide/ AWS WAF Developer Guide>.
module Network.AWS.WAF.CreateSizeConstraintSet
    (
    -- * Creating a Request
      createSizeConstraintSet
    , CreateSizeConstraintSet
    -- * Request Lenses
    , cscsName
    , cscsChangeToken

    -- * Destructuring the Response
    , createSizeConstraintSetResponse
    , CreateSizeConstraintSetResponse
    -- * Response Lenses
    , cscsrsSizeConstraintSet
    , cscsrsChangeToken
    , cscsrsResponseStatus
    ) where

import           Network.AWS.Lens
import           Network.AWS.Prelude
import           Network.AWS.Request
import           Network.AWS.Response
import           Network.AWS.WAF.Types
import           Network.AWS.WAF.Types.Product

-- | /See:/ 'createSizeConstraintSet' smart constructor.
data CreateSizeConstraintSet = CreateSizeConstraintSet'
    { _cscsName        :: !Text
    , _cscsChangeToken :: !Text
    } deriving (Eq,Read,Show,Data,Typeable,Generic)

-- | Creates a value of 'CreateSizeConstraintSet' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'cscsName'
--
-- * 'cscsChangeToken'
createSizeConstraintSet
    :: Text -- ^ 'cscsName'
    -> Text -- ^ 'cscsChangeToken'
    -> CreateSizeConstraintSet
createSizeConstraintSet pName_ pChangeToken_ =
    CreateSizeConstraintSet'
    { _cscsName = pName_
    , _cscsChangeToken = pChangeToken_
    }

-- | A friendly name or description of the < SizeConstraintSet>. You can\'t change 'Name' after you create a 'SizeConstraintSet'.
cscsName :: Lens' CreateSizeConstraintSet Text
cscsName = lens _cscsName (\ s a -> s{_cscsName = a});

-- | The value returned by the most recent call to < GetChangeToken>.
cscsChangeToken :: Lens' CreateSizeConstraintSet Text
cscsChangeToken = lens _cscsChangeToken (\ s a -> s{_cscsChangeToken = a});

instance AWSRequest CreateSizeConstraintSet where
        type Rs CreateSizeConstraintSet =
             CreateSizeConstraintSetResponse
        request = postJSON waf
        response
          = receiveJSON
              (\ s h x ->
                 CreateSizeConstraintSetResponse' <$>
                   (x .?> "SizeConstraintSet") <*> (x .?> "ChangeToken")
                     <*> (pure (fromEnum s)))

instance Hashable CreateSizeConstraintSet

instance NFData CreateSizeConstraintSet

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

instance ToJSON CreateSizeConstraintSet where
        toJSON CreateSizeConstraintSet'{..}
          = object
              (catMaybes
                 [Just ("Name" .= _cscsName),
                  Just ("ChangeToken" .= _cscsChangeToken)])

instance ToPath CreateSizeConstraintSet where
        toPath = const "/"

instance ToQuery CreateSizeConstraintSet where
        toQuery = const mempty

-- | /See:/ 'createSizeConstraintSetResponse' smart constructor.
data CreateSizeConstraintSetResponse = CreateSizeConstraintSetResponse'
    { _cscsrsSizeConstraintSet :: !(Maybe SizeConstraintSet)
    , _cscsrsChangeToken       :: !(Maybe Text)
    , _cscsrsResponseStatus    :: !Int
    } deriving (Eq,Read,Show,Data,Typeable,Generic)

-- | Creates a value of 'CreateSizeConstraintSetResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'cscsrsSizeConstraintSet'
--
-- * 'cscsrsChangeToken'
--
-- * 'cscsrsResponseStatus'
createSizeConstraintSetResponse
    :: Int -- ^ 'cscsrsResponseStatus'
    -> CreateSizeConstraintSetResponse
createSizeConstraintSetResponse pResponseStatus_ =
    CreateSizeConstraintSetResponse'
    { _cscsrsSizeConstraintSet = Nothing
    , _cscsrsChangeToken = Nothing
    , _cscsrsResponseStatus = pResponseStatus_
    }

-- | A < SizeConstraintSet> that contains no 'SizeConstraint' objects.
cscsrsSizeConstraintSet :: Lens' CreateSizeConstraintSetResponse (Maybe SizeConstraintSet)
cscsrsSizeConstraintSet = lens _cscsrsSizeConstraintSet (\ s a -> s{_cscsrsSizeConstraintSet = a});

-- | The 'ChangeToken' that you used to submit the 'CreateSizeConstraintSet' request. You can also use this value to query the status of the request. For more information, see < GetChangeTokenStatus>.
cscsrsChangeToken :: Lens' CreateSizeConstraintSetResponse (Maybe Text)
cscsrsChangeToken = lens _cscsrsChangeToken (\ s a -> s{_cscsrsChangeToken = a});

-- | The response status code.
cscsrsResponseStatus :: Lens' CreateSizeConstraintSetResponse Int
cscsrsResponseStatus = lens _cscsrsResponseStatus (\ s a -> s{_cscsrsResponseStatus = a});

instance NFData CreateSizeConstraintSetResponse