{-# 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.SageMaker.CreateNotebookInstance
(
CreateNotebookInstance (..),
newCreateNotebookInstance,
createNotebookInstance_acceleratorTypes,
createNotebookInstance_additionalCodeRepositories,
createNotebookInstance_defaultCodeRepository,
createNotebookInstance_directInternetAccess,
createNotebookInstance_instanceMetadataServiceConfiguration,
createNotebookInstance_kmsKeyId,
createNotebookInstance_lifecycleConfigName,
createNotebookInstance_platformIdentifier,
createNotebookInstance_rootAccess,
createNotebookInstance_securityGroupIds,
createNotebookInstance_subnetId,
createNotebookInstance_tags,
createNotebookInstance_volumeSizeInGB,
createNotebookInstance_notebookInstanceName,
createNotebookInstance_instanceType,
createNotebookInstance_roleArn,
CreateNotebookInstanceResponse (..),
newCreateNotebookInstanceResponse,
createNotebookInstanceResponse_notebookInstanceArn,
createNotebookInstanceResponse_httpStatus,
)
where
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
import Amazonka.SageMaker.Types
data CreateNotebookInstance = CreateNotebookInstance'
{
CreateNotebookInstance -> Maybe [NotebookInstanceAcceleratorType]
acceleratorTypes :: Prelude.Maybe [NotebookInstanceAcceleratorType],
CreateNotebookInstance -> Maybe [Text]
additionalCodeRepositories :: Prelude.Maybe [Prelude.Text],
CreateNotebookInstance -> Maybe Text
defaultCodeRepository :: Prelude.Maybe Prelude.Text,
CreateNotebookInstance -> Maybe DirectInternetAccess
directInternetAccess :: Prelude.Maybe DirectInternetAccess,
CreateNotebookInstance
-> Maybe InstanceMetadataServiceConfiguration
instanceMetadataServiceConfiguration :: Prelude.Maybe InstanceMetadataServiceConfiguration,
CreateNotebookInstance -> Maybe Text
kmsKeyId :: Prelude.Maybe Prelude.Text,
CreateNotebookInstance -> Maybe Text
lifecycleConfigName :: Prelude.Maybe Prelude.Text,
CreateNotebookInstance -> Maybe Text
platformIdentifier :: Prelude.Maybe Prelude.Text,
CreateNotebookInstance -> Maybe RootAccess
rootAccess :: Prelude.Maybe RootAccess,
CreateNotebookInstance -> Maybe [Text]
securityGroupIds :: Prelude.Maybe [Prelude.Text],
CreateNotebookInstance -> Maybe Text
subnetId :: Prelude.Maybe Prelude.Text,
CreateNotebookInstance -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
CreateNotebookInstance -> Maybe Natural
volumeSizeInGB :: Prelude.Maybe Prelude.Natural,
CreateNotebookInstance -> Text
notebookInstanceName :: Prelude.Text,
CreateNotebookInstance -> InstanceType
instanceType :: InstanceType,
CreateNotebookInstance -> Text
roleArn :: Prelude.Text
}
deriving (CreateNotebookInstance -> CreateNotebookInstance -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateNotebookInstance -> CreateNotebookInstance -> Bool
$c/= :: CreateNotebookInstance -> CreateNotebookInstance -> Bool
== :: CreateNotebookInstance -> CreateNotebookInstance -> Bool
$c== :: CreateNotebookInstance -> CreateNotebookInstance -> Bool
Prelude.Eq, ReadPrec [CreateNotebookInstance]
ReadPrec CreateNotebookInstance
Int -> ReadS CreateNotebookInstance
ReadS [CreateNotebookInstance]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateNotebookInstance]
$creadListPrec :: ReadPrec [CreateNotebookInstance]
readPrec :: ReadPrec CreateNotebookInstance
$creadPrec :: ReadPrec CreateNotebookInstance
readList :: ReadS [CreateNotebookInstance]
$creadList :: ReadS [CreateNotebookInstance]
readsPrec :: Int -> ReadS CreateNotebookInstance
$creadsPrec :: Int -> ReadS CreateNotebookInstance
Prelude.Read, Int -> CreateNotebookInstance -> ShowS
[CreateNotebookInstance] -> ShowS
CreateNotebookInstance -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateNotebookInstance] -> ShowS
$cshowList :: [CreateNotebookInstance] -> ShowS
show :: CreateNotebookInstance -> String
$cshow :: CreateNotebookInstance -> String
showsPrec :: Int -> CreateNotebookInstance -> ShowS
$cshowsPrec :: Int -> CreateNotebookInstance -> ShowS
Prelude.Show, forall x. Rep CreateNotebookInstance x -> CreateNotebookInstance
forall x. CreateNotebookInstance -> Rep CreateNotebookInstance x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateNotebookInstance x -> CreateNotebookInstance
$cfrom :: forall x. CreateNotebookInstance -> Rep CreateNotebookInstance x
Prelude.Generic)
newCreateNotebookInstance ::
Prelude.Text ->
InstanceType ->
Prelude.Text ->
CreateNotebookInstance
newCreateNotebookInstance :: Text -> InstanceType -> Text -> CreateNotebookInstance
newCreateNotebookInstance
Text
pNotebookInstanceName_
InstanceType
pInstanceType_
Text
pRoleArn_ =
CreateNotebookInstance'
{ $sel:acceleratorTypes:CreateNotebookInstance' :: Maybe [NotebookInstanceAcceleratorType]
acceleratorTypes =
forall a. Maybe a
Prelude.Nothing,
$sel:additionalCodeRepositories:CreateNotebookInstance' :: Maybe [Text]
additionalCodeRepositories = forall a. Maybe a
Prelude.Nothing,
$sel:defaultCodeRepository:CreateNotebookInstance' :: Maybe Text
defaultCodeRepository = forall a. Maybe a
Prelude.Nothing,
$sel:directInternetAccess:CreateNotebookInstance' :: Maybe DirectInternetAccess
directInternetAccess = forall a. Maybe a
Prelude.Nothing,
$sel:instanceMetadataServiceConfiguration:CreateNotebookInstance' :: Maybe InstanceMetadataServiceConfiguration
instanceMetadataServiceConfiguration =
forall a. Maybe a
Prelude.Nothing,
$sel:kmsKeyId:CreateNotebookInstance' :: Maybe Text
kmsKeyId = forall a. Maybe a
Prelude.Nothing,
$sel:lifecycleConfigName:CreateNotebookInstance' :: Maybe Text
lifecycleConfigName = forall a. Maybe a
Prelude.Nothing,
$sel:platformIdentifier:CreateNotebookInstance' :: Maybe Text
platformIdentifier = forall a. Maybe a
Prelude.Nothing,
$sel:rootAccess:CreateNotebookInstance' :: Maybe RootAccess
rootAccess = forall a. Maybe a
Prelude.Nothing,
$sel:securityGroupIds:CreateNotebookInstance' :: Maybe [Text]
securityGroupIds = forall a. Maybe a
Prelude.Nothing,
$sel:subnetId:CreateNotebookInstance' :: Maybe Text
subnetId = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateNotebookInstance' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:volumeSizeInGB:CreateNotebookInstance' :: Maybe Natural
volumeSizeInGB = forall a. Maybe a
Prelude.Nothing,
$sel:notebookInstanceName:CreateNotebookInstance' :: Text
notebookInstanceName = Text
pNotebookInstanceName_,
$sel:instanceType:CreateNotebookInstance' :: InstanceType
instanceType = InstanceType
pInstanceType_,
$sel:roleArn:CreateNotebookInstance' :: Text
roleArn = Text
pRoleArn_
}
createNotebookInstance_acceleratorTypes :: Lens.Lens' CreateNotebookInstance (Prelude.Maybe [NotebookInstanceAcceleratorType])
createNotebookInstance_acceleratorTypes :: Lens'
CreateNotebookInstance (Maybe [NotebookInstanceAcceleratorType])
createNotebookInstance_acceleratorTypes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNotebookInstance' {Maybe [NotebookInstanceAcceleratorType]
acceleratorTypes :: Maybe [NotebookInstanceAcceleratorType]
$sel:acceleratorTypes:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe [NotebookInstanceAcceleratorType]
acceleratorTypes} -> Maybe [NotebookInstanceAcceleratorType]
acceleratorTypes) (\s :: CreateNotebookInstance
s@CreateNotebookInstance' {} Maybe [NotebookInstanceAcceleratorType]
a -> CreateNotebookInstance
s {$sel:acceleratorTypes:CreateNotebookInstance' :: Maybe [NotebookInstanceAcceleratorType]
acceleratorTypes = Maybe [NotebookInstanceAcceleratorType]
a} :: CreateNotebookInstance) 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
createNotebookInstance_additionalCodeRepositories :: Lens.Lens' CreateNotebookInstance (Prelude.Maybe [Prelude.Text])
createNotebookInstance_additionalCodeRepositories :: Lens' CreateNotebookInstance (Maybe [Text])
createNotebookInstance_additionalCodeRepositories = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNotebookInstance' {Maybe [Text]
additionalCodeRepositories :: Maybe [Text]
$sel:additionalCodeRepositories:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe [Text]
additionalCodeRepositories} -> Maybe [Text]
additionalCodeRepositories) (\s :: CreateNotebookInstance
s@CreateNotebookInstance' {} Maybe [Text]
a -> CreateNotebookInstance
s {$sel:additionalCodeRepositories:CreateNotebookInstance' :: Maybe [Text]
additionalCodeRepositories = Maybe [Text]
a} :: CreateNotebookInstance) 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
createNotebookInstance_defaultCodeRepository :: Lens.Lens' CreateNotebookInstance (Prelude.Maybe Prelude.Text)
createNotebookInstance_defaultCodeRepository :: Lens' CreateNotebookInstance (Maybe Text)
createNotebookInstance_defaultCodeRepository = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNotebookInstance' {Maybe Text
defaultCodeRepository :: Maybe Text
$sel:defaultCodeRepository:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe Text
defaultCodeRepository} -> Maybe Text
defaultCodeRepository) (\s :: CreateNotebookInstance
s@CreateNotebookInstance' {} Maybe Text
a -> CreateNotebookInstance
s {$sel:defaultCodeRepository:CreateNotebookInstance' :: Maybe Text
defaultCodeRepository = Maybe Text
a} :: CreateNotebookInstance)
createNotebookInstance_directInternetAccess :: Lens.Lens' CreateNotebookInstance (Prelude.Maybe DirectInternetAccess)
createNotebookInstance_directInternetAccess :: Lens' CreateNotebookInstance (Maybe DirectInternetAccess)
createNotebookInstance_directInternetAccess = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNotebookInstance' {Maybe DirectInternetAccess
directInternetAccess :: Maybe DirectInternetAccess
$sel:directInternetAccess:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe DirectInternetAccess
directInternetAccess} -> Maybe DirectInternetAccess
directInternetAccess) (\s :: CreateNotebookInstance
s@CreateNotebookInstance' {} Maybe DirectInternetAccess
a -> CreateNotebookInstance
s {$sel:directInternetAccess:CreateNotebookInstance' :: Maybe DirectInternetAccess
directInternetAccess = Maybe DirectInternetAccess
a} :: CreateNotebookInstance)
createNotebookInstance_instanceMetadataServiceConfiguration :: Lens.Lens' CreateNotebookInstance (Prelude.Maybe InstanceMetadataServiceConfiguration)
createNotebookInstance_instanceMetadataServiceConfiguration :: Lens'
CreateNotebookInstance (Maybe InstanceMetadataServiceConfiguration)
createNotebookInstance_instanceMetadataServiceConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNotebookInstance' {Maybe InstanceMetadataServiceConfiguration
instanceMetadataServiceConfiguration :: Maybe InstanceMetadataServiceConfiguration
$sel:instanceMetadataServiceConfiguration:CreateNotebookInstance' :: CreateNotebookInstance
-> Maybe InstanceMetadataServiceConfiguration
instanceMetadataServiceConfiguration} -> Maybe InstanceMetadataServiceConfiguration
instanceMetadataServiceConfiguration) (\s :: CreateNotebookInstance
s@CreateNotebookInstance' {} Maybe InstanceMetadataServiceConfiguration
a -> CreateNotebookInstance
s {$sel:instanceMetadataServiceConfiguration:CreateNotebookInstance' :: Maybe InstanceMetadataServiceConfiguration
instanceMetadataServiceConfiguration = Maybe InstanceMetadataServiceConfiguration
a} :: CreateNotebookInstance)
createNotebookInstance_kmsKeyId :: Lens.Lens' CreateNotebookInstance (Prelude.Maybe Prelude.Text)
createNotebookInstance_kmsKeyId :: Lens' CreateNotebookInstance (Maybe Text)
createNotebookInstance_kmsKeyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNotebookInstance' {Maybe Text
kmsKeyId :: Maybe Text
$sel:kmsKeyId:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe Text
kmsKeyId} -> Maybe Text
kmsKeyId) (\s :: CreateNotebookInstance
s@CreateNotebookInstance' {} Maybe Text
a -> CreateNotebookInstance
s {$sel:kmsKeyId:CreateNotebookInstance' :: Maybe Text
kmsKeyId = Maybe Text
a} :: CreateNotebookInstance)
createNotebookInstance_lifecycleConfigName :: Lens.Lens' CreateNotebookInstance (Prelude.Maybe Prelude.Text)
createNotebookInstance_lifecycleConfigName :: Lens' CreateNotebookInstance (Maybe Text)
createNotebookInstance_lifecycleConfigName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNotebookInstance' {Maybe Text
lifecycleConfigName :: Maybe Text
$sel:lifecycleConfigName:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe Text
lifecycleConfigName} -> Maybe Text
lifecycleConfigName) (\s :: CreateNotebookInstance
s@CreateNotebookInstance' {} Maybe Text
a -> CreateNotebookInstance
s {$sel:lifecycleConfigName:CreateNotebookInstance' :: Maybe Text
lifecycleConfigName = Maybe Text
a} :: CreateNotebookInstance)
createNotebookInstance_platformIdentifier :: Lens.Lens' CreateNotebookInstance (Prelude.Maybe Prelude.Text)
createNotebookInstance_platformIdentifier :: Lens' CreateNotebookInstance (Maybe Text)
createNotebookInstance_platformIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNotebookInstance' {Maybe Text
platformIdentifier :: Maybe Text
$sel:platformIdentifier:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe Text
platformIdentifier} -> Maybe Text
platformIdentifier) (\s :: CreateNotebookInstance
s@CreateNotebookInstance' {} Maybe Text
a -> CreateNotebookInstance
s {$sel:platformIdentifier:CreateNotebookInstance' :: Maybe Text
platformIdentifier = Maybe Text
a} :: CreateNotebookInstance)
createNotebookInstance_rootAccess :: Lens.Lens' CreateNotebookInstance (Prelude.Maybe RootAccess)
createNotebookInstance_rootAccess :: Lens' CreateNotebookInstance (Maybe RootAccess)
createNotebookInstance_rootAccess = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNotebookInstance' {Maybe RootAccess
rootAccess :: Maybe RootAccess
$sel:rootAccess:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe RootAccess
rootAccess} -> Maybe RootAccess
rootAccess) (\s :: CreateNotebookInstance
s@CreateNotebookInstance' {} Maybe RootAccess
a -> CreateNotebookInstance
s {$sel:rootAccess:CreateNotebookInstance' :: Maybe RootAccess
rootAccess = Maybe RootAccess
a} :: CreateNotebookInstance)
createNotebookInstance_securityGroupIds :: Lens.Lens' CreateNotebookInstance (Prelude.Maybe [Prelude.Text])
createNotebookInstance_securityGroupIds :: Lens' CreateNotebookInstance (Maybe [Text])
createNotebookInstance_securityGroupIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNotebookInstance' {Maybe [Text]
securityGroupIds :: Maybe [Text]
$sel:securityGroupIds:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe [Text]
securityGroupIds} -> Maybe [Text]
securityGroupIds) (\s :: CreateNotebookInstance
s@CreateNotebookInstance' {} Maybe [Text]
a -> CreateNotebookInstance
s {$sel:securityGroupIds:CreateNotebookInstance' :: Maybe [Text]
securityGroupIds = Maybe [Text]
a} :: CreateNotebookInstance) 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
createNotebookInstance_subnetId :: Lens.Lens' CreateNotebookInstance (Prelude.Maybe Prelude.Text)
createNotebookInstance_subnetId :: Lens' CreateNotebookInstance (Maybe Text)
createNotebookInstance_subnetId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNotebookInstance' {Maybe Text
subnetId :: Maybe Text
$sel:subnetId:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe Text
subnetId} -> Maybe Text
subnetId) (\s :: CreateNotebookInstance
s@CreateNotebookInstance' {} Maybe Text
a -> CreateNotebookInstance
s {$sel:subnetId:CreateNotebookInstance' :: Maybe Text
subnetId = Maybe Text
a} :: CreateNotebookInstance)
createNotebookInstance_tags :: Lens.Lens' CreateNotebookInstance (Prelude.Maybe [Tag])
createNotebookInstance_tags :: Lens' CreateNotebookInstance (Maybe [Tag])
createNotebookInstance_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNotebookInstance' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateNotebookInstance
s@CreateNotebookInstance' {} Maybe [Tag]
a -> CreateNotebookInstance
s {$sel:tags:CreateNotebookInstance' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateNotebookInstance) 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
createNotebookInstance_volumeSizeInGB :: Lens.Lens' CreateNotebookInstance (Prelude.Maybe Prelude.Natural)
createNotebookInstance_volumeSizeInGB :: Lens' CreateNotebookInstance (Maybe Natural)
createNotebookInstance_volumeSizeInGB = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNotebookInstance' {Maybe Natural
volumeSizeInGB :: Maybe Natural
$sel:volumeSizeInGB:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe Natural
volumeSizeInGB} -> Maybe Natural
volumeSizeInGB) (\s :: CreateNotebookInstance
s@CreateNotebookInstance' {} Maybe Natural
a -> CreateNotebookInstance
s {$sel:volumeSizeInGB:CreateNotebookInstance' :: Maybe Natural
volumeSizeInGB = Maybe Natural
a} :: CreateNotebookInstance)
createNotebookInstance_notebookInstanceName :: Lens.Lens' CreateNotebookInstance Prelude.Text
createNotebookInstance_notebookInstanceName :: Lens' CreateNotebookInstance Text
createNotebookInstance_notebookInstanceName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNotebookInstance' {Text
notebookInstanceName :: Text
$sel:notebookInstanceName:CreateNotebookInstance' :: CreateNotebookInstance -> Text
notebookInstanceName} -> Text
notebookInstanceName) (\s :: CreateNotebookInstance
s@CreateNotebookInstance' {} Text
a -> CreateNotebookInstance
s {$sel:notebookInstanceName:CreateNotebookInstance' :: Text
notebookInstanceName = Text
a} :: CreateNotebookInstance)
createNotebookInstance_instanceType :: Lens.Lens' CreateNotebookInstance InstanceType
createNotebookInstance_instanceType :: Lens' CreateNotebookInstance InstanceType
createNotebookInstance_instanceType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNotebookInstance' {InstanceType
instanceType :: InstanceType
$sel:instanceType:CreateNotebookInstance' :: CreateNotebookInstance -> InstanceType
instanceType} -> InstanceType
instanceType) (\s :: CreateNotebookInstance
s@CreateNotebookInstance' {} InstanceType
a -> CreateNotebookInstance
s {$sel:instanceType:CreateNotebookInstance' :: InstanceType
instanceType = InstanceType
a} :: CreateNotebookInstance)
createNotebookInstance_roleArn :: Lens.Lens' CreateNotebookInstance Prelude.Text
createNotebookInstance_roleArn :: Lens' CreateNotebookInstance Text
createNotebookInstance_roleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNotebookInstance' {Text
roleArn :: Text
$sel:roleArn:CreateNotebookInstance' :: CreateNotebookInstance -> Text
roleArn} -> Text
roleArn) (\s :: CreateNotebookInstance
s@CreateNotebookInstance' {} Text
a -> CreateNotebookInstance
s {$sel:roleArn:CreateNotebookInstance' :: Text
roleArn = Text
a} :: CreateNotebookInstance)
instance Core.AWSRequest CreateNotebookInstance where
type
AWSResponse CreateNotebookInstance =
CreateNotebookInstanceResponse
request :: (Service -> Service)
-> CreateNotebookInstance -> Request CreateNotebookInstance
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 CreateNotebookInstance
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateNotebookInstance)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Text -> Int -> CreateNotebookInstanceResponse
CreateNotebookInstanceResponse'
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
"NotebookInstanceArn")
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 CreateNotebookInstance where
hashWithSalt :: Int -> CreateNotebookInstance -> Int
hashWithSalt Int
_salt CreateNotebookInstance' {Maybe Natural
Maybe [Text]
Maybe [NotebookInstanceAcceleratorType]
Maybe [Tag]
Maybe Text
Maybe DirectInternetAccess
Maybe InstanceMetadataServiceConfiguration
Maybe RootAccess
Text
InstanceType
roleArn :: Text
instanceType :: InstanceType
notebookInstanceName :: Text
volumeSizeInGB :: Maybe Natural
tags :: Maybe [Tag]
subnetId :: Maybe Text
securityGroupIds :: Maybe [Text]
rootAccess :: Maybe RootAccess
platformIdentifier :: Maybe Text
lifecycleConfigName :: Maybe Text
kmsKeyId :: Maybe Text
instanceMetadataServiceConfiguration :: Maybe InstanceMetadataServiceConfiguration
directInternetAccess :: Maybe DirectInternetAccess
defaultCodeRepository :: Maybe Text
additionalCodeRepositories :: Maybe [Text]
acceleratorTypes :: Maybe [NotebookInstanceAcceleratorType]
$sel:roleArn:CreateNotebookInstance' :: CreateNotebookInstance -> Text
$sel:instanceType:CreateNotebookInstance' :: CreateNotebookInstance -> InstanceType
$sel:notebookInstanceName:CreateNotebookInstance' :: CreateNotebookInstance -> Text
$sel:volumeSizeInGB:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe Natural
$sel:tags:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe [Tag]
$sel:subnetId:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe Text
$sel:securityGroupIds:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe [Text]
$sel:rootAccess:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe RootAccess
$sel:platformIdentifier:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe Text
$sel:lifecycleConfigName:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe Text
$sel:kmsKeyId:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe Text
$sel:instanceMetadataServiceConfiguration:CreateNotebookInstance' :: CreateNotebookInstance
-> Maybe InstanceMetadataServiceConfiguration
$sel:directInternetAccess:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe DirectInternetAccess
$sel:defaultCodeRepository:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe Text
$sel:additionalCodeRepositories:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe [Text]
$sel:acceleratorTypes:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe [NotebookInstanceAcceleratorType]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [NotebookInstanceAcceleratorType]
acceleratorTypes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
additionalCodeRepositories
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
defaultCodeRepository
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe DirectInternetAccess
directInternetAccess
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe InstanceMetadataServiceConfiguration
instanceMetadataServiceConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
kmsKeyId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
lifecycleConfigName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
platformIdentifier
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RootAccess
rootAccess
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
securityGroupIds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
subnetId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
volumeSizeInGB
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
notebookInstanceName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` InstanceType
instanceType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
roleArn
instance Prelude.NFData CreateNotebookInstance where
rnf :: CreateNotebookInstance -> ()
rnf CreateNotebookInstance' {Maybe Natural
Maybe [Text]
Maybe [NotebookInstanceAcceleratorType]
Maybe [Tag]
Maybe Text
Maybe DirectInternetAccess
Maybe InstanceMetadataServiceConfiguration
Maybe RootAccess
Text
InstanceType
roleArn :: Text
instanceType :: InstanceType
notebookInstanceName :: Text
volumeSizeInGB :: Maybe Natural
tags :: Maybe [Tag]
subnetId :: Maybe Text
securityGroupIds :: Maybe [Text]
rootAccess :: Maybe RootAccess
platformIdentifier :: Maybe Text
lifecycleConfigName :: Maybe Text
kmsKeyId :: Maybe Text
instanceMetadataServiceConfiguration :: Maybe InstanceMetadataServiceConfiguration
directInternetAccess :: Maybe DirectInternetAccess
defaultCodeRepository :: Maybe Text
additionalCodeRepositories :: Maybe [Text]
acceleratorTypes :: Maybe [NotebookInstanceAcceleratorType]
$sel:roleArn:CreateNotebookInstance' :: CreateNotebookInstance -> Text
$sel:instanceType:CreateNotebookInstance' :: CreateNotebookInstance -> InstanceType
$sel:notebookInstanceName:CreateNotebookInstance' :: CreateNotebookInstance -> Text
$sel:volumeSizeInGB:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe Natural
$sel:tags:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe [Tag]
$sel:subnetId:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe Text
$sel:securityGroupIds:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe [Text]
$sel:rootAccess:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe RootAccess
$sel:platformIdentifier:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe Text
$sel:lifecycleConfigName:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe Text
$sel:kmsKeyId:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe Text
$sel:instanceMetadataServiceConfiguration:CreateNotebookInstance' :: CreateNotebookInstance
-> Maybe InstanceMetadataServiceConfiguration
$sel:directInternetAccess:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe DirectInternetAccess
$sel:defaultCodeRepository:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe Text
$sel:additionalCodeRepositories:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe [Text]
$sel:acceleratorTypes:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe [NotebookInstanceAcceleratorType]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [NotebookInstanceAcceleratorType]
acceleratorTypes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
additionalCodeRepositories
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
defaultCodeRepository
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DirectInternetAccess
directInternetAccess
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe InstanceMetadataServiceConfiguration
instanceMetadataServiceConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
kmsKeyId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
lifecycleConfigName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
platformIdentifier
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RootAccess
rootAccess
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
securityGroupIds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
subnetId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
volumeSizeInGB
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
notebookInstanceName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf InstanceType
instanceType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
roleArn
instance Data.ToHeaders CreateNotebookInstance where
toHeaders :: CreateNotebookInstance -> 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
"SageMaker.CreateNotebookInstance" ::
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 CreateNotebookInstance where
toJSON :: CreateNotebookInstance -> Value
toJSON CreateNotebookInstance' {Maybe Natural
Maybe [Text]
Maybe [NotebookInstanceAcceleratorType]
Maybe [Tag]
Maybe Text
Maybe DirectInternetAccess
Maybe InstanceMetadataServiceConfiguration
Maybe RootAccess
Text
InstanceType
roleArn :: Text
instanceType :: InstanceType
notebookInstanceName :: Text
volumeSizeInGB :: Maybe Natural
tags :: Maybe [Tag]
subnetId :: Maybe Text
securityGroupIds :: Maybe [Text]
rootAccess :: Maybe RootAccess
platformIdentifier :: Maybe Text
lifecycleConfigName :: Maybe Text
kmsKeyId :: Maybe Text
instanceMetadataServiceConfiguration :: Maybe InstanceMetadataServiceConfiguration
directInternetAccess :: Maybe DirectInternetAccess
defaultCodeRepository :: Maybe Text
additionalCodeRepositories :: Maybe [Text]
acceleratorTypes :: Maybe [NotebookInstanceAcceleratorType]
$sel:roleArn:CreateNotebookInstance' :: CreateNotebookInstance -> Text
$sel:instanceType:CreateNotebookInstance' :: CreateNotebookInstance -> InstanceType
$sel:notebookInstanceName:CreateNotebookInstance' :: CreateNotebookInstance -> Text
$sel:volumeSizeInGB:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe Natural
$sel:tags:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe [Tag]
$sel:subnetId:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe Text
$sel:securityGroupIds:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe [Text]
$sel:rootAccess:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe RootAccess
$sel:platformIdentifier:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe Text
$sel:lifecycleConfigName:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe Text
$sel:kmsKeyId:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe Text
$sel:instanceMetadataServiceConfiguration:CreateNotebookInstance' :: CreateNotebookInstance
-> Maybe InstanceMetadataServiceConfiguration
$sel:directInternetAccess:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe DirectInternetAccess
$sel:defaultCodeRepository:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe Text
$sel:additionalCodeRepositories:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe [Text]
$sel:acceleratorTypes:CreateNotebookInstance' :: CreateNotebookInstance -> Maybe [NotebookInstanceAcceleratorType]
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"AcceleratorTypes" 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 [NotebookInstanceAcceleratorType]
acceleratorTypes,
(Key
"AdditionalCodeRepositories" 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]
additionalCodeRepositories,
(Key
"DefaultCodeRepository" 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
defaultCodeRepository,
(Key
"DirectInternetAccess" 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 DirectInternetAccess
directInternetAccess,
(Key
"InstanceMetadataServiceConfiguration" 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 InstanceMetadataServiceConfiguration
instanceMetadataServiceConfiguration,
(Key
"KmsKeyId" 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
kmsKeyId,
(Key
"LifecycleConfigName" 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
lifecycleConfigName,
(Key
"PlatformIdentifier" 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
platformIdentifier,
(Key
"RootAccess" 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 RootAccess
rootAccess,
(Key
"SecurityGroupIds" 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]
securityGroupIds,
(Key
"SubnetId" 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
subnetId,
(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 [Tag]
tags,
(Key
"VolumeSizeInGB" 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 Natural
volumeSizeInGB,
forall a. a -> Maybe a
Prelude.Just
( Key
"NotebookInstanceName"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
notebookInstanceName
),
forall a. a -> Maybe a
Prelude.Just (Key
"InstanceType" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= InstanceType
instanceType),
forall a. a -> Maybe a
Prelude.Just (Key
"RoleArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
roleArn)
]
)
instance Data.ToPath CreateNotebookInstance where
toPath :: CreateNotebookInstance -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateNotebookInstance where
toQuery :: CreateNotebookInstance -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateNotebookInstanceResponse = CreateNotebookInstanceResponse'
{
CreateNotebookInstanceResponse -> Maybe Text
notebookInstanceArn :: Prelude.Maybe Prelude.Text,
CreateNotebookInstanceResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateNotebookInstanceResponse
-> CreateNotebookInstanceResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateNotebookInstanceResponse
-> CreateNotebookInstanceResponse -> Bool
$c/= :: CreateNotebookInstanceResponse
-> CreateNotebookInstanceResponse -> Bool
== :: CreateNotebookInstanceResponse
-> CreateNotebookInstanceResponse -> Bool
$c== :: CreateNotebookInstanceResponse
-> CreateNotebookInstanceResponse -> Bool
Prelude.Eq, ReadPrec [CreateNotebookInstanceResponse]
ReadPrec CreateNotebookInstanceResponse
Int -> ReadS CreateNotebookInstanceResponse
ReadS [CreateNotebookInstanceResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateNotebookInstanceResponse]
$creadListPrec :: ReadPrec [CreateNotebookInstanceResponse]
readPrec :: ReadPrec CreateNotebookInstanceResponse
$creadPrec :: ReadPrec CreateNotebookInstanceResponse
readList :: ReadS [CreateNotebookInstanceResponse]
$creadList :: ReadS [CreateNotebookInstanceResponse]
readsPrec :: Int -> ReadS CreateNotebookInstanceResponse
$creadsPrec :: Int -> ReadS CreateNotebookInstanceResponse
Prelude.Read, Int -> CreateNotebookInstanceResponse -> ShowS
[CreateNotebookInstanceResponse] -> ShowS
CreateNotebookInstanceResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateNotebookInstanceResponse] -> ShowS
$cshowList :: [CreateNotebookInstanceResponse] -> ShowS
show :: CreateNotebookInstanceResponse -> String
$cshow :: CreateNotebookInstanceResponse -> String
showsPrec :: Int -> CreateNotebookInstanceResponse -> ShowS
$cshowsPrec :: Int -> CreateNotebookInstanceResponse -> ShowS
Prelude.Show, forall x.
Rep CreateNotebookInstanceResponse x
-> CreateNotebookInstanceResponse
forall x.
CreateNotebookInstanceResponse
-> Rep CreateNotebookInstanceResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateNotebookInstanceResponse x
-> CreateNotebookInstanceResponse
$cfrom :: forall x.
CreateNotebookInstanceResponse
-> Rep CreateNotebookInstanceResponse x
Prelude.Generic)
newCreateNotebookInstanceResponse ::
Prelude.Int ->
CreateNotebookInstanceResponse
newCreateNotebookInstanceResponse :: Int -> CreateNotebookInstanceResponse
newCreateNotebookInstanceResponse Int
pHttpStatus_ =
CreateNotebookInstanceResponse'
{ $sel:notebookInstanceArn:CreateNotebookInstanceResponse' :: Maybe Text
notebookInstanceArn =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateNotebookInstanceResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createNotebookInstanceResponse_notebookInstanceArn :: Lens.Lens' CreateNotebookInstanceResponse (Prelude.Maybe Prelude.Text)
createNotebookInstanceResponse_notebookInstanceArn :: Lens' CreateNotebookInstanceResponse (Maybe Text)
createNotebookInstanceResponse_notebookInstanceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNotebookInstanceResponse' {Maybe Text
notebookInstanceArn :: Maybe Text
$sel:notebookInstanceArn:CreateNotebookInstanceResponse' :: CreateNotebookInstanceResponse -> Maybe Text
notebookInstanceArn} -> Maybe Text
notebookInstanceArn) (\s :: CreateNotebookInstanceResponse
s@CreateNotebookInstanceResponse' {} Maybe Text
a -> CreateNotebookInstanceResponse
s {$sel:notebookInstanceArn:CreateNotebookInstanceResponse' :: Maybe Text
notebookInstanceArn = Maybe Text
a} :: CreateNotebookInstanceResponse)
createNotebookInstanceResponse_httpStatus :: Lens.Lens' CreateNotebookInstanceResponse Prelude.Int
createNotebookInstanceResponse_httpStatus :: Lens' CreateNotebookInstanceResponse Int
createNotebookInstanceResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNotebookInstanceResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateNotebookInstanceResponse' :: CreateNotebookInstanceResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateNotebookInstanceResponse
s@CreateNotebookInstanceResponse' {} Int
a -> CreateNotebookInstanceResponse
s {$sel:httpStatus:CreateNotebookInstanceResponse' :: Int
httpStatus = Int
a} :: CreateNotebookInstanceResponse)
instance
Prelude.NFData
CreateNotebookInstanceResponse
where
rnf :: CreateNotebookInstanceResponse -> ()
rnf CreateNotebookInstanceResponse' {Int
Maybe Text
httpStatus :: Int
notebookInstanceArn :: Maybe Text
$sel:httpStatus:CreateNotebookInstanceResponse' :: CreateNotebookInstanceResponse -> Int
$sel:notebookInstanceArn:CreateNotebookInstanceResponse' :: CreateNotebookInstanceResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
notebookInstanceArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus