summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBrendanHay <>2016-05-09 19:13:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2016-05-09 19:13:00 (GMT)
commit1d8b342a2492921f91252136fab3c720d4025d26 (patch)
tree6605f4c9c5e79aaa5be4a82c6c764015602ca80c
parent62f26bcda66f162b1c11848fe7b0d28be8f027e0 (diff)
version 1.4.11.4.1
-rw-r--r--README.md2
-rw-r--r--amazonka-devicefarm.cabal16
-rw-r--r--fixture/GetOfferingStatus.yaml0
-rw-r--r--fixture/GetOfferingStatusResponse.proto0
-rw-r--r--fixture/ListOfferingTransactions.yaml0
-rw-r--r--fixture/ListOfferingTransactionsResponse.proto0
-rw-r--r--fixture/ListOfferings.yaml0
-rw-r--r--fixture/ListOfferingsResponse.proto0
-rw-r--r--fixture/PurchaseOffering.yaml0
-rw-r--r--fixture/PurchaseOfferingResponse.proto0
-rw-r--r--fixture/RenewOffering.yaml0
-rw-r--r--fixture/RenewOfferingResponse.proto0
-rw-r--r--fixture/StopRun.yaml0
-rw-r--r--fixture/StopRunResponse.proto0
-rw-r--r--gen/Network/AWS/DeviceFarm.hs99
-rw-r--r--gen/Network/AWS/DeviceFarm/CreateDevicePool.hs4
-rw-r--r--gen/Network/AWS/DeviceFarm/CreateProject.hs4
-rw-r--r--gen/Network/AWS/DeviceFarm/CreateUpload.hs4
-rw-r--r--gen/Network/AWS/DeviceFarm/DeleteDevicePool.hs4
-rw-r--r--gen/Network/AWS/DeviceFarm/DeleteProject.hs4
-rw-r--r--gen/Network/AWS/DeviceFarm/DeleteRun.hs4
-rw-r--r--gen/Network/AWS/DeviceFarm/DeleteUpload.hs4
-rw-r--r--gen/Network/AWS/DeviceFarm/GetAccountSettings.hs13
-rw-r--r--gen/Network/AWS/DeviceFarm/GetDevice.hs4
-rw-r--r--gen/Network/AWS/DeviceFarm/GetDevicePool.hs4
-rw-r--r--gen/Network/AWS/DeviceFarm/GetDevicePoolCompatibility.hs4
-rw-r--r--gen/Network/AWS/DeviceFarm/GetJob.hs4
-rw-r--r--gen/Network/AWS/DeviceFarm/GetOfferingStatus.hs166
-rw-r--r--gen/Network/AWS/DeviceFarm/GetProject.hs4
-rw-r--r--gen/Network/AWS/DeviceFarm/GetRun.hs4
-rw-r--r--gen/Network/AWS/DeviceFarm/GetSuite.hs4
-rw-r--r--gen/Network/AWS/DeviceFarm/GetTest.hs4
-rw-r--r--gen/Network/AWS/DeviceFarm/GetUpload.hs4
-rw-r--r--gen/Network/AWS/DeviceFarm/ListArtifacts.hs14
-rw-r--r--gen/Network/AWS/DeviceFarm/ListDevicePools.hs14
-rw-r--r--gen/Network/AWS/DeviceFarm/ListDevices.hs14
-rw-r--r--gen/Network/AWS/DeviceFarm/ListJobs.hs14
-rw-r--r--gen/Network/AWS/DeviceFarm/ListOfferingTransactions.hs157
-rw-r--r--gen/Network/AWS/DeviceFarm/ListOfferings.hs153
-rw-r--r--gen/Network/AWS/DeviceFarm/ListProjects.hs14
-rw-r--r--gen/Network/AWS/DeviceFarm/ListRuns.hs14
-rw-r--r--gen/Network/AWS/DeviceFarm/ListSamples.hs14
-rw-r--r--gen/Network/AWS/DeviceFarm/ListSuites.hs14
-rw-r--r--gen/Network/AWS/DeviceFarm/ListTests.hs14
-rw-r--r--gen/Network/AWS/DeviceFarm/ListUniqueProblems.hs28
-rw-r--r--gen/Network/AWS/DeviceFarm/ListUploads.hs14
-rw-r--r--gen/Network/AWS/DeviceFarm/PurchaseOffering.hs151
-rw-r--r--gen/Network/AWS/DeviceFarm/RenewOffering.hs150
-rw-r--r--gen/Network/AWS/DeviceFarm/ScheduleRun.hs4
-rw-r--r--gen/Network/AWS/DeviceFarm/StopRun.hs140
-rw-r--r--gen/Network/AWS/DeviceFarm/Types.hs58
-rw-r--r--gen/Network/AWS/DeviceFarm/Types/Product.hs473
-rw-r--r--gen/Network/AWS/DeviceFarm/Types/Sum.hs131
-rw-r--r--gen/Network/AWS/DeviceFarm/UpdateDevicePool.hs4
-rw-r--r--gen/Network/AWS/DeviceFarm/UpdateProject.hs4
-rw-r--r--test/Test/AWS/Gen/DeviceFarm.hs108
56 files changed, 1981 insertions, 80 deletions
diff --git a/README.md b/README.md
index 06282ac..374c9a8 100644
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
## Version
-`1.4.0`
+`1.4.1`
## Description
diff --git a/amazonka-devicefarm.cabal b/amazonka-devicefarm.cabal
index c1f6cb2..357c9cd 100644
--- a/amazonka-devicefarm.cabal
+++ b/amazonka-devicefarm.cabal
@@ -1,5 +1,5 @@
name: amazonka-devicefarm
-version: 1.4.0
+version: 1.4.1
synopsis: Amazon Device Farm SDK.
homepage: https://github.com/brendanhay/amazonka
bug-reports: https://github.com/brendanhay/amazonka/issues
@@ -55,6 +55,7 @@ library
, Network.AWS.DeviceFarm.GetDevicePool
, Network.AWS.DeviceFarm.GetDevicePoolCompatibility
, Network.AWS.DeviceFarm.GetJob
+ , Network.AWS.DeviceFarm.GetOfferingStatus
, Network.AWS.DeviceFarm.GetProject
, Network.AWS.DeviceFarm.GetRun
, Network.AWS.DeviceFarm.GetSuite
@@ -64,6 +65,8 @@ library
, Network.AWS.DeviceFarm.ListDevicePools
, Network.AWS.DeviceFarm.ListDevices
, Network.AWS.DeviceFarm.ListJobs
+ , Network.AWS.DeviceFarm.ListOfferingTransactions
+ , Network.AWS.DeviceFarm.ListOfferings
, Network.AWS.DeviceFarm.ListProjects
, Network.AWS.DeviceFarm.ListRuns
, Network.AWS.DeviceFarm.ListSamples
@@ -71,7 +74,10 @@ library
, Network.AWS.DeviceFarm.ListTests
, Network.AWS.DeviceFarm.ListUniqueProblems
, Network.AWS.DeviceFarm.ListUploads
+ , Network.AWS.DeviceFarm.PurchaseOffering
+ , Network.AWS.DeviceFarm.RenewOffering
, Network.AWS.DeviceFarm.ScheduleRun
+ , Network.AWS.DeviceFarm.StopRun
, Network.AWS.DeviceFarm.Types
, Network.AWS.DeviceFarm.UpdateDevicePool
, Network.AWS.DeviceFarm.UpdateProject
@@ -82,7 +88,7 @@ library
, Network.AWS.DeviceFarm.Types.Sum
build-depends:
- amazonka-core == 1.4.0.*
+ amazonka-core == 1.4.1.*
, base >= 4.7 && < 5
test-suite amazonka-devicefarm-test
@@ -102,9 +108,9 @@ test-suite amazonka-devicefarm-test
, Test.AWS.DeviceFarm.Internal
build-depends:
- amazonka-core == 1.4.0.*
- , amazonka-test == 1.4.0.*
- , amazonka-devicefarm == 1.4.0.*
+ amazonka-core == 1.4.1.*
+ , amazonka-test == 1.4.1.*
+ , amazonka-devicefarm == 1.4.1.*
, base
, bytestring
, tasty
diff --git a/fixture/GetOfferingStatus.yaml b/fixture/GetOfferingStatus.yaml
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/GetOfferingStatus.yaml
diff --git a/fixture/GetOfferingStatusResponse.proto b/fixture/GetOfferingStatusResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/GetOfferingStatusResponse.proto
diff --git a/fixture/ListOfferingTransactions.yaml b/fixture/ListOfferingTransactions.yaml
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/ListOfferingTransactions.yaml
diff --git a/fixture/ListOfferingTransactionsResponse.proto b/fixture/ListOfferingTransactionsResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/ListOfferingTransactionsResponse.proto
diff --git a/fixture/ListOfferings.yaml b/fixture/ListOfferings.yaml
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/ListOfferings.yaml
diff --git a/fixture/ListOfferingsResponse.proto b/fixture/ListOfferingsResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/ListOfferingsResponse.proto
diff --git a/fixture/PurchaseOffering.yaml b/fixture/PurchaseOffering.yaml
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/PurchaseOffering.yaml
diff --git a/fixture/PurchaseOfferingResponse.proto b/fixture/PurchaseOfferingResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/PurchaseOfferingResponse.proto
diff --git a/fixture/RenewOffering.yaml b/fixture/RenewOffering.yaml
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/RenewOffering.yaml
diff --git a/fixture/RenewOfferingResponse.proto b/fixture/RenewOfferingResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/RenewOfferingResponse.proto
diff --git a/fixture/StopRun.yaml b/fixture/StopRun.yaml
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/StopRun.yaml
diff --git a/fixture/StopRunResponse.proto b/fixture/StopRunResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/StopRunResponse.proto
diff --git a/gen/Network/AWS/DeviceFarm.hs b/gen/Network/AWS/DeviceFarm.hs
index 58c279e..bbc6519 100644
--- a/gen/Network/AWS/DeviceFarm.hs
+++ b/gen/Network/AWS/DeviceFarm.hs
@@ -22,6 +22,9 @@ module Network.AWS.DeviceFarm
-- * Errors
-- $errors
+ -- ** NotEligibleException
+ , _NotEligibleException
+
-- ** IdempotencyException
, _IdempotencyException
@@ -43,7 +46,7 @@ module Network.AWS.DeviceFarm
-- * Operations
-- $operations
- -- ** ListProjects
+ -- ** ListProjects (Paginated)
, module Network.AWS.DeviceFarm.ListProjects
-- ** DeleteProject
@@ -55,10 +58,10 @@ module Network.AWS.DeviceFarm
-- ** GetDevicePoolCompatibility
, module Network.AWS.DeviceFarm.GetDevicePoolCompatibility
- -- ** ListTests
+ -- ** ListTests (Paginated)
, module Network.AWS.DeviceFarm.ListTests
- -- ** ListArtifacts
+ -- ** ListArtifacts (Paginated)
, module Network.AWS.DeviceFarm.ListArtifacts
-- ** CreateUpload
@@ -70,7 +73,7 @@ module Network.AWS.DeviceFarm
-- ** GetDevicePool
, module Network.AWS.DeviceFarm.GetDevicePool
- -- ** ListDevicePools
+ -- ** ListDevicePools (Paginated)
, module Network.AWS.DeviceFarm.ListDevicePools
-- ** UpdateDevicePool
@@ -82,22 +85,28 @@ module Network.AWS.DeviceFarm
-- ** GetUpload
, module Network.AWS.DeviceFarm.GetUpload
+ -- ** ListOfferingTransactions
+ , module Network.AWS.DeviceFarm.ListOfferingTransactions
+
-- ** CreateDevicePool
, module Network.AWS.DeviceFarm.CreateDevicePool
-- ** DeleteRun
, module Network.AWS.DeviceFarm.DeleteRun
- -- ** ListRuns
+ -- ** ListRuns (Paginated)
, module Network.AWS.DeviceFarm.ListRuns
-- ** GetTest
, module Network.AWS.DeviceFarm.GetTest
+ -- ** RenewOffering
+ , module Network.AWS.DeviceFarm.RenewOffering
+
-- ** GetDevice
, module Network.AWS.DeviceFarm.GetDevice
- -- ** ListJobs
+ -- ** ListJobs (Paginated)
, module Network.AWS.DeviceFarm.ListJobs
-- ** GetJob
@@ -109,33 +118,45 @@ module Network.AWS.DeviceFarm
-- ** GetRun
, module Network.AWS.DeviceFarm.GetRun
- -- ** ListSamples
+ -- ** ListSamples (Paginated)
, module Network.AWS.DeviceFarm.ListSamples
- -- ** ListSuites
+ -- ** ListSuites (Paginated)
, module Network.AWS.DeviceFarm.ListSuites
-- ** GetAccountSettings
, module Network.AWS.DeviceFarm.GetAccountSettings
- -- ** ListUploads
+ -- ** GetOfferingStatus
+ , module Network.AWS.DeviceFarm.GetOfferingStatus
+
+ -- ** ListUploads (Paginated)
, module Network.AWS.DeviceFarm.ListUploads
-- ** GetSuite
, module Network.AWS.DeviceFarm.GetSuite
+ -- ** PurchaseOffering
+ , module Network.AWS.DeviceFarm.PurchaseOffering
+
-- ** GetProject
, module Network.AWS.DeviceFarm.GetProject
- -- ** ListUniqueProblems
+ -- ** ListUniqueProblems (Paginated)
, module Network.AWS.DeviceFarm.ListUniqueProblems
- -- ** ListDevices
+ -- ** StopRun
+ , module Network.AWS.DeviceFarm.StopRun
+
+ -- ** ListDevices (Paginated)
, module Network.AWS.DeviceFarm.ListDevices
-- ** CreateProject
, module Network.AWS.DeviceFarm.CreateProject
+ -- ** ListOfferings
+ , module Network.AWS.DeviceFarm.ListOfferings
+
-- * Types
-- ** ArtifactCategory
@@ -147,6 +168,9 @@ module Network.AWS.DeviceFarm
-- ** BillingMethod
, BillingMethod (..)
+ -- ** CurrencyCode
+ , CurrencyCode (..)
+
-- ** DeviceAttribute
, DeviceAttribute (..)
@@ -165,6 +189,15 @@ module Network.AWS.DeviceFarm
-- ** ExecutionStatus
, ExecutionStatus (..)
+ -- ** OfferingTransactionType
+ , OfferingTransactionType (..)
+
+ -- ** OfferingType
+ , OfferingType (..)
+
+ -- ** RecurringChargeFrequency
+ , RecurringChargeFrequency (..)
+
-- ** RuleOperator
, RuleOperator (..)
@@ -185,6 +218,7 @@ module Network.AWS.DeviceFarm
, accountSettings
, asAwsAccountNumber
, asUnmeteredDevices
+ , asUnmeteredRemoteAccessDevices
-- ** Artifact
, Artifact
@@ -282,6 +316,37 @@ module Network.AWS.DeviceFarm
, lLatitude
, lLongitude
+ -- ** MonetaryAmount
+ , MonetaryAmount
+ , monetaryAmount
+ , maAmount
+ , maCurrencyCode
+
+ -- ** Offering
+ , Offering
+ , offering
+ , oPlatform
+ , oId
+ , oRecurringCharges
+ , oType
+ , oDescription
+
+ -- ** OfferingStatus
+ , OfferingStatus
+ , offeringStatus
+ , osEffectiveOn
+ , osOffering
+ , osQuantity
+ , osType
+
+ -- ** OfferingTransaction
+ , OfferingTransaction
+ , offeringTransaction
+ , otOfferingStatus
+ , otCost
+ , otTransactionId
+ , otCreatedOn
+
-- ** Problem
, Problem
, problem
@@ -314,6 +379,12 @@ module Network.AWS.DeviceFarm
, rBluetooth
, rWifi
+ -- ** RecurringCharge
+ , RecurringCharge
+ , recurringCharge
+ , rcFrequency
+ , rcCost
+
-- ** Resolution
, Resolution
, resolution
@@ -434,6 +505,7 @@ import Network.AWS.DeviceFarm.GetDevice
import Network.AWS.DeviceFarm.GetDevicePool
import Network.AWS.DeviceFarm.GetDevicePoolCompatibility
import Network.AWS.DeviceFarm.GetJob
+import Network.AWS.DeviceFarm.GetOfferingStatus
import Network.AWS.DeviceFarm.GetProject
import Network.AWS.DeviceFarm.GetRun
import Network.AWS.DeviceFarm.GetSuite
@@ -443,6 +515,8 @@ import Network.AWS.DeviceFarm.ListArtifacts
import Network.AWS.DeviceFarm.ListDevicePools
import Network.AWS.DeviceFarm.ListDevices
import Network.AWS.DeviceFarm.ListJobs
+import Network.AWS.DeviceFarm.ListOfferings
+import Network.AWS.DeviceFarm.ListOfferingTransactions
import Network.AWS.DeviceFarm.ListProjects
import Network.AWS.DeviceFarm.ListRuns
import Network.AWS.DeviceFarm.ListSamples
@@ -450,7 +524,10 @@ import Network.AWS.DeviceFarm.ListSuites
import Network.AWS.DeviceFarm.ListTests
import Network.AWS.DeviceFarm.ListUniqueProblems
import Network.AWS.DeviceFarm.ListUploads
+import Network.AWS.DeviceFarm.PurchaseOffering
+import Network.AWS.DeviceFarm.RenewOffering
import Network.AWS.DeviceFarm.ScheduleRun
+import Network.AWS.DeviceFarm.StopRun
import Network.AWS.DeviceFarm.Types
import Network.AWS.DeviceFarm.UpdateDevicePool
import Network.AWS.DeviceFarm.UpdateProject
diff --git a/gen/Network/AWS/DeviceFarm/CreateDevicePool.hs b/gen/Network/AWS/DeviceFarm/CreateDevicePool.hs
index 99abf7c..cc9aeff 100644
--- a/gen/Network/AWS/DeviceFarm/CreateDevicePool.hs
+++ b/gen/Network/AWS/DeviceFarm/CreateDevicePool.hs
@@ -105,6 +105,8 @@ instance AWSRequest CreateDevicePool where
instance Hashable CreateDevicePool
+instance NFData CreateDevicePool
+
instance ToHeaders CreateDevicePool where
toHeaders
= const
@@ -161,3 +163,5 @@ cdprsDevicePool = lens _cdprsDevicePool (\ s a -> s{_cdprsDevicePool = a});
-- | The response status code.
cdprsResponseStatus :: Lens' CreateDevicePoolResponse Int
cdprsResponseStatus = lens _cdprsResponseStatus (\ s a -> s{_cdprsResponseStatus = a});
+
+instance NFData CreateDevicePoolResponse
diff --git a/gen/Network/AWS/DeviceFarm/CreateProject.hs b/gen/Network/AWS/DeviceFarm/CreateProject.hs
index 273968b..4212dd3 100644
--- a/gen/Network/AWS/DeviceFarm/CreateProject.hs
+++ b/gen/Network/AWS/DeviceFarm/CreateProject.hs
@@ -77,6 +77,8 @@ instance AWSRequest CreateProject where
instance Hashable CreateProject
+instance NFData CreateProject
+
instance ToHeaders CreateProject where
toHeaders
= const
@@ -127,3 +129,5 @@ cprsProject = lens _cprsProject (\ s a -> s{_cprsProject = a});
-- | The response status code.
cprsResponseStatus :: Lens' CreateProjectResponse Int
cprsResponseStatus = lens _cprsResponseStatus (\ s a -> s{_cprsResponseStatus = a});
+
+instance NFData CreateProjectResponse
diff --git a/gen/Network/AWS/DeviceFarm/CreateUpload.hs b/gen/Network/AWS/DeviceFarm/CreateUpload.hs
index 778f08a..20c1659 100644
--- a/gen/Network/AWS/DeviceFarm/CreateUpload.hs
+++ b/gen/Network/AWS/DeviceFarm/CreateUpload.hs
@@ -148,6 +148,8 @@ instance AWSRequest CreateUpload where
instance Hashable CreateUpload
+instance NFData CreateUpload
+
instance ToHeaders CreateUpload where
toHeaders
= const
@@ -202,3 +204,5 @@ cursUpload = lens _cursUpload (\ s a -> s{_cursUpload = a});
-- | The response status code.
cursResponseStatus :: Lens' CreateUploadResponse Int
cursResponseStatus = lens _cursResponseStatus (\ s a -> s{_cursResponseStatus = a});
+
+instance NFData CreateUploadResponse
diff --git a/gen/Network/AWS/DeviceFarm/DeleteDevicePool.hs b/gen/Network/AWS/DeviceFarm/DeleteDevicePool.hs
index 7065199..32890ca 100644
--- a/gen/Network/AWS/DeviceFarm/DeleteDevicePool.hs
+++ b/gen/Network/AWS/DeviceFarm/DeleteDevicePool.hs
@@ -77,6 +77,8 @@ instance AWSRequest DeleteDevicePool where
instance Hashable DeleteDevicePool
+instance NFData DeleteDevicePool
+
instance ToHeaders DeleteDevicePool where
toHeaders
= const
@@ -120,3 +122,5 @@ deleteDevicePoolResponse pResponseStatus_ =
-- | The response status code.
ddprsResponseStatus :: Lens' DeleteDevicePoolResponse Int
ddprsResponseStatus = lens _ddprsResponseStatus (\ s a -> s{_ddprsResponseStatus = a});
+
+instance NFData DeleteDevicePoolResponse
diff --git a/gen/Network/AWS/DeviceFarm/DeleteProject.hs b/gen/Network/AWS/DeviceFarm/DeleteProject.hs
index b063375..21eed6f 100644
--- a/gen/Network/AWS/DeviceFarm/DeleteProject.hs
+++ b/gen/Network/AWS/DeviceFarm/DeleteProject.hs
@@ -78,6 +78,8 @@ instance AWSRequest DeleteProject where
instance Hashable DeleteProject
+instance NFData DeleteProject
+
instance ToHeaders DeleteProject where
toHeaders
= const
@@ -120,3 +122,5 @@ deleteProjectResponse pResponseStatus_ =
-- | The response status code.
dprsResponseStatus :: Lens' DeleteProjectResponse Int
dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a});
+
+instance NFData DeleteProjectResponse
diff --git a/gen/Network/AWS/DeviceFarm/DeleteRun.hs b/gen/Network/AWS/DeviceFarm/DeleteRun.hs
index 58e4f8d..154da9c 100644
--- a/gen/Network/AWS/DeviceFarm/DeleteRun.hs
+++ b/gen/Network/AWS/DeviceFarm/DeleteRun.hs
@@ -77,6 +77,8 @@ instance AWSRequest DeleteRun where
instance Hashable DeleteRun
+instance NFData DeleteRun
+
instance ToHeaders DeleteRun where
toHeaders
= const
@@ -119,3 +121,5 @@ deleteRunResponse pResponseStatus_ =
-- | The response status code.
drrsResponseStatus :: Lens' DeleteRunResponse Int
drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a});
+
+instance NFData DeleteRunResponse
diff --git a/gen/Network/AWS/DeviceFarm/DeleteUpload.hs b/gen/Network/AWS/DeviceFarm/DeleteUpload.hs
index 08ebcf6..339954b 100644
--- a/gen/Network/AWS/DeviceFarm/DeleteUpload.hs
+++ b/gen/Network/AWS/DeviceFarm/DeleteUpload.hs
@@ -76,6 +76,8 @@ instance AWSRequest DeleteUpload where
instance Hashable DeleteUpload
+instance NFData DeleteUpload
+
instance ToHeaders DeleteUpload where
toHeaders
= const
@@ -118,3 +120,5 @@ deleteUploadResponse pResponseStatus_ =
-- | The response status code.
dursResponseStatus :: Lens' DeleteUploadResponse Int
dursResponseStatus = lens _dursResponseStatus (\ s a -> s{_dursResponseStatus = a});
+
+instance NFData DeleteUploadResponse
diff --git a/gen/Network/AWS/DeviceFarm/GetAccountSettings.hs b/gen/Network/AWS/DeviceFarm/GetAccountSettings.hs
index a90ce46..12fc586 100644
--- a/gen/Network/AWS/DeviceFarm/GetAccountSettings.hs
+++ b/gen/Network/AWS/DeviceFarm/GetAccountSettings.hs
@@ -41,7 +41,9 @@ import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
--- | /See:/ 'getAccountSettings' smart constructor.
+-- | Represents the request sent to retrieve the account settings.
+--
+-- /See:/ 'getAccountSettings' smart constructor.
data GetAccountSettings =
GetAccountSettings'
deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -64,6 +66,8 @@ instance AWSRequest GetAccountSettings where
instance Hashable GetAccountSettings
+instance NFData GetAccountSettings
+
instance ToHeaders GetAccountSettings where
toHeaders
= const
@@ -83,7 +87,10 @@ instance ToPath GetAccountSettings where
instance ToQuery GetAccountSettings where
toQuery = const mempty
--- | /See:/ 'getAccountSettingsResponse' smart constructor.
+-- | Represents the account settings return values from the
+-- 'GetAccountSettings' request.
+--
+-- /See:/ 'getAccountSettingsResponse' smart constructor.
data GetAccountSettingsResponse = GetAccountSettingsResponse'
{ _gasrsAccountSettings :: !(Maybe AccountSettings)
, _gasrsResponseStatus :: !Int
@@ -112,3 +119,5 @@ gasrsAccountSettings = lens _gasrsAccountSettings (\ s a -> s{_gasrsAccountSetti
-- | The response status code.
gasrsResponseStatus :: Lens' GetAccountSettingsResponse Int
gasrsResponseStatus = lens _gasrsResponseStatus (\ s a -> s{_gasrsResponseStatus = a});
+
+instance NFData GetAccountSettingsResponse
diff --git a/gen/Network/AWS/DeviceFarm/GetDevice.hs b/gen/Network/AWS/DeviceFarm/GetDevice.hs
index bbfd29f..e1e5a2e 100644
--- a/gen/Network/AWS/DeviceFarm/GetDevice.hs
+++ b/gen/Network/AWS/DeviceFarm/GetDevice.hs
@@ -77,6 +77,8 @@ instance AWSRequest GetDevice where
instance Hashable GetDevice
+instance NFData GetDevice
+
instance ToHeaders GetDevice where
toHeaders
= const
@@ -127,3 +129,5 @@ gdrsDevice = lens _gdrsDevice (\ s a -> s{_gdrsDevice = a});
-- | The response status code.
gdrsResponseStatus :: Lens' GetDeviceResponse Int
gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a});
+
+instance NFData GetDeviceResponse
diff --git a/gen/Network/AWS/DeviceFarm/GetDevicePool.hs b/gen/Network/AWS/DeviceFarm/GetDevicePool.hs
index 9dba387..926eb1c 100644
--- a/gen/Network/AWS/DeviceFarm/GetDevicePool.hs
+++ b/gen/Network/AWS/DeviceFarm/GetDevicePool.hs
@@ -77,6 +77,8 @@ instance AWSRequest GetDevicePool where
instance Hashable GetDevicePool
+instance NFData GetDevicePool
+
instance ToHeaders GetDevicePool where
toHeaders
= const
@@ -127,3 +129,5 @@ gdprsDevicePool = lens _gdprsDevicePool (\ s a -> s{_gdprsDevicePool = a});
-- | The response status code.
gdprsResponseStatus :: Lens' GetDevicePoolResponse Int
gdprsResponseStatus = lens _gdprsResponseStatus (\ s a -> s{_gdprsResponseStatus = a});
+
+instance NFData GetDevicePoolResponse
diff --git a/gen/Network/AWS/DeviceFarm/GetDevicePoolCompatibility.hs b/gen/Network/AWS/DeviceFarm/GetDevicePoolCompatibility.hs
index 0240cab..4ab7346 100644
--- a/gen/Network/AWS/DeviceFarm/GetDevicePoolCompatibility.hs
+++ b/gen/Network/AWS/DeviceFarm/GetDevicePoolCompatibility.hs
@@ -132,6 +132,8 @@ instance AWSRequest GetDevicePoolCompatibility where
instance Hashable GetDevicePoolCompatibility
+instance NFData GetDevicePoolCompatibility
+
instance ToHeaders GetDevicePoolCompatibility where
toHeaders
= const
@@ -195,3 +197,5 @@ gdpcrsCompatibleDevices = lens _gdpcrsCompatibleDevices (\ s a -> s{_gdpcrsCompa
-- | The response status code.
gdpcrsResponseStatus :: Lens' GetDevicePoolCompatibilityResponse Int
gdpcrsResponseStatus = lens _gdpcrsResponseStatus (\ s a -> s{_gdpcrsResponseStatus = a});
+
+instance NFData GetDevicePoolCompatibilityResponse
diff --git a/gen/Network/AWS/DeviceFarm/GetJob.hs b/gen/Network/AWS/DeviceFarm/GetJob.hs
index b643350..197a815 100644
--- a/gen/Network/AWS/DeviceFarm/GetJob.hs
+++ b/gen/Network/AWS/DeviceFarm/GetJob.hs
@@ -77,6 +77,8 @@ instance AWSRequest GetJob where
instance Hashable GetJob
+instance NFData GetJob
+
instance ToHeaders GetJob where
toHeaders
= const
@@ -127,3 +129,5 @@ gjrsJob = lens _gjrsJob (\ s a -> s{_gjrsJob = a});
-- | The response status code.
gjrsResponseStatus :: Lens' GetJobResponse Int
gjrsResponseStatus = lens _gjrsResponseStatus (\ s a -> s{_gjrsResponseStatus = a});
+
+instance NFData GetJobResponse
diff --git a/gen/Network/AWS/DeviceFarm/GetOfferingStatus.hs b/gen/Network/AWS/DeviceFarm/GetOfferingStatus.hs
new file mode 100644
index 0000000..b41bc33
--- /dev/null
+++ b/gen/Network/AWS/DeviceFarm/GetOfferingStatus.hs
@@ -0,0 +1,166 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module : Network.AWS.DeviceFarm.GetOfferingStatus
+-- Copyright : (c) 2013-2016 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Gets the current status and future status of all offerings purchased by
+-- an AWS account. The response indicates how many offerings are currently
+-- available and the offerings that will be available in the next period.
+-- The API returns a 'NotEligible' error if the user is not permitted to
+-- invoke the operation. Please contact
+-- <mailto:aws-devicefarm-support'amazon.com aws-devicefarm-support\'amazon.com>
+-- if you believe that you should be able to invoke this operation.
+module Network.AWS.DeviceFarm.GetOfferingStatus
+ (
+ -- * Creating a Request
+ getOfferingStatus
+ , GetOfferingStatus
+ -- * Request Lenses
+ , gosNextToken
+
+ -- * Destructuring the Response
+ , getOfferingStatusResponse
+ , GetOfferingStatusResponse
+ -- * Response Lenses
+ , gosrsNextPeriod
+ , gosrsCurrent
+ , gosrsNextToken
+ , gosrsResponseStatus
+ ) where
+
+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
+
+-- | Represents the request to retrieve the offering status for the specified
+-- customer or account.
+--
+-- /See:/ 'getOfferingStatus' smart constructor.
+newtype GetOfferingStatus = GetOfferingStatus'
+ { _gosNextToken :: Maybe Text
+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
+
+-- | Creates a value of 'GetOfferingStatus' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'gosNextToken'
+getOfferingStatus
+ :: GetOfferingStatus
+getOfferingStatus =
+ GetOfferingStatus'
+ { _gosNextToken = Nothing
+ }
+
+-- | An identifier that was returned from the previous call to this
+-- operation, which can be used to return the next set of items in the
+-- list.
+gosNextToken :: Lens' GetOfferingStatus (Maybe Text)
+gosNextToken = lens _gosNextToken (\ s a -> s{_gosNextToken = a});
+
+instance AWSRequest GetOfferingStatus where
+ type Rs GetOfferingStatus = GetOfferingStatusResponse
+ request = postJSON deviceFarm
+ response
+ = receiveJSON
+ (\ s h x ->
+ GetOfferingStatusResponse' <$>
+ (x .?> "nextPeriod" .!@ mempty) <*>
+ (x .?> "current" .!@ mempty)
+ <*> (x .?> "nextToken")
+ <*> (pure (fromEnum s)))
+
+instance Hashable GetOfferingStatus
+
+instance NFData GetOfferingStatus
+
+instance ToHeaders GetOfferingStatus where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("DeviceFarm_20150623.GetOfferingStatus" ::
+ ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON GetOfferingStatus where
+ toJSON GetOfferingStatus'{..}
+ = object
+ (catMaybes [("nextToken" .=) <$> _gosNextToken])
+
+instance ToPath GetOfferingStatus where
+ toPath = const "/"
+
+instance ToQuery GetOfferingStatus where
+ toQuery = const mempty
+
+-- | Returns the status result for a device offering.
+--
+-- /See:/ 'getOfferingStatusResponse' smart constructor.
+data GetOfferingStatusResponse = GetOfferingStatusResponse'
+ { _gosrsNextPeriod :: !(Maybe (Map Text OfferingStatus))
+ , _gosrsCurrent :: !(Maybe (Map Text OfferingStatus))
+ , _gosrsNextToken :: !(Maybe Text)
+ , _gosrsResponseStatus :: !Int
+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
+
+-- | Creates a value of 'GetOfferingStatusResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'gosrsNextPeriod'
+--
+-- * 'gosrsCurrent'
+--
+-- * 'gosrsNextToken'
+--
+-- * 'gosrsResponseStatus'
+getOfferingStatusResponse
+ :: Int -- ^ 'gosrsResponseStatus'
+ -> GetOfferingStatusResponse
+getOfferingStatusResponse pResponseStatus_ =
+ GetOfferingStatusResponse'
+ { _gosrsNextPeriod = Nothing
+ , _gosrsCurrent = Nothing
+ , _gosrsNextToken = Nothing
+ , _gosrsResponseStatus = pResponseStatus_
+ }
+
+-- | When specified, gets the offering status for the next period.
+gosrsNextPeriod :: Lens' GetOfferingStatusResponse (HashMap Text OfferingStatus)
+gosrsNextPeriod = lens _gosrsNextPeriod (\ s a -> s{_gosrsNextPeriod = a}) . _Default . _Map;
+
+-- | When specified, gets the offering status for the current period.
+gosrsCurrent :: Lens' GetOfferingStatusResponse (HashMap Text OfferingStatus)
+gosrsCurrent = lens _gosrsCurrent (\ s a -> s{_gosrsCurrent = a}) . _Default . _Map;
+
+-- | An identifier that was returned from the previous call to this
+-- operation, which can be used to return the next set of items in the
+-- list.
+gosrsNextToken :: Lens' GetOfferingStatusResponse (Maybe Text)
+gosrsNextToken = lens _gosrsNextToken (\ s a -> s{_gosrsNextToken = a});
+
+-- | The response status code.
+gosrsResponseStatus :: Lens' GetOfferingStatusResponse Int
+gosrsResponseStatus = lens _gosrsResponseStatus (\ s a -> s{_gosrsResponseStatus = a});
+
+instance NFData GetOfferingStatusResponse
diff --git a/gen/Network/AWS/DeviceFarm/GetProject.hs b/gen/Network/AWS/DeviceFarm/GetProject.hs
index e395709..78a2010 100644
--- a/gen/Network/AWS/DeviceFarm/GetProject.hs
+++ b/gen/Network/AWS/DeviceFarm/GetProject.hs
@@ -77,6 +77,8 @@ instance AWSRequest GetProject where
instance Hashable GetProject
+instance NFData GetProject
+
instance ToHeaders GetProject where
toHeaders
= const
@@ -127,3 +129,5 @@ gprsProject = lens _gprsProject (\ s a -> s{_gprsProject = a});
-- | The response status code.
gprsResponseStatus :: Lens' GetProjectResponse Int
gprsResponseStatus = lens _gprsResponseStatus (\ s a -> s{_gprsResponseStatus = a});
+
+instance NFData GetProjectResponse
diff --git a/gen/Network/AWS/DeviceFarm/GetRun.hs b/gen/Network/AWS/DeviceFarm/GetRun.hs
index 5cf1bf2..cd9f37b 100644
--- a/gen/Network/AWS/DeviceFarm/GetRun.hs
+++ b/gen/Network/AWS/DeviceFarm/GetRun.hs
@@ -77,6 +77,8 @@ instance AWSRequest GetRun where
instance Hashable GetRun
+instance NFData GetRun
+
instance ToHeaders GetRun where
toHeaders
= const
@@ -127,3 +129,5 @@ grrsRun = lens _grrsRun (\ s a -> s{_grrsRun = a});
-- | The response status code.
grrsResponseStatus :: Lens' GetRunResponse Int
grrsResponseStatus = lens _grrsResponseStatus (\ s a -> s{_grrsResponseStatus = a});
+
+instance NFData GetRunResponse
diff --git a/gen/Network/AWS/DeviceFarm/GetSuite.hs b/gen/Network/AWS/DeviceFarm/GetSuite.hs
index eb58339..10c16a5 100644
--- a/gen/Network/AWS/DeviceFarm/GetSuite.hs
+++ b/gen/Network/AWS/DeviceFarm/GetSuite.hs
@@ -77,6 +77,8 @@ instance AWSRequest GetSuite where
instance Hashable GetSuite
+instance NFData GetSuite
+
instance ToHeaders GetSuite where
toHeaders
= const
@@ -127,3 +129,5 @@ gsrsSuite = lens _gsrsSuite (\ s a -> s{_gsrsSuite = a});
-- | The response status code.
gsrsResponseStatus :: Lens' GetSuiteResponse Int
gsrsResponseStatus = lens _gsrsResponseStatus (\ s a -> s{_gsrsResponseStatus = a});
+
+instance NFData GetSuiteResponse
diff --git a/gen/Network/AWS/DeviceFarm/GetTest.hs b/gen/Network/AWS/DeviceFarm/GetTest.hs
index 81b52ff..1a9a274 100644
--- a/gen/Network/AWS/DeviceFarm/GetTest.hs
+++ b/gen/Network/AWS/DeviceFarm/GetTest.hs
@@ -77,6 +77,8 @@ instance AWSRequest GetTest where
instance Hashable GetTest
+instance NFData GetTest
+
instance ToHeaders GetTest where
toHeaders
= const
@@ -127,3 +129,5 @@ gtrsTest = lens _gtrsTest (\ s a -> s{_gtrsTest = a});
-- | The response status code.
gtrsResponseStatus :: Lens' GetTestResponse Int
gtrsResponseStatus = lens _gtrsResponseStatus (\ s a -> s{_gtrsResponseStatus = a});
+
+instance NFData GetTestResponse
diff --git a/gen/Network/AWS/DeviceFarm/GetUpload.hs b/gen/Network/AWS/DeviceFarm/GetUpload.hs
index 03439be..9a591fd 100644
--- a/gen/Network/AWS/DeviceFarm/GetUpload.hs
+++ b/gen/Network/AWS/DeviceFarm/GetUpload.hs
@@ -77,6 +77,8 @@ instance AWSRequest GetUpload where
instance Hashable GetUpload
+instance NFData GetUpload
+
instance ToHeaders GetUpload where
toHeaders
= const
@@ -127,3 +129,5 @@ gursUpload = lens _gursUpload (\ s a -> s{_gursUpload = a});
-- | The response status code.
gursResponseStatus :: Lens' GetUploadResponse Int
gursResponseStatus = lens _gursResponseStatus (\ s a -> s{_gursResponseStatus = a});
+
+instance NFData GetUploadResponse
diff --git a/gen/Network/AWS/DeviceFarm/ListArtifacts.hs b/gen/Network/AWS/DeviceFarm/ListArtifacts.hs
index 26850a5..7bf26e7 100644
--- a/gen/Network/AWS/DeviceFarm/ListArtifacts.hs
+++ b/gen/Network/AWS/DeviceFarm/ListArtifacts.hs
@@ -19,6 +19,8 @@
-- Portability : non-portable (GHC extensions)
--
-- Gets information about artifacts.
+--
+-- This operation returns paginated results.
module Network.AWS.DeviceFarm.ListArtifacts
(
-- * Creating a Request
@@ -41,6 +43,7 @@ module Network.AWS.DeviceFarm.ListArtifacts
import Network.AWS.DeviceFarm.Types
import Network.AWS.DeviceFarm.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -94,6 +97,13 @@ laArn = lens _laArn (\ s a -> s{_laArn = a});
laType :: Lens' ListArtifacts ArtifactCategory
laType = lens _laType (\ s a -> s{_laType = a});
+instance AWSPager ListArtifacts where
+ page rq rs
+ | stop (rs ^. larsNextToken) = Nothing
+ | stop (rs ^. larsArtifacts) = Nothing
+ | otherwise =
+ Just $ rq & laNextToken .~ rs ^. larsNextToken
+
instance AWSRequest ListArtifacts where
type Rs ListArtifacts = ListArtifactsResponse
request = postJSON deviceFarm
@@ -107,6 +117,8 @@ instance AWSRequest ListArtifacts where
instance Hashable ListArtifacts
+instance NFData ListArtifacts
+
instance ToHeaders ListArtifacts where
toHeaders
= const
@@ -170,3 +182,5 @@ larsNextToken = lens _larsNextToken (\ s a -> s{_larsNextToken = a});
-- | The response status code.
larsResponseStatus :: Lens' ListArtifactsResponse Int
larsResponseStatus = lens _larsResponseStatus (\ s a -> s{_larsResponseStatus = a});
+
+instance NFData ListArtifactsResponse
diff --git a/gen/Network/AWS/DeviceFarm/ListDevicePools.hs b/gen/Network/AWS/DeviceFarm/ListDevicePools.hs
index 8bcbef8..c5b3e73 100644
--- a/gen/Network/AWS/DeviceFarm/ListDevicePools.hs
+++ b/gen/Network/AWS/DeviceFarm/ListDevicePools.hs
@@ -19,6 +19,8 @@
-- Portability : non-portable (GHC extensions)
--
-- Gets information about device pools.
+--
+-- This operation returns paginated results.
module Network.AWS.DeviceFarm.ListDevicePools
(
-- * Creating a Request
@@ -41,6 +43,7 @@ module Network.AWS.DeviceFarm.ListDevicePools
import Network.AWS.DeviceFarm.Types
import Network.AWS.DeviceFarm.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -96,6 +99,13 @@ ldpType = lens _ldpType (\ s a -> s{_ldpType = a});
ldpArn :: Lens' ListDevicePools Text
ldpArn = lens _ldpArn (\ s a -> s{_ldpArn = a});
+instance AWSPager ListDevicePools where
+ page rq rs
+ | stop (rs ^. ldprsNextToken) = Nothing
+ | stop (rs ^. ldprsDevicePools) = Nothing
+ | otherwise =
+ Just $ rq & ldpNextToken .~ rs ^. ldprsNextToken
+
instance AWSRequest ListDevicePools where
type Rs ListDevicePools = ListDevicePoolsResponse
request = postJSON deviceFarm
@@ -109,6 +119,8 @@ instance AWSRequest ListDevicePools where
instance Hashable ListDevicePools
+instance NFData ListDevicePools
+
instance ToHeaders ListDevicePools where
toHeaders
= const
@@ -173,3 +185,5 @@ ldprsNextToken = lens _ldprsNextToken (\ s a -> s{_ldprsNextToken = a});
-- | The response status code.
ldprsResponseStatus :: Lens' ListDevicePoolsResponse Int
ldprsResponseStatus = lens _ldprsResponseStatus (\ s a -> s{_ldprsResponseStatus = a});
+
+instance NFData ListDevicePoolsResponse
diff --git a/gen/Network/AWS/DeviceFarm/ListDevices.hs b/gen/Network/AWS/DeviceFarm/ListDevices.hs
index 428c284..160b649 100644
--- a/gen/Network/AWS/DeviceFarm/ListDevices.hs
+++ b/gen/Network/AWS/DeviceFarm/ListDevices.hs
@@ -19,6 +19,8 @@
-- Portability : non-portable (GHC extensions)
--
-- Gets information about unique device types.
+--
+-- This operation returns paginated results.
module Network.AWS.DeviceFarm.ListDevices
(
-- * Creating a Request
@@ -40,6 +42,7 @@ module Network.AWS.DeviceFarm.ListDevices
import Network.AWS.DeviceFarm.Types
import Network.AWS.DeviceFarm.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -77,6 +80,13 @@ ldArn = lens _ldArn (\ s a -> s{_ldArn = a});
ldNextToken :: Lens' ListDevices (Maybe Text)
ldNextToken = lens _ldNextToken (\ s a -> s{_ldNextToken = a});
+instance AWSPager ListDevices where
+ page rq rs
+ | stop (rs ^. ldrsNextToken) = Nothing
+ | stop (rs ^. ldrsDevices) = Nothing
+ | otherwise =
+ Just $ rq & ldNextToken .~ rs ^. ldrsNextToken
+
instance AWSRequest ListDevices where
type Rs ListDevices = ListDevicesResponse
request = postJSON deviceFarm
@@ -89,6 +99,8 @@ instance AWSRequest ListDevices where
instance Hashable ListDevices
+instance NFData ListDevices
+
instance ToHeaders ListDevices where
toHeaders
= const
@@ -152,3 +164,5 @@ ldrsDevices = lens _ldrsDevices (\ s a -> s{_ldrsDevices = a}) . _Default . _Coe
-- | The response status code.
ldrsResponseStatus :: Lens' ListDevicesResponse Int
ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a});
+
+instance NFData ListDevicesResponse
diff --git a/gen/Network/AWS/DeviceFarm/ListJobs.hs b/gen/Network/AWS/DeviceFarm/ListJobs.hs
index 4a9ebdc..db99f8a 100644
--- a/gen/Network/AWS/DeviceFarm/ListJobs.hs
+++ b/gen/Network/AWS/DeviceFarm/ListJobs.hs
@@ -19,6 +19,8 @@
-- Portability : non-portable (GHC extensions)
--
-- Gets information about jobs.
+--
+-- This operation returns paginated results.
module Network.AWS.DeviceFarm.ListJobs
(
-- * Creating a Request
@@ -40,6 +42,7 @@ module Network.AWS.DeviceFarm.ListJobs
import Network.AWS.DeviceFarm.Types
import Network.AWS.DeviceFarm.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -78,6 +81,13 @@ ljNextToken = lens _ljNextToken (\ s a -> s{_ljNextToken = a});
ljArn :: Lens' ListJobs Text
ljArn = lens _ljArn (\ s a -> s{_ljArn = a});
+instance AWSPager ListJobs where
+ page rq rs
+ | stop (rs ^. ljrsNextToken) = Nothing
+ | stop (rs ^. ljrsJobs) = Nothing
+ | otherwise =
+ Just $ rq & ljNextToken .~ rs ^. ljrsNextToken
+
instance AWSRequest ListJobs where
type Rs ListJobs = ListJobsResponse
request = postJSON deviceFarm
@@ -90,6 +100,8 @@ instance AWSRequest ListJobs where
instance Hashable ListJobs
+instance NFData ListJobs
+
instance ToHeaders ListJobs where
toHeaders
= const
@@ -153,3 +165,5 @@ ljrsNextToken = lens _ljrsNextToken (\ s a -> s{_ljrsNextToken = a});
-- | The response status code.
ljrsResponseStatus :: Lens' ListJobsResponse Int
ljrsResponseStatus = lens _ljrsResponseStatus (\ s a -> s{_ljrsResponseStatus = a});
+
+instance NFData ListJobsResponse
diff --git a/gen/Network/AWS/DeviceFarm/ListOfferingTransactions.hs b/gen/Network/AWS/DeviceFarm/ListOfferingTransactions.hs
new file mode 100644
index 0000000..d63f96f
--- /dev/null
+++ b/gen/Network/AWS/DeviceFarm/ListOfferingTransactions.hs
@@ -0,0 +1,157 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module : Network.AWS.DeviceFarm.ListOfferingTransactions
+-- Copyright : (c) 2013-2016 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Returns a list of all historical purchases, renewals, and system renewal
+-- transactions for an AWS account. The list is paginated and ordered by a
+-- descending timestamp (most recent transactions are first). The API
+-- returns a 'NotEligible' error if the user is not permitted to invoke the
+-- operation. Please contact
+-- <mailto:aws-devicefarm-support'amazon.com aws-devicefarm-support\'amazon.com>
+-- if you believe that you should be able to invoke this operation.
+module Network.AWS.DeviceFarm.ListOfferingTransactions
+ (
+ -- * Creating a Request
+ listOfferingTransactions
+ , ListOfferingTransactions
+ -- * Request Lenses
+ , lotNextToken
+
+ -- * Destructuring the Response
+ , listOfferingTransactionsResponse
+ , ListOfferingTransactionsResponse
+ -- * Response Lenses
+ , lotrsOfferingTransactions
+ , lotrsNextToken
+ , lotrsResponseStatus
+ ) where
+
+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
+
+-- | Represents the request to list the offering transaction history.
+--
+-- /See:/ 'listOfferingTransactions' smart constructor.
+newtype ListOfferingTransactions = ListOfferingTransactions'
+ { _lotNextToken :: Maybe Text
+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
+
+-- | Creates a value of 'ListOfferingTransactions' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'lotNextToken'
+listOfferingTransactions
+ :: ListOfferingTransactions
+listOfferingTransactions =
+ ListOfferingTransactions'
+ { _lotNextToken = Nothing
+ }
+
+-- | An identifier that was returned from the previous call to this
+-- operation, which can be used to return the next set of items in the
+-- list.
+lotNextToken :: Lens' ListOfferingTransactions (Maybe Text)
+lotNextToken = lens _lotNextToken (\ s a -> s{_lotNextToken = a});
+
+instance AWSRequest ListOfferingTransactions where
+ type Rs ListOfferingTransactions =
+ ListOfferingTransactionsResponse
+ request = postJSON deviceFarm
+ response
+ = receiveJSON
+ (\ s h x ->
+ ListOfferingTransactionsResponse' <$>
+ (x .?> "offeringTransactions" .!@ mempty) <*>
+ (x .?> "nextToken")
+ <*> (pure (fromEnum s)))
+
+instance Hashable ListOfferingTransactions
+
+instance NFData ListOfferingTransactions
+
+instance ToHeaders ListOfferingTransactions where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("DeviceFarm_20150623.ListOfferingTransactions" ::
+ ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON ListOfferingTransactions where
+ toJSON ListOfferingTransactions'{..}
+ = object
+ (catMaybes [("nextToken" .=) <$> _lotNextToken])
+
+instance ToPath ListOfferingTransactions where
+ toPath = const "/"
+
+instance ToQuery ListOfferingTransactions where
+ toQuery = const mempty
+
+-- | Returns the transaction log of the specified offerings.
+--
+-- /See:/ 'listOfferingTransactionsResponse' smart constructor.
+data ListOfferingTransactionsResponse = ListOfferingTransactionsResponse'
+ { _lotrsOfferingTransactions :: !(Maybe [OfferingTransaction])
+ , _lotrsNextToken :: !(Maybe Text)
+ , _lotrsResponseStatus :: !Int
+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
+
+-- | Creates a value of 'ListOfferingTransactionsResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'lotrsOfferingTransactions'
+--
+-- * 'lotrsNextToken'
+--
+-- * 'lotrsResponseStatus'
+listOfferingTransactionsResponse
+ :: Int -- ^ 'lotrsResponseStatus'
+ -> ListOfferingTransactionsResponse
+listOfferingTransactionsResponse pResponseStatus_ =
+ ListOfferingTransactionsResponse'
+ { _lotrsOfferingTransactions = Nothing
+ , _lotrsNextToken = Nothing
+ , _lotrsResponseStatus = pResponseStatus_
+ }
+
+-- | The audit log of subscriptions you have purchased and modified through
+-- AWS Device Farm.
+lotrsOfferingTransactions :: Lens' ListOfferingTransactionsResponse [OfferingTransaction]
+lotrsOfferingTransactions = lens _lotrsOfferingTransactions (\ s a -> s{_lotrsOfferingTransactions = a}) . _Default . _Coerce;
+
+-- | An identifier that was returned from the previous call to this
+-- operation, which can be used to return the next set of items in the
+-- list.
+lotrsNextToken :: Lens' ListOfferingTransactionsResponse (Maybe Text)
+lotrsNextToken = lens _lotrsNextToken (\ s a -> s{_lotrsNextToken = a});
+
+-- | The response status code.
+lotrsResponseStatus :: Lens' ListOfferingTransactionsResponse Int
+lotrsResponseStatus = lens _lotrsResponseStatus (\ s a -> s{_lotrsResponseStatus = a});
+
+instance NFData ListOfferingTransactionsResponse
diff --git a/gen/Network/AWS/DeviceFarm/ListOfferings.hs b/gen/Network/AWS/DeviceFarm/ListOfferings.hs
new file mode 100644
index 0000000..1587a28
--- /dev/null
+++ b/gen/Network/AWS/DeviceFarm/ListOfferings.hs
@@ -0,0 +1,153 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module : Network.AWS.DeviceFarm.ListOfferings
+-- Copyright : (c) 2013-2016 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Returns a list of products or offerings that the user can manage through
+-- the API. Each offering record indicates the recurring price per unit and
+-- the frequency for that offering. The API returns a 'NotEligible' error
+-- if the user is not permitted to invoke the operation. Please contact
+-- <mailto:aws-devicefarm-support'amazon.com aws-devicefarm-support\'amazon.com>
+-- if you believe that you should be able to invoke this operation.
+module Network.AWS.DeviceFarm.ListOfferings
+ (
+ -- * Creating a Request
+ listOfferings
+ , ListOfferings
+ -- * Request Lenses
+ , loNextToken
+
+ -- * Destructuring the Response
+ , listOfferingsResponse
+ , ListOfferingsResponse
+ -- * Response Lenses
+ , lorsNextToken
+ , lorsOfferings
+ , lorsResponseStatus
+ ) where
+
+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
+
+-- | Represents the request to list all offerings.
+--
+-- /See:/ 'listOfferings' smart constructor.
+newtype ListOfferings = ListOfferings'
+ { _loNextToken :: Maybe Text
+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
+
+-- | Creates a value of 'ListOfferings' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'loNextToken'
+listOfferings
+ :: ListOfferings
+listOfferings =
+ ListOfferings'
+ { _loNextToken = Nothing
+ }
+
+-- | An identifier that was returned from the previous call to this
+-- operation, which can be used to return the next set of items in the
+-- list.
+loNextToken :: Lens' ListOfferings (Maybe Text)
+loNextToken = lens _loNextToken (\ s a -> s{_loNextToken = a});
+
+instance AWSRequest ListOfferings where
+ type Rs ListOfferings = ListOfferingsResponse
+ request = postJSON deviceFarm
+ response
+ = receiveJSON
+ (\ s h x ->
+ ListOfferingsResponse' <$>
+ (x .?> "nextToken") <*>
+ (x .?> "offerings" .!@ mempty)
+ <*> (pure (fromEnum s)))
+
+instance Hashable ListOfferings
+
+instance NFData ListOfferings
+
+instance ToHeaders ListOfferings where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("DeviceFarm_20150623.ListOfferings" :: ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON ListOfferings where
+ toJSON ListOfferings'{..}
+ = object
+ (catMaybes [("nextToken" .=) <$> _loNextToken])
+
+instance ToPath ListOfferings where
+ toPath = const "/"
+
+instance ToQuery ListOfferings where
+ toQuery = const mempty
+
+-- | Represents the return values of the list of offerings.
+--
+-- /See:/ 'listOfferingsResponse' smart constructor.
+data ListOfferingsResponse = ListOfferingsResponse'
+ { _lorsNextToken :: !(Maybe Text)
+ , _lorsOfferings :: !(Maybe [Offering])
+ , _lorsResponseStatus :: !Int
+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
+
+-- | Creates a value of 'ListOfferingsResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'lorsNextToken'
+--
+-- * 'lorsOfferings'
+--
+-- * 'lorsResponseStatus'
+listOfferingsResponse
+ :: Int -- ^ 'lorsResponseStatus'
+ -> ListOfferingsResponse
+listOfferingsResponse pResponseStatus_ =
+ ListOfferingsResponse'
+ { _lorsNextToken = Nothing
+ , _lorsOfferings = Nothing
+ , _lorsResponseStatus = pResponseStatus_
+ }
+
+-- | An identifier that was returned from the previous call to this
+-- operation, which can be used to return the next set of items in the
+-- list.
+lorsNextToken :: Lens' ListOfferingsResponse (Maybe Text)
+lorsNextToken = lens _lorsNextToken (\ s a -> s{_lorsNextToken = a});
+
+-- | A value representing the list offering results.
+lorsOfferings :: Lens' ListOfferingsResponse [Offering]
+lorsOfferings = lens _lorsOfferings (\ s a -> s{_lorsOfferings = a}) . _Default . _Coerce;
+
+-- | The response status code.
+lorsResponseStatus :: Lens' ListOfferingsResponse Int
+lorsResponseStatus = lens _lorsResponseStatus (\ s a -> s{_lorsResponseStatus = a});
+
+instance NFData ListOfferingsResponse
diff --git a/gen/Network/AWS/DeviceFarm/ListProjects.hs b/gen/Network/AWS/DeviceFarm/ListProjects.hs
index 64c76ef..10eb236 100644
--- a/gen/Network/AWS/DeviceFarm/ListProjects.hs
+++ b/gen/Network/AWS/DeviceFarm/ListProjects.hs
@@ -19,6 +19,8 @@
-- Portability : non-portable (GHC extensions)
--
-- Gets information about projects.
+--
+-- This operation returns paginated results.
module Network.AWS.DeviceFarm.ListProjects
(
-- * Creating a Request
@@ -40,6 +42,7 @@ module Network.AWS.DeviceFarm.ListProjects
import Network.AWS.DeviceFarm.Types
import Network.AWS.DeviceFarm.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -77,6 +80,13 @@ lpArn = lens _lpArn (\ s a -> s{_lpArn = a});
lpNextToken :: Lens' ListProjects (Maybe Text)
lpNextToken = lens _lpNextToken (\ s a -> s{_lpNextToken = a});
+instance AWSPager ListProjects where
+ page rq rs
+ | stop (rs ^. lprsNextToken) = Nothing
+ | stop (rs ^. lprsProjects) = Nothing
+ | otherwise =
+ Just $ rq & lpNextToken .~ rs ^. lprsNextToken
+
instance AWSRequest ListProjects where
type Rs ListProjects = ListProjectsResponse
request = postJSON deviceFarm
@@ -89,6 +99,8 @@ instance AWSRequest ListProjects where
instance Hashable ListProjects
+instance NFData ListProjects
+
instance ToHeaders ListProjects where
toHeaders
= const
@@ -152,3 +164,5 @@ lprsProjects = lens _lprsProjects (\ s a -> s{_lprsProjects = a}) . _Default . _
-- | The response status code.
lprsResponseStatus :: Lens' ListProjectsResponse Int
lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a});
+
+instance NFData ListProjectsResponse
diff --git a/gen/Network/AWS/DeviceFarm/ListRuns.hs b/gen/Network/AWS/DeviceFarm/ListRuns.hs
index 5471eeb..6e540ee 100644
--- a/gen/Network/AWS/DeviceFarm/ListRuns.hs
+++ b/gen/Network/AWS/DeviceFarm/ListRuns.hs
@@ -19,6 +19,8 @@
-- Portability : non-portable (GHC extensions)
--
-- Gets information about runs.
+--
+-- This operation returns paginated results.
module Network.AWS.DeviceFarm.ListRuns
(
-- * Creating a Request
@@ -40,6 +42,7 @@ module Network.AWS.DeviceFarm.ListRuns
import Network.AWS.DeviceFarm.Types
import Network.AWS.DeviceFarm.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -78,6 +81,13 @@ lrNextToken = lens _lrNextToken (\ s a -> s{_lrNextToken = a});
lrArn :: Lens' ListRuns Text
lrArn = lens _lrArn (\ s a -> s{_lrArn = a});
+instance AWSPager ListRuns where
+ page rq rs
+ | stop (rs ^. lrrsNextToken) = Nothing
+ | stop (rs ^. lrrsRuns) = Nothing
+ | otherwise =
+ Just $ rq & lrNextToken .~ rs ^. lrrsNextToken
+
instance AWSRequest ListRuns where
type Rs ListRuns = ListRunsResponse
request = postJSON deviceFarm
@@ -90,6 +100,8 @@ instance AWSRequest ListRuns where
instance Hashable ListRuns
+instance NFData ListRuns
+
instance ToHeaders ListRuns where
toHeaders
= const
@@ -153,3 +165,5 @@ lrrsNextToken = lens _lrrsNextToken (\ s a -> s{_lrrsNextToken = a});
-- | The response status code.
lrrsResponseStatus :: Lens' ListRunsResponse Int
lrrsResponseStatus = lens _lrrsResponseStatus (\ s a -> s{_lrrsResponseStatus = a});
+
+instance NFData ListRunsResponse
diff --git a/gen/Network/AWS/DeviceFarm/ListSamples.hs b/gen/Network/AWS/DeviceFarm/ListSamples.hs
index 88fc323..9135196 100644
--- a/gen/Network/AWS/DeviceFarm/ListSamples.hs
+++ b/gen/Network/AWS/DeviceFarm/ListSamples.hs
@@ -19,6 +19,8 @@
-- Portability : non-portable (GHC extensions)
--
-- Gets information about samples.
+--
+-- This operation returns paginated results.
module Network.AWS.DeviceFarm.ListSamples
(
-- * Creating a Request
@@ -40,6 +42,7 @@ module Network.AWS.DeviceFarm.ListSamples
import Network.AWS.DeviceFarm.Types
import Network.AWS.DeviceFarm.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -78,6 +81,13 @@ lsNextToken = lens _lsNextToken (\ s a -> s{_lsNextToken = a});
lsArn :: Lens' ListSamples Text
lsArn = lens _lsArn (\ s a -> s{_lsArn = a});
+instance AWSPager ListSamples where
+ page rq rs
+ | stop (rs ^. lrsNextToken) = Nothing
+ | stop (rs ^. lrsSamples) = Nothing
+ | otherwise =
+ Just $ rq & lsNextToken .~ rs ^. lrsNextToken
+
instance AWSRequest ListSamples where
type Rs ListSamples = ListSamplesResponse
request = postJSON deviceFarm
@@ -90,6 +100,8 @@ instance AWSRequest ListSamples where
instance Hashable ListSamples
+instance NFData ListSamples
+
instance ToHeaders ListSamples where
toHeaders
= const
@@ -153,3 +165,5 @@ lrsSamples = lens _lrsSamples (\ s a -> s{_lrsSamples = a}) . _Default . _Coerce
-- | The response status code.
lrsResponseStatus :: Lens' ListSamplesResponse Int
lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a});
+
+instance NFData ListSamplesResponse
diff --git a/gen/Network/AWS/DeviceFarm/ListSuites.hs b/gen/Network/AWS/DeviceFarm/ListSuites.hs
index 5b5b663..ecd1d16 100644
--- a/gen/Network/AWS/DeviceFarm/ListSuites.hs
+++ b/gen/Network/AWS/DeviceFarm/ListSuites.hs
@@ -19,6 +19,8 @@
-- Portability : non-portable (GHC extensions)
--
-- Gets information about suites.
+--
+-- This operation returns paginated results.
module Network.AWS.DeviceFarm.ListSuites
(
-- * Creating a Request
@@ -40,6 +42,7 @@ module Network.AWS.DeviceFarm.ListSuites
import Network.AWS.DeviceFarm.Types
import Network.AWS.DeviceFarm.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -78,6 +81,13 @@ lNextToken = lens _lNextToken (\ s a -> s{_lNextToken = a});
lArn :: Lens' ListSuites Text
lArn = lens _lArn (\ s a -> s{_lArn = a});
+instance AWSPager ListSuites where
+ page rq rs
+ | stop (rs ^. lsrsNextToken) = Nothing
+ | stop (rs ^. lsrsSuites) = Nothing
+ | otherwise =
+ Just $ rq & lNextToken .~ rs ^. lsrsNextToken
+
instance AWSRequest ListSuites where
type Rs ListSuites = ListSuitesResponse
request = postJSON deviceFarm
@@ -90,6 +100,8 @@ instance AWSRequest ListSuites where
instance Hashable ListSuites
+instance NFData ListSuites
+
instance ToHeaders ListSuites where
toHeaders
= const
@@ -153,3 +165,5 @@ lsrsSuites = lens _lsrsSuites (\ s a -> s{_lsrsSuites = a}) . _Default . _Coerce
-- | The response status code.
lsrsResponseStatus :: Lens' ListSuitesResponse Int
lsrsResponseStatus = lens _lsrsResponseStatus (\ s a -> s{_lsrsResponseStatus = a});
+
+instance NFData ListSuitesResponse
diff --git a/gen/Network/AWS/DeviceFarm/ListTests.hs b/gen/Network/AWS/DeviceFarm/ListTests.hs
index ed052f0..dcb984a 100644
--- a/gen/Network/AWS/DeviceFarm/ListTests.hs
+++ b/gen/Network/AWS/DeviceFarm/ListTests.hs
@@ -19,6 +19,8 @@
-- Portability : non-portable (GHC extensions)
--
-- Gets information about tests.
+--
+-- This operation returns paginated results.
module Network.AWS.DeviceFarm.ListTests
(
-- * Creating a Request
@@ -40,6 +42,7 @@ module Network.AWS.DeviceFarm.ListTests
import Network.AWS.DeviceFarm.Types
import Network.AWS.DeviceFarm.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -78,6 +81,13 @@ ltNextToken = lens _ltNextToken (\ s a -> s{_ltNextToken = a});
ltArn :: Lens' ListTests Text
ltArn = lens _ltArn (\ s a -> s{_ltArn = a});
+instance AWSPager ListTests where
+ page rq rs
+ | stop (rs ^. ltrsNextToken) = Nothing
+ | stop (rs ^. ltrsTests) = Nothing
+ | otherwise =
+ Just $ rq & ltNextToken .~ rs ^. ltrsNextToken
+
instance AWSRequest ListTests where
type Rs ListTests = ListTestsResponse
request = postJSON deviceFarm
@@ -90,6 +100,8 @@ instance AWSRequest ListTests where
instance Hashable ListTests
+instance NFData ListTests
+
instance ToHeaders ListTests where
toHeaders
= const
@@ -153,3 +165,5 @@ ltrsNextToken = lens _ltrsNextToken (\ s a -> s{_ltrsNextToken = a});
-- | The response status code.
ltrsResponseStatus :: Lens' ListTestsResponse Int
ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a});
+
+instance NFData ListTestsResponse
diff --git a/gen/Network/AWS/DeviceFarm/ListUniqueProblems.hs b/gen/Network/AWS/DeviceFarm/ListUniqueProblems.hs
index be25d21..4bd7e67 100644
--- a/gen/Network/AWS/DeviceFarm/ListUniqueProblems.hs
+++ b/gen/Network/AWS/DeviceFarm/ListUniqueProblems.hs
@@ -19,6 +19,8 @@
-- Portability : non-portable (GHC extensions)
--
-- Gets information about unique problems.
+--
+-- This operation returns paginated results.
module Network.AWS.DeviceFarm.ListUniqueProblems
(
-- * Creating a Request
@@ -40,6 +42,7 @@ module Network.AWS.DeviceFarm.ListUniqueProblems
import Network.AWS.DeviceFarm.Types
import Network.AWS.DeviceFarm.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -78,6 +81,13 @@ lupNextToken = lens _lupNextToken (\ s a -> s{_lupNextToken = a});
lupArn :: Lens' ListUniqueProblems Text
lupArn = lens _lupArn (\ s a -> s{_lupArn = a});
+instance AWSPager ListUniqueProblems where
+ page rq rs
+ | stop (rs ^. luprsNextToken) = Nothing
+ | stop (rs ^. luprsUniqueProblems) = Nothing
+ | otherwise =
+ Just $ rq & lupNextToken .~ rs ^. luprsNextToken
+
instance AWSRequest ListUniqueProblems where
type Rs ListUniqueProblems =
ListUniqueProblemsResponse
@@ -92,6 +102,8 @@ instance AWSRequest ListUniqueProblems where
instance Hashable ListUniqueProblems
+instance NFData ListUniqueProblems
+
instance ToHeaders ListUniqueProblems where
toHeaders
= const
@@ -153,19 +165,19 @@ luprsNextToken = lens _luprsNextToken (\ s a -> s{_luprsNextToken = a});
--
-- Allowed values include:
--
--- - ERRORED: An error condition.
+-- - PENDING: A pending condition.
--
--- - FAILED: A failed condition.
+-- - PASSED: A passing condition.
--
--- - SKIPPED: A skipped condition.
+-- - WARNED: A warning condition.
--
--- - STOPPED: A stopped condition.
+-- - FAILED: A failed condition.
--
--- - PASSED: A passing condition.
+-- - SKIPPED: A skipped condition.
--
--- - PENDING: A pending condition.
+-- - ERRORED: An error condition.
--
--- - WARNED: A warning condition.
+-- - STOPPED: A stopped condition.
--
luprsUniqueProblems :: Lens' ListUniqueProblemsResponse (HashMap ExecutionResult [UniqueProblem])
luprsUniqueProblems = lens _luprsUniqueProblems (\ s a -> s{_luprsUniqueProblems = a}) . _Default . _Map;
@@ -173,3 +185,5 @@ luprsUniqueProblems = lens _luprsUniqueProblems (\ s a -> s{_luprsUniqueProblems
-- | The response status code.
luprsResponseStatus :: Lens' ListUniqueProblemsResponse Int
luprsResponseStatus = lens _luprsResponseStatus (\ s a -> s{_luprsResponseStatus = a});
+
+instance NFData ListUniqueProblemsResponse
diff --git a/gen/Network/AWS/DeviceFarm/ListUploads.hs b/gen/Network/AWS/DeviceFarm/ListUploads.hs
index baa1cc3..fa535a4 100644
--- a/gen/Network/AWS/DeviceFarm/ListUploads.hs
+++ b/gen/Network/AWS/DeviceFarm/ListUploads.hs
@@ -19,6 +19,8 @@
-- Portability : non-portable (GHC extensions)
--
-- Gets information about uploads.
+--
+-- This operation returns paginated results.
module Network.AWS.DeviceFarm.ListUploads
(
-- * Creating a Request
@@ -40,6 +42,7 @@ module Network.AWS.DeviceFarm.ListUploads
import Network.AWS.DeviceFarm.Types
import Network.AWS.DeviceFarm.Types.Product
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -78,6 +81,13 @@ luNextToken = lens _luNextToken (\ s a -> s{_luNextToken = a});
luArn :: Lens' ListUploads Text
luArn = lens _luArn (\ s a -> s{_luArn = a});
+instance AWSPager ListUploads where
+ page rq rs
+ | stop (rs ^. lursNextToken) = Nothing
+ | stop (rs ^. lursUploads) = Nothing
+ | otherwise =
+ Just $ rq & luNextToken .~ rs ^. lursNextToken
+
instance AWSRequest ListUploads where
type Rs ListUploads = ListUploadsResponse
request = postJSON deviceFarm
@@ -90,6 +100,8 @@ instance AWSRequest ListUploads where
instance Hashable ListUploads
+instance NFData ListUploads
+
instance ToHeaders ListUploads where
toHeaders
= const
@@ -153,3 +165,5 @@ lursUploads = lens _lursUploads (\ s a -> s{_lursUploads = a}) . _Default . _Coe
-- | The response status code.
lursResponseStatus :: Lens' ListUploadsResponse Int
lursResponseStatus = lens _lursResponseStatus (\ s a -> s{_lursResponseStatus = a});
+
+instance NFData ListUploadsResponse
diff --git a/gen/Network/AWS/DeviceFarm/PurchaseOffering.hs b/gen/Network/AWS/DeviceFarm/PurchaseOffering.hs
new file mode 100644
index 0000000..073d820
--- /dev/null
+++ b/gen/Network/AWS/DeviceFarm/PurchaseOffering.hs
@@ -0,0 +1,151 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module : Network.AWS.DeviceFarm.PurchaseOffering
+-- Copyright : (c) 2013-2016 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Immediately purchases offerings for an AWS account. Offerings renew with
+-- the latest total purchased quantity for an offering, unless the renewal
+-- was overridden. The API returns a 'NotEligible' error if the user is not
+-- permitted to invoke the operation. Please contact
+-- <mailto:aws-devicefarm-support'amazon.com aws-devicefarm-support\'amazon.com>
+-- if you believe that you should be able to invoke this operation.
+module Network.AWS.DeviceFarm.PurchaseOffering
+ (
+ -- * Creating a Request
+ purchaseOffering
+ , PurchaseOffering
+ -- * Request Lenses
+ , poQuantity
+ , poOfferingId
+
+ -- * Destructuring the Response
+ , purchaseOfferingResponse
+ , PurchaseOfferingResponse
+ -- * Response Lenses
+ , porsOfferingTransaction
+ , porsResponseStatus
+ ) where
+
+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
+
+-- | Represents a request for a purchase offering.
+--
+-- /See:/ 'purchaseOffering' smart constructor.
+data PurchaseOffering = PurchaseOffering'
+ { _poQuantity :: !(Maybe Int)
+ , _poOfferingId :: !(Maybe Text)
+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
+
+-- | Creates a value of 'PurchaseOffering' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'poQuantity'
+--
+-- * 'poOfferingId'
+purchaseOffering
+ :: PurchaseOffering
+purchaseOffering =
+ PurchaseOffering'
+ { _poQuantity = Nothing
+ , _poOfferingId = Nothing
+ }
+
+-- | The number of device slots you wish to purchase in an offering request.
+poQuantity :: Lens' PurchaseOffering (Maybe Int)
+poQuantity = lens _poQuantity (\ s a -> s{_poQuantity = a});
+
+-- | The ID of the offering.
+poOfferingId :: Lens' PurchaseOffering (Maybe Text)
+poOfferingId = lens _poOfferingId (\ s a -> s{_poOfferingId = a});
+
+instance AWSRequest PurchaseOffering where
+ type Rs PurchaseOffering = PurchaseOfferingResponse
+ request = postJSON deviceFarm
+ response
+ = receiveJSON
+ (\ s h x ->
+ PurchaseOfferingResponse' <$>
+ (x .?> "offeringTransaction") <*>
+ (pure (fromEnum s)))
+
+instance Hashable PurchaseOffering
+
+instance NFData PurchaseOffering
+
+instance ToHeaders PurchaseOffering where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("DeviceFarm_20150623.PurchaseOffering" ::
+ ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON PurchaseOffering where
+ toJSON PurchaseOffering'{..}
+ = object
+ (catMaybes
+ [("quantity" .=) <$> _poQuantity,
+ ("offeringId" .=) <$> _poOfferingId])
+
+instance ToPath PurchaseOffering where
+ toPath = const "/"
+
+instance ToQuery PurchaseOffering where
+ toQuery = const mempty
+
+-- | The result of the purchase offering (e.g., success or failure).
+--
+-- /See:/ 'purchaseOfferingResponse' smart constructor.
+data PurchaseOfferingResponse = PurchaseOfferingResponse'
+ { _porsOfferingTransaction :: !(Maybe OfferingTransaction)
+ , _porsResponseStatus :: !Int
+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
+
+-- | Creates a value of 'PurchaseOfferingResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'porsOfferingTransaction'
+--
+-- * 'porsResponseStatus'
+purchaseOfferingResponse
+ :: Int -- ^ 'porsResponseStatus'
+ -> PurchaseOfferingResponse
+purchaseOfferingResponse pResponseStatus_ =
+ PurchaseOfferingResponse'
+ { _porsOfferingTransaction = Nothing
+ , _porsResponseStatus = pResponseStatus_
+ }
+
+-- | Represents the offering transaction for the purchase result.
+porsOfferingTransaction :: Lens' PurchaseOfferingResponse (Maybe OfferingTransaction)
+porsOfferingTransaction = lens _porsOfferingTransaction (\ s a -> s{_porsOfferingTransaction = a});
+
+-- | The response status code.
+porsResponseStatus :: Lens' PurchaseOfferingResponse Int
+porsResponseStatus = lens _porsResponseStatus (\ s a -> s{_porsResponseStatus = a});
+
+instance NFData PurchaseOfferingResponse
diff --git a/gen/Network/AWS/DeviceFarm/RenewOffering.hs b/gen/Network/AWS/DeviceFarm/RenewOffering.hs
new file mode 100644
index 0000000..b54da6e
--- /dev/null
+++ b/gen/Network/AWS/DeviceFarm/RenewOffering.hs
@@ -0,0 +1,150 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module : Network.AWS.DeviceFarm.RenewOffering
+-- Copyright : (c) 2013-2016 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Explicitly sets the quantity of devices to renew for an offering,
+-- starting from the 'effectiveDate' of the next period. The API returns a
+-- 'NotEligible' error if the user is not permitted to invoke the
+-- operation. Please contact
+-- <mailto:aws-devicefarm-support'amazon.com aws-devicefarm-support\'amazon.com>
+-- if you believe that you should be able to invoke this operation.
+module Network.AWS.DeviceFarm.RenewOffering
+ (
+ -- * Creating a Request
+ renewOffering
+ , RenewOffering
+ -- * Request Lenses
+ , roQuantity
+ , roOfferingId
+
+ -- * Destructuring the Response
+ , renewOfferingResponse
+ , RenewOfferingResponse
+ -- * Response Lenses
+ , rorsOfferingTransaction
+ , rorsResponseStatus
+ ) where
+
+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
+
+-- | A request representing an offering renewal.
+--
+-- /See:/ 'renewOffering' smart constructor.
+data RenewOffering = RenewOffering'
+ { _roQuantity :: !(Maybe Int)
+ , _roOfferingId :: !(Maybe Text)
+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
+
+-- | Creates a value of 'RenewOffering' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'roQuantity'
+--
+-- * 'roOfferingId'
+renewOffering
+ :: RenewOffering
+renewOffering =
+ RenewOffering'
+ { _roQuantity = Nothing
+ , _roOfferingId = Nothing
+ }
+
+-- | The quantity requested in an offering renewal.
+roQuantity :: Lens' RenewOffering (Maybe Int)
+roQuantity = lens _roQuantity (\ s a -> s{_roQuantity = a});
+
+-- | The ID of a request to renew an offering.
+roOfferingId :: Lens' RenewOffering (Maybe Text)
+roOfferingId = lens _roOfferingId (\ s a -> s{_roOfferingId = a});
+
+instance AWSRequest RenewOffering where
+ type Rs RenewOffering = RenewOfferingResponse
+ request = postJSON deviceFarm
+ response
+ = receiveJSON
+ (\ s h x ->
+ RenewOfferingResponse' <$>
+ (x .?> "offeringTransaction") <*>
+ (pure (fromEnum s)))
+
+instance Hashable RenewOffering
+
+instance NFData RenewOffering
+
+instance ToHeaders RenewOffering where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("DeviceFarm_20150623.RenewOffering" :: ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON RenewOffering where
+ toJSON RenewOffering'{..}
+ = object
+ (catMaybes
+ [("quantity" .=) <$> _roQuantity,
+ ("offeringId" .=) <$> _roOfferingId])
+
+instance ToPath RenewOffering where
+ toPath = const "/"
+
+instance ToQuery RenewOffering where
+ toQuery = const mempty
+
+-- | The result of a renewal offering.
+--
+-- /See:/ 'renewOfferingResponse' smart constructor.
+data RenewOfferingResponse = RenewOfferingResponse'
+ { _rorsOfferingTransaction :: !(Maybe OfferingTransaction)
+ , _rorsResponseStatus :: !Int
+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
+
+-- | Creates a value of 'RenewOfferingResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'rorsOfferingTransaction'
+--
+-- * 'rorsResponseStatus'
+renewOfferingResponse
+ :: Int -- ^ 'rorsResponseStatus'
+ -> RenewOfferingResponse
+renewOfferingResponse pResponseStatus_ =
+ RenewOfferingResponse'
+ { _rorsOfferingTransaction = Nothing
+ , _rorsResponseStatus = pResponseStatus_
+ }
+
+-- | Represents the status of the offering transaction for the renewal.
+rorsOfferingTransaction :: Lens' RenewOfferingResponse (Maybe OfferingTransaction)
+rorsOfferingTransaction = lens _rorsOfferingTransaction (\ s a -> s{_rorsOfferingTransaction = a});
+
+-- | The response status code.
+rorsResponseStatus :: Lens' RenewOfferingResponse Int
+rorsResponseStatus = lens _rorsResponseStatus (\ s a -> s{_rorsResponseStatus = a});
+
+instance NFData RenewOfferingResponse
diff --git a/gen/Network/AWS/DeviceFarm/ScheduleRun.hs b/gen/Network/AWS/DeviceFarm/ScheduleRun.hs
index 71f89fa..9ed9d28 100644
--- a/gen/Network/AWS/DeviceFarm/ScheduleRun.hs
+++ b/gen/Network/AWS/DeviceFarm/ScheduleRun.hs
@@ -124,6 +124,8 @@ instance AWSRequest ScheduleRun where
instance Hashable ScheduleRun
+instance NFData ScheduleRun
+
instance ToHeaders ScheduleRun where
toHeaders
= const
@@ -181,3 +183,5 @@ srrsRun = lens _srrsRun (\ s a -> s{_srrsRun = a});
-- | The response status code.
srrsResponseStatus :: Lens' ScheduleRunResponse Int
srrsResponseStatus = lens _srrsResponseStatus (\ s a -> s{_srrsResponseStatus = a});
+
+instance NFData ScheduleRunResponse
diff --git a/gen/Network/AWS/DeviceFarm/StopRun.hs b/gen/Network/AWS/DeviceFarm/StopRun.hs
new file mode 100644
index 0000000..63445a4
--- /dev/null
+++ b/gen/Network/AWS/DeviceFarm/StopRun.hs
@@ -0,0 +1,140 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module : Network.AWS.DeviceFarm.StopRun
+-- Copyright : (c) 2013-2016 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Initiates a stop request for the current test run. AWS Device Farm will
+-- immediately stop the run on devices where tests have not started
+-- executing, and you will not be billed for these devices. On devices
+-- where tests have started executing, Setup Suite and Teardown Suite tests
+-- will run to completion before stopping execution on those devices. You
+-- will be billed for Setup, Teardown, and any tests that were in progress
+-- or already completed.
+module Network.AWS.DeviceFarm.StopRun
+ (
+ -- * Creating a Request
+ stopRun
+ , StopRun
+ -- * Request Lenses
+ , srArn
+
+ -- * Destructuring the Response
+ , stopRunResponse
+ , StopRunResponse
+ -- * Response Lenses
+ , srsRun
+ , srsResponseStatus
+ ) where
+
+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
+
+-- | Represents the request to stop a specific run.
+--
+-- /See:/ 'stopRun' smart constructor.
+newtype StopRun = StopRun'
+ { _srArn :: Text
+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
+
+-- | Creates a value of 'StopRun' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'srArn'
+stopRun
+ :: Text -- ^ 'srArn'
+ -> StopRun
+stopRun pArn_ =
+ StopRun'
+ { _srArn = pArn_
+ }
+
+-- | Represents the Amazon Resource Name (ARN) of the Device Farm run you
+-- wish to stop.
+srArn :: Lens' StopRun Text
+srArn = lens _srArn (\ s a -> s{_srArn = a});
+
+instance AWSRequest StopRun where
+ type Rs StopRun = StopRunResponse
+ request = postJSON deviceFarm
+ response
+ = receiveJSON
+ (\ s h x ->
+ StopRunResponse' <$>
+ (x .?> "run") <*> (pure (fromEnum s)))
+
+instance Hashable StopRun
+
+instance NFData StopRun
+
+instance ToHeaders StopRun where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("DeviceFarm_20150623.StopRun" :: ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON StopRun where
+ toJSON StopRun'{..}
+ = object (catMaybes [Just ("arn" .= _srArn)])
+
+instance ToPath StopRun where
+ toPath = const "/"
+
+instance ToQuery StopRun where
+ toQuery = const mempty
+
+-- | Represents the results of your stop run attempt.
+--
+-- /See:/ 'stopRunResponse' smart constructor.
+data StopRunResponse = StopRunResponse'
+ { _srsRun :: !(Maybe Run)
+ , _srsResponseStatus :: !Int
+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
+
+-- | Creates a value of 'StopRunResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'srsRun'
+--
+-- * 'srsResponseStatus'
+stopRunResponse
+ :: Int -- ^ 'srsResponseStatus'
+ -> StopRunResponse
+stopRunResponse pResponseStatus_ =
+ StopRunResponse'
+ { _srsRun = Nothing
+ , _srsResponseStatus = pResponseStatus_
+ }
+
+-- | Undocumented member.
+srsRun :: Lens' StopRunResponse (Maybe Run)
+srsRun = lens _srsRun (\ s a -> s{_srsRun = a});
+
+-- | The response status code.
+srsResponseStatus :: Lens' StopRunResponse Int
+srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a});
+
+instance NFData StopRunResponse
diff --git a/gen/Network/AWS/DeviceFarm/Types.hs b/gen/Network/AWS/DeviceFarm/Types.hs
index 663b52d..6355022 100644
--- a/gen/Network/AWS/DeviceFarm/Types.hs
+++ b/gen/Network/AWS/DeviceFarm/Types.hs
@@ -16,6 +16,7 @@ module Network.AWS.DeviceFarm.Types
deviceFarm
-- * Errors
+ , _NotEligibleException
, _IdempotencyException
, _ArgumentException
, _NotFoundException
@@ -31,6 +32,9 @@ module Network.AWS.DeviceFarm.Types
-- * BillingMethod
, BillingMethod (..)
+ -- * CurrencyCode
+ , CurrencyCode (..)
+
-- * DeviceAttribute
, DeviceAttribute (..)
@@ -49,6 +53,15 @@ module Network.AWS.DeviceFarm.Types
-- * ExecutionStatus
, ExecutionStatus (..)
+ -- * OfferingTransactionType
+ , OfferingTransactionType (..)
+
+ -- * OfferingType
+ , OfferingType (..)
+
+ -- * RecurringChargeFrequency
+ , RecurringChargeFrequency (..)
+
-- * RuleOperator
, RuleOperator (..)
@@ -69,6 +82,7 @@ module Network.AWS.DeviceFarm.Types
, accountSettings
, asAwsAccountNumber
, asUnmeteredDevices
+ , asUnmeteredRemoteAccessDevices
-- * Artifact
, Artifact
@@ -166,6 +180,37 @@ module Network.AWS.DeviceFarm.Types
, lLatitude
, lLongitude
+ -- * MonetaryAmount
+ , MonetaryAmount
+ , monetaryAmount
+ , maAmount
+ , maCurrencyCode
+
+ -- * Offering
+ , Offering
+ , offering
+ , oPlatform
+ , oId
+ , oRecurringCharges
+ , oType
+ , oDescription
+
+ -- * OfferingStatus
+ , OfferingStatus
+ , offeringStatus
+ , osEffectiveOn
+ , osOffering
+ , osQuantity
+ , osType
+
+ -- * OfferingTransaction
+ , OfferingTransaction
+ , offeringTransaction
+ , otOfferingStatus
+ , otCost
+ , otTransactionId
+ , otCreatedOn
+
-- * Problem
, Problem
, problem
@@ -198,6 +243,12 @@ module Network.AWS.DeviceFarm.Types
, rBluetooth
, rWifi
+ -- * RecurringCharge
+ , RecurringCharge
+ , recurringCharge
+ , rcFrequency
+ , rcCost
+
-- * Resolution
, Resolution
, resolution
@@ -339,11 +390,18 @@ deviceFarm =
| has (hasCode "ThrottlingException" . hasStatus 400) e =
Just "throttling_exception"
| has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"
+ | has (hasStatus 504) e = Just "gateway_timeout"
+ | has (hasStatus 502) e = Just "bad_gateway"
| has (hasStatus 503) e = Just "service_unavailable"
| has (hasStatus 500) e = Just "general_server_error"
| has (hasStatus 509) e = Just "limit_exceeded"
| otherwise = Nothing
+-- | Exception gets thrown when a user is not eligible to perform the
+-- specified transaction.
+_NotEligibleException :: AsError a => Getting (First ServiceError) a ServiceError
+_NotEligibleException = _ServiceError . hasCode "NotEligibleException"
+
-- | An entity with the same name already exists.
_IdempotencyException :: AsError a => Getting (First ServiceError) a ServiceError
_IdempotencyException = _ServiceError . hasCode "IdempotencyException"
diff --git a/gen/Network/AWS/DeviceFarm/Types/Product.hs b/gen/Network/AWS/DeviceFarm/Types/Product.hs
index 0d559c0..d130ef6 100644
--- a/gen/Network/AWS/DeviceFarm/Types/Product.hs
+++ b/gen/Network/AWS/DeviceFarm/Types/Product.hs
@@ -25,8 +25,9 @@ import Network.AWS.Prelude
--
-- /See:/ 'accountSettings' smart constructor.
data AccountSettings = AccountSettings'
- { _asAwsAccountNumber :: !(Maybe Text)
- , _asUnmeteredDevices :: !(Maybe (Map DevicePlatform Int))
+ { _asAwsAccountNumber :: !(Maybe Text)
+ , _asUnmeteredDevices :: !(Maybe (Map DevicePlatform Int))
+ , _asUnmeteredRemoteAccessDevices :: !(Maybe (Map DevicePlatform Int))
} deriving (Eq,Read,Show,Data,Typeable,Generic)
-- | Creates a value of 'AccountSettings' with the minimum fields required to make a request.
@@ -36,32 +37,44 @@ data AccountSettings = AccountSettings'
-- * 'asAwsAccountNumber'
--
-- * 'asUnmeteredDevices'
+--
+-- * 'asUnmeteredRemoteAccessDevices'
accountSettings
:: AccountSettings
accountSettings =
AccountSettings'
{ _asAwsAccountNumber = Nothing
, _asUnmeteredDevices = Nothing
+ , _asUnmeteredRemoteAccessDevices = Nothing
}
-- | The AWS account number specified in the 'AccountSettings' container.
asAwsAccountNumber :: Lens' AccountSettings (Maybe Text)
asAwsAccountNumber = lens _asAwsAccountNumber (\ s a -> s{_asAwsAccountNumber = a});
--- | Returns the unmetered devices you have purchased.
+-- | Returns the unmetered devices you have purchased or want to purchase.
asUnmeteredDevices :: Lens' AccountSettings (HashMap DevicePlatform Int)
asUnmeteredDevices = lens _asUnmeteredDevices (\ s a -> s{_asUnmeteredDevices = a}) . _Default . _Map;
+-- | Returns the unmetered remote access devices you have purchased or want
+-- to purchase.
+asUnmeteredRemoteAccessDevices :: Lens' AccountSettings (HashMap DevicePlatform Int)
+asUnmeteredRemoteAccessDevices = lens _asUnmeteredRemoteAccessDevices (\ s a -> s{_asUnmeteredRemoteAccessDevices = a}) . _Default . _Map;
+
instance FromJSON AccountSettings where
parseJSON
= withObject "AccountSettings"
(\ x ->
AccountSettings' <$>
(x .:? "awsAccountNumber") <*>
- (x .:? "unmeteredDevices" .!= mempty))
+ (x .:? "unmeteredDevices" .!= mempty)
+ <*>
+ (x .:? "unmeteredRemoteAccessDevices" .!= mempty))
instance Hashable AccountSettings
+instance NFData AccountSettings
+
-- | Represents the output of a test. Examples of artifacts include logs and
-- screenshots.
--
@@ -181,6 +194,8 @@ instance FromJSON Artifact where
instance Hashable Artifact
+instance NFData Artifact
+
-- | Represents the amount of CPU that an app is using on a physical device.
--
-- Note that this does not represent system-wide CPU usage.
@@ -233,6 +248,8 @@ instance FromJSON CPU where
instance Hashable CPU
+instance NFData CPU
+
-- | Represents entity counters.
--
-- /See:/ 'counters' smart constructor.
@@ -318,6 +335,8 @@ instance FromJSON Counters where
instance Hashable Counters
+instance NFData Counters
+
-- | Represents a device type that an app is tested against.
--
-- /See:/ 'device' smart constructor.
@@ -480,6 +499,8 @@ instance FromJSON Device where
instance Hashable Device
+instance NFData Device
+
-- | Represents the total (metered or unmetered) minutes used by the resource
-- to run tests. Contains the sum of minutes consumed by all children.
--
@@ -533,6 +554,8 @@ instance FromJSON DeviceMinutes where
instance Hashable DeviceMinutes
+instance NFData DeviceMinutes
+
-- | Represents a collection of device types.
--
-- /See:/ 'devicePool' smart constructor.
@@ -609,6 +632,8 @@ instance FromJSON DevicePool where
instance Hashable DevicePool
+instance NFData DevicePool
+
-- | Represents a device pool compatibility result.
--
-- /See:/ 'devicePoolCompatibilityResult' smart constructor.
@@ -658,6 +683,8 @@ instance FromJSON DevicePoolCompatibilityResult where
instance Hashable DevicePoolCompatibilityResult
+instance NFData DevicePoolCompatibilityResult
+
-- | Represents information about incompatibility.
--
-- /See:/ 'incompatibilityMessage' smart constructor.
@@ -709,6 +736,8 @@ instance FromJSON IncompatibilityMessage where
instance Hashable IncompatibilityMessage
+instance NFData IncompatibilityMessage
+
-- | Represents a device.
--
-- /See:/ 'job' smart constructor.
@@ -776,15 +805,23 @@ job =
--
-- Allowed values include:
--
--- - COMPLETED: A completed status.
---
-- - PENDING: A pending status.
--
+-- - PENDING_CONCURRENCY: A pending concurrency status.
+--
+-- - PENDING_DEVICE: A pending device status.
+--
-- - PROCESSING: A processing status.
--
+-- - SCHEDULING: A scheduling status.
+--
+-- - PREPARING: A preparing status.
+--
-- - RUNNING: A running status.
--
--- - SCHEDULING: A scheduling status.
+-- - COMPLETED: A completed status.
+--
+-- - STOPPING: A stopping status.
--
jobStatus :: Lens' Job (Maybe ExecutionStatus)
jobStatus = lens _jobStatus (\ s a -> s{_jobStatus = a});
@@ -813,19 +850,19 @@ jobStopped = lens _jobStopped (\ s a -> s{_jobStopped = a}) . mapping _Time;
--
-- Allowed values include:
--
--- - ERRORED: An error condition.
+-- - PENDING: A pending condition.
--
--- - FAILED: A failed condition.
+-- - PASSED: A passing condition.
--
--- - SKIPPED: A skipped condition.
+-- - WARNED: A warning condition.
--
--- - STOPPED: A stopped condition.
+-- - FAILED: A failed condition.
--
--- - PASSED: A passing condition.
+-- - SKIPPED: A skipped condition.
--
--- - PENDING: A pending condition.
+-- - ERRORED: An error condition.
--
--- - WARNED: A warning condition.
+-- - STOPPED: A stopped condition.
--
jobResult :: Lens' Job (Maybe ExecutionResult)
jobResult = lens _jobResult (\ s a -> s{_jobResult = a});
@@ -902,6 +939,8 @@ instance FromJSON Job where
instance Hashable Job
+instance NFData Job
+
-- | Represents a latitude and longitude pair, expressed in geographic
-- coordinate system degrees (for example 47.6204, -122.3491).
--
@@ -940,6 +979,8 @@ lLongitude = lens _lLongitude (\ s a -> s{_lLongitude = a});
instance Hashable Location
+instance NFData Location
+
instance ToJSON Location where
toJSON Location'{..}
= object
@@ -947,6 +988,239 @@ instance ToJSON Location where
[Just ("latitude" .= _lLatitude),
Just ("longitude" .= _lLongitude)])
+-- | A number representing the monetary amount for an offering or
+-- transaction.
+--
+-- /See:/ 'monetaryAmount' smart constructor.
+data MonetaryAmount = MonetaryAmount'
+ { _maAmount :: !(Maybe Double)
+ , _maCurrencyCode :: !(Maybe CurrencyCode)
+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
+
+-- | Creates a value of 'MonetaryAmount' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'maAmount'
+--
+-- * 'maCurrencyCode'
+monetaryAmount
+ :: MonetaryAmount
+monetaryAmount =
+ MonetaryAmount'
+ { _maAmount = Nothing
+ , _maCurrencyCode = Nothing
+ }
+
+-- | The numerical amount of an offering or transaction.
+maAmount :: Lens' MonetaryAmount (Maybe Double)
+maAmount = lens _maAmount (\ s a -> s{_maAmount = a});
+
+-- | The currency code of a monetary amount. For example, 'USD' means \"U.S.
+-- dollars.\"
+maCurrencyCode :: Lens' MonetaryAmount (Maybe CurrencyCode)
+maCurrencyCode = lens _maCurrencyCode (\ s a -> s{_maCurrencyCode = a});
+
+instance FromJSON MonetaryAmount where
+ parseJSON
+ = withObject "MonetaryAmount"
+ (\ x ->
+ MonetaryAmount' <$>
+ (x .:? "amount") <*> (x .:? "currencyCode"))
+
+instance Hashable MonetaryAmount
+
+instance NFData MonetaryAmount
+
+-- | Represents the metadata of a device offering.
+--
+-- /See:/ 'offering' smart constructor.
+data Offering = Offering'
+ { _oPlatform :: !(Maybe DevicePlatform)
+ , _oId :: !(Maybe Text)
+ , _oRecurringCharges :: !(Maybe [RecurringCharge])
+ , _oType :: !(Maybe OfferingType)
+ , _oDescription :: !(Maybe Text)
+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
+
+-- | Creates a value of 'Offering' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'oPlatform'
+--
+-- * 'oId'
+--
+-- * 'oRecurringCharges'
+--
+-- * 'oType'
+--
+-- * 'oDescription'
+offering
+ :: Offering
+offering =
+ Offering'
+ { _oPlatform = Nothing
+ , _oId = Nothing
+ , _oRecurringCharges = Nothing
+ , _oType = Nothing
+ , _oDescription = Nothing
+ }
+
+-- | The platform of the device (e.g., ANDROID or IOS).
+oPlatform :: Lens' Offering (Maybe DevicePlatform)
+oPlatform = lens _oPlatform (\ s a -> s{_oPlatform = a});
+
+-- | The ID that corresponds to a device offering.
+oId :: Lens' Offering (Maybe Text)
+oId = lens _oId (\ s a -> s{_oId = a});
+
+-- | Specifies whether there are recurring charges for the offering.
+oRecurringCharges :: Lens' Offering [RecurringCharge]
+oRecurringCharges = lens _oRecurringCharges (\ s a -> s{_oRecurringCharges = a}) . _Default . _Coerce;
+
+-- | The type of offering (e.g., \"RECURRING\") for a device.
+oType :: Lens' Offering (Maybe OfferingType)
+oType = lens _oType (\ s a -> s{_oType = a});
+
+-- | A string describing the offering.
+oDescription :: Lens' Offering (Maybe Text)
+oDescription = lens _oDescription (\ s a -> s{_oDescription = a});
+
+instance FromJSON Offering where
+ parseJSON
+ = withObject "Offering"
+ (\ x ->
+ Offering' <$>
+ (x .:? "platform") <*> (x .:? "id") <*>
+ (x .:? "recurringCharges" .!= mempty)
+ <*> (x .:? "type")
+ <*> (x .:? "description"))
+
+instance Hashable Offering
+
+instance NFData Offering
+
+-- | The status of the offering.
+--
+-- /See:/ 'offeringStatus' smart constructor.
+data OfferingStatus = OfferingStatus'
+ { _osEffectiveOn :: !(Maybe POSIX)
+ , _osOffering :: !(Maybe Offering)
+ , _osQuantity :: !(Maybe Int)
+ , _osType :: !(Maybe OfferingTransactionType)
+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
+
+-- | Creates a value of 'OfferingStatus' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'osEffectiveOn'
+--
+-- * 'osOffering'
+--
+-- * 'osQuantity'
+--
+-- * 'osType'
+offeringStatus
+ :: OfferingStatus
+offeringStatus =
+ OfferingStatus'
+ { _osEffectiveOn = Nothing
+ , _osOffering = Nothing
+ , _osQuantity = Nothing
+ , _osType = Nothing
+ }
+
+-- | The date on which the offering is effective.
+osEffectiveOn :: Lens' OfferingStatus (Maybe UTCTime)
+osEffectiveOn = lens _osEffectiveOn (\ s a -> s{_osEffectiveOn = a}) . mapping _Time;
+
+-- | Represents the metadata of an offering status.
+osOffering :: Lens' OfferingStatus (Maybe Offering)
+osOffering = lens _osOffering (\ s a -> s{_osOffering = a});
+
+-- | The number of available devices in the offering.
+osQuantity :: Lens' OfferingStatus (Maybe Int)
+osQuantity = lens _osQuantity (\ s a -> s{_osQuantity = a});
+
+-- | The type specified for the offering status.
+osType :: Lens' OfferingStatus (Maybe OfferingTransactionType)
+osType = lens _osType (\ s a -> s{_osType = a});
+
+instance FromJSON OfferingStatus where
+ parseJSON
+ = withObject "OfferingStatus"
+ (\ x ->
+ OfferingStatus' <$>
+ (x .:? "effectiveOn") <*> (x .:? "offering") <*>
+ (x .:? "quantity")
+ <*> (x .:? "type"))
+
+instance Hashable OfferingStatus
+
+instance NFData OfferingStatus
+
+-- | Represents the metadata of an offering transaction.
+--
+-- /See:/ 'offeringTransaction' smart constructor.
+data OfferingTransaction = OfferingTransaction'
+ { _otOfferingStatus :: !(Maybe OfferingStatus)
+ , _otCost :: !(Maybe MonetaryAmount)
+ , _otTransactionId :: !(Maybe Text)
+ , _otCreatedOn :: !(Maybe POSIX)
+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
+
+-- | Creates a value of 'OfferingTransaction' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'otOfferingStatus'
+--
+-- * 'otCost'
+--
+-- * 'otTransactionId'
+--
+-- * 'otCreatedOn'
+offeringTransaction
+ :: OfferingTransaction
+offeringTransaction =
+ OfferingTransaction'
+ { _otOfferingStatus = Nothing
+ , _otCost = Nothing
+ , _otTransactionId = Nothing
+ , _otCreatedOn = Nothing
+ }
+
+-- | The status of an offering transaction.
+otOfferingStatus :: Lens' OfferingTransaction (Maybe OfferingStatus)
+otOfferingStatus = lens _otOfferingStatus (\ s a -> s{_otOfferingStatus = a});
+
+-- | The cost of an offering transaction.
+otCost :: Lens' OfferingTransaction (Maybe MonetaryAmount)
+otCost = lens _otCost (\ s a -> s{_otCost = a});
+
+-- | The transaction ID of the offering transaction.
+otTransactionId :: Lens' OfferingTransaction (Maybe Text)
+otTransactionId = lens _otTransactionId (\ s a -> s{_otTransactionId = a});
+
+-- | The date on which an offering transaction was created.
+otCreatedOn :: Lens' OfferingTransaction (Maybe UTCTime)
+otCreatedOn = lens _otCreatedOn (\ s a -> s{_otCreatedOn = a}) . mapping _Time;
+
+instance FromJSON OfferingTransaction where
+ parseJSON
+ = withObject "OfferingTransaction"
+ (\ x ->
+ OfferingTransaction' <$>
+ (x .:? "offeringStatus") <*> (x .:? "cost") <*>
+ (x .:? "transactionId")
+ <*> (x .:? "createdOn"))
+
+instance Hashable OfferingTransaction
+
+instance NFData OfferingTransaction
+
-- | Represents a specific warning or failure.
--
-- /See:/ 'problem' smart constructor.
@@ -1002,19 +1276,19 @@ pTest = lens _pTest (\ s a -> s{_pTest = a});
--
-- Allowed values include:
--
--- - ERRORED: An error condition.
+-- - PENDING: A pending condition.
--
--- - FAILED: A failed condition.
+-- - PASSED: A passing condition.
--
--- - SKIPPED: A skipped condition.
+-- - WARNED: A warning condition.
--
--- - STOPPED: A stopped condition.
+-- - FAILED: A failed condition.
--
--- - PASSED: A passing condition.
+-- - SKIPPED: A skipped condition.
--
--- - PENDING: A pending condition.
+-- - ERRORED: An error condition.
--
--- - WARNED: A warning condition.
+-- - STOPPED: A stopped condition.
--
pResult :: Lens' Problem (Maybe ExecutionResult)
pResult = lens _pResult (\ s a -> s{_pResult = a});
@@ -1049,6 +1323,8 @@ instance FromJSON Problem where
instance Hashable Problem
+instance NFData Problem
+
-- | Information about a problem detail.
--
-- /See:/ 'problemDetail' smart constructor.
@@ -1088,6 +1364,8 @@ instance FromJSON ProblemDetail where
instance Hashable ProblemDetail
+instance NFData ProblemDetail
+
-- | Represents an operating-system neutral workspace for running and
-- managing tests.
--
@@ -1138,6 +1416,8 @@ instance FromJSON Project where
instance Hashable Project
+instance NFData Project
+
-- | Represents the set of radios and their states on a device. Examples of
-- radios include Wi-Fi, GPS, Bluetooth, and NFC.
--
@@ -1189,6 +1469,8 @@ rWifi = lens _rWifi (\ s a -> s{_rWifi = a});
instance Hashable Radios
+instance NFData Radios
+
instance ToJSON Radios where
toJSON Radios'{..}
= object
@@ -1197,6 +1479,48 @@ instance ToJSON Radios where
("bluetooth" .=) <$> _rBluetooth,
("wifi" .=) <$> _rWifi])
+-- | Specifies whether charges for devices will be recurring.
+--
+-- /See:/ 'recurringCharge' smart constructor.
+data RecurringCharge = RecurringCharge'
+ { _rcFrequency :: !(Maybe RecurringChargeFrequency)
+ , _rcCost :: !(Maybe MonetaryAmount)
+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
+
+-- | Creates a value of 'RecurringCharge' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'rcFrequency'
+--
+-- * 'rcCost'
+recurringCharge
+ :: RecurringCharge
+recurringCharge =
+ RecurringCharge'
+ { _rcFrequency = Nothing
+ , _rcCost = Nothing
+ }
+
+-- | The frequency in which charges will recur.
+rcFrequency :: Lens' RecurringCharge (Maybe RecurringChargeFrequency)
+rcFrequency = lens _rcFrequency (\ s a -> s{_rcFrequency = a});
+
+-- | The cost of the recurring charge.
+rcCost :: Lens' RecurringCharge (Maybe MonetaryAmount)
+rcCost = lens _rcCost (\ s a -> s{_rcCost = a});
+
+instance FromJSON RecurringCharge where
+ parseJSON
+ = withObject "RecurringCharge"
+ (\ x ->
+ RecurringCharge' <$>
+ (x .:? "frequency") <*> (x .:? "cost"))
+
+instance Hashable RecurringCharge
+
+instance NFData RecurringCharge
+
-- | Represents the screen resolution of a device in height and width,
-- expressed in pixels.
--
@@ -1237,6 +1561,8 @@ instance FromJSON Resolution where
instance Hashable Resolution
+instance NFData Resolution
+
-- | Represents a condition for a device pool.
--
-- /See:/ 'rule' smart constructor.
@@ -1264,7 +1590,8 @@ rule =
, _rValue = Nothing
}
--- | The rule\'s attribute.
+-- | The rule\'s stringified attribute. For example, specify the value as
+-- '\"\\\"abc\\\"\"'.
--
-- Allowed values include:
--
@@ -1308,6 +1635,8 @@ instance FromJSON Rule where
instance Hashable Rule
+instance NFData Rule
+
instance ToJSON Rule where
toJSON Rule'{..}
= object
@@ -1401,15 +1730,23 @@ runBillingMethod = lens _runBillingMethod (\ s a -> s{_runBillingMethod = a});
--
-- Allowed values include:
--
--- - COMPLETED: A completed status.
---
-- - PENDING: A pending status.
--
+-- - PENDING_CONCURRENCY: A pending concurrency status.
+--
+-- - PENDING_DEVICE: A pending device status.
+--
-- - PROCESSING: A processing status.
--
+-- - SCHEDULING: A scheduling status.
+--
+-- - PREPARING: A preparing status.
+--
-- - RUNNING: A running status.
--
--- - SCHEDULING: A scheduling status.
+-- - COMPLETED: A completed status.
+--
+-- - STOPPING: A stopping status.
--
runStatus :: Lens' Run (Maybe ExecutionStatus)
runStatus = lens _runStatus (\ s a -> s{_runStatus = a});
@@ -1445,19 +1782,19 @@ runStopped = lens _runStopped (\ s a -> s{_runStopped = a}) . mapping _Time;
--
-- Allowed values include:
--
--- - ERRORED: An error condition.
+-- - PENDING: A pending condition.
--
--- - FAILED: A failed condition.
+-- - PASSED: A passing condition.
--
--- - SKIPPED: A skipped condition.
+-- - WARNED: A warning condition.
--
--- - STOPPED: A stopped condition.
+-- - FAILED: A failed condition.
--
--- - PASSED: A passing condition.
+-- - SKIPPED: A skipped condition.
--
--- - PENDING: A pending condition.
+-- - ERRORED: An error condition.
--
--- - WARNED: A warning condition.
+-- - STOPPED: A stopped condition.
--
runResult :: Lens' Run (Maybe ExecutionResult)
runResult = lens _runResult (\ s a -> s{_runResult = a});
@@ -1546,6 +1883,8 @@ instance FromJSON Run where
instance Hashable Run
+instance NFData Run
+
-- | Represents a sample of performance data.
--
-- /See:/ 'sample' smart constructor.
@@ -1638,6 +1977,8 @@ instance FromJSON Sample where
instance Hashable Sample
+instance NFData Sample
+
-- | Represents the settings for a run. Includes things like location, radio
-- states, auxiliary apps, and network profiles.
--
@@ -1715,6 +2056,8 @@ srcAuxiliaryApps = lens _srcAuxiliaryApps (\ s a -> s{_srcAuxiliaryApps = a}) .
instance Hashable ScheduleRunConfiguration
+instance NFData ScheduleRunConfiguration
+
instance ToJSON ScheduleRunConfiguration where
toJSON ScheduleRunConfiguration'{..}
= object
@@ -1812,6 +2155,8 @@ srtType = lens _srtType (\ s a -> s{_srtType = a});
instance Hashable ScheduleRunTest
+instance NFData ScheduleRunTest
+
instance ToJSON ScheduleRunTest where
toJSON ScheduleRunTest'{..}
= object
@@ -1884,15 +2229,23 @@ suite =
--
-- Allowed values include:
--
--- - COMPLETED: A completed status.
---
-- - PENDING: A pending status.
--
+-- - PENDING_CONCURRENCY: A pending concurrency status.
+--
+-- - PENDING_DEVICE: A pending device status.
+--
-- - PROCESSING: A processing status.
--
+-- - SCHEDULING: A scheduling status.
+--
+-- - PREPARING: A preparing status.
+--
-- - RUNNING: A running status.
--
--- - SCHEDULING: A scheduling status.
+-- - COMPLETED: A completed status.
+--
+-- - STOPPING: A stopping status.
--
sStatus :: Lens' Suite (Maybe ExecutionStatus)
sStatus = lens _sStatus (\ s a -> s{_sStatus = a});
@@ -1917,19 +2270,19 @@ sStopped = lens _sStopped (\ s a -> s{_sStopped = a}) . mapping _Time;
--
-- Allowed values include:
--
--- - ERRORED: An error condition.
+-- - PENDING: A pending condition.
--
--- - FAILED: A failed condition.
+-- - PASSED: A passing condition.
--
--- - SKIPPED: A skipped condition.
+-- - WARNED: A warning condition.
--
--- - STOPPED: A stopped condition.
+-- - FAILED: A failed condition.
--
--- - PASSED: A passing condition.
+-- - SKIPPED: A skipped condition.
--
--- - PENDING: A pending condition.
+-- - ERRORED: An error condition.
--
--- - WARNED: A warning condition.
+-- - STOPPED: A stopped condition.
--
sResult :: Lens' Suite (Maybe ExecutionResult)
sResult = lens _sResult (\ s a -> s{_sResult = a});
@@ -2006,6 +2359,8 @@ instance FromJSON Suite where
instance Hashable Suite
+instance NFData Suite
+
-- | Represents a condition that is evaluated.
--
-- /See:/ 'test' smart constructor.
@@ -2069,15 +2424,23 @@ test =
--
-- Allowed values include:
--
--- - COMPLETED: A completed status.
---
-- - PENDING: A pending status.
--
+-- - PENDING_CONCURRENCY: A pending concurrency status.
+--
+-- - PENDING_DEVICE: A pending device status.
+--
-- - PROCESSING: A processing status.
--
+-- - SCHEDULING: A scheduling status.
+--
+-- - PREPARING: A preparing status.
+--
-- - RUNNING: A running status.
--
--- - SCHEDULING: A scheduling status.
+-- - COMPLETED: A completed status.
+--
+-- - STOPPING: A stopping status.
--
tStatus :: Lens' Test (Maybe ExecutionStatus)
tStatus = lens _tStatus (\ s a -> s{_tStatus = a});
@@ -2102,19 +2465,19 @@ tStopped = lens _tStopped (\ s a -> s{_tStopped = a}) . mapping _Time;
--
-- Allowed values include:
--
--- - ERRORED: An error condition.
+-- - PENDING: A pending condition.
--
--- - FAILED: A failed condition.
+-- - PASSED: A passing condition.
--
--- - SKIPPED: A skipped condition.
+-- - WARNED: A warning condition.
--
--- - STOPPED: A stopped condition.
+-- - FAILED: A failed condition.
--
--- - PASSED: A passing condition.
+-- - SKIPPED: A skipped condition.
--
--- - PENDING: A pending condition.
+-- - ERRORED: An error condition.
--
--- - WARNED: A warning condition.
+-- - STOPPED: A stopped condition.
--
tResult :: Lens' Test (Maybe ExecutionResult)
tResult = lens _tResult (\ s a -> s{_tResult = a});
@@ -2190,6 +2553,8 @@ instance FromJSON Test where
instance Hashable Test
+instance NFData Test
+
-- | A collection of one or more problems, grouped by their result.
--
-- /See:/ 'uniqueProblem' smart constructor.
@@ -2230,6 +2595,8 @@ instance FromJSON UniqueProblem where
instance Hashable UniqueProblem
+instance NFData UniqueProblem
+
-- | An app or a set of one or more tests to upload or that have been
-- uploaded.
--
@@ -2387,3 +2754,5 @@ instance FromJSON Upload where
<*> (x .:? "contentType"))
instance Hashable Upload
+
+instance NFData Upload
diff --git a/gen/Network/AWS/DeviceFarm/Types/Sum.hs b/gen/Network/AWS/DeviceFarm/Types/Sum.hs
index f889da9..257ab9b 100644
--- a/gen/Network/AWS/DeviceFarm/Types/Sum.hs
+++ b/gen/Network/AWS/DeviceFarm/Types/Sum.hs
@@ -40,6 +40,7 @@ instance ToText ArtifactCategory where
ACScreenshot -> "SCREENSHOT"
instance Hashable ArtifactCategory
+instance NFData ArtifactCategory
instance ToByteString ArtifactCategory
instance ToQuery ArtifactCategory
instance ToHeader ArtifactCategory
@@ -69,6 +70,7 @@ data ArtifactType
| Screenshot
| ServiceLog
| Unknown
+ | Video
| WebkitLog
| XctestLog
deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
@@ -96,10 +98,11 @@ instance FromText ArtifactType where
"screenshot" -> pure Screenshot
"service_log" -> pure ServiceLog
"unknown" -> pure Unknown
+ "video" -> pure Video
"webkit_log" -> pure WebkitLog
"xctest_log" -> pure XctestLog
e -> fromTextError $ "Failure parsing ArtifactType from value: '" <> e
- <> "'. Accepted values: APPIUM_JAVA_OUTPUT, APPIUM_JAVA_XML_OUTPUT, APPIUM_PYTHON_OUTPUT, APPIUM_PYTHON_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, XCTEST_LOG"
+ <> "'. Accepted values: APPIUM_JAVA_OUTPUT, APPIUM_JAVA_XML_OUTPUT, APPIUM_PYTHON_OUTPUT, APPIUM_PYTHON_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, VIDEO, WEBKIT_LOG, XCTEST_LOG"
instance ToText ArtifactType where
toText = \case
@@ -124,10 +127,12 @@ instance ToText ArtifactType where
Screenshot -> "SCREENSHOT"
ServiceLog -> "SERVICE_LOG"
Unknown -> "UNKNOWN"
+ Video -> "VIDEO"
WebkitLog -> "WEBKIT_LOG"
XctestLog -> "XCTEST_LOG"
instance Hashable ArtifactType
+instance NFData ArtifactType
instance ToByteString ArtifactType
instance ToQuery ArtifactType
instance ToHeader ArtifactType
@@ -153,6 +158,7 @@ instance ToText BillingMethod where
Unmetered -> "UNMETERED"
instance Hashable BillingMethod
+instance NFData BillingMethod
instance ToByteString BillingMethod
instance ToQuery BillingMethod
instance ToHeader BillingMethod
@@ -163,6 +169,29 @@ instance ToJSON BillingMethod where
instance FromJSON BillingMethod where
parseJSON = parseJSONText "BillingMethod"
+data CurrencyCode =
+ Usd
+ deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+
+instance FromText CurrencyCode where
+ parser = takeLowerText >>= \case
+ "usd" -> pure Usd
+ e -> fromTextError $ "Failure parsing CurrencyCode from value: '" <> e
+ <> "'. Accepted values: USD"
+
+instance ToText CurrencyCode where
+ toText = \case
+ Usd -> "USD"
+
+instance Hashable CurrencyCode
+instance NFData CurrencyCode
+instance ToByteString CurrencyCode
+instance ToQuery CurrencyCode
+instance ToHeader CurrencyCode
+
+instance FromJSON CurrencyCode where
+ parseJSON = parseJSONText "CurrencyCode"
+
data DeviceAttribute
= ARN
| FormFactor
@@ -187,6 +216,7 @@ instance ToText DeviceAttribute where
Platform -> "PLATFORM"
instance Hashable DeviceAttribute
+instance NFData DeviceAttribute
instance ToByteString DeviceAttribute
instance ToQuery DeviceAttribute
instance ToHeader DeviceAttribute
@@ -215,6 +245,7 @@ instance ToText DeviceFormFactor where
Tablet -> "TABLET"
instance Hashable DeviceFormFactor
+instance NFData DeviceFormFactor
instance ToByteString DeviceFormFactor
instance ToQuery DeviceFormFactor
instance ToHeader DeviceFormFactor
@@ -240,6 +271,7 @@ instance ToText DevicePlatform where
Ios -> "IOS"
instance Hashable DevicePlatform
+instance NFData DevicePlatform
instance ToByteString DevicePlatform
instance ToQuery DevicePlatform
instance ToHeader DevicePlatform
@@ -265,6 +297,7 @@ instance ToText DevicePoolType where
Private -> "PRIVATE"
instance Hashable DevicePoolType
+instance NFData DevicePoolType
instance ToByteString DevicePoolType
instance ToQuery DevicePoolType
instance ToHeader DevicePoolType
@@ -308,6 +341,7 @@ instance ToText ExecutionResult where
ERWarned -> "WARNED"
instance Hashable ExecutionResult
+instance NFData ExecutionResult
instance ToByteString ExecutionResult
instance ToQuery ExecutionResult
instance ToHeader ExecutionResult
@@ -318,30 +352,43 @@ instance FromJSON ExecutionResult where
data ExecutionStatus
= Completed
| Pending
+ | PendingConcurrency
+ | PendingDevice
+ | Preparing
| Processing
| Running
| Scheduling
+ | Stopping
deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
instance FromText ExecutionStatus where
parser = takeLowerText >>= \case
"completed" -> pure Completed
"pending" -> pure Pending
+ "pending_concurrency" -> pure PendingConcurrency
+ "pending_device" -> pure PendingDevice
+ "preparing" -> pure Preparing
"processing" -> pure Processing
"running" -> pure Running
"scheduling" -> pure Scheduling
+ "stopping" -> pure Stopping
e -> fromTextError $ "Failure parsing ExecutionStatus from value: '" <> e
- <> "'. Accepted values: COMPLETED, PENDING, PROCESSING, RUNNING, SCHEDULING"
+ <> "'. Accepted values: COMPLETED, PENDING, PENDING_CONCURRENCY, PENDING_DEVICE, PREPARING, PROCESSING, RUNNING, SCHEDULING, STOPPING"
instance ToText ExecutionStatus where
toText = \case
Completed -> "COMPLETED"
Pending -> "PENDING"
+ PendingConcurrency -> "PENDING_CONCURRENCY"
+ PendingDevice -> "PENDING_DEVICE"
+ Preparing -> "PREPARING"
Processing -> "PROCESSING"
Running -> "RUNNING"
Scheduling -> "SCHEDULING"
+ Stopping -> "STOPPING"
instance Hashable ExecutionStatus
+instance NFData ExecutionStatus
instance ToByteString ExecutionStatus
instance ToQuery ExecutionStatus
instance ToHeader ExecutionStatus
@@ -349,6 +396,81 @@ instance ToHeader ExecutionStatus
instance FromJSON ExecutionStatus where
parseJSON = parseJSONText "ExecutionStatus"
+data OfferingTransactionType
+ = Purchase
+ | Renew
+ | System
+ deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+
+instance FromText OfferingTransactionType where
+ parser = takeLowerText >>= \case
+ "purchase" -> pure Purchase
+ "renew" -> pure Renew
+ "system" -> pure System
+ e -> fromTextError $ "Failure parsing OfferingTransactionType from value: '" <> e
+ <> "'. Accepted values: PURCHASE, RENEW, SYSTEM"
+
+instance ToText OfferingTransactionType where
+ toText = \case
+ Purchase -> "PURCHASE"
+ Renew -> "RENEW"
+ System -> "SYSTEM"
+
+instance Hashable OfferingTransactionType
+instance NFData OfferingTransactionType
+instance ToByteString OfferingTransactionType
+instance ToQuery OfferingTransactionType
+instance ToHeader OfferingTransactionType
+
+instance FromJSON OfferingTransactionType where
+ parseJSON = parseJSONText "OfferingTransactionType"
+
+data OfferingType =
+ Recurring
+ deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+
+instance FromText OfferingType where
+ parser = takeLowerText >>= \case
+ "recurring" -> pure Recurring
+ e -> fromTextError $ "Failure parsing OfferingType from value: '" <> e
+ <> "'. Accepted values: RECURRING"
+
+instance ToText OfferingType where
+ toText = \case
+ Recurring -> "RECURRING"
+
+instance Hashable OfferingType
+instance NFData OfferingType
+instance ToByteString OfferingType
+instance ToQuery OfferingType
+instance ToHeader OfferingType
+
+instance FromJSON OfferingType where
+ parseJSON = parseJSONText "OfferingType"
+
+data RecurringChargeFrequency =
+ Monthly
+ deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+
+instance FromText RecurringChargeFrequency where
+ parser = takeLowerText >>= \case
+ "monthly" -> pure Monthly
+ e -> fromTextError $ "Failure parsing RecurringChargeFrequency from value: '" <> e
+ <> "'. Accepted values: MONTHLY"
+
+instance ToText RecurringChargeFrequency where
+ toText = \case
+ Monthly -> "MONTHLY"
+
+instance Hashable RecurringChargeFrequency
+instance NFData RecurringChargeFrequency
+instance ToByteString RecurringChargeFrequency
+instance ToQuery RecurringChargeFrequency
+instance ToHeader RecurringChargeFrequency
+
+instance FromJSON RecurringChargeFrequency where
+ parseJSON = parseJSONText "RecurringChargeFrequency"
+
data RuleOperator
= Equals
| GreaterThan
@@ -376,6 +498,7 @@ instance ToText RuleOperator where
NotIn -> "NOT_IN"
instance Hashable RuleOperator
+instance NFData RuleOperator
instance ToByteString RuleOperator
instance ToQuery RuleOperator
instance ToHeader RuleOperator
@@ -449,6 +572,7 @@ instance ToText SampleType where
TxRate -> "TX_RATE"
instance Hashable SampleType
+instance NFData SampleType
instance ToByteString SampleType
instance ToQuery SampleType
instance ToHeader SampleType
@@ -510,6 +634,7 @@ instance ToText TestType where
XctestUi -> "XCTEST_UI"
instance Hashable TestType
+instance NFData TestType
instance ToByteString TestType
instance ToQuery TestType
instance ToHeader TestType
@@ -544,6 +669,7 @@ instance ToText UploadStatus where
USSucceeded -> "SUCCEEDED"
instance Hashable UploadStatus
+instance NFData UploadStatus
instance ToByteString UploadStatus
instance ToQuery UploadStatus
instance ToHeader UploadStatus
@@ -611,6 +737,7 @@ instance ToText UploadType where
XctestUiTestPackage -> "XCTEST_UI_TEST_PACKAGE"
instance Hashable UploadType
+instance NFData UploadType
instance ToByteString UploadType
instance ToQuery UploadType
instance ToHeader UploadType
diff --git a/gen/Network/AWS/DeviceFarm/UpdateDevicePool.hs b/gen/Network/AWS/DeviceFarm/UpdateDevicePool.hs
index 09834ea..1d513ae 100644
--- a/gen/Network/AWS/DeviceFarm/UpdateDevicePool.hs
+++ b/gen/Network/AWS/DeviceFarm/UpdateDevicePool.hs
@@ -109,6 +109,8 @@ instance AWSRequest UpdateDevicePool where
instance Hashable UpdateDevicePool
+instance NFData UpdateDevicePool
+
instance ToHeaders UpdateDevicePool where
toHeaders
= const
@@ -165,3 +167,5 @@ udprsDevicePool = lens _udprsDevicePool (\ s a -> s{_udprsDevicePool = a});
-- | The response status code.
udprsResponseStatus :: Lens' UpdateDevicePoolResponse Int
udprsResponseStatus = lens _udprsResponseStatus (\ s a -> s{_udprsResponseStatus = a});
+
+instance NFData UpdateDevicePoolResponse
diff --git a/gen/Network/AWS/DeviceFarm/UpdateProject.hs b/gen/Network/AWS/DeviceFarm/UpdateProject.hs
index a452cae..1e11843 100644
--- a/gen/Network/AWS/DeviceFarm/UpdateProject.hs
+++ b/gen/Network/AWS/DeviceFarm/UpdateProject.hs
@@ -88,6 +88,8 @@ instance AWSRequest UpdateProject where
instance Hashable UpdateProject
+instance NFData UpdateProject
+
instance ToHeaders UpdateProject where
toHeaders
= const
@@ -140,3 +142,5 @@ uprsProject = lens _uprsProject (\ s a -> s{_uprsProject = a});
-- | The response status code.
uprsResponseStatus :: Lens' UpdateProjectResponse Int
uprsResponseStatus = lens _uprsResponseStatus (\ s a -> s{_uprsResponseStatus = a});
+
+instance NFData UpdateProjectResponse
diff --git a/test/Test/AWS/Gen/DeviceFarm.hs b/test/Test/AWS/Gen/DeviceFarm.hs
index 6604856..0df52f5 100644
--- a/test/Test/AWS/Gen/DeviceFarm.hs
+++ b/test/Test/AWS/Gen/DeviceFarm.hs
@@ -67,6 +67,9 @@ import Test.AWS.DeviceFarm.Internal
-- , testGetUpload $
-- getUpload
--
+-- , testListOfferingTransactions $
+-- listOfferingTransactions
+--
-- , testCreateDevicePool $
-- createDevicePool
--
@@ -79,6 +82,9 @@ import Test.AWS.DeviceFarm.Internal
-- , testGetTest $
-- getTest
--
+-- , testRenewOffering $
+-- renewOffering
+--
-- , testGetDevice $
-- getDevice
--
@@ -103,24 +109,36 @@ import Test.AWS.DeviceFarm.Internal
-- , testGetAccountSettings $
-- getAccountSettings
--
+-- , testGetOfferingStatus $
+-- getOfferingStatus
+--
-- , testListUploads $
-- listUploads
--
-- , testGetSuite $
-- getSuite
--
+-- , testPurchaseOffering $
+-- purchaseOffering
+--
-- , testGetProject $
-- getProject
--
-- , testListUniqueProblems $
-- listUniqueProblems
--
+-- , testStopRun $
+-- stopRun
+--
-- , testListDevices $
-- listDevices
--
-- , testCreateProject $
-- createProject
--
+-- , testListOfferings $
+-- listOfferings
+--
-- ]
-- , testGroup "response"
@@ -163,6 +181,9 @@ import Test.AWS.DeviceFarm.Internal
-- , testGetUploadResponse $
-- getUploadResponse
--
+-- , testListOfferingTransactionsResponse $
+-- listOfferingTransactionsResponse
+--
-- , testCreateDevicePoolResponse $
-- createDevicePoolResponse
--
@@ -175,6 +196,9 @@ import Test.AWS.DeviceFarm.Internal
-- , testGetTestResponse $
-- getTestResponse
--
+-- , testRenewOfferingResponse $
+-- renewOfferingResponse
+--
-- , testGetDeviceResponse $
-- getDeviceResponse
--
@@ -199,24 +223,36 @@ import Test.AWS.DeviceFarm.Internal
-- , testGetAccountSettingsResponse $
-- getAccountSettingsResponse
--
+-- , testGetOfferingStatusResponse $
+-- getOfferingStatusResponse
+--
-- , testListUploadsResponse $
-- listUploadsResponse
--
-- , testGetSuiteResponse $
-- getSuiteResponse
--
+-- , testPurchaseOfferingResponse $
+-- purchaseOfferingResponse
+--
-- , testGetProjectResponse $
-- getProjectResponse
--
-- , testListUniqueProblemsResponse $
-- listUniqueProblemsResponse
--
+-- , testStopRunResponse $
+-- stopRunResponse
+--
-- , testListDevicesResponse $
-- listDevicesResponse
--
-- , testCreateProjectResponse $
-- createProjectResponse
--
+-- , testListOfferingsResponse $
+-- listOfferingsResponse
+--
-- ]
-- ]
@@ -287,6 +323,11 @@ testGetUpload = req
"GetUpload"
"fixture/GetUpload.yaml"
+testListOfferingTransactions :: ListOfferingTransactions -> TestTree
+testListOfferingTransactions = req
+ "ListOfferingTransactions"
+ "fixture/ListOfferingTransactions.yaml"
+
testCreateDevicePool :: CreateDevicePool -> TestTree
testCreateDevicePool = req
"CreateDevicePool"
@@ -307,6 +348,11 @@ testGetTest = req
"GetTest"
"fixture/GetTest.yaml"
+testRenewOffering :: RenewOffering -> TestTree
+testRenewOffering = req
+ "RenewOffering"
+ "fixture/RenewOffering.yaml"
+
testGetDevice :: GetDevice -> TestTree
testGetDevice = req
"GetDevice"
@@ -347,6 +393,11 @@ testGetAccountSettings = req
"GetAccountSettings"
"fixture/GetAccountSettings.yaml"
+testGetOfferingStatus :: GetOfferingStatus -> TestTree
+testGetOfferingStatus = req
+ "GetOfferingStatus"
+ "fixture/GetOfferingStatus.yaml"
+
testListUploads :: ListUploads -> TestTree
testListUploads = req
"ListUploads"
@@ -357,6 +408,11 @@ testGetSuite = req
"GetSuite"
"fixture/GetSuite.yaml"
+testPurchaseOffering :: PurchaseOffering -> TestTree
+testPurchaseOffering = req
+ "PurchaseOffering"
+ "fixture/PurchaseOffering.yaml"
+
testGetProject :: GetProject -> TestTree
testGetProject = req
"GetProject"
@@ -367,6 +423,11 @@ testListUniqueProblems = req
"ListUniqueProblems"
"fixture/ListUniqueProblems.yaml"
+testStopRun :: StopRun -> TestTree
+testStopRun = req
+ "StopRun"
+ "fixture/StopRun.yaml"
+
testListDevices :: ListDevices -> TestTree
testListDevices = req
"ListDevices"
@@ -377,6 +438,11 @@ testCreateProject = req
"CreateProject"
"fixture/CreateProject.yaml"
+testListOfferings :: ListOfferings -> TestTree
+testListOfferings = req
+ "ListOfferings"
+ "fixture/ListOfferings.yaml"
+
-- Responses
testListProjectsResponse :: ListProjectsResponse -> TestTree
@@ -470,6 +536,13 @@ testGetUploadResponse = res
deviceFarm
(Proxy :: Proxy GetUpload)
+testListOfferingTransactionsResponse :: ListOfferingTransactionsResponse -> TestTree
+testListOfferingTransactionsResponse = res
+ "ListOfferingTransactionsResponse"
+ "fixture/ListOfferingTransactionsResponse.proto"
+ deviceFarm
+ (Proxy :: Proxy ListOfferingTransactions)
+
testCreateDevicePoolResponse :: CreateDevicePoolResponse -> TestTree
testCreateDevicePoolResponse = res
"CreateDevicePoolResponse"
@@ -498,6 +571,13 @@ testGetTestResponse = res
deviceFarm
(Proxy :: Proxy GetTest)
+testRenewOfferingResponse :: RenewOfferingResponse -> TestTree
+testRenewOfferingResponse = res
+ "RenewOfferingResponse"
+ "fixture/RenewOfferingResponse.proto"
+ deviceFarm
+ (Proxy :: Proxy RenewOffering)
+
testGetDeviceResponse :: GetDeviceResponse -> TestTree
testGetDeviceResponse = res
"GetDeviceResponse"
@@ -554,6 +634,13 @@ testGetAccountSettingsResponse = res
deviceFarm
(Proxy :: Proxy GetAccountSettings)
+testGetOfferingStatusResponse :: GetOfferingStatusResponse -> TestTree
+testGetOfferingStatusResponse = res
+ "GetOfferingStatusResponse"
+ "fixture/GetOfferingStatusResponse.proto"
+ deviceFarm
+ (Proxy :: Proxy GetOfferingStatus)
+
testListUploadsResponse :: ListUploadsResponse -> TestTree
testListUploadsResponse = res
"ListUploadsResponse"
@@ -568,6 +655,13 @@ testGetSuiteResponse = res
deviceFarm
(Proxy :: Proxy GetSuite)
+testPurchaseOfferingResponse :: PurchaseOfferingResponse -> TestTree
+testPurchaseOfferingResponse = res
+ "PurchaseOfferingResponse"
+ "fixture/PurchaseOfferingResponse.proto"
+ deviceFarm
+ (Proxy :: Proxy PurchaseOffering)
+
testGetProjectResponse :: GetProjectResponse -> TestTree
testGetProjectResponse = res
"GetProjectResponse"
@@ -582,6 +676,13 @@ testListUniqueProblemsResponse = res
deviceFarm
(Proxy :: Proxy ListUniqueProblems)
+testStopRunResponse :: StopRunResponse -> TestTree
+testStopRunResponse = res
+ "StopRunResponse"
+ "fixture/StopRunResponse.proto"
+ deviceFarm
+ (Proxy :: Proxy StopRun)
+
testListDevicesResponse :: ListDevicesResponse -> TestTree
testListDevicesResponse = res
"ListDevicesResponse"
@@ -595,3 +696,10 @@ testCreateProjectResponse = res
"fixture/CreateProjectResponse.proto"
deviceFarm
(Proxy :: Proxy CreateProject)
+
+testListOfferingsResponse :: ListOfferingsResponse -> TestTree
+testListOfferingsResponse = res
+ "ListOfferingsResponse"
+ "fixture/ListOfferingsResponse.proto"
+ deviceFarm
+ (Proxy :: Proxy ListOfferings)