UpdateTrafficPolicyComment.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.UpdateTrafficPolicyComment
-- Copyright   : (c) 2013-2017 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Updates the comment for a specified traffic policy version.
--
--
module Network.AWS.Route53.UpdateTrafficPolicyComment
    (
    -- * Creating a Request
      updateTrafficPolicyComment
    , UpdateTrafficPolicyComment
    -- * Request Lenses
    , utpcId
    , utpcVersion
    , utpcComment

    -- * Destructuring the Response
    , updateTrafficPolicyCommentResponse
    , UpdateTrafficPolicyCommentResponse
    -- * Response Lenses
    , utpcrsResponseStatus
    , utpcrsTrafficPolicy
    ) 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 that you want to update the comment for.
--
--
--
-- /See:/ 'updateTrafficPolicyComment' smart constructor.
data UpdateTrafficPolicyComment = UpdateTrafficPolicyComment'
  { _utpcId      :: !Text
  , _utpcVersion :: !Nat
  , _utpcComment :: !Text
  } deriving (Eq, Read, Show, Data, Typeable, Generic)


-- | Creates a value of 'UpdateTrafficPolicyComment' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'utpcId' - The value of @Id@ for the traffic policy that you want to update the comment for.
--
-- * 'utpcVersion' - The value of @Version@ for the traffic policy that you want to update the comment for.
--
-- * 'utpcComment' - The new comment for the specified traffic policy and version.
updateTrafficPolicyComment
    :: Text -- ^ 'utpcId'
    -> Natural -- ^ 'utpcVersion'
    -> Text -- ^ 'utpcComment'
    -> UpdateTrafficPolicyComment
updateTrafficPolicyComment pId_ pVersion_ pComment_ =
  UpdateTrafficPolicyComment'
  {_utpcId = pId_, _utpcVersion = _Nat # pVersion_, _utpcComment = pComment_}


-- | The value of @Id@ for the traffic policy that you want to update the comment for.
utpcId :: Lens' UpdateTrafficPolicyComment Text
utpcId = lens _utpcId (\ s a -> s{_utpcId = a});

-- | The value of @Version@ for the traffic policy that you want to update the comment for.
utpcVersion :: Lens' UpdateTrafficPolicyComment Natural
utpcVersion = lens _utpcVersion (\ s a -> s{_utpcVersion = a}) . _Nat;

-- | The new comment for the specified traffic policy and version.
utpcComment :: Lens' UpdateTrafficPolicyComment Text
utpcComment = lens _utpcComment (\ s a -> s{_utpcComment = a});

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

instance Hashable UpdateTrafficPolicyComment where

instance NFData UpdateTrafficPolicyComment where

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

instance ToHeaders UpdateTrafficPolicyComment where
        toHeaders = const mempty

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

instance ToQuery UpdateTrafficPolicyComment where
        toQuery = const mempty

instance ToXML UpdateTrafficPolicyComment where
        toXML UpdateTrafficPolicyComment'{..}
          = mconcat ["Comment" @= _utpcComment]

-- | A complex type that contains the response information for the traffic policy.
--
--
--
-- /See:/ 'updateTrafficPolicyCommentResponse' smart constructor.
data UpdateTrafficPolicyCommentResponse = UpdateTrafficPolicyCommentResponse'
  { _utpcrsResponseStatus :: !Int
  , _utpcrsTrafficPolicy  :: !TrafficPolicy
  } deriving (Eq, Read, Show, Data, Typeable, Generic)


-- | Creates a value of 'UpdateTrafficPolicyCommentResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'utpcrsResponseStatus' - -- | The response status code.
--
-- * 'utpcrsTrafficPolicy' - A complex type that contains settings for the specified traffic policy.
updateTrafficPolicyCommentResponse
    :: Int -- ^ 'utpcrsResponseStatus'
    -> TrafficPolicy -- ^ 'utpcrsTrafficPolicy'
    -> UpdateTrafficPolicyCommentResponse
updateTrafficPolicyCommentResponse pResponseStatus_ pTrafficPolicy_ =
  UpdateTrafficPolicyCommentResponse'
  { _utpcrsResponseStatus = pResponseStatus_
  , _utpcrsTrafficPolicy = pTrafficPolicy_
  }


-- | -- | The response status code.
utpcrsResponseStatus :: Lens' UpdateTrafficPolicyCommentResponse Int
utpcrsResponseStatus = lens _utpcrsResponseStatus (\ s a -> s{_utpcrsResponseStatus = a});

-- | A complex type that contains settings for the specified traffic policy.
utpcrsTrafficPolicy :: Lens' UpdateTrafficPolicyCommentResponse TrafficPolicy
utpcrsTrafficPolicy = lens _utpcrsTrafficPolicy (\ s a -> s{_utpcrsTrafficPolicy = a});

instance NFData UpdateTrafficPolicyCommentResponse
         where