{-# 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.GetTrafficPolicyInstance
(
getTrafficPolicyInstance
, GetTrafficPolicyInstance
, gtpiId
, getTrafficPolicyInstanceResponse
, GetTrafficPolicyInstanceResponse
, gtpirsResponseStatus
, gtpirsTrafficPolicyInstance
) 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
newtype GetTrafficPolicyInstance = GetTrafficPolicyInstance'
{ _gtpiId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getTrafficPolicyInstance
:: Text
-> GetTrafficPolicyInstance
getTrafficPolicyInstance pId_ =
GetTrafficPolicyInstance'
{ _gtpiId = pId_
}
gtpiId :: Lens' GetTrafficPolicyInstance Text
gtpiId = lens _gtpiId (\ s a -> s{_gtpiId = a});
instance AWSRequest GetTrafficPolicyInstance where
type Rs GetTrafficPolicyInstance =
GetTrafficPolicyInstanceResponse
request = get route53
response
= receiveXML
(\ s h x ->
GetTrafficPolicyInstanceResponse' <$>
(pure (fromEnum s)) <*>
(x .@ "TrafficPolicyInstance"))
instance Hashable GetTrafficPolicyInstance
instance NFData GetTrafficPolicyInstance
instance ToHeaders GetTrafficPolicyInstance where
toHeaders = const mempty
instance ToPath GetTrafficPolicyInstance where
toPath GetTrafficPolicyInstance'{..}
= mconcat
["/2013-04-01/trafficpolicyinstance/", toBS _gtpiId]
instance ToQuery GetTrafficPolicyInstance where
toQuery = const mempty
data GetTrafficPolicyInstanceResponse = GetTrafficPolicyInstanceResponse'
{ _gtpirsResponseStatus :: !Int
, _gtpirsTrafficPolicyInstance :: !TrafficPolicyInstance
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getTrafficPolicyInstanceResponse
:: Int
-> TrafficPolicyInstance
-> GetTrafficPolicyInstanceResponse
getTrafficPolicyInstanceResponse pResponseStatus_ pTrafficPolicyInstance_ =
GetTrafficPolicyInstanceResponse'
{ _gtpirsResponseStatus = pResponseStatus_
, _gtpirsTrafficPolicyInstance = pTrafficPolicyInstance_
}
gtpirsResponseStatus :: Lens' GetTrafficPolicyInstanceResponse Int
gtpirsResponseStatus = lens _gtpirsResponseStatus (\ s a -> s{_gtpirsResponseStatus = a});
gtpirsTrafficPolicyInstance :: Lens' GetTrafficPolicyInstanceResponse TrafficPolicyInstance
gtpirsTrafficPolicyInstance = lens _gtpirsTrafficPolicyInstance (\ s a -> s{_gtpirsTrafficPolicyInstance = a});
instance NFData GetTrafficPolicyInstanceResponse