{-# 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.GameLift.CreateMatchmakingConfiguration
(
CreateMatchmakingConfiguration (..),
newCreateMatchmakingConfiguration,
createMatchmakingConfiguration_backfillMode,
createMatchmakingConfiguration_gameProperties,
createMatchmakingConfiguration_acceptanceTimeoutSeconds,
createMatchmakingConfiguration_notificationTarget,
createMatchmakingConfiguration_flexMatchMode,
createMatchmakingConfiguration_gameSessionQueueArns,
createMatchmakingConfiguration_customEventData,
createMatchmakingConfiguration_gameSessionData,
createMatchmakingConfiguration_description,
createMatchmakingConfiguration_tags,
createMatchmakingConfiguration_additionalPlayerCount,
createMatchmakingConfiguration_name,
createMatchmakingConfiguration_requestTimeoutSeconds,
createMatchmakingConfiguration_acceptanceRequired,
createMatchmakingConfiguration_ruleSetName,
CreateMatchmakingConfigurationResponse (..),
newCreateMatchmakingConfigurationResponse,
createMatchmakingConfigurationResponse_configuration,
createMatchmakingConfigurationResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import Amazonka.GameLift.Types
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateMatchmakingConfiguration = CreateMatchmakingConfiguration'
{
CreateMatchmakingConfiguration -> Maybe BackfillMode
backfillMode :: Prelude.Maybe BackfillMode,
CreateMatchmakingConfiguration -> Maybe [GameProperty]
gameProperties :: Prelude.Maybe [GameProperty],
CreateMatchmakingConfiguration -> Maybe Natural
acceptanceTimeoutSeconds :: Prelude.Maybe Prelude.Natural,
CreateMatchmakingConfiguration -> Maybe Text
notificationTarget :: Prelude.Maybe Prelude.Text,
CreateMatchmakingConfiguration -> Maybe FlexMatchMode
flexMatchMode :: Prelude.Maybe FlexMatchMode,
CreateMatchmakingConfiguration -> Maybe [Text]
gameSessionQueueArns :: Prelude.Maybe [Prelude.Text],
CreateMatchmakingConfiguration -> Maybe Text
customEventData :: Prelude.Maybe Prelude.Text,
CreateMatchmakingConfiguration -> Maybe Text
gameSessionData :: Prelude.Maybe Prelude.Text,
CreateMatchmakingConfiguration -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
CreateMatchmakingConfiguration -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
CreateMatchmakingConfiguration -> Maybe Natural
additionalPlayerCount :: Prelude.Maybe Prelude.Natural,
CreateMatchmakingConfiguration -> Text
name :: Prelude.Text,
CreateMatchmakingConfiguration -> Natural
requestTimeoutSeconds :: Prelude.Natural,
CreateMatchmakingConfiguration -> Bool
acceptanceRequired :: Prelude.Bool,
CreateMatchmakingConfiguration -> Text
ruleSetName :: Prelude.Text
}
deriving (CreateMatchmakingConfiguration
-> CreateMatchmakingConfiguration -> Bool
(CreateMatchmakingConfiguration
-> CreateMatchmakingConfiguration -> Bool)
-> (CreateMatchmakingConfiguration
-> CreateMatchmakingConfiguration -> Bool)
-> Eq CreateMatchmakingConfiguration
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateMatchmakingConfiguration
-> CreateMatchmakingConfiguration -> Bool
$c/= :: CreateMatchmakingConfiguration
-> CreateMatchmakingConfiguration -> Bool
== :: CreateMatchmakingConfiguration
-> CreateMatchmakingConfiguration -> Bool
$c== :: CreateMatchmakingConfiguration
-> CreateMatchmakingConfiguration -> Bool
Prelude.Eq, ReadPrec [CreateMatchmakingConfiguration]
ReadPrec CreateMatchmakingConfiguration
Int -> ReadS CreateMatchmakingConfiguration
ReadS [CreateMatchmakingConfiguration]
(Int -> ReadS CreateMatchmakingConfiguration)
-> ReadS [CreateMatchmakingConfiguration]
-> ReadPrec CreateMatchmakingConfiguration
-> ReadPrec [CreateMatchmakingConfiguration]
-> Read CreateMatchmakingConfiguration
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateMatchmakingConfiguration]
$creadListPrec :: ReadPrec [CreateMatchmakingConfiguration]
readPrec :: ReadPrec CreateMatchmakingConfiguration
$creadPrec :: ReadPrec CreateMatchmakingConfiguration
readList :: ReadS [CreateMatchmakingConfiguration]
$creadList :: ReadS [CreateMatchmakingConfiguration]
readsPrec :: Int -> ReadS CreateMatchmakingConfiguration
$creadsPrec :: Int -> ReadS CreateMatchmakingConfiguration
Prelude.Read, Int -> CreateMatchmakingConfiguration -> ShowS
[CreateMatchmakingConfiguration] -> ShowS
CreateMatchmakingConfiguration -> String
(Int -> CreateMatchmakingConfiguration -> ShowS)
-> (CreateMatchmakingConfiguration -> String)
-> ([CreateMatchmakingConfiguration] -> ShowS)
-> Show CreateMatchmakingConfiguration
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateMatchmakingConfiguration] -> ShowS
$cshowList :: [CreateMatchmakingConfiguration] -> ShowS
show :: CreateMatchmakingConfiguration -> String
$cshow :: CreateMatchmakingConfiguration -> String
showsPrec :: Int -> CreateMatchmakingConfiguration -> ShowS
$cshowsPrec :: Int -> CreateMatchmakingConfiguration -> ShowS
Prelude.Show, (forall x.
CreateMatchmakingConfiguration
-> Rep CreateMatchmakingConfiguration x)
-> (forall x.
Rep CreateMatchmakingConfiguration x
-> CreateMatchmakingConfiguration)
-> Generic CreateMatchmakingConfiguration
forall x.
Rep CreateMatchmakingConfiguration x
-> CreateMatchmakingConfiguration
forall x.
CreateMatchmakingConfiguration
-> Rep CreateMatchmakingConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateMatchmakingConfiguration x
-> CreateMatchmakingConfiguration
$cfrom :: forall x.
CreateMatchmakingConfiguration
-> Rep CreateMatchmakingConfiguration x
Prelude.Generic)
newCreateMatchmakingConfiguration ::
Prelude.Text ->
Prelude.Natural ->
Prelude.Bool ->
Prelude.Text ->
CreateMatchmakingConfiguration
newCreateMatchmakingConfiguration :: Text -> Natural -> Bool -> Text -> CreateMatchmakingConfiguration
newCreateMatchmakingConfiguration
Text
pName_
Natural
pRequestTimeoutSeconds_
Bool
pAcceptanceRequired_
Text
pRuleSetName_ =
CreateMatchmakingConfiguration' :: Maybe BackfillMode
-> Maybe [GameProperty]
-> Maybe Natural
-> Maybe Text
-> Maybe FlexMatchMode
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Maybe Natural
-> Text
-> Natural
-> Bool
-> Text
-> CreateMatchmakingConfiguration
CreateMatchmakingConfiguration'
{ $sel:backfillMode:CreateMatchmakingConfiguration' :: Maybe BackfillMode
backfillMode =
Maybe BackfillMode
forall a. Maybe a
Prelude.Nothing,
$sel:gameProperties:CreateMatchmakingConfiguration' :: Maybe [GameProperty]
gameProperties = Maybe [GameProperty]
forall a. Maybe a
Prelude.Nothing,
$sel:acceptanceTimeoutSeconds:CreateMatchmakingConfiguration' :: Maybe Natural
acceptanceTimeoutSeconds = Maybe Natural
forall a. Maybe a
Prelude.Nothing,
$sel:notificationTarget:CreateMatchmakingConfiguration' :: Maybe Text
notificationTarget = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:flexMatchMode:CreateMatchmakingConfiguration' :: Maybe FlexMatchMode
flexMatchMode = Maybe FlexMatchMode
forall a. Maybe a
Prelude.Nothing,
$sel:gameSessionQueueArns:CreateMatchmakingConfiguration' :: Maybe [Text]
gameSessionQueueArns = Maybe [Text]
forall a. Maybe a
Prelude.Nothing,
$sel:customEventData:CreateMatchmakingConfiguration' :: Maybe Text
customEventData = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:gameSessionData:CreateMatchmakingConfiguration' :: Maybe Text
gameSessionData = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:description:CreateMatchmakingConfiguration' :: Maybe Text
description = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateMatchmakingConfiguration' :: Maybe [Tag]
tags = Maybe [Tag]
forall a. Maybe a
Prelude.Nothing,
$sel:additionalPlayerCount:CreateMatchmakingConfiguration' :: Maybe Natural
additionalPlayerCount = Maybe Natural
forall a. Maybe a
Prelude.Nothing,
$sel:name:CreateMatchmakingConfiguration' :: Text
name = Text
pName_,
$sel:requestTimeoutSeconds:CreateMatchmakingConfiguration' :: Natural
requestTimeoutSeconds =
Natural
pRequestTimeoutSeconds_,
$sel:acceptanceRequired:CreateMatchmakingConfiguration' :: Bool
acceptanceRequired = Bool
pAcceptanceRequired_,
$sel:ruleSetName:CreateMatchmakingConfiguration' :: Text
ruleSetName = Text
pRuleSetName_
}
createMatchmakingConfiguration_backfillMode :: Lens.Lens' CreateMatchmakingConfiguration (Prelude.Maybe BackfillMode)
createMatchmakingConfiguration_backfillMode :: (Maybe BackfillMode -> f (Maybe BackfillMode))
-> CreateMatchmakingConfiguration
-> f CreateMatchmakingConfiguration
createMatchmakingConfiguration_backfillMode = (CreateMatchmakingConfiguration -> Maybe BackfillMode)
-> (CreateMatchmakingConfiguration
-> Maybe BackfillMode -> CreateMatchmakingConfiguration)
-> Lens
CreateMatchmakingConfiguration
CreateMatchmakingConfiguration
(Maybe BackfillMode)
(Maybe BackfillMode)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMatchmakingConfiguration' {Maybe BackfillMode
backfillMode :: Maybe BackfillMode
$sel:backfillMode:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Maybe BackfillMode
backfillMode} -> Maybe BackfillMode
backfillMode) (\s :: CreateMatchmakingConfiguration
s@CreateMatchmakingConfiguration' {} Maybe BackfillMode
a -> CreateMatchmakingConfiguration
s {$sel:backfillMode:CreateMatchmakingConfiguration' :: Maybe BackfillMode
backfillMode = Maybe BackfillMode
a} :: CreateMatchmakingConfiguration)
createMatchmakingConfiguration_gameProperties :: Lens.Lens' CreateMatchmakingConfiguration (Prelude.Maybe [GameProperty])
createMatchmakingConfiguration_gameProperties :: (Maybe [GameProperty] -> f (Maybe [GameProperty]))
-> CreateMatchmakingConfiguration
-> f CreateMatchmakingConfiguration
createMatchmakingConfiguration_gameProperties = (CreateMatchmakingConfiguration -> Maybe [GameProperty])
-> (CreateMatchmakingConfiguration
-> Maybe [GameProperty] -> CreateMatchmakingConfiguration)
-> Lens
CreateMatchmakingConfiguration
CreateMatchmakingConfiguration
(Maybe [GameProperty])
(Maybe [GameProperty])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMatchmakingConfiguration' {Maybe [GameProperty]
gameProperties :: Maybe [GameProperty]
$sel:gameProperties:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Maybe [GameProperty]
gameProperties} -> Maybe [GameProperty]
gameProperties) (\s :: CreateMatchmakingConfiguration
s@CreateMatchmakingConfiguration' {} Maybe [GameProperty]
a -> CreateMatchmakingConfiguration
s {$sel:gameProperties:CreateMatchmakingConfiguration' :: Maybe [GameProperty]
gameProperties = Maybe [GameProperty]
a} :: CreateMatchmakingConfiguration) ((Maybe [GameProperty] -> f (Maybe [GameProperty]))
-> CreateMatchmakingConfiguration
-> f CreateMatchmakingConfiguration)
-> ((Maybe [GameProperty] -> f (Maybe [GameProperty]))
-> Maybe [GameProperty] -> f (Maybe [GameProperty]))
-> (Maybe [GameProperty] -> f (Maybe [GameProperty]))
-> CreateMatchmakingConfiguration
-> f CreateMatchmakingConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [GameProperty] [GameProperty] [GameProperty] [GameProperty]
-> Iso
(Maybe [GameProperty])
(Maybe [GameProperty])
(Maybe [GameProperty])
(Maybe [GameProperty])
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 AnIso [GameProperty] [GameProperty] [GameProperty] [GameProperty]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createMatchmakingConfiguration_acceptanceTimeoutSeconds :: Lens.Lens' CreateMatchmakingConfiguration (Prelude.Maybe Prelude.Natural)
createMatchmakingConfiguration_acceptanceTimeoutSeconds :: (Maybe Natural -> f (Maybe Natural))
-> CreateMatchmakingConfiguration
-> f CreateMatchmakingConfiguration
createMatchmakingConfiguration_acceptanceTimeoutSeconds = (CreateMatchmakingConfiguration -> Maybe Natural)
-> (CreateMatchmakingConfiguration
-> Maybe Natural -> CreateMatchmakingConfiguration)
-> Lens
CreateMatchmakingConfiguration
CreateMatchmakingConfiguration
(Maybe Natural)
(Maybe Natural)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMatchmakingConfiguration' {Maybe Natural
acceptanceTimeoutSeconds :: Maybe Natural
$sel:acceptanceTimeoutSeconds:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Maybe Natural
acceptanceTimeoutSeconds} -> Maybe Natural
acceptanceTimeoutSeconds) (\s :: CreateMatchmakingConfiguration
s@CreateMatchmakingConfiguration' {} Maybe Natural
a -> CreateMatchmakingConfiguration
s {$sel:acceptanceTimeoutSeconds:CreateMatchmakingConfiguration' :: Maybe Natural
acceptanceTimeoutSeconds = Maybe Natural
a} :: CreateMatchmakingConfiguration)
createMatchmakingConfiguration_notificationTarget :: Lens.Lens' CreateMatchmakingConfiguration (Prelude.Maybe Prelude.Text)
createMatchmakingConfiguration_notificationTarget :: (Maybe Text -> f (Maybe Text))
-> CreateMatchmakingConfiguration
-> f CreateMatchmakingConfiguration
createMatchmakingConfiguration_notificationTarget = (CreateMatchmakingConfiguration -> Maybe Text)
-> (CreateMatchmakingConfiguration
-> Maybe Text -> CreateMatchmakingConfiguration)
-> Lens
CreateMatchmakingConfiguration
CreateMatchmakingConfiguration
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMatchmakingConfiguration' {Maybe Text
notificationTarget :: Maybe Text
$sel:notificationTarget:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Maybe Text
notificationTarget} -> Maybe Text
notificationTarget) (\s :: CreateMatchmakingConfiguration
s@CreateMatchmakingConfiguration' {} Maybe Text
a -> CreateMatchmakingConfiguration
s {$sel:notificationTarget:CreateMatchmakingConfiguration' :: Maybe Text
notificationTarget = Maybe Text
a} :: CreateMatchmakingConfiguration)
createMatchmakingConfiguration_flexMatchMode :: Lens.Lens' CreateMatchmakingConfiguration (Prelude.Maybe FlexMatchMode)
createMatchmakingConfiguration_flexMatchMode :: (Maybe FlexMatchMode -> f (Maybe FlexMatchMode))
-> CreateMatchmakingConfiguration
-> f CreateMatchmakingConfiguration
createMatchmakingConfiguration_flexMatchMode = (CreateMatchmakingConfiguration -> Maybe FlexMatchMode)
-> (CreateMatchmakingConfiguration
-> Maybe FlexMatchMode -> CreateMatchmakingConfiguration)
-> Lens
CreateMatchmakingConfiguration
CreateMatchmakingConfiguration
(Maybe FlexMatchMode)
(Maybe FlexMatchMode)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMatchmakingConfiguration' {Maybe FlexMatchMode
flexMatchMode :: Maybe FlexMatchMode
$sel:flexMatchMode:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Maybe FlexMatchMode
flexMatchMode} -> Maybe FlexMatchMode
flexMatchMode) (\s :: CreateMatchmakingConfiguration
s@CreateMatchmakingConfiguration' {} Maybe FlexMatchMode
a -> CreateMatchmakingConfiguration
s {$sel:flexMatchMode:CreateMatchmakingConfiguration' :: Maybe FlexMatchMode
flexMatchMode = Maybe FlexMatchMode
a} :: CreateMatchmakingConfiguration)
createMatchmakingConfiguration_gameSessionQueueArns :: Lens.Lens' CreateMatchmakingConfiguration (Prelude.Maybe [Prelude.Text])
createMatchmakingConfiguration_gameSessionQueueArns :: (Maybe [Text] -> f (Maybe [Text]))
-> CreateMatchmakingConfiguration
-> f CreateMatchmakingConfiguration
createMatchmakingConfiguration_gameSessionQueueArns = (CreateMatchmakingConfiguration -> Maybe [Text])
-> (CreateMatchmakingConfiguration
-> Maybe [Text] -> CreateMatchmakingConfiguration)
-> Lens
CreateMatchmakingConfiguration
CreateMatchmakingConfiguration
(Maybe [Text])
(Maybe [Text])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMatchmakingConfiguration' {Maybe [Text]
gameSessionQueueArns :: Maybe [Text]
$sel:gameSessionQueueArns:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Maybe [Text]
gameSessionQueueArns} -> Maybe [Text]
gameSessionQueueArns) (\s :: CreateMatchmakingConfiguration
s@CreateMatchmakingConfiguration' {} Maybe [Text]
a -> CreateMatchmakingConfiguration
s {$sel:gameSessionQueueArns:CreateMatchmakingConfiguration' :: Maybe [Text]
gameSessionQueueArns = Maybe [Text]
a} :: CreateMatchmakingConfiguration) ((Maybe [Text] -> f (Maybe [Text]))
-> CreateMatchmakingConfiguration
-> f CreateMatchmakingConfiguration)
-> ((Maybe [Text] -> f (Maybe [Text]))
-> Maybe [Text] -> f (Maybe [Text]))
-> (Maybe [Text] -> f (Maybe [Text]))
-> CreateMatchmakingConfiguration
-> f CreateMatchmakingConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [Text] [Text] [Text] [Text]
-> Iso (Maybe [Text]) (Maybe [Text]) (Maybe [Text]) (Maybe [Text])
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 AnIso [Text] [Text] [Text] [Text]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createMatchmakingConfiguration_customEventData :: Lens.Lens' CreateMatchmakingConfiguration (Prelude.Maybe Prelude.Text)
createMatchmakingConfiguration_customEventData :: (Maybe Text -> f (Maybe Text))
-> CreateMatchmakingConfiguration
-> f CreateMatchmakingConfiguration
createMatchmakingConfiguration_customEventData = (CreateMatchmakingConfiguration -> Maybe Text)
-> (CreateMatchmakingConfiguration
-> Maybe Text -> CreateMatchmakingConfiguration)
-> Lens
CreateMatchmakingConfiguration
CreateMatchmakingConfiguration
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMatchmakingConfiguration' {Maybe Text
customEventData :: Maybe Text
$sel:customEventData:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Maybe Text
customEventData} -> Maybe Text
customEventData) (\s :: CreateMatchmakingConfiguration
s@CreateMatchmakingConfiguration' {} Maybe Text
a -> CreateMatchmakingConfiguration
s {$sel:customEventData:CreateMatchmakingConfiguration' :: Maybe Text
customEventData = Maybe Text
a} :: CreateMatchmakingConfiguration)
createMatchmakingConfiguration_gameSessionData :: Lens.Lens' CreateMatchmakingConfiguration (Prelude.Maybe Prelude.Text)
createMatchmakingConfiguration_gameSessionData :: (Maybe Text -> f (Maybe Text))
-> CreateMatchmakingConfiguration
-> f CreateMatchmakingConfiguration
createMatchmakingConfiguration_gameSessionData = (CreateMatchmakingConfiguration -> Maybe Text)
-> (CreateMatchmakingConfiguration
-> Maybe Text -> CreateMatchmakingConfiguration)
-> Lens
CreateMatchmakingConfiguration
CreateMatchmakingConfiguration
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMatchmakingConfiguration' {Maybe Text
gameSessionData :: Maybe Text
$sel:gameSessionData:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Maybe Text
gameSessionData} -> Maybe Text
gameSessionData) (\s :: CreateMatchmakingConfiguration
s@CreateMatchmakingConfiguration' {} Maybe Text
a -> CreateMatchmakingConfiguration
s {$sel:gameSessionData:CreateMatchmakingConfiguration' :: Maybe Text
gameSessionData = Maybe Text
a} :: CreateMatchmakingConfiguration)
createMatchmakingConfiguration_description :: Lens.Lens' CreateMatchmakingConfiguration (Prelude.Maybe Prelude.Text)
createMatchmakingConfiguration_description :: (Maybe Text -> f (Maybe Text))
-> CreateMatchmakingConfiguration
-> f CreateMatchmakingConfiguration
createMatchmakingConfiguration_description = (CreateMatchmakingConfiguration -> Maybe Text)
-> (CreateMatchmakingConfiguration
-> Maybe Text -> CreateMatchmakingConfiguration)
-> Lens
CreateMatchmakingConfiguration
CreateMatchmakingConfiguration
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMatchmakingConfiguration' {Maybe Text
description :: Maybe Text
$sel:description:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Maybe Text
description} -> Maybe Text
description) (\s :: CreateMatchmakingConfiguration
s@CreateMatchmakingConfiguration' {} Maybe Text
a -> CreateMatchmakingConfiguration
s {$sel:description:CreateMatchmakingConfiguration' :: Maybe Text
description = Maybe Text
a} :: CreateMatchmakingConfiguration)
createMatchmakingConfiguration_tags :: Lens.Lens' CreateMatchmakingConfiguration (Prelude.Maybe [Tag])
createMatchmakingConfiguration_tags :: (Maybe [Tag] -> f (Maybe [Tag]))
-> CreateMatchmakingConfiguration
-> f CreateMatchmakingConfiguration
createMatchmakingConfiguration_tags = (CreateMatchmakingConfiguration -> Maybe [Tag])
-> (CreateMatchmakingConfiguration
-> Maybe [Tag] -> CreateMatchmakingConfiguration)
-> Lens
CreateMatchmakingConfiguration
CreateMatchmakingConfiguration
(Maybe [Tag])
(Maybe [Tag])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMatchmakingConfiguration' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateMatchmakingConfiguration
s@CreateMatchmakingConfiguration' {} Maybe [Tag]
a -> CreateMatchmakingConfiguration
s {$sel:tags:CreateMatchmakingConfiguration' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateMatchmakingConfiguration) ((Maybe [Tag] -> f (Maybe [Tag]))
-> CreateMatchmakingConfiguration
-> f CreateMatchmakingConfiguration)
-> ((Maybe [Tag] -> f (Maybe [Tag]))
-> Maybe [Tag] -> f (Maybe [Tag]))
-> (Maybe [Tag] -> f (Maybe [Tag]))
-> CreateMatchmakingConfiguration
-> f CreateMatchmakingConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [Tag] [Tag] [Tag] [Tag]
-> Iso (Maybe [Tag]) (Maybe [Tag]) (Maybe [Tag]) (Maybe [Tag])
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 AnIso [Tag] [Tag] [Tag] [Tag]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createMatchmakingConfiguration_additionalPlayerCount :: Lens.Lens' CreateMatchmakingConfiguration (Prelude.Maybe Prelude.Natural)
createMatchmakingConfiguration_additionalPlayerCount :: (Maybe Natural -> f (Maybe Natural))
-> CreateMatchmakingConfiguration
-> f CreateMatchmakingConfiguration
createMatchmakingConfiguration_additionalPlayerCount = (CreateMatchmakingConfiguration -> Maybe Natural)
-> (CreateMatchmakingConfiguration
-> Maybe Natural -> CreateMatchmakingConfiguration)
-> Lens
CreateMatchmakingConfiguration
CreateMatchmakingConfiguration
(Maybe Natural)
(Maybe Natural)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMatchmakingConfiguration' {Maybe Natural
additionalPlayerCount :: Maybe Natural
$sel:additionalPlayerCount:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Maybe Natural
additionalPlayerCount} -> Maybe Natural
additionalPlayerCount) (\s :: CreateMatchmakingConfiguration
s@CreateMatchmakingConfiguration' {} Maybe Natural
a -> CreateMatchmakingConfiguration
s {$sel:additionalPlayerCount:CreateMatchmakingConfiguration' :: Maybe Natural
additionalPlayerCount = Maybe Natural
a} :: CreateMatchmakingConfiguration)
createMatchmakingConfiguration_name :: Lens.Lens' CreateMatchmakingConfiguration Prelude.Text
createMatchmakingConfiguration_name :: (Text -> f Text)
-> CreateMatchmakingConfiguration
-> f CreateMatchmakingConfiguration
createMatchmakingConfiguration_name = (CreateMatchmakingConfiguration -> Text)
-> (CreateMatchmakingConfiguration
-> Text -> CreateMatchmakingConfiguration)
-> Lens
CreateMatchmakingConfiguration
CreateMatchmakingConfiguration
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMatchmakingConfiguration' {Text
name :: Text
$sel:name:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Text
name} -> Text
name) (\s :: CreateMatchmakingConfiguration
s@CreateMatchmakingConfiguration' {} Text
a -> CreateMatchmakingConfiguration
s {$sel:name:CreateMatchmakingConfiguration' :: Text
name = Text
a} :: CreateMatchmakingConfiguration)
createMatchmakingConfiguration_requestTimeoutSeconds :: Lens.Lens' CreateMatchmakingConfiguration Prelude.Natural
createMatchmakingConfiguration_requestTimeoutSeconds :: (Natural -> f Natural)
-> CreateMatchmakingConfiguration
-> f CreateMatchmakingConfiguration
createMatchmakingConfiguration_requestTimeoutSeconds = (CreateMatchmakingConfiguration -> Natural)
-> (CreateMatchmakingConfiguration
-> Natural -> CreateMatchmakingConfiguration)
-> Lens
CreateMatchmakingConfiguration
CreateMatchmakingConfiguration
Natural
Natural
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMatchmakingConfiguration' {Natural
requestTimeoutSeconds :: Natural
$sel:requestTimeoutSeconds:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Natural
requestTimeoutSeconds} -> Natural
requestTimeoutSeconds) (\s :: CreateMatchmakingConfiguration
s@CreateMatchmakingConfiguration' {} Natural
a -> CreateMatchmakingConfiguration
s {$sel:requestTimeoutSeconds:CreateMatchmakingConfiguration' :: Natural
requestTimeoutSeconds = Natural
a} :: CreateMatchmakingConfiguration)
createMatchmakingConfiguration_acceptanceRequired :: Lens.Lens' CreateMatchmakingConfiguration Prelude.Bool
createMatchmakingConfiguration_acceptanceRequired :: (Bool -> f Bool)
-> CreateMatchmakingConfiguration
-> f CreateMatchmakingConfiguration
createMatchmakingConfiguration_acceptanceRequired = (CreateMatchmakingConfiguration -> Bool)
-> (CreateMatchmakingConfiguration
-> Bool -> CreateMatchmakingConfiguration)
-> Lens
CreateMatchmakingConfiguration
CreateMatchmakingConfiguration
Bool
Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMatchmakingConfiguration' {Bool
acceptanceRequired :: Bool
$sel:acceptanceRequired:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Bool
acceptanceRequired} -> Bool
acceptanceRequired) (\s :: CreateMatchmakingConfiguration
s@CreateMatchmakingConfiguration' {} Bool
a -> CreateMatchmakingConfiguration
s {$sel:acceptanceRequired:CreateMatchmakingConfiguration' :: Bool
acceptanceRequired = Bool
a} :: CreateMatchmakingConfiguration)
createMatchmakingConfiguration_ruleSetName :: Lens.Lens' CreateMatchmakingConfiguration Prelude.Text
createMatchmakingConfiguration_ruleSetName :: (Text -> f Text)
-> CreateMatchmakingConfiguration
-> f CreateMatchmakingConfiguration
createMatchmakingConfiguration_ruleSetName = (CreateMatchmakingConfiguration -> Text)
-> (CreateMatchmakingConfiguration
-> Text -> CreateMatchmakingConfiguration)
-> Lens
CreateMatchmakingConfiguration
CreateMatchmakingConfiguration
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMatchmakingConfiguration' {Text
ruleSetName :: Text
$sel:ruleSetName:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Text
ruleSetName} -> Text
ruleSetName) (\s :: CreateMatchmakingConfiguration
s@CreateMatchmakingConfiguration' {} Text
a -> CreateMatchmakingConfiguration
s {$sel:ruleSetName:CreateMatchmakingConfiguration' :: Text
ruleSetName = Text
a} :: CreateMatchmakingConfiguration)
instance
Core.AWSRequest
CreateMatchmakingConfiguration
where
type
AWSResponse CreateMatchmakingConfiguration =
CreateMatchmakingConfigurationResponse
request :: CreateMatchmakingConfiguration
-> Request CreateMatchmakingConfiguration
request = Service
-> CreateMatchmakingConfiguration
-> Request CreateMatchmakingConfiguration
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON Service
defaultService
response :: Logger
-> Service
-> Proxy CreateMatchmakingConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse CreateMatchmakingConfiguration)))
response =
(Int
-> ResponseHeaders
-> Object
-> Either String (AWSResponse CreateMatchmakingConfiguration))
-> Logger
-> Service
-> Proxy CreateMatchmakingConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse CreateMatchmakingConfiguration)))
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe MatchmakingConfiguration
-> Int -> CreateMatchmakingConfigurationResponse
CreateMatchmakingConfigurationResponse'
(Maybe MatchmakingConfiguration
-> Int -> CreateMatchmakingConfigurationResponse)
-> Either String (Maybe MatchmakingConfiguration)
-> Either String (Int -> CreateMatchmakingConfigurationResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object -> Text -> Either String (Maybe MatchmakingConfiguration)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"Configuration")
Either String (Int -> CreateMatchmakingConfigurationResponse)
-> Either String Int
-> Either String CreateMatchmakingConfigurationResponse
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Int -> Either String Int
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance
Prelude.Hashable
CreateMatchmakingConfiguration
instance
Prelude.NFData
CreateMatchmakingConfiguration
instance
Core.ToHeaders
CreateMatchmakingConfiguration
where
toHeaders :: CreateMatchmakingConfiguration -> ResponseHeaders
toHeaders =
ResponseHeaders
-> CreateMatchmakingConfiguration -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const
( [ResponseHeaders] -> ResponseHeaders
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
HeaderName -> ByteString -> ResponseHeaders
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Core.=# ( ByteString
"GameLift.CreateMatchmakingConfiguration" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
HeaderName -> ByteString -> ResponseHeaders
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Core.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Core.ToJSON CreateMatchmakingConfiguration where
toJSON :: CreateMatchmakingConfiguration -> Value
toJSON CreateMatchmakingConfiguration' {Bool
Natural
Maybe Natural
Maybe [Text]
Maybe [GameProperty]
Maybe [Tag]
Maybe Text
Maybe BackfillMode
Maybe FlexMatchMode
Text
ruleSetName :: Text
acceptanceRequired :: Bool
requestTimeoutSeconds :: Natural
name :: Text
additionalPlayerCount :: Maybe Natural
tags :: Maybe [Tag]
description :: Maybe Text
gameSessionData :: Maybe Text
customEventData :: Maybe Text
gameSessionQueueArns :: Maybe [Text]
flexMatchMode :: Maybe FlexMatchMode
notificationTarget :: Maybe Text
acceptanceTimeoutSeconds :: Maybe Natural
gameProperties :: Maybe [GameProperty]
backfillMode :: Maybe BackfillMode
$sel:ruleSetName:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Text
$sel:acceptanceRequired:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Bool
$sel:requestTimeoutSeconds:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Natural
$sel:name:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Text
$sel:additionalPlayerCount:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Maybe Natural
$sel:tags:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Maybe [Tag]
$sel:description:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Maybe Text
$sel:gameSessionData:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Maybe Text
$sel:customEventData:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Maybe Text
$sel:gameSessionQueueArns:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Maybe [Text]
$sel:flexMatchMode:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Maybe FlexMatchMode
$sel:notificationTarget:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Maybe Text
$sel:acceptanceTimeoutSeconds:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Maybe Natural
$sel:gameProperties:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Maybe [GameProperty]
$sel:backfillMode:CreateMatchmakingConfiguration' :: CreateMatchmakingConfiguration -> Maybe BackfillMode
..} =
[Pair] -> Value
Core.object
( [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Text
"BackfillMode" Text -> BackfillMode -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (BackfillMode -> Pair) -> Maybe BackfillMode -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe BackfillMode
backfillMode,
(Text
"GameProperties" Text -> [GameProperty] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
([GameProperty] -> Pair) -> Maybe [GameProperty] -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [GameProperty]
gameProperties,
(Text
"AcceptanceTimeoutSeconds" Text -> Natural -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
(Natural -> Pair) -> Maybe Natural -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
acceptanceTimeoutSeconds,
(Text
"NotificationTarget" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
(Text -> Pair) -> Maybe Text -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
notificationTarget,
(Text
"FlexMatchMode" Text -> FlexMatchMode -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (FlexMatchMode -> Pair) -> Maybe FlexMatchMode -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe FlexMatchMode
flexMatchMode,
(Text
"GameSessionQueueArns" Text -> [Text] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
([Text] -> Pair) -> Maybe [Text] -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
gameSessionQueueArns,
(Text
"CustomEventData" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
(Text -> Pair) -> Maybe Text -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
customEventData,
(Text
"GameSessionData" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
(Text -> Pair) -> Maybe Text -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
gameSessionData,
(Text
"Description" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (Text -> Pair) -> Maybe Text -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
description,
(Text
"Tags" Text -> [Tag] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) ([Tag] -> Pair) -> Maybe [Tag] -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags,
(Text
"AdditionalPlayerCount" Text -> Natural -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
(Natural -> Pair) -> Maybe Natural -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
additionalPlayerCount,
Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just (Text
"Name" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= Text
name),
Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just
( Text
"RequestTimeoutSeconds"
Text -> Natural -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= Natural
requestTimeoutSeconds
),
Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just
(Text
"AcceptanceRequired" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= Bool
acceptanceRequired),
Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just (Text
"RuleSetName" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= Text
ruleSetName)
]
)
instance Core.ToPath CreateMatchmakingConfiguration where
toPath :: CreateMatchmakingConfiguration -> ByteString
toPath = ByteString -> CreateMatchmakingConfiguration -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Core.ToQuery CreateMatchmakingConfiguration where
toQuery :: CreateMatchmakingConfiguration -> QueryString
toQuery = QueryString -> CreateMatchmakingConfiguration -> QueryString
forall a b. a -> b -> a
Prelude.const QueryString
forall a. Monoid a => a
Prelude.mempty
data CreateMatchmakingConfigurationResponse = CreateMatchmakingConfigurationResponse'
{
CreateMatchmakingConfigurationResponse
-> Maybe MatchmakingConfiguration
configuration :: Prelude.Maybe MatchmakingConfiguration,
CreateMatchmakingConfigurationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateMatchmakingConfigurationResponse
-> CreateMatchmakingConfigurationResponse -> Bool
(CreateMatchmakingConfigurationResponse
-> CreateMatchmakingConfigurationResponse -> Bool)
-> (CreateMatchmakingConfigurationResponse
-> CreateMatchmakingConfigurationResponse -> Bool)
-> Eq CreateMatchmakingConfigurationResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateMatchmakingConfigurationResponse
-> CreateMatchmakingConfigurationResponse -> Bool
$c/= :: CreateMatchmakingConfigurationResponse
-> CreateMatchmakingConfigurationResponse -> Bool
== :: CreateMatchmakingConfigurationResponse
-> CreateMatchmakingConfigurationResponse -> Bool
$c== :: CreateMatchmakingConfigurationResponse
-> CreateMatchmakingConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [CreateMatchmakingConfigurationResponse]
ReadPrec CreateMatchmakingConfigurationResponse
Int -> ReadS CreateMatchmakingConfigurationResponse
ReadS [CreateMatchmakingConfigurationResponse]
(Int -> ReadS CreateMatchmakingConfigurationResponse)
-> ReadS [CreateMatchmakingConfigurationResponse]
-> ReadPrec CreateMatchmakingConfigurationResponse
-> ReadPrec [CreateMatchmakingConfigurationResponse]
-> Read CreateMatchmakingConfigurationResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateMatchmakingConfigurationResponse]
$creadListPrec :: ReadPrec [CreateMatchmakingConfigurationResponse]
readPrec :: ReadPrec CreateMatchmakingConfigurationResponse
$creadPrec :: ReadPrec CreateMatchmakingConfigurationResponse
readList :: ReadS [CreateMatchmakingConfigurationResponse]
$creadList :: ReadS [CreateMatchmakingConfigurationResponse]
readsPrec :: Int -> ReadS CreateMatchmakingConfigurationResponse
$creadsPrec :: Int -> ReadS CreateMatchmakingConfigurationResponse
Prelude.Read, Int -> CreateMatchmakingConfigurationResponse -> ShowS
[CreateMatchmakingConfigurationResponse] -> ShowS
CreateMatchmakingConfigurationResponse -> String
(Int -> CreateMatchmakingConfigurationResponse -> ShowS)
-> (CreateMatchmakingConfigurationResponse -> String)
-> ([CreateMatchmakingConfigurationResponse] -> ShowS)
-> Show CreateMatchmakingConfigurationResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateMatchmakingConfigurationResponse] -> ShowS
$cshowList :: [CreateMatchmakingConfigurationResponse] -> ShowS
show :: CreateMatchmakingConfigurationResponse -> String
$cshow :: CreateMatchmakingConfigurationResponse -> String
showsPrec :: Int -> CreateMatchmakingConfigurationResponse -> ShowS
$cshowsPrec :: Int -> CreateMatchmakingConfigurationResponse -> ShowS
Prelude.Show, (forall x.
CreateMatchmakingConfigurationResponse
-> Rep CreateMatchmakingConfigurationResponse x)
-> (forall x.
Rep CreateMatchmakingConfigurationResponse x
-> CreateMatchmakingConfigurationResponse)
-> Generic CreateMatchmakingConfigurationResponse
forall x.
Rep CreateMatchmakingConfigurationResponse x
-> CreateMatchmakingConfigurationResponse
forall x.
CreateMatchmakingConfigurationResponse
-> Rep CreateMatchmakingConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateMatchmakingConfigurationResponse x
-> CreateMatchmakingConfigurationResponse
$cfrom :: forall x.
CreateMatchmakingConfigurationResponse
-> Rep CreateMatchmakingConfigurationResponse x
Prelude.Generic)
newCreateMatchmakingConfigurationResponse ::
Prelude.Int ->
CreateMatchmakingConfigurationResponse
newCreateMatchmakingConfigurationResponse :: Int -> CreateMatchmakingConfigurationResponse
newCreateMatchmakingConfigurationResponse
Int
pHttpStatus_ =
CreateMatchmakingConfigurationResponse' :: Maybe MatchmakingConfiguration
-> Int -> CreateMatchmakingConfigurationResponse
CreateMatchmakingConfigurationResponse'
{ $sel:configuration:CreateMatchmakingConfigurationResponse' :: Maybe MatchmakingConfiguration
configuration =
Maybe MatchmakingConfiguration
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateMatchmakingConfigurationResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createMatchmakingConfigurationResponse_configuration :: Lens.Lens' CreateMatchmakingConfigurationResponse (Prelude.Maybe MatchmakingConfiguration)
createMatchmakingConfigurationResponse_configuration :: (Maybe MatchmakingConfiguration
-> f (Maybe MatchmakingConfiguration))
-> CreateMatchmakingConfigurationResponse
-> f CreateMatchmakingConfigurationResponse
createMatchmakingConfigurationResponse_configuration = (CreateMatchmakingConfigurationResponse
-> Maybe MatchmakingConfiguration)
-> (CreateMatchmakingConfigurationResponse
-> Maybe MatchmakingConfiguration
-> CreateMatchmakingConfigurationResponse)
-> Lens
CreateMatchmakingConfigurationResponse
CreateMatchmakingConfigurationResponse
(Maybe MatchmakingConfiguration)
(Maybe MatchmakingConfiguration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMatchmakingConfigurationResponse' {Maybe MatchmakingConfiguration
configuration :: Maybe MatchmakingConfiguration
$sel:configuration:CreateMatchmakingConfigurationResponse' :: CreateMatchmakingConfigurationResponse
-> Maybe MatchmakingConfiguration
configuration} -> Maybe MatchmakingConfiguration
configuration) (\s :: CreateMatchmakingConfigurationResponse
s@CreateMatchmakingConfigurationResponse' {} Maybe MatchmakingConfiguration
a -> CreateMatchmakingConfigurationResponse
s {$sel:configuration:CreateMatchmakingConfigurationResponse' :: Maybe MatchmakingConfiguration
configuration = Maybe MatchmakingConfiguration
a} :: CreateMatchmakingConfigurationResponse)
createMatchmakingConfigurationResponse_httpStatus :: Lens.Lens' CreateMatchmakingConfigurationResponse Prelude.Int
createMatchmakingConfigurationResponse_httpStatus :: (Int -> f Int)
-> CreateMatchmakingConfigurationResponse
-> f CreateMatchmakingConfigurationResponse
createMatchmakingConfigurationResponse_httpStatus = (CreateMatchmakingConfigurationResponse -> Int)
-> (CreateMatchmakingConfigurationResponse
-> Int -> CreateMatchmakingConfigurationResponse)
-> Lens
CreateMatchmakingConfigurationResponse
CreateMatchmakingConfigurationResponse
Int
Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMatchmakingConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateMatchmakingConfigurationResponse' :: CreateMatchmakingConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateMatchmakingConfigurationResponse
s@CreateMatchmakingConfigurationResponse' {} Int
a -> CreateMatchmakingConfigurationResponse
s {$sel:httpStatus:CreateMatchmakingConfigurationResponse' :: Int
httpStatus = Int
a} :: CreateMatchmakingConfigurationResponse)
instance
Prelude.NFData
CreateMatchmakingConfigurationResponse