{-# 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.Schemas.CreateDiscoverer
(
CreateDiscoverer (..),
newCreateDiscoverer,
createDiscoverer_crossAccount,
createDiscoverer_description,
createDiscoverer_tags,
createDiscoverer_sourceArn,
CreateDiscovererResponse (..),
newCreateDiscovererResponse,
createDiscovererResponse_crossAccount,
createDiscovererResponse_description,
createDiscovererResponse_discovererArn,
createDiscovererResponse_discovererId,
createDiscovererResponse_sourceArn,
createDiscovererResponse_state,
createDiscovererResponse_tags,
createDiscovererResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.Schemas.Types
data CreateDiscoverer = CreateDiscoverer'
{
CreateDiscoverer -> Maybe Bool
crossAccount :: Prelude.Maybe Prelude.Bool,
CreateDiscoverer -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
CreateDiscoverer -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
CreateDiscoverer -> Text
sourceArn :: Prelude.Text
}
deriving (CreateDiscoverer -> CreateDiscoverer -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateDiscoverer -> CreateDiscoverer -> Bool
$c/= :: CreateDiscoverer -> CreateDiscoverer -> Bool
== :: CreateDiscoverer -> CreateDiscoverer -> Bool
$c== :: CreateDiscoverer -> CreateDiscoverer -> Bool
Prelude.Eq, ReadPrec [CreateDiscoverer]
ReadPrec CreateDiscoverer
Int -> ReadS CreateDiscoverer
ReadS [CreateDiscoverer]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateDiscoverer]
$creadListPrec :: ReadPrec [CreateDiscoverer]
readPrec :: ReadPrec CreateDiscoverer
$creadPrec :: ReadPrec CreateDiscoverer
readList :: ReadS [CreateDiscoverer]
$creadList :: ReadS [CreateDiscoverer]
readsPrec :: Int -> ReadS CreateDiscoverer
$creadsPrec :: Int -> ReadS CreateDiscoverer
Prelude.Read, Int -> CreateDiscoverer -> ShowS
[CreateDiscoverer] -> ShowS
CreateDiscoverer -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateDiscoverer] -> ShowS
$cshowList :: [CreateDiscoverer] -> ShowS
show :: CreateDiscoverer -> String
$cshow :: CreateDiscoverer -> String
showsPrec :: Int -> CreateDiscoverer -> ShowS
$cshowsPrec :: Int -> CreateDiscoverer -> ShowS
Prelude.Show, forall x. Rep CreateDiscoverer x -> CreateDiscoverer
forall x. CreateDiscoverer -> Rep CreateDiscoverer x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateDiscoverer x -> CreateDiscoverer
$cfrom :: forall x. CreateDiscoverer -> Rep CreateDiscoverer x
Prelude.Generic)
newCreateDiscoverer ::
Prelude.Text ->
CreateDiscoverer
newCreateDiscoverer :: Text -> CreateDiscoverer
newCreateDiscoverer Text
pSourceArn_ =
CreateDiscoverer'
{ $sel:crossAccount:CreateDiscoverer' :: Maybe Bool
crossAccount = forall a. Maybe a
Prelude.Nothing,
$sel:description:CreateDiscoverer' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateDiscoverer' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:sourceArn:CreateDiscoverer' :: Text
sourceArn = Text
pSourceArn_
}
createDiscoverer_crossAccount :: Lens.Lens' CreateDiscoverer (Prelude.Maybe Prelude.Bool)
createDiscoverer_crossAccount :: Lens' CreateDiscoverer (Maybe Bool)
createDiscoverer_crossAccount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDiscoverer' {Maybe Bool
crossAccount :: Maybe Bool
$sel:crossAccount:CreateDiscoverer' :: CreateDiscoverer -> Maybe Bool
crossAccount} -> Maybe Bool
crossAccount) (\s :: CreateDiscoverer
s@CreateDiscoverer' {} Maybe Bool
a -> CreateDiscoverer
s {$sel:crossAccount:CreateDiscoverer' :: Maybe Bool
crossAccount = Maybe Bool
a} :: CreateDiscoverer)
createDiscoverer_description :: Lens.Lens' CreateDiscoverer (Prelude.Maybe Prelude.Text)
createDiscoverer_description :: Lens' CreateDiscoverer (Maybe Text)
createDiscoverer_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDiscoverer' {Maybe Text
description :: Maybe Text
$sel:description:CreateDiscoverer' :: CreateDiscoverer -> Maybe Text
description} -> Maybe Text
description) (\s :: CreateDiscoverer
s@CreateDiscoverer' {} Maybe Text
a -> CreateDiscoverer
s {$sel:description:CreateDiscoverer' :: Maybe Text
description = Maybe Text
a} :: CreateDiscoverer)
createDiscoverer_tags :: Lens.Lens' CreateDiscoverer (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
createDiscoverer_tags :: Lens' CreateDiscoverer (Maybe (HashMap Text Text))
createDiscoverer_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDiscoverer' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:CreateDiscoverer' :: CreateDiscoverer -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: CreateDiscoverer
s@CreateDiscoverer' {} Maybe (HashMap Text Text)
a -> CreateDiscoverer
s {$sel:tags:CreateDiscoverer' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: CreateDiscoverer) 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
createDiscoverer_sourceArn :: Lens.Lens' CreateDiscoverer Prelude.Text
createDiscoverer_sourceArn :: Lens' CreateDiscoverer Text
createDiscoverer_sourceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDiscoverer' {Text
sourceArn :: Text
$sel:sourceArn:CreateDiscoverer' :: CreateDiscoverer -> Text
sourceArn} -> Text
sourceArn) (\s :: CreateDiscoverer
s@CreateDiscoverer' {} Text
a -> CreateDiscoverer
s {$sel:sourceArn:CreateDiscoverer' :: Text
sourceArn = Text
a} :: CreateDiscoverer)
instance Core.AWSRequest CreateDiscoverer where
type
AWSResponse CreateDiscoverer =
CreateDiscovererResponse
request :: (Service -> Service)
-> CreateDiscoverer -> Request CreateDiscoverer
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 CreateDiscoverer
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateDiscoverer)))
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 Bool
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe DiscovererState
-> Maybe (HashMap Text Text)
-> Int
-> CreateDiscovererResponse
CreateDiscovererResponse'
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
"CrossAccount")
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
"Description")
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
"DiscovererArn")
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
"DiscovererId")
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
"SourceArn")
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
"State")
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
"tags" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
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 CreateDiscoverer where
hashWithSalt :: Int -> CreateDiscoverer -> Int
hashWithSalt Int
_salt CreateDiscoverer' {Maybe Bool
Maybe Text
Maybe (HashMap Text Text)
Text
sourceArn :: Text
tags :: Maybe (HashMap Text Text)
description :: Maybe Text
crossAccount :: Maybe Bool
$sel:sourceArn:CreateDiscoverer' :: CreateDiscoverer -> Text
$sel:tags:CreateDiscoverer' :: CreateDiscoverer -> Maybe (HashMap Text Text)
$sel:description:CreateDiscoverer' :: CreateDiscoverer -> Maybe Text
$sel:crossAccount:CreateDiscoverer' :: CreateDiscoverer -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
crossAccount
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
description
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
sourceArn
instance Prelude.NFData CreateDiscoverer where
rnf :: CreateDiscoverer -> ()
rnf CreateDiscoverer' {Maybe Bool
Maybe Text
Maybe (HashMap Text Text)
Text
sourceArn :: Text
tags :: Maybe (HashMap Text Text)
description :: Maybe Text
crossAccount :: Maybe Bool
$sel:sourceArn:CreateDiscoverer' :: CreateDiscoverer -> Text
$sel:tags:CreateDiscoverer' :: CreateDiscoverer -> Maybe (HashMap Text Text)
$sel:description:CreateDiscoverer' :: CreateDiscoverer -> Maybe Text
$sel:crossAccount:CreateDiscoverer' :: CreateDiscoverer -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
crossAccount
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
description
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
sourceArn
instance Data.ToHeaders CreateDiscoverer where
toHeaders :: CreateDiscoverer -> 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 CreateDiscoverer where
toJSON :: CreateDiscoverer -> Value
toJSON CreateDiscoverer' {Maybe Bool
Maybe Text
Maybe (HashMap Text Text)
Text
sourceArn :: Text
tags :: Maybe (HashMap Text Text)
description :: Maybe Text
crossAccount :: Maybe Bool
$sel:sourceArn:CreateDiscoverer' :: CreateDiscoverer -> Text
$sel:tags:CreateDiscoverer' :: CreateDiscoverer -> Maybe (HashMap Text Text)
$sel:description:CreateDiscoverer' :: CreateDiscoverer -> Maybe Text
$sel:crossAccount:CreateDiscoverer' :: CreateDiscoverer -> Maybe Bool
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"CrossAccount" 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
crossAccount,
(Key
"Description" 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
description,
(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
"SourceArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
sourceArn)
]
)
instance Data.ToPath CreateDiscoverer where
toPath :: CreateDiscoverer -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/v1/discoverers"
instance Data.ToQuery CreateDiscoverer where
toQuery :: CreateDiscoverer -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateDiscovererResponse = CreateDiscovererResponse'
{
CreateDiscovererResponse -> Maybe Bool
crossAccount :: Prelude.Maybe Prelude.Bool,
CreateDiscovererResponse -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
CreateDiscovererResponse -> Maybe Text
discovererArn :: Prelude.Maybe Prelude.Text,
CreateDiscovererResponse -> Maybe Text
discovererId :: Prelude.Maybe Prelude.Text,
CreateDiscovererResponse -> Maybe Text
sourceArn :: Prelude.Maybe Prelude.Text,
CreateDiscovererResponse -> Maybe DiscovererState
state :: Prelude.Maybe DiscovererState,
CreateDiscovererResponse -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
CreateDiscovererResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateDiscovererResponse -> CreateDiscovererResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateDiscovererResponse -> CreateDiscovererResponse -> Bool
$c/= :: CreateDiscovererResponse -> CreateDiscovererResponse -> Bool
== :: CreateDiscovererResponse -> CreateDiscovererResponse -> Bool
$c== :: CreateDiscovererResponse -> CreateDiscovererResponse -> Bool
Prelude.Eq, ReadPrec [CreateDiscovererResponse]
ReadPrec CreateDiscovererResponse
Int -> ReadS CreateDiscovererResponse
ReadS [CreateDiscovererResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateDiscovererResponse]
$creadListPrec :: ReadPrec [CreateDiscovererResponse]
readPrec :: ReadPrec CreateDiscovererResponse
$creadPrec :: ReadPrec CreateDiscovererResponse
readList :: ReadS [CreateDiscovererResponse]
$creadList :: ReadS [CreateDiscovererResponse]
readsPrec :: Int -> ReadS CreateDiscovererResponse
$creadsPrec :: Int -> ReadS CreateDiscovererResponse
Prelude.Read, Int -> CreateDiscovererResponse -> ShowS
[CreateDiscovererResponse] -> ShowS
CreateDiscovererResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateDiscovererResponse] -> ShowS
$cshowList :: [CreateDiscovererResponse] -> ShowS
show :: CreateDiscovererResponse -> String
$cshow :: CreateDiscovererResponse -> String
showsPrec :: Int -> CreateDiscovererResponse -> ShowS
$cshowsPrec :: Int -> CreateDiscovererResponse -> ShowS
Prelude.Show, forall x.
Rep CreateDiscovererResponse x -> CreateDiscovererResponse
forall x.
CreateDiscovererResponse -> Rep CreateDiscovererResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateDiscovererResponse x -> CreateDiscovererResponse
$cfrom :: forall x.
CreateDiscovererResponse -> Rep CreateDiscovererResponse x
Prelude.Generic)
newCreateDiscovererResponse ::
Prelude.Int ->
CreateDiscovererResponse
newCreateDiscovererResponse :: Int -> CreateDiscovererResponse
newCreateDiscovererResponse Int
pHttpStatus_ =
CreateDiscovererResponse'
{ $sel:crossAccount:CreateDiscovererResponse' :: Maybe Bool
crossAccount =
forall a. Maybe a
Prelude.Nothing,
$sel:description:CreateDiscovererResponse' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:discovererArn:CreateDiscovererResponse' :: Maybe Text
discovererArn = forall a. Maybe a
Prelude.Nothing,
$sel:discovererId:CreateDiscovererResponse' :: Maybe Text
discovererId = forall a. Maybe a
Prelude.Nothing,
$sel:sourceArn:CreateDiscovererResponse' :: Maybe Text
sourceArn = forall a. Maybe a
Prelude.Nothing,
$sel:state:CreateDiscovererResponse' :: Maybe DiscovererState
state = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateDiscovererResponse' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateDiscovererResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createDiscovererResponse_crossAccount :: Lens.Lens' CreateDiscovererResponse (Prelude.Maybe Prelude.Bool)
createDiscovererResponse_crossAccount :: Lens' CreateDiscovererResponse (Maybe Bool)
createDiscovererResponse_crossAccount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDiscovererResponse' {Maybe Bool
crossAccount :: Maybe Bool
$sel:crossAccount:CreateDiscovererResponse' :: CreateDiscovererResponse -> Maybe Bool
crossAccount} -> Maybe Bool
crossAccount) (\s :: CreateDiscovererResponse
s@CreateDiscovererResponse' {} Maybe Bool
a -> CreateDiscovererResponse
s {$sel:crossAccount:CreateDiscovererResponse' :: Maybe Bool
crossAccount = Maybe Bool
a} :: CreateDiscovererResponse)
createDiscovererResponse_description :: Lens.Lens' CreateDiscovererResponse (Prelude.Maybe Prelude.Text)
createDiscovererResponse_description :: Lens' CreateDiscovererResponse (Maybe Text)
createDiscovererResponse_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDiscovererResponse' {Maybe Text
description :: Maybe Text
$sel:description:CreateDiscovererResponse' :: CreateDiscovererResponse -> Maybe Text
description} -> Maybe Text
description) (\s :: CreateDiscovererResponse
s@CreateDiscovererResponse' {} Maybe Text
a -> CreateDiscovererResponse
s {$sel:description:CreateDiscovererResponse' :: Maybe Text
description = Maybe Text
a} :: CreateDiscovererResponse)
createDiscovererResponse_discovererArn :: Lens.Lens' CreateDiscovererResponse (Prelude.Maybe Prelude.Text)
createDiscovererResponse_discovererArn :: Lens' CreateDiscovererResponse (Maybe Text)
createDiscovererResponse_discovererArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDiscovererResponse' {Maybe Text
discovererArn :: Maybe Text
$sel:discovererArn:CreateDiscovererResponse' :: CreateDiscovererResponse -> Maybe Text
discovererArn} -> Maybe Text
discovererArn) (\s :: CreateDiscovererResponse
s@CreateDiscovererResponse' {} Maybe Text
a -> CreateDiscovererResponse
s {$sel:discovererArn:CreateDiscovererResponse' :: Maybe Text
discovererArn = Maybe Text
a} :: CreateDiscovererResponse)
createDiscovererResponse_discovererId :: Lens.Lens' CreateDiscovererResponse (Prelude.Maybe Prelude.Text)
createDiscovererResponse_discovererId :: Lens' CreateDiscovererResponse (Maybe Text)
createDiscovererResponse_discovererId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDiscovererResponse' {Maybe Text
discovererId :: Maybe Text
$sel:discovererId:CreateDiscovererResponse' :: CreateDiscovererResponse -> Maybe Text
discovererId} -> Maybe Text
discovererId) (\s :: CreateDiscovererResponse
s@CreateDiscovererResponse' {} Maybe Text
a -> CreateDiscovererResponse
s {$sel:discovererId:CreateDiscovererResponse' :: Maybe Text
discovererId = Maybe Text
a} :: CreateDiscovererResponse)
createDiscovererResponse_sourceArn :: Lens.Lens' CreateDiscovererResponse (Prelude.Maybe Prelude.Text)
createDiscovererResponse_sourceArn :: Lens' CreateDiscovererResponse (Maybe Text)
createDiscovererResponse_sourceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDiscovererResponse' {Maybe Text
sourceArn :: Maybe Text
$sel:sourceArn:CreateDiscovererResponse' :: CreateDiscovererResponse -> Maybe Text
sourceArn} -> Maybe Text
sourceArn) (\s :: CreateDiscovererResponse
s@CreateDiscovererResponse' {} Maybe Text
a -> CreateDiscovererResponse
s {$sel:sourceArn:CreateDiscovererResponse' :: Maybe Text
sourceArn = Maybe Text
a} :: CreateDiscovererResponse)
createDiscovererResponse_state :: Lens.Lens' CreateDiscovererResponse (Prelude.Maybe DiscovererState)
createDiscovererResponse_state :: Lens' CreateDiscovererResponse (Maybe DiscovererState)
createDiscovererResponse_state = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDiscovererResponse' {Maybe DiscovererState
state :: Maybe DiscovererState
$sel:state:CreateDiscovererResponse' :: CreateDiscovererResponse -> Maybe DiscovererState
state} -> Maybe DiscovererState
state) (\s :: CreateDiscovererResponse
s@CreateDiscovererResponse' {} Maybe DiscovererState
a -> CreateDiscovererResponse
s {$sel:state:CreateDiscovererResponse' :: Maybe DiscovererState
state = Maybe DiscovererState
a} :: CreateDiscovererResponse)
createDiscovererResponse_tags :: Lens.Lens' CreateDiscovererResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
createDiscovererResponse_tags :: Lens' CreateDiscovererResponse (Maybe (HashMap Text Text))
createDiscovererResponse_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDiscovererResponse' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:CreateDiscovererResponse' :: CreateDiscovererResponse -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: CreateDiscovererResponse
s@CreateDiscovererResponse' {} Maybe (HashMap Text Text)
a -> CreateDiscovererResponse
s {$sel:tags:CreateDiscovererResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: CreateDiscovererResponse) 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
createDiscovererResponse_httpStatus :: Lens.Lens' CreateDiscovererResponse Prelude.Int
createDiscovererResponse_httpStatus :: Lens' CreateDiscovererResponse Int
createDiscovererResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDiscovererResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateDiscovererResponse' :: CreateDiscovererResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateDiscovererResponse
s@CreateDiscovererResponse' {} Int
a -> CreateDiscovererResponse
s {$sel:httpStatus:CreateDiscovererResponse' :: Int
httpStatus = Int
a} :: CreateDiscovererResponse)
instance Prelude.NFData CreateDiscovererResponse where
rnf :: CreateDiscovererResponse -> ()
rnf CreateDiscovererResponse' {Int
Maybe Bool
Maybe Text
Maybe (HashMap Text Text)
Maybe DiscovererState
httpStatus :: Int
tags :: Maybe (HashMap Text Text)
state :: Maybe DiscovererState
sourceArn :: Maybe Text
discovererId :: Maybe Text
discovererArn :: Maybe Text
description :: Maybe Text
crossAccount :: Maybe Bool
$sel:httpStatus:CreateDiscovererResponse' :: CreateDiscovererResponse -> Int
$sel:tags:CreateDiscovererResponse' :: CreateDiscovererResponse -> Maybe (HashMap Text Text)
$sel:state:CreateDiscovererResponse' :: CreateDiscovererResponse -> Maybe DiscovererState
$sel:sourceArn:CreateDiscovererResponse' :: CreateDiscovererResponse -> Maybe Text
$sel:discovererId:CreateDiscovererResponse' :: CreateDiscovererResponse -> Maybe Text
$sel:discovererArn:CreateDiscovererResponse' :: CreateDiscovererResponse -> Maybe Text
$sel:description:CreateDiscovererResponse' :: CreateDiscovererResponse -> Maybe Text
$sel:crossAccount:CreateDiscovererResponse' :: CreateDiscovererResponse -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
crossAccount
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
description
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
discovererArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
discovererId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
sourceArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DiscovererState
state
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 Int
httpStatus