{-# 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.AppStream.CreateFleet
(
CreateFleet (..),
newCreateFleet,
createFleet_computeCapacity,
createFleet_description,
createFleet_disconnectTimeoutInSeconds,
createFleet_displayName,
createFleet_domainJoinInfo,
createFleet_enableDefaultInternetAccess,
createFleet_fleetType,
createFleet_iamRoleArn,
createFleet_idleDisconnectTimeoutInSeconds,
createFleet_imageArn,
createFleet_imageName,
createFleet_maxConcurrentSessions,
createFleet_maxUserDurationInSeconds,
createFleet_platform,
createFleet_sessionScriptS3Location,
createFleet_streamView,
createFleet_tags,
createFleet_usbDeviceFilterStrings,
createFleet_vpcConfig,
createFleet_name,
createFleet_instanceType,
CreateFleetResponse (..),
newCreateFleetResponse,
createFleetResponse_fleet,
createFleetResponse_httpStatus,
)
where
import Amazonka.AppStream.Types
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
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateFleet = CreateFleet'
{
CreateFleet -> Maybe ComputeCapacity
computeCapacity :: Prelude.Maybe ComputeCapacity,
CreateFleet -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
CreateFleet -> Maybe Int
disconnectTimeoutInSeconds :: Prelude.Maybe Prelude.Int,
CreateFleet -> Maybe Text
displayName :: Prelude.Maybe Prelude.Text,
CreateFleet -> Maybe DomainJoinInfo
domainJoinInfo :: Prelude.Maybe DomainJoinInfo,
CreateFleet -> Maybe Bool
enableDefaultInternetAccess :: Prelude.Maybe Prelude.Bool,
CreateFleet -> Maybe FleetType
fleetType :: Prelude.Maybe FleetType,
CreateFleet -> Maybe Text
iamRoleArn :: Prelude.Maybe Prelude.Text,
CreateFleet -> Maybe Int
idleDisconnectTimeoutInSeconds :: Prelude.Maybe Prelude.Int,
CreateFleet -> Maybe Text
imageArn :: Prelude.Maybe Prelude.Text,
CreateFleet -> Maybe Text
imageName :: Prelude.Maybe Prelude.Text,
CreateFleet -> Maybe Int
maxConcurrentSessions :: Prelude.Maybe Prelude.Int,
CreateFleet -> Maybe Int
maxUserDurationInSeconds :: Prelude.Maybe Prelude.Int,
CreateFleet -> Maybe PlatformType
platform :: Prelude.Maybe PlatformType,
CreateFleet -> Maybe S3Location
sessionScriptS3Location :: Prelude.Maybe S3Location,
CreateFleet -> Maybe StreamView
streamView :: Prelude.Maybe StreamView,
CreateFleet -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
CreateFleet -> Maybe [Text]
usbDeviceFilterStrings :: Prelude.Maybe [Prelude.Text],
CreateFleet -> Maybe VpcConfig
vpcConfig :: Prelude.Maybe VpcConfig,
CreateFleet -> Text
name :: Prelude.Text,
CreateFleet -> Text
instanceType :: Prelude.Text
}
deriving (CreateFleet -> CreateFleet -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateFleet -> CreateFleet -> Bool
$c/= :: CreateFleet -> CreateFleet -> Bool
== :: CreateFleet -> CreateFleet -> Bool
$c== :: CreateFleet -> CreateFleet -> Bool
Prelude.Eq, ReadPrec [CreateFleet]
ReadPrec CreateFleet
Int -> ReadS CreateFleet
ReadS [CreateFleet]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateFleet]
$creadListPrec :: ReadPrec [CreateFleet]
readPrec :: ReadPrec CreateFleet
$creadPrec :: ReadPrec CreateFleet
readList :: ReadS [CreateFleet]
$creadList :: ReadS [CreateFleet]
readsPrec :: Int -> ReadS CreateFleet
$creadsPrec :: Int -> ReadS CreateFleet
Prelude.Read, Int -> CreateFleet -> ShowS
[CreateFleet] -> ShowS
CreateFleet -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateFleet] -> ShowS
$cshowList :: [CreateFleet] -> ShowS
show :: CreateFleet -> String
$cshow :: CreateFleet -> String
showsPrec :: Int -> CreateFleet -> ShowS
$cshowsPrec :: Int -> CreateFleet -> ShowS
Prelude.Show, forall x. Rep CreateFleet x -> CreateFleet
forall x. CreateFleet -> Rep CreateFleet x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateFleet x -> CreateFleet
$cfrom :: forall x. CreateFleet -> Rep CreateFleet x
Prelude.Generic)
newCreateFleet ::
Prelude.Text ->
Prelude.Text ->
CreateFleet
newCreateFleet :: Text -> Text -> CreateFleet
newCreateFleet Text
pName_ Text
pInstanceType_ =
CreateFleet'
{ $sel:computeCapacity:CreateFleet' :: Maybe ComputeCapacity
computeCapacity = forall a. Maybe a
Prelude.Nothing,
$sel:description:CreateFleet' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:disconnectTimeoutInSeconds:CreateFleet' :: Maybe Int
disconnectTimeoutInSeconds = forall a. Maybe a
Prelude.Nothing,
$sel:displayName:CreateFleet' :: Maybe Text
displayName = forall a. Maybe a
Prelude.Nothing,
$sel:domainJoinInfo:CreateFleet' :: Maybe DomainJoinInfo
domainJoinInfo = forall a. Maybe a
Prelude.Nothing,
$sel:enableDefaultInternetAccess:CreateFleet' :: Maybe Bool
enableDefaultInternetAccess = forall a. Maybe a
Prelude.Nothing,
$sel:fleetType:CreateFleet' :: Maybe FleetType
fleetType = forall a. Maybe a
Prelude.Nothing,
$sel:iamRoleArn:CreateFleet' :: Maybe Text
iamRoleArn = forall a. Maybe a
Prelude.Nothing,
$sel:idleDisconnectTimeoutInSeconds:CreateFleet' :: Maybe Int
idleDisconnectTimeoutInSeconds = forall a. Maybe a
Prelude.Nothing,
$sel:imageArn:CreateFleet' :: Maybe Text
imageArn = forall a. Maybe a
Prelude.Nothing,
$sel:imageName:CreateFleet' :: Maybe Text
imageName = forall a. Maybe a
Prelude.Nothing,
$sel:maxConcurrentSessions:CreateFleet' :: Maybe Int
maxConcurrentSessions = forall a. Maybe a
Prelude.Nothing,
$sel:maxUserDurationInSeconds:CreateFleet' :: Maybe Int
maxUserDurationInSeconds = forall a. Maybe a
Prelude.Nothing,
$sel:platform:CreateFleet' :: Maybe PlatformType
platform = forall a. Maybe a
Prelude.Nothing,
$sel:sessionScriptS3Location:CreateFleet' :: Maybe S3Location
sessionScriptS3Location = forall a. Maybe a
Prelude.Nothing,
$sel:streamView:CreateFleet' :: Maybe StreamView
streamView = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateFleet' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:usbDeviceFilterStrings:CreateFleet' :: Maybe [Text]
usbDeviceFilterStrings = forall a. Maybe a
Prelude.Nothing,
$sel:vpcConfig:CreateFleet' :: Maybe VpcConfig
vpcConfig = forall a. Maybe a
Prelude.Nothing,
$sel:name:CreateFleet' :: Text
name = Text
pName_,
$sel:instanceType:CreateFleet' :: Text
instanceType = Text
pInstanceType_
}
createFleet_computeCapacity :: Lens.Lens' CreateFleet (Prelude.Maybe ComputeCapacity)
createFleet_computeCapacity :: Lens' CreateFleet (Maybe ComputeCapacity)
createFleet_computeCapacity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFleet' {Maybe ComputeCapacity
computeCapacity :: Maybe ComputeCapacity
$sel:computeCapacity:CreateFleet' :: CreateFleet -> Maybe ComputeCapacity
computeCapacity} -> Maybe ComputeCapacity
computeCapacity) (\s :: CreateFleet
s@CreateFleet' {} Maybe ComputeCapacity
a -> CreateFleet
s {$sel:computeCapacity:CreateFleet' :: Maybe ComputeCapacity
computeCapacity = Maybe ComputeCapacity
a} :: CreateFleet)
createFleet_description :: Lens.Lens' CreateFleet (Prelude.Maybe Prelude.Text)
createFleet_description :: Lens' CreateFleet (Maybe Text)
createFleet_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFleet' {Maybe Text
description :: Maybe Text
$sel:description:CreateFleet' :: CreateFleet -> Maybe Text
description} -> Maybe Text
description) (\s :: CreateFleet
s@CreateFleet' {} Maybe Text
a -> CreateFleet
s {$sel:description:CreateFleet' :: Maybe Text
description = Maybe Text
a} :: CreateFleet)
createFleet_disconnectTimeoutInSeconds :: Lens.Lens' CreateFleet (Prelude.Maybe Prelude.Int)
createFleet_disconnectTimeoutInSeconds :: Lens' CreateFleet (Maybe Int)
createFleet_disconnectTimeoutInSeconds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFleet' {Maybe Int
disconnectTimeoutInSeconds :: Maybe Int
$sel:disconnectTimeoutInSeconds:CreateFleet' :: CreateFleet -> Maybe Int
disconnectTimeoutInSeconds} -> Maybe Int
disconnectTimeoutInSeconds) (\s :: CreateFleet
s@CreateFleet' {} Maybe Int
a -> CreateFleet
s {$sel:disconnectTimeoutInSeconds:CreateFleet' :: Maybe Int
disconnectTimeoutInSeconds = Maybe Int
a} :: CreateFleet)
createFleet_displayName :: Lens.Lens' CreateFleet (Prelude.Maybe Prelude.Text)
createFleet_displayName :: Lens' CreateFleet (Maybe Text)
createFleet_displayName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFleet' {Maybe Text
displayName :: Maybe Text
$sel:displayName:CreateFleet' :: CreateFleet -> Maybe Text
displayName} -> Maybe Text
displayName) (\s :: CreateFleet
s@CreateFleet' {} Maybe Text
a -> CreateFleet
s {$sel:displayName:CreateFleet' :: Maybe Text
displayName = Maybe Text
a} :: CreateFleet)
createFleet_domainJoinInfo :: Lens.Lens' CreateFleet (Prelude.Maybe DomainJoinInfo)
createFleet_domainJoinInfo :: Lens' CreateFleet (Maybe DomainJoinInfo)
createFleet_domainJoinInfo = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFleet' {Maybe DomainJoinInfo
domainJoinInfo :: Maybe DomainJoinInfo
$sel:domainJoinInfo:CreateFleet' :: CreateFleet -> Maybe DomainJoinInfo
domainJoinInfo} -> Maybe DomainJoinInfo
domainJoinInfo) (\s :: CreateFleet
s@CreateFleet' {} Maybe DomainJoinInfo
a -> CreateFleet
s {$sel:domainJoinInfo:CreateFleet' :: Maybe DomainJoinInfo
domainJoinInfo = Maybe DomainJoinInfo
a} :: CreateFleet)
createFleet_enableDefaultInternetAccess :: Lens.Lens' CreateFleet (Prelude.Maybe Prelude.Bool)
createFleet_enableDefaultInternetAccess :: Lens' CreateFleet (Maybe Bool)
createFleet_enableDefaultInternetAccess = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFleet' {Maybe Bool
enableDefaultInternetAccess :: Maybe Bool
$sel:enableDefaultInternetAccess:CreateFleet' :: CreateFleet -> Maybe Bool
enableDefaultInternetAccess} -> Maybe Bool
enableDefaultInternetAccess) (\s :: CreateFleet
s@CreateFleet' {} Maybe Bool
a -> CreateFleet
s {$sel:enableDefaultInternetAccess:CreateFleet' :: Maybe Bool
enableDefaultInternetAccess = Maybe Bool
a} :: CreateFleet)
createFleet_fleetType :: Lens.Lens' CreateFleet (Prelude.Maybe FleetType)
createFleet_fleetType :: Lens' CreateFleet (Maybe FleetType)
createFleet_fleetType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFleet' {Maybe FleetType
fleetType :: Maybe FleetType
$sel:fleetType:CreateFleet' :: CreateFleet -> Maybe FleetType
fleetType} -> Maybe FleetType
fleetType) (\s :: CreateFleet
s@CreateFleet' {} Maybe FleetType
a -> CreateFleet
s {$sel:fleetType:CreateFleet' :: Maybe FleetType
fleetType = Maybe FleetType
a} :: CreateFleet)
createFleet_iamRoleArn :: Lens.Lens' CreateFleet (Prelude.Maybe Prelude.Text)
createFleet_iamRoleArn :: Lens' CreateFleet (Maybe Text)
createFleet_iamRoleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFleet' {Maybe Text
iamRoleArn :: Maybe Text
$sel:iamRoleArn:CreateFleet' :: CreateFleet -> Maybe Text
iamRoleArn} -> Maybe Text
iamRoleArn) (\s :: CreateFleet
s@CreateFleet' {} Maybe Text
a -> CreateFleet
s {$sel:iamRoleArn:CreateFleet' :: Maybe Text
iamRoleArn = Maybe Text
a} :: CreateFleet)
createFleet_idleDisconnectTimeoutInSeconds :: Lens.Lens' CreateFleet (Prelude.Maybe Prelude.Int)
createFleet_idleDisconnectTimeoutInSeconds :: Lens' CreateFleet (Maybe Int)
createFleet_idleDisconnectTimeoutInSeconds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFleet' {Maybe Int
idleDisconnectTimeoutInSeconds :: Maybe Int
$sel:idleDisconnectTimeoutInSeconds:CreateFleet' :: CreateFleet -> Maybe Int
idleDisconnectTimeoutInSeconds} -> Maybe Int
idleDisconnectTimeoutInSeconds) (\s :: CreateFleet
s@CreateFleet' {} Maybe Int
a -> CreateFleet
s {$sel:idleDisconnectTimeoutInSeconds:CreateFleet' :: Maybe Int
idleDisconnectTimeoutInSeconds = Maybe Int
a} :: CreateFleet)
createFleet_imageArn :: Lens.Lens' CreateFleet (Prelude.Maybe Prelude.Text)
createFleet_imageArn :: Lens' CreateFleet (Maybe Text)
createFleet_imageArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFleet' {Maybe Text
imageArn :: Maybe Text
$sel:imageArn:CreateFleet' :: CreateFleet -> Maybe Text
imageArn} -> Maybe Text
imageArn) (\s :: CreateFleet
s@CreateFleet' {} Maybe Text
a -> CreateFleet
s {$sel:imageArn:CreateFleet' :: Maybe Text
imageArn = Maybe Text
a} :: CreateFleet)
createFleet_imageName :: Lens.Lens' CreateFleet (Prelude.Maybe Prelude.Text)
createFleet_imageName :: Lens' CreateFleet (Maybe Text)
createFleet_imageName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFleet' {Maybe Text
imageName :: Maybe Text
$sel:imageName:CreateFleet' :: CreateFleet -> Maybe Text
imageName} -> Maybe Text
imageName) (\s :: CreateFleet
s@CreateFleet' {} Maybe Text
a -> CreateFleet
s {$sel:imageName:CreateFleet' :: Maybe Text
imageName = Maybe Text
a} :: CreateFleet)
createFleet_maxConcurrentSessions :: Lens.Lens' CreateFleet (Prelude.Maybe Prelude.Int)
createFleet_maxConcurrentSessions :: Lens' CreateFleet (Maybe Int)
createFleet_maxConcurrentSessions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFleet' {Maybe Int
maxConcurrentSessions :: Maybe Int
$sel:maxConcurrentSessions:CreateFleet' :: CreateFleet -> Maybe Int
maxConcurrentSessions} -> Maybe Int
maxConcurrentSessions) (\s :: CreateFleet
s@CreateFleet' {} Maybe Int
a -> CreateFleet
s {$sel:maxConcurrentSessions:CreateFleet' :: Maybe Int
maxConcurrentSessions = Maybe Int
a} :: CreateFleet)
createFleet_maxUserDurationInSeconds :: Lens.Lens' CreateFleet (Prelude.Maybe Prelude.Int)
createFleet_maxUserDurationInSeconds :: Lens' CreateFleet (Maybe Int)
createFleet_maxUserDurationInSeconds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFleet' {Maybe Int
maxUserDurationInSeconds :: Maybe Int
$sel:maxUserDurationInSeconds:CreateFleet' :: CreateFleet -> Maybe Int
maxUserDurationInSeconds} -> Maybe Int
maxUserDurationInSeconds) (\s :: CreateFleet
s@CreateFleet' {} Maybe Int
a -> CreateFleet
s {$sel:maxUserDurationInSeconds:CreateFleet' :: Maybe Int
maxUserDurationInSeconds = Maybe Int
a} :: CreateFleet)
createFleet_platform :: Lens.Lens' CreateFleet (Prelude.Maybe PlatformType)
createFleet_platform :: Lens' CreateFleet (Maybe PlatformType)
createFleet_platform = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFleet' {Maybe PlatformType
platform :: Maybe PlatformType
$sel:platform:CreateFleet' :: CreateFleet -> Maybe PlatformType
platform} -> Maybe PlatformType
platform) (\s :: CreateFleet
s@CreateFleet' {} Maybe PlatformType
a -> CreateFleet
s {$sel:platform:CreateFleet' :: Maybe PlatformType
platform = Maybe PlatformType
a} :: CreateFleet)
createFleet_sessionScriptS3Location :: Lens.Lens' CreateFleet (Prelude.Maybe S3Location)
createFleet_sessionScriptS3Location :: Lens' CreateFleet (Maybe S3Location)
createFleet_sessionScriptS3Location = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFleet' {Maybe S3Location
sessionScriptS3Location :: Maybe S3Location
$sel:sessionScriptS3Location:CreateFleet' :: CreateFleet -> Maybe S3Location
sessionScriptS3Location} -> Maybe S3Location
sessionScriptS3Location) (\s :: CreateFleet
s@CreateFleet' {} Maybe S3Location
a -> CreateFleet
s {$sel:sessionScriptS3Location:CreateFleet' :: Maybe S3Location
sessionScriptS3Location = Maybe S3Location
a} :: CreateFleet)
createFleet_streamView :: Lens.Lens' CreateFleet (Prelude.Maybe StreamView)
createFleet_streamView :: Lens' CreateFleet (Maybe StreamView)
createFleet_streamView = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFleet' {Maybe StreamView
streamView :: Maybe StreamView
$sel:streamView:CreateFleet' :: CreateFleet -> Maybe StreamView
streamView} -> Maybe StreamView
streamView) (\s :: CreateFleet
s@CreateFleet' {} Maybe StreamView
a -> CreateFleet
s {$sel:streamView:CreateFleet' :: Maybe StreamView
streamView = Maybe StreamView
a} :: CreateFleet)
createFleet_tags :: Lens.Lens' CreateFleet (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
createFleet_tags :: Lens' CreateFleet (Maybe (HashMap Text Text))
createFleet_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFleet' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:CreateFleet' :: CreateFleet -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: CreateFleet
s@CreateFleet' {} Maybe (HashMap Text Text)
a -> CreateFleet
s {$sel:tags:CreateFleet' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: CreateFleet) 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
createFleet_usbDeviceFilterStrings :: Lens.Lens' CreateFleet (Prelude.Maybe [Prelude.Text])
createFleet_usbDeviceFilterStrings :: Lens' CreateFleet (Maybe [Text])
createFleet_usbDeviceFilterStrings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFleet' {Maybe [Text]
usbDeviceFilterStrings :: Maybe [Text]
$sel:usbDeviceFilterStrings:CreateFleet' :: CreateFleet -> Maybe [Text]
usbDeviceFilterStrings} -> Maybe [Text]
usbDeviceFilterStrings) (\s :: CreateFleet
s@CreateFleet' {} Maybe [Text]
a -> CreateFleet
s {$sel:usbDeviceFilterStrings:CreateFleet' :: Maybe [Text]
usbDeviceFilterStrings = Maybe [Text]
a} :: CreateFleet) 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
createFleet_vpcConfig :: Lens.Lens' CreateFleet (Prelude.Maybe VpcConfig)
createFleet_vpcConfig :: Lens' CreateFleet (Maybe VpcConfig)
createFleet_vpcConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFleet' {Maybe VpcConfig
vpcConfig :: Maybe VpcConfig
$sel:vpcConfig:CreateFleet' :: CreateFleet -> Maybe VpcConfig
vpcConfig} -> Maybe VpcConfig
vpcConfig) (\s :: CreateFleet
s@CreateFleet' {} Maybe VpcConfig
a -> CreateFleet
s {$sel:vpcConfig:CreateFleet' :: Maybe VpcConfig
vpcConfig = Maybe VpcConfig
a} :: CreateFleet)
createFleet_name :: Lens.Lens' CreateFleet Prelude.Text
createFleet_name :: Lens' CreateFleet Text
createFleet_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFleet' {Text
name :: Text
$sel:name:CreateFleet' :: CreateFleet -> Text
name} -> Text
name) (\s :: CreateFleet
s@CreateFleet' {} Text
a -> CreateFleet
s {$sel:name:CreateFleet' :: Text
name = Text
a} :: CreateFleet)
createFleet_instanceType :: Lens.Lens' CreateFleet Prelude.Text
createFleet_instanceType :: Lens' CreateFleet Text
createFleet_instanceType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFleet' {Text
instanceType :: Text
$sel:instanceType:CreateFleet' :: CreateFleet -> Text
instanceType} -> Text
instanceType) (\s :: CreateFleet
s@CreateFleet' {} Text
a -> CreateFleet
s {$sel:instanceType:CreateFleet' :: Text
instanceType = Text
a} :: CreateFleet)
instance Core.AWSRequest CreateFleet where
type AWSResponse CreateFleet = CreateFleetResponse
request :: (Service -> Service) -> CreateFleet -> Request CreateFleet
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 CreateFleet
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateFleet)))
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 Fleet -> Int -> CreateFleetResponse
CreateFleetResponse'
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
"Fleet")
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 CreateFleet where
hashWithSalt :: Int -> CreateFleet -> Int
hashWithSalt Int
_salt CreateFleet' {Maybe Bool
Maybe Int
Maybe [Text]
Maybe Text
Maybe (HashMap Text Text)
Maybe ComputeCapacity
Maybe DomainJoinInfo
Maybe FleetType
Maybe PlatformType
Maybe S3Location
Maybe StreamView
Maybe VpcConfig
Text
instanceType :: Text
name :: Text
vpcConfig :: Maybe VpcConfig
usbDeviceFilterStrings :: Maybe [Text]
tags :: Maybe (HashMap Text 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
enableDefaultInternetAccess :: Maybe Bool
domainJoinInfo :: Maybe DomainJoinInfo
displayName :: Maybe Text
disconnectTimeoutInSeconds :: Maybe Int
description :: Maybe Text
computeCapacity :: Maybe ComputeCapacity
$sel:instanceType:CreateFleet' :: CreateFleet -> Text
$sel:name:CreateFleet' :: CreateFleet -> Text
$sel:vpcConfig:CreateFleet' :: CreateFleet -> Maybe VpcConfig
$sel:usbDeviceFilterStrings:CreateFleet' :: CreateFleet -> Maybe [Text]
$sel:tags:CreateFleet' :: CreateFleet -> Maybe (HashMap Text Text)
$sel:streamView:CreateFleet' :: CreateFleet -> Maybe StreamView
$sel:sessionScriptS3Location:CreateFleet' :: CreateFleet -> Maybe S3Location
$sel:platform:CreateFleet' :: CreateFleet -> Maybe PlatformType
$sel:maxUserDurationInSeconds:CreateFleet' :: CreateFleet -> Maybe Int
$sel:maxConcurrentSessions:CreateFleet' :: CreateFleet -> Maybe Int
$sel:imageName:CreateFleet' :: CreateFleet -> Maybe Text
$sel:imageArn:CreateFleet' :: CreateFleet -> Maybe Text
$sel:idleDisconnectTimeoutInSeconds:CreateFleet' :: CreateFleet -> Maybe Int
$sel:iamRoleArn:CreateFleet' :: CreateFleet -> Maybe Text
$sel:fleetType:CreateFleet' :: CreateFleet -> Maybe FleetType
$sel:enableDefaultInternetAccess:CreateFleet' :: CreateFleet -> Maybe Bool
$sel:domainJoinInfo:CreateFleet' :: CreateFleet -> Maybe DomainJoinInfo
$sel:displayName:CreateFleet' :: CreateFleet -> Maybe Text
$sel:disconnectTimeoutInSeconds:CreateFleet' :: CreateFleet -> Maybe Int
$sel:description:CreateFleet' :: CreateFleet -> Maybe Text
$sel:computeCapacity:CreateFleet' :: CreateFleet -> Maybe ComputeCapacity
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ComputeCapacity
computeCapacity
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 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 (HashMap Text Text)
tags
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
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
instanceType
instance Prelude.NFData CreateFleet where
rnf :: CreateFleet -> ()
rnf CreateFleet' {Maybe Bool
Maybe Int
Maybe [Text]
Maybe Text
Maybe (HashMap Text Text)
Maybe ComputeCapacity
Maybe DomainJoinInfo
Maybe FleetType
Maybe PlatformType
Maybe S3Location
Maybe StreamView
Maybe VpcConfig
Text
instanceType :: Text
name :: Text
vpcConfig :: Maybe VpcConfig
usbDeviceFilterStrings :: Maybe [Text]
tags :: Maybe (HashMap Text 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
enableDefaultInternetAccess :: Maybe Bool
domainJoinInfo :: Maybe DomainJoinInfo
displayName :: Maybe Text
disconnectTimeoutInSeconds :: Maybe Int
description :: Maybe Text
computeCapacity :: Maybe ComputeCapacity
$sel:instanceType:CreateFleet' :: CreateFleet -> Text
$sel:name:CreateFleet' :: CreateFleet -> Text
$sel:vpcConfig:CreateFleet' :: CreateFleet -> Maybe VpcConfig
$sel:usbDeviceFilterStrings:CreateFleet' :: CreateFleet -> Maybe [Text]
$sel:tags:CreateFleet' :: CreateFleet -> Maybe (HashMap Text Text)
$sel:streamView:CreateFleet' :: CreateFleet -> Maybe StreamView
$sel:sessionScriptS3Location:CreateFleet' :: CreateFleet -> Maybe S3Location
$sel:platform:CreateFleet' :: CreateFleet -> Maybe PlatformType
$sel:maxUserDurationInSeconds:CreateFleet' :: CreateFleet -> Maybe Int
$sel:maxConcurrentSessions:CreateFleet' :: CreateFleet -> Maybe Int
$sel:imageName:CreateFleet' :: CreateFleet -> Maybe Text
$sel:imageArn:CreateFleet' :: CreateFleet -> Maybe Text
$sel:idleDisconnectTimeoutInSeconds:CreateFleet' :: CreateFleet -> Maybe Int
$sel:iamRoleArn:CreateFleet' :: CreateFleet -> Maybe Text
$sel:fleetType:CreateFleet' :: CreateFleet -> Maybe FleetType
$sel:enableDefaultInternetAccess:CreateFleet' :: CreateFleet -> Maybe Bool
$sel:domainJoinInfo:CreateFleet' :: CreateFleet -> Maybe DomainJoinInfo
$sel:displayName:CreateFleet' :: CreateFleet -> Maybe Text
$sel:disconnectTimeoutInSeconds:CreateFleet' :: CreateFleet -> Maybe Int
$sel:description:CreateFleet' :: CreateFleet -> Maybe Text
$sel:computeCapacity:CreateFleet' :: CreateFleet -> Maybe ComputeCapacity
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ComputeCapacity
computeCapacity
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 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 (HashMap Text Text)
tags
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
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
instanceType
instance Data.ToHeaders CreateFleet where
toHeaders :: CreateFleet -> 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
"PhotonAdminProxyService.CreateFleet" ::
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 CreateFleet where
toJSON :: CreateFleet -> Value
toJSON CreateFleet' {Maybe Bool
Maybe Int
Maybe [Text]
Maybe Text
Maybe (HashMap Text Text)
Maybe ComputeCapacity
Maybe DomainJoinInfo
Maybe FleetType
Maybe PlatformType
Maybe S3Location
Maybe StreamView
Maybe VpcConfig
Text
instanceType :: Text
name :: Text
vpcConfig :: Maybe VpcConfig
usbDeviceFilterStrings :: Maybe [Text]
tags :: Maybe (HashMap Text 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
enableDefaultInternetAccess :: Maybe Bool
domainJoinInfo :: Maybe DomainJoinInfo
displayName :: Maybe Text
disconnectTimeoutInSeconds :: Maybe Int
description :: Maybe Text
computeCapacity :: Maybe ComputeCapacity
$sel:instanceType:CreateFleet' :: CreateFleet -> Text
$sel:name:CreateFleet' :: CreateFleet -> Text
$sel:vpcConfig:CreateFleet' :: CreateFleet -> Maybe VpcConfig
$sel:usbDeviceFilterStrings:CreateFleet' :: CreateFleet -> Maybe [Text]
$sel:tags:CreateFleet' :: CreateFleet -> Maybe (HashMap Text Text)
$sel:streamView:CreateFleet' :: CreateFleet -> Maybe StreamView
$sel:sessionScriptS3Location:CreateFleet' :: CreateFleet -> Maybe S3Location
$sel:platform:CreateFleet' :: CreateFleet -> Maybe PlatformType
$sel:maxUserDurationInSeconds:CreateFleet' :: CreateFleet -> Maybe Int
$sel:maxConcurrentSessions:CreateFleet' :: CreateFleet -> Maybe Int
$sel:imageName:CreateFleet' :: CreateFleet -> Maybe Text
$sel:imageArn:CreateFleet' :: CreateFleet -> Maybe Text
$sel:idleDisconnectTimeoutInSeconds:CreateFleet' :: CreateFleet -> Maybe Int
$sel:iamRoleArn:CreateFleet' :: CreateFleet -> Maybe Text
$sel:fleetType:CreateFleet' :: CreateFleet -> Maybe FleetType
$sel:enableDefaultInternetAccess:CreateFleet' :: CreateFleet -> Maybe Bool
$sel:domainJoinInfo:CreateFleet' :: CreateFleet -> Maybe DomainJoinInfo
$sel:displayName:CreateFleet' :: CreateFleet -> Maybe Text
$sel:disconnectTimeoutInSeconds:CreateFleet' :: CreateFleet -> Maybe Int
$sel:description:CreateFleet' :: CreateFleet -> Maybe Text
$sel:computeCapacity:CreateFleet' :: CreateFleet -> Maybe ComputeCapacity
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"ComputeCapacity" 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 ComputeCapacity
computeCapacity,
(Key
"Description" 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
description,
(Key
"DisconnectTimeoutInSeconds" 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 Int
disconnectTimeoutInSeconds,
(Key
"DisplayName" 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
displayName,
(Key
"DomainJoinInfo" 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 DomainJoinInfo
domainJoinInfo,
(Key
"EnableDefaultInternetAccess" 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 Bool
enableDefaultInternetAccess,
(Key
"FleetType" 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 FleetType
fleetType,
(Key
"IamRoleArn" 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
iamRoleArn,
(Key
"IdleDisconnectTimeoutInSeconds" 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 Int
idleDisconnectTimeoutInSeconds,
(Key
"ImageArn" 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
imageArn,
(Key
"ImageName" 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
imageName,
(Key
"MaxConcurrentSessions" 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 Int
maxConcurrentSessions,
(Key
"MaxUserDurationInSeconds" 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 Int
maxUserDurationInSeconds,
(Key
"Platform" 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 PlatformType
platform,
(Key
"SessionScriptS3Location" 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 S3Location
sessionScriptS3Location,
(Key
"StreamView" 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 StreamView
streamView,
(Key
"Tags" 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 (HashMap Text Text)
tags,
(Key
"UsbDeviceFilterStrings" 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]
usbDeviceFilterStrings,
(Key
"VpcConfig" 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 VpcConfig
vpcConfig,
forall a. a -> Maybe a
Prelude.Just (Key
"Name" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
name),
forall a. a -> Maybe a
Prelude.Just (Key
"InstanceType" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
instanceType)
]
)
instance Data.ToPath CreateFleet where
toPath :: CreateFleet -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateFleet where
toQuery :: CreateFleet -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateFleetResponse = CreateFleetResponse'
{
CreateFleetResponse -> Maybe Fleet
fleet :: Prelude.Maybe Fleet,
CreateFleetResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateFleetResponse -> CreateFleetResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateFleetResponse -> CreateFleetResponse -> Bool
$c/= :: CreateFleetResponse -> CreateFleetResponse -> Bool
== :: CreateFleetResponse -> CreateFleetResponse -> Bool
$c== :: CreateFleetResponse -> CreateFleetResponse -> Bool
Prelude.Eq, ReadPrec [CreateFleetResponse]
ReadPrec CreateFleetResponse
Int -> ReadS CreateFleetResponse
ReadS [CreateFleetResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateFleetResponse]
$creadListPrec :: ReadPrec [CreateFleetResponse]
readPrec :: ReadPrec CreateFleetResponse
$creadPrec :: ReadPrec CreateFleetResponse
readList :: ReadS [CreateFleetResponse]
$creadList :: ReadS [CreateFleetResponse]
readsPrec :: Int -> ReadS CreateFleetResponse
$creadsPrec :: Int -> ReadS CreateFleetResponse
Prelude.Read, Int -> CreateFleetResponse -> ShowS
[CreateFleetResponse] -> ShowS
CreateFleetResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateFleetResponse] -> ShowS
$cshowList :: [CreateFleetResponse] -> ShowS
show :: CreateFleetResponse -> String
$cshow :: CreateFleetResponse -> String
showsPrec :: Int -> CreateFleetResponse -> ShowS
$cshowsPrec :: Int -> CreateFleetResponse -> ShowS
Prelude.Show, forall x. Rep CreateFleetResponse x -> CreateFleetResponse
forall x. CreateFleetResponse -> Rep CreateFleetResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateFleetResponse x -> CreateFleetResponse
$cfrom :: forall x. CreateFleetResponse -> Rep CreateFleetResponse x
Prelude.Generic)
newCreateFleetResponse ::
Prelude.Int ->
CreateFleetResponse
newCreateFleetResponse :: Int -> CreateFleetResponse
newCreateFleetResponse Int
pHttpStatus_ =
CreateFleetResponse'
{ $sel:fleet:CreateFleetResponse' :: Maybe Fleet
fleet = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateFleetResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createFleetResponse_fleet :: Lens.Lens' CreateFleetResponse (Prelude.Maybe Fleet)
createFleetResponse_fleet :: Lens' CreateFleetResponse (Maybe Fleet)
createFleetResponse_fleet = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFleetResponse' {Maybe Fleet
fleet :: Maybe Fleet
$sel:fleet:CreateFleetResponse' :: CreateFleetResponse -> Maybe Fleet
fleet} -> Maybe Fleet
fleet) (\s :: CreateFleetResponse
s@CreateFleetResponse' {} Maybe Fleet
a -> CreateFleetResponse
s {$sel:fleet:CreateFleetResponse' :: Maybe Fleet
fleet = Maybe Fleet
a} :: CreateFleetResponse)
createFleetResponse_httpStatus :: Lens.Lens' CreateFleetResponse Prelude.Int
createFleetResponse_httpStatus :: Lens' CreateFleetResponse Int
createFleetResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFleetResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateFleetResponse' :: CreateFleetResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateFleetResponse
s@CreateFleetResponse' {} Int
a -> CreateFleetResponse
s {$sel:httpStatus:CreateFleetResponse' :: Int
httpStatus = Int
a} :: CreateFleetResponse)
instance Prelude.NFData CreateFleetResponse where
rnf :: CreateFleetResponse -> ()
rnf CreateFleetResponse' {Int
Maybe Fleet
httpStatus :: Int
fleet :: Maybe Fleet
$sel:httpStatus:CreateFleetResponse' :: CreateFleetResponse -> Int
$sel:fleet:CreateFleetResponse' :: CreateFleetResponse -> Maybe Fleet
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Fleet
fleet
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus