{-# 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.DescribeRuntimeConfiguration
(
DescribeRuntimeConfiguration (..),
newDescribeRuntimeConfiguration,
describeRuntimeConfiguration_fleetId,
DescribeRuntimeConfigurationResponse (..),
newDescribeRuntimeConfigurationResponse,
describeRuntimeConfigurationResponse_runtimeConfiguration,
describeRuntimeConfigurationResponse_httpStatus,
)
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
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeRuntimeConfiguration = DescribeRuntimeConfiguration'
{
DescribeRuntimeConfiguration -> Text
fleetId :: Prelude.Text
}
deriving (DescribeRuntimeConfiguration
-> DescribeRuntimeConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeRuntimeConfiguration
-> DescribeRuntimeConfiguration -> Bool
$c/= :: DescribeRuntimeConfiguration
-> DescribeRuntimeConfiguration -> Bool
== :: DescribeRuntimeConfiguration
-> DescribeRuntimeConfiguration -> Bool
$c== :: DescribeRuntimeConfiguration
-> DescribeRuntimeConfiguration -> Bool
Prelude.Eq, ReadPrec [DescribeRuntimeConfiguration]
ReadPrec DescribeRuntimeConfiguration
Int -> ReadS DescribeRuntimeConfiguration
ReadS [DescribeRuntimeConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeRuntimeConfiguration]
$creadListPrec :: ReadPrec [DescribeRuntimeConfiguration]
readPrec :: ReadPrec DescribeRuntimeConfiguration
$creadPrec :: ReadPrec DescribeRuntimeConfiguration
readList :: ReadS [DescribeRuntimeConfiguration]
$creadList :: ReadS [DescribeRuntimeConfiguration]
readsPrec :: Int -> ReadS DescribeRuntimeConfiguration
$creadsPrec :: Int -> ReadS DescribeRuntimeConfiguration
Prelude.Read, Int -> DescribeRuntimeConfiguration -> ShowS
[DescribeRuntimeConfiguration] -> ShowS
DescribeRuntimeConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeRuntimeConfiguration] -> ShowS
$cshowList :: [DescribeRuntimeConfiguration] -> ShowS
show :: DescribeRuntimeConfiguration -> String
$cshow :: DescribeRuntimeConfiguration -> String
showsPrec :: Int -> DescribeRuntimeConfiguration -> ShowS
$cshowsPrec :: Int -> DescribeRuntimeConfiguration -> ShowS
Prelude.Show, forall x.
Rep DescribeRuntimeConfiguration x -> DescribeRuntimeConfiguration
forall x.
DescribeRuntimeConfiguration -> Rep DescribeRuntimeConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeRuntimeConfiguration x -> DescribeRuntimeConfiguration
$cfrom :: forall x.
DescribeRuntimeConfiguration -> Rep DescribeRuntimeConfiguration x
Prelude.Generic)
newDescribeRuntimeConfiguration ::
Prelude.Text ->
DescribeRuntimeConfiguration
newDescribeRuntimeConfiguration :: Text -> DescribeRuntimeConfiguration
newDescribeRuntimeConfiguration Text
pFleetId_ =
DescribeRuntimeConfiguration' {$sel:fleetId:DescribeRuntimeConfiguration' :: Text
fleetId = Text
pFleetId_}
describeRuntimeConfiguration_fleetId :: Lens.Lens' DescribeRuntimeConfiguration Prelude.Text
describeRuntimeConfiguration_fleetId :: Lens' DescribeRuntimeConfiguration Text
describeRuntimeConfiguration_fleetId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeRuntimeConfiguration' {Text
fleetId :: Text
$sel:fleetId:DescribeRuntimeConfiguration' :: DescribeRuntimeConfiguration -> Text
fleetId} -> Text
fleetId) (\s :: DescribeRuntimeConfiguration
s@DescribeRuntimeConfiguration' {} Text
a -> DescribeRuntimeConfiguration
s {$sel:fleetId:DescribeRuntimeConfiguration' :: Text
fleetId = Text
a} :: DescribeRuntimeConfiguration)
instance Core.AWSRequest DescribeRuntimeConfiguration where
type
AWSResponse DescribeRuntimeConfiguration =
DescribeRuntimeConfigurationResponse
request :: (Service -> Service)
-> DescribeRuntimeConfiguration
-> Request DescribeRuntimeConfiguration
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeRuntimeConfiguration
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeRuntimeConfiguration)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe RuntimeConfiguration
-> Int -> DescribeRuntimeConfigurationResponse
DescribeRuntimeConfigurationResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"RuntimeConfiguration")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance
Prelude.Hashable
DescribeRuntimeConfiguration
where
hashWithSalt :: Int -> DescribeRuntimeConfiguration -> Int
hashWithSalt Int
_salt DescribeRuntimeConfiguration' {Text
fleetId :: Text
$sel:fleetId:DescribeRuntimeConfiguration' :: DescribeRuntimeConfiguration -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
fleetId
instance Prelude.NFData DescribeRuntimeConfiguration where
rnf :: DescribeRuntimeConfiguration -> ()
rnf DescribeRuntimeConfiguration' {Text
fleetId :: Text
$sel:fleetId:DescribeRuntimeConfiguration' :: DescribeRuntimeConfiguration -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
fleetId
instance Data.ToHeaders DescribeRuntimeConfiguration where
toHeaders :: DescribeRuntimeConfiguration -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"GameLift.DescribeRuntimeConfiguration" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DescribeRuntimeConfiguration where
toJSON :: DescribeRuntimeConfiguration -> Value
toJSON DescribeRuntimeConfiguration' {Text
fleetId :: Text
$sel:fleetId:DescribeRuntimeConfiguration' :: DescribeRuntimeConfiguration -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[forall a. a -> Maybe a
Prelude.Just (Key
"FleetId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
fleetId)]
)
instance Data.ToPath DescribeRuntimeConfiguration where
toPath :: DescribeRuntimeConfiguration -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeRuntimeConfiguration where
toQuery :: DescribeRuntimeConfiguration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeRuntimeConfigurationResponse = DescribeRuntimeConfigurationResponse'
{
DescribeRuntimeConfigurationResponse -> Maybe RuntimeConfiguration
runtimeConfiguration :: Prelude.Maybe RuntimeConfiguration,
DescribeRuntimeConfigurationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeRuntimeConfigurationResponse
-> DescribeRuntimeConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeRuntimeConfigurationResponse
-> DescribeRuntimeConfigurationResponse -> Bool
$c/= :: DescribeRuntimeConfigurationResponse
-> DescribeRuntimeConfigurationResponse -> Bool
== :: DescribeRuntimeConfigurationResponse
-> DescribeRuntimeConfigurationResponse -> Bool
$c== :: DescribeRuntimeConfigurationResponse
-> DescribeRuntimeConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [DescribeRuntimeConfigurationResponse]
ReadPrec DescribeRuntimeConfigurationResponse
Int -> ReadS DescribeRuntimeConfigurationResponse
ReadS [DescribeRuntimeConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeRuntimeConfigurationResponse]
$creadListPrec :: ReadPrec [DescribeRuntimeConfigurationResponse]
readPrec :: ReadPrec DescribeRuntimeConfigurationResponse
$creadPrec :: ReadPrec DescribeRuntimeConfigurationResponse
readList :: ReadS [DescribeRuntimeConfigurationResponse]
$creadList :: ReadS [DescribeRuntimeConfigurationResponse]
readsPrec :: Int -> ReadS DescribeRuntimeConfigurationResponse
$creadsPrec :: Int -> ReadS DescribeRuntimeConfigurationResponse
Prelude.Read, Int -> DescribeRuntimeConfigurationResponse -> ShowS
[DescribeRuntimeConfigurationResponse] -> ShowS
DescribeRuntimeConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeRuntimeConfigurationResponse] -> ShowS
$cshowList :: [DescribeRuntimeConfigurationResponse] -> ShowS
show :: DescribeRuntimeConfigurationResponse -> String
$cshow :: DescribeRuntimeConfigurationResponse -> String
showsPrec :: Int -> DescribeRuntimeConfigurationResponse -> ShowS
$cshowsPrec :: Int -> DescribeRuntimeConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeRuntimeConfigurationResponse x
-> DescribeRuntimeConfigurationResponse
forall x.
DescribeRuntimeConfigurationResponse
-> Rep DescribeRuntimeConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeRuntimeConfigurationResponse x
-> DescribeRuntimeConfigurationResponse
$cfrom :: forall x.
DescribeRuntimeConfigurationResponse
-> Rep DescribeRuntimeConfigurationResponse x
Prelude.Generic)
newDescribeRuntimeConfigurationResponse ::
Prelude.Int ->
DescribeRuntimeConfigurationResponse
newDescribeRuntimeConfigurationResponse :: Int -> DescribeRuntimeConfigurationResponse
newDescribeRuntimeConfigurationResponse Int
pHttpStatus_ =
DescribeRuntimeConfigurationResponse'
{ $sel:runtimeConfiguration:DescribeRuntimeConfigurationResponse' :: Maybe RuntimeConfiguration
runtimeConfiguration =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeRuntimeConfigurationResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeRuntimeConfigurationResponse_runtimeConfiguration :: Lens.Lens' DescribeRuntimeConfigurationResponse (Prelude.Maybe RuntimeConfiguration)
describeRuntimeConfigurationResponse_runtimeConfiguration :: Lens'
DescribeRuntimeConfigurationResponse (Maybe RuntimeConfiguration)
describeRuntimeConfigurationResponse_runtimeConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeRuntimeConfigurationResponse' {Maybe RuntimeConfiguration
runtimeConfiguration :: Maybe RuntimeConfiguration
$sel:runtimeConfiguration:DescribeRuntimeConfigurationResponse' :: DescribeRuntimeConfigurationResponse -> Maybe RuntimeConfiguration
runtimeConfiguration} -> Maybe RuntimeConfiguration
runtimeConfiguration) (\s :: DescribeRuntimeConfigurationResponse
s@DescribeRuntimeConfigurationResponse' {} Maybe RuntimeConfiguration
a -> DescribeRuntimeConfigurationResponse
s {$sel:runtimeConfiguration:DescribeRuntimeConfigurationResponse' :: Maybe RuntimeConfiguration
runtimeConfiguration = Maybe RuntimeConfiguration
a} :: DescribeRuntimeConfigurationResponse)
describeRuntimeConfigurationResponse_httpStatus :: Lens.Lens' DescribeRuntimeConfigurationResponse Prelude.Int
describeRuntimeConfigurationResponse_httpStatus :: Lens' DescribeRuntimeConfigurationResponse Int
describeRuntimeConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeRuntimeConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeRuntimeConfigurationResponse' :: DescribeRuntimeConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeRuntimeConfigurationResponse
s@DescribeRuntimeConfigurationResponse' {} Int
a -> DescribeRuntimeConfigurationResponse
s {$sel:httpStatus:DescribeRuntimeConfigurationResponse' :: Int
httpStatus = Int
a} :: DescribeRuntimeConfigurationResponse)
instance
Prelude.NFData
DescribeRuntimeConfigurationResponse
where
rnf :: DescribeRuntimeConfigurationResponse -> ()
rnf DescribeRuntimeConfigurationResponse' {Int
Maybe RuntimeConfiguration
httpStatus :: Int
runtimeConfiguration :: Maybe RuntimeConfiguration
$sel:httpStatus:DescribeRuntimeConfigurationResponse' :: DescribeRuntimeConfigurationResponse -> Int
$sel:runtimeConfiguration:DescribeRuntimeConfigurationResponse' :: DescribeRuntimeConfigurationResponse -> Maybe RuntimeConfiguration
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe RuntimeConfiguration
runtimeConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus