{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.AppStream.Types.Fleet where
import Amazonka.AppStream.Types.ComputeCapacityStatus
import Amazonka.AppStream.Types.DomainJoinInfo
import Amazonka.AppStream.Types.FleetError
import Amazonka.AppStream.Types.FleetState
import Amazonka.AppStream.Types.FleetType
import Amazonka.AppStream.Types.PlatformType
import Amazonka.AppStream.Types.S3Location
import Amazonka.AppStream.Types.StreamView
import Amazonka.AppStream.Types.VpcConfig
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
data Fleet = Fleet'
{
Fleet -> Maybe POSIX
createdTime :: Prelude.Maybe Data.POSIX,
Fleet -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
Fleet -> Maybe Int
disconnectTimeoutInSeconds :: Prelude.Maybe Prelude.Int,
Fleet -> Maybe Text
displayName :: Prelude.Maybe Prelude.Text,
Fleet -> Maybe DomainJoinInfo
domainJoinInfo :: Prelude.Maybe DomainJoinInfo,
Fleet -> Maybe Bool
enableDefaultInternetAccess :: Prelude.Maybe Prelude.Bool,
Fleet -> Maybe [FleetError]
fleetErrors :: Prelude.Maybe [FleetError],
Fleet -> Maybe FleetType
fleetType :: Prelude.Maybe FleetType,
Fleet -> Maybe Text
iamRoleArn :: Prelude.Maybe Prelude.Text,
Fleet -> Maybe Int
idleDisconnectTimeoutInSeconds :: Prelude.Maybe Prelude.Int,
Fleet -> Maybe Text
imageArn :: Prelude.Maybe Prelude.Text,
Fleet -> Maybe Text
imageName :: Prelude.Maybe Prelude.Text,
Fleet -> Maybe Int
maxConcurrentSessions :: Prelude.Maybe Prelude.Int,
Fleet -> Maybe Int
maxUserDurationInSeconds :: Prelude.Maybe Prelude.Int,
Fleet -> Maybe PlatformType
platform :: Prelude.Maybe PlatformType,
Fleet -> Maybe S3Location
sessionScriptS3Location :: Prelude.Maybe S3Location,
Fleet -> Maybe StreamView
streamView :: Prelude.Maybe StreamView,
Fleet -> Maybe [Text]
usbDeviceFilterStrings :: Prelude.Maybe [Prelude.Text],
Fleet -> Maybe VpcConfig
vpcConfig :: Prelude.Maybe VpcConfig,
Fleet -> Text
arn :: Prelude.Text,
Fleet -> Text
name :: Prelude.Text,
Fleet -> Text
instanceType :: Prelude.Text,
Fleet -> ComputeCapacityStatus
computeCapacityStatus :: ComputeCapacityStatus,
Fleet -> FleetState
state :: FleetState
}
deriving (Fleet -> Fleet -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Fleet -> Fleet -> Bool
$c/= :: Fleet -> Fleet -> Bool
== :: Fleet -> Fleet -> Bool
$c== :: Fleet -> Fleet -> Bool
Prelude.Eq, ReadPrec [Fleet]
ReadPrec Fleet
Int -> ReadS Fleet
ReadS [Fleet]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [Fleet]
$creadListPrec :: ReadPrec [Fleet]
readPrec :: ReadPrec Fleet
$creadPrec :: ReadPrec Fleet
readList :: ReadS [Fleet]
$creadList :: ReadS [Fleet]
readsPrec :: Int -> ReadS Fleet
$creadsPrec :: Int -> ReadS Fleet
Prelude.Read, Int -> Fleet -> ShowS
[Fleet] -> ShowS
Fleet -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Fleet] -> ShowS
$cshowList :: [Fleet] -> ShowS
show :: Fleet -> String
$cshow :: Fleet -> String
showsPrec :: Int -> Fleet -> ShowS
$cshowsPrec :: Int -> Fleet -> ShowS
Prelude.Show, forall x. Rep Fleet x -> Fleet
forall x. Fleet -> Rep Fleet x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep Fleet x -> Fleet
$cfrom :: forall x. Fleet -> Rep Fleet x
Prelude.Generic)
newFleet ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
ComputeCapacityStatus ->
FleetState ->
Fleet
newFleet :: Text
-> Text -> Text -> ComputeCapacityStatus -> FleetState -> Fleet
newFleet
Text
pArn_
Text
pName_
Text
pInstanceType_
ComputeCapacityStatus
pComputeCapacityStatus_
FleetState
pState_ =
Fleet'
{ $sel:createdTime:Fleet' :: Maybe POSIX
createdTime = forall a. Maybe a
Prelude.Nothing,
$sel:description:Fleet' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:disconnectTimeoutInSeconds:Fleet' :: Maybe Int
disconnectTimeoutInSeconds = forall a. Maybe a
Prelude.Nothing,
$sel:displayName:Fleet' :: Maybe Text
displayName = forall a. Maybe a
Prelude.Nothing,
$sel:domainJoinInfo:Fleet' :: Maybe DomainJoinInfo
domainJoinInfo = forall a. Maybe a
Prelude.Nothing,
$sel:enableDefaultInternetAccess:Fleet' :: Maybe Bool
enableDefaultInternetAccess = forall a. Maybe a
Prelude.Nothing,
$sel:fleetErrors:Fleet' :: Maybe [FleetError]
fleetErrors = forall a. Maybe a
Prelude.Nothing,
$sel:fleetType:Fleet' :: Maybe FleetType
fleetType = forall a. Maybe a
Prelude.Nothing,
$sel:iamRoleArn:Fleet' :: Maybe Text
iamRoleArn = forall a. Maybe a
Prelude.Nothing,
$sel:idleDisconnectTimeoutInSeconds:Fleet' :: Maybe Int
idleDisconnectTimeoutInSeconds = forall a. Maybe a
Prelude.Nothing,
$sel:imageArn:Fleet' :: Maybe Text
imageArn = forall a. Maybe a
Prelude.Nothing,
$sel:imageName:Fleet' :: Maybe Text
imageName = forall a. Maybe a
Prelude.Nothing,
$sel:maxConcurrentSessions:Fleet' :: Maybe Int
maxConcurrentSessions = forall a. Maybe a
Prelude.Nothing,
$sel:maxUserDurationInSeconds:Fleet' :: Maybe Int
maxUserDurationInSeconds = forall a. Maybe a
Prelude.Nothing,
$sel:platform:Fleet' :: Maybe PlatformType
platform = forall a. Maybe a
Prelude.Nothing,
$sel:sessionScriptS3Location:Fleet' :: Maybe S3Location
sessionScriptS3Location = forall a. Maybe a
Prelude.Nothing,
$sel:streamView:Fleet' :: Maybe StreamView
streamView = forall a. Maybe a
Prelude.Nothing,
$sel:usbDeviceFilterStrings:Fleet' :: Maybe [Text]
usbDeviceFilterStrings = forall a. Maybe a
Prelude.Nothing,
$sel:vpcConfig:Fleet' :: Maybe VpcConfig
vpcConfig = forall a. Maybe a
Prelude.Nothing,
$sel:arn:Fleet' :: Text
arn = Text
pArn_,
$sel:name:Fleet' :: Text
name = Text
pName_,
$sel:instanceType:Fleet' :: Text
instanceType = Text
pInstanceType_,
$sel:computeCapacityStatus:Fleet' :: ComputeCapacityStatus
computeCapacityStatus = ComputeCapacityStatus
pComputeCapacityStatus_,
$sel:state:Fleet' :: FleetState
state = FleetState
pState_
}
fleet_createdTime :: Lens.Lens' Fleet (Prelude.Maybe Prelude.UTCTime)
fleet_createdTime :: Lens' Fleet (Maybe UTCTime)
fleet_createdTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Fleet' {Maybe POSIX
createdTime :: Maybe POSIX
$sel:createdTime:Fleet' :: Fleet -> Maybe POSIX
createdTime} -> Maybe POSIX
createdTime) (\s :: Fleet
s@Fleet' {} Maybe POSIX
a -> Fleet
s {$sel:createdTime:Fleet' :: Maybe POSIX
createdTime = Maybe POSIX
a} :: Fleet) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
fleet_description :: Lens.Lens' Fleet (Prelude.Maybe Prelude.Text)
fleet_description :: Lens' Fleet (Maybe Text)
fleet_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Fleet' {Maybe Text
description :: Maybe Text
$sel:description:Fleet' :: Fleet -> Maybe Text
description} -> Maybe Text
description) (\s :: Fleet
s@Fleet' {} Maybe Text
a -> Fleet
s {$sel:description:Fleet' :: Maybe Text
description = Maybe Text
a} :: Fleet)
fleet_disconnectTimeoutInSeconds :: Lens.Lens' Fleet (Prelude.Maybe Prelude.Int)
fleet_disconnectTimeoutInSeconds :: Lens' Fleet (Maybe Int)
fleet_disconnectTimeoutInSeconds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Fleet' {Maybe Int
disconnectTimeoutInSeconds :: Maybe Int
$sel:disconnectTimeoutInSeconds:Fleet' :: Fleet -> Maybe Int
disconnectTimeoutInSeconds} -> Maybe Int
disconnectTimeoutInSeconds) (\s :: Fleet
s@Fleet' {} Maybe Int
a -> Fleet
s {$sel:disconnectTimeoutInSeconds:Fleet' :: Maybe Int
disconnectTimeoutInSeconds = Maybe Int
a} :: Fleet)
fleet_displayName :: Lens.Lens' Fleet (Prelude.Maybe Prelude.Text)
fleet_displayName :: Lens' Fleet (Maybe Text)
fleet_displayName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Fleet' {Maybe Text
displayName :: Maybe Text
$sel:displayName:Fleet' :: Fleet -> Maybe Text
displayName} -> Maybe Text
displayName) (\s :: Fleet
s@Fleet' {} Maybe Text
a -> Fleet
s {$sel:displayName:Fleet' :: Maybe Text
displayName = Maybe Text
a} :: Fleet)
fleet_domainJoinInfo :: Lens.Lens' Fleet (Prelude.Maybe DomainJoinInfo)
fleet_domainJoinInfo :: Lens' Fleet (Maybe DomainJoinInfo)
fleet_domainJoinInfo = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Fleet' {Maybe DomainJoinInfo
domainJoinInfo :: Maybe DomainJoinInfo
$sel:domainJoinInfo:Fleet' :: Fleet -> Maybe DomainJoinInfo
domainJoinInfo} -> Maybe DomainJoinInfo
domainJoinInfo) (\s :: Fleet
s@Fleet' {} Maybe DomainJoinInfo
a -> Fleet
s {$sel:domainJoinInfo:Fleet' :: Maybe DomainJoinInfo
domainJoinInfo = Maybe DomainJoinInfo
a} :: Fleet)
fleet_enableDefaultInternetAccess :: Lens.Lens' Fleet (Prelude.Maybe Prelude.Bool)
fleet_enableDefaultInternetAccess :: Lens' Fleet (Maybe Bool)
fleet_enableDefaultInternetAccess = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Fleet' {Maybe Bool
enableDefaultInternetAccess :: Maybe Bool
$sel:enableDefaultInternetAccess:Fleet' :: Fleet -> Maybe Bool
enableDefaultInternetAccess} -> Maybe Bool
enableDefaultInternetAccess) (\s :: Fleet
s@Fleet' {} Maybe Bool
a -> Fleet
s {$sel:enableDefaultInternetAccess:Fleet' :: Maybe Bool
enableDefaultInternetAccess = Maybe Bool
a} :: Fleet)
fleet_fleetErrors :: Lens.Lens' Fleet (Prelude.Maybe [FleetError])
fleet_fleetErrors :: Lens' Fleet (Maybe [FleetError])
fleet_fleetErrors = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Fleet' {Maybe [FleetError]
fleetErrors :: Maybe [FleetError]
$sel:fleetErrors:Fleet' :: Fleet -> Maybe [FleetError]
fleetErrors} -> Maybe [FleetError]
fleetErrors) (\s :: Fleet
s@Fleet' {} Maybe [FleetError]
a -> Fleet
s {$sel:fleetErrors:Fleet' :: Maybe [FleetError]
fleetErrors = Maybe [FleetError]
a} :: Fleet) 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
fleet_fleetType :: Lens.Lens' Fleet (Prelude.Maybe FleetType)
fleet_fleetType :: Lens' Fleet (Maybe FleetType)
fleet_fleetType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Fleet' {Maybe FleetType
fleetType :: Maybe FleetType
$sel:fleetType:Fleet' :: Fleet -> Maybe FleetType
fleetType} -> Maybe FleetType
fleetType) (\s :: Fleet
s@Fleet' {} Maybe FleetType
a -> Fleet
s {$sel:fleetType:Fleet' :: Maybe FleetType
fleetType = Maybe FleetType
a} :: Fleet)
fleet_iamRoleArn :: Lens.Lens' Fleet (Prelude.Maybe Prelude.Text)
fleet_iamRoleArn :: Lens' Fleet (Maybe Text)
fleet_iamRoleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Fleet' {Maybe Text
iamRoleArn :: Maybe Text
$sel:iamRoleArn:Fleet' :: Fleet -> Maybe Text
iamRoleArn} -> Maybe Text
iamRoleArn) (\s :: Fleet
s@Fleet' {} Maybe Text
a -> Fleet
s {$sel:iamRoleArn:Fleet' :: Maybe Text
iamRoleArn = Maybe Text
a} :: Fleet)
fleet_idleDisconnectTimeoutInSeconds :: Lens.Lens' Fleet (Prelude.Maybe Prelude.Int)
fleet_idleDisconnectTimeoutInSeconds :: Lens' Fleet (Maybe Int)
fleet_idleDisconnectTimeoutInSeconds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Fleet' {Maybe Int
idleDisconnectTimeoutInSeconds :: Maybe Int
$sel:idleDisconnectTimeoutInSeconds:Fleet' :: Fleet -> Maybe Int
idleDisconnectTimeoutInSeconds} -> Maybe Int
idleDisconnectTimeoutInSeconds) (\s :: Fleet
s@Fleet' {} Maybe Int
a -> Fleet
s {$sel:idleDisconnectTimeoutInSeconds:Fleet' :: Maybe Int
idleDisconnectTimeoutInSeconds = Maybe Int
a} :: Fleet)
fleet_imageArn :: Lens.Lens' Fleet (Prelude.Maybe Prelude.Text)
fleet_imageArn :: Lens' Fleet (Maybe Text)
fleet_imageArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Fleet' {Maybe Text
imageArn :: Maybe Text
$sel:imageArn:Fleet' :: Fleet -> Maybe Text
imageArn} -> Maybe Text
imageArn) (\s :: Fleet
s@Fleet' {} Maybe Text
a -> Fleet
s {$sel:imageArn:Fleet' :: Maybe Text
imageArn = Maybe Text
a} :: Fleet)
fleet_imageName :: Lens.Lens' Fleet (Prelude.Maybe Prelude.Text)
fleet_imageName :: Lens' Fleet (Maybe Text)
fleet_imageName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Fleet' {Maybe Text
imageName :: Maybe Text
$sel:imageName:Fleet' :: Fleet -> Maybe Text
imageName} -> Maybe Text
imageName) (\s :: Fleet
s@Fleet' {} Maybe Text
a -> Fleet
s {$sel:imageName:Fleet' :: Maybe Text
imageName = Maybe Text
a} :: Fleet)
fleet_maxConcurrentSessions :: Lens.Lens' Fleet (Prelude.Maybe Prelude.Int)
fleet_maxConcurrentSessions :: Lens' Fleet (Maybe Int)
fleet_maxConcurrentSessions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Fleet' {Maybe Int
maxConcurrentSessions :: Maybe Int
$sel:maxConcurrentSessions:Fleet' :: Fleet -> Maybe Int
maxConcurrentSessions} -> Maybe Int
maxConcurrentSessions) (\s :: Fleet
s@Fleet' {} Maybe Int
a -> Fleet
s {$sel:maxConcurrentSessions:Fleet' :: Maybe Int
maxConcurrentSessions = Maybe Int
a} :: Fleet)
fleet_maxUserDurationInSeconds :: Lens.Lens' Fleet (Prelude.Maybe Prelude.Int)
fleet_maxUserDurationInSeconds :: Lens' Fleet (Maybe Int)
fleet_maxUserDurationInSeconds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Fleet' {Maybe Int
maxUserDurationInSeconds :: Maybe Int
$sel:maxUserDurationInSeconds:Fleet' :: Fleet -> Maybe Int
maxUserDurationInSeconds} -> Maybe Int
maxUserDurationInSeconds) (\s :: Fleet
s@Fleet' {} Maybe Int
a -> Fleet
s {$sel:maxUserDurationInSeconds:Fleet' :: Maybe Int
maxUserDurationInSeconds = Maybe Int
a} :: Fleet)
fleet_platform :: Lens.Lens' Fleet (Prelude.Maybe PlatformType)
fleet_platform :: Lens' Fleet (Maybe PlatformType)
fleet_platform = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Fleet' {Maybe PlatformType
platform :: Maybe PlatformType
$sel:platform:Fleet' :: Fleet -> Maybe PlatformType
platform} -> Maybe PlatformType
platform) (\s :: Fleet
s@Fleet' {} Maybe PlatformType
a -> Fleet
s {$sel:platform:Fleet' :: Maybe PlatformType
platform = Maybe PlatformType
a} :: Fleet)
fleet_sessionScriptS3Location :: Lens.Lens' Fleet (Prelude.Maybe S3Location)
fleet_sessionScriptS3Location :: Lens' Fleet (Maybe S3Location)
fleet_sessionScriptS3Location = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Fleet' {Maybe S3Location
sessionScriptS3Location :: Maybe S3Location
$sel:sessionScriptS3Location:Fleet' :: Fleet -> Maybe S3Location
sessionScriptS3Location} -> Maybe S3Location
sessionScriptS3Location) (\s :: Fleet
s@Fleet' {} Maybe S3Location
a -> Fleet
s {$sel:sessionScriptS3Location:Fleet' :: Maybe S3Location
sessionScriptS3Location = Maybe S3Location
a} :: Fleet)
fleet_streamView :: Lens.Lens' Fleet (Prelude.Maybe StreamView)
fleet_streamView :: Lens' Fleet (Maybe StreamView)
fleet_streamView = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Fleet' {Maybe StreamView
streamView :: Maybe StreamView
$sel:streamView:Fleet' :: Fleet -> Maybe StreamView
streamView} -> Maybe StreamView
streamView) (\s :: Fleet
s@Fleet' {} Maybe StreamView
a -> Fleet
s {$sel:streamView:Fleet' :: Maybe StreamView
streamView = Maybe StreamView
a} :: Fleet)
fleet_usbDeviceFilterStrings :: Lens.Lens' Fleet (Prelude.Maybe [Prelude.Text])
fleet_usbDeviceFilterStrings :: Lens' Fleet (Maybe [Text])
fleet_usbDeviceFilterStrings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Fleet' {Maybe [Text]
usbDeviceFilterStrings :: Maybe [Text]
$sel:usbDeviceFilterStrings:Fleet' :: Fleet -> Maybe [Text]
usbDeviceFilterStrings} -> Maybe [Text]
usbDeviceFilterStrings) (\s :: Fleet
s@Fleet' {} Maybe [Text]
a -> Fleet
s {$sel:usbDeviceFilterStrings:Fleet' :: Maybe [Text]
usbDeviceFilterStrings = Maybe [Text]
a} :: Fleet) 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
fleet_vpcConfig :: Lens.Lens' Fleet (Prelude.Maybe VpcConfig)
fleet_vpcConfig :: Lens' Fleet (Maybe VpcConfig)
fleet_vpcConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Fleet' {Maybe VpcConfig
vpcConfig :: Maybe VpcConfig
$sel:vpcConfig:Fleet' :: Fleet -> Maybe VpcConfig
vpcConfig} -> Maybe VpcConfig
vpcConfig) (\s :: Fleet
s@Fleet' {} Maybe VpcConfig
a -> Fleet
s {$sel:vpcConfig:Fleet' :: Maybe VpcConfig
vpcConfig = Maybe VpcConfig
a} :: Fleet)
fleet_arn :: Lens.Lens' Fleet Prelude.Text
fleet_arn :: Lens' Fleet Text
fleet_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Fleet' {Text
arn :: Text
$sel:arn:Fleet' :: Fleet -> Text
arn} -> Text
arn) (\s :: Fleet
s@Fleet' {} Text
a -> Fleet
s {$sel:arn:Fleet' :: Text
arn = Text
a} :: Fleet)
fleet_name :: Lens.Lens' Fleet Prelude.Text
fleet_name :: Lens' Fleet Text
fleet_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Fleet' {Text
name :: Text
$sel:name:Fleet' :: Fleet -> Text
name} -> Text
name) (\s :: Fleet
s@Fleet' {} Text
a -> Fleet
s {$sel:name:Fleet' :: Text
name = Text
a} :: Fleet)
fleet_instanceType :: Lens.Lens' Fleet Prelude.Text
fleet_instanceType :: Lens' Fleet Text
fleet_instanceType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Fleet' {Text
instanceType :: Text
$sel:instanceType:Fleet' :: Fleet -> Text
instanceType} -> Text
instanceType) (\s :: Fleet
s@Fleet' {} Text
a -> Fleet
s {$sel:instanceType:Fleet' :: Text
instanceType = Text
a} :: Fleet)
fleet_computeCapacityStatus :: Lens.Lens' Fleet ComputeCapacityStatus
fleet_computeCapacityStatus :: Lens' Fleet ComputeCapacityStatus
fleet_computeCapacityStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Fleet' {ComputeCapacityStatus
computeCapacityStatus :: ComputeCapacityStatus
$sel:computeCapacityStatus:Fleet' :: Fleet -> ComputeCapacityStatus
computeCapacityStatus} -> ComputeCapacityStatus
computeCapacityStatus) (\s :: Fleet
s@Fleet' {} ComputeCapacityStatus
a -> Fleet
s {$sel:computeCapacityStatus:Fleet' :: ComputeCapacityStatus
computeCapacityStatus = ComputeCapacityStatus
a} :: Fleet)
fleet_state :: Lens.Lens' Fleet FleetState
fleet_state :: Lens' Fleet FleetState
fleet_state = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Fleet' {FleetState
state :: FleetState
$sel:state:Fleet' :: Fleet -> FleetState
state} -> FleetState
state) (\s :: Fleet
s@Fleet' {} FleetState
a -> Fleet
s {$sel:state:Fleet' :: FleetState
state = FleetState
a} :: Fleet)
instance Data.FromJSON Fleet where
parseJSON :: Value -> Parser Fleet
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"Fleet"
( \Object
x ->
Maybe POSIX
-> Maybe Text
-> Maybe Int
-> Maybe Text
-> Maybe DomainJoinInfo
-> Maybe Bool
-> Maybe [FleetError]
-> Maybe FleetType
-> Maybe Text
-> Maybe Int
-> Maybe Text
-> Maybe Text
-> Maybe Int
-> Maybe Int
-> Maybe PlatformType
-> Maybe S3Location
-> Maybe StreamView
-> Maybe [Text]
-> Maybe VpcConfig
-> Text
-> Text
-> Text
-> ComputeCapacityStatus
-> FleetState
-> Fleet
Fleet'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"CreatedTime")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Description")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"DisconnectTimeoutInSeconds")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"DisplayName")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"DomainJoinInfo")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"EnableDefaultInternetAccess")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"FleetErrors" forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"FleetType")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"IamRoleArn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"IdleDisconnectTimeoutInSeconds")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"ImageArn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"ImageName")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"MaxConcurrentSessions")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"MaxUserDurationInSeconds")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Platform")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"SessionScriptS3Location")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"StreamView")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"UsbDeviceFilterStrings"
forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"VpcConfig")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"Arn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"Name")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"InstanceType")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"ComputeCapacityStatus")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"State")
)
instance Prelude.Hashable Fleet where
hashWithSalt :: Int -> Fleet -> Int
hashWithSalt Int
_salt Fleet' {Maybe Bool
Maybe Int
Maybe [Text]
Maybe [FleetError]
Maybe Text
Maybe POSIX
Maybe DomainJoinInfo
Maybe FleetType
Maybe PlatformType
Maybe S3Location
Maybe StreamView
Maybe VpcConfig
Text
ComputeCapacityStatus
FleetState
state :: FleetState
computeCapacityStatus :: ComputeCapacityStatus
instanceType :: Text
name :: Text
arn :: Text
vpcConfig :: Maybe VpcConfig
usbDeviceFilterStrings :: Maybe [Text]
streamView :: Maybe StreamView
sessionScriptS3Location :: Maybe S3Location
platform :: Maybe PlatformType
maxUserDurationInSeconds :: Maybe Int
maxConcurrentSessions :: Maybe Int
imageName :: Maybe Text
imageArn :: Maybe Text
idleDisconnectTimeoutInSeconds :: Maybe Int
iamRoleArn :: Maybe Text
fleetType :: Maybe FleetType
fleetErrors :: Maybe [FleetError]
enableDefaultInternetAccess :: Maybe Bool
domainJoinInfo :: Maybe DomainJoinInfo
displayName :: Maybe Text
disconnectTimeoutInSeconds :: Maybe Int
description :: Maybe Text
createdTime :: Maybe POSIX
$sel:state:Fleet' :: Fleet -> FleetState
$sel:computeCapacityStatus:Fleet' :: Fleet -> ComputeCapacityStatus
$sel:instanceType:Fleet' :: Fleet -> Text
$sel:name:Fleet' :: Fleet -> Text
$sel:arn:Fleet' :: Fleet -> Text
$sel:vpcConfig:Fleet' :: Fleet -> Maybe VpcConfig
$sel:usbDeviceFilterStrings:Fleet' :: Fleet -> Maybe [Text]
$sel:streamView:Fleet' :: Fleet -> Maybe StreamView
$sel:sessionScriptS3Location:Fleet' :: Fleet -> Maybe S3Location
$sel:platform:Fleet' :: Fleet -> Maybe PlatformType
$sel:maxUserDurationInSeconds:Fleet' :: Fleet -> Maybe Int
$sel:maxConcurrentSessions:Fleet' :: Fleet -> Maybe Int
$sel:imageName:Fleet' :: Fleet -> Maybe Text
$sel:imageArn:Fleet' :: Fleet -> Maybe Text
$sel:idleDisconnectTimeoutInSeconds:Fleet' :: Fleet -> Maybe Int
$sel:iamRoleArn:Fleet' :: Fleet -> Maybe Text
$sel:fleetType:Fleet' :: Fleet -> Maybe FleetType
$sel:fleetErrors:Fleet' :: Fleet -> Maybe [FleetError]
$sel:enableDefaultInternetAccess:Fleet' :: Fleet -> Maybe Bool
$sel:domainJoinInfo:Fleet' :: Fleet -> Maybe DomainJoinInfo
$sel:displayName:Fleet' :: Fleet -> Maybe Text
$sel:disconnectTimeoutInSeconds:Fleet' :: Fleet -> Maybe Int
$sel:description:Fleet' :: Fleet -> Maybe Text
$sel:createdTime:Fleet' :: Fleet -> Maybe POSIX
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
createdTime
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
description
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
disconnectTimeoutInSeconds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
displayName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe DomainJoinInfo
domainJoinInfo
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
enableDefaultInternetAccess
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [FleetError]
fleetErrors
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe FleetType
fleetType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
iamRoleArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
idleDisconnectTimeoutInSeconds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
imageArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
imageName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
maxConcurrentSessions
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
maxUserDurationInSeconds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe PlatformType
platform
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe S3Location
sessionScriptS3Location
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe StreamView
streamView
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
usbDeviceFilterStrings
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe VpcConfig
vpcConfig
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
arn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
instanceType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ComputeCapacityStatus
computeCapacityStatus
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` FleetState
state
instance Prelude.NFData Fleet where
rnf :: Fleet -> ()
rnf Fleet' {Maybe Bool
Maybe Int
Maybe [Text]
Maybe [FleetError]
Maybe Text
Maybe POSIX
Maybe DomainJoinInfo
Maybe FleetType
Maybe PlatformType
Maybe S3Location
Maybe StreamView
Maybe VpcConfig
Text
ComputeCapacityStatus
FleetState
state :: FleetState
computeCapacityStatus :: ComputeCapacityStatus
instanceType :: Text
name :: Text
arn :: Text
vpcConfig :: Maybe VpcConfig
usbDeviceFilterStrings :: Maybe [Text]
streamView :: Maybe StreamView
sessionScriptS3Location :: Maybe S3Location
platform :: Maybe PlatformType
maxUserDurationInSeconds :: Maybe Int
maxConcurrentSessions :: Maybe Int
imageName :: Maybe Text
imageArn :: Maybe Text
idleDisconnectTimeoutInSeconds :: Maybe Int
iamRoleArn :: Maybe Text
fleetType :: Maybe FleetType
fleetErrors :: Maybe [FleetError]
enableDefaultInternetAccess :: Maybe Bool
domainJoinInfo :: Maybe DomainJoinInfo
displayName :: Maybe Text
disconnectTimeoutInSeconds :: Maybe Int
description :: Maybe Text
createdTime :: Maybe POSIX
$sel:state:Fleet' :: Fleet -> FleetState
$sel:computeCapacityStatus:Fleet' :: Fleet -> ComputeCapacityStatus
$sel:instanceType:Fleet' :: Fleet -> Text
$sel:name:Fleet' :: Fleet -> Text
$sel:arn:Fleet' :: Fleet -> Text
$sel:vpcConfig:Fleet' :: Fleet -> Maybe VpcConfig
$sel:usbDeviceFilterStrings:Fleet' :: Fleet -> Maybe [Text]
$sel:streamView:Fleet' :: Fleet -> Maybe StreamView
$sel:sessionScriptS3Location:Fleet' :: Fleet -> Maybe S3Location
$sel:platform:Fleet' :: Fleet -> Maybe PlatformType
$sel:maxUserDurationInSeconds:Fleet' :: Fleet -> Maybe Int
$sel:maxConcurrentSessions:Fleet' :: Fleet -> Maybe Int
$sel:imageName:Fleet' :: Fleet -> Maybe Text
$sel:imageArn:Fleet' :: Fleet -> Maybe Text
$sel:idleDisconnectTimeoutInSeconds:Fleet' :: Fleet -> Maybe Int
$sel:iamRoleArn:Fleet' :: Fleet -> Maybe Text
$sel:fleetType:Fleet' :: Fleet -> Maybe FleetType
$sel:fleetErrors:Fleet' :: Fleet -> Maybe [FleetError]
$sel:enableDefaultInternetAccess:Fleet' :: Fleet -> Maybe Bool
$sel:domainJoinInfo:Fleet' :: Fleet -> Maybe DomainJoinInfo
$sel:displayName:Fleet' :: Fleet -> Maybe Text
$sel:disconnectTimeoutInSeconds:Fleet' :: Fleet -> Maybe Int
$sel:description:Fleet' :: Fleet -> Maybe Text
$sel:createdTime:Fleet' :: Fleet -> Maybe POSIX
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
createdTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
description
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
disconnectTimeoutInSeconds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
displayName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DomainJoinInfo
domainJoinInfo
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
enableDefaultInternetAccess
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [FleetError]
fleetErrors
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe FleetType
fleetType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
iamRoleArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
idleDisconnectTimeoutInSeconds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
imageArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
imageName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
maxConcurrentSessions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
maxUserDurationInSeconds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe PlatformType
platform
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe S3Location
sessionScriptS3Location
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe StreamView
streamView
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
usbDeviceFilterStrings
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe VpcConfig
vpcConfig
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
arn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
instanceType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
ComputeCapacityStatus
computeCapacityStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf FleetState
state