{-# 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.GetGeoLocation -- Copyright : (c) 2013-2018 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) -- -- Gets information about whether a specified geographic location is supported for Amazon Route 53 geolocation resource record sets. -- -- -- Use the following syntax to determine whether a continent is supported for geolocation: -- -- @GET /2013-04-01/geolocation?ContinentCode=/two-letter abbreviation for a continent/ @ -- -- Use the following syntax to determine whether a country is supported for geolocation: -- -- @GET /2013-04-01/geolocation?CountryCode=/two-character country code/ @ -- -- Use the following syntax to determine whether a subdivision of a country is supported for geolocation: -- -- @GET /2013-04-01/geolocation?CountryCode=/two-character country code/ &SubdivisionCode=/subdivision code/ @ -- module Network.AWS.Route53.GetGeoLocation ( -- * Creating a Request getGeoLocation , GetGeoLocation -- * Request Lenses , gglSubdivisionCode , gglCountryCode , gglContinentCode -- * Destructuring the Response , getGeoLocationResponse , GetGeoLocationResponse -- * Response Lenses , gglrsResponseStatus , gglrsGeoLocationDetails ) 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 request for information about whether a specified geographic location is supported for Amazon Route 53 geolocation resource record sets. -- -- -- -- /See:/ 'getGeoLocation' smart constructor. data GetGeoLocation = GetGeoLocation' { _gglSubdivisionCode :: !(Maybe Text) , _gglCountryCode :: !(Maybe Text) , _gglContinentCode :: !(Maybe Text) } deriving (Eq, Read, Show, Data, Typeable, Generic) -- | Creates a value of 'GetGeoLocation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'gglSubdivisionCode' - Amazon Route 53 uses the one- to three-letter subdivision codes that are specified in <https://en.wikipedia.org/wiki/ISO_3166-1_alpha-2 ISO standard 3166-1 alpha-2> . Amazon Route 53 doesn't support subdivision codes for all countries. If you specify @SubdivisionCode@ , you must also specify @CountryCode@ . -- -- * 'gglCountryCode' - Amazon Route 53 uses the two-letter country codes that are specified in <https://en.wikipedia.org/wiki/ISO_3166-1_alpha-2 ISO standard 3166-1 alpha-2> . -- -- * 'gglContinentCode' - Amazon Route 53 supports the following continent codes: * __AF__ : Africa * __AN__ : Antarctica * __AS__ : Asia * __EU__ : Europe * __OC__ : Oceania * __NA__ : North America * __SA__ : South America getGeoLocation :: GetGeoLocation getGeoLocation = GetGeoLocation' { _gglSubdivisionCode = Nothing , _gglCountryCode = Nothing , _gglContinentCode = Nothing } -- | Amazon Route 53 uses the one- to three-letter subdivision codes that are specified in <https://en.wikipedia.org/wiki/ISO_3166-1_alpha-2 ISO standard 3166-1 alpha-2> . Amazon Route 53 doesn't support subdivision codes for all countries. If you specify @SubdivisionCode@ , you must also specify @CountryCode@ . gglSubdivisionCode :: Lens' GetGeoLocation (Maybe Text) gglSubdivisionCode = lens _gglSubdivisionCode (\ s a -> s{_gglSubdivisionCode = a}) -- | Amazon Route 53 uses the two-letter country codes that are specified in <https://en.wikipedia.org/wiki/ISO_3166-1_alpha-2 ISO standard 3166-1 alpha-2> . gglCountryCode :: Lens' GetGeoLocation (Maybe Text) gglCountryCode = lens _gglCountryCode (\ s a -> s{_gglCountryCode = a}) -- | Amazon Route 53 supports the following continent codes: * __AF__ : Africa * __AN__ : Antarctica * __AS__ : Asia * __EU__ : Europe * __OC__ : Oceania * __NA__ : North America * __SA__ : South America gglContinentCode :: Lens' GetGeoLocation (Maybe Text) gglContinentCode = lens _gglContinentCode (\ s a -> s{_gglContinentCode = a}) instance AWSRequest GetGeoLocation where type Rs GetGeoLocation = GetGeoLocationResponse request = get route53 response = receiveXML (\ s h x -> GetGeoLocationResponse' <$> (pure (fromEnum s)) <*> (x .@ "GeoLocationDetails")) instance Hashable GetGeoLocation where instance NFData GetGeoLocation where instance ToHeaders GetGeoLocation where toHeaders = const mempty instance ToPath GetGeoLocation where toPath = const "/2013-04-01/geolocation" instance ToQuery GetGeoLocation where toQuery GetGeoLocation'{..} = mconcat ["subdivisioncode" =: _gglSubdivisionCode, "countrycode" =: _gglCountryCode, "continentcode" =: _gglContinentCode] -- | A complex type that contains the response information for the specified geolocation code. -- -- -- -- /See:/ 'getGeoLocationResponse' smart constructor. data GetGeoLocationResponse = GetGeoLocationResponse' { _gglrsResponseStatus :: !Int , _gglrsGeoLocationDetails :: !GeoLocationDetails } deriving (Eq, Read, Show, Data, Typeable, Generic) -- | Creates a value of 'GetGeoLocationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'gglrsResponseStatus' - -- | The response status code. -- -- * 'gglrsGeoLocationDetails' - A complex type that contains the codes and full continent, country, and subdivision names for the specified geolocation code. getGeoLocationResponse :: Int -- ^ 'gglrsResponseStatus' -> GeoLocationDetails -- ^ 'gglrsGeoLocationDetails' -> GetGeoLocationResponse getGeoLocationResponse pResponseStatus_ pGeoLocationDetails_ = GetGeoLocationResponse' { _gglrsResponseStatus = pResponseStatus_ , _gglrsGeoLocationDetails = pGeoLocationDetails_ } -- | -- | The response status code. gglrsResponseStatus :: Lens' GetGeoLocationResponse Int gglrsResponseStatus = lens _gglrsResponseStatus (\ s a -> s{_gglrsResponseStatus = a}) -- | A complex type that contains the codes and full continent, country, and subdivision names for the specified geolocation code. gglrsGeoLocationDetails :: Lens' GetGeoLocationResponse GeoLocationDetails gglrsGeoLocationDetails = lens _gglrsGeoLocationDetails (\ s a -> s{_gglrsGeoLocationDetails = a}) instance NFData GetGeoLocationResponse where