{-# 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.CloudTrail.CreateTrail
(
CreateTrail (..),
newCreateTrail,
createTrail_cloudWatchLogsLogGroupArn,
createTrail_cloudWatchLogsRoleArn,
createTrail_enableLogFileValidation,
createTrail_includeGlobalServiceEvents,
createTrail_isMultiRegionTrail,
createTrail_isOrganizationTrail,
createTrail_kmsKeyId,
createTrail_s3KeyPrefix,
createTrail_snsTopicName,
createTrail_tagsList,
createTrail_name,
createTrail_s3BucketName,
CreateTrailResponse (..),
newCreateTrailResponse,
createTrailResponse_cloudWatchLogsLogGroupArn,
createTrailResponse_cloudWatchLogsRoleArn,
createTrailResponse_includeGlobalServiceEvents,
createTrailResponse_isMultiRegionTrail,
createTrailResponse_isOrganizationTrail,
createTrailResponse_kmsKeyId,
createTrailResponse_logFileValidationEnabled,
createTrailResponse_name,
createTrailResponse_s3BucketName,
createTrailResponse_s3KeyPrefix,
createTrailResponse_snsTopicARN,
createTrailResponse_snsTopicName,
createTrailResponse_trailARN,
createTrailResponse_httpStatus,
)
where
import Amazonka.CloudTrail.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 CreateTrail = CreateTrail'
{
CreateTrail -> Maybe Text
cloudWatchLogsLogGroupArn :: Prelude.Maybe Prelude.Text,
CreateTrail -> Maybe Text
cloudWatchLogsRoleArn :: Prelude.Maybe Prelude.Text,
CreateTrail -> Maybe Bool
enableLogFileValidation :: Prelude.Maybe Prelude.Bool,
CreateTrail -> Maybe Bool
includeGlobalServiceEvents :: Prelude.Maybe Prelude.Bool,
CreateTrail -> Maybe Bool
isMultiRegionTrail :: Prelude.Maybe Prelude.Bool,
CreateTrail -> Maybe Bool
isOrganizationTrail :: Prelude.Maybe Prelude.Bool,
CreateTrail -> Maybe Text
kmsKeyId :: Prelude.Maybe Prelude.Text,
CreateTrail -> Maybe Text
s3KeyPrefix :: Prelude.Maybe Prelude.Text,
CreateTrail -> Maybe Text
snsTopicName :: Prelude.Maybe Prelude.Text,
CreateTrail -> Maybe [Tag]
tagsList :: Prelude.Maybe [Tag],
CreateTrail -> Text
name :: Prelude.Text,
CreateTrail -> Text
s3BucketName :: Prelude.Text
}
deriving (CreateTrail -> CreateTrail -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateTrail -> CreateTrail -> Bool
$c/= :: CreateTrail -> CreateTrail -> Bool
== :: CreateTrail -> CreateTrail -> Bool
$c== :: CreateTrail -> CreateTrail -> Bool
Prelude.Eq, ReadPrec [CreateTrail]
ReadPrec CreateTrail
Int -> ReadS CreateTrail
ReadS [CreateTrail]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateTrail]
$creadListPrec :: ReadPrec [CreateTrail]
readPrec :: ReadPrec CreateTrail
$creadPrec :: ReadPrec CreateTrail
readList :: ReadS [CreateTrail]
$creadList :: ReadS [CreateTrail]
readsPrec :: Int -> ReadS CreateTrail
$creadsPrec :: Int -> ReadS CreateTrail
Prelude.Read, Int -> CreateTrail -> ShowS
[CreateTrail] -> ShowS
CreateTrail -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateTrail] -> ShowS
$cshowList :: [CreateTrail] -> ShowS
show :: CreateTrail -> String
$cshow :: CreateTrail -> String
showsPrec :: Int -> CreateTrail -> ShowS
$cshowsPrec :: Int -> CreateTrail -> ShowS
Prelude.Show, forall x. Rep CreateTrail x -> CreateTrail
forall x. CreateTrail -> Rep CreateTrail x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateTrail x -> CreateTrail
$cfrom :: forall x. CreateTrail -> Rep CreateTrail x
Prelude.Generic)
newCreateTrail ::
Prelude.Text ->
Prelude.Text ->
CreateTrail
newCreateTrail :: Text -> Text -> CreateTrail
newCreateTrail Text
pName_ Text
pS3BucketName_ =
CreateTrail'
{ $sel:cloudWatchLogsLogGroupArn:CreateTrail' :: Maybe Text
cloudWatchLogsLogGroupArn =
forall a. Maybe a
Prelude.Nothing,
$sel:cloudWatchLogsRoleArn:CreateTrail' :: Maybe Text
cloudWatchLogsRoleArn = forall a. Maybe a
Prelude.Nothing,
$sel:enableLogFileValidation:CreateTrail' :: Maybe Bool
enableLogFileValidation = forall a. Maybe a
Prelude.Nothing,
$sel:includeGlobalServiceEvents:CreateTrail' :: Maybe Bool
includeGlobalServiceEvents = forall a. Maybe a
Prelude.Nothing,
$sel:isMultiRegionTrail:CreateTrail' :: Maybe Bool
isMultiRegionTrail = forall a. Maybe a
Prelude.Nothing,
$sel:isOrganizationTrail:CreateTrail' :: Maybe Bool
isOrganizationTrail = forall a. Maybe a
Prelude.Nothing,
$sel:kmsKeyId:CreateTrail' :: Maybe Text
kmsKeyId = forall a. Maybe a
Prelude.Nothing,
$sel:s3KeyPrefix:CreateTrail' :: Maybe Text
s3KeyPrefix = forall a. Maybe a
Prelude.Nothing,
$sel:snsTopicName:CreateTrail' :: Maybe Text
snsTopicName = forall a. Maybe a
Prelude.Nothing,
$sel:tagsList:CreateTrail' :: Maybe [Tag]
tagsList = forall a. Maybe a
Prelude.Nothing,
$sel:name:CreateTrail' :: Text
name = Text
pName_,
$sel:s3BucketName:CreateTrail' :: Text
s3BucketName = Text
pS3BucketName_
}
createTrail_cloudWatchLogsLogGroupArn :: Lens.Lens' CreateTrail (Prelude.Maybe Prelude.Text)
createTrail_cloudWatchLogsLogGroupArn :: Lens' CreateTrail (Maybe Text)
createTrail_cloudWatchLogsLogGroupArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrail' {Maybe Text
cloudWatchLogsLogGroupArn :: Maybe Text
$sel:cloudWatchLogsLogGroupArn:CreateTrail' :: CreateTrail -> Maybe Text
cloudWatchLogsLogGroupArn} -> Maybe Text
cloudWatchLogsLogGroupArn) (\s :: CreateTrail
s@CreateTrail' {} Maybe Text
a -> CreateTrail
s {$sel:cloudWatchLogsLogGroupArn:CreateTrail' :: Maybe Text
cloudWatchLogsLogGroupArn = Maybe Text
a} :: CreateTrail)
createTrail_cloudWatchLogsRoleArn :: Lens.Lens' CreateTrail (Prelude.Maybe Prelude.Text)
createTrail_cloudWatchLogsRoleArn :: Lens' CreateTrail (Maybe Text)
createTrail_cloudWatchLogsRoleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrail' {Maybe Text
cloudWatchLogsRoleArn :: Maybe Text
$sel:cloudWatchLogsRoleArn:CreateTrail' :: CreateTrail -> Maybe Text
cloudWatchLogsRoleArn} -> Maybe Text
cloudWatchLogsRoleArn) (\s :: CreateTrail
s@CreateTrail' {} Maybe Text
a -> CreateTrail
s {$sel:cloudWatchLogsRoleArn:CreateTrail' :: Maybe Text
cloudWatchLogsRoleArn = Maybe Text
a} :: CreateTrail)
createTrail_enableLogFileValidation :: Lens.Lens' CreateTrail (Prelude.Maybe Prelude.Bool)
createTrail_enableLogFileValidation :: Lens' CreateTrail (Maybe Bool)
createTrail_enableLogFileValidation = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrail' {Maybe Bool
enableLogFileValidation :: Maybe Bool
$sel:enableLogFileValidation:CreateTrail' :: CreateTrail -> Maybe Bool
enableLogFileValidation} -> Maybe Bool
enableLogFileValidation) (\s :: CreateTrail
s@CreateTrail' {} Maybe Bool
a -> CreateTrail
s {$sel:enableLogFileValidation:CreateTrail' :: Maybe Bool
enableLogFileValidation = Maybe Bool
a} :: CreateTrail)
createTrail_includeGlobalServiceEvents :: Lens.Lens' CreateTrail (Prelude.Maybe Prelude.Bool)
createTrail_includeGlobalServiceEvents :: Lens' CreateTrail (Maybe Bool)
createTrail_includeGlobalServiceEvents = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrail' {Maybe Bool
includeGlobalServiceEvents :: Maybe Bool
$sel:includeGlobalServiceEvents:CreateTrail' :: CreateTrail -> Maybe Bool
includeGlobalServiceEvents} -> Maybe Bool
includeGlobalServiceEvents) (\s :: CreateTrail
s@CreateTrail' {} Maybe Bool
a -> CreateTrail
s {$sel:includeGlobalServiceEvents:CreateTrail' :: Maybe Bool
includeGlobalServiceEvents = Maybe Bool
a} :: CreateTrail)
createTrail_isMultiRegionTrail :: Lens.Lens' CreateTrail (Prelude.Maybe Prelude.Bool)
createTrail_isMultiRegionTrail :: Lens' CreateTrail (Maybe Bool)
createTrail_isMultiRegionTrail = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrail' {Maybe Bool
isMultiRegionTrail :: Maybe Bool
$sel:isMultiRegionTrail:CreateTrail' :: CreateTrail -> Maybe Bool
isMultiRegionTrail} -> Maybe Bool
isMultiRegionTrail) (\s :: CreateTrail
s@CreateTrail' {} Maybe Bool
a -> CreateTrail
s {$sel:isMultiRegionTrail:CreateTrail' :: Maybe Bool
isMultiRegionTrail = Maybe Bool
a} :: CreateTrail)
createTrail_isOrganizationTrail :: Lens.Lens' CreateTrail (Prelude.Maybe Prelude.Bool)
createTrail_isOrganizationTrail :: Lens' CreateTrail (Maybe Bool)
createTrail_isOrganizationTrail = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrail' {Maybe Bool
isOrganizationTrail :: Maybe Bool
$sel:isOrganizationTrail:CreateTrail' :: CreateTrail -> Maybe Bool
isOrganizationTrail} -> Maybe Bool
isOrganizationTrail) (\s :: CreateTrail
s@CreateTrail' {} Maybe Bool
a -> CreateTrail
s {$sel:isOrganizationTrail:CreateTrail' :: Maybe Bool
isOrganizationTrail = Maybe Bool
a} :: CreateTrail)
createTrail_kmsKeyId :: Lens.Lens' CreateTrail (Prelude.Maybe Prelude.Text)
createTrail_kmsKeyId :: Lens' CreateTrail (Maybe Text)
createTrail_kmsKeyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrail' {Maybe Text
kmsKeyId :: Maybe Text
$sel:kmsKeyId:CreateTrail' :: CreateTrail -> Maybe Text
kmsKeyId} -> Maybe Text
kmsKeyId) (\s :: CreateTrail
s@CreateTrail' {} Maybe Text
a -> CreateTrail
s {$sel:kmsKeyId:CreateTrail' :: Maybe Text
kmsKeyId = Maybe Text
a} :: CreateTrail)
createTrail_s3KeyPrefix :: Lens.Lens' CreateTrail (Prelude.Maybe Prelude.Text)
createTrail_s3KeyPrefix :: Lens' CreateTrail (Maybe Text)
createTrail_s3KeyPrefix = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrail' {Maybe Text
s3KeyPrefix :: Maybe Text
$sel:s3KeyPrefix:CreateTrail' :: CreateTrail -> Maybe Text
s3KeyPrefix} -> Maybe Text
s3KeyPrefix) (\s :: CreateTrail
s@CreateTrail' {} Maybe Text
a -> CreateTrail
s {$sel:s3KeyPrefix:CreateTrail' :: Maybe Text
s3KeyPrefix = Maybe Text
a} :: CreateTrail)
createTrail_snsTopicName :: Lens.Lens' CreateTrail (Prelude.Maybe Prelude.Text)
createTrail_snsTopicName :: Lens' CreateTrail (Maybe Text)
createTrail_snsTopicName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrail' {Maybe Text
snsTopicName :: Maybe Text
$sel:snsTopicName:CreateTrail' :: CreateTrail -> Maybe Text
snsTopicName} -> Maybe Text
snsTopicName) (\s :: CreateTrail
s@CreateTrail' {} Maybe Text
a -> CreateTrail
s {$sel:snsTopicName:CreateTrail' :: Maybe Text
snsTopicName = Maybe Text
a} :: CreateTrail)
createTrail_tagsList :: Lens.Lens' CreateTrail (Prelude.Maybe [Tag])
createTrail_tagsList :: Lens' CreateTrail (Maybe [Tag])
createTrail_tagsList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrail' {Maybe [Tag]
tagsList :: Maybe [Tag]
$sel:tagsList:CreateTrail' :: CreateTrail -> Maybe [Tag]
tagsList} -> Maybe [Tag]
tagsList) (\s :: CreateTrail
s@CreateTrail' {} Maybe [Tag]
a -> CreateTrail
s {$sel:tagsList:CreateTrail' :: Maybe [Tag]
tagsList = Maybe [Tag]
a} :: CreateTrail) 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
createTrail_name :: Lens.Lens' CreateTrail Prelude.Text
createTrail_name :: Lens' CreateTrail Text
createTrail_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrail' {Text
name :: Text
$sel:name:CreateTrail' :: CreateTrail -> Text
name} -> Text
name) (\s :: CreateTrail
s@CreateTrail' {} Text
a -> CreateTrail
s {$sel:name:CreateTrail' :: Text
name = Text
a} :: CreateTrail)
createTrail_s3BucketName :: Lens.Lens' CreateTrail Prelude.Text
createTrail_s3BucketName :: Lens' CreateTrail Text
createTrail_s3BucketName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrail' {Text
s3BucketName :: Text
$sel:s3BucketName:CreateTrail' :: CreateTrail -> Text
s3BucketName} -> Text
s3BucketName) (\s :: CreateTrail
s@CreateTrail' {} Text
a -> CreateTrail
s {$sel:s3BucketName:CreateTrail' :: Text
s3BucketName = Text
a} :: CreateTrail)
instance Core.AWSRequest CreateTrail where
type AWSResponse CreateTrail = CreateTrailResponse
request :: (Service -> Service) -> CreateTrail -> Request CreateTrail
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 CreateTrail
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateTrail)))
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
-> Maybe Text
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> CreateTrailResponse
CreateTrailResponse'
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
"CloudWatchLogsLogGroupArn")
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
"CloudWatchLogsRoleArn")
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
"IncludeGlobalServiceEvents")
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
"IsMultiRegionTrail")
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
"IsOrganizationTrail")
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
"KmsKeyId")
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
"LogFileValidationEnabled")
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
"Name")
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
"S3BucketName")
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
"S3KeyPrefix")
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
"SnsTopicARN")
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
"SnsTopicName")
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
"TrailARN")
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 CreateTrail where
hashWithSalt :: Int -> CreateTrail -> Int
hashWithSalt Int
_salt CreateTrail' {Maybe Bool
Maybe [Tag]
Maybe Text
Text
s3BucketName :: Text
name :: Text
tagsList :: Maybe [Tag]
snsTopicName :: Maybe Text
s3KeyPrefix :: Maybe Text
kmsKeyId :: Maybe Text
isOrganizationTrail :: Maybe Bool
isMultiRegionTrail :: Maybe Bool
includeGlobalServiceEvents :: Maybe Bool
enableLogFileValidation :: Maybe Bool
cloudWatchLogsRoleArn :: Maybe Text
cloudWatchLogsLogGroupArn :: Maybe Text
$sel:s3BucketName:CreateTrail' :: CreateTrail -> Text
$sel:name:CreateTrail' :: CreateTrail -> Text
$sel:tagsList:CreateTrail' :: CreateTrail -> Maybe [Tag]
$sel:snsTopicName:CreateTrail' :: CreateTrail -> Maybe Text
$sel:s3KeyPrefix:CreateTrail' :: CreateTrail -> Maybe Text
$sel:kmsKeyId:CreateTrail' :: CreateTrail -> Maybe Text
$sel:isOrganizationTrail:CreateTrail' :: CreateTrail -> Maybe Bool
$sel:isMultiRegionTrail:CreateTrail' :: CreateTrail -> Maybe Bool
$sel:includeGlobalServiceEvents:CreateTrail' :: CreateTrail -> Maybe Bool
$sel:enableLogFileValidation:CreateTrail' :: CreateTrail -> Maybe Bool
$sel:cloudWatchLogsRoleArn:CreateTrail' :: CreateTrail -> Maybe Text
$sel:cloudWatchLogsLogGroupArn:CreateTrail' :: CreateTrail -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
cloudWatchLogsLogGroupArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
cloudWatchLogsRoleArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
enableLogFileValidation
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
includeGlobalServiceEvents
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
isMultiRegionTrail
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
isOrganizationTrail
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
kmsKeyId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
s3KeyPrefix
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
snsTopicName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tagsList
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
s3BucketName
instance Prelude.NFData CreateTrail where
rnf :: CreateTrail -> ()
rnf CreateTrail' {Maybe Bool
Maybe [Tag]
Maybe Text
Text
s3BucketName :: Text
name :: Text
tagsList :: Maybe [Tag]
snsTopicName :: Maybe Text
s3KeyPrefix :: Maybe Text
kmsKeyId :: Maybe Text
isOrganizationTrail :: Maybe Bool
isMultiRegionTrail :: Maybe Bool
includeGlobalServiceEvents :: Maybe Bool
enableLogFileValidation :: Maybe Bool
cloudWatchLogsRoleArn :: Maybe Text
cloudWatchLogsLogGroupArn :: Maybe Text
$sel:s3BucketName:CreateTrail' :: CreateTrail -> Text
$sel:name:CreateTrail' :: CreateTrail -> Text
$sel:tagsList:CreateTrail' :: CreateTrail -> Maybe [Tag]
$sel:snsTopicName:CreateTrail' :: CreateTrail -> Maybe Text
$sel:s3KeyPrefix:CreateTrail' :: CreateTrail -> Maybe Text
$sel:kmsKeyId:CreateTrail' :: CreateTrail -> Maybe Text
$sel:isOrganizationTrail:CreateTrail' :: CreateTrail -> Maybe Bool
$sel:isMultiRegionTrail:CreateTrail' :: CreateTrail -> Maybe Bool
$sel:includeGlobalServiceEvents:CreateTrail' :: CreateTrail -> Maybe Bool
$sel:enableLogFileValidation:CreateTrail' :: CreateTrail -> Maybe Bool
$sel:cloudWatchLogsRoleArn:CreateTrail' :: CreateTrail -> Maybe Text
$sel:cloudWatchLogsLogGroupArn:CreateTrail' :: CreateTrail -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
cloudWatchLogsLogGroupArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
cloudWatchLogsRoleArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
enableLogFileValidation
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
includeGlobalServiceEvents
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
isMultiRegionTrail
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
isOrganizationTrail
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
kmsKeyId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
s3KeyPrefix
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
snsTopicName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tagsList
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
s3BucketName
instance Data.ToHeaders CreateTrail where
toHeaders :: CreateTrail -> 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
"com.amazonaws.cloudtrail.v20131101.CloudTrail_20131101.CreateTrail" ::
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 CreateTrail where
toJSON :: CreateTrail -> Value
toJSON CreateTrail' {Maybe Bool
Maybe [Tag]
Maybe Text
Text
s3BucketName :: Text
name :: Text
tagsList :: Maybe [Tag]
snsTopicName :: Maybe Text
s3KeyPrefix :: Maybe Text
kmsKeyId :: Maybe Text
isOrganizationTrail :: Maybe Bool
isMultiRegionTrail :: Maybe Bool
includeGlobalServiceEvents :: Maybe Bool
enableLogFileValidation :: Maybe Bool
cloudWatchLogsRoleArn :: Maybe Text
cloudWatchLogsLogGroupArn :: Maybe Text
$sel:s3BucketName:CreateTrail' :: CreateTrail -> Text
$sel:name:CreateTrail' :: CreateTrail -> Text
$sel:tagsList:CreateTrail' :: CreateTrail -> Maybe [Tag]
$sel:snsTopicName:CreateTrail' :: CreateTrail -> Maybe Text
$sel:s3KeyPrefix:CreateTrail' :: CreateTrail -> Maybe Text
$sel:kmsKeyId:CreateTrail' :: CreateTrail -> Maybe Text
$sel:isOrganizationTrail:CreateTrail' :: CreateTrail -> Maybe Bool
$sel:isMultiRegionTrail:CreateTrail' :: CreateTrail -> Maybe Bool
$sel:includeGlobalServiceEvents:CreateTrail' :: CreateTrail -> Maybe Bool
$sel:enableLogFileValidation:CreateTrail' :: CreateTrail -> Maybe Bool
$sel:cloudWatchLogsRoleArn:CreateTrail' :: CreateTrail -> Maybe Text
$sel:cloudWatchLogsLogGroupArn:CreateTrail' :: CreateTrail -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"CloudWatchLogsLogGroupArn" 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
cloudWatchLogsLogGroupArn,
(Key
"CloudWatchLogsRoleArn" 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
cloudWatchLogsRoleArn,
(Key
"EnableLogFileValidation" 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 Bool
enableLogFileValidation,
(Key
"IncludeGlobalServiceEvents" 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 Bool
includeGlobalServiceEvents,
(Key
"IsMultiRegionTrail" 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 Bool
isMultiRegionTrail,
(Key
"IsOrganizationTrail" 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 Bool
isOrganizationTrail,
(Key
"KmsKeyId" 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
kmsKeyId,
(Key
"S3KeyPrefix" 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
s3KeyPrefix,
(Key
"SnsTopicName" 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
snsTopicName,
(Key
"TagsList" 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]
tagsList,
forall a. a -> Maybe a
Prelude.Just (Key
"Name" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
name),
forall a. a -> Maybe a
Prelude.Just (Key
"S3BucketName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
s3BucketName)
]
)
instance Data.ToPath CreateTrail where
toPath :: CreateTrail -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateTrail where
toQuery :: CreateTrail -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateTrailResponse = CreateTrailResponse'
{
CreateTrailResponse -> Maybe Text
cloudWatchLogsLogGroupArn :: Prelude.Maybe Prelude.Text,
CreateTrailResponse -> Maybe Text
cloudWatchLogsRoleArn :: Prelude.Maybe Prelude.Text,
CreateTrailResponse -> Maybe Bool
includeGlobalServiceEvents :: Prelude.Maybe Prelude.Bool,
CreateTrailResponse -> Maybe Bool
isMultiRegionTrail :: Prelude.Maybe Prelude.Bool,
CreateTrailResponse -> Maybe Bool
isOrganizationTrail :: Prelude.Maybe Prelude.Bool,
CreateTrailResponse -> Maybe Text
kmsKeyId :: Prelude.Maybe Prelude.Text,
CreateTrailResponse -> Maybe Bool
logFileValidationEnabled :: Prelude.Maybe Prelude.Bool,
CreateTrailResponse -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
CreateTrailResponse -> Maybe Text
s3BucketName :: Prelude.Maybe Prelude.Text,
CreateTrailResponse -> Maybe Text
s3KeyPrefix :: Prelude.Maybe Prelude.Text,
CreateTrailResponse -> Maybe Text
snsTopicARN :: Prelude.Maybe Prelude.Text,
CreateTrailResponse -> Maybe Text
snsTopicName :: Prelude.Maybe Prelude.Text,
CreateTrailResponse -> Maybe Text
trailARN :: Prelude.Maybe Prelude.Text,
CreateTrailResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateTrailResponse -> CreateTrailResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateTrailResponse -> CreateTrailResponse -> Bool
$c/= :: CreateTrailResponse -> CreateTrailResponse -> Bool
== :: CreateTrailResponse -> CreateTrailResponse -> Bool
$c== :: CreateTrailResponse -> CreateTrailResponse -> Bool
Prelude.Eq, ReadPrec [CreateTrailResponse]
ReadPrec CreateTrailResponse
Int -> ReadS CreateTrailResponse
ReadS [CreateTrailResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateTrailResponse]
$creadListPrec :: ReadPrec [CreateTrailResponse]
readPrec :: ReadPrec CreateTrailResponse
$creadPrec :: ReadPrec CreateTrailResponse
readList :: ReadS [CreateTrailResponse]
$creadList :: ReadS [CreateTrailResponse]
readsPrec :: Int -> ReadS CreateTrailResponse
$creadsPrec :: Int -> ReadS CreateTrailResponse
Prelude.Read, Int -> CreateTrailResponse -> ShowS
[CreateTrailResponse] -> ShowS
CreateTrailResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateTrailResponse] -> ShowS
$cshowList :: [CreateTrailResponse] -> ShowS
show :: CreateTrailResponse -> String
$cshow :: CreateTrailResponse -> String
showsPrec :: Int -> CreateTrailResponse -> ShowS
$cshowsPrec :: Int -> CreateTrailResponse -> ShowS
Prelude.Show, forall x. Rep CreateTrailResponse x -> CreateTrailResponse
forall x. CreateTrailResponse -> Rep CreateTrailResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateTrailResponse x -> CreateTrailResponse
$cfrom :: forall x. CreateTrailResponse -> Rep CreateTrailResponse x
Prelude.Generic)
newCreateTrailResponse ::
Prelude.Int ->
CreateTrailResponse
newCreateTrailResponse :: Int -> CreateTrailResponse
newCreateTrailResponse Int
pHttpStatus_ =
CreateTrailResponse'
{ $sel:cloudWatchLogsLogGroupArn:CreateTrailResponse' :: Maybe Text
cloudWatchLogsLogGroupArn =
forall a. Maybe a
Prelude.Nothing,
$sel:cloudWatchLogsRoleArn:CreateTrailResponse' :: Maybe Text
cloudWatchLogsRoleArn = forall a. Maybe a
Prelude.Nothing,
$sel:includeGlobalServiceEvents:CreateTrailResponse' :: Maybe Bool
includeGlobalServiceEvents = forall a. Maybe a
Prelude.Nothing,
$sel:isMultiRegionTrail:CreateTrailResponse' :: Maybe Bool
isMultiRegionTrail = forall a. Maybe a
Prelude.Nothing,
$sel:isOrganizationTrail:CreateTrailResponse' :: Maybe Bool
isOrganizationTrail = forall a. Maybe a
Prelude.Nothing,
$sel:kmsKeyId:CreateTrailResponse' :: Maybe Text
kmsKeyId = forall a. Maybe a
Prelude.Nothing,
$sel:logFileValidationEnabled:CreateTrailResponse' :: Maybe Bool
logFileValidationEnabled = forall a. Maybe a
Prelude.Nothing,
$sel:name:CreateTrailResponse' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:s3BucketName:CreateTrailResponse' :: Maybe Text
s3BucketName = forall a. Maybe a
Prelude.Nothing,
$sel:s3KeyPrefix:CreateTrailResponse' :: Maybe Text
s3KeyPrefix = forall a. Maybe a
Prelude.Nothing,
$sel:snsTopicARN:CreateTrailResponse' :: Maybe Text
snsTopicARN = forall a. Maybe a
Prelude.Nothing,
$sel:snsTopicName:CreateTrailResponse' :: Maybe Text
snsTopicName = forall a. Maybe a
Prelude.Nothing,
$sel:trailARN:CreateTrailResponse' :: Maybe Text
trailARN = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateTrailResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createTrailResponse_cloudWatchLogsLogGroupArn :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Text)
createTrailResponse_cloudWatchLogsLogGroupArn :: Lens' CreateTrailResponse (Maybe Text)
createTrailResponse_cloudWatchLogsLogGroupArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrailResponse' {Maybe Text
cloudWatchLogsLogGroupArn :: Maybe Text
$sel:cloudWatchLogsLogGroupArn:CreateTrailResponse' :: CreateTrailResponse -> Maybe Text
cloudWatchLogsLogGroupArn} -> Maybe Text
cloudWatchLogsLogGroupArn) (\s :: CreateTrailResponse
s@CreateTrailResponse' {} Maybe Text
a -> CreateTrailResponse
s {$sel:cloudWatchLogsLogGroupArn:CreateTrailResponse' :: Maybe Text
cloudWatchLogsLogGroupArn = Maybe Text
a} :: CreateTrailResponse)
createTrailResponse_cloudWatchLogsRoleArn :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Text)
createTrailResponse_cloudWatchLogsRoleArn :: Lens' CreateTrailResponse (Maybe Text)
createTrailResponse_cloudWatchLogsRoleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrailResponse' {Maybe Text
cloudWatchLogsRoleArn :: Maybe Text
$sel:cloudWatchLogsRoleArn:CreateTrailResponse' :: CreateTrailResponse -> Maybe Text
cloudWatchLogsRoleArn} -> Maybe Text
cloudWatchLogsRoleArn) (\s :: CreateTrailResponse
s@CreateTrailResponse' {} Maybe Text
a -> CreateTrailResponse
s {$sel:cloudWatchLogsRoleArn:CreateTrailResponse' :: Maybe Text
cloudWatchLogsRoleArn = Maybe Text
a} :: CreateTrailResponse)
createTrailResponse_includeGlobalServiceEvents :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Bool)
createTrailResponse_includeGlobalServiceEvents :: Lens' CreateTrailResponse (Maybe Bool)
createTrailResponse_includeGlobalServiceEvents = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrailResponse' {Maybe Bool
includeGlobalServiceEvents :: Maybe Bool
$sel:includeGlobalServiceEvents:CreateTrailResponse' :: CreateTrailResponse -> Maybe Bool
includeGlobalServiceEvents} -> Maybe Bool
includeGlobalServiceEvents) (\s :: CreateTrailResponse
s@CreateTrailResponse' {} Maybe Bool
a -> CreateTrailResponse
s {$sel:includeGlobalServiceEvents:CreateTrailResponse' :: Maybe Bool
includeGlobalServiceEvents = Maybe Bool
a} :: CreateTrailResponse)
createTrailResponse_isMultiRegionTrail :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Bool)
createTrailResponse_isMultiRegionTrail :: Lens' CreateTrailResponse (Maybe Bool)
createTrailResponse_isMultiRegionTrail = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrailResponse' {Maybe Bool
isMultiRegionTrail :: Maybe Bool
$sel:isMultiRegionTrail:CreateTrailResponse' :: CreateTrailResponse -> Maybe Bool
isMultiRegionTrail} -> Maybe Bool
isMultiRegionTrail) (\s :: CreateTrailResponse
s@CreateTrailResponse' {} Maybe Bool
a -> CreateTrailResponse
s {$sel:isMultiRegionTrail:CreateTrailResponse' :: Maybe Bool
isMultiRegionTrail = Maybe Bool
a} :: CreateTrailResponse)
createTrailResponse_isOrganizationTrail :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Bool)
createTrailResponse_isOrganizationTrail :: Lens' CreateTrailResponse (Maybe Bool)
createTrailResponse_isOrganizationTrail = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrailResponse' {Maybe Bool
isOrganizationTrail :: Maybe Bool
$sel:isOrganizationTrail:CreateTrailResponse' :: CreateTrailResponse -> Maybe Bool
isOrganizationTrail} -> Maybe Bool
isOrganizationTrail) (\s :: CreateTrailResponse
s@CreateTrailResponse' {} Maybe Bool
a -> CreateTrailResponse
s {$sel:isOrganizationTrail:CreateTrailResponse' :: Maybe Bool
isOrganizationTrail = Maybe Bool
a} :: CreateTrailResponse)
createTrailResponse_kmsKeyId :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Text)
createTrailResponse_kmsKeyId :: Lens' CreateTrailResponse (Maybe Text)
createTrailResponse_kmsKeyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrailResponse' {Maybe Text
kmsKeyId :: Maybe Text
$sel:kmsKeyId:CreateTrailResponse' :: CreateTrailResponse -> Maybe Text
kmsKeyId} -> Maybe Text
kmsKeyId) (\s :: CreateTrailResponse
s@CreateTrailResponse' {} Maybe Text
a -> CreateTrailResponse
s {$sel:kmsKeyId:CreateTrailResponse' :: Maybe Text
kmsKeyId = Maybe Text
a} :: CreateTrailResponse)
createTrailResponse_logFileValidationEnabled :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Bool)
createTrailResponse_logFileValidationEnabled :: Lens' CreateTrailResponse (Maybe Bool)
createTrailResponse_logFileValidationEnabled = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrailResponse' {Maybe Bool
logFileValidationEnabled :: Maybe Bool
$sel:logFileValidationEnabled:CreateTrailResponse' :: CreateTrailResponse -> Maybe Bool
logFileValidationEnabled} -> Maybe Bool
logFileValidationEnabled) (\s :: CreateTrailResponse
s@CreateTrailResponse' {} Maybe Bool
a -> CreateTrailResponse
s {$sel:logFileValidationEnabled:CreateTrailResponse' :: Maybe Bool
logFileValidationEnabled = Maybe Bool
a} :: CreateTrailResponse)
createTrailResponse_name :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Text)
createTrailResponse_name :: Lens' CreateTrailResponse (Maybe Text)
createTrailResponse_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrailResponse' {Maybe Text
name :: Maybe Text
$sel:name:CreateTrailResponse' :: CreateTrailResponse -> Maybe Text
name} -> Maybe Text
name) (\s :: CreateTrailResponse
s@CreateTrailResponse' {} Maybe Text
a -> CreateTrailResponse
s {$sel:name:CreateTrailResponse' :: Maybe Text
name = Maybe Text
a} :: CreateTrailResponse)
createTrailResponse_s3BucketName :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Text)
createTrailResponse_s3BucketName :: Lens' CreateTrailResponse (Maybe Text)
createTrailResponse_s3BucketName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrailResponse' {Maybe Text
s3BucketName :: Maybe Text
$sel:s3BucketName:CreateTrailResponse' :: CreateTrailResponse -> Maybe Text
s3BucketName} -> Maybe Text
s3BucketName) (\s :: CreateTrailResponse
s@CreateTrailResponse' {} Maybe Text
a -> CreateTrailResponse
s {$sel:s3BucketName:CreateTrailResponse' :: Maybe Text
s3BucketName = Maybe Text
a} :: CreateTrailResponse)
createTrailResponse_s3KeyPrefix :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Text)
createTrailResponse_s3KeyPrefix :: Lens' CreateTrailResponse (Maybe Text)
createTrailResponse_s3KeyPrefix = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrailResponse' {Maybe Text
s3KeyPrefix :: Maybe Text
$sel:s3KeyPrefix:CreateTrailResponse' :: CreateTrailResponse -> Maybe Text
s3KeyPrefix} -> Maybe Text
s3KeyPrefix) (\s :: CreateTrailResponse
s@CreateTrailResponse' {} Maybe Text
a -> CreateTrailResponse
s {$sel:s3KeyPrefix:CreateTrailResponse' :: Maybe Text
s3KeyPrefix = Maybe Text
a} :: CreateTrailResponse)
createTrailResponse_snsTopicARN :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Text)
createTrailResponse_snsTopicARN :: Lens' CreateTrailResponse (Maybe Text)
createTrailResponse_snsTopicARN = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrailResponse' {Maybe Text
snsTopicARN :: Maybe Text
$sel:snsTopicARN:CreateTrailResponse' :: CreateTrailResponse -> Maybe Text
snsTopicARN} -> Maybe Text
snsTopicARN) (\s :: CreateTrailResponse
s@CreateTrailResponse' {} Maybe Text
a -> CreateTrailResponse
s {$sel:snsTopicARN:CreateTrailResponse' :: Maybe Text
snsTopicARN = Maybe Text
a} :: CreateTrailResponse)
createTrailResponse_snsTopicName :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Text)
createTrailResponse_snsTopicName :: Lens' CreateTrailResponse (Maybe Text)
createTrailResponse_snsTopicName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrailResponse' {Maybe Text
snsTopicName :: Maybe Text
$sel:snsTopicName:CreateTrailResponse' :: CreateTrailResponse -> Maybe Text
snsTopicName} -> Maybe Text
snsTopicName) (\s :: CreateTrailResponse
s@CreateTrailResponse' {} Maybe Text
a -> CreateTrailResponse
s {$sel:snsTopicName:CreateTrailResponse' :: Maybe Text
snsTopicName = Maybe Text
a} :: CreateTrailResponse)
createTrailResponse_trailARN :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Text)
createTrailResponse_trailARN :: Lens' CreateTrailResponse (Maybe Text)
createTrailResponse_trailARN = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrailResponse' {Maybe Text
trailARN :: Maybe Text
$sel:trailARN:CreateTrailResponse' :: CreateTrailResponse -> Maybe Text
trailARN} -> Maybe Text
trailARN) (\s :: CreateTrailResponse
s@CreateTrailResponse' {} Maybe Text
a -> CreateTrailResponse
s {$sel:trailARN:CreateTrailResponse' :: Maybe Text
trailARN = Maybe Text
a} :: CreateTrailResponse)
createTrailResponse_httpStatus :: Lens.Lens' CreateTrailResponse Prelude.Int
createTrailResponse_httpStatus :: Lens' CreateTrailResponse Int
createTrailResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrailResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateTrailResponse' :: CreateTrailResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateTrailResponse
s@CreateTrailResponse' {} Int
a -> CreateTrailResponse
s {$sel:httpStatus:CreateTrailResponse' :: Int
httpStatus = Int
a} :: CreateTrailResponse)
instance Prelude.NFData CreateTrailResponse where
rnf :: CreateTrailResponse -> ()
rnf CreateTrailResponse' {Int
Maybe Bool
Maybe Text
httpStatus :: Int
trailARN :: Maybe Text
snsTopicName :: Maybe Text
snsTopicARN :: Maybe Text
s3KeyPrefix :: Maybe Text
s3BucketName :: Maybe Text
name :: Maybe Text
logFileValidationEnabled :: Maybe Bool
kmsKeyId :: Maybe Text
isOrganizationTrail :: Maybe Bool
isMultiRegionTrail :: Maybe Bool
includeGlobalServiceEvents :: Maybe Bool
cloudWatchLogsRoleArn :: Maybe Text
cloudWatchLogsLogGroupArn :: Maybe Text
$sel:httpStatus:CreateTrailResponse' :: CreateTrailResponse -> Int
$sel:trailARN:CreateTrailResponse' :: CreateTrailResponse -> Maybe Text
$sel:snsTopicName:CreateTrailResponse' :: CreateTrailResponse -> Maybe Text
$sel:snsTopicARN:CreateTrailResponse' :: CreateTrailResponse -> Maybe Text
$sel:s3KeyPrefix:CreateTrailResponse' :: CreateTrailResponse -> Maybe Text
$sel:s3BucketName:CreateTrailResponse' :: CreateTrailResponse -> Maybe Text
$sel:name:CreateTrailResponse' :: CreateTrailResponse -> Maybe Text
$sel:logFileValidationEnabled:CreateTrailResponse' :: CreateTrailResponse -> Maybe Bool
$sel:kmsKeyId:CreateTrailResponse' :: CreateTrailResponse -> Maybe Text
$sel:isOrganizationTrail:CreateTrailResponse' :: CreateTrailResponse -> Maybe Bool
$sel:isMultiRegionTrail:CreateTrailResponse' :: CreateTrailResponse -> Maybe Bool
$sel:includeGlobalServiceEvents:CreateTrailResponse' :: CreateTrailResponse -> Maybe Bool
$sel:cloudWatchLogsRoleArn:CreateTrailResponse' :: CreateTrailResponse -> Maybe Text
$sel:cloudWatchLogsLogGroupArn:CreateTrailResponse' :: CreateTrailResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
cloudWatchLogsLogGroupArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
cloudWatchLogsRoleArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
includeGlobalServiceEvents
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
isMultiRegionTrail
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
isOrganizationTrail
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
kmsKeyId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
logFileValidationEnabled
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
s3BucketName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
s3KeyPrefix
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
snsTopicARN
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
snsTopicName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
trailARN
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus