CreateTrafficPolicyInstance.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.CreateTrafficPolicyInstance
-- 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 resource record sets in a specified hosted zone based on the
-- settings in a specified traffic policy version. In addition,
-- 'CreateTrafficPolicyInstance' associates the resource record sets with a
-- specified domain name (such as example.com) or subdomain name (such as
-- www.example.com). Amazon Route 53 responds to DNS queries for the domain
-- or subdomain name by using the resource record sets that
-- 'CreateTrafficPolicyInstance' created.
--
-- To create a traffic policy instance, send a 'POST' request to the
-- '\/Route 53 API version\/trafficpolicyinstance' resource. The request
-- body must include a document with a 'CreateTrafficPolicyRequest'
-- element. The response returns the 'CreateTrafficPolicyInstanceResponse'
-- element, which contains information about the traffic policy instance.
module Network.AWS.Route53.CreateTrafficPolicyInstance
    (
    -- * Creating a Request
      createTrafficPolicyInstance
    , CreateTrafficPolicyInstance
    -- * Request Lenses
    , ctpiHostedZoneId
    , ctpiName
    , ctpiTTL
    , ctpiTrafficPolicyId
    , ctpiTrafficPolicyVersion

    -- * Destructuring the Response
    , createTrafficPolicyInstanceResponse
    , CreateTrafficPolicyInstanceResponse
    -- * Response Lenses
    , ctpirsResponseStatus
    , ctpirsTrafficPolicyInstance
    , ctpirsLocation
    ) 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 resource record sets
-- that you want to create based on a specified traffic policy.
--
-- /See:/ 'createTrafficPolicyInstance' smart constructor.
data CreateTrafficPolicyInstance = CreateTrafficPolicyInstance'
    { _ctpiHostedZoneId         :: !Text
    , _ctpiName                 :: !Text
    , _ctpiTTL                  :: !Nat
    , _ctpiTrafficPolicyId      :: !Text
    , _ctpiTrafficPolicyVersion :: !Nat
    } deriving (Eq,Read,Show,Data,Typeable,Generic)

-- | Creates a value of 'CreateTrafficPolicyInstance' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'ctpiHostedZoneId'
--
-- * 'ctpiName'
--
-- * 'ctpiTTL'
--
-- * 'ctpiTrafficPolicyId'
--
-- * 'ctpiTrafficPolicyVersion'
createTrafficPolicyInstance
    :: Text -- ^ 'ctpiHostedZoneId'
    -> Text -- ^ 'ctpiName'
    -> Natural -- ^ 'ctpiTTL'
    -> Text -- ^ 'ctpiTrafficPolicyId'
    -> Natural -- ^ 'ctpiTrafficPolicyVersion'
    -> CreateTrafficPolicyInstance
createTrafficPolicyInstance pHostedZoneId_ pName_ pTTL_ pTrafficPolicyId_ pTrafficPolicyVersion_ =
    CreateTrafficPolicyInstance'
    { _ctpiHostedZoneId = pHostedZoneId_
    , _ctpiName = pName_
    , _ctpiTTL = _Nat # pTTL_
    , _ctpiTrafficPolicyId = pTrafficPolicyId_
    , _ctpiTrafficPolicyVersion = _Nat # pTrafficPolicyVersion_
    }

-- | The ID of the hosted zone in which you want Amazon Route 53 to create
-- resource record sets by using the configuration in a traffic policy.
ctpiHostedZoneId :: Lens' CreateTrafficPolicyInstance Text
ctpiHostedZoneId = lens _ctpiHostedZoneId (\ s a -> s{_ctpiHostedZoneId = a});

-- | The domain name (such as example.com) or subdomain name (such as
-- www.example.com) for which Amazon Route 53 responds to DNS queries by
-- using the resource record sets that Amazon Route 53 creates for this
-- traffic policy instance.
ctpiName :: Lens' CreateTrafficPolicyInstance Text
ctpiName = lens _ctpiName (\ s a -> s{_ctpiName = a});

-- | The TTL that you want Amazon Route 53 to assign to all of the resource
-- record sets that it creates in the specified hosted zone.
ctpiTTL :: Lens' CreateTrafficPolicyInstance Natural
ctpiTTL = lens _ctpiTTL (\ s a -> s{_ctpiTTL = a}) . _Nat;

-- | The ID of the traffic policy that you want to use to create resource
-- record sets in the specified hosted zone.
ctpiTrafficPolicyId :: Lens' CreateTrafficPolicyInstance Text
ctpiTrafficPolicyId = lens _ctpiTrafficPolicyId (\ s a -> s{_ctpiTrafficPolicyId = a});

-- | The version of the traffic policy that you want to use to create
-- resource record sets in the specified hosted zone.
ctpiTrafficPolicyVersion :: Lens' CreateTrafficPolicyInstance Natural
ctpiTrafficPolicyVersion = lens _ctpiTrafficPolicyVersion (\ s a -> s{_ctpiTrafficPolicyVersion = a}) . _Nat;

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

instance Hashable CreateTrafficPolicyInstance

instance NFData CreateTrafficPolicyInstance

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

instance ToHeaders CreateTrafficPolicyInstance where
        toHeaders = const mempty

instance ToPath CreateTrafficPolicyInstance where
        toPath = const "/2013-04-01/trafficpolicyinstance"

instance ToQuery CreateTrafficPolicyInstance where
        toQuery = const mempty

instance ToXML CreateTrafficPolicyInstance where
        toXML CreateTrafficPolicyInstance'{..}
          = mconcat
              ["HostedZoneId" @= _ctpiHostedZoneId,
               "Name" @= _ctpiName, "TTL" @= _ctpiTTL,
               "TrafficPolicyId" @= _ctpiTrafficPolicyId,
               "TrafficPolicyVersion" @= _ctpiTrafficPolicyVersion]

-- | A complex type that contains the response information for the
-- 'CreateTrafficPolicyInstance' request.
--
-- /See:/ 'createTrafficPolicyInstanceResponse' smart constructor.
data CreateTrafficPolicyInstanceResponse = CreateTrafficPolicyInstanceResponse'
    { _ctpirsResponseStatus        :: !Int
    , _ctpirsTrafficPolicyInstance :: !TrafficPolicyInstance
    , _ctpirsLocation              :: !Text
    } deriving (Eq,Read,Show,Data,Typeable,Generic)

-- | Creates a value of 'CreateTrafficPolicyInstanceResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'ctpirsResponseStatus'
--
-- * 'ctpirsTrafficPolicyInstance'
--
-- * 'ctpirsLocation'
createTrafficPolicyInstanceResponse
    :: Int -- ^ 'ctpirsResponseStatus'
    -> TrafficPolicyInstance -- ^ 'ctpirsTrafficPolicyInstance'
    -> Text -- ^ 'ctpirsLocation'
    -> CreateTrafficPolicyInstanceResponse
createTrafficPolicyInstanceResponse pResponseStatus_ pTrafficPolicyInstance_ pLocation_ =
    CreateTrafficPolicyInstanceResponse'
    { _ctpirsResponseStatus = pResponseStatus_
    , _ctpirsTrafficPolicyInstance = pTrafficPolicyInstance_
    , _ctpirsLocation = pLocation_
    }

-- | The response status code.
ctpirsResponseStatus :: Lens' CreateTrafficPolicyInstanceResponse Int
ctpirsResponseStatus = lens _ctpirsResponseStatus (\ s a -> s{_ctpirsResponseStatus = a});

-- | A complex type that contains settings for the new traffic policy
-- instance.
ctpirsTrafficPolicyInstance :: Lens' CreateTrafficPolicyInstanceResponse TrafficPolicyInstance
ctpirsTrafficPolicyInstance = lens _ctpirsTrafficPolicyInstance (\ s a -> s{_ctpirsTrafficPolicyInstance = a});

-- | A unique URL that represents a new traffic policy instance.
ctpirsLocation :: Lens' CreateTrafficPolicyInstanceResponse Text
ctpirsLocation = lens _ctpirsLocation (\ s a -> s{_ctpirsLocation = a});

instance NFData CreateTrafficPolicyInstanceResponse