{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.Route53.ListGeoLocations
(
ListGeoLocations (..),
newListGeoLocations,
listGeoLocations_maxItems,
listGeoLocations_startContinentCode,
listGeoLocations_startCountryCode,
listGeoLocations_startSubdivisionCode,
ListGeoLocationsResponse (..),
newListGeoLocationsResponse,
listGeoLocationsResponse_nextContinentCode,
listGeoLocationsResponse_nextCountryCode,
listGeoLocationsResponse_nextSubdivisionCode,
listGeoLocationsResponse_httpStatus,
listGeoLocationsResponse_geoLocationDetailsList,
listGeoLocationsResponse_isTruncated,
listGeoLocationsResponse_maxItems,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.Route53.Types
data ListGeoLocations = ListGeoLocations'
{
ListGeoLocations -> Maybe Text
maxItems :: Prelude.Maybe Prelude.Text,
ListGeoLocations -> Maybe Text
startContinentCode :: Prelude.Maybe Prelude.Text,
ListGeoLocations -> Maybe Text
startCountryCode :: Prelude.Maybe Prelude.Text,
ListGeoLocations -> Maybe Text
startSubdivisionCode :: Prelude.Maybe Prelude.Text
}
deriving (ListGeoLocations -> ListGeoLocations -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListGeoLocations -> ListGeoLocations -> Bool
$c/= :: ListGeoLocations -> ListGeoLocations -> Bool
== :: ListGeoLocations -> ListGeoLocations -> Bool
$c== :: ListGeoLocations -> ListGeoLocations -> Bool
Prelude.Eq, ReadPrec [ListGeoLocations]
ReadPrec ListGeoLocations
Int -> ReadS ListGeoLocations
ReadS [ListGeoLocations]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListGeoLocations]
$creadListPrec :: ReadPrec [ListGeoLocations]
readPrec :: ReadPrec ListGeoLocations
$creadPrec :: ReadPrec ListGeoLocations
readList :: ReadS [ListGeoLocations]
$creadList :: ReadS [ListGeoLocations]
readsPrec :: Int -> ReadS ListGeoLocations
$creadsPrec :: Int -> ReadS ListGeoLocations
Prelude.Read, Int -> ListGeoLocations -> ShowS
[ListGeoLocations] -> ShowS
ListGeoLocations -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListGeoLocations] -> ShowS
$cshowList :: [ListGeoLocations] -> ShowS
show :: ListGeoLocations -> String
$cshow :: ListGeoLocations -> String
showsPrec :: Int -> ListGeoLocations -> ShowS
$cshowsPrec :: Int -> ListGeoLocations -> ShowS
Prelude.Show, forall x. Rep ListGeoLocations x -> ListGeoLocations
forall x. ListGeoLocations -> Rep ListGeoLocations x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListGeoLocations x -> ListGeoLocations
$cfrom :: forall x. ListGeoLocations -> Rep ListGeoLocations x
Prelude.Generic)
newListGeoLocations ::
ListGeoLocations
newListGeoLocations :: ListGeoLocations
newListGeoLocations =
ListGeoLocations'
{ $sel:maxItems:ListGeoLocations' :: Maybe Text
maxItems = forall a. Maybe a
Prelude.Nothing,
$sel:startContinentCode:ListGeoLocations' :: Maybe Text
startContinentCode = forall a. Maybe a
Prelude.Nothing,
$sel:startCountryCode:ListGeoLocations' :: Maybe Text
startCountryCode = forall a. Maybe a
Prelude.Nothing,
$sel:startSubdivisionCode:ListGeoLocations' :: Maybe Text
startSubdivisionCode = forall a. Maybe a
Prelude.Nothing
}
listGeoLocations_maxItems :: Lens.Lens' ListGeoLocations (Prelude.Maybe Prelude.Text)
listGeoLocations_maxItems :: Lens' ListGeoLocations (Maybe Text)
listGeoLocations_maxItems = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListGeoLocations' {Maybe Text
maxItems :: Maybe Text
$sel:maxItems:ListGeoLocations' :: ListGeoLocations -> Maybe Text
maxItems} -> Maybe Text
maxItems) (\s :: ListGeoLocations
s@ListGeoLocations' {} Maybe Text
a -> ListGeoLocations
s {$sel:maxItems:ListGeoLocations' :: Maybe Text
maxItems = Maybe Text
a} :: ListGeoLocations)
listGeoLocations_startContinentCode :: Lens.Lens' ListGeoLocations (Prelude.Maybe Prelude.Text)
listGeoLocations_startContinentCode :: Lens' ListGeoLocations (Maybe Text)
listGeoLocations_startContinentCode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListGeoLocations' {Maybe Text
startContinentCode :: Maybe Text
$sel:startContinentCode:ListGeoLocations' :: ListGeoLocations -> Maybe Text
startContinentCode} -> Maybe Text
startContinentCode) (\s :: ListGeoLocations
s@ListGeoLocations' {} Maybe Text
a -> ListGeoLocations
s {$sel:startContinentCode:ListGeoLocations' :: Maybe Text
startContinentCode = Maybe Text
a} :: ListGeoLocations)
listGeoLocations_startCountryCode :: Lens.Lens' ListGeoLocations (Prelude.Maybe Prelude.Text)
listGeoLocations_startCountryCode :: Lens' ListGeoLocations (Maybe Text)
listGeoLocations_startCountryCode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListGeoLocations' {Maybe Text
startCountryCode :: Maybe Text
$sel:startCountryCode:ListGeoLocations' :: ListGeoLocations -> Maybe Text
startCountryCode} -> Maybe Text
startCountryCode) (\s :: ListGeoLocations
s@ListGeoLocations' {} Maybe Text
a -> ListGeoLocations
s {$sel:startCountryCode:ListGeoLocations' :: Maybe Text
startCountryCode = Maybe Text
a} :: ListGeoLocations)
listGeoLocations_startSubdivisionCode :: Lens.Lens' ListGeoLocations (Prelude.Maybe Prelude.Text)
listGeoLocations_startSubdivisionCode :: Lens' ListGeoLocations (Maybe Text)
listGeoLocations_startSubdivisionCode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListGeoLocations' {Maybe Text
startSubdivisionCode :: Maybe Text
$sel:startSubdivisionCode:ListGeoLocations' :: ListGeoLocations -> Maybe Text
startSubdivisionCode} -> Maybe Text
startSubdivisionCode) (\s :: ListGeoLocations
s@ListGeoLocations' {} Maybe Text
a -> ListGeoLocations
s {$sel:startSubdivisionCode:ListGeoLocations' :: Maybe Text
startSubdivisionCode = Maybe Text
a} :: ListGeoLocations)
instance Core.AWSRequest ListGeoLocations where
type
AWSResponse ListGeoLocations =
ListGeoLocationsResponse
request :: (Service -> Service)
-> ListGeoLocations -> Request ListGeoLocations
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ListGeoLocations
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse ListGeoLocations)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXML
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> [GeoLocationDetails]
-> Bool
-> Text
-> ListGeoLocationsResponse
ListGeoLocationsResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"NextContinentCode")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"NextCountryCode")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"NextSubdivisionCode")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( [Node]
x
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"GeoLocationDetailsList"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
Prelude.>>= forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"GeoLocationDetails"
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String a
Data..@ Text
"IsTruncated")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String a
Data..@ Text
"MaxItems")
)
instance Prelude.Hashable ListGeoLocations where
hashWithSalt :: Int -> ListGeoLocations -> Int
hashWithSalt Int
_salt ListGeoLocations' {Maybe Text
startSubdivisionCode :: Maybe Text
startCountryCode :: Maybe Text
startContinentCode :: Maybe Text
maxItems :: Maybe Text
$sel:startSubdivisionCode:ListGeoLocations' :: ListGeoLocations -> Maybe Text
$sel:startCountryCode:ListGeoLocations' :: ListGeoLocations -> Maybe Text
$sel:startContinentCode:ListGeoLocations' :: ListGeoLocations -> Maybe Text
$sel:maxItems:ListGeoLocations' :: ListGeoLocations -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
maxItems
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
startContinentCode
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
startCountryCode
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
startSubdivisionCode
instance Prelude.NFData ListGeoLocations where
rnf :: ListGeoLocations -> ()
rnf ListGeoLocations' {Maybe Text
startSubdivisionCode :: Maybe Text
startCountryCode :: Maybe Text
startContinentCode :: Maybe Text
maxItems :: Maybe Text
$sel:startSubdivisionCode:ListGeoLocations' :: ListGeoLocations -> Maybe Text
$sel:startCountryCode:ListGeoLocations' :: ListGeoLocations -> Maybe Text
$sel:startContinentCode:ListGeoLocations' :: ListGeoLocations -> Maybe Text
$sel:maxItems:ListGeoLocations' :: ListGeoLocations -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
maxItems
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
startContinentCode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
startCountryCode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
startSubdivisionCode
instance Data.ToHeaders ListGeoLocations where
toHeaders :: ListGeoLocations -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath ListGeoLocations where
toPath :: ListGeoLocations -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/2013-04-01/geolocations"
instance Data.ToQuery ListGeoLocations where
toQuery :: ListGeoLocations -> QueryString
toQuery ListGeoLocations' {Maybe Text
startSubdivisionCode :: Maybe Text
startCountryCode :: Maybe Text
startContinentCode :: Maybe Text
maxItems :: Maybe Text
$sel:startSubdivisionCode:ListGeoLocations' :: ListGeoLocations -> Maybe Text
$sel:startCountryCode:ListGeoLocations' :: ListGeoLocations -> Maybe Text
$sel:startContinentCode:ListGeoLocations' :: ListGeoLocations -> Maybe Text
$sel:maxItems:ListGeoLocations' :: ListGeoLocations -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"maxitems" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
maxItems,
ByteString
"startcontinentcode" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
startContinentCode,
ByteString
"startcountrycode" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
startCountryCode,
ByteString
"startsubdivisioncode" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
startSubdivisionCode
]
data ListGeoLocationsResponse = ListGeoLocationsResponse'
{
ListGeoLocationsResponse -> Maybe Text
nextContinentCode :: Prelude.Maybe Prelude.Text,
ListGeoLocationsResponse -> Maybe Text
nextCountryCode :: Prelude.Maybe Prelude.Text,
ListGeoLocationsResponse -> Maybe Text
nextSubdivisionCode :: Prelude.Maybe Prelude.Text,
ListGeoLocationsResponse -> Int
httpStatus :: Prelude.Int,
ListGeoLocationsResponse -> [GeoLocationDetails]
geoLocationDetailsList :: [GeoLocationDetails],
ListGeoLocationsResponse -> Bool
isTruncated :: Prelude.Bool,
ListGeoLocationsResponse -> Text
maxItems :: Prelude.Text
}
deriving (ListGeoLocationsResponse -> ListGeoLocationsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListGeoLocationsResponse -> ListGeoLocationsResponse -> Bool
$c/= :: ListGeoLocationsResponse -> ListGeoLocationsResponse -> Bool
== :: ListGeoLocationsResponse -> ListGeoLocationsResponse -> Bool
$c== :: ListGeoLocationsResponse -> ListGeoLocationsResponse -> Bool
Prelude.Eq, ReadPrec [ListGeoLocationsResponse]
ReadPrec ListGeoLocationsResponse
Int -> ReadS ListGeoLocationsResponse
ReadS [ListGeoLocationsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListGeoLocationsResponse]
$creadListPrec :: ReadPrec [ListGeoLocationsResponse]
readPrec :: ReadPrec ListGeoLocationsResponse
$creadPrec :: ReadPrec ListGeoLocationsResponse
readList :: ReadS [ListGeoLocationsResponse]
$creadList :: ReadS [ListGeoLocationsResponse]
readsPrec :: Int -> ReadS ListGeoLocationsResponse
$creadsPrec :: Int -> ReadS ListGeoLocationsResponse
Prelude.Read, Int -> ListGeoLocationsResponse -> ShowS
[ListGeoLocationsResponse] -> ShowS
ListGeoLocationsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListGeoLocationsResponse] -> ShowS
$cshowList :: [ListGeoLocationsResponse] -> ShowS
show :: ListGeoLocationsResponse -> String
$cshow :: ListGeoLocationsResponse -> String
showsPrec :: Int -> ListGeoLocationsResponse -> ShowS
$cshowsPrec :: Int -> ListGeoLocationsResponse -> ShowS
Prelude.Show, forall x.
Rep ListGeoLocationsResponse x -> ListGeoLocationsResponse
forall x.
ListGeoLocationsResponse -> Rep ListGeoLocationsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListGeoLocationsResponse x -> ListGeoLocationsResponse
$cfrom :: forall x.
ListGeoLocationsResponse -> Rep ListGeoLocationsResponse x
Prelude.Generic)
newListGeoLocationsResponse ::
Prelude.Int ->
Prelude.Bool ->
Prelude.Text ->
ListGeoLocationsResponse
newListGeoLocationsResponse :: Int -> Bool -> Text -> ListGeoLocationsResponse
newListGeoLocationsResponse
Int
pHttpStatus_
Bool
pIsTruncated_
Text
pMaxItems_ =
ListGeoLocationsResponse'
{ $sel:nextContinentCode:ListGeoLocationsResponse' :: Maybe Text
nextContinentCode =
forall a. Maybe a
Prelude.Nothing,
$sel:nextCountryCode:ListGeoLocationsResponse' :: Maybe Text
nextCountryCode = forall a. Maybe a
Prelude.Nothing,
$sel:nextSubdivisionCode:ListGeoLocationsResponse' :: Maybe Text
nextSubdivisionCode = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListGeoLocationsResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:geoLocationDetailsList:ListGeoLocationsResponse' :: [GeoLocationDetails]
geoLocationDetailsList = forall a. Monoid a => a
Prelude.mempty,
$sel:isTruncated:ListGeoLocationsResponse' :: Bool
isTruncated = Bool
pIsTruncated_,
$sel:maxItems:ListGeoLocationsResponse' :: Text
maxItems = Text
pMaxItems_
}
listGeoLocationsResponse_nextContinentCode :: Lens.Lens' ListGeoLocationsResponse (Prelude.Maybe Prelude.Text)
listGeoLocationsResponse_nextContinentCode :: Lens' ListGeoLocationsResponse (Maybe Text)
listGeoLocationsResponse_nextContinentCode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListGeoLocationsResponse' {Maybe Text
nextContinentCode :: Maybe Text
$sel:nextContinentCode:ListGeoLocationsResponse' :: ListGeoLocationsResponse -> Maybe Text
nextContinentCode} -> Maybe Text
nextContinentCode) (\s :: ListGeoLocationsResponse
s@ListGeoLocationsResponse' {} Maybe Text
a -> ListGeoLocationsResponse
s {$sel:nextContinentCode:ListGeoLocationsResponse' :: Maybe Text
nextContinentCode = Maybe Text
a} :: ListGeoLocationsResponse)
listGeoLocationsResponse_nextCountryCode :: Lens.Lens' ListGeoLocationsResponse (Prelude.Maybe Prelude.Text)
listGeoLocationsResponse_nextCountryCode :: Lens' ListGeoLocationsResponse (Maybe Text)
listGeoLocationsResponse_nextCountryCode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListGeoLocationsResponse' {Maybe Text
nextCountryCode :: Maybe Text
$sel:nextCountryCode:ListGeoLocationsResponse' :: ListGeoLocationsResponse -> Maybe Text
nextCountryCode} -> Maybe Text
nextCountryCode) (\s :: ListGeoLocationsResponse
s@ListGeoLocationsResponse' {} Maybe Text
a -> ListGeoLocationsResponse
s {$sel:nextCountryCode:ListGeoLocationsResponse' :: Maybe Text
nextCountryCode = Maybe Text
a} :: ListGeoLocationsResponse)
listGeoLocationsResponse_nextSubdivisionCode :: Lens.Lens' ListGeoLocationsResponse (Prelude.Maybe Prelude.Text)
listGeoLocationsResponse_nextSubdivisionCode :: Lens' ListGeoLocationsResponse (Maybe Text)
listGeoLocationsResponse_nextSubdivisionCode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListGeoLocationsResponse' {Maybe Text
nextSubdivisionCode :: Maybe Text
$sel:nextSubdivisionCode:ListGeoLocationsResponse' :: ListGeoLocationsResponse -> Maybe Text
nextSubdivisionCode} -> Maybe Text
nextSubdivisionCode) (\s :: ListGeoLocationsResponse
s@ListGeoLocationsResponse' {} Maybe Text
a -> ListGeoLocationsResponse
s {$sel:nextSubdivisionCode:ListGeoLocationsResponse' :: Maybe Text
nextSubdivisionCode = Maybe Text
a} :: ListGeoLocationsResponse)
listGeoLocationsResponse_httpStatus :: Lens.Lens' ListGeoLocationsResponse Prelude.Int
listGeoLocationsResponse_httpStatus :: Lens' ListGeoLocationsResponse Int
listGeoLocationsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListGeoLocationsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListGeoLocationsResponse' :: ListGeoLocationsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListGeoLocationsResponse
s@ListGeoLocationsResponse' {} Int
a -> ListGeoLocationsResponse
s {$sel:httpStatus:ListGeoLocationsResponse' :: Int
httpStatus = Int
a} :: ListGeoLocationsResponse)
listGeoLocationsResponse_geoLocationDetailsList :: Lens.Lens' ListGeoLocationsResponse [GeoLocationDetails]
listGeoLocationsResponse_geoLocationDetailsList :: Lens' ListGeoLocationsResponse [GeoLocationDetails]
listGeoLocationsResponse_geoLocationDetailsList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListGeoLocationsResponse' {[GeoLocationDetails]
geoLocationDetailsList :: [GeoLocationDetails]
$sel:geoLocationDetailsList:ListGeoLocationsResponse' :: ListGeoLocationsResponse -> [GeoLocationDetails]
geoLocationDetailsList} -> [GeoLocationDetails]
geoLocationDetailsList) (\s :: ListGeoLocationsResponse
s@ListGeoLocationsResponse' {} [GeoLocationDetails]
a -> ListGeoLocationsResponse
s {$sel:geoLocationDetailsList:ListGeoLocationsResponse' :: [GeoLocationDetails]
geoLocationDetailsList = [GeoLocationDetails]
a} :: ListGeoLocationsResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
listGeoLocationsResponse_isTruncated :: Lens.Lens' ListGeoLocationsResponse Prelude.Bool
listGeoLocationsResponse_isTruncated :: Lens' ListGeoLocationsResponse Bool
listGeoLocationsResponse_isTruncated = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListGeoLocationsResponse' {Bool
isTruncated :: Bool
$sel:isTruncated:ListGeoLocationsResponse' :: ListGeoLocationsResponse -> Bool
isTruncated} -> Bool
isTruncated) (\s :: ListGeoLocationsResponse
s@ListGeoLocationsResponse' {} Bool
a -> ListGeoLocationsResponse
s {$sel:isTruncated:ListGeoLocationsResponse' :: Bool
isTruncated = Bool
a} :: ListGeoLocationsResponse)
listGeoLocationsResponse_maxItems :: Lens.Lens' ListGeoLocationsResponse Prelude.Text
listGeoLocationsResponse_maxItems :: Lens' ListGeoLocationsResponse Text
listGeoLocationsResponse_maxItems = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListGeoLocationsResponse' {Text
maxItems :: Text
$sel:maxItems:ListGeoLocationsResponse' :: ListGeoLocationsResponse -> Text
maxItems} -> Text
maxItems) (\s :: ListGeoLocationsResponse
s@ListGeoLocationsResponse' {} Text
a -> ListGeoLocationsResponse
s {$sel:maxItems:ListGeoLocationsResponse' :: Text
maxItems = Text
a} :: ListGeoLocationsResponse)
instance Prelude.NFData ListGeoLocationsResponse where
rnf :: ListGeoLocationsResponse -> ()
rnf ListGeoLocationsResponse' {Bool
Int
[GeoLocationDetails]
Maybe Text
Text
maxItems :: Text
isTruncated :: Bool
geoLocationDetailsList :: [GeoLocationDetails]
httpStatus :: Int
nextSubdivisionCode :: Maybe Text
nextCountryCode :: Maybe Text
nextContinentCode :: Maybe Text
$sel:maxItems:ListGeoLocationsResponse' :: ListGeoLocationsResponse -> Text
$sel:isTruncated:ListGeoLocationsResponse' :: ListGeoLocationsResponse -> Bool
$sel:geoLocationDetailsList:ListGeoLocationsResponse' :: ListGeoLocationsResponse -> [GeoLocationDetails]
$sel:httpStatus:ListGeoLocationsResponse' :: ListGeoLocationsResponse -> Int
$sel:nextSubdivisionCode:ListGeoLocationsResponse' :: ListGeoLocationsResponse -> Maybe Text
$sel:nextCountryCode:ListGeoLocationsResponse' :: ListGeoLocationsResponse -> Maybe Text
$sel:nextContinentCode:ListGeoLocationsResponse' :: ListGeoLocationsResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextContinentCode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextCountryCode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextSubdivisionCode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [GeoLocationDetails]
geoLocationDetailsList
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Bool
isTruncated
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
maxItems