module Network.AWS.Route53.ListTrafficPolicyInstancesByHostedZone
(
listTrafficPolicyInstancesByHostedZone
, ListTrafficPolicyInstancesByHostedZone
, ltpibhzTrafficPolicyInstanceTypeMarker
, ltpibhzMaxItems
, ltpibhzTrafficPolicyInstanceNameMarker
, ltpibhzHostedZoneId
, listTrafficPolicyInstancesByHostedZoneResponse
, ListTrafficPolicyInstancesByHostedZoneResponse
, ltpibhzrsTrafficPolicyInstanceTypeMarker
, ltpibhzrsTrafficPolicyInstanceNameMarker
, ltpibhzrsResponseStatus
, ltpibhzrsTrafficPolicyInstances
, ltpibhzrsIsTruncated
, ltpibhzrsMaxItems
) 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 ListTrafficPolicyInstancesByHostedZone = ListTrafficPolicyInstancesByHostedZone'
{ _ltpibhzTrafficPolicyInstanceTypeMarker :: !(Maybe RecordType)
, _ltpibhzMaxItems :: !(Maybe Text)
, _ltpibhzTrafficPolicyInstanceNameMarker :: !(Maybe Text)
, _ltpibhzHostedZoneId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listTrafficPolicyInstancesByHostedZone
:: Text
-> ListTrafficPolicyInstancesByHostedZone
listTrafficPolicyInstancesByHostedZone pHostedZoneId_ =
ListTrafficPolicyInstancesByHostedZone'
{ _ltpibhzTrafficPolicyInstanceTypeMarker = Nothing
, _ltpibhzMaxItems = Nothing
, _ltpibhzTrafficPolicyInstanceNameMarker = Nothing
, _ltpibhzHostedZoneId = pHostedZoneId_
}
ltpibhzTrafficPolicyInstanceTypeMarker :: Lens' ListTrafficPolicyInstancesByHostedZone (Maybe RecordType)
ltpibhzTrafficPolicyInstanceTypeMarker = lens _ltpibhzTrafficPolicyInstanceTypeMarker (\ s a -> s{_ltpibhzTrafficPolicyInstanceTypeMarker = a});
ltpibhzMaxItems :: Lens' ListTrafficPolicyInstancesByHostedZone (Maybe Text)
ltpibhzMaxItems = lens _ltpibhzMaxItems (\ s a -> s{_ltpibhzMaxItems = a});
ltpibhzTrafficPolicyInstanceNameMarker :: Lens' ListTrafficPolicyInstancesByHostedZone (Maybe Text)
ltpibhzTrafficPolicyInstanceNameMarker = lens _ltpibhzTrafficPolicyInstanceNameMarker (\ s a -> s{_ltpibhzTrafficPolicyInstanceNameMarker = a});
ltpibhzHostedZoneId :: Lens' ListTrafficPolicyInstancesByHostedZone Text
ltpibhzHostedZoneId = lens _ltpibhzHostedZoneId (\ s a -> s{_ltpibhzHostedZoneId = a});
instance AWSRequest
ListTrafficPolicyInstancesByHostedZone where
type Rs ListTrafficPolicyInstancesByHostedZone =
ListTrafficPolicyInstancesByHostedZoneResponse
request = get route53
response
= receiveXML
(\ s h x ->
ListTrafficPolicyInstancesByHostedZoneResponse' <$>
(x .@? "TrafficPolicyInstanceTypeMarker") <*>
(x .@? "TrafficPolicyInstanceNameMarker")
<*> (pure (fromEnum s))
<*>
(x .@? "TrafficPolicyInstances" .!@ mempty >>=
parseXMLList "TrafficPolicyInstance")
<*> (x .@ "IsTruncated")
<*> (x .@ "MaxItems"))
instance Hashable
ListTrafficPolicyInstancesByHostedZone
instance NFData
ListTrafficPolicyInstancesByHostedZone
instance ToHeaders
ListTrafficPolicyInstancesByHostedZone where
toHeaders = const mempty
instance ToPath
ListTrafficPolicyInstancesByHostedZone where
toPath
= const
"/2013-04-01/trafficpolicyinstances/hostedzone"
instance ToQuery
ListTrafficPolicyInstancesByHostedZone where
toQuery ListTrafficPolicyInstancesByHostedZone'{..}
= mconcat
["trafficpolicyinstancetype" =:
_ltpibhzTrafficPolicyInstanceTypeMarker,
"maxitems" =: _ltpibhzMaxItems,
"trafficpolicyinstancename" =:
_ltpibhzTrafficPolicyInstanceNameMarker,
"id" =: _ltpibhzHostedZoneId]
data ListTrafficPolicyInstancesByHostedZoneResponse = ListTrafficPolicyInstancesByHostedZoneResponse'
{ _ltpibhzrsTrafficPolicyInstanceTypeMarker :: !(Maybe RecordType)
, _ltpibhzrsTrafficPolicyInstanceNameMarker :: !(Maybe Text)
, _ltpibhzrsResponseStatus :: !Int
, _ltpibhzrsTrafficPolicyInstances :: ![TrafficPolicyInstance]
, _ltpibhzrsIsTruncated :: !Bool
, _ltpibhzrsMaxItems :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listTrafficPolicyInstancesByHostedZoneResponse
:: Int
-> Bool
-> Text
-> ListTrafficPolicyInstancesByHostedZoneResponse
listTrafficPolicyInstancesByHostedZoneResponse pResponseStatus_ pIsTruncated_ pMaxItems_ =
ListTrafficPolicyInstancesByHostedZoneResponse'
{ _ltpibhzrsTrafficPolicyInstanceTypeMarker = Nothing
, _ltpibhzrsTrafficPolicyInstanceNameMarker = Nothing
, _ltpibhzrsResponseStatus = pResponseStatus_
, _ltpibhzrsTrafficPolicyInstances = mempty
, _ltpibhzrsIsTruncated = pIsTruncated_
, _ltpibhzrsMaxItems = pMaxItems_
}
ltpibhzrsTrafficPolicyInstanceTypeMarker :: Lens' ListTrafficPolicyInstancesByHostedZoneResponse (Maybe RecordType)
ltpibhzrsTrafficPolicyInstanceTypeMarker = lens _ltpibhzrsTrafficPolicyInstanceTypeMarker (\ s a -> s{_ltpibhzrsTrafficPolicyInstanceTypeMarker = a});
ltpibhzrsTrafficPolicyInstanceNameMarker :: Lens' ListTrafficPolicyInstancesByHostedZoneResponse (Maybe Text)
ltpibhzrsTrafficPolicyInstanceNameMarker = lens _ltpibhzrsTrafficPolicyInstanceNameMarker (\ s a -> s{_ltpibhzrsTrafficPolicyInstanceNameMarker = a});
ltpibhzrsResponseStatus :: Lens' ListTrafficPolicyInstancesByHostedZoneResponse Int
ltpibhzrsResponseStatus = lens _ltpibhzrsResponseStatus (\ s a -> s{_ltpibhzrsResponseStatus = a});
ltpibhzrsTrafficPolicyInstances :: Lens' ListTrafficPolicyInstancesByHostedZoneResponse [TrafficPolicyInstance]
ltpibhzrsTrafficPolicyInstances = lens _ltpibhzrsTrafficPolicyInstances (\ s a -> s{_ltpibhzrsTrafficPolicyInstances = a}) . _Coerce;
ltpibhzrsIsTruncated :: Lens' ListTrafficPolicyInstancesByHostedZoneResponse Bool
ltpibhzrsIsTruncated = lens _ltpibhzrsIsTruncated (\ s a -> s{_ltpibhzrsIsTruncated = a});
ltpibhzrsMaxItems :: Lens' ListTrafficPolicyInstancesByHostedZoneResponse Text
ltpibhzrsMaxItems = lens _ltpibhzrsMaxItems (\ s a -> s{_ltpibhzrsMaxItems = a});
instance NFData
ListTrafficPolicyInstancesByHostedZoneResponse