diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.3.6` +`1.3.7` ## Description diff --git a/amazonka-devicefarm.cabal b/amazonka-devicefarm.cabal --- a/amazonka-devicefarm.cabal +++ b/amazonka-devicefarm.cabal @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/CreateDevicePool.hs b/gen/Network/AWS/DeviceFarm/CreateDevicePool.hs --- a/gen/Network/AWS/DeviceFarm/CreateDevicePool.hs +++ b/gen/Network/AWS/DeviceFarm/CreateDevicePool.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/CreateProject.hs b/gen/Network/AWS/DeviceFarm/CreateProject.hs --- a/gen/Network/AWS/DeviceFarm/CreateProject.hs +++ b/gen/Network/AWS/DeviceFarm/CreateProject.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/CreateUpload.hs b/gen/Network/AWS/DeviceFarm/CreateUpload.hs --- a/gen/Network/AWS/DeviceFarm/CreateUpload.hs +++ b/gen/Network/AWS/DeviceFarm/CreateUpload.hs @@ -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}); diff --git a/gen/Network/AWS/DeviceFarm/DeleteDevicePool.hs b/gen/Network/AWS/DeviceFarm/DeleteDevicePool.hs --- a/gen/Network/AWS/DeviceFarm/DeleteDevicePool.hs +++ b/gen/Network/AWS/DeviceFarm/DeleteDevicePool.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/DeleteProject.hs b/gen/Network/AWS/DeviceFarm/DeleteProject.hs --- a/gen/Network/AWS/DeviceFarm/DeleteProject.hs +++ b/gen/Network/AWS/DeviceFarm/DeleteProject.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/DeleteRun.hs b/gen/Network/AWS/DeviceFarm/DeleteRun.hs --- a/gen/Network/AWS/DeviceFarm/DeleteRun.hs +++ b/gen/Network/AWS/DeviceFarm/DeleteRun.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/DeleteUpload.hs b/gen/Network/AWS/DeviceFarm/DeleteUpload.hs --- a/gen/Network/AWS/DeviceFarm/DeleteUpload.hs +++ b/gen/Network/AWS/DeviceFarm/DeleteUpload.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/GetAccountSettings.hs b/gen/Network/AWS/DeviceFarm/GetAccountSettings.hs --- a/gen/Network/AWS/DeviceFarm/GetAccountSettings.hs +++ b/gen/Network/AWS/DeviceFarm/GetAccountSettings.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/GetDevice.hs b/gen/Network/AWS/DeviceFarm/GetDevice.hs --- a/gen/Network/AWS/DeviceFarm/GetDevice.hs +++ b/gen/Network/AWS/DeviceFarm/GetDevice.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/GetDevicePool.hs b/gen/Network/AWS/DeviceFarm/GetDevicePool.hs --- a/gen/Network/AWS/DeviceFarm/GetDevicePool.hs +++ b/gen/Network/AWS/DeviceFarm/GetDevicePool.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/GetDevicePoolCompatibility.hs b/gen/Network/AWS/DeviceFarm/GetDevicePoolCompatibility.hs --- a/gen/Network/AWS/DeviceFarm/GetDevicePoolCompatibility.hs +++ b/gen/Network/AWS/DeviceFarm/GetDevicePoolCompatibility.hs @@ -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 "/" diff --git a/gen/Network/AWS/DeviceFarm/GetJob.hs b/gen/Network/AWS/DeviceFarm/GetJob.hs --- a/gen/Network/AWS/DeviceFarm/GetJob.hs +++ b/gen/Network/AWS/DeviceFarm/GetJob.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/GetProject.hs b/gen/Network/AWS/DeviceFarm/GetProject.hs --- a/gen/Network/AWS/DeviceFarm/GetProject.hs +++ b/gen/Network/AWS/DeviceFarm/GetProject.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/GetRun.hs b/gen/Network/AWS/DeviceFarm/GetRun.hs --- a/gen/Network/AWS/DeviceFarm/GetRun.hs +++ b/gen/Network/AWS/DeviceFarm/GetRun.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/GetSuite.hs b/gen/Network/AWS/DeviceFarm/GetSuite.hs --- a/gen/Network/AWS/DeviceFarm/GetSuite.hs +++ b/gen/Network/AWS/DeviceFarm/GetSuite.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/GetTest.hs b/gen/Network/AWS/DeviceFarm/GetTest.hs --- a/gen/Network/AWS/DeviceFarm/GetTest.hs +++ b/gen/Network/AWS/DeviceFarm/GetTest.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/GetUpload.hs b/gen/Network/AWS/DeviceFarm/GetUpload.hs --- a/gen/Network/AWS/DeviceFarm/GetUpload.hs +++ b/gen/Network/AWS/DeviceFarm/GetUpload.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/ListArtifacts.hs b/gen/Network/AWS/DeviceFarm/ListArtifacts.hs --- a/gen/Network/AWS/DeviceFarm/ListArtifacts.hs +++ b/gen/Network/AWS/DeviceFarm/ListArtifacts.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/ListDevicePools.hs b/gen/Network/AWS/DeviceFarm/ListDevicePools.hs --- a/gen/Network/AWS/DeviceFarm/ListDevicePools.hs +++ b/gen/Network/AWS/DeviceFarm/ListDevicePools.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/ListDevices.hs b/gen/Network/AWS/DeviceFarm/ListDevices.hs --- a/gen/Network/AWS/DeviceFarm/ListDevices.hs +++ b/gen/Network/AWS/DeviceFarm/ListDevices.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/ListJobs.hs b/gen/Network/AWS/DeviceFarm/ListJobs.hs --- a/gen/Network/AWS/DeviceFarm/ListJobs.hs +++ b/gen/Network/AWS/DeviceFarm/ListJobs.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/ListProjects.hs b/gen/Network/AWS/DeviceFarm/ListProjects.hs --- a/gen/Network/AWS/DeviceFarm/ListProjects.hs +++ b/gen/Network/AWS/DeviceFarm/ListProjects.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/ListRuns.hs b/gen/Network/AWS/DeviceFarm/ListRuns.hs --- a/gen/Network/AWS/DeviceFarm/ListRuns.hs +++ b/gen/Network/AWS/DeviceFarm/ListRuns.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/ListSamples.hs b/gen/Network/AWS/DeviceFarm/ListSamples.hs --- a/gen/Network/AWS/DeviceFarm/ListSamples.hs +++ b/gen/Network/AWS/DeviceFarm/ListSamples.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/ListSuites.hs b/gen/Network/AWS/DeviceFarm/ListSuites.hs --- a/gen/Network/AWS/DeviceFarm/ListSuites.hs +++ b/gen/Network/AWS/DeviceFarm/ListSuites.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/ListTests.hs b/gen/Network/AWS/DeviceFarm/ListTests.hs --- a/gen/Network/AWS/DeviceFarm/ListTests.hs +++ b/gen/Network/AWS/DeviceFarm/ListTests.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/ListUniqueProblems.hs b/gen/Network/AWS/DeviceFarm/ListUniqueProblems.hs --- a/gen/Network/AWS/DeviceFarm/ListUniqueProblems.hs +++ b/gen/Network/AWS/DeviceFarm/ListUniqueProblems.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/ListUploads.hs b/gen/Network/AWS/DeviceFarm/ListUploads.hs --- a/gen/Network/AWS/DeviceFarm/ListUploads.hs +++ b/gen/Network/AWS/DeviceFarm/ListUploads.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/ScheduleRun.hs b/gen/Network/AWS/DeviceFarm/ScheduleRun.hs --- a/gen/Network/AWS/DeviceFarm/ScheduleRun.hs +++ b/gen/Network/AWS/DeviceFarm/ScheduleRun.hs @@ -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)]) diff --git a/gen/Network/AWS/DeviceFarm/Types.hs b/gen/Network/AWS/DeviceFarm/Types.hs --- a/gen/Network/AWS/DeviceFarm/Types.hs +++ b/gen/Network/AWS/DeviceFarm/Types.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/Types/Product.hs b/gen/Network/AWS/DeviceFarm/Types/Product.hs --- a/gen/Network/AWS/DeviceFarm/Types/Product.hs +++ b/gen/Network/AWS/DeviceFarm/Types/Product.hs @@ -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}); diff --git a/gen/Network/AWS/DeviceFarm/Types/Sum.hs b/gen/Network/AWS/DeviceFarm/Types/Sum.hs --- a/gen/Network/AWS/DeviceFarm/Types/Sum.hs +++ b/gen/Network/AWS/DeviceFarm/Types/Sum.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/UpdateDevicePool.hs b/gen/Network/AWS/DeviceFarm/UpdateDevicePool.hs --- a/gen/Network/AWS/DeviceFarm/UpdateDevicePool.hs +++ b/gen/Network/AWS/DeviceFarm/UpdateDevicePool.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/UpdateProject.hs b/gen/Network/AWS/DeviceFarm/UpdateProject.hs --- a/gen/Network/AWS/DeviceFarm/UpdateProject.hs +++ b/gen/Network/AWS/DeviceFarm/UpdateProject.hs @@ -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 diff --git a/gen/Network/AWS/DeviceFarm/Waiters.hs b/gen/Network/AWS/DeviceFarm/Waiters.hs --- a/gen/Network/AWS/DeviceFarm/Waiters.hs +++ b/gen/Network/AWS/DeviceFarm/Waiters.hs @@ -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