amazonka-devicefarm 1.3.6 → 1.3.7

raw patch · 37 files changed

+118/−55 lines, 37 filesdep −lensdep ~amazonka-coredep ~amazonka-devicefarmdep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependencies removed: lens

Dependency ranges changed: amazonka-core, amazonka-devicefarm, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-devicefarm.cabal +5/−6
• gen/Network/AWS/DeviceFarm/CreateDevicePool.hs +1/−0
• gen/Network/AWS/DeviceFarm/CreateProject.hs +1/−0
• gen/Network/AWS/DeviceFarm/CreateUpload.hs +9/−0
• gen/Network/AWS/DeviceFarm/DeleteDevicePool.hs +1/−0
• gen/Network/AWS/DeviceFarm/DeleteProject.hs +1/−0
• gen/Network/AWS/DeviceFarm/DeleteRun.hs +1/−0
• gen/Network/AWS/DeviceFarm/DeleteUpload.hs +1/−0
• gen/Network/AWS/DeviceFarm/GetAccountSettings.hs +1/−0
• gen/Network/AWS/DeviceFarm/GetDevice.hs +1/−0
• gen/Network/AWS/DeviceFarm/GetDevicePool.hs +1/−0
• gen/Network/AWS/DeviceFarm/GetDevicePoolCompatibility.hs +16/−16
• gen/Network/AWS/DeviceFarm/GetJob.hs +1/−0
• gen/Network/AWS/DeviceFarm/GetProject.hs +1/−0
• gen/Network/AWS/DeviceFarm/GetRun.hs +1/−0
• gen/Network/AWS/DeviceFarm/GetSuite.hs +1/−0
• gen/Network/AWS/DeviceFarm/GetTest.hs +1/−0
• gen/Network/AWS/DeviceFarm/GetUpload.hs +1/−0
• gen/Network/AWS/DeviceFarm/ListArtifacts.hs +1/−0
• gen/Network/AWS/DeviceFarm/ListDevicePools.hs +1/−0
• gen/Network/AWS/DeviceFarm/ListDevices.hs +1/−0
• gen/Network/AWS/DeviceFarm/ListJobs.hs +1/−0
• gen/Network/AWS/DeviceFarm/ListProjects.hs +1/−0
• gen/Network/AWS/DeviceFarm/ListRuns.hs +1/−0
• gen/Network/AWS/DeviceFarm/ListSamples.hs +1/−0
• gen/Network/AWS/DeviceFarm/ListSuites.hs +1/−0
• gen/Network/AWS/DeviceFarm/ListTests.hs +1/−0
• gen/Network/AWS/DeviceFarm/ListUniqueProblems.hs +1/−0
• gen/Network/AWS/DeviceFarm/ListUploads.hs +1/−0
• gen/Network/AWS/DeviceFarm/ScheduleRun.hs +15/−15
• gen/Network/AWS/DeviceFarm/Types.hs +1/−0
• gen/Network/AWS/DeviceFarm/Types/Product.hs +7/−0
• gen/Network/AWS/DeviceFarm/Types/Sum.hs +35/−17
• gen/Network/AWS/DeviceFarm/UpdateDevicePool.hs +1/−0
• gen/Network/AWS/DeviceFarm/UpdateProject.hs +1/−0
• gen/Network/AWS/DeviceFarm/Waiters.hs +1/−0

@@ -8,7 +8,7 @@  ## Version -`1.3.6`+`1.3.7`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-devicefarm-version:               1.3.6+version:               1.3.7 synopsis:              Amazon Device Farm SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -82,7 +82,7 @@         , Network.AWS.DeviceFarm.Types.Sum      build-depends:-          amazonka-core == 1.3.6.*+          amazonka-core == 1.3.7.*         , base          >= 4.7     && < 5  test-suite amazonka-devicefarm-test@@ -102,12 +102,11 @@         , Test.AWS.DeviceFarm.Internal      build-depends:-          amazonka-core == 1.3.6.*-        , amazonka-test == 1.3.6.*-        , amazonka-devicefarm == 1.3.6.*+          amazonka-core == 1.3.7.*+        , amazonka-test == 1.3.7.*+        , amazonka-devicefarm == 1.3.7.*         , base         , bytestring-        , lens         , tasty         , tasty-hunit         , text

@@ -42,6 +42,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -39,6 +39,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -42,6 +42,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response@@ -116,6 +117,14 @@ -- -- -   XCTEST_TEST_PACKAGE: An XCode test package upload. --+-- -   APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE: An Appium Java JUnit test+--     package upload.+--+-- -   APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE: An Appium Java TestNG test+--     package upload.+--+-- __Note__ If you call 'CreateUpload' with 'WEB_APP' specified, AWS Device+-- Farm throws an ArgumentException error. cuType :: Lens' CreateUpload UploadType cuType = lens _cuType (\ s a -> s{_cuType = a}); 

@@ -39,6 +39,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -40,6 +40,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -40,6 +40,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -38,6 +38,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -38,6 +38,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -39,6 +39,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -39,6 +39,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -27,9 +27,9 @@       getDevicePoolCompatibility     , GetDevicePoolCompatibility     -- * Request Lenses+    , gdpcAppARN     , gdpcTestType     , gdpcDevicePoolARN-    , gdpcAppARN      -- * Destructuring the Response     , getDevicePoolCompatibilityResponse@@ -42,6 +42,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response@@ -50,31 +51,34 @@ -- -- /See:/ 'getDevicePoolCompatibility' smart constructor. data GetDevicePoolCompatibility = GetDevicePoolCompatibility'-    { _gdpcTestType      :: !(Maybe TestType)+    { _gdpcAppARN        :: !(Maybe Text)+    , _gdpcTestType      :: !(Maybe TestType)     , _gdpcDevicePoolARN :: !Text-    , _gdpcAppARN        :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetDevicePoolCompatibility' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'gdpcAppARN'+-- -- * 'gdpcTestType' -- -- * 'gdpcDevicePoolARN'------ * 'gdpcAppARN' getDevicePoolCompatibility     :: Text -- ^ 'gdpcDevicePoolARN'-    -> Text -- ^ 'gdpcAppARN'     -> GetDevicePoolCompatibility-getDevicePoolCompatibility pDevicePoolARN_ pAppARN_ =+getDevicePoolCompatibility pDevicePoolARN_ =     GetDevicePoolCompatibility'-    { _gdpcTestType = Nothing+    { _gdpcAppARN = Nothing+    , _gdpcTestType = Nothing     , _gdpcDevicePoolARN = pDevicePoolARN_-    , _gdpcAppARN = pAppARN_     } +-- | The ARN of the app that is associated with the specified device pool.+gdpcAppARN :: Lens' GetDevicePoolCompatibility (Maybe Text)+gdpcAppARN = lens _gdpcAppARN (\ s a -> s{_gdpcAppARN = a});+ -- | The test type for the specified device pool. -- -- Allowed values include the following:@@ -106,10 +110,6 @@ gdpcDevicePoolARN :: Lens' GetDevicePoolCompatibility Text gdpcDevicePoolARN = lens _gdpcDevicePoolARN (\ s a -> s{_gdpcDevicePoolARN = a}); --- | The ARN of the app that is associated with the specified device pool.-gdpcAppARN :: Lens' GetDevicePoolCompatibility Text-gdpcAppARN = lens _gdpcAppARN (\ s a -> s{_gdpcAppARN = a});- instance AWSRequest GetDevicePoolCompatibility where         type Rs GetDevicePoolCompatibility =              GetDevicePoolCompatibilityResponse@@ -136,9 +136,9 @@         toJSON GetDevicePoolCompatibility'{..}           = object               (catMaybes-                 [("testType" .=) <$> _gdpcTestType,-                  Just ("devicePoolArn" .= _gdpcDevicePoolARN),-                  Just ("appArn" .= _gdpcAppARN)])+                 [("appArn" .=) <$> _gdpcAppARN,+                  ("testType" .=) <$> _gdpcTestType,+                  Just ("devicePoolArn" .= _gdpcDevicePoolARN)])  instance ToPath GetDevicePoolCompatibility where         toPath = const "/"

@@ -39,6 +39,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -39,6 +39,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -39,6 +39,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -39,6 +39,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -39,6 +39,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -39,6 +39,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -42,6 +42,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -42,6 +42,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -41,6 +41,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -41,6 +41,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -41,6 +41,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -41,6 +41,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -41,6 +41,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -41,6 +41,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -41,6 +41,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -41,6 +41,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -41,6 +41,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -27,10 +27,10 @@       scheduleRun     , ScheduleRun     -- * Request Lenses+    , srAppARN     , srName     , srConfiguration     , srProjectARN-    , srAppARN     , srDevicePoolARN     , srTest @@ -44,6 +44,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response@@ -52,10 +53,10 @@ -- -- /See:/ 'scheduleRun' smart constructor. data ScheduleRun = ScheduleRun'-    { _srName          :: !(Maybe Text)+    { _srAppARN        :: !(Maybe Text)+    , _srName          :: !(Maybe Text)     , _srConfiguration :: !(Maybe ScheduleRunConfiguration)     , _srProjectARN    :: !Text-    , _srAppARN        :: !Text     , _srDevicePoolARN :: !Text     , _srTest          :: !ScheduleRunTest     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -64,33 +65,36 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'srAppARN'+-- -- * 'srName' -- -- * 'srConfiguration' -- -- * 'srProjectARN' ----- * 'srAppARN'--- -- * 'srDevicePoolARN' -- -- * 'srTest' scheduleRun     :: Text -- ^ 'srProjectARN'-    -> Text -- ^ 'srAppARN'     -> Text -- ^ 'srDevicePoolARN'     -> ScheduleRunTest -- ^ 'srTest'     -> ScheduleRun-scheduleRun pProjectARN_ pAppARN_ pDevicePoolARN_ pTest_ =+scheduleRun pProjectARN_ pDevicePoolARN_ pTest_ =     ScheduleRun'-    { _srName = Nothing+    { _srAppARN = Nothing+    , _srName = Nothing     , _srConfiguration = Nothing     , _srProjectARN = pProjectARN_-    , _srAppARN = pAppARN_     , _srDevicePoolARN = pDevicePoolARN_     , _srTest = pTest_     } +-- | The ARN of the app to schedule a run.+srAppARN :: Lens' ScheduleRun (Maybe Text)+srAppARN = lens _srAppARN (\ s a -> s{_srAppARN = a});+ -- | The name for the run to be scheduled. srName :: Lens' ScheduleRun (Maybe Text) srName = lens _srName (\ s a -> s{_srName = a});@@ -103,10 +107,6 @@ srProjectARN :: Lens' ScheduleRun Text srProjectARN = lens _srProjectARN (\ s a -> s{_srProjectARN = a}); --- | The ARN of the app to schedule a run.-srAppARN :: Lens' ScheduleRun Text-srAppARN = lens _srAppARN (\ s a -> s{_srAppARN = a});- -- | The ARN of the device pool for the run to be scheduled. srDevicePoolARN :: Lens' ScheduleRun Text srDevicePoolARN = lens _srDevicePoolARN (\ s a -> s{_srDevicePoolARN = a});@@ -137,10 +137,10 @@         toJSON ScheduleRun'{..}           = object               (catMaybes-                 [("name" .=) <$> _srName,+                 [("appArn" .=) <$> _srAppARN,+                  ("name" .=) <$> _srName,                   ("configuration" .=) <$> _srConfiguration,                   Just ("projectArn" .= _srProjectARN),-                  Just ("appArn" .= _srAppARN),                   Just ("devicePoolArn" .= _srDevicePoolARN),                   Just ("test" .= _srTest)]) 

@@ -308,6 +308,7 @@  import           Network.AWS.DeviceFarm.Types.Product import           Network.AWS.DeviceFarm.Types.Sum+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Sign.V4 

@@ -18,6 +18,7 @@ module Network.AWS.DeviceFarm.Types.Product where  import           Network.AWS.DeviceFarm.Types.Sum+import           Network.AWS.Lens import           Network.AWS.Prelude  -- | A container for account-level settings within AWS Device Farm.@@ -2230,6 +2231,12 @@ -- -   UIAUTOMATOR_TEST_PACKAGE: A uiautomator test package upload. -- -- -   XCTEST_TEST_PACKAGE: An XCode test package upload.+--+-- -   APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE: An Appium Java JUnit test+--     package upload.+--+-- -   APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE: An Appium Java TestNG test+--     package upload. -- uType :: Lens' Upload (Maybe UploadType) uType = lens _uType (\ s a -> s{_uType = a});

@@ -23,7 +23,7 @@     = ACFile     | ACLog     | ACScreenshot-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText ArtifactCategory where     parser = takeLowerText >>= \case@@ -67,7 +67,8 @@     | Screenshot     | ServiceLog     | Unknown-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    | WebkitLog+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText ArtifactType where     parser = takeLowerText >>= \case@@ -90,8 +91,9 @@         "screenshot" -> pure Screenshot         "service_log" -> pure ServiceLog         "unknown" -> pure Unknown+        "webkit_log" -> pure WebkitLog         e -> fromTextError $ "Failure parsing ArtifactType from value: '" <> e-           <> "'. Accepted values: APPIUM_JAVA_OUTPUT, APPIUM_JAVA_XML_OUTPUT, APPIUM_SERVER_OUTPUT, APPLICATION_CRASH_REPORT, AUTOMATION_OUTPUT, CALABASH_JSON_OUTPUT, CALABASH_JAVA_XML_OUTPUT, CALABASH_PRETTY_OUTPUT, CALABASH_STANDARD_OUTPUT, DEVICE_LOG, EXERCISER_MONKEY_OUTPUT, EXPLORER_EVENT_LOG, EXPLORER_SUMMARY_LOG, INSTRUMENTATION_OUTPUT, MESSAGE_LOG, RESULT_LOG, SCREENSHOT, SERVICE_LOG, UNKNOWN"+           <> "'. Accepted values: APPIUM_JAVA_OUTPUT, APPIUM_JAVA_XML_OUTPUT, APPIUM_SERVER_OUTPUT, APPLICATION_CRASH_REPORT, AUTOMATION_OUTPUT, CALABASH_JSON_OUTPUT, CALABASH_JAVA_XML_OUTPUT, CALABASH_PRETTY_OUTPUT, CALABASH_STANDARD_OUTPUT, DEVICE_LOG, EXERCISER_MONKEY_OUTPUT, EXPLORER_EVENT_LOG, EXPLORER_SUMMARY_LOG, INSTRUMENTATION_OUTPUT, MESSAGE_LOG, RESULT_LOG, SCREENSHOT, SERVICE_LOG, UNKNOWN, WEBKIT_LOG"  instance ToText ArtifactType where     toText = \case@@ -114,6 +116,7 @@         Screenshot -> "SCREENSHOT"         ServiceLog -> "SERVICE_LOG"         Unknown -> "UNKNOWN"+        WebkitLog -> "WEBKIT_LOG"  instance Hashable     ArtifactType instance ToByteString ArtifactType@@ -126,7 +129,7 @@ data BillingMethod     = Metered     | Unmetered-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText BillingMethod where     parser = takeLowerText >>= \case@@ -156,7 +159,7 @@     | FormFactor     | Manufacturer     | Platform-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText DeviceAttribute where     parser = takeLowerText >>= \case@@ -188,7 +191,7 @@ data DeviceFormFactor     = Phone     | Tablet-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText DeviceFormFactor where     parser = takeLowerText >>= \case@@ -213,7 +216,7 @@ data DevicePlatform     = Android     | Ios-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText DevicePlatform where     parser = takeLowerText >>= \case@@ -238,7 +241,7 @@ data DevicePoolType     = Curated     | Private-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText DevicePoolType where     parser = takeLowerText >>= \case@@ -271,7 +274,7 @@     | ERSkipped     | ERStopped     | ERWarned-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText ExecutionResult where     parser = takeLowerText >>= \case@@ -309,7 +312,7 @@     | Processing     | Running     | Scheduling-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText ExecutionStatus where     parser = takeLowerText >>= \case@@ -343,7 +346,7 @@     | IN     | LessThan     | NotIn-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText RuleOperator where     parser = takeLowerText >>= \case@@ -392,7 +395,7 @@     | TX     | Threads     | TxRate-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText SampleType where     parser = takeLowerText >>= \case@@ -447,6 +450,8 @@ data TestType     = AppiumJavaJunit     | AppiumJavaTestng+    | AppiumWebJavaJunit+    | AppiumWebJavaTestng     | BuiltinExplorer     | BuiltinFuzz     | Calabash@@ -454,12 +459,14 @@     | Uiautomation     | Uiautomator     | Xctest-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText TestType where     parser = takeLowerText >>= \case         "appium_java_junit" -> pure AppiumJavaJunit         "appium_java_testng" -> pure AppiumJavaTestng+        "appium_web_java_junit" -> pure AppiumWebJavaJunit+        "appium_web_java_testng" -> pure AppiumWebJavaTestng         "builtin_explorer" -> pure BuiltinExplorer         "builtin_fuzz" -> pure BuiltinFuzz         "calabash" -> pure Calabash@@ -468,12 +475,14 @@         "uiautomator" -> pure Uiautomator         "xctest" -> pure Xctest         e -> fromTextError $ "Failure parsing TestType from value: '" <> e-           <> "'. Accepted values: APPIUM_JAVA_JUNIT, APPIUM_JAVA_TESTNG, BUILTIN_EXPLORER, BUILTIN_FUZZ, CALABASH, INSTRUMENTATION, UIAUTOMATION, UIAUTOMATOR, XCTEST"+           <> "'. Accepted values: APPIUM_JAVA_JUNIT, APPIUM_JAVA_TESTNG, APPIUM_WEB_JAVA_JUNIT, APPIUM_WEB_JAVA_TESTNG, BUILTIN_EXPLORER, BUILTIN_FUZZ, CALABASH, INSTRUMENTATION, UIAUTOMATION, UIAUTOMATOR, XCTEST"  instance ToText TestType where     toText = \case         AppiumJavaJunit -> "APPIUM_JAVA_JUNIT"         AppiumJavaTestng -> "APPIUM_JAVA_TESTNG"+        AppiumWebJavaJunit -> "APPIUM_WEB_JAVA_JUNIT"+        AppiumWebJavaTestng -> "APPIUM_WEB_JAVA_TESTNG"         BuiltinExplorer -> "BUILTIN_EXPLORER"         BuiltinFuzz -> "BUILTIN_FUZZ"         Calabash -> "CALABASH"@@ -498,7 +507,7 @@     | USInitialized     | USProcessing     | USSucceeded-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText UploadStatus where     parser = takeLowerText >>= \case@@ -528,41 +537,50 @@     = AndroidApp     | AppiumJavaJunitTestPackage     | AppiumJavaTestngTestPackage+    | AppiumWebJavaJunitTestPackage+    | AppiumWebJavaTestngTestPackage     | CalabashTestPackage     | ExternalData     | InstrumentationTestPackage     | IosApp     | UiautomationTestPackage     | UiautomatorTestPackage+    | WebApp     | XctestTestPackage-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText UploadType where     parser = takeLowerText >>= \case         "android_app" -> pure AndroidApp         "appium_java_junit_test_package" -> pure AppiumJavaJunitTestPackage         "appium_java_testng_test_package" -> pure AppiumJavaTestngTestPackage+        "appium_web_java_junit_test_package" -> pure AppiumWebJavaJunitTestPackage+        "appium_web_java_testng_test_package" -> pure AppiumWebJavaTestngTestPackage         "calabash_test_package" -> pure CalabashTestPackage         "external_data" -> pure ExternalData         "instrumentation_test_package" -> pure InstrumentationTestPackage         "ios_app" -> pure IosApp         "uiautomation_test_package" -> pure UiautomationTestPackage         "uiautomator_test_package" -> pure UiautomatorTestPackage+        "web_app" -> pure WebApp         "xctest_test_package" -> pure XctestTestPackage         e -> fromTextError $ "Failure parsing UploadType from value: '" <> e-           <> "'. Accepted values: ANDROID_APP, APPIUM_JAVA_JUNIT_TEST_PACKAGE, APPIUM_JAVA_TESTNG_TEST_PACKAGE, CALABASH_TEST_PACKAGE, EXTERNAL_DATA, INSTRUMENTATION_TEST_PACKAGE, IOS_APP, UIAUTOMATION_TEST_PACKAGE, UIAUTOMATOR_TEST_PACKAGE, XCTEST_TEST_PACKAGE"+           <> "'. Accepted values: ANDROID_APP, APPIUM_JAVA_JUNIT_TEST_PACKAGE, APPIUM_JAVA_TESTNG_TEST_PACKAGE, APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE, APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE, CALABASH_TEST_PACKAGE, EXTERNAL_DATA, INSTRUMENTATION_TEST_PACKAGE, IOS_APP, UIAUTOMATION_TEST_PACKAGE, UIAUTOMATOR_TEST_PACKAGE, WEB_APP, XCTEST_TEST_PACKAGE"  instance ToText UploadType where     toText = \case         AndroidApp -> "ANDROID_APP"         AppiumJavaJunitTestPackage -> "APPIUM_JAVA_JUNIT_TEST_PACKAGE"         AppiumJavaTestngTestPackage -> "APPIUM_JAVA_TESTNG_TEST_PACKAGE"+        AppiumWebJavaJunitTestPackage -> "APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE"+        AppiumWebJavaTestngTestPackage -> "APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE"         CalabashTestPackage -> "CALABASH_TEST_PACKAGE"         ExternalData -> "EXTERNAL_DATA"         InstrumentationTestPackage -> "INSTRUMENTATION_TEST_PACKAGE"         IosApp -> "IOS_APP"         UiautomationTestPackage -> "UIAUTOMATION_TEST_PACKAGE"         UiautomatorTestPackage -> "UIAUTOMATOR_TEST_PACKAGE"+        WebApp -> "WEB_APP"         XctestTestPackage -> "XCTEST_TEST_PACKAGE"  instance Hashable     UploadType

@@ -44,6 +44,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -41,6 +41,7 @@  import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -16,5 +16,6 @@ module Network.AWS.DeviceFarm.Waiters where  import           Network.AWS.DeviceFarm.Types+import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Waiter