{-# 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.DescribeFleetLocationUtilization
(
DescribeFleetLocationUtilization (..),
newDescribeFleetLocationUtilization,
describeFleetLocationUtilization_fleetId,
describeFleetLocationUtilization_location,
DescribeFleetLocationUtilizationResponse (..),
newDescribeFleetLocationUtilizationResponse,
describeFleetLocationUtilizationResponse_fleetUtilization,
describeFleetLocationUtilizationResponse_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 DescribeFleetLocationUtilization = DescribeFleetLocationUtilization'
{
DescribeFleetLocationUtilization -> Text
fleetId :: Prelude.Text,
DescribeFleetLocationUtilization -> Text
location :: Prelude.Text
}
deriving (DescribeFleetLocationUtilization
-> DescribeFleetLocationUtilization -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeFleetLocationUtilization
-> DescribeFleetLocationUtilization -> Bool
$c/= :: DescribeFleetLocationUtilization
-> DescribeFleetLocationUtilization -> Bool
== :: DescribeFleetLocationUtilization
-> DescribeFleetLocationUtilization -> Bool
$c== :: DescribeFleetLocationUtilization
-> DescribeFleetLocationUtilization -> Bool
Prelude.Eq, ReadPrec [DescribeFleetLocationUtilization]
ReadPrec DescribeFleetLocationUtilization
Int -> ReadS DescribeFleetLocationUtilization
ReadS [DescribeFleetLocationUtilization]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeFleetLocationUtilization]
$creadListPrec :: ReadPrec [DescribeFleetLocationUtilization]
readPrec :: ReadPrec DescribeFleetLocationUtilization
$creadPrec :: ReadPrec DescribeFleetLocationUtilization
readList :: ReadS [DescribeFleetLocationUtilization]
$creadList :: ReadS [DescribeFleetLocationUtilization]
readsPrec :: Int -> ReadS DescribeFleetLocationUtilization
$creadsPrec :: Int -> ReadS DescribeFleetLocationUtilization
Prelude.Read, Int -> DescribeFleetLocationUtilization -> ShowS
[DescribeFleetLocationUtilization] -> ShowS
DescribeFleetLocationUtilization -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeFleetLocationUtilization] -> ShowS
$cshowList :: [DescribeFleetLocationUtilization] -> ShowS
show :: DescribeFleetLocationUtilization -> String
$cshow :: DescribeFleetLocationUtilization -> String
showsPrec :: Int -> DescribeFleetLocationUtilization -> ShowS
$cshowsPrec :: Int -> DescribeFleetLocationUtilization -> ShowS
Prelude.Show, forall x.
Rep DescribeFleetLocationUtilization x
-> DescribeFleetLocationUtilization
forall x.
DescribeFleetLocationUtilization
-> Rep DescribeFleetLocationUtilization x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeFleetLocationUtilization x
-> DescribeFleetLocationUtilization
$cfrom :: forall x.
DescribeFleetLocationUtilization
-> Rep DescribeFleetLocationUtilization x
Prelude.Generic)
newDescribeFleetLocationUtilization ::
Prelude.Text ->
Prelude.Text ->
DescribeFleetLocationUtilization
newDescribeFleetLocationUtilization :: Text -> Text -> DescribeFleetLocationUtilization
newDescribeFleetLocationUtilization
Text
pFleetId_
Text
pLocation_ =
DescribeFleetLocationUtilization'
{ $sel:fleetId:DescribeFleetLocationUtilization' :: Text
fleetId =
Text
pFleetId_,
$sel:location:DescribeFleetLocationUtilization' :: Text
location = Text
pLocation_
}
describeFleetLocationUtilization_fleetId :: Lens.Lens' DescribeFleetLocationUtilization Prelude.Text
describeFleetLocationUtilization_fleetId :: Lens' DescribeFleetLocationUtilization Text
describeFleetLocationUtilization_fleetId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeFleetLocationUtilization' {Text
fleetId :: Text
$sel:fleetId:DescribeFleetLocationUtilization' :: DescribeFleetLocationUtilization -> Text
fleetId} -> Text
fleetId) (\s :: DescribeFleetLocationUtilization
s@DescribeFleetLocationUtilization' {} Text
a -> DescribeFleetLocationUtilization
s {$sel:fleetId:DescribeFleetLocationUtilization' :: Text
fleetId = Text
a} :: DescribeFleetLocationUtilization)
describeFleetLocationUtilization_location :: Lens.Lens' DescribeFleetLocationUtilization Prelude.Text
describeFleetLocationUtilization_location :: Lens' DescribeFleetLocationUtilization Text
describeFleetLocationUtilization_location = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeFleetLocationUtilization' {Text
location :: Text
$sel:location:DescribeFleetLocationUtilization' :: DescribeFleetLocationUtilization -> Text
location} -> Text
location) (\s :: DescribeFleetLocationUtilization
s@DescribeFleetLocationUtilization' {} Text
a -> DescribeFleetLocationUtilization
s {$sel:location:DescribeFleetLocationUtilization' :: Text
location = Text
a} :: DescribeFleetLocationUtilization)
instance
Core.AWSRequest
DescribeFleetLocationUtilization
where
type
AWSResponse DescribeFleetLocationUtilization =
DescribeFleetLocationUtilizationResponse
request :: (Service -> Service)
-> DescribeFleetLocationUtilization
-> Request DescribeFleetLocationUtilization
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 DescribeFleetLocationUtilization
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DescribeFleetLocationUtilization)))
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 FleetUtilization
-> Int -> DescribeFleetLocationUtilizationResponse
DescribeFleetLocationUtilizationResponse'
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
"FleetUtilization")
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
DescribeFleetLocationUtilization
where
hashWithSalt :: Int -> DescribeFleetLocationUtilization -> Int
hashWithSalt
Int
_salt
DescribeFleetLocationUtilization' {Text
location :: Text
fleetId :: Text
$sel:location:DescribeFleetLocationUtilization' :: DescribeFleetLocationUtilization -> Text
$sel:fleetId:DescribeFleetLocationUtilization' :: DescribeFleetLocationUtilization -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
fleetId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
location
instance
Prelude.NFData
DescribeFleetLocationUtilization
where
rnf :: DescribeFleetLocationUtilization -> ()
rnf DescribeFleetLocationUtilization' {Text
location :: Text
fleetId :: Text
$sel:location:DescribeFleetLocationUtilization' :: DescribeFleetLocationUtilization -> Text
$sel:fleetId:DescribeFleetLocationUtilization' :: DescribeFleetLocationUtilization -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
fleetId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
location
instance
Data.ToHeaders
DescribeFleetLocationUtilization
where
toHeaders :: DescribeFleetLocationUtilization -> 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.DescribeFleetLocationUtilization" ::
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 DescribeFleetLocationUtilization where
toJSON :: DescribeFleetLocationUtilization -> Value
toJSON DescribeFleetLocationUtilization' {Text
location :: Text
fleetId :: Text
$sel:location:DescribeFleetLocationUtilization' :: DescribeFleetLocationUtilization -> Text
$sel:fleetId:DescribeFleetLocationUtilization' :: DescribeFleetLocationUtilization -> 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),
forall a. a -> Maybe a
Prelude.Just (Key
"Location" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
location)
]
)
instance Data.ToPath DescribeFleetLocationUtilization where
toPath :: DescribeFleetLocationUtilization -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
DescribeFleetLocationUtilization
where
toQuery :: DescribeFleetLocationUtilization -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeFleetLocationUtilizationResponse = DescribeFleetLocationUtilizationResponse'
{
DescribeFleetLocationUtilizationResponse -> Maybe FleetUtilization
fleetUtilization :: Prelude.Maybe FleetUtilization,
DescribeFleetLocationUtilizationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeFleetLocationUtilizationResponse
-> DescribeFleetLocationUtilizationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeFleetLocationUtilizationResponse
-> DescribeFleetLocationUtilizationResponse -> Bool
$c/= :: DescribeFleetLocationUtilizationResponse
-> DescribeFleetLocationUtilizationResponse -> Bool
== :: DescribeFleetLocationUtilizationResponse
-> DescribeFleetLocationUtilizationResponse -> Bool
$c== :: DescribeFleetLocationUtilizationResponse
-> DescribeFleetLocationUtilizationResponse -> Bool
Prelude.Eq, ReadPrec [DescribeFleetLocationUtilizationResponse]
ReadPrec DescribeFleetLocationUtilizationResponse
Int -> ReadS DescribeFleetLocationUtilizationResponse
ReadS [DescribeFleetLocationUtilizationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeFleetLocationUtilizationResponse]
$creadListPrec :: ReadPrec [DescribeFleetLocationUtilizationResponse]
readPrec :: ReadPrec DescribeFleetLocationUtilizationResponse
$creadPrec :: ReadPrec DescribeFleetLocationUtilizationResponse
readList :: ReadS [DescribeFleetLocationUtilizationResponse]
$creadList :: ReadS [DescribeFleetLocationUtilizationResponse]
readsPrec :: Int -> ReadS DescribeFleetLocationUtilizationResponse
$creadsPrec :: Int -> ReadS DescribeFleetLocationUtilizationResponse
Prelude.Read, Int -> DescribeFleetLocationUtilizationResponse -> ShowS
[DescribeFleetLocationUtilizationResponse] -> ShowS
DescribeFleetLocationUtilizationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeFleetLocationUtilizationResponse] -> ShowS
$cshowList :: [DescribeFleetLocationUtilizationResponse] -> ShowS
show :: DescribeFleetLocationUtilizationResponse -> String
$cshow :: DescribeFleetLocationUtilizationResponse -> String
showsPrec :: Int -> DescribeFleetLocationUtilizationResponse -> ShowS
$cshowsPrec :: Int -> DescribeFleetLocationUtilizationResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeFleetLocationUtilizationResponse x
-> DescribeFleetLocationUtilizationResponse
forall x.
DescribeFleetLocationUtilizationResponse
-> Rep DescribeFleetLocationUtilizationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeFleetLocationUtilizationResponse x
-> DescribeFleetLocationUtilizationResponse
$cfrom :: forall x.
DescribeFleetLocationUtilizationResponse
-> Rep DescribeFleetLocationUtilizationResponse x
Prelude.Generic)
newDescribeFleetLocationUtilizationResponse ::
Prelude.Int ->
DescribeFleetLocationUtilizationResponse
newDescribeFleetLocationUtilizationResponse :: Int -> DescribeFleetLocationUtilizationResponse
newDescribeFleetLocationUtilizationResponse
Int
pHttpStatus_ =
DescribeFleetLocationUtilizationResponse'
{ $sel:fleetUtilization:DescribeFleetLocationUtilizationResponse' :: Maybe FleetUtilization
fleetUtilization =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeFleetLocationUtilizationResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeFleetLocationUtilizationResponse_fleetUtilization :: Lens.Lens' DescribeFleetLocationUtilizationResponse (Prelude.Maybe FleetUtilization)
describeFleetLocationUtilizationResponse_fleetUtilization :: Lens'
DescribeFleetLocationUtilizationResponse (Maybe FleetUtilization)
describeFleetLocationUtilizationResponse_fleetUtilization = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeFleetLocationUtilizationResponse' {Maybe FleetUtilization
fleetUtilization :: Maybe FleetUtilization
$sel:fleetUtilization:DescribeFleetLocationUtilizationResponse' :: DescribeFleetLocationUtilizationResponse -> Maybe FleetUtilization
fleetUtilization} -> Maybe FleetUtilization
fleetUtilization) (\s :: DescribeFleetLocationUtilizationResponse
s@DescribeFleetLocationUtilizationResponse' {} Maybe FleetUtilization
a -> DescribeFleetLocationUtilizationResponse
s {$sel:fleetUtilization:DescribeFleetLocationUtilizationResponse' :: Maybe FleetUtilization
fleetUtilization = Maybe FleetUtilization
a} :: DescribeFleetLocationUtilizationResponse)
describeFleetLocationUtilizationResponse_httpStatus :: Lens.Lens' DescribeFleetLocationUtilizationResponse Prelude.Int
describeFleetLocationUtilizationResponse_httpStatus :: Lens' DescribeFleetLocationUtilizationResponse Int
describeFleetLocationUtilizationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeFleetLocationUtilizationResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeFleetLocationUtilizationResponse' :: DescribeFleetLocationUtilizationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeFleetLocationUtilizationResponse
s@DescribeFleetLocationUtilizationResponse' {} Int
a -> DescribeFleetLocationUtilizationResponse
s {$sel:httpStatus:DescribeFleetLocationUtilizationResponse' :: Int
httpStatus = Int
a} :: DescribeFleetLocationUtilizationResponse)
instance
Prelude.NFData
DescribeFleetLocationUtilizationResponse
where
rnf :: DescribeFleetLocationUtilizationResponse -> ()
rnf DescribeFleetLocationUtilizationResponse' {Int
Maybe FleetUtilization
httpStatus :: Int
fleetUtilization :: Maybe FleetUtilization
$sel:httpStatus:DescribeFleetLocationUtilizationResponse' :: DescribeFleetLocationUtilizationResponse -> Int
$sel:fleetUtilization:DescribeFleetLocationUtilizationResponse' :: DescribeFleetLocationUtilizationResponse -> Maybe FleetUtilization
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe FleetUtilization
fleetUtilization
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus