{-# 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.GameLift.CreateBuild
(
CreateBuild (..),
newCreateBuild,
createBuild_name,
createBuild_operatingSystem,
createBuild_serverSdkVersion,
createBuild_storageLocation,
createBuild_tags,
createBuild_version,
CreateBuildResponse (..),
newCreateBuildResponse,
createBuildResponse_build,
createBuildResponse_storageLocation,
createBuildResponse_uploadCredentials,
createBuildResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.GameLift.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateBuild = CreateBuild'
{
CreateBuild -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
CreateBuild -> Maybe OperatingSystem
operatingSystem :: Prelude.Maybe OperatingSystem,
CreateBuild -> Maybe Text
serverSdkVersion :: Prelude.Maybe Prelude.Text,
CreateBuild -> Maybe S3Location
storageLocation :: Prelude.Maybe S3Location,
CreateBuild -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
CreateBuild -> Maybe Text
version :: Prelude.Maybe Prelude.Text
}
deriving (CreateBuild -> CreateBuild -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateBuild -> CreateBuild -> Bool
$c/= :: CreateBuild -> CreateBuild -> Bool
== :: CreateBuild -> CreateBuild -> Bool
$c== :: CreateBuild -> CreateBuild -> Bool
Prelude.Eq, ReadPrec [CreateBuild]
ReadPrec CreateBuild
Int -> ReadS CreateBuild
ReadS [CreateBuild]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateBuild]
$creadListPrec :: ReadPrec [CreateBuild]
readPrec :: ReadPrec CreateBuild
$creadPrec :: ReadPrec CreateBuild
readList :: ReadS [CreateBuild]
$creadList :: ReadS [CreateBuild]
readsPrec :: Int -> ReadS CreateBuild
$creadsPrec :: Int -> ReadS CreateBuild
Prelude.Read, Int -> CreateBuild -> ShowS
[CreateBuild] -> ShowS
CreateBuild -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateBuild] -> ShowS
$cshowList :: [CreateBuild] -> ShowS
show :: CreateBuild -> String
$cshow :: CreateBuild -> String
showsPrec :: Int -> CreateBuild -> ShowS
$cshowsPrec :: Int -> CreateBuild -> ShowS
Prelude.Show, forall x. Rep CreateBuild x -> CreateBuild
forall x. CreateBuild -> Rep CreateBuild x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateBuild x -> CreateBuild
$cfrom :: forall x. CreateBuild -> Rep CreateBuild x
Prelude.Generic)
newCreateBuild ::
CreateBuild
newCreateBuild :: CreateBuild
newCreateBuild =
CreateBuild'
{ $sel:name:CreateBuild' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:operatingSystem:CreateBuild' :: Maybe OperatingSystem
operatingSystem = forall a. Maybe a
Prelude.Nothing,
$sel:serverSdkVersion:CreateBuild' :: Maybe Text
serverSdkVersion = forall a. Maybe a
Prelude.Nothing,
$sel:storageLocation:CreateBuild' :: Maybe S3Location
storageLocation = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateBuild' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:version:CreateBuild' :: Maybe Text
version = forall a. Maybe a
Prelude.Nothing
}
createBuild_name :: Lens.Lens' CreateBuild (Prelude.Maybe Prelude.Text)
createBuild_name :: Lens' CreateBuild (Maybe Text)
createBuild_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBuild' {Maybe Text
name :: Maybe Text
$sel:name:CreateBuild' :: CreateBuild -> Maybe Text
name} -> Maybe Text
name) (\s :: CreateBuild
s@CreateBuild' {} Maybe Text
a -> CreateBuild
s {$sel:name:CreateBuild' :: Maybe Text
name = Maybe Text
a} :: CreateBuild)
createBuild_operatingSystem :: Lens.Lens' CreateBuild (Prelude.Maybe OperatingSystem)
createBuild_operatingSystem :: Lens' CreateBuild (Maybe OperatingSystem)
createBuild_operatingSystem = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBuild' {Maybe OperatingSystem
operatingSystem :: Maybe OperatingSystem
$sel:operatingSystem:CreateBuild' :: CreateBuild -> Maybe OperatingSystem
operatingSystem} -> Maybe OperatingSystem
operatingSystem) (\s :: CreateBuild
s@CreateBuild' {} Maybe OperatingSystem
a -> CreateBuild
s {$sel:operatingSystem:CreateBuild' :: Maybe OperatingSystem
operatingSystem = Maybe OperatingSystem
a} :: CreateBuild)
createBuild_serverSdkVersion :: Lens.Lens' CreateBuild (Prelude.Maybe Prelude.Text)
createBuild_serverSdkVersion :: Lens' CreateBuild (Maybe Text)
createBuild_serverSdkVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBuild' {Maybe Text
serverSdkVersion :: Maybe Text
$sel:serverSdkVersion:CreateBuild' :: CreateBuild -> Maybe Text
serverSdkVersion} -> Maybe Text
serverSdkVersion) (\s :: CreateBuild
s@CreateBuild' {} Maybe Text
a -> CreateBuild
s {$sel:serverSdkVersion:CreateBuild' :: Maybe Text
serverSdkVersion = Maybe Text
a} :: CreateBuild)
createBuild_storageLocation :: Lens.Lens' CreateBuild (Prelude.Maybe S3Location)
createBuild_storageLocation :: Lens' CreateBuild (Maybe S3Location)
createBuild_storageLocation = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBuild' {Maybe S3Location
storageLocation :: Maybe S3Location
$sel:storageLocation:CreateBuild' :: CreateBuild -> Maybe S3Location
storageLocation} -> Maybe S3Location
storageLocation) (\s :: CreateBuild
s@CreateBuild' {} Maybe S3Location
a -> CreateBuild
s {$sel:storageLocation:CreateBuild' :: Maybe S3Location
storageLocation = Maybe S3Location
a} :: CreateBuild)
createBuild_tags :: Lens.Lens' CreateBuild (Prelude.Maybe [Tag])
createBuild_tags :: Lens' CreateBuild (Maybe [Tag])
createBuild_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBuild' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateBuild' :: CreateBuild -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateBuild
s@CreateBuild' {} Maybe [Tag]
a -> CreateBuild
s {$sel:tags:CreateBuild' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateBuild) 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
createBuild_version :: Lens.Lens' CreateBuild (Prelude.Maybe Prelude.Text)
createBuild_version :: Lens' CreateBuild (Maybe Text)
createBuild_version = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBuild' {Maybe Text
version :: Maybe Text
$sel:version:CreateBuild' :: CreateBuild -> Maybe Text
version} -> Maybe Text
version) (\s :: CreateBuild
s@CreateBuild' {} Maybe Text
a -> CreateBuild
s {$sel:version:CreateBuild' :: Maybe Text
version = Maybe Text
a} :: CreateBuild)
instance Core.AWSRequest CreateBuild where
type AWSResponse CreateBuild = CreateBuildResponse
request :: (Service -> Service) -> CreateBuild -> Request CreateBuild
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 CreateBuild
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateBuild)))
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 Build
-> Maybe S3Location
-> Maybe (Sensitive AwsCredentials)
-> Int
-> CreateBuildResponse
CreateBuildResponse'
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
"Build")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"StorageLocation")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"UploadCredentials")
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 CreateBuild where
hashWithSalt :: Int -> CreateBuild -> Int
hashWithSalt Int
_salt CreateBuild' {Maybe [Tag]
Maybe Text
Maybe OperatingSystem
Maybe S3Location
version :: Maybe Text
tags :: Maybe [Tag]
storageLocation :: Maybe S3Location
serverSdkVersion :: Maybe Text
operatingSystem :: Maybe OperatingSystem
name :: Maybe Text
$sel:version:CreateBuild' :: CreateBuild -> Maybe Text
$sel:tags:CreateBuild' :: CreateBuild -> Maybe [Tag]
$sel:storageLocation:CreateBuild' :: CreateBuild -> Maybe S3Location
$sel:serverSdkVersion:CreateBuild' :: CreateBuild -> Maybe Text
$sel:operatingSystem:CreateBuild' :: CreateBuild -> Maybe OperatingSystem
$sel:name:CreateBuild' :: CreateBuild -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe OperatingSystem
operatingSystem
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
serverSdkVersion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe S3Location
storageLocation
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
version
instance Prelude.NFData CreateBuild where
rnf :: CreateBuild -> ()
rnf CreateBuild' {Maybe [Tag]
Maybe Text
Maybe OperatingSystem
Maybe S3Location
version :: Maybe Text
tags :: Maybe [Tag]
storageLocation :: Maybe S3Location
serverSdkVersion :: Maybe Text
operatingSystem :: Maybe OperatingSystem
name :: Maybe Text
$sel:version:CreateBuild' :: CreateBuild -> Maybe Text
$sel:tags:CreateBuild' :: CreateBuild -> Maybe [Tag]
$sel:storageLocation:CreateBuild' :: CreateBuild -> Maybe S3Location
$sel:serverSdkVersion:CreateBuild' :: CreateBuild -> Maybe Text
$sel:operatingSystem:CreateBuild' :: CreateBuild -> Maybe OperatingSystem
$sel:name:CreateBuild' :: CreateBuild -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe OperatingSystem
operatingSystem
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
serverSdkVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe S3Location
storageLocation
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 Text
version
instance Data.ToHeaders CreateBuild where
toHeaders :: CreateBuild -> 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
"GameLift.CreateBuild" :: 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 CreateBuild where
toJSON :: CreateBuild -> Value
toJSON CreateBuild' {Maybe [Tag]
Maybe Text
Maybe OperatingSystem
Maybe S3Location
version :: Maybe Text
tags :: Maybe [Tag]
storageLocation :: Maybe S3Location
serverSdkVersion :: Maybe Text
operatingSystem :: Maybe OperatingSystem
name :: Maybe Text
$sel:version:CreateBuild' :: CreateBuild -> Maybe Text
$sel:tags:CreateBuild' :: CreateBuild -> Maybe [Tag]
$sel:storageLocation:CreateBuild' :: CreateBuild -> Maybe S3Location
$sel:serverSdkVersion:CreateBuild' :: CreateBuild -> Maybe Text
$sel:operatingSystem:CreateBuild' :: CreateBuild -> Maybe OperatingSystem
$sel:name:CreateBuild' :: CreateBuild -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"Name" 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
name,
(Key
"OperatingSystem" 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 OperatingSystem
operatingSystem,
(Key
"ServerSdkVersion" 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
serverSdkVersion,
(Key
"StorageLocation" 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
storageLocation,
(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
"Version" 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
version
]
)
instance Data.ToPath CreateBuild where
toPath :: CreateBuild -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateBuild where
toQuery :: CreateBuild -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateBuildResponse = CreateBuildResponse'
{
CreateBuildResponse -> Maybe Build
build :: Prelude.Maybe Build,
CreateBuildResponse -> Maybe S3Location
storageLocation :: Prelude.Maybe S3Location,
CreateBuildResponse -> Maybe (Sensitive AwsCredentials)
uploadCredentials :: Prelude.Maybe (Data.Sensitive AwsCredentials),
CreateBuildResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateBuildResponse -> CreateBuildResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateBuildResponse -> CreateBuildResponse -> Bool
$c/= :: CreateBuildResponse -> CreateBuildResponse -> Bool
== :: CreateBuildResponse -> CreateBuildResponse -> Bool
$c== :: CreateBuildResponse -> CreateBuildResponse -> Bool
Prelude.Eq, Int -> CreateBuildResponse -> ShowS
[CreateBuildResponse] -> ShowS
CreateBuildResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateBuildResponse] -> ShowS
$cshowList :: [CreateBuildResponse] -> ShowS
show :: CreateBuildResponse -> String
$cshow :: CreateBuildResponse -> String
showsPrec :: Int -> CreateBuildResponse -> ShowS
$cshowsPrec :: Int -> CreateBuildResponse -> ShowS
Prelude.Show, forall x. Rep CreateBuildResponse x -> CreateBuildResponse
forall x. CreateBuildResponse -> Rep CreateBuildResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateBuildResponse x -> CreateBuildResponse
$cfrom :: forall x. CreateBuildResponse -> Rep CreateBuildResponse x
Prelude.Generic)
newCreateBuildResponse ::
Prelude.Int ->
CreateBuildResponse
newCreateBuildResponse :: Int -> CreateBuildResponse
newCreateBuildResponse Int
pHttpStatus_ =
CreateBuildResponse'
{ $sel:build:CreateBuildResponse' :: Maybe Build
build = forall a. Maybe a
Prelude.Nothing,
$sel:storageLocation:CreateBuildResponse' :: Maybe S3Location
storageLocation = forall a. Maybe a
Prelude.Nothing,
$sel:uploadCredentials:CreateBuildResponse' :: Maybe (Sensitive AwsCredentials)
uploadCredentials = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateBuildResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createBuildResponse_build :: Lens.Lens' CreateBuildResponse (Prelude.Maybe Build)
createBuildResponse_build :: Lens' CreateBuildResponse (Maybe Build)
createBuildResponse_build = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBuildResponse' {Maybe Build
build :: Maybe Build
$sel:build:CreateBuildResponse' :: CreateBuildResponse -> Maybe Build
build} -> Maybe Build
build) (\s :: CreateBuildResponse
s@CreateBuildResponse' {} Maybe Build
a -> CreateBuildResponse
s {$sel:build:CreateBuildResponse' :: Maybe Build
build = Maybe Build
a} :: CreateBuildResponse)
createBuildResponse_storageLocation :: Lens.Lens' CreateBuildResponse (Prelude.Maybe S3Location)
createBuildResponse_storageLocation :: Lens' CreateBuildResponse (Maybe S3Location)
createBuildResponse_storageLocation = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBuildResponse' {Maybe S3Location
storageLocation :: Maybe S3Location
$sel:storageLocation:CreateBuildResponse' :: CreateBuildResponse -> Maybe S3Location
storageLocation} -> Maybe S3Location
storageLocation) (\s :: CreateBuildResponse
s@CreateBuildResponse' {} Maybe S3Location
a -> CreateBuildResponse
s {$sel:storageLocation:CreateBuildResponse' :: Maybe S3Location
storageLocation = Maybe S3Location
a} :: CreateBuildResponse)
createBuildResponse_uploadCredentials :: Lens.Lens' CreateBuildResponse (Prelude.Maybe AwsCredentials)
createBuildResponse_uploadCredentials :: Lens' CreateBuildResponse (Maybe AwsCredentials)
createBuildResponse_uploadCredentials = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBuildResponse' {Maybe (Sensitive AwsCredentials)
uploadCredentials :: Maybe (Sensitive AwsCredentials)
$sel:uploadCredentials:CreateBuildResponse' :: CreateBuildResponse -> Maybe (Sensitive AwsCredentials)
uploadCredentials} -> Maybe (Sensitive AwsCredentials)
uploadCredentials) (\s :: CreateBuildResponse
s@CreateBuildResponse' {} Maybe (Sensitive AwsCredentials)
a -> CreateBuildResponse
s {$sel:uploadCredentials:CreateBuildResponse' :: Maybe (Sensitive AwsCredentials)
uploadCredentials = Maybe (Sensitive AwsCredentials)
a} :: CreateBuildResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall a. Iso' (Sensitive a) a
Data._Sensitive
createBuildResponse_httpStatus :: Lens.Lens' CreateBuildResponse Prelude.Int
createBuildResponse_httpStatus :: Lens' CreateBuildResponse Int
createBuildResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBuildResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateBuildResponse' :: CreateBuildResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateBuildResponse
s@CreateBuildResponse' {} Int
a -> CreateBuildResponse
s {$sel:httpStatus:CreateBuildResponse' :: Int
httpStatus = Int
a} :: CreateBuildResponse)
instance Prelude.NFData CreateBuildResponse where
rnf :: CreateBuildResponse -> ()
rnf CreateBuildResponse' {Int
Maybe (Sensitive AwsCredentials)
Maybe Build
Maybe S3Location
httpStatus :: Int
uploadCredentials :: Maybe (Sensitive AwsCredentials)
storageLocation :: Maybe S3Location
build :: Maybe Build
$sel:httpStatus:CreateBuildResponse' :: CreateBuildResponse -> Int
$sel:uploadCredentials:CreateBuildResponse' :: CreateBuildResponse -> Maybe (Sensitive AwsCredentials)
$sel:storageLocation:CreateBuildResponse' :: CreateBuildResponse -> Maybe S3Location
$sel:build:CreateBuildResponse' :: CreateBuildResponse -> Maybe Build
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Build
build
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe S3Location
storageLocation
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive AwsCredentials)
uploadCredentials
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus