{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.Location.Types.Place where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Location.Types.PlaceGeometry
import Amazonka.Location.Types.TimeZone
import qualified Amazonka.Prelude as Prelude
data Place = Place'
{
Place -> Maybe Text
addressNumber :: Prelude.Maybe Prelude.Text,
Place -> Maybe Text
country :: Prelude.Maybe Prelude.Text,
Place -> Maybe Bool
interpolated :: Prelude.Maybe Prelude.Bool,
Place -> Maybe Text
label :: Prelude.Maybe Prelude.Text,
Place -> Maybe Text
municipality :: Prelude.Maybe Prelude.Text,
Place -> Maybe Text
neighborhood :: Prelude.Maybe Prelude.Text,
Place -> Maybe Text
postalCode :: Prelude.Maybe Prelude.Text,
Place -> Maybe Text
region :: Prelude.Maybe Prelude.Text,
Place -> Maybe Text
street :: Prelude.Maybe Prelude.Text,
Place -> Maybe Text
subRegion :: Prelude.Maybe Prelude.Text,
Place -> Maybe TimeZone
timeZone :: Prelude.Maybe TimeZone,
Place -> Maybe Text
unitNumber :: Prelude.Maybe Prelude.Text,
Place -> Maybe Text
unitType :: Prelude.Maybe Prelude.Text,
Place -> PlaceGeometry
geometry :: PlaceGeometry
}
deriving (Place -> Place -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Place -> Place -> Bool
$c/= :: Place -> Place -> Bool
== :: Place -> Place -> Bool
$c== :: Place -> Place -> Bool
Prelude.Eq, Int -> Place -> ShowS
[Place] -> ShowS
Place -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Place] -> ShowS
$cshowList :: [Place] -> ShowS
show :: Place -> String
$cshow :: Place -> String
showsPrec :: Int -> Place -> ShowS
$cshowsPrec :: Int -> Place -> ShowS
Prelude.Show, forall x. Rep Place x -> Place
forall x. Place -> Rep Place x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep Place x -> Place
$cfrom :: forall x. Place -> Rep Place x
Prelude.Generic)
newPlace ::
PlaceGeometry ->
Place
newPlace :: PlaceGeometry -> Place
newPlace PlaceGeometry
pGeometry_ =
Place'
{ $sel:addressNumber:Place' :: Maybe Text
addressNumber = forall a. Maybe a
Prelude.Nothing,
$sel:country:Place' :: Maybe Text
country = forall a. Maybe a
Prelude.Nothing,
$sel:interpolated:Place' :: Maybe Bool
interpolated = forall a. Maybe a
Prelude.Nothing,
$sel:label:Place' :: Maybe Text
label = forall a. Maybe a
Prelude.Nothing,
$sel:municipality:Place' :: Maybe Text
municipality = forall a. Maybe a
Prelude.Nothing,
$sel:neighborhood:Place' :: Maybe Text
neighborhood = forall a. Maybe a
Prelude.Nothing,
$sel:postalCode:Place' :: Maybe Text
postalCode = forall a. Maybe a
Prelude.Nothing,
$sel:region:Place' :: Maybe Text
region = forall a. Maybe a
Prelude.Nothing,
$sel:street:Place' :: Maybe Text
street = forall a. Maybe a
Prelude.Nothing,
$sel:subRegion:Place' :: Maybe Text
subRegion = forall a. Maybe a
Prelude.Nothing,
$sel:timeZone:Place' :: Maybe TimeZone
timeZone = forall a. Maybe a
Prelude.Nothing,
$sel:unitNumber:Place' :: Maybe Text
unitNumber = forall a. Maybe a
Prelude.Nothing,
$sel:unitType:Place' :: Maybe Text
unitType = forall a. Maybe a
Prelude.Nothing,
$sel:geometry:Place' :: PlaceGeometry
geometry = PlaceGeometry
pGeometry_
}
place_addressNumber :: Lens.Lens' Place (Prelude.Maybe Prelude.Text)
place_addressNumber :: Lens' Place (Maybe Text)
place_addressNumber = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Place' {Maybe Text
addressNumber :: Maybe Text
$sel:addressNumber:Place' :: Place -> Maybe Text
addressNumber} -> Maybe Text
addressNumber) (\s :: Place
s@Place' {} Maybe Text
a -> Place
s {$sel:addressNumber:Place' :: Maybe Text
addressNumber = Maybe Text
a} :: Place)
place_country :: Lens.Lens' Place (Prelude.Maybe Prelude.Text)
place_country :: Lens' Place (Maybe Text)
place_country = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Place' {Maybe Text
country :: Maybe Text
$sel:country:Place' :: Place -> Maybe Text
country} -> Maybe Text
country) (\s :: Place
s@Place' {} Maybe Text
a -> Place
s {$sel:country:Place' :: Maybe Text
country = Maybe Text
a} :: Place)
place_interpolated :: Lens.Lens' Place (Prelude.Maybe Prelude.Bool)
place_interpolated :: Lens' Place (Maybe Bool)
place_interpolated = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Place' {Maybe Bool
interpolated :: Maybe Bool
$sel:interpolated:Place' :: Place -> Maybe Bool
interpolated} -> Maybe Bool
interpolated) (\s :: Place
s@Place' {} Maybe Bool
a -> Place
s {$sel:interpolated:Place' :: Maybe Bool
interpolated = Maybe Bool
a} :: Place)
place_label :: Lens.Lens' Place (Prelude.Maybe Prelude.Text)
place_label :: Lens' Place (Maybe Text)
place_label = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Place' {Maybe Text
label :: Maybe Text
$sel:label:Place' :: Place -> Maybe Text
label} -> Maybe Text
label) (\s :: Place
s@Place' {} Maybe Text
a -> Place
s {$sel:label:Place' :: Maybe Text
label = Maybe Text
a} :: Place)
place_municipality :: Lens.Lens' Place (Prelude.Maybe Prelude.Text)
place_municipality :: Lens' Place (Maybe Text)
place_municipality = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Place' {Maybe Text
municipality :: Maybe Text
$sel:municipality:Place' :: Place -> Maybe Text
municipality} -> Maybe Text
municipality) (\s :: Place
s@Place' {} Maybe Text
a -> Place
s {$sel:municipality:Place' :: Maybe Text
municipality = Maybe Text
a} :: Place)
place_neighborhood :: Lens.Lens' Place (Prelude.Maybe Prelude.Text)
place_neighborhood :: Lens' Place (Maybe Text)
place_neighborhood = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Place' {Maybe Text
neighborhood :: Maybe Text
$sel:neighborhood:Place' :: Place -> Maybe Text
neighborhood} -> Maybe Text
neighborhood) (\s :: Place
s@Place' {} Maybe Text
a -> Place
s {$sel:neighborhood:Place' :: Maybe Text
neighborhood = Maybe Text
a} :: Place)
place_postalCode :: Lens.Lens' Place (Prelude.Maybe Prelude.Text)
place_postalCode :: Lens' Place (Maybe Text)
place_postalCode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Place' {Maybe Text
postalCode :: Maybe Text
$sel:postalCode:Place' :: Place -> Maybe Text
postalCode} -> Maybe Text
postalCode) (\s :: Place
s@Place' {} Maybe Text
a -> Place
s {$sel:postalCode:Place' :: Maybe Text
postalCode = Maybe Text
a} :: Place)
place_region :: Lens.Lens' Place (Prelude.Maybe Prelude.Text)
place_region :: Lens' Place (Maybe Text)
place_region = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Place' {Maybe Text
region :: Maybe Text
$sel:region:Place' :: Place -> Maybe Text
region} -> Maybe Text
region) (\s :: Place
s@Place' {} Maybe Text
a -> Place
s {$sel:region:Place' :: Maybe Text
region = Maybe Text
a} :: Place)
place_street :: Lens.Lens' Place (Prelude.Maybe Prelude.Text)
place_street :: Lens' Place (Maybe Text)
place_street = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Place' {Maybe Text
street :: Maybe Text
$sel:street:Place' :: Place -> Maybe Text
street} -> Maybe Text
street) (\s :: Place
s@Place' {} Maybe Text
a -> Place
s {$sel:street:Place' :: Maybe Text
street = Maybe Text
a} :: Place)
place_subRegion :: Lens.Lens' Place (Prelude.Maybe Prelude.Text)
place_subRegion :: Lens' Place (Maybe Text)
place_subRegion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Place' {Maybe Text
subRegion :: Maybe Text
$sel:subRegion:Place' :: Place -> Maybe Text
subRegion} -> Maybe Text
subRegion) (\s :: Place
s@Place' {} Maybe Text
a -> Place
s {$sel:subRegion:Place' :: Maybe Text
subRegion = Maybe Text
a} :: Place)
place_timeZone :: Lens.Lens' Place (Prelude.Maybe TimeZone)
place_timeZone :: Lens' Place (Maybe TimeZone)
place_timeZone = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Place' {Maybe TimeZone
timeZone :: Maybe TimeZone
$sel:timeZone:Place' :: Place -> Maybe TimeZone
timeZone} -> Maybe TimeZone
timeZone) (\s :: Place
s@Place' {} Maybe TimeZone
a -> Place
s {$sel:timeZone:Place' :: Maybe TimeZone
timeZone = Maybe TimeZone
a} :: Place)
place_unitNumber :: Lens.Lens' Place (Prelude.Maybe Prelude.Text)
place_unitNumber :: Lens' Place (Maybe Text)
place_unitNumber = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Place' {Maybe Text
unitNumber :: Maybe Text
$sel:unitNumber:Place' :: Place -> Maybe Text
unitNumber} -> Maybe Text
unitNumber) (\s :: Place
s@Place' {} Maybe Text
a -> Place
s {$sel:unitNumber:Place' :: Maybe Text
unitNumber = Maybe Text
a} :: Place)
place_unitType :: Lens.Lens' Place (Prelude.Maybe Prelude.Text)
place_unitType :: Lens' Place (Maybe Text)
place_unitType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Place' {Maybe Text
unitType :: Maybe Text
$sel:unitType:Place' :: Place -> Maybe Text
unitType} -> Maybe Text
unitType) (\s :: Place
s@Place' {} Maybe Text
a -> Place
s {$sel:unitType:Place' :: Maybe Text
unitType = Maybe Text
a} :: Place)
place_geometry :: Lens.Lens' Place PlaceGeometry
place_geometry :: Lens' Place PlaceGeometry
place_geometry = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Place' {PlaceGeometry
geometry :: PlaceGeometry
$sel:geometry:Place' :: Place -> PlaceGeometry
geometry} -> PlaceGeometry
geometry) (\s :: Place
s@Place' {} PlaceGeometry
a -> Place
s {$sel:geometry:Place' :: PlaceGeometry
geometry = PlaceGeometry
a} :: Place)
instance Data.FromJSON Place where
parseJSON :: Value -> Parser Place
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"Place"
( \Object
x ->
Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe TimeZone
-> Maybe Text
-> Maybe Text
-> PlaceGeometry
-> Place
Place'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"AddressNumber")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Country")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Interpolated")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Label")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Municipality")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Neighborhood")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"PostalCode")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Region")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Street")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"SubRegion")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"TimeZone")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"UnitNumber")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"UnitType")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"Geometry")
)
instance Prelude.Hashable Place where
hashWithSalt :: Int -> Place -> Int
hashWithSalt Int
_salt Place' {Maybe Bool
Maybe Text
Maybe TimeZone
PlaceGeometry
geometry :: PlaceGeometry
unitType :: Maybe Text
unitNumber :: Maybe Text
timeZone :: Maybe TimeZone
subRegion :: Maybe Text
street :: Maybe Text
region :: Maybe Text
postalCode :: Maybe Text
neighborhood :: Maybe Text
municipality :: Maybe Text
label :: Maybe Text
interpolated :: Maybe Bool
country :: Maybe Text
addressNumber :: Maybe Text
$sel:geometry:Place' :: Place -> PlaceGeometry
$sel:unitType:Place' :: Place -> Maybe Text
$sel:unitNumber:Place' :: Place -> Maybe Text
$sel:timeZone:Place' :: Place -> Maybe TimeZone
$sel:subRegion:Place' :: Place -> Maybe Text
$sel:street:Place' :: Place -> Maybe Text
$sel:region:Place' :: Place -> Maybe Text
$sel:postalCode:Place' :: Place -> Maybe Text
$sel:neighborhood:Place' :: Place -> Maybe Text
$sel:municipality:Place' :: Place -> Maybe Text
$sel:label:Place' :: Place -> Maybe Text
$sel:interpolated:Place' :: Place -> Maybe Bool
$sel:country:Place' :: Place -> Maybe Text
$sel:addressNumber:Place' :: Place -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
addressNumber
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
country
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
interpolated
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
label
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
municipality
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
neighborhood
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
postalCode
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
region
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
street
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
subRegion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe TimeZone
timeZone
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
unitNumber
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
unitType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` PlaceGeometry
geometry
instance Prelude.NFData Place where
rnf :: Place -> ()
rnf Place' {Maybe Bool
Maybe Text
Maybe TimeZone
PlaceGeometry
geometry :: PlaceGeometry
unitType :: Maybe Text
unitNumber :: Maybe Text
timeZone :: Maybe TimeZone
subRegion :: Maybe Text
street :: Maybe Text
region :: Maybe Text
postalCode :: Maybe Text
neighborhood :: Maybe Text
municipality :: Maybe Text
label :: Maybe Text
interpolated :: Maybe Bool
country :: Maybe Text
addressNumber :: Maybe Text
$sel:geometry:Place' :: Place -> PlaceGeometry
$sel:unitType:Place' :: Place -> Maybe Text
$sel:unitNumber:Place' :: Place -> Maybe Text
$sel:timeZone:Place' :: Place -> Maybe TimeZone
$sel:subRegion:Place' :: Place -> Maybe Text
$sel:street:Place' :: Place -> Maybe Text
$sel:region:Place' :: Place -> Maybe Text
$sel:postalCode:Place' :: Place -> Maybe Text
$sel:neighborhood:Place' :: Place -> Maybe Text
$sel:municipality:Place' :: Place -> Maybe Text
$sel:label:Place' :: Place -> Maybe Text
$sel:interpolated:Place' :: Place -> Maybe Bool
$sel:country:Place' :: Place -> Maybe Text
$sel:addressNumber:Place' :: Place -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
addressNumber
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
country
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
interpolated
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
label
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
municipality
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
neighborhood
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
postalCode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
region
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
street
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
subRegion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe TimeZone
timeZone
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
unitNumber
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
unitType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf PlaceGeometry
geometry