{-# 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.QuickSight.CreateAccountCustomization
(
CreateAccountCustomization (..),
newCreateAccountCustomization,
createAccountCustomization_namespace,
createAccountCustomization_tags,
createAccountCustomization_awsAccountId,
createAccountCustomization_accountCustomization,
CreateAccountCustomizationResponse (..),
newCreateAccountCustomizationResponse,
createAccountCustomizationResponse_accountCustomization,
createAccountCustomizationResponse_arn,
createAccountCustomizationResponse_awsAccountId,
createAccountCustomizationResponse_namespace,
createAccountCustomizationResponse_requestId,
createAccountCustomizationResponse_status,
)
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.QuickSight.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateAccountCustomization = CreateAccountCustomization'
{
CreateAccountCustomization -> Maybe Text
namespace :: Prelude.Maybe Prelude.Text,
CreateAccountCustomization -> Maybe (NonEmpty Tag)
tags :: Prelude.Maybe (Prelude.NonEmpty Tag),
CreateAccountCustomization -> Text
awsAccountId :: Prelude.Text,
CreateAccountCustomization -> AccountCustomization
accountCustomization :: AccountCustomization
}
deriving (CreateAccountCustomization -> CreateAccountCustomization -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateAccountCustomization -> CreateAccountCustomization -> Bool
$c/= :: CreateAccountCustomization -> CreateAccountCustomization -> Bool
== :: CreateAccountCustomization -> CreateAccountCustomization -> Bool
$c== :: CreateAccountCustomization -> CreateAccountCustomization -> Bool
Prelude.Eq, ReadPrec [CreateAccountCustomization]
ReadPrec CreateAccountCustomization
Int -> ReadS CreateAccountCustomization
ReadS [CreateAccountCustomization]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateAccountCustomization]
$creadListPrec :: ReadPrec [CreateAccountCustomization]
readPrec :: ReadPrec CreateAccountCustomization
$creadPrec :: ReadPrec CreateAccountCustomization
readList :: ReadS [CreateAccountCustomization]
$creadList :: ReadS [CreateAccountCustomization]
readsPrec :: Int -> ReadS CreateAccountCustomization
$creadsPrec :: Int -> ReadS CreateAccountCustomization
Prelude.Read, Int -> CreateAccountCustomization -> ShowS
[CreateAccountCustomization] -> ShowS
CreateAccountCustomization -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateAccountCustomization] -> ShowS
$cshowList :: [CreateAccountCustomization] -> ShowS
show :: CreateAccountCustomization -> String
$cshow :: CreateAccountCustomization -> String
showsPrec :: Int -> CreateAccountCustomization -> ShowS
$cshowsPrec :: Int -> CreateAccountCustomization -> ShowS
Prelude.Show, forall x.
Rep CreateAccountCustomization x -> CreateAccountCustomization
forall x.
CreateAccountCustomization -> Rep CreateAccountCustomization x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateAccountCustomization x -> CreateAccountCustomization
$cfrom :: forall x.
CreateAccountCustomization -> Rep CreateAccountCustomization x
Prelude.Generic)
newCreateAccountCustomization ::
Prelude.Text ->
AccountCustomization ->
CreateAccountCustomization
newCreateAccountCustomization :: Text -> AccountCustomization -> CreateAccountCustomization
newCreateAccountCustomization
Text
pAwsAccountId_
AccountCustomization
pAccountCustomization_ =
CreateAccountCustomization'
{ $sel:namespace:CreateAccountCustomization' :: Maybe Text
namespace =
forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateAccountCustomization' :: Maybe (NonEmpty Tag)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:awsAccountId:CreateAccountCustomization' :: Text
awsAccountId = Text
pAwsAccountId_,
$sel:accountCustomization:CreateAccountCustomization' :: AccountCustomization
accountCustomization = AccountCustomization
pAccountCustomization_
}
createAccountCustomization_namespace :: Lens.Lens' CreateAccountCustomization (Prelude.Maybe Prelude.Text)
createAccountCustomization_namespace :: Lens' CreateAccountCustomization (Maybe Text)
createAccountCustomization_namespace = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAccountCustomization' {Maybe Text
namespace :: Maybe Text
$sel:namespace:CreateAccountCustomization' :: CreateAccountCustomization -> Maybe Text
namespace} -> Maybe Text
namespace) (\s :: CreateAccountCustomization
s@CreateAccountCustomization' {} Maybe Text
a -> CreateAccountCustomization
s {$sel:namespace:CreateAccountCustomization' :: Maybe Text
namespace = Maybe Text
a} :: CreateAccountCustomization)
createAccountCustomization_tags :: Lens.Lens' CreateAccountCustomization (Prelude.Maybe (Prelude.NonEmpty Tag))
createAccountCustomization_tags :: Lens' CreateAccountCustomization (Maybe (NonEmpty Tag))
createAccountCustomization_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAccountCustomization' {Maybe (NonEmpty Tag)
tags :: Maybe (NonEmpty Tag)
$sel:tags:CreateAccountCustomization' :: CreateAccountCustomization -> Maybe (NonEmpty Tag)
tags} -> Maybe (NonEmpty Tag)
tags) (\s :: CreateAccountCustomization
s@CreateAccountCustomization' {} Maybe (NonEmpty Tag)
a -> CreateAccountCustomization
s {$sel:tags:CreateAccountCustomization' :: Maybe (NonEmpty Tag)
tags = Maybe (NonEmpty Tag)
a} :: CreateAccountCustomization) 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
createAccountCustomization_awsAccountId :: Lens.Lens' CreateAccountCustomization Prelude.Text
createAccountCustomization_awsAccountId :: Lens' CreateAccountCustomization Text
createAccountCustomization_awsAccountId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAccountCustomization' {Text
awsAccountId :: Text
$sel:awsAccountId:CreateAccountCustomization' :: CreateAccountCustomization -> Text
awsAccountId} -> Text
awsAccountId) (\s :: CreateAccountCustomization
s@CreateAccountCustomization' {} Text
a -> CreateAccountCustomization
s {$sel:awsAccountId:CreateAccountCustomization' :: Text
awsAccountId = Text
a} :: CreateAccountCustomization)
createAccountCustomization_accountCustomization :: Lens.Lens' CreateAccountCustomization AccountCustomization
createAccountCustomization_accountCustomization :: Lens' CreateAccountCustomization AccountCustomization
createAccountCustomization_accountCustomization = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAccountCustomization' {AccountCustomization
accountCustomization :: AccountCustomization
$sel:accountCustomization:CreateAccountCustomization' :: CreateAccountCustomization -> AccountCustomization
accountCustomization} -> AccountCustomization
accountCustomization) (\s :: CreateAccountCustomization
s@CreateAccountCustomization' {} AccountCustomization
a -> CreateAccountCustomization
s {$sel:accountCustomization:CreateAccountCustomization' :: AccountCustomization
accountCustomization = AccountCustomization
a} :: CreateAccountCustomization)
instance Core.AWSRequest CreateAccountCustomization where
type
AWSResponse CreateAccountCustomization =
CreateAccountCustomizationResponse
request :: (Service -> Service)
-> CreateAccountCustomization -> Request CreateAccountCustomization
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 CreateAccountCustomization
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateAccountCustomization)))
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 AccountCustomization
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> CreateAccountCustomizationResponse
CreateAccountCustomizationResponse'
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
"AccountCustomization")
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
"Arn")
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
"AwsAccountId")
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
"Namespace")
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
"RequestId")
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 CreateAccountCustomization where
hashWithSalt :: Int -> CreateAccountCustomization -> Int
hashWithSalt Int
_salt CreateAccountCustomization' {Maybe (NonEmpty Tag)
Maybe Text
Text
AccountCustomization
accountCustomization :: AccountCustomization
awsAccountId :: Text
tags :: Maybe (NonEmpty Tag)
namespace :: Maybe Text
$sel:accountCustomization:CreateAccountCustomization' :: CreateAccountCustomization -> AccountCustomization
$sel:awsAccountId:CreateAccountCustomization' :: CreateAccountCustomization -> Text
$sel:tags:CreateAccountCustomization' :: CreateAccountCustomization -> Maybe (NonEmpty Tag)
$sel:namespace:CreateAccountCustomization' :: CreateAccountCustomization -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
namespace
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (NonEmpty Tag)
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
awsAccountId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` AccountCustomization
accountCustomization
instance Prelude.NFData CreateAccountCustomization where
rnf :: CreateAccountCustomization -> ()
rnf CreateAccountCustomization' {Maybe (NonEmpty Tag)
Maybe Text
Text
AccountCustomization
accountCustomization :: AccountCustomization
awsAccountId :: Text
tags :: Maybe (NonEmpty Tag)
namespace :: Maybe Text
$sel:accountCustomization:CreateAccountCustomization' :: CreateAccountCustomization -> AccountCustomization
$sel:awsAccountId:CreateAccountCustomization' :: CreateAccountCustomization -> Text
$sel:tags:CreateAccountCustomization' :: CreateAccountCustomization -> Maybe (NonEmpty Tag)
$sel:namespace:CreateAccountCustomization' :: CreateAccountCustomization -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
namespace
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty Tag)
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
awsAccountId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf AccountCustomization
accountCustomization
instance Data.ToHeaders CreateAccountCustomization where
toHeaders :: CreateAccountCustomization -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON CreateAccountCustomization where
toJSON :: CreateAccountCustomization -> Value
toJSON CreateAccountCustomization' {Maybe (NonEmpty Tag)
Maybe Text
Text
AccountCustomization
accountCustomization :: AccountCustomization
awsAccountId :: Text
tags :: Maybe (NonEmpty Tag)
namespace :: Maybe Text
$sel:accountCustomization:CreateAccountCustomization' :: CreateAccountCustomization -> AccountCustomization
$sel:awsAccountId:CreateAccountCustomization' :: CreateAccountCustomization -> Text
$sel:tags:CreateAccountCustomization' :: CreateAccountCustomization -> Maybe (NonEmpty Tag)
$sel:namespace:CreateAccountCustomization' :: CreateAccountCustomization -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (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 (NonEmpty Tag)
tags,
forall a. a -> Maybe a
Prelude.Just
( Key
"AccountCustomization"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= AccountCustomization
accountCustomization
)
]
)
instance Data.ToPath CreateAccountCustomization where
toPath :: CreateAccountCustomization -> ByteString
toPath CreateAccountCustomization' {Maybe (NonEmpty Tag)
Maybe Text
Text
AccountCustomization
accountCustomization :: AccountCustomization
awsAccountId :: Text
tags :: Maybe (NonEmpty Tag)
namespace :: Maybe Text
$sel:accountCustomization:CreateAccountCustomization' :: CreateAccountCustomization -> AccountCustomization
$sel:awsAccountId:CreateAccountCustomization' :: CreateAccountCustomization -> Text
$sel:tags:CreateAccountCustomization' :: CreateAccountCustomization -> Maybe (NonEmpty Tag)
$sel:namespace:CreateAccountCustomization' :: CreateAccountCustomization -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/accounts/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
awsAccountId,
ByteString
"/customizations"
]
instance Data.ToQuery CreateAccountCustomization where
toQuery :: CreateAccountCustomization -> QueryString
toQuery CreateAccountCustomization' {Maybe (NonEmpty Tag)
Maybe Text
Text
AccountCustomization
accountCustomization :: AccountCustomization
awsAccountId :: Text
tags :: Maybe (NonEmpty Tag)
namespace :: Maybe Text
$sel:accountCustomization:CreateAccountCustomization' :: CreateAccountCustomization -> AccountCustomization
$sel:awsAccountId:CreateAccountCustomization' :: CreateAccountCustomization -> Text
$sel:tags:CreateAccountCustomization' :: CreateAccountCustomization -> Maybe (NonEmpty Tag)
$sel:namespace:CreateAccountCustomization' :: CreateAccountCustomization -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"namespace" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
namespace]
data CreateAccountCustomizationResponse = CreateAccountCustomizationResponse'
{
CreateAccountCustomizationResponse -> Maybe AccountCustomization
accountCustomization :: Prelude.Maybe AccountCustomization,
CreateAccountCustomizationResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
CreateAccountCustomizationResponse -> Maybe Text
awsAccountId :: Prelude.Maybe Prelude.Text,
CreateAccountCustomizationResponse -> Maybe Text
namespace :: Prelude.Maybe Prelude.Text,
CreateAccountCustomizationResponse -> Maybe Text
requestId :: Prelude.Maybe Prelude.Text,
CreateAccountCustomizationResponse -> Int
status :: Prelude.Int
}
deriving (CreateAccountCustomizationResponse
-> CreateAccountCustomizationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateAccountCustomizationResponse
-> CreateAccountCustomizationResponse -> Bool
$c/= :: CreateAccountCustomizationResponse
-> CreateAccountCustomizationResponse -> Bool
== :: CreateAccountCustomizationResponse
-> CreateAccountCustomizationResponse -> Bool
$c== :: CreateAccountCustomizationResponse
-> CreateAccountCustomizationResponse -> Bool
Prelude.Eq, ReadPrec [CreateAccountCustomizationResponse]
ReadPrec CreateAccountCustomizationResponse
Int -> ReadS CreateAccountCustomizationResponse
ReadS [CreateAccountCustomizationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateAccountCustomizationResponse]
$creadListPrec :: ReadPrec [CreateAccountCustomizationResponse]
readPrec :: ReadPrec CreateAccountCustomizationResponse
$creadPrec :: ReadPrec CreateAccountCustomizationResponse
readList :: ReadS [CreateAccountCustomizationResponse]
$creadList :: ReadS [CreateAccountCustomizationResponse]
readsPrec :: Int -> ReadS CreateAccountCustomizationResponse
$creadsPrec :: Int -> ReadS CreateAccountCustomizationResponse
Prelude.Read, Int -> CreateAccountCustomizationResponse -> ShowS
[CreateAccountCustomizationResponse] -> ShowS
CreateAccountCustomizationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateAccountCustomizationResponse] -> ShowS
$cshowList :: [CreateAccountCustomizationResponse] -> ShowS
show :: CreateAccountCustomizationResponse -> String
$cshow :: CreateAccountCustomizationResponse -> String
showsPrec :: Int -> CreateAccountCustomizationResponse -> ShowS
$cshowsPrec :: Int -> CreateAccountCustomizationResponse -> ShowS
Prelude.Show, forall x.
Rep CreateAccountCustomizationResponse x
-> CreateAccountCustomizationResponse
forall x.
CreateAccountCustomizationResponse
-> Rep CreateAccountCustomizationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateAccountCustomizationResponse x
-> CreateAccountCustomizationResponse
$cfrom :: forall x.
CreateAccountCustomizationResponse
-> Rep CreateAccountCustomizationResponse x
Prelude.Generic)
newCreateAccountCustomizationResponse ::
Prelude.Int ->
CreateAccountCustomizationResponse
newCreateAccountCustomizationResponse :: Int -> CreateAccountCustomizationResponse
newCreateAccountCustomizationResponse Int
pStatus_ =
CreateAccountCustomizationResponse'
{ $sel:accountCustomization:CreateAccountCustomizationResponse' :: Maybe AccountCustomization
accountCustomization =
forall a. Maybe a
Prelude.Nothing,
$sel:arn:CreateAccountCustomizationResponse' :: Maybe Text
arn = forall a. Maybe a
Prelude.Nothing,
$sel:awsAccountId:CreateAccountCustomizationResponse' :: Maybe Text
awsAccountId = forall a. Maybe a
Prelude.Nothing,
$sel:namespace:CreateAccountCustomizationResponse' :: Maybe Text
namespace = forall a. Maybe a
Prelude.Nothing,
$sel:requestId:CreateAccountCustomizationResponse' :: Maybe Text
requestId = forall a. Maybe a
Prelude.Nothing,
$sel:status:CreateAccountCustomizationResponse' :: Int
status = Int
pStatus_
}
createAccountCustomizationResponse_accountCustomization :: Lens.Lens' CreateAccountCustomizationResponse (Prelude.Maybe AccountCustomization)
createAccountCustomizationResponse_accountCustomization :: Lens'
CreateAccountCustomizationResponse (Maybe AccountCustomization)
createAccountCustomizationResponse_accountCustomization = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAccountCustomizationResponse' {Maybe AccountCustomization
accountCustomization :: Maybe AccountCustomization
$sel:accountCustomization:CreateAccountCustomizationResponse' :: CreateAccountCustomizationResponse -> Maybe AccountCustomization
accountCustomization} -> Maybe AccountCustomization
accountCustomization) (\s :: CreateAccountCustomizationResponse
s@CreateAccountCustomizationResponse' {} Maybe AccountCustomization
a -> CreateAccountCustomizationResponse
s {$sel:accountCustomization:CreateAccountCustomizationResponse' :: Maybe AccountCustomization
accountCustomization = Maybe AccountCustomization
a} :: CreateAccountCustomizationResponse)
createAccountCustomizationResponse_arn :: Lens.Lens' CreateAccountCustomizationResponse (Prelude.Maybe Prelude.Text)
createAccountCustomizationResponse_arn :: Lens' CreateAccountCustomizationResponse (Maybe Text)
createAccountCustomizationResponse_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAccountCustomizationResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:CreateAccountCustomizationResponse' :: CreateAccountCustomizationResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: CreateAccountCustomizationResponse
s@CreateAccountCustomizationResponse' {} Maybe Text
a -> CreateAccountCustomizationResponse
s {$sel:arn:CreateAccountCustomizationResponse' :: Maybe Text
arn = Maybe Text
a} :: CreateAccountCustomizationResponse)
createAccountCustomizationResponse_awsAccountId :: Lens.Lens' CreateAccountCustomizationResponse (Prelude.Maybe Prelude.Text)
createAccountCustomizationResponse_awsAccountId :: Lens' CreateAccountCustomizationResponse (Maybe Text)
createAccountCustomizationResponse_awsAccountId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAccountCustomizationResponse' {Maybe Text
awsAccountId :: Maybe Text
$sel:awsAccountId:CreateAccountCustomizationResponse' :: CreateAccountCustomizationResponse -> Maybe Text
awsAccountId} -> Maybe Text
awsAccountId) (\s :: CreateAccountCustomizationResponse
s@CreateAccountCustomizationResponse' {} Maybe Text
a -> CreateAccountCustomizationResponse
s {$sel:awsAccountId:CreateAccountCustomizationResponse' :: Maybe Text
awsAccountId = Maybe Text
a} :: CreateAccountCustomizationResponse)
createAccountCustomizationResponse_namespace :: Lens.Lens' CreateAccountCustomizationResponse (Prelude.Maybe Prelude.Text)
createAccountCustomizationResponse_namespace :: Lens' CreateAccountCustomizationResponse (Maybe Text)
createAccountCustomizationResponse_namespace = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAccountCustomizationResponse' {Maybe Text
namespace :: Maybe Text
$sel:namespace:CreateAccountCustomizationResponse' :: CreateAccountCustomizationResponse -> Maybe Text
namespace} -> Maybe Text
namespace) (\s :: CreateAccountCustomizationResponse
s@CreateAccountCustomizationResponse' {} Maybe Text
a -> CreateAccountCustomizationResponse
s {$sel:namespace:CreateAccountCustomizationResponse' :: Maybe Text
namespace = Maybe Text
a} :: CreateAccountCustomizationResponse)
createAccountCustomizationResponse_requestId :: Lens.Lens' CreateAccountCustomizationResponse (Prelude.Maybe Prelude.Text)
createAccountCustomizationResponse_requestId :: Lens' CreateAccountCustomizationResponse (Maybe Text)
createAccountCustomizationResponse_requestId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAccountCustomizationResponse' {Maybe Text
requestId :: Maybe Text
$sel:requestId:CreateAccountCustomizationResponse' :: CreateAccountCustomizationResponse -> Maybe Text
requestId} -> Maybe Text
requestId) (\s :: CreateAccountCustomizationResponse
s@CreateAccountCustomizationResponse' {} Maybe Text
a -> CreateAccountCustomizationResponse
s {$sel:requestId:CreateAccountCustomizationResponse' :: Maybe Text
requestId = Maybe Text
a} :: CreateAccountCustomizationResponse)
createAccountCustomizationResponse_status :: Lens.Lens' CreateAccountCustomizationResponse Prelude.Int
createAccountCustomizationResponse_status :: Lens' CreateAccountCustomizationResponse Int
createAccountCustomizationResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAccountCustomizationResponse' {Int
status :: Int
$sel:status:CreateAccountCustomizationResponse' :: CreateAccountCustomizationResponse -> Int
status} -> Int
status) (\s :: CreateAccountCustomizationResponse
s@CreateAccountCustomizationResponse' {} Int
a -> CreateAccountCustomizationResponse
s {$sel:status:CreateAccountCustomizationResponse' :: Int
status = Int
a} :: CreateAccountCustomizationResponse)
instance
Prelude.NFData
CreateAccountCustomizationResponse
where
rnf :: CreateAccountCustomizationResponse -> ()
rnf CreateAccountCustomizationResponse' {Int
Maybe Text
Maybe AccountCustomization
status :: Int
requestId :: Maybe Text
namespace :: Maybe Text
awsAccountId :: Maybe Text
arn :: Maybe Text
accountCustomization :: Maybe AccountCustomization
$sel:status:CreateAccountCustomizationResponse' :: CreateAccountCustomizationResponse -> Int
$sel:requestId:CreateAccountCustomizationResponse' :: CreateAccountCustomizationResponse -> Maybe Text
$sel:namespace:CreateAccountCustomizationResponse' :: CreateAccountCustomizationResponse -> Maybe Text
$sel:awsAccountId:CreateAccountCustomizationResponse' :: CreateAccountCustomizationResponse -> Maybe Text
$sel:arn:CreateAccountCustomizationResponse' :: CreateAccountCustomizationResponse -> Maybe Text
$sel:accountCustomization:CreateAccountCustomizationResponse' :: CreateAccountCustomizationResponse -> Maybe AccountCustomization
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe AccountCustomization
accountCustomization
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
arn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
awsAccountId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
namespace
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
requestId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
status