{-# 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.Proton.CreateEnvironmentAccountConnection
(
CreateEnvironmentAccountConnection (..),
newCreateEnvironmentAccountConnection,
createEnvironmentAccountConnection_clientToken,
createEnvironmentAccountConnection_codebuildRoleArn,
createEnvironmentAccountConnection_componentRoleArn,
createEnvironmentAccountConnection_roleArn,
createEnvironmentAccountConnection_tags,
createEnvironmentAccountConnection_environmentName,
createEnvironmentAccountConnection_managementAccountId,
CreateEnvironmentAccountConnectionResponse (..),
newCreateEnvironmentAccountConnectionResponse,
createEnvironmentAccountConnectionResponse_httpStatus,
createEnvironmentAccountConnectionResponse_environmentAccountConnection,
)
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 Amazonka.Proton.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateEnvironmentAccountConnection = CreateEnvironmentAccountConnection'
{
CreateEnvironmentAccountConnection -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
CreateEnvironmentAccountConnection -> Maybe Text
codebuildRoleArn :: Prelude.Maybe Prelude.Text,
CreateEnvironmentAccountConnection -> Maybe Text
componentRoleArn :: Prelude.Maybe Prelude.Text,
CreateEnvironmentAccountConnection -> Maybe Text
roleArn :: Prelude.Maybe Prelude.Text,
CreateEnvironmentAccountConnection -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
CreateEnvironmentAccountConnection -> Text
environmentName :: Prelude.Text,
CreateEnvironmentAccountConnection -> Text
managementAccountId :: Prelude.Text
}
deriving (CreateEnvironmentAccountConnection
-> CreateEnvironmentAccountConnection -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateEnvironmentAccountConnection
-> CreateEnvironmentAccountConnection -> Bool
$c/= :: CreateEnvironmentAccountConnection
-> CreateEnvironmentAccountConnection -> Bool
== :: CreateEnvironmentAccountConnection
-> CreateEnvironmentAccountConnection -> Bool
$c== :: CreateEnvironmentAccountConnection
-> CreateEnvironmentAccountConnection -> Bool
Prelude.Eq, ReadPrec [CreateEnvironmentAccountConnection]
ReadPrec CreateEnvironmentAccountConnection
Int -> ReadS CreateEnvironmentAccountConnection
ReadS [CreateEnvironmentAccountConnection]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateEnvironmentAccountConnection]
$creadListPrec :: ReadPrec [CreateEnvironmentAccountConnection]
readPrec :: ReadPrec CreateEnvironmentAccountConnection
$creadPrec :: ReadPrec CreateEnvironmentAccountConnection
readList :: ReadS [CreateEnvironmentAccountConnection]
$creadList :: ReadS [CreateEnvironmentAccountConnection]
readsPrec :: Int -> ReadS CreateEnvironmentAccountConnection
$creadsPrec :: Int -> ReadS CreateEnvironmentAccountConnection
Prelude.Read, Int -> CreateEnvironmentAccountConnection -> ShowS
[CreateEnvironmentAccountConnection] -> ShowS
CreateEnvironmentAccountConnection -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateEnvironmentAccountConnection] -> ShowS
$cshowList :: [CreateEnvironmentAccountConnection] -> ShowS
show :: CreateEnvironmentAccountConnection -> String
$cshow :: CreateEnvironmentAccountConnection -> String
showsPrec :: Int -> CreateEnvironmentAccountConnection -> ShowS
$cshowsPrec :: Int -> CreateEnvironmentAccountConnection -> ShowS
Prelude.Show, forall x.
Rep CreateEnvironmentAccountConnection x
-> CreateEnvironmentAccountConnection
forall x.
CreateEnvironmentAccountConnection
-> Rep CreateEnvironmentAccountConnection x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateEnvironmentAccountConnection x
-> CreateEnvironmentAccountConnection
$cfrom :: forall x.
CreateEnvironmentAccountConnection
-> Rep CreateEnvironmentAccountConnection x
Prelude.Generic)
newCreateEnvironmentAccountConnection ::
Prelude.Text ->
Prelude.Text ->
CreateEnvironmentAccountConnection
newCreateEnvironmentAccountConnection :: Text -> Text -> CreateEnvironmentAccountConnection
newCreateEnvironmentAccountConnection
Text
pEnvironmentName_
Text
pManagementAccountId_ =
CreateEnvironmentAccountConnection'
{ $sel:clientToken:CreateEnvironmentAccountConnection' :: Maybe Text
clientToken =
forall a. Maybe a
Prelude.Nothing,
$sel:codebuildRoleArn:CreateEnvironmentAccountConnection' :: Maybe Text
codebuildRoleArn = forall a. Maybe a
Prelude.Nothing,
$sel:componentRoleArn:CreateEnvironmentAccountConnection' :: Maybe Text
componentRoleArn = forall a. Maybe a
Prelude.Nothing,
$sel:roleArn:CreateEnvironmentAccountConnection' :: Maybe Text
roleArn = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateEnvironmentAccountConnection' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:environmentName:CreateEnvironmentAccountConnection' :: Text
environmentName = Text
pEnvironmentName_,
$sel:managementAccountId:CreateEnvironmentAccountConnection' :: Text
managementAccountId =
Text
pManagementAccountId_
}
createEnvironmentAccountConnection_clientToken :: Lens.Lens' CreateEnvironmentAccountConnection (Prelude.Maybe Prelude.Text)
createEnvironmentAccountConnection_clientToken :: Lens' CreateEnvironmentAccountConnection (Maybe Text)
createEnvironmentAccountConnection_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateEnvironmentAccountConnection' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: CreateEnvironmentAccountConnection
s@CreateEnvironmentAccountConnection' {} Maybe Text
a -> CreateEnvironmentAccountConnection
s {$sel:clientToken:CreateEnvironmentAccountConnection' :: Maybe Text
clientToken = Maybe Text
a} :: CreateEnvironmentAccountConnection)
createEnvironmentAccountConnection_codebuildRoleArn :: Lens.Lens' CreateEnvironmentAccountConnection (Prelude.Maybe Prelude.Text)
createEnvironmentAccountConnection_codebuildRoleArn :: Lens' CreateEnvironmentAccountConnection (Maybe Text)
createEnvironmentAccountConnection_codebuildRoleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateEnvironmentAccountConnection' {Maybe Text
codebuildRoleArn :: Maybe Text
$sel:codebuildRoleArn:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Maybe Text
codebuildRoleArn} -> Maybe Text
codebuildRoleArn) (\s :: CreateEnvironmentAccountConnection
s@CreateEnvironmentAccountConnection' {} Maybe Text
a -> CreateEnvironmentAccountConnection
s {$sel:codebuildRoleArn:CreateEnvironmentAccountConnection' :: Maybe Text
codebuildRoleArn = Maybe Text
a} :: CreateEnvironmentAccountConnection)
createEnvironmentAccountConnection_componentRoleArn :: Lens.Lens' CreateEnvironmentAccountConnection (Prelude.Maybe Prelude.Text)
createEnvironmentAccountConnection_componentRoleArn :: Lens' CreateEnvironmentAccountConnection (Maybe Text)
createEnvironmentAccountConnection_componentRoleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateEnvironmentAccountConnection' {Maybe Text
componentRoleArn :: Maybe Text
$sel:componentRoleArn:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Maybe Text
componentRoleArn} -> Maybe Text
componentRoleArn) (\s :: CreateEnvironmentAccountConnection
s@CreateEnvironmentAccountConnection' {} Maybe Text
a -> CreateEnvironmentAccountConnection
s {$sel:componentRoleArn:CreateEnvironmentAccountConnection' :: Maybe Text
componentRoleArn = Maybe Text
a} :: CreateEnvironmentAccountConnection)
createEnvironmentAccountConnection_roleArn :: Lens.Lens' CreateEnvironmentAccountConnection (Prelude.Maybe Prelude.Text)
createEnvironmentAccountConnection_roleArn :: Lens' CreateEnvironmentAccountConnection (Maybe Text)
createEnvironmentAccountConnection_roleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateEnvironmentAccountConnection' {Maybe Text
roleArn :: Maybe Text
$sel:roleArn:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Maybe Text
roleArn} -> Maybe Text
roleArn) (\s :: CreateEnvironmentAccountConnection
s@CreateEnvironmentAccountConnection' {} Maybe Text
a -> CreateEnvironmentAccountConnection
s {$sel:roleArn:CreateEnvironmentAccountConnection' :: Maybe Text
roleArn = Maybe Text
a} :: CreateEnvironmentAccountConnection)
createEnvironmentAccountConnection_tags :: Lens.Lens' CreateEnvironmentAccountConnection (Prelude.Maybe [Tag])
createEnvironmentAccountConnection_tags :: Lens' CreateEnvironmentAccountConnection (Maybe [Tag])
createEnvironmentAccountConnection_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateEnvironmentAccountConnection' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateEnvironmentAccountConnection
s@CreateEnvironmentAccountConnection' {} Maybe [Tag]
a -> CreateEnvironmentAccountConnection
s {$sel:tags:CreateEnvironmentAccountConnection' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateEnvironmentAccountConnection) 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
createEnvironmentAccountConnection_environmentName :: Lens.Lens' CreateEnvironmentAccountConnection Prelude.Text
createEnvironmentAccountConnection_environmentName :: Lens' CreateEnvironmentAccountConnection Text
createEnvironmentAccountConnection_environmentName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateEnvironmentAccountConnection' {Text
environmentName :: Text
$sel:environmentName:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Text
environmentName} -> Text
environmentName) (\s :: CreateEnvironmentAccountConnection
s@CreateEnvironmentAccountConnection' {} Text
a -> CreateEnvironmentAccountConnection
s {$sel:environmentName:CreateEnvironmentAccountConnection' :: Text
environmentName = Text
a} :: CreateEnvironmentAccountConnection)
createEnvironmentAccountConnection_managementAccountId :: Lens.Lens' CreateEnvironmentAccountConnection Prelude.Text
createEnvironmentAccountConnection_managementAccountId :: Lens' CreateEnvironmentAccountConnection Text
createEnvironmentAccountConnection_managementAccountId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateEnvironmentAccountConnection' {Text
managementAccountId :: Text
$sel:managementAccountId:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Text
managementAccountId} -> Text
managementAccountId) (\s :: CreateEnvironmentAccountConnection
s@CreateEnvironmentAccountConnection' {} Text
a -> CreateEnvironmentAccountConnection
s {$sel:managementAccountId:CreateEnvironmentAccountConnection' :: Text
managementAccountId = Text
a} :: CreateEnvironmentAccountConnection)
instance
Core.AWSRequest
CreateEnvironmentAccountConnection
where
type
AWSResponse CreateEnvironmentAccountConnection =
CreateEnvironmentAccountConnectionResponse
request :: (Service -> Service)
-> CreateEnvironmentAccountConnection
-> Request CreateEnvironmentAccountConnection
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 CreateEnvironmentAccountConnection
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse CreateEnvironmentAccountConnection)))
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 ->
Int
-> EnvironmentAccountConnection
-> CreateEnvironmentAccountConnectionResponse
CreateEnvironmentAccountConnectionResponse'
forall (f :: * -> *) a b. Functor 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))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"environmentAccountConnection")
)
instance
Prelude.Hashable
CreateEnvironmentAccountConnection
where
hashWithSalt :: Int -> CreateEnvironmentAccountConnection -> Int
hashWithSalt
Int
_salt
CreateEnvironmentAccountConnection' {Maybe [Tag]
Maybe Text
Text
managementAccountId :: Text
environmentName :: Text
tags :: Maybe [Tag]
roleArn :: Maybe Text
componentRoleArn :: Maybe Text
codebuildRoleArn :: Maybe Text
clientToken :: Maybe Text
$sel:managementAccountId:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Text
$sel:environmentName:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Text
$sel:tags:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Maybe [Tag]
$sel:roleArn:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Maybe Text
$sel:componentRoleArn:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Maybe Text
$sel:codebuildRoleArn:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Maybe Text
$sel:clientToken:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> 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 Text
codebuildRoleArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
componentRoleArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
roleArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
environmentName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
managementAccountId
instance
Prelude.NFData
CreateEnvironmentAccountConnection
where
rnf :: CreateEnvironmentAccountConnection -> ()
rnf CreateEnvironmentAccountConnection' {Maybe [Tag]
Maybe Text
Text
managementAccountId :: Text
environmentName :: Text
tags :: Maybe [Tag]
roleArn :: Maybe Text
componentRoleArn :: Maybe Text
codebuildRoleArn :: Maybe Text
clientToken :: Maybe Text
$sel:managementAccountId:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Text
$sel:environmentName:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Text
$sel:tags:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Maybe [Tag]
$sel:roleArn:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Maybe Text
$sel:componentRoleArn:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Maybe Text
$sel:codebuildRoleArn:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Maybe Text
$sel:clientToken:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> 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 Text
codebuildRoleArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
componentRoleArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
roleArn
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 Text
environmentName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
managementAccountId
instance
Data.ToHeaders
CreateEnvironmentAccountConnection
where
toHeaders :: CreateEnvironmentAccountConnection -> 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
"AwsProton20200720.CreateEnvironmentAccountConnection" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
Prelude.ByteString
)
]
)
instance
Data.ToJSON
CreateEnvironmentAccountConnection
where
toJSON :: CreateEnvironmentAccountConnection -> Value
toJSON CreateEnvironmentAccountConnection' {Maybe [Tag]
Maybe Text
Text
managementAccountId :: Text
environmentName :: Text
tags :: Maybe [Tag]
roleArn :: Maybe Text
componentRoleArn :: Maybe Text
codebuildRoleArn :: Maybe Text
clientToken :: Maybe Text
$sel:managementAccountId:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Text
$sel:environmentName:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Text
$sel:tags:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Maybe [Tag]
$sel:roleArn:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Maybe Text
$sel:componentRoleArn:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Maybe Text
$sel:codebuildRoleArn:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Maybe Text
$sel:clientToken:CreateEnvironmentAccountConnection' :: CreateEnvironmentAccountConnection -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"clientToken" 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
clientToken,
(Key
"codebuildRoleArn" 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
codebuildRoleArn,
(Key
"componentRoleArn" 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
componentRoleArn,
(Key
"roleArn" 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
roleArn,
(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,
forall a. a -> Maybe a
Prelude.Just
(Key
"environmentName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
environmentName),
forall a. a -> Maybe a
Prelude.Just
(Key
"managementAccountId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
managementAccountId)
]
)
instance
Data.ToPath
CreateEnvironmentAccountConnection
where
toPath :: CreateEnvironmentAccountConnection -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
CreateEnvironmentAccountConnection
where
toQuery :: CreateEnvironmentAccountConnection -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateEnvironmentAccountConnectionResponse = CreateEnvironmentAccountConnectionResponse'
{
CreateEnvironmentAccountConnectionResponse -> Int
httpStatus :: Prelude.Int,
CreateEnvironmentAccountConnectionResponse
-> EnvironmentAccountConnection
environmentAccountConnection :: EnvironmentAccountConnection
}
deriving (CreateEnvironmentAccountConnectionResponse
-> CreateEnvironmentAccountConnectionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateEnvironmentAccountConnectionResponse
-> CreateEnvironmentAccountConnectionResponse -> Bool
$c/= :: CreateEnvironmentAccountConnectionResponse
-> CreateEnvironmentAccountConnectionResponse -> Bool
== :: CreateEnvironmentAccountConnectionResponse
-> CreateEnvironmentAccountConnectionResponse -> Bool
$c== :: CreateEnvironmentAccountConnectionResponse
-> CreateEnvironmentAccountConnectionResponse -> Bool
Prelude.Eq, ReadPrec [CreateEnvironmentAccountConnectionResponse]
ReadPrec CreateEnvironmentAccountConnectionResponse
Int -> ReadS CreateEnvironmentAccountConnectionResponse
ReadS [CreateEnvironmentAccountConnectionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateEnvironmentAccountConnectionResponse]
$creadListPrec :: ReadPrec [CreateEnvironmentAccountConnectionResponse]
readPrec :: ReadPrec CreateEnvironmentAccountConnectionResponse
$creadPrec :: ReadPrec CreateEnvironmentAccountConnectionResponse
readList :: ReadS [CreateEnvironmentAccountConnectionResponse]
$creadList :: ReadS [CreateEnvironmentAccountConnectionResponse]
readsPrec :: Int -> ReadS CreateEnvironmentAccountConnectionResponse
$creadsPrec :: Int -> ReadS CreateEnvironmentAccountConnectionResponse
Prelude.Read, Int -> CreateEnvironmentAccountConnectionResponse -> ShowS
[CreateEnvironmentAccountConnectionResponse] -> ShowS
CreateEnvironmentAccountConnectionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateEnvironmentAccountConnectionResponse] -> ShowS
$cshowList :: [CreateEnvironmentAccountConnectionResponse] -> ShowS
show :: CreateEnvironmentAccountConnectionResponse -> String
$cshow :: CreateEnvironmentAccountConnectionResponse -> String
showsPrec :: Int -> CreateEnvironmentAccountConnectionResponse -> ShowS
$cshowsPrec :: Int -> CreateEnvironmentAccountConnectionResponse -> ShowS
Prelude.Show, forall x.
Rep CreateEnvironmentAccountConnectionResponse x
-> CreateEnvironmentAccountConnectionResponse
forall x.
CreateEnvironmentAccountConnectionResponse
-> Rep CreateEnvironmentAccountConnectionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateEnvironmentAccountConnectionResponse x
-> CreateEnvironmentAccountConnectionResponse
$cfrom :: forall x.
CreateEnvironmentAccountConnectionResponse
-> Rep CreateEnvironmentAccountConnectionResponse x
Prelude.Generic)
newCreateEnvironmentAccountConnectionResponse ::
Prelude.Int ->
EnvironmentAccountConnection ->
CreateEnvironmentAccountConnectionResponse
newCreateEnvironmentAccountConnectionResponse :: Int
-> EnvironmentAccountConnection
-> CreateEnvironmentAccountConnectionResponse
newCreateEnvironmentAccountConnectionResponse
Int
pHttpStatus_
EnvironmentAccountConnection
pEnvironmentAccountConnection_ =
CreateEnvironmentAccountConnectionResponse'
{ $sel:httpStatus:CreateEnvironmentAccountConnectionResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:environmentAccountConnection:CreateEnvironmentAccountConnectionResponse' :: EnvironmentAccountConnection
environmentAccountConnection =
EnvironmentAccountConnection
pEnvironmentAccountConnection_
}
createEnvironmentAccountConnectionResponse_httpStatus :: Lens.Lens' CreateEnvironmentAccountConnectionResponse Prelude.Int
createEnvironmentAccountConnectionResponse_httpStatus :: Lens' CreateEnvironmentAccountConnectionResponse Int
createEnvironmentAccountConnectionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateEnvironmentAccountConnectionResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateEnvironmentAccountConnectionResponse' :: CreateEnvironmentAccountConnectionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateEnvironmentAccountConnectionResponse
s@CreateEnvironmentAccountConnectionResponse' {} Int
a -> CreateEnvironmentAccountConnectionResponse
s {$sel:httpStatus:CreateEnvironmentAccountConnectionResponse' :: Int
httpStatus = Int
a} :: CreateEnvironmentAccountConnectionResponse)
createEnvironmentAccountConnectionResponse_environmentAccountConnection :: Lens.Lens' CreateEnvironmentAccountConnectionResponse EnvironmentAccountConnection
createEnvironmentAccountConnectionResponse_environmentAccountConnection :: Lens'
CreateEnvironmentAccountConnectionResponse
EnvironmentAccountConnection
createEnvironmentAccountConnectionResponse_environmentAccountConnection = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateEnvironmentAccountConnectionResponse' {EnvironmentAccountConnection
environmentAccountConnection :: EnvironmentAccountConnection
$sel:environmentAccountConnection:CreateEnvironmentAccountConnectionResponse' :: CreateEnvironmentAccountConnectionResponse
-> EnvironmentAccountConnection
environmentAccountConnection} -> EnvironmentAccountConnection
environmentAccountConnection) (\s :: CreateEnvironmentAccountConnectionResponse
s@CreateEnvironmentAccountConnectionResponse' {} EnvironmentAccountConnection
a -> CreateEnvironmentAccountConnectionResponse
s {$sel:environmentAccountConnection:CreateEnvironmentAccountConnectionResponse' :: EnvironmentAccountConnection
environmentAccountConnection = EnvironmentAccountConnection
a} :: CreateEnvironmentAccountConnectionResponse)
instance
Prelude.NFData
CreateEnvironmentAccountConnectionResponse
where
rnf :: CreateEnvironmentAccountConnectionResponse -> ()
rnf CreateEnvironmentAccountConnectionResponse' {Int
EnvironmentAccountConnection
environmentAccountConnection :: EnvironmentAccountConnection
httpStatus :: Int
$sel:environmentAccountConnection:CreateEnvironmentAccountConnectionResponse' :: CreateEnvironmentAccountConnectionResponse
-> EnvironmentAccountConnection
$sel:httpStatus:CreateEnvironmentAccountConnectionResponse' :: CreateEnvironmentAccountConnectionResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf EnvironmentAccountConnection
environmentAccountConnection