{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.FIS.Types.UpdateExperimentTemplateTargetInput where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.FIS.Types.ExperimentTemplateTargetInputFilter
import qualified Amazonka.Prelude as Prelude
data UpdateExperimentTemplateTargetInput = UpdateExperimentTemplateTargetInput'
{
UpdateExperimentTemplateTargetInput
-> Maybe [ExperimentTemplateTargetInputFilter]
filters :: Prelude.Maybe [ExperimentTemplateTargetInputFilter],
UpdateExperimentTemplateTargetInput -> Maybe (HashMap Text Text)
parameters :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
UpdateExperimentTemplateTargetInput -> Maybe [Text]
resourceArns :: Prelude.Maybe [Prelude.Text],
UpdateExperimentTemplateTargetInput -> Maybe (HashMap Text Text)
resourceTags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
UpdateExperimentTemplateTargetInput -> Text
resourceType :: Prelude.Text,
UpdateExperimentTemplateTargetInput -> Text
selectionMode :: Prelude.Text
}
deriving (UpdateExperimentTemplateTargetInput
-> UpdateExperimentTemplateTargetInput -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateExperimentTemplateTargetInput
-> UpdateExperimentTemplateTargetInput -> Bool
$c/= :: UpdateExperimentTemplateTargetInput
-> UpdateExperimentTemplateTargetInput -> Bool
== :: UpdateExperimentTemplateTargetInput
-> UpdateExperimentTemplateTargetInput -> Bool
$c== :: UpdateExperimentTemplateTargetInput
-> UpdateExperimentTemplateTargetInput -> Bool
Prelude.Eq, ReadPrec [UpdateExperimentTemplateTargetInput]
ReadPrec UpdateExperimentTemplateTargetInput
Int -> ReadS UpdateExperimentTemplateTargetInput
ReadS [UpdateExperimentTemplateTargetInput]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateExperimentTemplateTargetInput]
$creadListPrec :: ReadPrec [UpdateExperimentTemplateTargetInput]
readPrec :: ReadPrec UpdateExperimentTemplateTargetInput
$creadPrec :: ReadPrec UpdateExperimentTemplateTargetInput
readList :: ReadS [UpdateExperimentTemplateTargetInput]
$creadList :: ReadS [UpdateExperimentTemplateTargetInput]
readsPrec :: Int -> ReadS UpdateExperimentTemplateTargetInput
$creadsPrec :: Int -> ReadS UpdateExperimentTemplateTargetInput
Prelude.Read, Int -> UpdateExperimentTemplateTargetInput -> ShowS
[UpdateExperimentTemplateTargetInput] -> ShowS
UpdateExperimentTemplateTargetInput -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateExperimentTemplateTargetInput] -> ShowS
$cshowList :: [UpdateExperimentTemplateTargetInput] -> ShowS
show :: UpdateExperimentTemplateTargetInput -> String
$cshow :: UpdateExperimentTemplateTargetInput -> String
showsPrec :: Int -> UpdateExperimentTemplateTargetInput -> ShowS
$cshowsPrec :: Int -> UpdateExperimentTemplateTargetInput -> ShowS
Prelude.Show, forall x.
Rep UpdateExperimentTemplateTargetInput x
-> UpdateExperimentTemplateTargetInput
forall x.
UpdateExperimentTemplateTargetInput
-> Rep UpdateExperimentTemplateTargetInput x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateExperimentTemplateTargetInput x
-> UpdateExperimentTemplateTargetInput
$cfrom :: forall x.
UpdateExperimentTemplateTargetInput
-> Rep UpdateExperimentTemplateTargetInput x
Prelude.Generic)
newUpdateExperimentTemplateTargetInput ::
Prelude.Text ->
Prelude.Text ->
UpdateExperimentTemplateTargetInput
newUpdateExperimentTemplateTargetInput :: Text -> Text -> UpdateExperimentTemplateTargetInput
newUpdateExperimentTemplateTargetInput
Text
pResourceType_
Text
pSelectionMode_ =
UpdateExperimentTemplateTargetInput'
{ $sel:filters:UpdateExperimentTemplateTargetInput' :: Maybe [ExperimentTemplateTargetInputFilter]
filters =
forall a. Maybe a
Prelude.Nothing,
$sel:parameters:UpdateExperimentTemplateTargetInput' :: Maybe (HashMap Text Text)
parameters = forall a. Maybe a
Prelude.Nothing,
$sel:resourceArns:UpdateExperimentTemplateTargetInput' :: Maybe [Text]
resourceArns = forall a. Maybe a
Prelude.Nothing,
$sel:resourceTags:UpdateExperimentTemplateTargetInput' :: Maybe (HashMap Text Text)
resourceTags = forall a. Maybe a
Prelude.Nothing,
$sel:resourceType:UpdateExperimentTemplateTargetInput' :: Text
resourceType = Text
pResourceType_,
$sel:selectionMode:UpdateExperimentTemplateTargetInput' :: Text
selectionMode = Text
pSelectionMode_
}
updateExperimentTemplateTargetInput_filters :: Lens.Lens' UpdateExperimentTemplateTargetInput (Prelude.Maybe [ExperimentTemplateTargetInputFilter])
updateExperimentTemplateTargetInput_filters :: Lens'
UpdateExperimentTemplateTargetInput
(Maybe [ExperimentTemplateTargetInputFilter])
updateExperimentTemplateTargetInput_filters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateExperimentTemplateTargetInput' {Maybe [ExperimentTemplateTargetInputFilter]
filters :: Maybe [ExperimentTemplateTargetInputFilter]
$sel:filters:UpdateExperimentTemplateTargetInput' :: UpdateExperimentTemplateTargetInput
-> Maybe [ExperimentTemplateTargetInputFilter]
filters} -> Maybe [ExperimentTemplateTargetInputFilter]
filters) (\s :: UpdateExperimentTemplateTargetInput
s@UpdateExperimentTemplateTargetInput' {} Maybe [ExperimentTemplateTargetInputFilter]
a -> UpdateExperimentTemplateTargetInput
s {$sel:filters:UpdateExperimentTemplateTargetInput' :: Maybe [ExperimentTemplateTargetInputFilter]
filters = Maybe [ExperimentTemplateTargetInputFilter]
a} :: UpdateExperimentTemplateTargetInput) 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
updateExperimentTemplateTargetInput_parameters :: Lens.Lens' UpdateExperimentTemplateTargetInput (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
updateExperimentTemplateTargetInput_parameters :: Lens'
UpdateExperimentTemplateTargetInput (Maybe (HashMap Text Text))
updateExperimentTemplateTargetInput_parameters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateExperimentTemplateTargetInput' {Maybe (HashMap Text Text)
parameters :: Maybe (HashMap Text Text)
$sel:parameters:UpdateExperimentTemplateTargetInput' :: UpdateExperimentTemplateTargetInput -> Maybe (HashMap Text Text)
parameters} -> Maybe (HashMap Text Text)
parameters) (\s :: UpdateExperimentTemplateTargetInput
s@UpdateExperimentTemplateTargetInput' {} Maybe (HashMap Text Text)
a -> UpdateExperimentTemplateTargetInput
s {$sel:parameters:UpdateExperimentTemplateTargetInput' :: Maybe (HashMap Text Text)
parameters = Maybe (HashMap Text Text)
a} :: UpdateExperimentTemplateTargetInput) 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
updateExperimentTemplateTargetInput_resourceArns :: Lens.Lens' UpdateExperimentTemplateTargetInput (Prelude.Maybe [Prelude.Text])
updateExperimentTemplateTargetInput_resourceArns :: Lens' UpdateExperimentTemplateTargetInput (Maybe [Text])
updateExperimentTemplateTargetInput_resourceArns = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateExperimentTemplateTargetInput' {Maybe [Text]
resourceArns :: Maybe [Text]
$sel:resourceArns:UpdateExperimentTemplateTargetInput' :: UpdateExperimentTemplateTargetInput -> Maybe [Text]
resourceArns} -> Maybe [Text]
resourceArns) (\s :: UpdateExperimentTemplateTargetInput
s@UpdateExperimentTemplateTargetInput' {} Maybe [Text]
a -> UpdateExperimentTemplateTargetInput
s {$sel:resourceArns:UpdateExperimentTemplateTargetInput' :: Maybe [Text]
resourceArns = Maybe [Text]
a} :: UpdateExperimentTemplateTargetInput) 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
updateExperimentTemplateTargetInput_resourceTags :: Lens.Lens' UpdateExperimentTemplateTargetInput (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
updateExperimentTemplateTargetInput_resourceTags :: Lens'
UpdateExperimentTemplateTargetInput (Maybe (HashMap Text Text))
updateExperimentTemplateTargetInput_resourceTags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateExperimentTemplateTargetInput' {Maybe (HashMap Text Text)
resourceTags :: Maybe (HashMap Text Text)
$sel:resourceTags:UpdateExperimentTemplateTargetInput' :: UpdateExperimentTemplateTargetInput -> Maybe (HashMap Text Text)
resourceTags} -> Maybe (HashMap Text Text)
resourceTags) (\s :: UpdateExperimentTemplateTargetInput
s@UpdateExperimentTemplateTargetInput' {} Maybe (HashMap Text Text)
a -> UpdateExperimentTemplateTargetInput
s {$sel:resourceTags:UpdateExperimentTemplateTargetInput' :: Maybe (HashMap Text Text)
resourceTags = Maybe (HashMap Text Text)
a} :: UpdateExperimentTemplateTargetInput) 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
updateExperimentTemplateTargetInput_resourceType :: Lens.Lens' UpdateExperimentTemplateTargetInput Prelude.Text
updateExperimentTemplateTargetInput_resourceType :: Lens' UpdateExperimentTemplateTargetInput Text
updateExperimentTemplateTargetInput_resourceType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateExperimentTemplateTargetInput' {Text
resourceType :: Text
$sel:resourceType:UpdateExperimentTemplateTargetInput' :: UpdateExperimentTemplateTargetInput -> Text
resourceType} -> Text
resourceType) (\s :: UpdateExperimentTemplateTargetInput
s@UpdateExperimentTemplateTargetInput' {} Text
a -> UpdateExperimentTemplateTargetInput
s {$sel:resourceType:UpdateExperimentTemplateTargetInput' :: Text
resourceType = Text
a} :: UpdateExperimentTemplateTargetInput)
updateExperimentTemplateTargetInput_selectionMode :: Lens.Lens' UpdateExperimentTemplateTargetInput Prelude.Text
updateExperimentTemplateTargetInput_selectionMode :: Lens' UpdateExperimentTemplateTargetInput Text
updateExperimentTemplateTargetInput_selectionMode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateExperimentTemplateTargetInput' {Text
selectionMode :: Text
$sel:selectionMode:UpdateExperimentTemplateTargetInput' :: UpdateExperimentTemplateTargetInput -> Text
selectionMode} -> Text
selectionMode) (\s :: UpdateExperimentTemplateTargetInput
s@UpdateExperimentTemplateTargetInput' {} Text
a -> UpdateExperimentTemplateTargetInput
s {$sel:selectionMode:UpdateExperimentTemplateTargetInput' :: Text
selectionMode = Text
a} :: UpdateExperimentTemplateTargetInput)
instance
Prelude.Hashable
UpdateExperimentTemplateTargetInput
where
hashWithSalt :: Int -> UpdateExperimentTemplateTargetInput -> Int
hashWithSalt
Int
_salt
UpdateExperimentTemplateTargetInput' {Maybe [Text]
Maybe [ExperimentTemplateTargetInputFilter]
Maybe (HashMap Text Text)
Text
selectionMode :: Text
resourceType :: Text
resourceTags :: Maybe (HashMap Text Text)
resourceArns :: Maybe [Text]
parameters :: Maybe (HashMap Text Text)
filters :: Maybe [ExperimentTemplateTargetInputFilter]
$sel:selectionMode:UpdateExperimentTemplateTargetInput' :: UpdateExperimentTemplateTargetInput -> Text
$sel:resourceType:UpdateExperimentTemplateTargetInput' :: UpdateExperimentTemplateTargetInput -> Text
$sel:resourceTags:UpdateExperimentTemplateTargetInput' :: UpdateExperimentTemplateTargetInput -> Maybe (HashMap Text Text)
$sel:resourceArns:UpdateExperimentTemplateTargetInput' :: UpdateExperimentTemplateTargetInput -> Maybe [Text]
$sel:parameters:UpdateExperimentTemplateTargetInput' :: UpdateExperimentTemplateTargetInput -> Maybe (HashMap Text Text)
$sel:filters:UpdateExperimentTemplateTargetInput' :: UpdateExperimentTemplateTargetInput
-> Maybe [ExperimentTemplateTargetInputFilter]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [ExperimentTemplateTargetInputFilter]
filters
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
parameters
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
resourceArns
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
resourceTags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
resourceType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
selectionMode
instance
Prelude.NFData
UpdateExperimentTemplateTargetInput
where
rnf :: UpdateExperimentTemplateTargetInput -> ()
rnf UpdateExperimentTemplateTargetInput' {Maybe [Text]
Maybe [ExperimentTemplateTargetInputFilter]
Maybe (HashMap Text Text)
Text
selectionMode :: Text
resourceType :: Text
resourceTags :: Maybe (HashMap Text Text)
resourceArns :: Maybe [Text]
parameters :: Maybe (HashMap Text Text)
filters :: Maybe [ExperimentTemplateTargetInputFilter]
$sel:selectionMode:UpdateExperimentTemplateTargetInput' :: UpdateExperimentTemplateTargetInput -> Text
$sel:resourceType:UpdateExperimentTemplateTargetInput' :: UpdateExperimentTemplateTargetInput -> Text
$sel:resourceTags:UpdateExperimentTemplateTargetInput' :: UpdateExperimentTemplateTargetInput -> Maybe (HashMap Text Text)
$sel:resourceArns:UpdateExperimentTemplateTargetInput' :: UpdateExperimentTemplateTargetInput -> Maybe [Text]
$sel:parameters:UpdateExperimentTemplateTargetInput' :: UpdateExperimentTemplateTargetInput -> Maybe (HashMap Text Text)
$sel:filters:UpdateExperimentTemplateTargetInput' :: UpdateExperimentTemplateTargetInput
-> Maybe [ExperimentTemplateTargetInputFilter]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [ExperimentTemplateTargetInputFilter]
filters
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
parameters
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
resourceArns
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
resourceTags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
resourceType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
selectionMode
instance
Data.ToJSON
UpdateExperimentTemplateTargetInput
where
toJSON :: UpdateExperimentTemplateTargetInput -> Value
toJSON UpdateExperimentTemplateTargetInput' {Maybe [Text]
Maybe [ExperimentTemplateTargetInputFilter]
Maybe (HashMap Text Text)
Text
selectionMode :: Text
resourceType :: Text
resourceTags :: Maybe (HashMap Text Text)
resourceArns :: Maybe [Text]
parameters :: Maybe (HashMap Text Text)
filters :: Maybe [ExperimentTemplateTargetInputFilter]
$sel:selectionMode:UpdateExperimentTemplateTargetInput' :: UpdateExperimentTemplateTargetInput -> Text
$sel:resourceType:UpdateExperimentTemplateTargetInput' :: UpdateExperimentTemplateTargetInput -> Text
$sel:resourceTags:UpdateExperimentTemplateTargetInput' :: UpdateExperimentTemplateTargetInput -> Maybe (HashMap Text Text)
$sel:resourceArns:UpdateExperimentTemplateTargetInput' :: UpdateExperimentTemplateTargetInput -> Maybe [Text]
$sel:parameters:UpdateExperimentTemplateTargetInput' :: UpdateExperimentTemplateTargetInput -> Maybe (HashMap Text Text)
$sel:filters:UpdateExperimentTemplateTargetInput' :: UpdateExperimentTemplateTargetInput
-> Maybe [ExperimentTemplateTargetInputFilter]
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"filters" 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 [ExperimentTemplateTargetInputFilter]
filters,
(Key
"parameters" 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)
parameters,
(Key
"resourceArns" 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]
resourceArns,
(Key
"resourceTags" 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)
resourceTags,
forall a. a -> Maybe a
Prelude.Just (Key
"resourceType" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
resourceType),
forall a. a -> Maybe a
Prelude.Just
(Key
"selectionMode" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
selectionMode)
]
)