{-# 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.GetCheckerIPRanges
(
getCheckerIPRanges
, GetCheckerIPRanges
, getCheckerIPRangesResponse
, GetCheckerIPRangesResponse
, gcirrsResponseStatus
, gcirrsCheckerIPRanges
) 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 GetCheckerIPRanges =
GetCheckerIPRanges'
deriving (Eq, Read, Show, Data, Typeable, Generic)
getCheckerIPRanges
:: GetCheckerIPRanges
getCheckerIPRanges = GetCheckerIPRanges'
instance AWSRequest GetCheckerIPRanges where
type Rs GetCheckerIPRanges =
GetCheckerIPRangesResponse
request = get route53
response
= receiveXML
(\ s h x ->
GetCheckerIPRangesResponse' <$>
(pure (fromEnum s)) <*>
(x .@? "CheckerIpRanges" .!@ mempty >>=
parseXMLList "member"))
instance Hashable GetCheckerIPRanges where
instance NFData GetCheckerIPRanges where
instance ToHeaders GetCheckerIPRanges where
toHeaders = const mempty
instance ToPath GetCheckerIPRanges where
toPath = const "/2013-04-01/checkeripranges"
instance ToQuery GetCheckerIPRanges where
toQuery = const mempty
data GetCheckerIPRangesResponse = GetCheckerIPRangesResponse'
{ _gcirrsResponseStatus :: !Int
, _gcirrsCheckerIPRanges :: ![Text]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getCheckerIPRangesResponse
:: Int
-> GetCheckerIPRangesResponse
getCheckerIPRangesResponse pResponseStatus_ =
GetCheckerIPRangesResponse'
{_gcirrsResponseStatus = pResponseStatus_, _gcirrsCheckerIPRanges = mempty}
gcirrsResponseStatus :: Lens' GetCheckerIPRangesResponse Int
gcirrsResponseStatus = lens _gcirrsResponseStatus (\ s a -> s{_gcirrsResponseStatus = a})
gcirrsCheckerIPRanges :: Lens' GetCheckerIPRangesResponse [Text]
gcirrsCheckerIPRanges = lens _gcirrsCheckerIPRanges (\ s a -> s{_gcirrsCheckerIPRanges = a}) . _Coerce
instance NFData GetCheckerIPRangesResponse where