{-# 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.GuardDuty.CreateThreatIntelSet
(
CreateThreatIntelSet (..),
newCreateThreatIntelSet,
createThreatIntelSet_clientToken,
createThreatIntelSet_tags,
createThreatIntelSet_detectorId,
createThreatIntelSet_name,
createThreatIntelSet_format,
createThreatIntelSet_location,
createThreatIntelSet_activate,
CreateThreatIntelSetResponse (..),
newCreateThreatIntelSetResponse,
createThreatIntelSetResponse_httpStatus,
createThreatIntelSetResponse_threatIntelSetId,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.GuardDuty.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateThreatIntelSet = CreateThreatIntelSet'
{
CreateThreatIntelSet -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
CreateThreatIntelSet -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
CreateThreatIntelSet -> Text
detectorId :: Prelude.Text,
CreateThreatIntelSet -> Text
name :: Prelude.Text,
CreateThreatIntelSet -> ThreatIntelSetFormat
format :: ThreatIntelSetFormat,
CreateThreatIntelSet -> Text
location :: Prelude.Text,
CreateThreatIntelSet -> Bool
activate :: Prelude.Bool
}
deriving (CreateThreatIntelSet -> CreateThreatIntelSet -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateThreatIntelSet -> CreateThreatIntelSet -> Bool
$c/= :: CreateThreatIntelSet -> CreateThreatIntelSet -> Bool
== :: CreateThreatIntelSet -> CreateThreatIntelSet -> Bool
$c== :: CreateThreatIntelSet -> CreateThreatIntelSet -> Bool
Prelude.Eq, ReadPrec [CreateThreatIntelSet]
ReadPrec CreateThreatIntelSet
Int -> ReadS CreateThreatIntelSet
ReadS [CreateThreatIntelSet]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateThreatIntelSet]
$creadListPrec :: ReadPrec [CreateThreatIntelSet]
readPrec :: ReadPrec CreateThreatIntelSet
$creadPrec :: ReadPrec CreateThreatIntelSet
readList :: ReadS [CreateThreatIntelSet]
$creadList :: ReadS [CreateThreatIntelSet]
readsPrec :: Int -> ReadS CreateThreatIntelSet
$creadsPrec :: Int -> ReadS CreateThreatIntelSet
Prelude.Read, Int -> CreateThreatIntelSet -> ShowS
[CreateThreatIntelSet] -> ShowS
CreateThreatIntelSet -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateThreatIntelSet] -> ShowS
$cshowList :: [CreateThreatIntelSet] -> ShowS
show :: CreateThreatIntelSet -> String
$cshow :: CreateThreatIntelSet -> String
showsPrec :: Int -> CreateThreatIntelSet -> ShowS
$cshowsPrec :: Int -> CreateThreatIntelSet -> ShowS
Prelude.Show, forall x. Rep CreateThreatIntelSet x -> CreateThreatIntelSet
forall x. CreateThreatIntelSet -> Rep CreateThreatIntelSet x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateThreatIntelSet x -> CreateThreatIntelSet
$cfrom :: forall x. CreateThreatIntelSet -> Rep CreateThreatIntelSet x
Prelude.Generic)
newCreateThreatIntelSet ::
Prelude.Text ->
Prelude.Text ->
ThreatIntelSetFormat ->
Prelude.Text ->
Prelude.Bool ->
CreateThreatIntelSet
newCreateThreatIntelSet :: Text
-> Text
-> ThreatIntelSetFormat
-> Text
-> Bool
-> CreateThreatIntelSet
newCreateThreatIntelSet
Text
pDetectorId_
Text
pName_
ThreatIntelSetFormat
pFormat_
Text
pLocation_
Bool
pActivate_ =
CreateThreatIntelSet'
{ $sel:clientToken:CreateThreatIntelSet' :: Maybe Text
clientToken =
forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateThreatIntelSet' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:detectorId:CreateThreatIntelSet' :: Text
detectorId = Text
pDetectorId_,
$sel:name:CreateThreatIntelSet' :: Text
name = Text
pName_,
$sel:format:CreateThreatIntelSet' :: ThreatIntelSetFormat
format = ThreatIntelSetFormat
pFormat_,
$sel:location:CreateThreatIntelSet' :: Text
location = Text
pLocation_,
$sel:activate:CreateThreatIntelSet' :: Bool
activate = Bool
pActivate_
}
createThreatIntelSet_clientToken :: Lens.Lens' CreateThreatIntelSet (Prelude.Maybe Prelude.Text)
createThreatIntelSet_clientToken :: Lens' CreateThreatIntelSet (Maybe Text)
createThreatIntelSet_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateThreatIntelSet' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:CreateThreatIntelSet' :: CreateThreatIntelSet -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: CreateThreatIntelSet
s@CreateThreatIntelSet' {} Maybe Text
a -> CreateThreatIntelSet
s {$sel:clientToken:CreateThreatIntelSet' :: Maybe Text
clientToken = Maybe Text
a} :: CreateThreatIntelSet)
createThreatIntelSet_tags :: Lens.Lens' CreateThreatIntelSet (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
createThreatIntelSet_tags :: Lens' CreateThreatIntelSet (Maybe (HashMap Text Text))
createThreatIntelSet_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateThreatIntelSet' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:CreateThreatIntelSet' :: CreateThreatIntelSet -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: CreateThreatIntelSet
s@CreateThreatIntelSet' {} Maybe (HashMap Text Text)
a -> CreateThreatIntelSet
s {$sel:tags:CreateThreatIntelSet' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: CreateThreatIntelSet) 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
createThreatIntelSet_detectorId :: Lens.Lens' CreateThreatIntelSet Prelude.Text
createThreatIntelSet_detectorId :: Lens' CreateThreatIntelSet Text
createThreatIntelSet_detectorId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateThreatIntelSet' {Text
detectorId :: Text
$sel:detectorId:CreateThreatIntelSet' :: CreateThreatIntelSet -> Text
detectorId} -> Text
detectorId) (\s :: CreateThreatIntelSet
s@CreateThreatIntelSet' {} Text
a -> CreateThreatIntelSet
s {$sel:detectorId:CreateThreatIntelSet' :: Text
detectorId = Text
a} :: CreateThreatIntelSet)
createThreatIntelSet_name :: Lens.Lens' CreateThreatIntelSet Prelude.Text
createThreatIntelSet_name :: Lens' CreateThreatIntelSet Text
createThreatIntelSet_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateThreatIntelSet' {Text
name :: Text
$sel:name:CreateThreatIntelSet' :: CreateThreatIntelSet -> Text
name} -> Text
name) (\s :: CreateThreatIntelSet
s@CreateThreatIntelSet' {} Text
a -> CreateThreatIntelSet
s {$sel:name:CreateThreatIntelSet' :: Text
name = Text
a} :: CreateThreatIntelSet)
createThreatIntelSet_format :: Lens.Lens' CreateThreatIntelSet ThreatIntelSetFormat
createThreatIntelSet_format :: Lens' CreateThreatIntelSet ThreatIntelSetFormat
createThreatIntelSet_format = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateThreatIntelSet' {ThreatIntelSetFormat
format :: ThreatIntelSetFormat
$sel:format:CreateThreatIntelSet' :: CreateThreatIntelSet -> ThreatIntelSetFormat
format} -> ThreatIntelSetFormat
format) (\s :: CreateThreatIntelSet
s@CreateThreatIntelSet' {} ThreatIntelSetFormat
a -> CreateThreatIntelSet
s {$sel:format:CreateThreatIntelSet' :: ThreatIntelSetFormat
format = ThreatIntelSetFormat
a} :: CreateThreatIntelSet)
createThreatIntelSet_location :: Lens.Lens' CreateThreatIntelSet Prelude.Text
createThreatIntelSet_location :: Lens' CreateThreatIntelSet Text
createThreatIntelSet_location = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateThreatIntelSet' {Text
location :: Text
$sel:location:CreateThreatIntelSet' :: CreateThreatIntelSet -> Text
location} -> Text
location) (\s :: CreateThreatIntelSet
s@CreateThreatIntelSet' {} Text
a -> CreateThreatIntelSet
s {$sel:location:CreateThreatIntelSet' :: Text
location = Text
a} :: CreateThreatIntelSet)
createThreatIntelSet_activate :: Lens.Lens' CreateThreatIntelSet Prelude.Bool
createThreatIntelSet_activate :: Lens' CreateThreatIntelSet Bool
createThreatIntelSet_activate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateThreatIntelSet' {Bool
activate :: Bool
$sel:activate:CreateThreatIntelSet' :: CreateThreatIntelSet -> Bool
activate} -> Bool
activate) (\s :: CreateThreatIntelSet
s@CreateThreatIntelSet' {} Bool
a -> CreateThreatIntelSet
s {$sel:activate:CreateThreatIntelSet' :: Bool
activate = Bool
a} :: CreateThreatIntelSet)
instance Core.AWSRequest CreateThreatIntelSet where
type
AWSResponse CreateThreatIntelSet =
CreateThreatIntelSetResponse
request :: (Service -> Service)
-> CreateThreatIntelSet -> Request CreateThreatIntelSet
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 CreateThreatIntelSet
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateThreatIntelSet)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Int -> Text -> CreateThreatIntelSetResponse
CreateThreatIntelSetResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"threatIntelSetId")
)
instance Prelude.Hashable CreateThreatIntelSet where
hashWithSalt :: Int -> CreateThreatIntelSet -> Int
hashWithSalt Int
_salt CreateThreatIntelSet' {Bool
Maybe Text
Maybe (HashMap Text Text)
Text
ThreatIntelSetFormat
activate :: Bool
location :: Text
format :: ThreatIntelSetFormat
name :: Text
detectorId :: Text
tags :: Maybe (HashMap Text Text)
clientToken :: Maybe Text
$sel:activate:CreateThreatIntelSet' :: CreateThreatIntelSet -> Bool
$sel:location:CreateThreatIntelSet' :: CreateThreatIntelSet -> Text
$sel:format:CreateThreatIntelSet' :: CreateThreatIntelSet -> ThreatIntelSetFormat
$sel:name:CreateThreatIntelSet' :: CreateThreatIntelSet -> Text
$sel:detectorId:CreateThreatIntelSet' :: CreateThreatIntelSet -> Text
$sel:tags:CreateThreatIntelSet' :: CreateThreatIntelSet -> Maybe (HashMap Text Text)
$sel:clientToken:CreateThreatIntelSet' :: CreateThreatIntelSet -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clientToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
detectorId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ThreatIntelSetFormat
format
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
location
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Bool
activate
instance Prelude.NFData CreateThreatIntelSet where
rnf :: CreateThreatIntelSet -> ()
rnf CreateThreatIntelSet' {Bool
Maybe Text
Maybe (HashMap Text Text)
Text
ThreatIntelSetFormat
activate :: Bool
location :: Text
format :: ThreatIntelSetFormat
name :: Text
detectorId :: Text
tags :: Maybe (HashMap Text Text)
clientToken :: Maybe Text
$sel:activate:CreateThreatIntelSet' :: CreateThreatIntelSet -> Bool
$sel:location:CreateThreatIntelSet' :: CreateThreatIntelSet -> Text
$sel:format:CreateThreatIntelSet' :: CreateThreatIntelSet -> ThreatIntelSetFormat
$sel:name:CreateThreatIntelSet' :: CreateThreatIntelSet -> Text
$sel:detectorId:CreateThreatIntelSet' :: CreateThreatIntelSet -> Text
$sel:tags:CreateThreatIntelSet' :: CreateThreatIntelSet -> Maybe (HashMap Text Text)
$sel:clientToken:CreateThreatIntelSet' :: CreateThreatIntelSet -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clientToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
detectorId
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 ThreatIntelSetFormat
format
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
location
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Bool
activate
instance Data.ToHeaders CreateThreatIntelSet where
toHeaders :: CreateThreatIntelSet -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON CreateThreatIntelSet where
toJSON :: CreateThreatIntelSet -> Value
toJSON CreateThreatIntelSet' {Bool
Maybe Text
Maybe (HashMap Text Text)
Text
ThreatIntelSetFormat
activate :: Bool
location :: Text
format :: ThreatIntelSetFormat
name :: Text
detectorId :: Text
tags :: Maybe (HashMap Text Text)
clientToken :: Maybe Text
$sel:activate:CreateThreatIntelSet' :: CreateThreatIntelSet -> Bool
$sel:location:CreateThreatIntelSet' :: CreateThreatIntelSet -> Text
$sel:format:CreateThreatIntelSet' :: CreateThreatIntelSet -> ThreatIntelSetFormat
$sel:name:CreateThreatIntelSet' :: CreateThreatIntelSet -> Text
$sel:detectorId:CreateThreatIntelSet' :: CreateThreatIntelSet -> Text
$sel:tags:CreateThreatIntelSet' :: CreateThreatIntelSet -> Maybe (HashMap Text Text)
$sel:clientToken:CreateThreatIntelSet' :: CreateThreatIntelSet -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"clientToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
clientToken,
(Key
"tags" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (HashMap Text Text)
tags,
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
"format" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= ThreatIntelSetFormat
format),
forall a. a -> Maybe a
Prelude.Just (Key
"location" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
location),
forall a. a -> Maybe a
Prelude.Just (Key
"activate" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Bool
activate)
]
)
instance Data.ToPath CreateThreatIntelSet where
toPath :: CreateThreatIntelSet -> ByteString
toPath CreateThreatIntelSet' {Bool
Maybe Text
Maybe (HashMap Text Text)
Text
ThreatIntelSetFormat
activate :: Bool
location :: Text
format :: ThreatIntelSetFormat
name :: Text
detectorId :: Text
tags :: Maybe (HashMap Text Text)
clientToken :: Maybe Text
$sel:activate:CreateThreatIntelSet' :: CreateThreatIntelSet -> Bool
$sel:location:CreateThreatIntelSet' :: CreateThreatIntelSet -> Text
$sel:format:CreateThreatIntelSet' :: CreateThreatIntelSet -> ThreatIntelSetFormat
$sel:name:CreateThreatIntelSet' :: CreateThreatIntelSet -> Text
$sel:detectorId:CreateThreatIntelSet' :: CreateThreatIntelSet -> Text
$sel:tags:CreateThreatIntelSet' :: CreateThreatIntelSet -> Maybe (HashMap Text Text)
$sel:clientToken:CreateThreatIntelSet' :: CreateThreatIntelSet -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/detector/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
detectorId,
ByteString
"/threatintelset"
]
instance Data.ToQuery CreateThreatIntelSet where
toQuery :: CreateThreatIntelSet -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateThreatIntelSetResponse = CreateThreatIntelSetResponse'
{
CreateThreatIntelSetResponse -> Int
httpStatus :: Prelude.Int,
CreateThreatIntelSetResponse -> Text
threatIntelSetId :: Prelude.Text
}
deriving (CreateThreatIntelSetResponse
-> CreateThreatIntelSetResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateThreatIntelSetResponse
-> CreateThreatIntelSetResponse -> Bool
$c/= :: CreateThreatIntelSetResponse
-> CreateThreatIntelSetResponse -> Bool
== :: CreateThreatIntelSetResponse
-> CreateThreatIntelSetResponse -> Bool
$c== :: CreateThreatIntelSetResponse
-> CreateThreatIntelSetResponse -> Bool
Prelude.Eq, ReadPrec [CreateThreatIntelSetResponse]
ReadPrec CreateThreatIntelSetResponse
Int -> ReadS CreateThreatIntelSetResponse
ReadS [CreateThreatIntelSetResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateThreatIntelSetResponse]
$creadListPrec :: ReadPrec [CreateThreatIntelSetResponse]
readPrec :: ReadPrec CreateThreatIntelSetResponse
$creadPrec :: ReadPrec CreateThreatIntelSetResponse
readList :: ReadS [CreateThreatIntelSetResponse]
$creadList :: ReadS [CreateThreatIntelSetResponse]
readsPrec :: Int -> ReadS CreateThreatIntelSetResponse
$creadsPrec :: Int -> ReadS CreateThreatIntelSetResponse
Prelude.Read, Int -> CreateThreatIntelSetResponse -> ShowS
[CreateThreatIntelSetResponse] -> ShowS
CreateThreatIntelSetResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateThreatIntelSetResponse] -> ShowS
$cshowList :: [CreateThreatIntelSetResponse] -> ShowS
show :: CreateThreatIntelSetResponse -> String
$cshow :: CreateThreatIntelSetResponse -> String
showsPrec :: Int -> CreateThreatIntelSetResponse -> ShowS
$cshowsPrec :: Int -> CreateThreatIntelSetResponse -> ShowS
Prelude.Show, forall x.
Rep CreateThreatIntelSetResponse x -> CreateThreatIntelSetResponse
forall x.
CreateThreatIntelSetResponse -> Rep CreateThreatIntelSetResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateThreatIntelSetResponse x -> CreateThreatIntelSetResponse
$cfrom :: forall x.
CreateThreatIntelSetResponse -> Rep CreateThreatIntelSetResponse x
Prelude.Generic)
newCreateThreatIntelSetResponse ::
Prelude.Int ->
Prelude.Text ->
CreateThreatIntelSetResponse
newCreateThreatIntelSetResponse :: Int -> Text -> CreateThreatIntelSetResponse
newCreateThreatIntelSetResponse
Int
pHttpStatus_
Text
pThreatIntelSetId_ =
CreateThreatIntelSetResponse'
{ $sel:httpStatus:CreateThreatIntelSetResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:threatIntelSetId:CreateThreatIntelSetResponse' :: Text
threatIntelSetId = Text
pThreatIntelSetId_
}
createThreatIntelSetResponse_httpStatus :: Lens.Lens' CreateThreatIntelSetResponse Prelude.Int
createThreatIntelSetResponse_httpStatus :: Lens' CreateThreatIntelSetResponse Int
createThreatIntelSetResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateThreatIntelSetResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateThreatIntelSetResponse' :: CreateThreatIntelSetResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateThreatIntelSetResponse
s@CreateThreatIntelSetResponse' {} Int
a -> CreateThreatIntelSetResponse
s {$sel:httpStatus:CreateThreatIntelSetResponse' :: Int
httpStatus = Int
a} :: CreateThreatIntelSetResponse)
createThreatIntelSetResponse_threatIntelSetId :: Lens.Lens' CreateThreatIntelSetResponse Prelude.Text
createThreatIntelSetResponse_threatIntelSetId :: Lens' CreateThreatIntelSetResponse Text
createThreatIntelSetResponse_threatIntelSetId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateThreatIntelSetResponse' {Text
threatIntelSetId :: Text
$sel:threatIntelSetId:CreateThreatIntelSetResponse' :: CreateThreatIntelSetResponse -> Text
threatIntelSetId} -> Text
threatIntelSetId) (\s :: CreateThreatIntelSetResponse
s@CreateThreatIntelSetResponse' {} Text
a -> CreateThreatIntelSetResponse
s {$sel:threatIntelSetId:CreateThreatIntelSetResponse' :: Text
threatIntelSetId = Text
a} :: CreateThreatIntelSetResponse)
instance Prelude.NFData CreateThreatIntelSetResponse where
rnf :: CreateThreatIntelSetResponse -> ()
rnf CreateThreatIntelSetResponse' {Int
Text
threatIntelSetId :: Text
httpStatus :: Int
$sel:threatIntelSetId:CreateThreatIntelSetResponse' :: CreateThreatIntelSetResponse -> Text
$sel:httpStatus:CreateThreatIntelSetResponse' :: CreateThreatIntelSetResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
threatIntelSetId