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