{-# 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.PutConformancePack
(
PutConformancePack (..),
newPutConformancePack,
putConformancePack_conformancePackInputParameters,
putConformancePack_deliveryS3Bucket,
putConformancePack_deliveryS3KeyPrefix,
putConformancePack_templateBody,
putConformancePack_templateS3Uri,
putConformancePack_templateSSMDocumentDetails,
putConformancePack_conformancePackName,
PutConformancePackResponse (..),
newPutConformancePackResponse,
putConformancePackResponse_conformancePackArn,
putConformancePackResponse_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 PutConformancePack = PutConformancePack'
{
PutConformancePack -> Maybe [ConformancePackInputParameter]
conformancePackInputParameters :: Prelude.Maybe [ConformancePackInputParameter],
PutConformancePack -> Maybe Text
deliveryS3Bucket :: Prelude.Maybe Prelude.Text,
PutConformancePack -> Maybe Text
deliveryS3KeyPrefix :: Prelude.Maybe Prelude.Text,
PutConformancePack -> Maybe Text
templateBody :: Prelude.Maybe Prelude.Text,
PutConformancePack -> Maybe Text
templateS3Uri :: Prelude.Maybe Prelude.Text,
PutConformancePack -> Maybe TemplateSSMDocumentDetails
templateSSMDocumentDetails :: Prelude.Maybe TemplateSSMDocumentDetails,
PutConformancePack -> Text
conformancePackName :: Prelude.Text
}
deriving (PutConformancePack -> PutConformancePack -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutConformancePack -> PutConformancePack -> Bool
$c/= :: PutConformancePack -> PutConformancePack -> Bool
== :: PutConformancePack -> PutConformancePack -> Bool
$c== :: PutConformancePack -> PutConformancePack -> Bool
Prelude.Eq, ReadPrec [PutConformancePack]
ReadPrec PutConformancePack
Int -> ReadS PutConformancePack
ReadS [PutConformancePack]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutConformancePack]
$creadListPrec :: ReadPrec [PutConformancePack]
readPrec :: ReadPrec PutConformancePack
$creadPrec :: ReadPrec PutConformancePack
readList :: ReadS [PutConformancePack]
$creadList :: ReadS [PutConformancePack]
readsPrec :: Int -> ReadS PutConformancePack
$creadsPrec :: Int -> ReadS PutConformancePack
Prelude.Read, Int -> PutConformancePack -> ShowS
[PutConformancePack] -> ShowS
PutConformancePack -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutConformancePack] -> ShowS
$cshowList :: [PutConformancePack] -> ShowS
show :: PutConformancePack -> String
$cshow :: PutConformancePack -> String
showsPrec :: Int -> PutConformancePack -> ShowS
$cshowsPrec :: Int -> PutConformancePack -> ShowS
Prelude.Show, forall x. Rep PutConformancePack x -> PutConformancePack
forall x. PutConformancePack -> Rep PutConformancePack x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep PutConformancePack x -> PutConformancePack
$cfrom :: forall x. PutConformancePack -> Rep PutConformancePack x
Prelude.Generic)
newPutConformancePack ::
Prelude.Text ->
PutConformancePack
newPutConformancePack :: Text -> PutConformancePack
newPutConformancePack Text
pConformancePackName_ =
PutConformancePack'
{ $sel:conformancePackInputParameters:PutConformancePack' :: Maybe [ConformancePackInputParameter]
conformancePackInputParameters =
forall a. Maybe a
Prelude.Nothing,
$sel:deliveryS3Bucket:PutConformancePack' :: Maybe Text
deliveryS3Bucket = forall a. Maybe a
Prelude.Nothing,
$sel:deliveryS3KeyPrefix:PutConformancePack' :: Maybe Text
deliveryS3KeyPrefix = forall a. Maybe a
Prelude.Nothing,
$sel:templateBody:PutConformancePack' :: Maybe Text
templateBody = forall a. Maybe a
Prelude.Nothing,
$sel:templateS3Uri:PutConformancePack' :: Maybe Text
templateS3Uri = forall a. Maybe a
Prelude.Nothing,
$sel:templateSSMDocumentDetails:PutConformancePack' :: Maybe TemplateSSMDocumentDetails
templateSSMDocumentDetails = forall a. Maybe a
Prelude.Nothing,
$sel:conformancePackName:PutConformancePack' :: Text
conformancePackName = Text
pConformancePackName_
}
putConformancePack_conformancePackInputParameters :: Lens.Lens' PutConformancePack (Prelude.Maybe [ConformancePackInputParameter])
putConformancePack_conformancePackInputParameters :: Lens' PutConformancePack (Maybe [ConformancePackInputParameter])
putConformancePack_conformancePackInputParameters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutConformancePack' {Maybe [ConformancePackInputParameter]
conformancePackInputParameters :: Maybe [ConformancePackInputParameter]
$sel:conformancePackInputParameters:PutConformancePack' :: PutConformancePack -> Maybe [ConformancePackInputParameter]
conformancePackInputParameters} -> Maybe [ConformancePackInputParameter]
conformancePackInputParameters) (\s :: PutConformancePack
s@PutConformancePack' {} Maybe [ConformancePackInputParameter]
a -> PutConformancePack
s {$sel:conformancePackInputParameters:PutConformancePack' :: Maybe [ConformancePackInputParameter]
conformancePackInputParameters = Maybe [ConformancePackInputParameter]
a} :: PutConformancePack) 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
putConformancePack_deliveryS3Bucket :: Lens.Lens' PutConformancePack (Prelude.Maybe Prelude.Text)
putConformancePack_deliveryS3Bucket :: Lens' PutConformancePack (Maybe Text)
putConformancePack_deliveryS3Bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutConformancePack' {Maybe Text
deliveryS3Bucket :: Maybe Text
$sel:deliveryS3Bucket:PutConformancePack' :: PutConformancePack -> Maybe Text
deliveryS3Bucket} -> Maybe Text
deliveryS3Bucket) (\s :: PutConformancePack
s@PutConformancePack' {} Maybe Text
a -> PutConformancePack
s {$sel:deliveryS3Bucket:PutConformancePack' :: Maybe Text
deliveryS3Bucket = Maybe Text
a} :: PutConformancePack)
putConformancePack_deliveryS3KeyPrefix :: Lens.Lens' PutConformancePack (Prelude.Maybe Prelude.Text)
putConformancePack_deliveryS3KeyPrefix :: Lens' PutConformancePack (Maybe Text)
putConformancePack_deliveryS3KeyPrefix = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutConformancePack' {Maybe Text
deliveryS3KeyPrefix :: Maybe Text
$sel:deliveryS3KeyPrefix:PutConformancePack' :: PutConformancePack -> Maybe Text
deliveryS3KeyPrefix} -> Maybe Text
deliveryS3KeyPrefix) (\s :: PutConformancePack
s@PutConformancePack' {} Maybe Text
a -> PutConformancePack
s {$sel:deliveryS3KeyPrefix:PutConformancePack' :: Maybe Text
deliveryS3KeyPrefix = Maybe Text
a} :: PutConformancePack)
putConformancePack_templateBody :: Lens.Lens' PutConformancePack (Prelude.Maybe Prelude.Text)
putConformancePack_templateBody :: Lens' PutConformancePack (Maybe Text)
putConformancePack_templateBody = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutConformancePack' {Maybe Text
templateBody :: Maybe Text
$sel:templateBody:PutConformancePack' :: PutConformancePack -> Maybe Text
templateBody} -> Maybe Text
templateBody) (\s :: PutConformancePack
s@PutConformancePack' {} Maybe Text
a -> PutConformancePack
s {$sel:templateBody:PutConformancePack' :: Maybe Text
templateBody = Maybe Text
a} :: PutConformancePack)
putConformancePack_templateS3Uri :: Lens.Lens' PutConformancePack (Prelude.Maybe Prelude.Text)
putConformancePack_templateS3Uri :: Lens' PutConformancePack (Maybe Text)
putConformancePack_templateS3Uri = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutConformancePack' {Maybe Text
templateS3Uri :: Maybe Text
$sel:templateS3Uri:PutConformancePack' :: PutConformancePack -> Maybe Text
templateS3Uri} -> Maybe Text
templateS3Uri) (\s :: PutConformancePack
s@PutConformancePack' {} Maybe Text
a -> PutConformancePack
s {$sel:templateS3Uri:PutConformancePack' :: Maybe Text
templateS3Uri = Maybe Text
a} :: PutConformancePack)
putConformancePack_templateSSMDocumentDetails :: Lens.Lens' PutConformancePack (Prelude.Maybe TemplateSSMDocumentDetails)
putConformancePack_templateSSMDocumentDetails :: Lens' PutConformancePack (Maybe TemplateSSMDocumentDetails)
putConformancePack_templateSSMDocumentDetails = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutConformancePack' {Maybe TemplateSSMDocumentDetails
templateSSMDocumentDetails :: Maybe TemplateSSMDocumentDetails
$sel:templateSSMDocumentDetails:PutConformancePack' :: PutConformancePack -> Maybe TemplateSSMDocumentDetails
templateSSMDocumentDetails} -> Maybe TemplateSSMDocumentDetails
templateSSMDocumentDetails) (\s :: PutConformancePack
s@PutConformancePack' {} Maybe TemplateSSMDocumentDetails
a -> PutConformancePack
s {$sel:templateSSMDocumentDetails:PutConformancePack' :: Maybe TemplateSSMDocumentDetails
templateSSMDocumentDetails = Maybe TemplateSSMDocumentDetails
a} :: PutConformancePack)
putConformancePack_conformancePackName :: Lens.Lens' PutConformancePack Prelude.Text
putConformancePack_conformancePackName :: Lens' PutConformancePack Text
putConformancePack_conformancePackName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutConformancePack' {Text
conformancePackName :: Text
$sel:conformancePackName:PutConformancePack' :: PutConformancePack -> Text
conformancePackName} -> Text
conformancePackName) (\s :: PutConformancePack
s@PutConformancePack' {} Text
a -> PutConformancePack
s {$sel:conformancePackName:PutConformancePack' :: Text
conformancePackName = Text
a} :: PutConformancePack)
instance Core.AWSRequest PutConformancePack where
type
AWSResponse PutConformancePack =
PutConformancePackResponse
request :: (Service -> Service)
-> PutConformancePack -> Request PutConformancePack
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 PutConformancePack
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse PutConformancePack)))
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 -> PutConformancePackResponse
PutConformancePackResponse'
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
"ConformancePackArn")
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 PutConformancePack where
hashWithSalt :: Int -> PutConformancePack -> Int
hashWithSalt Int
_salt PutConformancePack' {Maybe [ConformancePackInputParameter]
Maybe Text
Maybe TemplateSSMDocumentDetails
Text
conformancePackName :: Text
templateSSMDocumentDetails :: Maybe TemplateSSMDocumentDetails
templateS3Uri :: Maybe Text
templateBody :: Maybe Text
deliveryS3KeyPrefix :: Maybe Text
deliveryS3Bucket :: Maybe Text
conformancePackInputParameters :: Maybe [ConformancePackInputParameter]
$sel:conformancePackName:PutConformancePack' :: PutConformancePack -> Text
$sel:templateSSMDocumentDetails:PutConformancePack' :: PutConformancePack -> Maybe TemplateSSMDocumentDetails
$sel:templateS3Uri:PutConformancePack' :: PutConformancePack -> Maybe Text
$sel:templateBody:PutConformancePack' :: PutConformancePack -> Maybe Text
$sel:deliveryS3KeyPrefix:PutConformancePack' :: PutConformancePack -> Maybe Text
$sel:deliveryS3Bucket:PutConformancePack' :: PutConformancePack -> Maybe Text
$sel:conformancePackInputParameters:PutConformancePack' :: PutConformancePack -> 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
templateBody
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
templateS3Uri
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe TemplateSSMDocumentDetails
templateSSMDocumentDetails
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
conformancePackName
instance Prelude.NFData PutConformancePack where
rnf :: PutConformancePack -> ()
rnf PutConformancePack' {Maybe [ConformancePackInputParameter]
Maybe Text
Maybe TemplateSSMDocumentDetails
Text
conformancePackName :: Text
templateSSMDocumentDetails :: Maybe TemplateSSMDocumentDetails
templateS3Uri :: Maybe Text
templateBody :: Maybe Text
deliveryS3KeyPrefix :: Maybe Text
deliveryS3Bucket :: Maybe Text
conformancePackInputParameters :: Maybe [ConformancePackInputParameter]
$sel:conformancePackName:PutConformancePack' :: PutConformancePack -> Text
$sel:templateSSMDocumentDetails:PutConformancePack' :: PutConformancePack -> Maybe TemplateSSMDocumentDetails
$sel:templateS3Uri:PutConformancePack' :: PutConformancePack -> Maybe Text
$sel:templateBody:PutConformancePack' :: PutConformancePack -> Maybe Text
$sel:deliveryS3KeyPrefix:PutConformancePack' :: PutConformancePack -> Maybe Text
$sel:deliveryS3Bucket:PutConformancePack' :: PutConformancePack -> Maybe Text
$sel:conformancePackInputParameters:PutConformancePack' :: PutConformancePack -> 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
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 Maybe TemplateSSMDocumentDetails
templateSSMDocumentDetails
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
conformancePackName
instance Data.ToHeaders PutConformancePack where
toHeaders :: PutConformancePack -> 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.PutConformancePack" ::
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 PutConformancePack where
toJSON :: PutConformancePack -> Value
toJSON PutConformancePack' {Maybe [ConformancePackInputParameter]
Maybe Text
Maybe TemplateSSMDocumentDetails
Text
conformancePackName :: Text
templateSSMDocumentDetails :: Maybe TemplateSSMDocumentDetails
templateS3Uri :: Maybe Text
templateBody :: Maybe Text
deliveryS3KeyPrefix :: Maybe Text
deliveryS3Bucket :: Maybe Text
conformancePackInputParameters :: Maybe [ConformancePackInputParameter]
$sel:conformancePackName:PutConformancePack' :: PutConformancePack -> Text
$sel:templateSSMDocumentDetails:PutConformancePack' :: PutConformancePack -> Maybe TemplateSSMDocumentDetails
$sel:templateS3Uri:PutConformancePack' :: PutConformancePack -> Maybe Text
$sel:templateBody:PutConformancePack' :: PutConformancePack -> Maybe Text
$sel:deliveryS3KeyPrefix:PutConformancePack' :: PutConformancePack -> Maybe Text
$sel:deliveryS3Bucket:PutConformancePack' :: PutConformancePack -> Maybe Text
$sel:conformancePackInputParameters:PutConformancePack' :: PutConformancePack -> 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
"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,
(Key
"TemplateSSMDocumentDetails" 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 TemplateSSMDocumentDetails
templateSSMDocumentDetails,
forall a. a -> Maybe a
Prelude.Just
(Key
"ConformancePackName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
conformancePackName)
]
)
instance Data.ToPath PutConformancePack where
toPath :: PutConformancePack -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery PutConformancePack where
toQuery :: PutConformancePack -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data PutConformancePackResponse = PutConformancePackResponse'
{
PutConformancePackResponse -> Maybe Text
conformancePackArn :: Prelude.Maybe Prelude.Text,
PutConformancePackResponse -> Int
httpStatus :: Prelude.Int
}
deriving (PutConformancePackResponse -> PutConformancePackResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutConformancePackResponse -> PutConformancePackResponse -> Bool
$c/= :: PutConformancePackResponse -> PutConformancePackResponse -> Bool
== :: PutConformancePackResponse -> PutConformancePackResponse -> Bool
$c== :: PutConformancePackResponse -> PutConformancePackResponse -> Bool
Prelude.Eq, ReadPrec [PutConformancePackResponse]
ReadPrec PutConformancePackResponse
Int -> ReadS PutConformancePackResponse
ReadS [PutConformancePackResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutConformancePackResponse]
$creadListPrec :: ReadPrec [PutConformancePackResponse]
readPrec :: ReadPrec PutConformancePackResponse
$creadPrec :: ReadPrec PutConformancePackResponse
readList :: ReadS [PutConformancePackResponse]
$creadList :: ReadS [PutConformancePackResponse]
readsPrec :: Int -> ReadS PutConformancePackResponse
$creadsPrec :: Int -> ReadS PutConformancePackResponse
Prelude.Read, Int -> PutConformancePackResponse -> ShowS
[PutConformancePackResponse] -> ShowS
PutConformancePackResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutConformancePackResponse] -> ShowS
$cshowList :: [PutConformancePackResponse] -> ShowS
show :: PutConformancePackResponse -> String
$cshow :: PutConformancePackResponse -> String
showsPrec :: Int -> PutConformancePackResponse -> ShowS
$cshowsPrec :: Int -> PutConformancePackResponse -> ShowS
Prelude.Show, forall x.
Rep PutConformancePackResponse x -> PutConformancePackResponse
forall x.
PutConformancePackResponse -> Rep PutConformancePackResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutConformancePackResponse x -> PutConformancePackResponse
$cfrom :: forall x.
PutConformancePackResponse -> Rep PutConformancePackResponse x
Prelude.Generic)
newPutConformancePackResponse ::
Prelude.Int ->
PutConformancePackResponse
newPutConformancePackResponse :: Int -> PutConformancePackResponse
newPutConformancePackResponse Int
pHttpStatus_ =
PutConformancePackResponse'
{ $sel:conformancePackArn:PutConformancePackResponse' :: Maybe Text
conformancePackArn =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:PutConformancePackResponse' :: Int
httpStatus = Int
pHttpStatus_
}
putConformancePackResponse_conformancePackArn :: Lens.Lens' PutConformancePackResponse (Prelude.Maybe Prelude.Text)
putConformancePackResponse_conformancePackArn :: Lens' PutConformancePackResponse (Maybe Text)
putConformancePackResponse_conformancePackArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutConformancePackResponse' {Maybe Text
conformancePackArn :: Maybe Text
$sel:conformancePackArn:PutConformancePackResponse' :: PutConformancePackResponse -> Maybe Text
conformancePackArn} -> Maybe Text
conformancePackArn) (\s :: PutConformancePackResponse
s@PutConformancePackResponse' {} Maybe Text
a -> PutConformancePackResponse
s {$sel:conformancePackArn:PutConformancePackResponse' :: Maybe Text
conformancePackArn = Maybe Text
a} :: PutConformancePackResponse)
putConformancePackResponse_httpStatus :: Lens.Lens' PutConformancePackResponse Prelude.Int
putConformancePackResponse_httpStatus :: Lens' PutConformancePackResponse Int
putConformancePackResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutConformancePackResponse' {Int
httpStatus :: Int
$sel:httpStatus:PutConformancePackResponse' :: PutConformancePackResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: PutConformancePackResponse
s@PutConformancePackResponse' {} Int
a -> PutConformancePackResponse
s {$sel:httpStatus:PutConformancePackResponse' :: Int
httpStatus = Int
a} :: PutConformancePackResponse)
instance Prelude.NFData PutConformancePackResponse where
rnf :: PutConformancePackResponse -> ()
rnf PutConformancePackResponse' {Int
Maybe Text
httpStatus :: Int
conformancePackArn :: Maybe Text
$sel:httpStatus:PutConformancePackResponse' :: PutConformancePackResponse -> Int
$sel:conformancePackArn:PutConformancePackResponse' :: PutConformancePackResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
conformancePackArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus