{-# 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 #-}
module Network.AWS.Route53.GetTrafficPolicy
(
getTrafficPolicy
, GetTrafficPolicy
, gtpId
, gtpVersion
, getTrafficPolicyResponse
, GetTrafficPolicyResponse
, gtprsResponseStatus
, gtprsTrafficPolicy
) 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
data GetTrafficPolicy = GetTrafficPolicy'
{ _gtpId :: !Text
, _gtpVersion :: !Nat
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getTrafficPolicy
:: Text
-> Natural
-> GetTrafficPolicy
getTrafficPolicy pId_ pVersion_ =
GetTrafficPolicy'
{ _gtpId = pId_
, _gtpVersion = _Nat # pVersion_
}
gtpId :: Lens' GetTrafficPolicy Text
gtpId = lens _gtpId (\ s a -> s{_gtpId = a});
gtpVersion :: Lens' GetTrafficPolicy Natural
gtpVersion = lens _gtpVersion (\ s a -> s{_gtpVersion = a}) . _Nat;
instance AWSRequest GetTrafficPolicy where
type Rs GetTrafficPolicy = GetTrafficPolicyResponse
request = get route53
response
= receiveXML
(\ s h x ->
GetTrafficPolicyResponse' <$>
(pure (fromEnum s)) <*> (x .@ "TrafficPolicy"))
instance Hashable GetTrafficPolicy
instance NFData GetTrafficPolicy
instance ToHeaders GetTrafficPolicy where
toHeaders = const mempty
instance ToPath GetTrafficPolicy where
toPath GetTrafficPolicy'{..}
= mconcat
["/2013-04-01/trafficpolicy/", toBS _gtpId, "/",
toBS _gtpVersion]
instance ToQuery GetTrafficPolicy where
toQuery = const mempty
data GetTrafficPolicyResponse = GetTrafficPolicyResponse'
{ _gtprsResponseStatus :: !Int
, _gtprsTrafficPolicy :: !TrafficPolicy
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getTrafficPolicyResponse
:: Int
-> TrafficPolicy
-> GetTrafficPolicyResponse
getTrafficPolicyResponse pResponseStatus_ pTrafficPolicy_ =
GetTrafficPolicyResponse'
{ _gtprsResponseStatus = pResponseStatus_
, _gtprsTrafficPolicy = pTrafficPolicy_
}
gtprsResponseStatus :: Lens' GetTrafficPolicyResponse Int
gtprsResponseStatus = lens _gtprsResponseStatus (\ s a -> s{_gtprsResponseStatus = a});
gtprsTrafficPolicy :: Lens' GetTrafficPolicyResponse TrafficPolicy
gtprsTrafficPolicy = lens _gtprsTrafficPolicy (\ s a -> s{_gtprsTrafficPolicy = a});
instance NFData GetTrafficPolicyResponse