{-# 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 #-} -- Derived from AWS service descriptions, licensed under Apache 2.0. -- | -- Module : Amazonka.DeviceFarm.Types.ScheduleRunTest -- Copyright : (c) 2013-2021 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) module Amazonka.DeviceFarm.Types.ScheduleRunTest where import qualified Amazonka.Core as Core import Amazonka.DeviceFarm.Types.TestType import qualified Amazonka.Lens as Lens import qualified Amazonka.Prelude as Prelude -- | Represents test settings. This data structure is passed in as the test -- parameter to ScheduleRun. For an example of the JSON request syntax, see -- ScheduleRun. -- -- /See:/ 'newScheduleRunTest' smart constructor. data ScheduleRunTest = ScheduleRunTest' { -- | The ARN of the YAML-formatted test specification. ScheduleRunTest -> Maybe Text testSpecArn :: Prelude.Maybe Prelude.Text, -- | The ARN of the uploaded test to be run. ScheduleRunTest -> Maybe Text testPackageArn :: Prelude.Maybe Prelude.Text, -- | The test\'s parameters, such as test framework parameters and fixture -- settings. Parameters are represented by name-value pairs of strings. -- -- For all tests: -- -- - @app_performance_monitoring@: Performance monitoring is enabled by -- default. Set this parameter to false to disable it. -- -- For Calabash tests: -- -- - profile: A cucumber profile (for example, @my_profile_name@). -- -- - tags: You can limit execution to features or scenarios that have (or -- don\'t have) certain tags (for example, \@smoke or \@smoke,~\@wip). -- -- For Appium tests (all types): -- -- - appium_version: The Appium version. Currently supported values are -- 1.6.5 (and later), latest, and default. -- -- - latest runs the latest Appium version supported by Device Farm -- (1.9.1). -- -- - For default, Device Farm selects a compatible version of Appium -- for the device. The current behavior is to run 1.7.2 on Android -- devices and iOS 9 and earlier and 1.7.2 for iOS 10 and later. -- -- - This behavior is subject to change. -- -- For fuzz tests (Android only): -- -- - event_count: The number of events, between 1 and 10000, that the UI -- fuzz test should perform. -- -- - throttle: The time, in ms, between 0 and 1000, that the UI fuzz test -- should wait between events. -- -- - seed: A seed to use for randomizing the UI fuzz test. Using the same -- seed value between tests ensures identical event sequences. -- -- For Explorer tests: -- -- - username: A user name to use if the Explorer encounters a login -- form. If not supplied, no user name is inserted. -- -- - password: A password to use if the Explorer encounters a login form. -- If not supplied, no password is inserted. -- -- For Instrumentation: -- -- - filter: A test filter string. Examples: -- -- - Running a single test case: @com.android.abc.Test1@ -- -- - Running a single test: @com.android.abc.Test1#smoke@ -- -- - Running multiple tests: -- @com.android.abc.Test1,com.android.abc.Test2@ -- -- For XCTest and XCTestUI: -- -- - filter: A test filter string. Examples: -- -- - Running a single test class: @LoginTests@ -- -- - Running a multiple test classes: @LoginTests,SmokeTests@ -- -- - Running a single test: @LoginTests\/testValid@ -- -- - Running multiple tests: -- @LoginTests\/testValid,LoginTests\/testInvalid@ -- -- For UIAutomator: -- -- - filter: A test filter string. Examples: -- -- - Running a single test case: @com.android.abc.Test1@ -- -- - Running a single test: @com.android.abc.Test1#smoke@ -- -- - Running multiple tests: -- @com.android.abc.Test1,com.android.abc.Test2@ ScheduleRunTest -> Maybe (HashMap Text Text) parameters :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text), -- | The test\'s filter. ScheduleRunTest -> Maybe Text filter' :: Prelude.Maybe Prelude.Text, -- | The test\'s type. -- -- Must be one of the following values: -- -- - BUILTIN_FUZZ -- -- - BUILTIN_EXPLORER. For Android, an app explorer that traverses an -- Android app, interacting with it and capturing screenshots at the -- same time. -- -- - APPIUM_JAVA_JUNIT -- -- - APPIUM_JAVA_TESTNG -- -- - APPIUM_PYTHON -- -- - APPIUM_NODE -- -- - APPIUM_RUBY -- -- - APPIUM_WEB_JAVA_JUNIT -- -- - APPIUM_WEB_JAVA_TESTNG -- -- - APPIUM_WEB_PYTHON -- -- - APPIUM_WEB_NODE -- -- - APPIUM_WEB_RUBY -- -- - CALABASH -- -- - INSTRUMENTATION -- -- - UIAUTOMATION -- -- - UIAUTOMATOR -- -- - XCTEST -- -- - XCTEST_UI ScheduleRunTest -> TestType type' :: TestType } deriving (ScheduleRunTest -> ScheduleRunTest -> Bool (ScheduleRunTest -> ScheduleRunTest -> Bool) -> (ScheduleRunTest -> ScheduleRunTest -> Bool) -> Eq ScheduleRunTest forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: ScheduleRunTest -> ScheduleRunTest -> Bool $c/= :: ScheduleRunTest -> ScheduleRunTest -> Bool == :: ScheduleRunTest -> ScheduleRunTest -> Bool $c== :: ScheduleRunTest -> ScheduleRunTest -> Bool Prelude.Eq, ReadPrec [ScheduleRunTest] ReadPrec ScheduleRunTest Int -> ReadS ScheduleRunTest ReadS [ScheduleRunTest] (Int -> ReadS ScheduleRunTest) -> ReadS [ScheduleRunTest] -> ReadPrec ScheduleRunTest -> ReadPrec [ScheduleRunTest] -> Read ScheduleRunTest forall a. (Int -> ReadS a) -> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a readListPrec :: ReadPrec [ScheduleRunTest] $creadListPrec :: ReadPrec [ScheduleRunTest] readPrec :: ReadPrec ScheduleRunTest $creadPrec :: ReadPrec ScheduleRunTest readList :: ReadS [ScheduleRunTest] $creadList :: ReadS [ScheduleRunTest] readsPrec :: Int -> ReadS ScheduleRunTest $creadsPrec :: Int -> ReadS ScheduleRunTest Prelude.Read, Int -> ScheduleRunTest -> ShowS [ScheduleRunTest] -> ShowS ScheduleRunTest -> String (Int -> ScheduleRunTest -> ShowS) -> (ScheduleRunTest -> String) -> ([ScheduleRunTest] -> ShowS) -> Show ScheduleRunTest forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [ScheduleRunTest] -> ShowS $cshowList :: [ScheduleRunTest] -> ShowS show :: ScheduleRunTest -> String $cshow :: ScheduleRunTest -> String showsPrec :: Int -> ScheduleRunTest -> ShowS $cshowsPrec :: Int -> ScheduleRunTest -> ShowS Prelude.Show, (forall x. ScheduleRunTest -> Rep ScheduleRunTest x) -> (forall x. Rep ScheduleRunTest x -> ScheduleRunTest) -> Generic ScheduleRunTest forall x. Rep ScheduleRunTest x -> ScheduleRunTest forall x. ScheduleRunTest -> Rep ScheduleRunTest x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ScheduleRunTest x -> ScheduleRunTest $cfrom :: forall x. ScheduleRunTest -> Rep ScheduleRunTest x Prelude.Generic) -- | -- Create a value of 'ScheduleRunTest' with all optional fields omitted. -- -- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields. -- -- The following record fields are available, with the corresponding lenses provided -- for backwards compatibility: -- -- 'testSpecArn', 'scheduleRunTest_testSpecArn' - The ARN of the YAML-formatted test specification. -- -- 'testPackageArn', 'scheduleRunTest_testPackageArn' - The ARN of the uploaded test to be run. -- -- 'parameters', 'scheduleRunTest_parameters' - The test\'s parameters, such as test framework parameters and fixture -- settings. Parameters are represented by name-value pairs of strings. -- -- For all tests: -- -- - @app_performance_monitoring@: Performance monitoring is enabled by -- default. Set this parameter to false to disable it. -- -- For Calabash tests: -- -- - profile: A cucumber profile (for example, @my_profile_name@). -- -- - tags: You can limit execution to features or scenarios that have (or -- don\'t have) certain tags (for example, \@smoke or \@smoke,~\@wip). -- -- For Appium tests (all types): -- -- - appium_version: The Appium version. Currently supported values are -- 1.6.5 (and later), latest, and default. -- -- - latest runs the latest Appium version supported by Device Farm -- (1.9.1). -- -- - For default, Device Farm selects a compatible version of Appium -- for the device. The current behavior is to run 1.7.2 on Android -- devices and iOS 9 and earlier and 1.7.2 for iOS 10 and later. -- -- - This behavior is subject to change. -- -- For fuzz tests (Android only): -- -- - event_count: The number of events, between 1 and 10000, that the UI -- fuzz test should perform. -- -- - throttle: The time, in ms, between 0 and 1000, that the UI fuzz test -- should wait between events. -- -- - seed: A seed to use for randomizing the UI fuzz test. Using the same -- seed value between tests ensures identical event sequences. -- -- For Explorer tests: -- -- - username: A user name to use if the Explorer encounters a login -- form. If not supplied, no user name is inserted. -- -- - password: A password to use if the Explorer encounters a login form. -- If not supplied, no password is inserted. -- -- For Instrumentation: -- -- - filter: A test filter string. Examples: -- -- - Running a single test case: @com.android.abc.Test1@ -- -- - Running a single test: @com.android.abc.Test1#smoke@ -- -- - Running multiple tests: -- @com.android.abc.Test1,com.android.abc.Test2@ -- -- For XCTest and XCTestUI: -- -- - filter: A test filter string. Examples: -- -- - Running a single test class: @LoginTests@ -- -- - Running a multiple test classes: @LoginTests,SmokeTests@ -- -- - Running a single test: @LoginTests\/testValid@ -- -- - Running multiple tests: -- @LoginTests\/testValid,LoginTests\/testInvalid@ -- -- For UIAutomator: -- -- - filter: A test filter string. Examples: -- -- - Running a single test case: @com.android.abc.Test1@ -- -- - Running a single test: @com.android.abc.Test1#smoke@ -- -- - Running multiple tests: -- @com.android.abc.Test1,com.android.abc.Test2@ -- -- 'filter'', 'scheduleRunTest_filter' - The test\'s filter. -- -- 'type'', 'scheduleRunTest_type' - The test\'s type. -- -- Must be one of the following values: -- -- - BUILTIN_FUZZ -- -- - BUILTIN_EXPLORER. For Android, an app explorer that traverses an -- Android app, interacting with it and capturing screenshots at the -- same time. -- -- - APPIUM_JAVA_JUNIT -- -- - APPIUM_JAVA_TESTNG -- -- - APPIUM_PYTHON -- -- - APPIUM_NODE -- -- - APPIUM_RUBY -- -- - APPIUM_WEB_JAVA_JUNIT -- -- - APPIUM_WEB_JAVA_TESTNG -- -- - APPIUM_WEB_PYTHON -- -- - APPIUM_WEB_NODE -- -- - APPIUM_WEB_RUBY -- -- - CALABASH -- -- - INSTRUMENTATION -- -- - UIAUTOMATION -- -- - UIAUTOMATOR -- -- - XCTEST -- -- - XCTEST_UI newScheduleRunTest :: -- | 'type'' TestType -> ScheduleRunTest newScheduleRunTest :: TestType -> ScheduleRunTest newScheduleRunTest TestType pType_ = ScheduleRunTest' :: Maybe Text -> Maybe Text -> Maybe (HashMap Text Text) -> Maybe Text -> TestType -> ScheduleRunTest ScheduleRunTest' { $sel:testSpecArn:ScheduleRunTest' :: Maybe Text testSpecArn = Maybe Text forall a. Maybe a Prelude.Nothing, $sel:testPackageArn:ScheduleRunTest' :: Maybe Text testPackageArn = Maybe Text forall a. Maybe a Prelude.Nothing, $sel:parameters:ScheduleRunTest' :: Maybe (HashMap Text Text) parameters = Maybe (HashMap Text Text) forall a. Maybe a Prelude.Nothing, $sel:filter':ScheduleRunTest' :: Maybe Text filter' = Maybe Text forall a. Maybe a Prelude.Nothing, $sel:type':ScheduleRunTest' :: TestType type' = TestType pType_ } -- | The ARN of the YAML-formatted test specification. scheduleRunTest_testSpecArn :: Lens.Lens' ScheduleRunTest (Prelude.Maybe Prelude.Text) scheduleRunTest_testSpecArn :: (Maybe Text -> f (Maybe Text)) -> ScheduleRunTest -> f ScheduleRunTest scheduleRunTest_testSpecArn = (ScheduleRunTest -> Maybe Text) -> (ScheduleRunTest -> Maybe Text -> ScheduleRunTest) -> Lens ScheduleRunTest ScheduleRunTest (Maybe Text) (Maybe Text) forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\ScheduleRunTest' {Maybe Text testSpecArn :: Maybe Text $sel:testSpecArn:ScheduleRunTest' :: ScheduleRunTest -> Maybe Text testSpecArn} -> Maybe Text testSpecArn) (\s :: ScheduleRunTest s@ScheduleRunTest' {} Maybe Text a -> ScheduleRunTest s {$sel:testSpecArn:ScheduleRunTest' :: Maybe Text testSpecArn = Maybe Text a} :: ScheduleRunTest) -- | The ARN of the uploaded test to be run. scheduleRunTest_testPackageArn :: Lens.Lens' ScheduleRunTest (Prelude.Maybe Prelude.Text) scheduleRunTest_testPackageArn :: (Maybe Text -> f (Maybe Text)) -> ScheduleRunTest -> f ScheduleRunTest scheduleRunTest_testPackageArn = (ScheduleRunTest -> Maybe Text) -> (ScheduleRunTest -> Maybe Text -> ScheduleRunTest) -> Lens ScheduleRunTest ScheduleRunTest (Maybe Text) (Maybe Text) forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\ScheduleRunTest' {Maybe Text testPackageArn :: Maybe Text $sel:testPackageArn:ScheduleRunTest' :: ScheduleRunTest -> Maybe Text testPackageArn} -> Maybe Text testPackageArn) (\s :: ScheduleRunTest s@ScheduleRunTest' {} Maybe Text a -> ScheduleRunTest s {$sel:testPackageArn:ScheduleRunTest' :: Maybe Text testPackageArn = Maybe Text a} :: ScheduleRunTest) -- | The test\'s parameters, such as test framework parameters and fixture -- settings. Parameters are represented by name-value pairs of strings. -- -- For all tests: -- -- - @app_performance_monitoring@: Performance monitoring is enabled by -- default. Set this parameter to false to disable it. -- -- For Calabash tests: -- -- - profile: A cucumber profile (for example, @my_profile_name@). -- -- - tags: You can limit execution to features or scenarios that have (or -- don\'t have) certain tags (for example, \@smoke or \@smoke,~\@wip). -- -- For Appium tests (all types): -- -- - appium_version: The Appium version. Currently supported values are -- 1.6.5 (and later), latest, and default. -- -- - latest runs the latest Appium version supported by Device Farm -- (1.9.1). -- -- - For default, Device Farm selects a compatible version of Appium -- for the device. The current behavior is to run 1.7.2 on Android -- devices and iOS 9 and earlier and 1.7.2 for iOS 10 and later. -- -- - This behavior is subject to change. -- -- For fuzz tests (Android only): -- -- - event_count: The number of events, between 1 and 10000, that the UI -- fuzz test should perform. -- -- - throttle: The time, in ms, between 0 and 1000, that the UI fuzz test -- should wait between events. -- -- - seed: A seed to use for randomizing the UI fuzz test. Using the same -- seed value between tests ensures identical event sequences. -- -- For Explorer tests: -- -- - username: A user name to use if the Explorer encounters a login -- form. If not supplied, no user name is inserted. -- -- - password: A password to use if the Explorer encounters a login form. -- If not supplied, no password is inserted. -- -- For Instrumentation: -- -- - filter: A test filter string. Examples: -- -- - Running a single test case: @com.android.abc.Test1@ -- -- - Running a single test: @com.android.abc.Test1#smoke@ -- -- - Running multiple tests: -- @com.android.abc.Test1,com.android.abc.Test2@ -- -- For XCTest and XCTestUI: -- -- - filter: A test filter string. Examples: -- -- - Running a single test class: @LoginTests@ -- -- - Running a multiple test classes: @LoginTests,SmokeTests@ -- -- - Running a single test: @LoginTests\/testValid@ -- -- - Running multiple tests: -- @LoginTests\/testValid,LoginTests\/testInvalid@ -- -- For UIAutomator: -- -- - filter: A test filter string. Examples: -- -- - Running a single test case: @com.android.abc.Test1@ -- -- - Running a single test: @com.android.abc.Test1#smoke@ -- -- - Running multiple tests: -- @com.android.abc.Test1,com.android.abc.Test2@ scheduleRunTest_parameters :: Lens.Lens' ScheduleRunTest (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text)) scheduleRunTest_parameters :: (Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text))) -> ScheduleRunTest -> f ScheduleRunTest scheduleRunTest_parameters = (ScheduleRunTest -> Maybe (HashMap Text Text)) -> (ScheduleRunTest -> Maybe (HashMap Text Text) -> ScheduleRunTest) -> Lens ScheduleRunTest ScheduleRunTest (Maybe (HashMap Text Text)) (Maybe (HashMap Text Text)) forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\ScheduleRunTest' {Maybe (HashMap Text Text) parameters :: Maybe (HashMap Text Text) $sel:parameters:ScheduleRunTest' :: ScheduleRunTest -> Maybe (HashMap Text Text) parameters} -> Maybe (HashMap Text Text) parameters) (\s :: ScheduleRunTest s@ScheduleRunTest' {} Maybe (HashMap Text Text) a -> ScheduleRunTest s {$sel:parameters:ScheduleRunTest' :: Maybe (HashMap Text Text) parameters = Maybe (HashMap Text Text) a} :: ScheduleRunTest) ((Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text))) -> ScheduleRunTest -> f ScheduleRunTest) -> ((Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text))) -> Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text))) -> (Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text))) -> ScheduleRunTest -> f ScheduleRunTest forall b c a. (b -> c) -> (a -> b) -> a -> c Prelude.. AnIso (HashMap Text Text) (HashMap Text Text) (HashMap Text Text) (HashMap Text Text) -> Iso (Maybe (HashMap Text Text)) (Maybe (HashMap Text Text)) (Maybe (HashMap Text Text)) (Maybe (HashMap Text Text)) 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 AnIso (HashMap Text Text) (HashMap Text Text) (HashMap Text Text) (HashMap Text Text) forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b Lens.coerced -- | The test\'s filter. scheduleRunTest_filter :: Lens.Lens' ScheduleRunTest (Prelude.Maybe Prelude.Text) scheduleRunTest_filter :: (Maybe Text -> f (Maybe Text)) -> ScheduleRunTest -> f ScheduleRunTest scheduleRunTest_filter = (ScheduleRunTest -> Maybe Text) -> (ScheduleRunTest -> Maybe Text -> ScheduleRunTest) -> Lens ScheduleRunTest ScheduleRunTest (Maybe Text) (Maybe Text) forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\ScheduleRunTest' {Maybe Text filter' :: Maybe Text $sel:filter':ScheduleRunTest' :: ScheduleRunTest -> Maybe Text filter'} -> Maybe Text filter') (\s :: ScheduleRunTest s@ScheduleRunTest' {} Maybe Text a -> ScheduleRunTest s {$sel:filter':ScheduleRunTest' :: Maybe Text filter' = Maybe Text a} :: ScheduleRunTest) -- | The test\'s type. -- -- Must be one of the following values: -- -- - BUILTIN_FUZZ -- -- - BUILTIN_EXPLORER. For Android, an app explorer that traverses an -- Android app, interacting with it and capturing screenshots at the -- same time. -- -- - APPIUM_JAVA_JUNIT -- -- - APPIUM_JAVA_TESTNG -- -- - APPIUM_PYTHON -- -- - APPIUM_NODE -- -- - APPIUM_RUBY -- -- - APPIUM_WEB_JAVA_JUNIT -- -- - APPIUM_WEB_JAVA_TESTNG -- -- - APPIUM_WEB_PYTHON -- -- - APPIUM_WEB_NODE -- -- - APPIUM_WEB_RUBY -- -- - CALABASH -- -- - INSTRUMENTATION -- -- - UIAUTOMATION -- -- - UIAUTOMATOR -- -- - XCTEST -- -- - XCTEST_UI scheduleRunTest_type :: Lens.Lens' ScheduleRunTest TestType scheduleRunTest_type :: (TestType -> f TestType) -> ScheduleRunTest -> f ScheduleRunTest scheduleRunTest_type = (ScheduleRunTest -> TestType) -> (ScheduleRunTest -> TestType -> ScheduleRunTest) -> Lens ScheduleRunTest ScheduleRunTest TestType TestType forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\ScheduleRunTest' {TestType type' :: TestType $sel:type':ScheduleRunTest' :: ScheduleRunTest -> TestType type'} -> TestType type') (\s :: ScheduleRunTest s@ScheduleRunTest' {} TestType a -> ScheduleRunTest s {$sel:type':ScheduleRunTest' :: TestType type' = TestType a} :: ScheduleRunTest) instance Prelude.Hashable ScheduleRunTest instance Prelude.NFData ScheduleRunTest instance Core.ToJSON ScheduleRunTest where toJSON :: ScheduleRunTest -> Value toJSON ScheduleRunTest' {Maybe Text Maybe (HashMap Text Text) TestType type' :: TestType filter' :: Maybe Text parameters :: Maybe (HashMap Text Text) testPackageArn :: Maybe Text testSpecArn :: Maybe Text $sel:type':ScheduleRunTest' :: ScheduleRunTest -> TestType $sel:filter':ScheduleRunTest' :: ScheduleRunTest -> Maybe Text $sel:parameters:ScheduleRunTest' :: ScheduleRunTest -> Maybe (HashMap Text Text) $sel:testPackageArn:ScheduleRunTest' :: ScheduleRunTest -> Maybe Text $sel:testSpecArn:ScheduleRunTest' :: ScheduleRunTest -> Maybe Text ..} = [Pair] -> Value Core.object ( [Maybe Pair] -> [Pair] forall a. [Maybe a] -> [a] Prelude.catMaybes [ (Text "testSpecArn" Text -> Text -> Pair forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv Core..=) (Text -> Pair) -> Maybe Text -> Maybe Pair forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b Prelude.<$> Maybe Text testSpecArn, (Text "testPackageArn" Text -> Text -> Pair forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv Core..=) (Text -> Pair) -> Maybe Text -> Maybe Pair forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b Prelude.<$> Maybe Text testPackageArn, (Text "parameters" Text -> HashMap Text Text -> Pair forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv Core..=) (HashMap Text Text -> Pair) -> Maybe (HashMap Text Text) -> Maybe Pair forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b Prelude.<$> Maybe (HashMap Text Text) parameters, (Text "filter" Text -> Text -> Pair forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv Core..=) (Text -> Pair) -> Maybe Text -> Maybe Pair forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b Prelude.<$> Maybe Text filter', Pair -> Maybe Pair forall a. a -> Maybe a Prelude.Just (Text "type" Text -> TestType -> Pair forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv Core..= TestType type') ] )