{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.AppStream.CreateFleet
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Creates a fleet. A fleet consists of streaming instances that your users
-- access for their applications and desktops.
module Amazonka.AppStream.CreateFleet
  ( -- * Creating a Request
    CreateFleet (..),
    newCreateFleet,

    -- * Request Lenses
    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,

    -- * Destructuring the Response
    CreateFleetResponse (..),
    newCreateFleetResponse,

    -- * Response Lenses
    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

-- | /See:/ 'newCreateFleet' smart constructor.
data CreateFleet = CreateFleet'
  { -- | The desired capacity for the fleet. This is not allowed for Elastic
    -- fleets. For Elastic fleets, specify MaxConcurrentSessions instead.
    CreateFleet -> Maybe ComputeCapacity
computeCapacity :: Prelude.Maybe ComputeCapacity,
    -- | The description to display.
    CreateFleet -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
    -- | The amount of time that a streaming session remains active after users
    -- disconnect. If users try to reconnect to the streaming session after a
    -- disconnection or network interruption within this time interval, they
    -- are connected to their previous session. Otherwise, they are connected
    -- to a new session with a new streaming instance.
    --
    -- Specify a value between 60 and 360000.
    CreateFleet -> Maybe Int
disconnectTimeoutInSeconds :: Prelude.Maybe Prelude.Int,
    -- | The fleet name to display.
    CreateFleet -> Maybe Text
displayName :: Prelude.Maybe Prelude.Text,
    -- | The name of the directory and organizational unit (OU) to use to join
    -- the fleet to a Microsoft Active Directory domain. This is not allowed
    -- for Elastic fleets.
    CreateFleet -> Maybe DomainJoinInfo
domainJoinInfo :: Prelude.Maybe DomainJoinInfo,
    -- | Enables or disables default internet access for the fleet.
    CreateFleet -> Maybe Bool
enableDefaultInternetAccess :: Prelude.Maybe Prelude.Bool,
    -- | The fleet type.
    --
    -- [ALWAYS_ON]
    --     Provides users with instant-on access to their apps. You are charged
    --     for all running instances in your fleet, even if no users are
    --     streaming apps.
    --
    -- [ON_DEMAND]
    --     Provide users with access to applications after they connect, which
    --     takes one to two minutes. You are charged for instance streaming
    --     when users are connected and a small hourly fee for instances that
    --     are not streaming apps.
    CreateFleet -> Maybe FleetType
fleetType :: Prelude.Maybe FleetType,
    -- | The Amazon Resource Name (ARN) of the IAM role to apply to the fleet. To
    -- assume a role, a fleet instance calls the AWS Security Token Service
    -- (STS) @AssumeRole@ API operation and passes the ARN of the role to use.
    -- The operation creates a new session with temporary credentials.
    -- AppStream 2.0 retrieves the temporary credentials and creates the
    -- __appstream_machine_role__ credential profile on the instance.
    --
    -- For more information, see
    -- <https://docs.aws.amazon.com/appstream2/latest/developerguide/using-iam-roles-to-grant-permissions-to-applications-scripts-streaming-instances.html Using an IAM Role to Grant Permissions to Applications and Scripts Running on AppStream 2.0 Streaming Instances>
    -- in the /Amazon AppStream 2.0 Administration Guide/.
    CreateFleet -> Maybe Text
iamRoleArn :: Prelude.Maybe Prelude.Text,
    -- | The amount of time that users can be idle (inactive) before they are
    -- disconnected from their streaming session and the
    -- @DisconnectTimeoutInSeconds@ time interval begins. Users are notified
    -- before they are disconnected due to inactivity. If they try to reconnect
    -- to the streaming session before the time interval specified in
    -- @DisconnectTimeoutInSeconds@ elapses, they are connected to their
    -- previous session. Users are considered idle when they stop providing
    -- keyboard or mouse input during their streaming session. File uploads and
    -- downloads, audio in, audio out, and pixels changing do not qualify as
    -- user activity. If users continue to be idle after the time interval in
    -- @IdleDisconnectTimeoutInSeconds@ elapses, they are disconnected.
    --
    -- To prevent users from being disconnected due to inactivity, specify a
    -- value of 0. Otherwise, specify a value between 60 and 3600. The default
    -- value is 0.
    --
    -- If you enable this feature, we recommend that you specify a value that
    -- corresponds exactly to a whole number of minutes (for example, 60, 120,
    -- and 180). If you don\'t do this, the value is rounded to the nearest
    -- minute. For example, if you specify a value of 70, users are
    -- disconnected after 1 minute of inactivity. If you specify a value that
    -- is at the midpoint between two different minutes, the value is rounded
    -- up. For example, if you specify a value of 90, users are disconnected
    -- after 2 minutes of inactivity.
    CreateFleet -> Maybe Int
idleDisconnectTimeoutInSeconds :: Prelude.Maybe Prelude.Int,
    -- | The ARN of the public, private, or shared image to use.
    CreateFleet -> Maybe Text
imageArn :: Prelude.Maybe Prelude.Text,
    -- | The name of the image used to create the fleet.
    CreateFleet -> Maybe Text
imageName :: Prelude.Maybe Prelude.Text,
    -- | The maximum concurrent sessions of the Elastic fleet. This is required
    -- for Elastic fleets, and not allowed for other fleet types.
    CreateFleet -> Maybe Int
maxConcurrentSessions :: Prelude.Maybe Prelude.Int,
    -- | The maximum amount of time that a streaming session can remain active,
    -- in seconds. If users are still connected to a streaming instance five
    -- minutes before this limit is reached, they are prompted to save any open
    -- documents before being disconnected. After this time elapses, the
    -- instance is terminated and replaced by a new instance.
    --
    -- Specify a value between 600 and 360000.
    CreateFleet -> Maybe Int
maxUserDurationInSeconds :: Prelude.Maybe Prelude.Int,
    -- | The fleet platform. WINDOWS_SERVER_2019 and AMAZON_LINUX2 are supported
    -- for Elastic fleets.
    CreateFleet -> Maybe PlatformType
platform :: Prelude.Maybe PlatformType,
    -- | The S3 location of the session scripts configuration zip file. This only
    -- applies to Elastic fleets.
    CreateFleet -> Maybe S3Location
sessionScriptS3Location :: Prelude.Maybe S3Location,
    -- | The AppStream 2.0 view that is displayed to your users when they stream
    -- from the fleet. When @APP@ is specified, only the windows of
    -- applications opened by users display. When @DESKTOP@ is specified, the
    -- standard desktop that is provided by the operating system displays.
    --
    -- The default value is @APP@.
    CreateFleet -> Maybe StreamView
streamView :: Prelude.Maybe StreamView,
    -- | The tags to associate with the fleet. A tag is a key-value pair, and the
    -- value is optional. For example, Environment=Test. If you do not specify
    -- a value, Environment=.
    --
    -- If you do not specify a value, the value is set to an empty string.
    --
    -- Generally allowed characters are: letters, numbers, and spaces
    -- representable in UTF-8, and the following special characters:
    --
    -- _ . : \/ = + \\ - \@
    --
    -- For more information, see
    -- <https://docs.aws.amazon.com/appstream2/latest/developerguide/tagging-basic.html Tagging Your Resources>
    -- in the /Amazon AppStream 2.0 Administration Guide/.
    CreateFleet -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
    -- | The USB device filter strings that specify which USB devices a user can
    -- redirect to the fleet streaming session, when using the Windows native
    -- client. This is allowed but not required for Elastic fleets.
    CreateFleet -> Maybe [Text]
usbDeviceFilterStrings :: Prelude.Maybe [Prelude.Text],
    -- | The VPC configuration for the fleet. This is required for Elastic
    -- fleets, but not required for other fleet types. Elastic fleets require
    -- that you specify at least two subnets in different availability zones.
    CreateFleet -> Maybe VpcConfig
vpcConfig :: Prelude.Maybe VpcConfig,
    -- | A unique name for the fleet.
    CreateFleet -> Text
name :: Prelude.Text,
    -- | The instance type to use when launching fleet instances. The following
    -- instance types are available:
    --
    -- -   stream.standard.small
    --
    -- -   stream.standard.medium
    --
    -- -   stream.standard.large
    --
    -- -   stream.standard.xlarge
    --
    -- -   stream.standard.2xlarge
    --
    -- -   stream.compute.large
    --
    -- -   stream.compute.xlarge
    --
    -- -   stream.compute.2xlarge
    --
    -- -   stream.compute.4xlarge
    --
    -- -   stream.compute.8xlarge
    --
    -- -   stream.memory.large
    --
    -- -   stream.memory.xlarge
    --
    -- -   stream.memory.2xlarge
    --
    -- -   stream.memory.4xlarge
    --
    -- -   stream.memory.8xlarge
    --
    -- -   stream.memory.z1d.large
    --
    -- -   stream.memory.z1d.xlarge
    --
    -- -   stream.memory.z1d.2xlarge
    --
    -- -   stream.memory.z1d.3xlarge
    --
    -- -   stream.memory.z1d.6xlarge
    --
    -- -   stream.memory.z1d.12xlarge
    --
    -- -   stream.graphics-design.large
    --
    -- -   stream.graphics-design.xlarge
    --
    -- -   stream.graphics-design.2xlarge
    --
    -- -   stream.graphics-design.4xlarge
    --
    -- -   stream.graphics-desktop.2xlarge
    --
    -- -   stream.graphics.g4dn.xlarge
    --
    -- -   stream.graphics.g4dn.2xlarge
    --
    -- -   stream.graphics.g4dn.4xlarge
    --
    -- -   stream.graphics.g4dn.8xlarge
    --
    -- -   stream.graphics.g4dn.12xlarge
    --
    -- -   stream.graphics.g4dn.16xlarge
    --
    -- -   stream.graphics-pro.4xlarge
    --
    -- -   stream.graphics-pro.8xlarge
    --
    -- -   stream.graphics-pro.16xlarge
    --
    -- The following instance types are available for Elastic fleets:
    --
    -- -   stream.standard.small
    --
    -- -   stream.standard.medium
    --
    -- -   stream.standard.large
    --
    -- -   stream.standard.xlarge
    --
    -- -   stream.standard.2xlarge
    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)

-- |
-- Create a value of 'CreateFleet' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'computeCapacity', 'createFleet_computeCapacity' - The desired capacity for the fleet. This is not allowed for Elastic
-- fleets. For Elastic fleets, specify MaxConcurrentSessions instead.
--
-- 'description', 'createFleet_description' - The description to display.
--
-- 'disconnectTimeoutInSeconds', 'createFleet_disconnectTimeoutInSeconds' - The amount of time that a streaming session remains active after users
-- disconnect. If users try to reconnect to the streaming session after a
-- disconnection or network interruption within this time interval, they
-- are connected to their previous session. Otherwise, they are connected
-- to a new session with a new streaming instance.
--
-- Specify a value between 60 and 360000.
--
-- 'displayName', 'createFleet_displayName' - The fleet name to display.
--
-- 'domainJoinInfo', 'createFleet_domainJoinInfo' - The name of the directory and organizational unit (OU) to use to join
-- the fleet to a Microsoft Active Directory domain. This is not allowed
-- for Elastic fleets.
--
-- 'enableDefaultInternetAccess', 'createFleet_enableDefaultInternetAccess' - Enables or disables default internet access for the fleet.
--
-- 'fleetType', 'createFleet_fleetType' - The fleet type.
--
-- [ALWAYS_ON]
--     Provides users with instant-on access to their apps. You are charged
--     for all running instances in your fleet, even if no users are
--     streaming apps.
--
-- [ON_DEMAND]
--     Provide users with access to applications after they connect, which
--     takes one to two minutes. You are charged for instance streaming
--     when users are connected and a small hourly fee for instances that
--     are not streaming apps.
--
-- 'iamRoleArn', 'createFleet_iamRoleArn' - The Amazon Resource Name (ARN) of the IAM role to apply to the fleet. To
-- assume a role, a fleet instance calls the AWS Security Token Service
-- (STS) @AssumeRole@ API operation and passes the ARN of the role to use.
-- The operation creates a new session with temporary credentials.
-- AppStream 2.0 retrieves the temporary credentials and creates the
-- __appstream_machine_role__ credential profile on the instance.
--
-- For more information, see
-- <https://docs.aws.amazon.com/appstream2/latest/developerguide/using-iam-roles-to-grant-permissions-to-applications-scripts-streaming-instances.html Using an IAM Role to Grant Permissions to Applications and Scripts Running on AppStream 2.0 Streaming Instances>
-- in the /Amazon AppStream 2.0 Administration Guide/.
--
-- 'idleDisconnectTimeoutInSeconds', 'createFleet_idleDisconnectTimeoutInSeconds' - The amount of time that users can be idle (inactive) before they are
-- disconnected from their streaming session and the
-- @DisconnectTimeoutInSeconds@ time interval begins. Users are notified
-- before they are disconnected due to inactivity. If they try to reconnect
-- to the streaming session before the time interval specified in
-- @DisconnectTimeoutInSeconds@ elapses, they are connected to their
-- previous session. Users are considered idle when they stop providing
-- keyboard or mouse input during their streaming session. File uploads and
-- downloads, audio in, audio out, and pixels changing do not qualify as
-- user activity. If users continue to be idle after the time interval in
-- @IdleDisconnectTimeoutInSeconds@ elapses, they are disconnected.
--
-- To prevent users from being disconnected due to inactivity, specify a
-- value of 0. Otherwise, specify a value between 60 and 3600. The default
-- value is 0.
--
-- If you enable this feature, we recommend that you specify a value that
-- corresponds exactly to a whole number of minutes (for example, 60, 120,
-- and 180). If you don\'t do this, the value is rounded to the nearest
-- minute. For example, if you specify a value of 70, users are
-- disconnected after 1 minute of inactivity. If you specify a value that
-- is at the midpoint between two different minutes, the value is rounded
-- up. For example, if you specify a value of 90, users are disconnected
-- after 2 minutes of inactivity.
--
-- 'imageArn', 'createFleet_imageArn' - The ARN of the public, private, or shared image to use.
--
-- 'imageName', 'createFleet_imageName' - The name of the image used to create the fleet.
--
-- 'maxConcurrentSessions', 'createFleet_maxConcurrentSessions' - The maximum concurrent sessions of the Elastic fleet. This is required
-- for Elastic fleets, and not allowed for other fleet types.
--
-- 'maxUserDurationInSeconds', 'createFleet_maxUserDurationInSeconds' - The maximum amount of time that a streaming session can remain active,
-- in seconds. If users are still connected to a streaming instance five
-- minutes before this limit is reached, they are prompted to save any open
-- documents before being disconnected. After this time elapses, the
-- instance is terminated and replaced by a new instance.
--
-- Specify a value between 600 and 360000.
--
-- 'platform', 'createFleet_platform' - The fleet platform. WINDOWS_SERVER_2019 and AMAZON_LINUX2 are supported
-- for Elastic fleets.
--
-- 'sessionScriptS3Location', 'createFleet_sessionScriptS3Location' - The S3 location of the session scripts configuration zip file. This only
-- applies to Elastic fleets.
--
-- 'streamView', 'createFleet_streamView' - The AppStream 2.0 view that is displayed to your users when they stream
-- from the fleet. When @APP@ is specified, only the windows of
-- applications opened by users display. When @DESKTOP@ is specified, the
-- standard desktop that is provided by the operating system displays.
--
-- The default value is @APP@.
--
-- 'tags', 'createFleet_tags' - The tags to associate with the fleet. A tag is a key-value pair, and the
-- value is optional. For example, Environment=Test. If you do not specify
-- a value, Environment=.
--
-- If you do not specify a value, the value is set to an empty string.
--
-- Generally allowed characters are: letters, numbers, and spaces
-- representable in UTF-8, and the following special characters:
--
-- _ . : \/ = + \\ - \@
--
-- For more information, see
-- <https://docs.aws.amazon.com/appstream2/latest/developerguide/tagging-basic.html Tagging Your Resources>
-- in the /Amazon AppStream 2.0 Administration Guide/.
--
-- 'usbDeviceFilterStrings', 'createFleet_usbDeviceFilterStrings' - The USB device filter strings that specify which USB devices a user can
-- redirect to the fleet streaming session, when using the Windows native
-- client. This is allowed but not required for Elastic fleets.
--
-- 'vpcConfig', 'createFleet_vpcConfig' - The VPC configuration for the fleet. This is required for Elastic
-- fleets, but not required for other fleet types. Elastic fleets require
-- that you specify at least two subnets in different availability zones.
--
-- 'name', 'createFleet_name' - A unique name for the fleet.
--
-- 'instanceType', 'createFleet_instanceType' - The instance type to use when launching fleet instances. The following
-- instance types are available:
--
-- -   stream.standard.small
--
-- -   stream.standard.medium
--
-- -   stream.standard.large
--
-- -   stream.standard.xlarge
--
-- -   stream.standard.2xlarge
--
-- -   stream.compute.large
--
-- -   stream.compute.xlarge
--
-- -   stream.compute.2xlarge
--
-- -   stream.compute.4xlarge
--
-- -   stream.compute.8xlarge
--
-- -   stream.memory.large
--
-- -   stream.memory.xlarge
--
-- -   stream.memory.2xlarge
--
-- -   stream.memory.4xlarge
--
-- -   stream.memory.8xlarge
--
-- -   stream.memory.z1d.large
--
-- -   stream.memory.z1d.xlarge
--
-- -   stream.memory.z1d.2xlarge
--
-- -   stream.memory.z1d.3xlarge
--
-- -   stream.memory.z1d.6xlarge
--
-- -   stream.memory.z1d.12xlarge
--
-- -   stream.graphics-design.large
--
-- -   stream.graphics-design.xlarge
--
-- -   stream.graphics-design.2xlarge
--
-- -   stream.graphics-design.4xlarge
--
-- -   stream.graphics-desktop.2xlarge
--
-- -   stream.graphics.g4dn.xlarge
--
-- -   stream.graphics.g4dn.2xlarge
--
-- -   stream.graphics.g4dn.4xlarge
--
-- -   stream.graphics.g4dn.8xlarge
--
-- -   stream.graphics.g4dn.12xlarge
--
-- -   stream.graphics.g4dn.16xlarge
--
-- -   stream.graphics-pro.4xlarge
--
-- -   stream.graphics-pro.8xlarge
--
-- -   stream.graphics-pro.16xlarge
--
-- The following instance types are available for Elastic fleets:
--
-- -   stream.standard.small
--
-- -   stream.standard.medium
--
-- -   stream.standard.large
--
-- -   stream.standard.xlarge
--
-- -   stream.standard.2xlarge
newCreateFleet ::
  -- | 'name'
  Prelude.Text ->
  -- | 'instanceType'
  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_
    }

-- | The desired capacity for the fleet. This is not allowed for Elastic
-- fleets. For Elastic fleets, specify MaxConcurrentSessions instead.
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)

-- | The description to display.
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)

-- | The amount of time that a streaming session remains active after users
-- disconnect. If users try to reconnect to the streaming session after a
-- disconnection or network interruption within this time interval, they
-- are connected to their previous session. Otherwise, they are connected
-- to a new session with a new streaming instance.
--
-- Specify a value between 60 and 360000.
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)

-- | The fleet name to display.
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)

-- | The name of the directory and organizational unit (OU) to use to join
-- the fleet to a Microsoft Active Directory domain. This is not allowed
-- for Elastic fleets.
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)

-- | Enables or disables default internet access for the fleet.
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)

-- | The fleet type.
--
-- [ALWAYS_ON]
--     Provides users with instant-on access to their apps. You are charged
--     for all running instances in your fleet, even if no users are
--     streaming apps.
--
-- [ON_DEMAND]
--     Provide users with access to applications after they connect, which
--     takes one to two minutes. You are charged for instance streaming
--     when users are connected and a small hourly fee for instances that
--     are not streaming apps.
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)

-- | The Amazon Resource Name (ARN) of the IAM role to apply to the fleet. To
-- assume a role, a fleet instance calls the AWS Security Token Service
-- (STS) @AssumeRole@ API operation and passes the ARN of the role to use.
-- The operation creates a new session with temporary credentials.
-- AppStream 2.0 retrieves the temporary credentials and creates the
-- __appstream_machine_role__ credential profile on the instance.
--
-- For more information, see
-- <https://docs.aws.amazon.com/appstream2/latest/developerguide/using-iam-roles-to-grant-permissions-to-applications-scripts-streaming-instances.html Using an IAM Role to Grant Permissions to Applications and Scripts Running on AppStream 2.0 Streaming Instances>
-- in the /Amazon AppStream 2.0 Administration Guide/.
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)

-- | The amount of time that users can be idle (inactive) before they are
-- disconnected from their streaming session and the
-- @DisconnectTimeoutInSeconds@ time interval begins. Users are notified
-- before they are disconnected due to inactivity. If they try to reconnect
-- to the streaming session before the time interval specified in
-- @DisconnectTimeoutInSeconds@ elapses, they are connected to their
-- previous session. Users are considered idle when they stop providing
-- keyboard or mouse input during their streaming session. File uploads and
-- downloads, audio in, audio out, and pixels changing do not qualify as
-- user activity. If users continue to be idle after the time interval in
-- @IdleDisconnectTimeoutInSeconds@ elapses, they are disconnected.
--
-- To prevent users from being disconnected due to inactivity, specify a
-- value of 0. Otherwise, specify a value between 60 and 3600. The default
-- value is 0.
--
-- If you enable this feature, we recommend that you specify a value that
-- corresponds exactly to a whole number of minutes (for example, 60, 120,
-- and 180). If you don\'t do this, the value is rounded to the nearest
-- minute. For example, if you specify a value of 70, users are
-- disconnected after 1 minute of inactivity. If you specify a value that
-- is at the midpoint between two different minutes, the value is rounded
-- up. For example, if you specify a value of 90, users are disconnected
-- after 2 minutes of inactivity.
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)

-- | The ARN of the public, private, or shared image to use.
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)

-- | The name of the image used to create the fleet.
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)

-- | The maximum concurrent sessions of the Elastic fleet. This is required
-- for Elastic fleets, and not allowed for other fleet types.
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)

-- | The maximum amount of time that a streaming session can remain active,
-- in seconds. If users are still connected to a streaming instance five
-- minutes before this limit is reached, they are prompted to save any open
-- documents before being disconnected. After this time elapses, the
-- instance is terminated and replaced by a new instance.
--
-- Specify a value between 600 and 360000.
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)

-- | The fleet platform. WINDOWS_SERVER_2019 and AMAZON_LINUX2 are supported
-- for Elastic fleets.
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)

-- | The S3 location of the session scripts configuration zip file. This only
-- applies to Elastic fleets.
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)

-- | The AppStream 2.0 view that is displayed to your users when they stream
-- from the fleet. When @APP@ is specified, only the windows of
-- applications opened by users display. When @DESKTOP@ is specified, the
-- standard desktop that is provided by the operating system displays.
--
-- The default value is @APP@.
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)

-- | The tags to associate with the fleet. A tag is a key-value pair, and the
-- value is optional. For example, Environment=Test. If you do not specify
-- a value, Environment=.
--
-- If you do not specify a value, the value is set to an empty string.
--
-- Generally allowed characters are: letters, numbers, and spaces
-- representable in UTF-8, and the following special characters:
--
-- _ . : \/ = + \\ - \@
--
-- For more information, see
-- <https://docs.aws.amazon.com/appstream2/latest/developerguide/tagging-basic.html Tagging Your Resources>
-- in the /Amazon AppStream 2.0 Administration Guide/.
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

-- | The USB device filter strings that specify which USB devices a user can
-- redirect to the fleet streaming session, when using the Windows native
-- client. This is allowed but not required for Elastic fleets.
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

-- | The VPC configuration for the fleet. This is required for Elastic
-- fleets, but not required for other fleet types. Elastic fleets require
-- that you specify at least two subnets in different availability zones.
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)

-- | A unique name for the fleet.
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)

-- | The instance type to use when launching fleet instances. The following
-- instance types are available:
--
-- -   stream.standard.small
--
-- -   stream.standard.medium
--
-- -   stream.standard.large
--
-- -   stream.standard.xlarge
--
-- -   stream.standard.2xlarge
--
-- -   stream.compute.large
--
-- -   stream.compute.xlarge
--
-- -   stream.compute.2xlarge
--
-- -   stream.compute.4xlarge
--
-- -   stream.compute.8xlarge
--
-- -   stream.memory.large
--
-- -   stream.memory.xlarge
--
-- -   stream.memory.2xlarge
--
-- -   stream.memory.4xlarge
--
-- -   stream.memory.8xlarge
--
-- -   stream.memory.z1d.large
--
-- -   stream.memory.z1d.xlarge
--
-- -   stream.memory.z1d.2xlarge
--
-- -   stream.memory.z1d.3xlarge
--
-- -   stream.memory.z1d.6xlarge
--
-- -   stream.memory.z1d.12xlarge
--
-- -   stream.graphics-design.large
--
-- -   stream.graphics-design.xlarge
--
-- -   stream.graphics-design.2xlarge
--
-- -   stream.graphics-design.4xlarge
--
-- -   stream.graphics-desktop.2xlarge
--
-- -   stream.graphics.g4dn.xlarge
--
-- -   stream.graphics.g4dn.2xlarge
--
-- -   stream.graphics.g4dn.4xlarge
--
-- -   stream.graphics.g4dn.8xlarge
--
-- -   stream.graphics.g4dn.12xlarge
--
-- -   stream.graphics.g4dn.16xlarge
--
-- -   stream.graphics-pro.4xlarge
--
-- -   stream.graphics-pro.8xlarge
--
-- -   stream.graphics-pro.16xlarge
--
-- The following instance types are available for Elastic fleets:
--
-- -   stream.standard.small
--
-- -   stream.standard.medium
--
-- -   stream.standard.large
--
-- -   stream.standard.xlarge
--
-- -   stream.standard.2xlarge
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

-- | /See:/ 'newCreateFleetResponse' smart constructor.
data CreateFleetResponse = CreateFleetResponse'
  { -- | Information about the fleet.
    CreateFleetResponse -> Maybe Fleet
fleet :: Prelude.Maybe Fleet,
    -- | The response's http status code.
    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)

-- |
-- Create a value of 'CreateFleetResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'fleet', 'createFleetResponse_fleet' - Information about the fleet.
--
-- 'httpStatus', 'createFleetResponse_httpStatus' - The response's http status code.
newCreateFleetResponse ::
  -- | 'httpStatus'
  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_
    }

-- | Information about the fleet.
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)

-- | The response's http status code.
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