{-# 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.Nimble.CreateStudio
(
CreateStudio (..),
newCreateStudio,
createStudio_clientToken,
createStudio_studioEncryptionConfiguration,
createStudio_tags,
createStudio_adminRoleArn,
createStudio_displayName,
createStudio_studioName,
createStudio_userRoleArn,
CreateStudioResponse (..),
newCreateStudioResponse,
createStudioResponse_studio,
createStudioResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Nimble.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateStudio = CreateStudio'
{
CreateStudio -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
CreateStudio -> Maybe StudioEncryptionConfiguration
studioEncryptionConfiguration :: Prelude.Maybe StudioEncryptionConfiguration,
CreateStudio -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
CreateStudio -> Text
adminRoleArn :: Prelude.Text,
CreateStudio -> Sensitive Text
displayName :: Data.Sensitive Prelude.Text,
CreateStudio -> Text
studioName :: Prelude.Text,
CreateStudio -> Text
userRoleArn :: Prelude.Text
}
deriving (CreateStudio -> CreateStudio -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateStudio -> CreateStudio -> Bool
$c/= :: CreateStudio -> CreateStudio -> Bool
== :: CreateStudio -> CreateStudio -> Bool
$c== :: CreateStudio -> CreateStudio -> Bool
Prelude.Eq, Int -> CreateStudio -> ShowS
[CreateStudio] -> ShowS
CreateStudio -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateStudio] -> ShowS
$cshowList :: [CreateStudio] -> ShowS
show :: CreateStudio -> String
$cshow :: CreateStudio -> String
showsPrec :: Int -> CreateStudio -> ShowS
$cshowsPrec :: Int -> CreateStudio -> ShowS
Prelude.Show, forall x. Rep CreateStudio x -> CreateStudio
forall x. CreateStudio -> Rep CreateStudio x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateStudio x -> CreateStudio
$cfrom :: forall x. CreateStudio -> Rep CreateStudio x
Prelude.Generic)
newCreateStudio ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
CreateStudio
newCreateStudio :: Text -> Text -> Text -> Text -> CreateStudio
newCreateStudio
Text
pAdminRoleArn_
Text
pDisplayName_
Text
pStudioName_
Text
pUserRoleArn_ =
CreateStudio'
{ $sel:clientToken:CreateStudio' :: Maybe Text
clientToken = forall a. Maybe a
Prelude.Nothing,
$sel:studioEncryptionConfiguration:CreateStudio' :: Maybe StudioEncryptionConfiguration
studioEncryptionConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateStudio' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:adminRoleArn:CreateStudio' :: Text
adminRoleArn = Text
pAdminRoleArn_,
$sel:displayName:CreateStudio' :: Sensitive Text
displayName = forall a. Iso' (Sensitive a) a
Data._Sensitive forall t b. AReview t b -> b -> t
Lens.# Text
pDisplayName_,
$sel:studioName:CreateStudio' :: Text
studioName = Text
pStudioName_,
$sel:userRoleArn:CreateStudio' :: Text
userRoleArn = Text
pUserRoleArn_
}
createStudio_clientToken :: Lens.Lens' CreateStudio (Prelude.Maybe Prelude.Text)
createStudio_clientToken :: Lens' CreateStudio (Maybe Text)
createStudio_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStudio' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:CreateStudio' :: CreateStudio -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: CreateStudio
s@CreateStudio' {} Maybe Text
a -> CreateStudio
s {$sel:clientToken:CreateStudio' :: Maybe Text
clientToken = Maybe Text
a} :: CreateStudio)
createStudio_studioEncryptionConfiguration :: Lens.Lens' CreateStudio (Prelude.Maybe StudioEncryptionConfiguration)
createStudio_studioEncryptionConfiguration :: Lens' CreateStudio (Maybe StudioEncryptionConfiguration)
createStudio_studioEncryptionConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStudio' {Maybe StudioEncryptionConfiguration
studioEncryptionConfiguration :: Maybe StudioEncryptionConfiguration
$sel:studioEncryptionConfiguration:CreateStudio' :: CreateStudio -> Maybe StudioEncryptionConfiguration
studioEncryptionConfiguration} -> Maybe StudioEncryptionConfiguration
studioEncryptionConfiguration) (\s :: CreateStudio
s@CreateStudio' {} Maybe StudioEncryptionConfiguration
a -> CreateStudio
s {$sel:studioEncryptionConfiguration:CreateStudio' :: Maybe StudioEncryptionConfiguration
studioEncryptionConfiguration = Maybe StudioEncryptionConfiguration
a} :: CreateStudio)
createStudio_tags :: Lens.Lens' CreateStudio (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
createStudio_tags :: Lens' CreateStudio (Maybe (HashMap Text Text))
createStudio_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStudio' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:CreateStudio' :: CreateStudio -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: CreateStudio
s@CreateStudio' {} Maybe (HashMap Text Text)
a -> CreateStudio
s {$sel:tags:CreateStudio' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: CreateStudio) 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
createStudio_adminRoleArn :: Lens.Lens' CreateStudio Prelude.Text
createStudio_adminRoleArn :: Lens' CreateStudio Text
createStudio_adminRoleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStudio' {Text
adminRoleArn :: Text
$sel:adminRoleArn:CreateStudio' :: CreateStudio -> Text
adminRoleArn} -> Text
adminRoleArn) (\s :: CreateStudio
s@CreateStudio' {} Text
a -> CreateStudio
s {$sel:adminRoleArn:CreateStudio' :: Text
adminRoleArn = Text
a} :: CreateStudio)
createStudio_displayName :: Lens.Lens' CreateStudio Prelude.Text
createStudio_displayName :: Lens' CreateStudio Text
createStudio_displayName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStudio' {Sensitive Text
displayName :: Sensitive Text
$sel:displayName:CreateStudio' :: CreateStudio -> Sensitive Text
displayName} -> Sensitive Text
displayName) (\s :: CreateStudio
s@CreateStudio' {} Sensitive Text
a -> CreateStudio
s {$sel:displayName:CreateStudio' :: Sensitive Text
displayName = Sensitive Text
a} :: CreateStudio) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. Iso' (Sensitive a) a
Data._Sensitive
createStudio_studioName :: Lens.Lens' CreateStudio Prelude.Text
createStudio_studioName :: Lens' CreateStudio Text
createStudio_studioName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStudio' {Text
studioName :: Text
$sel:studioName:CreateStudio' :: CreateStudio -> Text
studioName} -> Text
studioName) (\s :: CreateStudio
s@CreateStudio' {} Text
a -> CreateStudio
s {$sel:studioName:CreateStudio' :: Text
studioName = Text
a} :: CreateStudio)
createStudio_userRoleArn :: Lens.Lens' CreateStudio Prelude.Text
createStudio_userRoleArn :: Lens' CreateStudio Text
createStudio_userRoleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStudio' {Text
userRoleArn :: Text
$sel:userRoleArn:CreateStudio' :: CreateStudio -> Text
userRoleArn} -> Text
userRoleArn) (\s :: CreateStudio
s@CreateStudio' {} Text
a -> CreateStudio
s {$sel:userRoleArn:CreateStudio' :: Text
userRoleArn = Text
a} :: CreateStudio)
instance Core.AWSRequest CreateStudio where
type AWSResponse CreateStudio = CreateStudioResponse
request :: (Service -> Service) -> CreateStudio -> Request CreateStudio
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 CreateStudio
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateStudio)))
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 Studio -> Int -> CreateStudioResponse
CreateStudioResponse'
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
"studio")
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 CreateStudio where
hashWithSalt :: Int -> CreateStudio -> Int
hashWithSalt Int
_salt CreateStudio' {Maybe Text
Maybe (HashMap Text Text)
Maybe StudioEncryptionConfiguration
Text
Sensitive Text
userRoleArn :: Text
studioName :: Text
displayName :: Sensitive Text
adminRoleArn :: Text
tags :: Maybe (HashMap Text Text)
studioEncryptionConfiguration :: Maybe StudioEncryptionConfiguration
clientToken :: Maybe Text
$sel:userRoleArn:CreateStudio' :: CreateStudio -> Text
$sel:studioName:CreateStudio' :: CreateStudio -> Text
$sel:displayName:CreateStudio' :: CreateStudio -> Sensitive Text
$sel:adminRoleArn:CreateStudio' :: CreateStudio -> Text
$sel:tags:CreateStudio' :: CreateStudio -> Maybe (HashMap Text Text)
$sel:studioEncryptionConfiguration:CreateStudio' :: CreateStudio -> Maybe StudioEncryptionConfiguration
$sel:clientToken:CreateStudio' :: CreateStudio -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clientToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe StudioEncryptionConfiguration
studioEncryptionConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
adminRoleArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Sensitive Text
displayName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
studioName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
userRoleArn
instance Prelude.NFData CreateStudio where
rnf :: CreateStudio -> ()
rnf CreateStudio' {Maybe Text
Maybe (HashMap Text Text)
Maybe StudioEncryptionConfiguration
Text
Sensitive Text
userRoleArn :: Text
studioName :: Text
displayName :: Sensitive Text
adminRoleArn :: Text
tags :: Maybe (HashMap Text Text)
studioEncryptionConfiguration :: Maybe StudioEncryptionConfiguration
clientToken :: Maybe Text
$sel:userRoleArn:CreateStudio' :: CreateStudio -> Text
$sel:studioName:CreateStudio' :: CreateStudio -> Text
$sel:displayName:CreateStudio' :: CreateStudio -> Sensitive Text
$sel:adminRoleArn:CreateStudio' :: CreateStudio -> Text
$sel:tags:CreateStudio' :: CreateStudio -> Maybe (HashMap Text Text)
$sel:studioEncryptionConfiguration:CreateStudio' :: CreateStudio -> Maybe StudioEncryptionConfiguration
$sel:clientToken:CreateStudio' :: CreateStudio -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clientToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe StudioEncryptionConfiguration
studioEncryptionConfiguration
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 Text
adminRoleArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Sensitive Text
displayName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
studioName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
userRoleArn
instance Data.ToHeaders CreateStudio where
toHeaders :: CreateStudio -> ResponseHeaders
toHeaders CreateStudio' {Maybe Text
Maybe (HashMap Text Text)
Maybe StudioEncryptionConfiguration
Text
Sensitive Text
userRoleArn :: Text
studioName :: Text
displayName :: Sensitive Text
adminRoleArn :: Text
tags :: Maybe (HashMap Text Text)
studioEncryptionConfiguration :: Maybe StudioEncryptionConfiguration
clientToken :: Maybe Text
$sel:userRoleArn:CreateStudio' :: CreateStudio -> Text
$sel:studioName:CreateStudio' :: CreateStudio -> Text
$sel:displayName:CreateStudio' :: CreateStudio -> Sensitive Text
$sel:adminRoleArn:CreateStudio' :: CreateStudio -> Text
$sel:tags:CreateStudio' :: CreateStudio -> Maybe (HashMap Text Text)
$sel:studioEncryptionConfiguration:CreateStudio' :: CreateStudio -> Maybe StudioEncryptionConfiguration
$sel:clientToken:CreateStudio' :: CreateStudio -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Client-Token" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
clientToken,
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# (ByteString
"application/x-amz-json-1.1" :: Prelude.ByteString)
]
instance Data.ToJSON CreateStudio where
toJSON :: CreateStudio -> Value
toJSON CreateStudio' {Maybe Text
Maybe (HashMap Text Text)
Maybe StudioEncryptionConfiguration
Text
Sensitive Text
userRoleArn :: Text
studioName :: Text
displayName :: Sensitive Text
adminRoleArn :: Text
tags :: Maybe (HashMap Text Text)
studioEncryptionConfiguration :: Maybe StudioEncryptionConfiguration
clientToken :: Maybe Text
$sel:userRoleArn:CreateStudio' :: CreateStudio -> Text
$sel:studioName:CreateStudio' :: CreateStudio -> Text
$sel:displayName:CreateStudio' :: CreateStudio -> Sensitive Text
$sel:adminRoleArn:CreateStudio' :: CreateStudio -> Text
$sel:tags:CreateStudio' :: CreateStudio -> Maybe (HashMap Text Text)
$sel:studioEncryptionConfiguration:CreateStudio' :: CreateStudio -> Maybe StudioEncryptionConfiguration
$sel:clientToken:CreateStudio' :: CreateStudio -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"studioEncryptionConfiguration" 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 StudioEncryptionConfiguration
studioEncryptionConfiguration,
(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,
forall a. a -> Maybe a
Prelude.Just (Key
"adminRoleArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
adminRoleArn),
forall a. a -> Maybe a
Prelude.Just (Key
"displayName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Sensitive Text
displayName),
forall a. a -> Maybe a
Prelude.Just (Key
"studioName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
studioName),
forall a. a -> Maybe a
Prelude.Just (Key
"userRoleArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
userRoleArn)
]
)
instance Data.ToPath CreateStudio where
toPath :: CreateStudio -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/2020-08-01/studios"
instance Data.ToQuery CreateStudio where
toQuery :: CreateStudio -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateStudioResponse = CreateStudioResponse'
{
CreateStudioResponse -> Maybe Studio
studio :: Prelude.Maybe Studio,
CreateStudioResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateStudioResponse -> CreateStudioResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateStudioResponse -> CreateStudioResponse -> Bool
$c/= :: CreateStudioResponse -> CreateStudioResponse -> Bool
== :: CreateStudioResponse -> CreateStudioResponse -> Bool
$c== :: CreateStudioResponse -> CreateStudioResponse -> Bool
Prelude.Eq, Int -> CreateStudioResponse -> ShowS
[CreateStudioResponse] -> ShowS
CreateStudioResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateStudioResponse] -> ShowS
$cshowList :: [CreateStudioResponse] -> ShowS
show :: CreateStudioResponse -> String
$cshow :: CreateStudioResponse -> String
showsPrec :: Int -> CreateStudioResponse -> ShowS
$cshowsPrec :: Int -> CreateStudioResponse -> ShowS
Prelude.Show, forall x. Rep CreateStudioResponse x -> CreateStudioResponse
forall x. CreateStudioResponse -> Rep CreateStudioResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateStudioResponse x -> CreateStudioResponse
$cfrom :: forall x. CreateStudioResponse -> Rep CreateStudioResponse x
Prelude.Generic)
newCreateStudioResponse ::
Prelude.Int ->
CreateStudioResponse
newCreateStudioResponse :: Int -> CreateStudioResponse
newCreateStudioResponse Int
pHttpStatus_ =
CreateStudioResponse'
{ $sel:studio:CreateStudioResponse' :: Maybe Studio
studio = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateStudioResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createStudioResponse_studio :: Lens.Lens' CreateStudioResponse (Prelude.Maybe Studio)
createStudioResponse_studio :: Lens' CreateStudioResponse (Maybe Studio)
createStudioResponse_studio = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStudioResponse' {Maybe Studio
studio :: Maybe Studio
$sel:studio:CreateStudioResponse' :: CreateStudioResponse -> Maybe Studio
studio} -> Maybe Studio
studio) (\s :: CreateStudioResponse
s@CreateStudioResponse' {} Maybe Studio
a -> CreateStudioResponse
s {$sel:studio:CreateStudioResponse' :: Maybe Studio
studio = Maybe Studio
a} :: CreateStudioResponse)
createStudioResponse_httpStatus :: Lens.Lens' CreateStudioResponse Prelude.Int
createStudioResponse_httpStatus :: Lens' CreateStudioResponse Int
createStudioResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStudioResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateStudioResponse' :: CreateStudioResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateStudioResponse
s@CreateStudioResponse' {} Int
a -> CreateStudioResponse
s {$sel:httpStatus:CreateStudioResponse' :: Int
httpStatus = Int
a} :: CreateStudioResponse)
instance Prelude.NFData CreateStudioResponse where
rnf :: CreateStudioResponse -> ()
rnf CreateStudioResponse' {Int
Maybe Studio
httpStatus :: Int
studio :: Maybe Studio
$sel:httpStatus:CreateStudioResponse' :: CreateStudioResponse -> Int
$sel:studio:CreateStudioResponse' :: CreateStudioResponse -> Maybe Studio
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Studio
studio
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus