{-# 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.Config.PutOrganizationConformancePack
(
PutOrganizationConformancePack (..),
newPutOrganizationConformancePack,
putOrganizationConformancePack_conformancePackInputParameters,
putOrganizationConformancePack_deliveryS3Bucket,
putOrganizationConformancePack_deliveryS3KeyPrefix,
putOrganizationConformancePack_excludedAccounts,
putOrganizationConformancePack_templateBody,
putOrganizationConformancePack_templateS3Uri,
putOrganizationConformancePack_organizationConformancePackName,
PutOrganizationConformancePackResponse (..),
newPutOrganizationConformancePackResponse,
putOrganizationConformancePackResponse_organizationConformancePackArn,
putOrganizationConformancePackResponse_httpStatus,
)
where
import Amazonka.Config.Types
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data PutOrganizationConformancePack = PutOrganizationConformancePack'
{
PutOrganizationConformancePack
-> Maybe [ConformancePackInputParameter]
conformancePackInputParameters :: Prelude.Maybe [ConformancePackInputParameter],
PutOrganizationConformancePack -> Maybe Text
deliveryS3Bucket :: Prelude.Maybe Prelude.Text,
PutOrganizationConformancePack -> Maybe Text
deliveryS3KeyPrefix :: Prelude.Maybe Prelude.Text,
PutOrganizationConformancePack -> Maybe [Text]
excludedAccounts :: Prelude.Maybe [Prelude.Text],
PutOrganizationConformancePack -> Maybe Text
templateBody :: Prelude.Maybe Prelude.Text,
PutOrganizationConformancePack -> Maybe Text
templateS3Uri :: Prelude.Maybe Prelude.Text,
PutOrganizationConformancePack -> Text
organizationConformancePackName :: Prelude.Text
}
deriving (PutOrganizationConformancePack
-> PutOrganizationConformancePack -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutOrganizationConformancePack
-> PutOrganizationConformancePack -> Bool
$c/= :: PutOrganizationConformancePack
-> PutOrganizationConformancePack -> Bool
== :: PutOrganizationConformancePack
-> PutOrganizationConformancePack -> Bool
$c== :: PutOrganizationConformancePack
-> PutOrganizationConformancePack -> Bool
Prelude.Eq, ReadPrec [PutOrganizationConformancePack]
ReadPrec PutOrganizationConformancePack
Int -> ReadS PutOrganizationConformancePack
ReadS [PutOrganizationConformancePack]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutOrganizationConformancePack]
$creadListPrec :: ReadPrec [PutOrganizationConformancePack]
readPrec :: ReadPrec PutOrganizationConformancePack
$creadPrec :: ReadPrec PutOrganizationConformancePack
readList :: ReadS [PutOrganizationConformancePack]
$creadList :: ReadS [PutOrganizationConformancePack]
readsPrec :: Int -> ReadS PutOrganizationConformancePack
$creadsPrec :: Int -> ReadS PutOrganizationConformancePack
Prelude.Read, Int -> PutOrganizationConformancePack -> ShowS
[PutOrganizationConformancePack] -> ShowS
PutOrganizationConformancePack -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutOrganizationConformancePack] -> ShowS
$cshowList :: [PutOrganizationConformancePack] -> ShowS
show :: PutOrganizationConformancePack -> String
$cshow :: PutOrganizationConformancePack -> String
showsPrec :: Int -> PutOrganizationConformancePack -> ShowS
$cshowsPrec :: Int -> PutOrganizationConformancePack -> ShowS
Prelude.Show, forall x.
Rep PutOrganizationConformancePack x
-> PutOrganizationConformancePack
forall x.
PutOrganizationConformancePack
-> Rep PutOrganizationConformancePack x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutOrganizationConformancePack x
-> PutOrganizationConformancePack
$cfrom :: forall x.
PutOrganizationConformancePack
-> Rep PutOrganizationConformancePack x
Prelude.Generic)
newPutOrganizationConformancePack ::
Prelude.Text ->
PutOrganizationConformancePack
newPutOrganizationConformancePack :: Text -> PutOrganizationConformancePack
newPutOrganizationConformancePack
Text
pOrganizationConformancePackName_ =
PutOrganizationConformancePack'
{ $sel:conformancePackInputParameters:PutOrganizationConformancePack' :: Maybe [ConformancePackInputParameter]
conformancePackInputParameters =
forall a. Maybe a
Prelude.Nothing,
$sel:deliveryS3Bucket:PutOrganizationConformancePack' :: Maybe Text
deliveryS3Bucket = forall a. Maybe a
Prelude.Nothing,
$sel:deliveryS3KeyPrefix:PutOrganizationConformancePack' :: Maybe Text
deliveryS3KeyPrefix = forall a. Maybe a
Prelude.Nothing,
$sel:excludedAccounts:PutOrganizationConformancePack' :: Maybe [Text]
excludedAccounts = forall a. Maybe a
Prelude.Nothing,
$sel:templateBody:PutOrganizationConformancePack' :: Maybe Text
templateBody = forall a. Maybe a
Prelude.Nothing,
$sel:templateS3Uri:PutOrganizationConformancePack' :: Maybe Text
templateS3Uri = forall a. Maybe a
Prelude.Nothing,
$sel:organizationConformancePackName:PutOrganizationConformancePack' :: Text
organizationConformancePackName =
Text
pOrganizationConformancePackName_
}
putOrganizationConformancePack_conformancePackInputParameters :: Lens.Lens' PutOrganizationConformancePack (Prelude.Maybe [ConformancePackInputParameter])
putOrganizationConformancePack_conformancePackInputParameters :: Lens'
PutOrganizationConformancePack
(Maybe [ConformancePackInputParameter])
putOrganizationConformancePack_conformancePackInputParameters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutOrganizationConformancePack' {Maybe [ConformancePackInputParameter]
conformancePackInputParameters :: Maybe [ConformancePackInputParameter]
$sel:conformancePackInputParameters:PutOrganizationConformancePack' :: PutOrganizationConformancePack
-> Maybe [ConformancePackInputParameter]
conformancePackInputParameters} -> Maybe [ConformancePackInputParameter]
conformancePackInputParameters) (\s :: PutOrganizationConformancePack
s@PutOrganizationConformancePack' {} Maybe [ConformancePackInputParameter]
a -> PutOrganizationConformancePack
s {$sel:conformancePackInputParameters:PutOrganizationConformancePack' :: Maybe [ConformancePackInputParameter]
conformancePackInputParameters = Maybe [ConformancePackInputParameter]
a} :: PutOrganizationConformancePack) 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
putOrganizationConformancePack_deliveryS3Bucket :: Lens.Lens' PutOrganizationConformancePack (Prelude.Maybe Prelude.Text)
putOrganizationConformancePack_deliveryS3Bucket :: Lens' PutOrganizationConformancePack (Maybe Text)
putOrganizationConformancePack_deliveryS3Bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutOrganizationConformancePack' {Maybe Text
deliveryS3Bucket :: Maybe Text
$sel:deliveryS3Bucket:PutOrganizationConformancePack' :: PutOrganizationConformancePack -> Maybe Text
deliveryS3Bucket} -> Maybe Text
deliveryS3Bucket) (\s :: PutOrganizationConformancePack
s@PutOrganizationConformancePack' {} Maybe Text
a -> PutOrganizationConformancePack
s {$sel:deliveryS3Bucket:PutOrganizationConformancePack' :: Maybe Text
deliveryS3Bucket = Maybe Text
a} :: PutOrganizationConformancePack)
putOrganizationConformancePack_deliveryS3KeyPrefix :: Lens.Lens' PutOrganizationConformancePack (Prelude.Maybe Prelude.Text)
putOrganizationConformancePack_deliveryS3KeyPrefix :: Lens' PutOrganizationConformancePack (Maybe Text)
putOrganizationConformancePack_deliveryS3KeyPrefix = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutOrganizationConformancePack' {Maybe Text
deliveryS3KeyPrefix :: Maybe Text
$sel:deliveryS3KeyPrefix:PutOrganizationConformancePack' :: PutOrganizationConformancePack -> Maybe Text
deliveryS3KeyPrefix} -> Maybe Text
deliveryS3KeyPrefix) (\s :: PutOrganizationConformancePack
s@PutOrganizationConformancePack' {} Maybe Text
a -> PutOrganizationConformancePack
s {$sel:deliveryS3KeyPrefix:PutOrganizationConformancePack' :: Maybe Text
deliveryS3KeyPrefix = Maybe Text
a} :: PutOrganizationConformancePack)
putOrganizationConformancePack_excludedAccounts :: Lens.Lens' PutOrganizationConformancePack (Prelude.Maybe [Prelude.Text])
putOrganizationConformancePack_excludedAccounts :: Lens' PutOrganizationConformancePack (Maybe [Text])
putOrganizationConformancePack_excludedAccounts = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutOrganizationConformancePack' {Maybe [Text]
excludedAccounts :: Maybe [Text]
$sel:excludedAccounts:PutOrganizationConformancePack' :: PutOrganizationConformancePack -> Maybe [Text]
excludedAccounts} -> Maybe [Text]
excludedAccounts) (\s :: PutOrganizationConformancePack
s@PutOrganizationConformancePack' {} Maybe [Text]
a -> PutOrganizationConformancePack
s {$sel:excludedAccounts:PutOrganizationConformancePack' :: Maybe [Text]
excludedAccounts = Maybe [Text]
a} :: PutOrganizationConformancePack) 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
putOrganizationConformancePack_templateBody :: Lens.Lens' PutOrganizationConformancePack (Prelude.Maybe Prelude.Text)
putOrganizationConformancePack_templateBody :: Lens' PutOrganizationConformancePack (Maybe Text)
putOrganizationConformancePack_templateBody = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutOrganizationConformancePack' {Maybe Text
templateBody :: Maybe Text
$sel:templateBody:PutOrganizationConformancePack' :: PutOrganizationConformancePack -> Maybe Text
templateBody} -> Maybe Text
templateBody) (\s :: PutOrganizationConformancePack
s@PutOrganizationConformancePack' {} Maybe Text
a -> PutOrganizationConformancePack
s {$sel:templateBody:PutOrganizationConformancePack' :: Maybe Text
templateBody = Maybe Text
a} :: PutOrganizationConformancePack)
putOrganizationConformancePack_templateS3Uri :: Lens.Lens' PutOrganizationConformancePack (Prelude.Maybe Prelude.Text)
putOrganizationConformancePack_templateS3Uri :: Lens' PutOrganizationConformancePack (Maybe Text)
putOrganizationConformancePack_templateS3Uri = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutOrganizationConformancePack' {Maybe Text
templateS3Uri :: Maybe Text
$sel:templateS3Uri:PutOrganizationConformancePack' :: PutOrganizationConformancePack -> Maybe Text
templateS3Uri} -> Maybe Text
templateS3Uri) (\s :: PutOrganizationConformancePack
s@PutOrganizationConformancePack' {} Maybe Text
a -> PutOrganizationConformancePack
s {$sel:templateS3Uri:PutOrganizationConformancePack' :: Maybe Text
templateS3Uri = Maybe Text
a} :: PutOrganizationConformancePack)
putOrganizationConformancePack_organizationConformancePackName :: Lens.Lens' PutOrganizationConformancePack Prelude.Text
putOrganizationConformancePack_organizationConformancePackName :: Lens' PutOrganizationConformancePack Text
putOrganizationConformancePack_organizationConformancePackName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutOrganizationConformancePack' {Text
organizationConformancePackName :: Text
$sel:organizationConformancePackName:PutOrganizationConformancePack' :: PutOrganizationConformancePack -> Text
organizationConformancePackName} -> Text
organizationConformancePackName) (\s :: PutOrganizationConformancePack
s@PutOrganizationConformancePack' {} Text
a -> PutOrganizationConformancePack
s {$sel:organizationConformancePackName:PutOrganizationConformancePack' :: Text
organizationConformancePackName = Text
a} :: PutOrganizationConformancePack)
instance
Core.AWSRequest
PutOrganizationConformancePack
where
type
AWSResponse PutOrganizationConformancePack =
PutOrganizationConformancePackResponse
request :: (Service -> Service)
-> PutOrganizationConformancePack
-> Request PutOrganizationConformancePack
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 PutOrganizationConformancePack
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse PutOrganizationConformancePack)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Text -> Int -> PutOrganizationConformancePackResponse
PutOrganizationConformancePackResponse'
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
"OrganizationConformancePackArn")
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
PutOrganizationConformancePack
where
hashWithSalt :: Int -> PutOrganizationConformancePack -> Int
hashWithSalt
Int
_salt
PutOrganizationConformancePack' {Maybe [Text]
Maybe [ConformancePackInputParameter]
Maybe Text
Text
organizationConformancePackName :: Text
templateS3Uri :: Maybe Text
templateBody :: Maybe Text
excludedAccounts :: Maybe [Text]
deliveryS3KeyPrefix :: Maybe Text
deliveryS3Bucket :: Maybe Text
conformancePackInputParameters :: Maybe [ConformancePackInputParameter]
$sel:organizationConformancePackName:PutOrganizationConformancePack' :: PutOrganizationConformancePack -> Text
$sel:templateS3Uri:PutOrganizationConformancePack' :: PutOrganizationConformancePack -> Maybe Text
$sel:templateBody:PutOrganizationConformancePack' :: PutOrganizationConformancePack -> Maybe Text
$sel:excludedAccounts:PutOrganizationConformancePack' :: PutOrganizationConformancePack -> Maybe [Text]
$sel:deliveryS3KeyPrefix:PutOrganizationConformancePack' :: PutOrganizationConformancePack -> Maybe Text
$sel:deliveryS3Bucket:PutOrganizationConformancePack' :: PutOrganizationConformancePack -> Maybe Text
$sel:conformancePackInputParameters:PutOrganizationConformancePack' :: PutOrganizationConformancePack
-> Maybe [ConformancePackInputParameter]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [ConformancePackInputParameter]
conformancePackInputParameters
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
deliveryS3Bucket
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
deliveryS3KeyPrefix
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
excludedAccounts
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
templateBody
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
templateS3Uri
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
organizationConformancePackName
instance
Prelude.NFData
PutOrganizationConformancePack
where
rnf :: PutOrganizationConformancePack -> ()
rnf PutOrganizationConformancePack' {Maybe [Text]
Maybe [ConformancePackInputParameter]
Maybe Text
Text
organizationConformancePackName :: Text
templateS3Uri :: Maybe Text
templateBody :: Maybe Text
excludedAccounts :: Maybe [Text]
deliveryS3KeyPrefix :: Maybe Text
deliveryS3Bucket :: Maybe Text
conformancePackInputParameters :: Maybe [ConformancePackInputParameter]
$sel:organizationConformancePackName:PutOrganizationConformancePack' :: PutOrganizationConformancePack -> Text
$sel:templateS3Uri:PutOrganizationConformancePack' :: PutOrganizationConformancePack -> Maybe Text
$sel:templateBody:PutOrganizationConformancePack' :: PutOrganizationConformancePack -> Maybe Text
$sel:excludedAccounts:PutOrganizationConformancePack' :: PutOrganizationConformancePack -> Maybe [Text]
$sel:deliveryS3KeyPrefix:PutOrganizationConformancePack' :: PutOrganizationConformancePack -> Maybe Text
$sel:deliveryS3Bucket:PutOrganizationConformancePack' :: PutOrganizationConformancePack -> Maybe Text
$sel:conformancePackInputParameters:PutOrganizationConformancePack' :: PutOrganizationConformancePack
-> Maybe [ConformancePackInputParameter]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [ConformancePackInputParameter]
conformancePackInputParameters
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
deliveryS3Bucket
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
deliveryS3KeyPrefix
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
excludedAccounts
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
templateBody
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
templateS3Uri
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
organizationConformancePackName
instance
Data.ToHeaders
PutOrganizationConformancePack
where
toHeaders :: PutOrganizationConformancePack -> 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
"StarlingDoveService.PutOrganizationConformancePack" ::
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 PutOrganizationConformancePack where
toJSON :: PutOrganizationConformancePack -> Value
toJSON PutOrganizationConformancePack' {Maybe [Text]
Maybe [ConformancePackInputParameter]
Maybe Text
Text
organizationConformancePackName :: Text
templateS3Uri :: Maybe Text
templateBody :: Maybe Text
excludedAccounts :: Maybe [Text]
deliveryS3KeyPrefix :: Maybe Text
deliveryS3Bucket :: Maybe Text
conformancePackInputParameters :: Maybe [ConformancePackInputParameter]
$sel:organizationConformancePackName:PutOrganizationConformancePack' :: PutOrganizationConformancePack -> Text
$sel:templateS3Uri:PutOrganizationConformancePack' :: PutOrganizationConformancePack -> Maybe Text
$sel:templateBody:PutOrganizationConformancePack' :: PutOrganizationConformancePack -> Maybe Text
$sel:excludedAccounts:PutOrganizationConformancePack' :: PutOrganizationConformancePack -> Maybe [Text]
$sel:deliveryS3KeyPrefix:PutOrganizationConformancePack' :: PutOrganizationConformancePack -> Maybe Text
$sel:deliveryS3Bucket:PutOrganizationConformancePack' :: PutOrganizationConformancePack -> Maybe Text
$sel:conformancePackInputParameters:PutOrganizationConformancePack' :: PutOrganizationConformancePack
-> Maybe [ConformancePackInputParameter]
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"ConformancePackInputParameters" 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 [ConformancePackInputParameter]
conformancePackInputParameters,
(Key
"DeliveryS3Bucket" 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
deliveryS3Bucket,
(Key
"DeliveryS3KeyPrefix" 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
deliveryS3KeyPrefix,
(Key
"ExcludedAccounts" 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]
excludedAccounts,
(Key
"TemplateBody" 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
templateBody,
(Key
"TemplateS3Uri" 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
templateS3Uri,
forall a. a -> Maybe a
Prelude.Just
( Key
"OrganizationConformancePackName"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
organizationConformancePackName
)
]
)
instance Data.ToPath PutOrganizationConformancePack where
toPath :: PutOrganizationConformancePack -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery PutOrganizationConformancePack where
toQuery :: PutOrganizationConformancePack -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data PutOrganizationConformancePackResponse = PutOrganizationConformancePackResponse'
{
PutOrganizationConformancePackResponse -> Maybe Text
organizationConformancePackArn :: Prelude.Maybe Prelude.Text,
PutOrganizationConformancePackResponse -> Int
httpStatus :: Prelude.Int
}
deriving (PutOrganizationConformancePackResponse
-> PutOrganizationConformancePackResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutOrganizationConformancePackResponse
-> PutOrganizationConformancePackResponse -> Bool
$c/= :: PutOrganizationConformancePackResponse
-> PutOrganizationConformancePackResponse -> Bool
== :: PutOrganizationConformancePackResponse
-> PutOrganizationConformancePackResponse -> Bool
$c== :: PutOrganizationConformancePackResponse
-> PutOrganizationConformancePackResponse -> Bool
Prelude.Eq, ReadPrec [PutOrganizationConformancePackResponse]
ReadPrec PutOrganizationConformancePackResponse
Int -> ReadS PutOrganizationConformancePackResponse
ReadS [PutOrganizationConformancePackResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutOrganizationConformancePackResponse]
$creadListPrec :: ReadPrec [PutOrganizationConformancePackResponse]
readPrec :: ReadPrec PutOrganizationConformancePackResponse
$creadPrec :: ReadPrec PutOrganizationConformancePackResponse
readList :: ReadS [PutOrganizationConformancePackResponse]
$creadList :: ReadS [PutOrganizationConformancePackResponse]
readsPrec :: Int -> ReadS PutOrganizationConformancePackResponse
$creadsPrec :: Int -> ReadS PutOrganizationConformancePackResponse
Prelude.Read, Int -> PutOrganizationConformancePackResponse -> ShowS
[PutOrganizationConformancePackResponse] -> ShowS
PutOrganizationConformancePackResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutOrganizationConformancePackResponse] -> ShowS
$cshowList :: [PutOrganizationConformancePackResponse] -> ShowS
show :: PutOrganizationConformancePackResponse -> String
$cshow :: PutOrganizationConformancePackResponse -> String
showsPrec :: Int -> PutOrganizationConformancePackResponse -> ShowS
$cshowsPrec :: Int -> PutOrganizationConformancePackResponse -> ShowS
Prelude.Show, forall x.
Rep PutOrganizationConformancePackResponse x
-> PutOrganizationConformancePackResponse
forall x.
PutOrganizationConformancePackResponse
-> Rep PutOrganizationConformancePackResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutOrganizationConformancePackResponse x
-> PutOrganizationConformancePackResponse
$cfrom :: forall x.
PutOrganizationConformancePackResponse
-> Rep PutOrganizationConformancePackResponse x
Prelude.Generic)
newPutOrganizationConformancePackResponse ::
Prelude.Int ->
PutOrganizationConformancePackResponse
newPutOrganizationConformancePackResponse :: Int -> PutOrganizationConformancePackResponse
newPutOrganizationConformancePackResponse
Int
pHttpStatus_ =
PutOrganizationConformancePackResponse'
{ $sel:organizationConformancePackArn:PutOrganizationConformancePackResponse' :: Maybe Text
organizationConformancePackArn =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:PutOrganizationConformancePackResponse' :: Int
httpStatus = Int
pHttpStatus_
}
putOrganizationConformancePackResponse_organizationConformancePackArn :: Lens.Lens' PutOrganizationConformancePackResponse (Prelude.Maybe Prelude.Text)
putOrganizationConformancePackResponse_organizationConformancePackArn :: Lens' PutOrganizationConformancePackResponse (Maybe Text)
putOrganizationConformancePackResponse_organizationConformancePackArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutOrganizationConformancePackResponse' {Maybe Text
organizationConformancePackArn :: Maybe Text
$sel:organizationConformancePackArn:PutOrganizationConformancePackResponse' :: PutOrganizationConformancePackResponse -> Maybe Text
organizationConformancePackArn} -> Maybe Text
organizationConformancePackArn) (\s :: PutOrganizationConformancePackResponse
s@PutOrganizationConformancePackResponse' {} Maybe Text
a -> PutOrganizationConformancePackResponse
s {$sel:organizationConformancePackArn:PutOrganizationConformancePackResponse' :: Maybe Text
organizationConformancePackArn = Maybe Text
a} :: PutOrganizationConformancePackResponse)
putOrganizationConformancePackResponse_httpStatus :: Lens.Lens' PutOrganizationConformancePackResponse Prelude.Int
putOrganizationConformancePackResponse_httpStatus :: Lens' PutOrganizationConformancePackResponse Int
putOrganizationConformancePackResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutOrganizationConformancePackResponse' {Int
httpStatus :: Int
$sel:httpStatus:PutOrganizationConformancePackResponse' :: PutOrganizationConformancePackResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: PutOrganizationConformancePackResponse
s@PutOrganizationConformancePackResponse' {} Int
a -> PutOrganizationConformancePackResponse
s {$sel:httpStatus:PutOrganizationConformancePackResponse' :: Int
httpStatus = Int
a} :: PutOrganizationConformancePackResponse)
instance
Prelude.NFData
PutOrganizationConformancePackResponse
where
rnf :: PutOrganizationConformancePackResponse -> ()
rnf PutOrganizationConformancePackResponse' {Int
Maybe Text
httpStatus :: Int
organizationConformancePackArn :: Maybe Text
$sel:httpStatus:PutOrganizationConformancePackResponse' :: PutOrganizationConformancePackResponse -> Int
$sel:organizationConformancePackArn:PutOrganizationConformancePackResponse' :: PutOrganizationConformancePackResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
organizationConformancePackArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus