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