{-# 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.DescribeFleetPortSettings
(
DescribeFleetPortSettings (..),
newDescribeFleetPortSettings,
describeFleetPortSettings_location,
describeFleetPortSettings_fleetId,
DescribeFleetPortSettingsResponse (..),
newDescribeFleetPortSettingsResponse,
describeFleetPortSettingsResponse_fleetArn,
describeFleetPortSettingsResponse_fleetId,
describeFleetPortSettingsResponse_inboundPermissions,
describeFleetPortSettingsResponse_location,
describeFleetPortSettingsResponse_updateStatus,
describeFleetPortSettingsResponse_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 DescribeFleetPortSettings = DescribeFleetPortSettings'
{
DescribeFleetPortSettings -> Maybe Text
location :: Prelude.Maybe Prelude.Text,
DescribeFleetPortSettings -> Text
fleetId :: Prelude.Text
}
deriving (DescribeFleetPortSettings -> DescribeFleetPortSettings -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeFleetPortSettings -> DescribeFleetPortSettings -> Bool
$c/= :: DescribeFleetPortSettings -> DescribeFleetPortSettings -> Bool
== :: DescribeFleetPortSettings -> DescribeFleetPortSettings -> Bool
$c== :: DescribeFleetPortSettings -> DescribeFleetPortSettings -> Bool
Prelude.Eq, ReadPrec [DescribeFleetPortSettings]
ReadPrec DescribeFleetPortSettings
Int -> ReadS DescribeFleetPortSettings
ReadS [DescribeFleetPortSettings]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeFleetPortSettings]
$creadListPrec :: ReadPrec [DescribeFleetPortSettings]
readPrec :: ReadPrec DescribeFleetPortSettings
$creadPrec :: ReadPrec DescribeFleetPortSettings
readList :: ReadS [DescribeFleetPortSettings]
$creadList :: ReadS [DescribeFleetPortSettings]
readsPrec :: Int -> ReadS DescribeFleetPortSettings
$creadsPrec :: Int -> ReadS DescribeFleetPortSettings
Prelude.Read, Int -> DescribeFleetPortSettings -> ShowS
[DescribeFleetPortSettings] -> ShowS
DescribeFleetPortSettings -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeFleetPortSettings] -> ShowS
$cshowList :: [DescribeFleetPortSettings] -> ShowS
show :: DescribeFleetPortSettings -> String
$cshow :: DescribeFleetPortSettings -> String
showsPrec :: Int -> DescribeFleetPortSettings -> ShowS
$cshowsPrec :: Int -> DescribeFleetPortSettings -> ShowS
Prelude.Show, forall x.
Rep DescribeFleetPortSettings x -> DescribeFleetPortSettings
forall x.
DescribeFleetPortSettings -> Rep DescribeFleetPortSettings x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeFleetPortSettings x -> DescribeFleetPortSettings
$cfrom :: forall x.
DescribeFleetPortSettings -> Rep DescribeFleetPortSettings x
Prelude.Generic)
newDescribeFleetPortSettings ::
Prelude.Text ->
DescribeFleetPortSettings
newDescribeFleetPortSettings :: Text -> DescribeFleetPortSettings
newDescribeFleetPortSettings Text
pFleetId_ =
DescribeFleetPortSettings'
{ $sel:location:DescribeFleetPortSettings' :: Maybe Text
location =
forall a. Maybe a
Prelude.Nothing,
$sel:fleetId:DescribeFleetPortSettings' :: Text
fleetId = Text
pFleetId_
}
describeFleetPortSettings_location :: Lens.Lens' DescribeFleetPortSettings (Prelude.Maybe Prelude.Text)
describeFleetPortSettings_location :: Lens' DescribeFleetPortSettings (Maybe Text)
describeFleetPortSettings_location = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeFleetPortSettings' {Maybe Text
location :: Maybe Text
$sel:location:DescribeFleetPortSettings' :: DescribeFleetPortSettings -> Maybe Text
location} -> Maybe Text
location) (\s :: DescribeFleetPortSettings
s@DescribeFleetPortSettings' {} Maybe Text
a -> DescribeFleetPortSettings
s {$sel:location:DescribeFleetPortSettings' :: Maybe Text
location = Maybe Text
a} :: DescribeFleetPortSettings)
describeFleetPortSettings_fleetId :: Lens.Lens' DescribeFleetPortSettings Prelude.Text
describeFleetPortSettings_fleetId :: Lens' DescribeFleetPortSettings Text
describeFleetPortSettings_fleetId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeFleetPortSettings' {Text
fleetId :: Text
$sel:fleetId:DescribeFleetPortSettings' :: DescribeFleetPortSettings -> Text
fleetId} -> Text
fleetId) (\s :: DescribeFleetPortSettings
s@DescribeFleetPortSettings' {} Text
a -> DescribeFleetPortSettings
s {$sel:fleetId:DescribeFleetPortSettings' :: Text
fleetId = Text
a} :: DescribeFleetPortSettings)
instance Core.AWSRequest DescribeFleetPortSettings where
type
AWSResponse DescribeFleetPortSettings =
DescribeFleetPortSettingsResponse
request :: (Service -> Service)
-> DescribeFleetPortSettings -> Request DescribeFleetPortSettings
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 DescribeFleetPortSettings
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeFleetPortSettings)))
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 Text
-> Maybe Text
-> Maybe [IpPermission]
-> Maybe Text
-> Maybe LocationUpdateStatus
-> Int
-> DescribeFleetPortSettingsResponse
DescribeFleetPortSettingsResponse'
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
"FleetArn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"FleetId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"InboundPermissions"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ 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 -> Either String (Maybe a)
Data..?> Key
"Location")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"UpdateStatus")
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 DescribeFleetPortSettings where
hashWithSalt :: Int -> DescribeFleetPortSettings -> Int
hashWithSalt Int
_salt DescribeFleetPortSettings' {Maybe Text
Text
fleetId :: Text
location :: Maybe Text
$sel:fleetId:DescribeFleetPortSettings' :: DescribeFleetPortSettings -> Text
$sel:location:DescribeFleetPortSettings' :: DescribeFleetPortSettings -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
location
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
fleetId
instance Prelude.NFData DescribeFleetPortSettings where
rnf :: DescribeFleetPortSettings -> ()
rnf DescribeFleetPortSettings' {Maybe Text
Text
fleetId :: Text
location :: Maybe Text
$sel:fleetId:DescribeFleetPortSettings' :: DescribeFleetPortSettings -> Text
$sel:location:DescribeFleetPortSettings' :: DescribeFleetPortSettings -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
location
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
fleetId
instance Data.ToHeaders DescribeFleetPortSettings where
toHeaders :: DescribeFleetPortSettings -> 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.DescribeFleetPortSettings" ::
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 DescribeFleetPortSettings where
toJSON :: DescribeFleetPortSettings -> Value
toJSON DescribeFleetPortSettings' {Maybe Text
Text
fleetId :: Text
location :: Maybe Text
$sel:fleetId:DescribeFleetPortSettings' :: DescribeFleetPortSettings -> Text
$sel:location:DescribeFleetPortSettings' :: DescribeFleetPortSettings -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"Location" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
location,
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 DescribeFleetPortSettings where
toPath :: DescribeFleetPortSettings -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeFleetPortSettings where
toQuery :: DescribeFleetPortSettings -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeFleetPortSettingsResponse = DescribeFleetPortSettingsResponse'
{
DescribeFleetPortSettingsResponse -> Maybe Text
fleetArn :: Prelude.Maybe Prelude.Text,
DescribeFleetPortSettingsResponse -> Maybe Text
fleetId :: Prelude.Maybe Prelude.Text,
DescribeFleetPortSettingsResponse -> Maybe [IpPermission]
inboundPermissions :: Prelude.Maybe [IpPermission],
DescribeFleetPortSettingsResponse -> Maybe Text
location :: Prelude.Maybe Prelude.Text,
DescribeFleetPortSettingsResponse -> Maybe LocationUpdateStatus
updateStatus :: Prelude.Maybe LocationUpdateStatus,
DescribeFleetPortSettingsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeFleetPortSettingsResponse
-> DescribeFleetPortSettingsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeFleetPortSettingsResponse
-> DescribeFleetPortSettingsResponse -> Bool
$c/= :: DescribeFleetPortSettingsResponse
-> DescribeFleetPortSettingsResponse -> Bool
== :: DescribeFleetPortSettingsResponse
-> DescribeFleetPortSettingsResponse -> Bool
$c== :: DescribeFleetPortSettingsResponse
-> DescribeFleetPortSettingsResponse -> Bool
Prelude.Eq, ReadPrec [DescribeFleetPortSettingsResponse]
ReadPrec DescribeFleetPortSettingsResponse
Int -> ReadS DescribeFleetPortSettingsResponse
ReadS [DescribeFleetPortSettingsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeFleetPortSettingsResponse]
$creadListPrec :: ReadPrec [DescribeFleetPortSettingsResponse]
readPrec :: ReadPrec DescribeFleetPortSettingsResponse
$creadPrec :: ReadPrec DescribeFleetPortSettingsResponse
readList :: ReadS [DescribeFleetPortSettingsResponse]
$creadList :: ReadS [DescribeFleetPortSettingsResponse]
readsPrec :: Int -> ReadS DescribeFleetPortSettingsResponse
$creadsPrec :: Int -> ReadS DescribeFleetPortSettingsResponse
Prelude.Read, Int -> DescribeFleetPortSettingsResponse -> ShowS
[DescribeFleetPortSettingsResponse] -> ShowS
DescribeFleetPortSettingsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeFleetPortSettingsResponse] -> ShowS
$cshowList :: [DescribeFleetPortSettingsResponse] -> ShowS
show :: DescribeFleetPortSettingsResponse -> String
$cshow :: DescribeFleetPortSettingsResponse -> String
showsPrec :: Int -> DescribeFleetPortSettingsResponse -> ShowS
$cshowsPrec :: Int -> DescribeFleetPortSettingsResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeFleetPortSettingsResponse x
-> DescribeFleetPortSettingsResponse
forall x.
DescribeFleetPortSettingsResponse
-> Rep DescribeFleetPortSettingsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeFleetPortSettingsResponse x
-> DescribeFleetPortSettingsResponse
$cfrom :: forall x.
DescribeFleetPortSettingsResponse
-> Rep DescribeFleetPortSettingsResponse x
Prelude.Generic)
newDescribeFleetPortSettingsResponse ::
Prelude.Int ->
DescribeFleetPortSettingsResponse
newDescribeFleetPortSettingsResponse :: Int -> DescribeFleetPortSettingsResponse
newDescribeFleetPortSettingsResponse Int
pHttpStatus_ =
DescribeFleetPortSettingsResponse'
{ $sel:fleetArn:DescribeFleetPortSettingsResponse' :: Maybe Text
fleetArn =
forall a. Maybe a
Prelude.Nothing,
$sel:fleetId:DescribeFleetPortSettingsResponse' :: Maybe Text
fleetId = forall a. Maybe a
Prelude.Nothing,
$sel:inboundPermissions:DescribeFleetPortSettingsResponse' :: Maybe [IpPermission]
inboundPermissions = forall a. Maybe a
Prelude.Nothing,
$sel:location:DescribeFleetPortSettingsResponse' :: Maybe Text
location = forall a. Maybe a
Prelude.Nothing,
$sel:updateStatus:DescribeFleetPortSettingsResponse' :: Maybe LocationUpdateStatus
updateStatus = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeFleetPortSettingsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeFleetPortSettingsResponse_fleetArn :: Lens.Lens' DescribeFleetPortSettingsResponse (Prelude.Maybe Prelude.Text)
describeFleetPortSettingsResponse_fleetArn :: Lens' DescribeFleetPortSettingsResponse (Maybe Text)
describeFleetPortSettingsResponse_fleetArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeFleetPortSettingsResponse' {Maybe Text
fleetArn :: Maybe Text
$sel:fleetArn:DescribeFleetPortSettingsResponse' :: DescribeFleetPortSettingsResponse -> Maybe Text
fleetArn} -> Maybe Text
fleetArn) (\s :: DescribeFleetPortSettingsResponse
s@DescribeFleetPortSettingsResponse' {} Maybe Text
a -> DescribeFleetPortSettingsResponse
s {$sel:fleetArn:DescribeFleetPortSettingsResponse' :: Maybe Text
fleetArn = Maybe Text
a} :: DescribeFleetPortSettingsResponse)
describeFleetPortSettingsResponse_fleetId :: Lens.Lens' DescribeFleetPortSettingsResponse (Prelude.Maybe Prelude.Text)
describeFleetPortSettingsResponse_fleetId :: Lens' DescribeFleetPortSettingsResponse (Maybe Text)
describeFleetPortSettingsResponse_fleetId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeFleetPortSettingsResponse' {Maybe Text
fleetId :: Maybe Text
$sel:fleetId:DescribeFleetPortSettingsResponse' :: DescribeFleetPortSettingsResponse -> Maybe Text
fleetId} -> Maybe Text
fleetId) (\s :: DescribeFleetPortSettingsResponse
s@DescribeFleetPortSettingsResponse' {} Maybe Text
a -> DescribeFleetPortSettingsResponse
s {$sel:fleetId:DescribeFleetPortSettingsResponse' :: Maybe Text
fleetId = Maybe Text
a} :: DescribeFleetPortSettingsResponse)
describeFleetPortSettingsResponse_inboundPermissions :: Lens.Lens' DescribeFleetPortSettingsResponse (Prelude.Maybe [IpPermission])
describeFleetPortSettingsResponse_inboundPermissions :: Lens' DescribeFleetPortSettingsResponse (Maybe [IpPermission])
describeFleetPortSettingsResponse_inboundPermissions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeFleetPortSettingsResponse' {Maybe [IpPermission]
inboundPermissions :: Maybe [IpPermission]
$sel:inboundPermissions:DescribeFleetPortSettingsResponse' :: DescribeFleetPortSettingsResponse -> Maybe [IpPermission]
inboundPermissions} -> Maybe [IpPermission]
inboundPermissions) (\s :: DescribeFleetPortSettingsResponse
s@DescribeFleetPortSettingsResponse' {} Maybe [IpPermission]
a -> DescribeFleetPortSettingsResponse
s {$sel:inboundPermissions:DescribeFleetPortSettingsResponse' :: Maybe [IpPermission]
inboundPermissions = Maybe [IpPermission]
a} :: DescribeFleetPortSettingsResponse) 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
describeFleetPortSettingsResponse_location :: Lens.Lens' DescribeFleetPortSettingsResponse (Prelude.Maybe Prelude.Text)
describeFleetPortSettingsResponse_location :: Lens' DescribeFleetPortSettingsResponse (Maybe Text)
describeFleetPortSettingsResponse_location = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeFleetPortSettingsResponse' {Maybe Text
location :: Maybe Text
$sel:location:DescribeFleetPortSettingsResponse' :: DescribeFleetPortSettingsResponse -> Maybe Text
location} -> Maybe Text
location) (\s :: DescribeFleetPortSettingsResponse
s@DescribeFleetPortSettingsResponse' {} Maybe Text
a -> DescribeFleetPortSettingsResponse
s {$sel:location:DescribeFleetPortSettingsResponse' :: Maybe Text
location = Maybe Text
a} :: DescribeFleetPortSettingsResponse)
describeFleetPortSettingsResponse_updateStatus :: Lens.Lens' DescribeFleetPortSettingsResponse (Prelude.Maybe LocationUpdateStatus)
describeFleetPortSettingsResponse_updateStatus :: Lens'
DescribeFleetPortSettingsResponse (Maybe LocationUpdateStatus)
describeFleetPortSettingsResponse_updateStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeFleetPortSettingsResponse' {Maybe LocationUpdateStatus
updateStatus :: Maybe LocationUpdateStatus
$sel:updateStatus:DescribeFleetPortSettingsResponse' :: DescribeFleetPortSettingsResponse -> Maybe LocationUpdateStatus
updateStatus} -> Maybe LocationUpdateStatus
updateStatus) (\s :: DescribeFleetPortSettingsResponse
s@DescribeFleetPortSettingsResponse' {} Maybe LocationUpdateStatus
a -> DescribeFleetPortSettingsResponse
s {$sel:updateStatus:DescribeFleetPortSettingsResponse' :: Maybe LocationUpdateStatus
updateStatus = Maybe LocationUpdateStatus
a} :: DescribeFleetPortSettingsResponse)
describeFleetPortSettingsResponse_httpStatus :: Lens.Lens' DescribeFleetPortSettingsResponse Prelude.Int
describeFleetPortSettingsResponse_httpStatus :: Lens' DescribeFleetPortSettingsResponse Int
describeFleetPortSettingsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeFleetPortSettingsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeFleetPortSettingsResponse' :: DescribeFleetPortSettingsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeFleetPortSettingsResponse
s@DescribeFleetPortSettingsResponse' {} Int
a -> DescribeFleetPortSettingsResponse
s {$sel:httpStatus:DescribeFleetPortSettingsResponse' :: Int
httpStatus = Int
a} :: DescribeFleetPortSettingsResponse)
instance
Prelude.NFData
DescribeFleetPortSettingsResponse
where
rnf :: DescribeFleetPortSettingsResponse -> ()
rnf DescribeFleetPortSettingsResponse' {Int
Maybe [IpPermission]
Maybe Text
Maybe LocationUpdateStatus
httpStatus :: Int
updateStatus :: Maybe LocationUpdateStatus
location :: Maybe Text
inboundPermissions :: Maybe [IpPermission]
fleetId :: Maybe Text
fleetArn :: Maybe Text
$sel:httpStatus:DescribeFleetPortSettingsResponse' :: DescribeFleetPortSettingsResponse -> Int
$sel:updateStatus:DescribeFleetPortSettingsResponse' :: DescribeFleetPortSettingsResponse -> Maybe LocationUpdateStatus
$sel:location:DescribeFleetPortSettingsResponse' :: DescribeFleetPortSettingsResponse -> Maybe Text
$sel:inboundPermissions:DescribeFleetPortSettingsResponse' :: DescribeFleetPortSettingsResponse -> Maybe [IpPermission]
$sel:fleetId:DescribeFleetPortSettingsResponse' :: DescribeFleetPortSettingsResponse -> Maybe Text
$sel:fleetArn:DescribeFleetPortSettingsResponse' :: DescribeFleetPortSettingsResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
fleetArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
fleetId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [IpPermission]
inboundPermissions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
location
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe LocationUpdateStatus
updateStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus