CreateTrafficPolicyVersion.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.Route53.CreateTrafficPolicyVersion
-- 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 new version of an existing traffic policy. When you create a new version of a traffic policy, you specify the ID of the traffic policy that you want to update and a JSON-formatted document that describes the new version.
--
-- You use traffic policies to create multiple DNS resource record sets for one domain name (such as example.com) or one subdomain name (such as www.example.com).
--
-- To create a new version, send a 'POST' request to the '\/Route 53 API version\/trafficpolicy\/' resource. The request body includes a document with a 'CreateTrafficPolicyVersionRequest' element. The response returns the 'CreateTrafficPolicyVersionResponse' element, which contains information about the new version of the traffic policy.
module Network.AWS.Route53.CreateTrafficPolicyVersion
    (
    -- * Creating a Request
      createTrafficPolicyVersion
    , CreateTrafficPolicyVersion
    -- * Request Lenses
    , ctpvComment
    , ctpvId
    , ctpvDocument

    -- * Destructuring the Response
    , createTrafficPolicyVersionResponse
    , CreateTrafficPolicyVersionResponse
    -- * Response Lenses
    , ctpvrsResponseStatus
    , ctpvrsTrafficPolicy
    , ctpvrsLocation
    ) where

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

-- | A complex type that contains information about the traffic policy for which you want to create a new version.
--
-- /See:/ 'createTrafficPolicyVersion' smart constructor.
data CreateTrafficPolicyVersion = CreateTrafficPolicyVersion'
    { _ctpvComment  :: !(Maybe Text)
    , _ctpvId       :: !Text
    , _ctpvDocument :: !Text
    } deriving (Eq,Read,Show,Data,Typeable,Generic)

-- | Creates a value of 'CreateTrafficPolicyVersion' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'ctpvComment'
--
-- * 'ctpvId'
--
-- * 'ctpvDocument'
createTrafficPolicyVersion
    :: Text -- ^ 'ctpvId'
    -> Text -- ^ 'ctpvDocument'
    -> CreateTrafficPolicyVersion
createTrafficPolicyVersion pId_ pDocument_ =
    CreateTrafficPolicyVersion'
    { _ctpvComment = Nothing
    , _ctpvId = pId_
    , _ctpvDocument = pDocument_
    }

-- | Any comments that you want to include about the new traffic policy version.
ctpvComment :: Lens' CreateTrafficPolicyVersion (Maybe Text)
ctpvComment = lens _ctpvComment (\ s a -> s{_ctpvComment = a});

-- | The ID of the traffic policy for which you want to create a new version.
ctpvId :: Lens' CreateTrafficPolicyVersion Text
ctpvId = lens _ctpvId (\ s a -> s{_ctpvId = a});

-- | The definition of a new traffic policy version, in JSON format. You must specify the full definition of the new traffic policy. You cannot specify just the differences between the new version and a previous version.
ctpvDocument :: Lens' CreateTrafficPolicyVersion Text
ctpvDocument = lens _ctpvDocument (\ s a -> s{_ctpvDocument = a});

instance AWSRequest CreateTrafficPolicyVersion where
        type Rs CreateTrafficPolicyVersion =
             CreateTrafficPolicyVersionResponse
        request = postXML route53
        response
          = receiveXML
              (\ s h x ->
                 CreateTrafficPolicyVersionResponse' <$>
                   (pure (fromEnum s)) <*> (x .@ "TrafficPolicy") <*>
                     (h .# "Location"))

instance Hashable CreateTrafficPolicyVersion

instance NFData CreateTrafficPolicyVersion

instance ToElement CreateTrafficPolicyVersion where
        toElement
          = mkElement
              "{https://route53.amazonaws.com/doc/2013-04-01/}CreateTrafficPolicyVersionRequest"

instance ToHeaders CreateTrafficPolicyVersion where
        toHeaders = const mempty

instance ToPath CreateTrafficPolicyVersion where
        toPath CreateTrafficPolicyVersion'{..}
          = mconcat
              ["/2013-04-01/trafficpolicy/", toBS _ctpvId]

instance ToQuery CreateTrafficPolicyVersion where
        toQuery = const mempty

instance ToXML CreateTrafficPolicyVersion where
        toXML CreateTrafficPolicyVersion'{..}
          = mconcat
              ["Comment" @= _ctpvComment,
               "Document" @= _ctpvDocument]

-- | A complex type that contains the response information for the 'CreateTrafficPolicyVersion' request.
--
-- /See:/ 'createTrafficPolicyVersionResponse' smart constructor.
data CreateTrafficPolicyVersionResponse = CreateTrafficPolicyVersionResponse'
    { _ctpvrsResponseStatus :: !Int
    , _ctpvrsTrafficPolicy  :: !TrafficPolicy
    , _ctpvrsLocation       :: !Text
    } deriving (Eq,Read,Show,Data,Typeable,Generic)

-- | Creates a value of 'CreateTrafficPolicyVersionResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'ctpvrsResponseStatus'
--
-- * 'ctpvrsTrafficPolicy'
--
-- * 'ctpvrsLocation'
createTrafficPolicyVersionResponse
    :: Int -- ^ 'ctpvrsResponseStatus'
    -> TrafficPolicy -- ^ 'ctpvrsTrafficPolicy'
    -> Text -- ^ 'ctpvrsLocation'
    -> CreateTrafficPolicyVersionResponse
createTrafficPolicyVersionResponse pResponseStatus_ pTrafficPolicy_ pLocation_ =
    CreateTrafficPolicyVersionResponse'
    { _ctpvrsResponseStatus = pResponseStatus_
    , _ctpvrsTrafficPolicy = pTrafficPolicy_
    , _ctpvrsLocation = pLocation_
    }

-- | The response status code.
ctpvrsResponseStatus :: Lens' CreateTrafficPolicyVersionResponse Int
ctpvrsResponseStatus = lens _ctpvrsResponseStatus (\ s a -> s{_ctpvrsResponseStatus = a});

-- | A complex type that contains settings for the new version of the traffic policy.
ctpvrsTrafficPolicy :: Lens' CreateTrafficPolicyVersionResponse TrafficPolicy
ctpvrsTrafficPolicy = lens _ctpvrsTrafficPolicy (\ s a -> s{_ctpvrsTrafficPolicy = a});

-- | Undocumented member.
ctpvrsLocation :: Lens' CreateTrafficPolicyVersionResponse Text
ctpvrsLocation = lens _ctpvrsLocation (\ s a -> s{_ctpvrsLocation = a});

instance NFData CreateTrafficPolicyVersionResponse