{-# 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.GameLift.Types.GameSessionPlacement where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.GameLift.Types.GameProperty
import Amazonka.GameLift.Types.GameSessionPlacementState
import Amazonka.GameLift.Types.PlacedPlayerSession
import Amazonka.GameLift.Types.PlayerLatency
import qualified Amazonka.Prelude as Prelude
data GameSessionPlacement = GameSessionPlacement'
{
GameSessionPlacement -> Maybe Text
dnsName :: Prelude.Maybe Prelude.Text,
GameSessionPlacement -> Maybe POSIX
endTime :: Prelude.Maybe Data.POSIX,
GameSessionPlacement -> Maybe [GameProperty]
gameProperties :: Prelude.Maybe [GameProperty],
GameSessionPlacement -> Maybe Text
gameSessionArn :: Prelude.Maybe Prelude.Text,
GameSessionPlacement -> Maybe Text
gameSessionData :: Prelude.Maybe Prelude.Text,
GameSessionPlacement -> Maybe Text
gameSessionId :: Prelude.Maybe Prelude.Text,
GameSessionPlacement -> Maybe Text
gameSessionName :: Prelude.Maybe Prelude.Text,
GameSessionPlacement -> Maybe Text
gameSessionQueueName :: Prelude.Maybe Prelude.Text,
GameSessionPlacement -> Maybe Text
gameSessionRegion :: Prelude.Maybe Prelude.Text,
GameSessionPlacement -> Maybe Text
ipAddress :: Prelude.Maybe Prelude.Text,
GameSessionPlacement -> Maybe Text
matchmakerData :: Prelude.Maybe Prelude.Text,
GameSessionPlacement -> Maybe Natural
maximumPlayerSessionCount :: Prelude.Maybe Prelude.Natural,
GameSessionPlacement -> Maybe [PlacedPlayerSession]
placedPlayerSessions :: Prelude.Maybe [PlacedPlayerSession],
GameSessionPlacement -> Maybe Text
placementId :: Prelude.Maybe Prelude.Text,
GameSessionPlacement -> Maybe [PlayerLatency]
playerLatencies :: Prelude.Maybe [PlayerLatency],
GameSessionPlacement -> Maybe Natural
port :: Prelude.Maybe Prelude.Natural,
GameSessionPlacement -> Maybe POSIX
startTime :: Prelude.Maybe Data.POSIX,
GameSessionPlacement -> Maybe GameSessionPlacementState
status :: Prelude.Maybe GameSessionPlacementState
}
deriving (GameSessionPlacement -> GameSessionPlacement -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GameSessionPlacement -> GameSessionPlacement -> Bool
$c/= :: GameSessionPlacement -> GameSessionPlacement -> Bool
== :: GameSessionPlacement -> GameSessionPlacement -> Bool
$c== :: GameSessionPlacement -> GameSessionPlacement -> Bool
Prelude.Eq, ReadPrec [GameSessionPlacement]
ReadPrec GameSessionPlacement
Int -> ReadS GameSessionPlacement
ReadS [GameSessionPlacement]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GameSessionPlacement]
$creadListPrec :: ReadPrec [GameSessionPlacement]
readPrec :: ReadPrec GameSessionPlacement
$creadPrec :: ReadPrec GameSessionPlacement
readList :: ReadS [GameSessionPlacement]
$creadList :: ReadS [GameSessionPlacement]
readsPrec :: Int -> ReadS GameSessionPlacement
$creadsPrec :: Int -> ReadS GameSessionPlacement
Prelude.Read, Int -> GameSessionPlacement -> ShowS
[GameSessionPlacement] -> ShowS
GameSessionPlacement -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GameSessionPlacement] -> ShowS
$cshowList :: [GameSessionPlacement] -> ShowS
show :: GameSessionPlacement -> String
$cshow :: GameSessionPlacement -> String
showsPrec :: Int -> GameSessionPlacement -> ShowS
$cshowsPrec :: Int -> GameSessionPlacement -> ShowS
Prelude.Show, forall x. Rep GameSessionPlacement x -> GameSessionPlacement
forall x. GameSessionPlacement -> Rep GameSessionPlacement x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GameSessionPlacement x -> GameSessionPlacement
$cfrom :: forall x. GameSessionPlacement -> Rep GameSessionPlacement x
Prelude.Generic)
newGameSessionPlacement ::
GameSessionPlacement
newGameSessionPlacement :: GameSessionPlacement
newGameSessionPlacement =
GameSessionPlacement'
{ $sel:dnsName:GameSessionPlacement' :: Maybe Text
dnsName = forall a. Maybe a
Prelude.Nothing,
$sel:endTime:GameSessionPlacement' :: Maybe POSIX
endTime = forall a. Maybe a
Prelude.Nothing,
$sel:gameProperties:GameSessionPlacement' :: Maybe [GameProperty]
gameProperties = forall a. Maybe a
Prelude.Nothing,
$sel:gameSessionArn:GameSessionPlacement' :: Maybe Text
gameSessionArn = forall a. Maybe a
Prelude.Nothing,
$sel:gameSessionData:GameSessionPlacement' :: Maybe Text
gameSessionData = forall a. Maybe a
Prelude.Nothing,
$sel:gameSessionId:GameSessionPlacement' :: Maybe Text
gameSessionId = forall a. Maybe a
Prelude.Nothing,
$sel:gameSessionName:GameSessionPlacement' :: Maybe Text
gameSessionName = forall a. Maybe a
Prelude.Nothing,
$sel:gameSessionQueueName:GameSessionPlacement' :: Maybe Text
gameSessionQueueName = forall a. Maybe a
Prelude.Nothing,
$sel:gameSessionRegion:GameSessionPlacement' :: Maybe Text
gameSessionRegion = forall a. Maybe a
Prelude.Nothing,
$sel:ipAddress:GameSessionPlacement' :: Maybe Text
ipAddress = forall a. Maybe a
Prelude.Nothing,
$sel:matchmakerData:GameSessionPlacement' :: Maybe Text
matchmakerData = forall a. Maybe a
Prelude.Nothing,
$sel:maximumPlayerSessionCount:GameSessionPlacement' :: Maybe Natural
maximumPlayerSessionCount = forall a. Maybe a
Prelude.Nothing,
$sel:placedPlayerSessions:GameSessionPlacement' :: Maybe [PlacedPlayerSession]
placedPlayerSessions = forall a. Maybe a
Prelude.Nothing,
$sel:placementId:GameSessionPlacement' :: Maybe Text
placementId = forall a. Maybe a
Prelude.Nothing,
$sel:playerLatencies:GameSessionPlacement' :: Maybe [PlayerLatency]
playerLatencies = forall a. Maybe a
Prelude.Nothing,
$sel:port:GameSessionPlacement' :: Maybe Natural
port = forall a. Maybe a
Prelude.Nothing,
$sel:startTime:GameSessionPlacement' :: Maybe POSIX
startTime = forall a. Maybe a
Prelude.Nothing,
$sel:status:GameSessionPlacement' :: Maybe GameSessionPlacementState
status = forall a. Maybe a
Prelude.Nothing
}
gameSessionPlacement_dnsName :: Lens.Lens' GameSessionPlacement (Prelude.Maybe Prelude.Text)
gameSessionPlacement_dnsName :: Lens' GameSessionPlacement (Maybe Text)
gameSessionPlacement_dnsName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GameSessionPlacement' {Maybe Text
dnsName :: Maybe Text
$sel:dnsName:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
dnsName} -> Maybe Text
dnsName) (\s :: GameSessionPlacement
s@GameSessionPlacement' {} Maybe Text
a -> GameSessionPlacement
s {$sel:dnsName:GameSessionPlacement' :: Maybe Text
dnsName = Maybe Text
a} :: GameSessionPlacement)
gameSessionPlacement_endTime :: Lens.Lens' GameSessionPlacement (Prelude.Maybe Prelude.UTCTime)
gameSessionPlacement_endTime :: Lens' GameSessionPlacement (Maybe UTCTime)
gameSessionPlacement_endTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GameSessionPlacement' {Maybe POSIX
endTime :: Maybe POSIX
$sel:endTime:GameSessionPlacement' :: GameSessionPlacement -> Maybe POSIX
endTime} -> Maybe POSIX
endTime) (\s :: GameSessionPlacement
s@GameSessionPlacement' {} Maybe POSIX
a -> GameSessionPlacement
s {$sel:endTime:GameSessionPlacement' :: Maybe POSIX
endTime = Maybe POSIX
a} :: GameSessionPlacement) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
gameSessionPlacement_gameProperties :: Lens.Lens' GameSessionPlacement (Prelude.Maybe [GameProperty])
gameSessionPlacement_gameProperties :: Lens' GameSessionPlacement (Maybe [GameProperty])
gameSessionPlacement_gameProperties = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GameSessionPlacement' {Maybe [GameProperty]
gameProperties :: Maybe [GameProperty]
$sel:gameProperties:GameSessionPlacement' :: GameSessionPlacement -> Maybe [GameProperty]
gameProperties} -> Maybe [GameProperty]
gameProperties) (\s :: GameSessionPlacement
s@GameSessionPlacement' {} Maybe [GameProperty]
a -> GameSessionPlacement
s {$sel:gameProperties:GameSessionPlacement' :: Maybe [GameProperty]
gameProperties = Maybe [GameProperty]
a} :: GameSessionPlacement) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
gameSessionPlacement_gameSessionArn :: Lens.Lens' GameSessionPlacement (Prelude.Maybe Prelude.Text)
gameSessionPlacement_gameSessionArn :: Lens' GameSessionPlacement (Maybe Text)
gameSessionPlacement_gameSessionArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GameSessionPlacement' {Maybe Text
gameSessionArn :: Maybe Text
$sel:gameSessionArn:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
gameSessionArn} -> Maybe Text
gameSessionArn) (\s :: GameSessionPlacement
s@GameSessionPlacement' {} Maybe Text
a -> GameSessionPlacement
s {$sel:gameSessionArn:GameSessionPlacement' :: Maybe Text
gameSessionArn = Maybe Text
a} :: GameSessionPlacement)
gameSessionPlacement_gameSessionData :: Lens.Lens' GameSessionPlacement (Prelude.Maybe Prelude.Text)
gameSessionPlacement_gameSessionData :: Lens' GameSessionPlacement (Maybe Text)
gameSessionPlacement_gameSessionData = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GameSessionPlacement' {Maybe Text
gameSessionData :: Maybe Text
$sel:gameSessionData:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
gameSessionData} -> Maybe Text
gameSessionData) (\s :: GameSessionPlacement
s@GameSessionPlacement' {} Maybe Text
a -> GameSessionPlacement
s {$sel:gameSessionData:GameSessionPlacement' :: Maybe Text
gameSessionData = Maybe Text
a} :: GameSessionPlacement)
gameSessionPlacement_gameSessionId :: Lens.Lens' GameSessionPlacement (Prelude.Maybe Prelude.Text)
gameSessionPlacement_gameSessionId :: Lens' GameSessionPlacement (Maybe Text)
gameSessionPlacement_gameSessionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GameSessionPlacement' {Maybe Text
gameSessionId :: Maybe Text
$sel:gameSessionId:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
gameSessionId} -> Maybe Text
gameSessionId) (\s :: GameSessionPlacement
s@GameSessionPlacement' {} Maybe Text
a -> GameSessionPlacement
s {$sel:gameSessionId:GameSessionPlacement' :: Maybe Text
gameSessionId = Maybe Text
a} :: GameSessionPlacement)
gameSessionPlacement_gameSessionName :: Lens.Lens' GameSessionPlacement (Prelude.Maybe Prelude.Text)
gameSessionPlacement_gameSessionName :: Lens' GameSessionPlacement (Maybe Text)
gameSessionPlacement_gameSessionName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GameSessionPlacement' {Maybe Text
gameSessionName :: Maybe Text
$sel:gameSessionName:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
gameSessionName} -> Maybe Text
gameSessionName) (\s :: GameSessionPlacement
s@GameSessionPlacement' {} Maybe Text
a -> GameSessionPlacement
s {$sel:gameSessionName:GameSessionPlacement' :: Maybe Text
gameSessionName = Maybe Text
a} :: GameSessionPlacement)
gameSessionPlacement_gameSessionQueueName :: Lens.Lens' GameSessionPlacement (Prelude.Maybe Prelude.Text)
gameSessionPlacement_gameSessionQueueName :: Lens' GameSessionPlacement (Maybe Text)
gameSessionPlacement_gameSessionQueueName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GameSessionPlacement' {Maybe Text
gameSessionQueueName :: Maybe Text
$sel:gameSessionQueueName:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
gameSessionQueueName} -> Maybe Text
gameSessionQueueName) (\s :: GameSessionPlacement
s@GameSessionPlacement' {} Maybe Text
a -> GameSessionPlacement
s {$sel:gameSessionQueueName:GameSessionPlacement' :: Maybe Text
gameSessionQueueName = Maybe Text
a} :: GameSessionPlacement)
gameSessionPlacement_gameSessionRegion :: Lens.Lens' GameSessionPlacement (Prelude.Maybe Prelude.Text)
gameSessionPlacement_gameSessionRegion :: Lens' GameSessionPlacement (Maybe Text)
gameSessionPlacement_gameSessionRegion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GameSessionPlacement' {Maybe Text
gameSessionRegion :: Maybe Text
$sel:gameSessionRegion:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
gameSessionRegion} -> Maybe Text
gameSessionRegion) (\s :: GameSessionPlacement
s@GameSessionPlacement' {} Maybe Text
a -> GameSessionPlacement
s {$sel:gameSessionRegion:GameSessionPlacement' :: Maybe Text
gameSessionRegion = Maybe Text
a} :: GameSessionPlacement)
gameSessionPlacement_ipAddress :: Lens.Lens' GameSessionPlacement (Prelude.Maybe Prelude.Text)
gameSessionPlacement_ipAddress :: Lens' GameSessionPlacement (Maybe Text)
gameSessionPlacement_ipAddress = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GameSessionPlacement' {Maybe Text
ipAddress :: Maybe Text
$sel:ipAddress:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
ipAddress} -> Maybe Text
ipAddress) (\s :: GameSessionPlacement
s@GameSessionPlacement' {} Maybe Text
a -> GameSessionPlacement
s {$sel:ipAddress:GameSessionPlacement' :: Maybe Text
ipAddress = Maybe Text
a} :: GameSessionPlacement)
gameSessionPlacement_matchmakerData :: Lens.Lens' GameSessionPlacement (Prelude.Maybe Prelude.Text)
gameSessionPlacement_matchmakerData :: Lens' GameSessionPlacement (Maybe Text)
gameSessionPlacement_matchmakerData = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GameSessionPlacement' {Maybe Text
matchmakerData :: Maybe Text
$sel:matchmakerData:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
matchmakerData} -> Maybe Text
matchmakerData) (\s :: GameSessionPlacement
s@GameSessionPlacement' {} Maybe Text
a -> GameSessionPlacement
s {$sel:matchmakerData:GameSessionPlacement' :: Maybe Text
matchmakerData = Maybe Text
a} :: GameSessionPlacement)
gameSessionPlacement_maximumPlayerSessionCount :: Lens.Lens' GameSessionPlacement (Prelude.Maybe Prelude.Natural)
gameSessionPlacement_maximumPlayerSessionCount :: Lens' GameSessionPlacement (Maybe Natural)
gameSessionPlacement_maximumPlayerSessionCount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GameSessionPlacement' {Maybe Natural
maximumPlayerSessionCount :: Maybe Natural
$sel:maximumPlayerSessionCount:GameSessionPlacement' :: GameSessionPlacement -> Maybe Natural
maximumPlayerSessionCount} -> Maybe Natural
maximumPlayerSessionCount) (\s :: GameSessionPlacement
s@GameSessionPlacement' {} Maybe Natural
a -> GameSessionPlacement
s {$sel:maximumPlayerSessionCount:GameSessionPlacement' :: Maybe Natural
maximumPlayerSessionCount = Maybe Natural
a} :: GameSessionPlacement)
gameSessionPlacement_placedPlayerSessions :: Lens.Lens' GameSessionPlacement (Prelude.Maybe [PlacedPlayerSession])
gameSessionPlacement_placedPlayerSessions :: Lens' GameSessionPlacement (Maybe [PlacedPlayerSession])
gameSessionPlacement_placedPlayerSessions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GameSessionPlacement' {Maybe [PlacedPlayerSession]
placedPlayerSessions :: Maybe [PlacedPlayerSession]
$sel:placedPlayerSessions:GameSessionPlacement' :: GameSessionPlacement -> Maybe [PlacedPlayerSession]
placedPlayerSessions} -> Maybe [PlacedPlayerSession]
placedPlayerSessions) (\s :: GameSessionPlacement
s@GameSessionPlacement' {} Maybe [PlacedPlayerSession]
a -> GameSessionPlacement
s {$sel:placedPlayerSessions:GameSessionPlacement' :: Maybe [PlacedPlayerSession]
placedPlayerSessions = Maybe [PlacedPlayerSession]
a} :: GameSessionPlacement) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
gameSessionPlacement_placementId :: Lens.Lens' GameSessionPlacement (Prelude.Maybe Prelude.Text)
gameSessionPlacement_placementId :: Lens' GameSessionPlacement (Maybe Text)
gameSessionPlacement_placementId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GameSessionPlacement' {Maybe Text
placementId :: Maybe Text
$sel:placementId:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
placementId} -> Maybe Text
placementId) (\s :: GameSessionPlacement
s@GameSessionPlacement' {} Maybe Text
a -> GameSessionPlacement
s {$sel:placementId:GameSessionPlacement' :: Maybe Text
placementId = Maybe Text
a} :: GameSessionPlacement)
gameSessionPlacement_playerLatencies :: Lens.Lens' GameSessionPlacement (Prelude.Maybe [PlayerLatency])
gameSessionPlacement_playerLatencies :: Lens' GameSessionPlacement (Maybe [PlayerLatency])
gameSessionPlacement_playerLatencies = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GameSessionPlacement' {Maybe [PlayerLatency]
playerLatencies :: Maybe [PlayerLatency]
$sel:playerLatencies:GameSessionPlacement' :: GameSessionPlacement -> Maybe [PlayerLatency]
playerLatencies} -> Maybe [PlayerLatency]
playerLatencies) (\s :: GameSessionPlacement
s@GameSessionPlacement' {} Maybe [PlayerLatency]
a -> GameSessionPlacement
s {$sel:playerLatencies:GameSessionPlacement' :: Maybe [PlayerLatency]
playerLatencies = Maybe [PlayerLatency]
a} :: GameSessionPlacement) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
gameSessionPlacement_port :: Lens.Lens' GameSessionPlacement (Prelude.Maybe Prelude.Natural)
gameSessionPlacement_port :: Lens' GameSessionPlacement (Maybe Natural)
gameSessionPlacement_port = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GameSessionPlacement' {Maybe Natural
port :: Maybe Natural
$sel:port:GameSessionPlacement' :: GameSessionPlacement -> Maybe Natural
port} -> Maybe Natural
port) (\s :: GameSessionPlacement
s@GameSessionPlacement' {} Maybe Natural
a -> GameSessionPlacement
s {$sel:port:GameSessionPlacement' :: Maybe Natural
port = Maybe Natural
a} :: GameSessionPlacement)
gameSessionPlacement_startTime :: Lens.Lens' GameSessionPlacement (Prelude.Maybe Prelude.UTCTime)
gameSessionPlacement_startTime :: Lens' GameSessionPlacement (Maybe UTCTime)
gameSessionPlacement_startTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GameSessionPlacement' {Maybe POSIX
startTime :: Maybe POSIX
$sel:startTime:GameSessionPlacement' :: GameSessionPlacement -> Maybe POSIX
startTime} -> Maybe POSIX
startTime) (\s :: GameSessionPlacement
s@GameSessionPlacement' {} Maybe POSIX
a -> GameSessionPlacement
s {$sel:startTime:GameSessionPlacement' :: Maybe POSIX
startTime = Maybe POSIX
a} :: GameSessionPlacement) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
gameSessionPlacement_status :: Lens.Lens' GameSessionPlacement (Prelude.Maybe GameSessionPlacementState)
gameSessionPlacement_status :: Lens' GameSessionPlacement (Maybe GameSessionPlacementState)
gameSessionPlacement_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GameSessionPlacement' {Maybe GameSessionPlacementState
status :: Maybe GameSessionPlacementState
$sel:status:GameSessionPlacement' :: GameSessionPlacement -> Maybe GameSessionPlacementState
status} -> Maybe GameSessionPlacementState
status) (\s :: GameSessionPlacement
s@GameSessionPlacement' {} Maybe GameSessionPlacementState
a -> GameSessionPlacement
s {$sel:status:GameSessionPlacement' :: Maybe GameSessionPlacementState
status = Maybe GameSessionPlacementState
a} :: GameSessionPlacement)
instance Data.FromJSON GameSessionPlacement where
parseJSON :: Value -> Parser GameSessionPlacement
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"GameSessionPlacement"
( \Object
x ->
Maybe Text
-> Maybe POSIX
-> Maybe [GameProperty]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Natural
-> Maybe [PlacedPlayerSession]
-> Maybe Text
-> Maybe [PlayerLatency]
-> Maybe Natural
-> Maybe POSIX
-> Maybe GameSessionPlacementState
-> GameSessionPlacement
GameSessionPlacement'
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
"DnsName")
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
"EndTime")
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
"GameProperties" forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty)
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
"GameSessionArn")
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
"GameSessionData")
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
"GameSessionId")
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
"GameSessionName")
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
"GameSessionQueueName")
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
"GameSessionRegion")
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
"IpAddress")
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
"MatchmakerData")
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
"MaximumPlayerSessionCount")
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
"PlacedPlayerSessions"
forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty
)
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
"PlacementId")
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
"PlayerLatencies"
forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty
)
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
"Port")
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
"StartTime")
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
"Status")
)
instance Prelude.Hashable GameSessionPlacement where
hashWithSalt :: Int -> GameSessionPlacement -> Int
hashWithSalt Int
_salt GameSessionPlacement' {Maybe Natural
Maybe [GameProperty]
Maybe [PlacedPlayerSession]
Maybe [PlayerLatency]
Maybe Text
Maybe POSIX
Maybe GameSessionPlacementState
status :: Maybe GameSessionPlacementState
startTime :: Maybe POSIX
port :: Maybe Natural
playerLatencies :: Maybe [PlayerLatency]
placementId :: Maybe Text
placedPlayerSessions :: Maybe [PlacedPlayerSession]
maximumPlayerSessionCount :: Maybe Natural
matchmakerData :: Maybe Text
ipAddress :: Maybe Text
gameSessionRegion :: Maybe Text
gameSessionQueueName :: Maybe Text
gameSessionName :: Maybe Text
gameSessionId :: Maybe Text
gameSessionData :: Maybe Text
gameSessionArn :: Maybe Text
gameProperties :: Maybe [GameProperty]
endTime :: Maybe POSIX
dnsName :: Maybe Text
$sel:status:GameSessionPlacement' :: GameSessionPlacement -> Maybe GameSessionPlacementState
$sel:startTime:GameSessionPlacement' :: GameSessionPlacement -> Maybe POSIX
$sel:port:GameSessionPlacement' :: GameSessionPlacement -> Maybe Natural
$sel:playerLatencies:GameSessionPlacement' :: GameSessionPlacement -> Maybe [PlayerLatency]
$sel:placementId:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
$sel:placedPlayerSessions:GameSessionPlacement' :: GameSessionPlacement -> Maybe [PlacedPlayerSession]
$sel:maximumPlayerSessionCount:GameSessionPlacement' :: GameSessionPlacement -> Maybe Natural
$sel:matchmakerData:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
$sel:ipAddress:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
$sel:gameSessionRegion:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
$sel:gameSessionQueueName:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
$sel:gameSessionName:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
$sel:gameSessionId:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
$sel:gameSessionData:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
$sel:gameSessionArn:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
$sel:gameProperties:GameSessionPlacement' :: GameSessionPlacement -> Maybe [GameProperty]
$sel:endTime:GameSessionPlacement' :: GameSessionPlacement -> Maybe POSIX
$sel:dnsName:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
dnsName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
endTime
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [GameProperty]
gameProperties
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
gameSessionArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
gameSessionData
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
gameSessionId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
gameSessionName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
gameSessionQueueName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
gameSessionRegion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
ipAddress
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
matchmakerData
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maximumPlayerSessionCount
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [PlacedPlayerSession]
placedPlayerSessions
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
placementId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [PlayerLatency]
playerLatencies
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
port
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
startTime
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe GameSessionPlacementState
status
instance Prelude.NFData GameSessionPlacement where
rnf :: GameSessionPlacement -> ()
rnf GameSessionPlacement' {Maybe Natural
Maybe [GameProperty]
Maybe [PlacedPlayerSession]
Maybe [PlayerLatency]
Maybe Text
Maybe POSIX
Maybe GameSessionPlacementState
status :: Maybe GameSessionPlacementState
startTime :: Maybe POSIX
port :: Maybe Natural
playerLatencies :: Maybe [PlayerLatency]
placementId :: Maybe Text
placedPlayerSessions :: Maybe [PlacedPlayerSession]
maximumPlayerSessionCount :: Maybe Natural
matchmakerData :: Maybe Text
ipAddress :: Maybe Text
gameSessionRegion :: Maybe Text
gameSessionQueueName :: Maybe Text
gameSessionName :: Maybe Text
gameSessionId :: Maybe Text
gameSessionData :: Maybe Text
gameSessionArn :: Maybe Text
gameProperties :: Maybe [GameProperty]
endTime :: Maybe POSIX
dnsName :: Maybe Text
$sel:status:GameSessionPlacement' :: GameSessionPlacement -> Maybe GameSessionPlacementState
$sel:startTime:GameSessionPlacement' :: GameSessionPlacement -> Maybe POSIX
$sel:port:GameSessionPlacement' :: GameSessionPlacement -> Maybe Natural
$sel:playerLatencies:GameSessionPlacement' :: GameSessionPlacement -> Maybe [PlayerLatency]
$sel:placementId:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
$sel:placedPlayerSessions:GameSessionPlacement' :: GameSessionPlacement -> Maybe [PlacedPlayerSession]
$sel:maximumPlayerSessionCount:GameSessionPlacement' :: GameSessionPlacement -> Maybe Natural
$sel:matchmakerData:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
$sel:ipAddress:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
$sel:gameSessionRegion:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
$sel:gameSessionQueueName:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
$sel:gameSessionName:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
$sel:gameSessionId:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
$sel:gameSessionData:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
$sel:gameSessionArn:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
$sel:gameProperties:GameSessionPlacement' :: GameSessionPlacement -> Maybe [GameProperty]
$sel:endTime:GameSessionPlacement' :: GameSessionPlacement -> Maybe POSIX
$sel:dnsName:GameSessionPlacement' :: GameSessionPlacement -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
dnsName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
endTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [GameProperty]
gameProperties
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
gameSessionArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
gameSessionData
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
gameSessionId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
gameSessionName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
gameSessionQueueName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
gameSessionRegion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
ipAddress
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
matchmakerData
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maximumPlayerSessionCount
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [PlacedPlayerSession]
placedPlayerSessions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
placementId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [PlayerLatency]
playerLatencies
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
port
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
startTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe GameSessionPlacementState
status