summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBrendanHay <>2018-05-16 15:10:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2018-05-16 15:10:00 (GMT)
commit12ccac05c8dca7bb99230011c935c4a8b9e5928c (patch)
tree1542d18588b78f988b4993231109371d563d1d3c
parent8424e76386ce7071f808738b4f47390d3a24f669 (diff)
version 1.6.01.6.0
-rw-r--r--README.md2
-rw-r--r--amazonka-devicefarm.cabal23
-rw-r--r--fixture/CreateInstanceProfile.yaml10
-rw-r--r--fixture/CreateInstanceProfileResponse.proto0
-rw-r--r--fixture/CreateVPCEConfiguration.yaml10
-rw-r--r--fixture/CreateVPCEConfigurationResponse.proto0
-rw-r--r--fixture/DeleteInstanceProfile.yaml10
-rw-r--r--fixture/DeleteInstanceProfileResponse.proto0
-rw-r--r--fixture/DeleteVPCEConfiguration.yaml10
-rw-r--r--fixture/DeleteVPCEConfigurationResponse.proto0
-rw-r--r--fixture/GetDeviceInstance.yaml10
-rw-r--r--fixture/GetDeviceInstanceResponse.proto0
-rw-r--r--fixture/GetInstanceProfile.yaml10
-rw-r--r--fixture/GetInstanceProfileResponse.proto0
-rw-r--r--fixture/GetVPCEConfiguration.yaml10
-rw-r--r--fixture/GetVPCEConfigurationResponse.proto0
-rw-r--r--fixture/ListDeviceInstances.yaml10
-rw-r--r--fixture/ListDeviceInstancesResponse.proto0
-rw-r--r--fixture/ListInstanceProfiles.yaml10
-rw-r--r--fixture/ListInstanceProfilesResponse.proto0
-rw-r--r--fixture/ListVPCEConfigurations.yaml10
-rw-r--r--fixture/ListVPCEConfigurationsResponse.proto0
-rw-r--r--fixture/UpdateDeviceInstance.yaml10
-rw-r--r--fixture/UpdateDeviceInstanceResponse.proto0
-rw-r--r--fixture/UpdateInstanceProfile.yaml10
-rw-r--r--fixture/UpdateInstanceProfileResponse.proto0
-rw-r--r--fixture/UpdateVPCEConfiguration.yaml10
-rw-r--r--fixture/UpdateVPCEConfigurationResponse.proto0
-rw-r--r--gen/Network/AWS/DeviceFarm.hs113
-rw-r--r--gen/Network/AWS/DeviceFarm/CreateDevicePool.hs26
-rw-r--r--gen/Network/AWS/DeviceFarm/CreateInstanceProfile.hs178
-rw-r--r--gen/Network/AWS/DeviceFarm/CreateNetworkProfile.hs58
-rw-r--r--gen/Network/AWS/DeviceFarm/CreateProject.hs12
-rw-r--r--gen/Network/AWS/DeviceFarm/CreateRemoteAccessSession.hs112
-rw-r--r--gen/Network/AWS/DeviceFarm/CreateUpload.hs26
-rw-r--r--gen/Network/AWS/DeviceFarm/CreateVPCEConfiguration.hs174
-rw-r--r--gen/Network/AWS/DeviceFarm/DeleteDevicePool.hs6
-rw-r--r--gen/Network/AWS/DeviceFarm/DeleteInstanceProfile.hs123
-rw-r--r--gen/Network/AWS/DeviceFarm/DeleteNetworkProfile.hs6
-rw-r--r--gen/Network/AWS/DeviceFarm/DeleteProject.hs6
-rw-r--r--gen/Network/AWS/DeviceFarm/DeleteRemoteAccessSession.hs6
-rw-r--r--gen/Network/AWS/DeviceFarm/DeleteRun.hs6
-rw-r--r--gen/Network/AWS/DeviceFarm/DeleteUpload.hs6
-rw-r--r--gen/Network/AWS/DeviceFarm/DeleteVPCEConfiguration.hs123
-rw-r--r--gen/Network/AWS/DeviceFarm/GetAccountSettings.hs8
-rw-r--r--gen/Network/AWS/DeviceFarm/GetDevice.hs10
-rw-r--r--gen/Network/AWS/DeviceFarm/GetDeviceInstance.hs131
-rw-r--r--gen/Network/AWS/DeviceFarm/GetDevicePool.hs10
-rw-r--r--gen/Network/AWS/DeviceFarm/GetDevicePoolCompatibility.hs44
-rw-r--r--gen/Network/AWS/DeviceFarm/GetInstanceProfile.hs132
-rw-r--r--gen/Network/AWS/DeviceFarm/GetJob.hs8
-rw-r--r--gen/Network/AWS/DeviceFarm/GetNetworkProfile.hs10
-rw-r--r--gen/Network/AWS/DeviceFarm/GetOfferingStatus.hs22
-rw-r--r--gen/Network/AWS/DeviceFarm/GetProject.hs10
-rw-r--r--gen/Network/AWS/DeviceFarm/GetRemoteAccessSession.hs14
-rw-r--r--gen/Network/AWS/DeviceFarm/GetRun.hs8
-rw-r--r--gen/Network/AWS/DeviceFarm/GetSuite.hs10
-rw-r--r--gen/Network/AWS/DeviceFarm/GetTest.hs8
-rw-r--r--gen/Network/AWS/DeviceFarm/GetUpload.hs10
-rw-r--r--gen/Network/AWS/DeviceFarm/GetVPCEConfiguration.hs134
-rw-r--r--gen/Network/AWS/DeviceFarm/InstallToRemoteAccessSession.hs18
-rw-r--r--gen/Network/AWS/DeviceFarm/ListArtifacts.hs22
-rw-r--r--gen/Network/AWS/DeviceFarm/ListDeviceInstances.hs156
-rw-r--r--gen/Network/AWS/DeviceFarm/ListDevicePools.hs24
-rw-r--r--gen/Network/AWS/DeviceFarm/ListDevices.hs20
-rw-r--r--gen/Network/AWS/DeviceFarm/ListInstanceProfiles.hs156
-rw-r--r--gen/Network/AWS/DeviceFarm/ListJobs.hs26
-rw-r--r--gen/Network/AWS/DeviceFarm/ListNetworkProfiles.hs24
-rw-r--r--gen/Network/AWS/DeviceFarm/ListOfferingPromotions.hs18
-rw-r--r--gen/Network/AWS/DeviceFarm/ListOfferingTransactions.hs18
-rw-r--r--gen/Network/AWS/DeviceFarm/ListOfferings.hs18
-rw-r--r--gen/Network/AWS/DeviceFarm/ListProjects.hs20
-rw-r--r--gen/Network/AWS/DeviceFarm/ListRemoteAccessSessions.hs20
-rw-r--r--gen/Network/AWS/DeviceFarm/ListRuns.hs20
-rw-r--r--gen/Network/AWS/DeviceFarm/ListSamples.hs20
-rw-r--r--gen/Network/AWS/DeviceFarm/ListSuites.hs26
-rw-r--r--gen/Network/AWS/DeviceFarm/ListTests.hs26
-rw-r--r--gen/Network/AWS/DeviceFarm/ListUniqueProblems.hs20
-rw-r--r--gen/Network/AWS/DeviceFarm/ListUploads.hs20
-rw-r--r--gen/Network/AWS/DeviceFarm/ListVPCEConfigurations.hs156
-rw-r--r--gen/Network/AWS/DeviceFarm/PurchaseOffering.hs22
-rw-r--r--gen/Network/AWS/DeviceFarm/RenewOffering.hs12
-rw-r--r--gen/Network/AWS/DeviceFarm/ScheduleRun.hs38
-rw-r--r--gen/Network/AWS/DeviceFarm/StopRemoteAccessSession.hs14
-rw-r--r--gen/Network/AWS/DeviceFarm/StopRun.hs8
-rw-r--r--gen/Network/AWS/DeviceFarm/Types.hs99
-rw-r--r--gen/Network/AWS/DeviceFarm/Types/Product.hs1344
-rw-r--r--gen/Network/AWS/DeviceFarm/Types/Sum.hs99
-rw-r--r--gen/Network/AWS/DeviceFarm/UpdateDeviceInstance.hs154
-rw-r--r--gen/Network/AWS/DeviceFarm/UpdateDevicePool.hs26
-rw-r--r--gen/Network/AWS/DeviceFarm/UpdateInstanceProfile.hs188
-rw-r--r--gen/Network/AWS/DeviceFarm/UpdateNetworkProfile.hs62
-rw-r--r--gen/Network/AWS/DeviceFarm/UpdateProject.hs16
-rw-r--r--gen/Network/AWS/DeviceFarm/UpdateVPCEConfiguration.hs181
-rw-r--r--gen/Network/AWS/DeviceFarm/Waiters.hs2
-rw-r--r--test/Main.hs2
-rw-r--r--test/Test/AWS/DeviceFarm.hs2
-rw-r--r--test/Test/AWS/DeviceFarm/Internal.hs2
-rw-r--r--test/Test/AWS/Gen/DeviceFarm.hs236
99 files changed, 4087 insertions, 953 deletions
diff --git a/README.md b/README.md
index cb0da31..dd2bc14 100644
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
## Version
-`1.5.0`
+`1.6.0`
## Description
diff --git a/amazonka-devicefarm.cabal b/amazonka-devicefarm.cabal
index 29f447b..212fdd3 100644
--- a/amazonka-devicefarm.cabal
+++ b/amazonka-devicefarm.cabal
@@ -1,5 +1,5 @@
name: amazonka-devicefarm
-version: 1.5.0
+version: 1.6.0
synopsis: Amazon Device Farm SDK.
homepage: https://github.com/brendanhay/amazonka
bug-reports: https://github.com/brendanhay/amazonka/issues
@@ -7,7 +7,7 @@ license: MPL-2.0
license-file: LICENSE
author: Brendan Hay
maintainer: Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-copyright: Copyright (c) 2013-2017 Brendan Hay
+copyright: Copyright (c) 2013-2018 Brendan Hay
category: Network, AWS, Cloud, Distributed Computing
build-type: Simple
cabal-version: >= 1.10
@@ -46,20 +46,26 @@ library
exposed-modules:
Network.AWS.DeviceFarm
, Network.AWS.DeviceFarm.CreateDevicePool
+ , Network.AWS.DeviceFarm.CreateInstanceProfile
, Network.AWS.DeviceFarm.CreateNetworkProfile
, Network.AWS.DeviceFarm.CreateProject
, Network.AWS.DeviceFarm.CreateRemoteAccessSession
, Network.AWS.DeviceFarm.CreateUpload
+ , Network.AWS.DeviceFarm.CreateVPCEConfiguration
, Network.AWS.DeviceFarm.DeleteDevicePool
+ , Network.AWS.DeviceFarm.DeleteInstanceProfile
, Network.AWS.DeviceFarm.DeleteNetworkProfile
, Network.AWS.DeviceFarm.DeleteProject
, Network.AWS.DeviceFarm.DeleteRemoteAccessSession
, Network.AWS.DeviceFarm.DeleteRun
, Network.AWS.DeviceFarm.DeleteUpload
+ , Network.AWS.DeviceFarm.DeleteVPCEConfiguration
, Network.AWS.DeviceFarm.GetAccountSettings
, Network.AWS.DeviceFarm.GetDevice
+ , Network.AWS.DeviceFarm.GetDeviceInstance
, Network.AWS.DeviceFarm.GetDevicePool
, Network.AWS.DeviceFarm.GetDevicePoolCompatibility
+ , Network.AWS.DeviceFarm.GetInstanceProfile
, Network.AWS.DeviceFarm.GetJob
, Network.AWS.DeviceFarm.GetNetworkProfile
, Network.AWS.DeviceFarm.GetOfferingStatus
@@ -69,10 +75,13 @@ library
, Network.AWS.DeviceFarm.GetSuite
, Network.AWS.DeviceFarm.GetTest
, Network.AWS.DeviceFarm.GetUpload
+ , Network.AWS.DeviceFarm.GetVPCEConfiguration
, Network.AWS.DeviceFarm.InstallToRemoteAccessSession
, Network.AWS.DeviceFarm.ListArtifacts
+ , Network.AWS.DeviceFarm.ListDeviceInstances
, Network.AWS.DeviceFarm.ListDevicePools
, Network.AWS.DeviceFarm.ListDevices
+ , Network.AWS.DeviceFarm.ListInstanceProfiles
, Network.AWS.DeviceFarm.ListJobs
, Network.AWS.DeviceFarm.ListNetworkProfiles
, Network.AWS.DeviceFarm.ListOfferingPromotions
@@ -86,15 +95,19 @@ library
, Network.AWS.DeviceFarm.ListTests
, Network.AWS.DeviceFarm.ListUniqueProblems
, Network.AWS.DeviceFarm.ListUploads
+ , Network.AWS.DeviceFarm.ListVPCEConfigurations
, Network.AWS.DeviceFarm.PurchaseOffering
, Network.AWS.DeviceFarm.RenewOffering
, Network.AWS.DeviceFarm.ScheduleRun
, Network.AWS.DeviceFarm.StopRemoteAccessSession
, Network.AWS.DeviceFarm.StopRun
, Network.AWS.DeviceFarm.Types
+ , Network.AWS.DeviceFarm.UpdateDeviceInstance
, Network.AWS.DeviceFarm.UpdateDevicePool
+ , Network.AWS.DeviceFarm.UpdateInstanceProfile
, Network.AWS.DeviceFarm.UpdateNetworkProfile
, Network.AWS.DeviceFarm.UpdateProject
+ , Network.AWS.DeviceFarm.UpdateVPCEConfiguration
, Network.AWS.DeviceFarm.Waiters
other-modules:
@@ -102,7 +115,7 @@ library
, Network.AWS.DeviceFarm.Types.Sum
build-depends:
- amazonka-core == 1.5.0.*
+ amazonka-core == 1.6.0.*
, base >= 4.7 && < 5
test-suite amazonka-devicefarm-test
@@ -122,8 +135,8 @@ test-suite amazonka-devicefarm-test
, Test.AWS.DeviceFarm.Internal
build-depends:
- amazonka-core == 1.5.0.*
- , amazonka-test == 1.5.0.*
+ amazonka-core == 1.6.0.*
+ , amazonka-test == 1.6.0.*
, amazonka-devicefarm
, base
, bytestring
diff --git a/fixture/CreateInstanceProfile.yaml b/fixture/CreateInstanceProfile.yaml
new file mode 100644
index 0000000..dd1c9c7
--- /dev/null
+++ b/fixture/CreateInstanceProfile.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/devicefarm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: devicefarm.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/CreateInstanceProfileResponse.proto b/fixture/CreateInstanceProfileResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/CreateInstanceProfileResponse.proto
diff --git a/fixture/CreateVPCEConfiguration.yaml b/fixture/CreateVPCEConfiguration.yaml
new file mode 100644
index 0000000..dd1c9c7
--- /dev/null
+++ b/fixture/CreateVPCEConfiguration.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/devicefarm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: devicefarm.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/CreateVPCEConfigurationResponse.proto b/fixture/CreateVPCEConfigurationResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/CreateVPCEConfigurationResponse.proto
diff --git a/fixture/DeleteInstanceProfile.yaml b/fixture/DeleteInstanceProfile.yaml
new file mode 100644
index 0000000..dd1c9c7
--- /dev/null
+++ b/fixture/DeleteInstanceProfile.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/devicefarm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: devicefarm.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/DeleteInstanceProfileResponse.proto b/fixture/DeleteInstanceProfileResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/DeleteInstanceProfileResponse.proto
diff --git a/fixture/DeleteVPCEConfiguration.yaml b/fixture/DeleteVPCEConfiguration.yaml
new file mode 100644
index 0000000..dd1c9c7
--- /dev/null
+++ b/fixture/DeleteVPCEConfiguration.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/devicefarm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: devicefarm.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/DeleteVPCEConfigurationResponse.proto b/fixture/DeleteVPCEConfigurationResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/DeleteVPCEConfigurationResponse.proto
diff --git a/fixture/GetDeviceInstance.yaml b/fixture/GetDeviceInstance.yaml
new file mode 100644
index 0000000..dd1c9c7
--- /dev/null
+++ b/fixture/GetDeviceInstance.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/devicefarm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: devicefarm.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/GetDeviceInstanceResponse.proto b/fixture/GetDeviceInstanceResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/GetDeviceInstanceResponse.proto
diff --git a/fixture/GetInstanceProfile.yaml b/fixture/GetInstanceProfile.yaml
new file mode 100644
index 0000000..dd1c9c7
--- /dev/null
+++ b/fixture/GetInstanceProfile.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/devicefarm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: devicefarm.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/GetInstanceProfileResponse.proto b/fixture/GetInstanceProfileResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/GetInstanceProfileResponse.proto
diff --git a/fixture/GetVPCEConfiguration.yaml b/fixture/GetVPCEConfiguration.yaml
new file mode 100644
index 0000000..dd1c9c7
--- /dev/null
+++ b/fixture/GetVPCEConfiguration.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/devicefarm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: devicefarm.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/GetVPCEConfigurationResponse.proto b/fixture/GetVPCEConfigurationResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/GetVPCEConfigurationResponse.proto
diff --git a/fixture/ListDeviceInstances.yaml b/fixture/ListDeviceInstances.yaml
new file mode 100644
index 0000000..dd1c9c7
--- /dev/null
+++ b/fixture/ListDeviceInstances.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/devicefarm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: devicefarm.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/ListDeviceInstancesResponse.proto b/fixture/ListDeviceInstancesResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/ListDeviceInstancesResponse.proto
diff --git a/fixture/ListInstanceProfiles.yaml b/fixture/ListInstanceProfiles.yaml
new file mode 100644
index 0000000..dd1c9c7
--- /dev/null
+++ b/fixture/ListInstanceProfiles.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/devicefarm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: devicefarm.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/ListInstanceProfilesResponse.proto b/fixture/ListInstanceProfilesResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/ListInstanceProfilesResponse.proto
diff --git a/fixture/ListVPCEConfigurations.yaml b/fixture/ListVPCEConfigurations.yaml
new file mode 100644
index 0000000..dd1c9c7
--- /dev/null
+++ b/fixture/ListVPCEConfigurations.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/devicefarm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: devicefarm.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/ListVPCEConfigurationsResponse.proto b/fixture/ListVPCEConfigurationsResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/ListVPCEConfigurationsResponse.proto
diff --git a/fixture/UpdateDeviceInstance.yaml b/fixture/UpdateDeviceInstance.yaml
new file mode 100644
index 0000000..dd1c9c7
--- /dev/null
+++ b/fixture/UpdateDeviceInstance.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/devicefarm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: devicefarm.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/UpdateDeviceInstanceResponse.proto b/fixture/UpdateDeviceInstanceResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/UpdateDeviceInstanceResponse.proto
diff --git a/fixture/UpdateInstanceProfile.yaml b/fixture/UpdateInstanceProfile.yaml
new file mode 100644
index 0000000..dd1c9c7
--- /dev/null
+++ b/fixture/UpdateInstanceProfile.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/devicefarm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: devicefarm.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/UpdateInstanceProfileResponse.proto b/fixture/UpdateInstanceProfileResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/UpdateInstanceProfileResponse.proto
diff --git a/fixture/UpdateVPCEConfiguration.yaml b/fixture/UpdateVPCEConfiguration.yaml
new file mode 100644
index 0000000..dd1c9c7
--- /dev/null
+++ b/fixture/UpdateVPCEConfiguration.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/devicefarm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: devicefarm.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/UpdateVPCEConfigurationResponse.proto b/fixture/UpdateVPCEConfigurationResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/UpdateVPCEConfigurationResponse.proto
diff --git a/gen/Network/AWS/DeviceFarm.hs b/gen/Network/AWS/DeviceFarm.hs
index 36fb9a5..264bed6 100644
--- a/gen/Network/AWS/DeviceFarm.hs
+++ b/gen/Network/AWS/DeviceFarm.hs
@@ -5,7 +5,7 @@
-- |
-- Module : Network.AWS.DeviceFarm
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -37,6 +37,9 @@ module Network.AWS.DeviceFarm
-- ** ServiceAccountException
, _ServiceAccountException
+ -- ** InvalidOperationException
+ , _InvalidOperationException
+
-- ** LimitExceededException
, _LimitExceededException
@@ -76,6 +79,9 @@ module Network.AWS.DeviceFarm
-- ** CreateUpload
, module Network.AWS.DeviceFarm.CreateUpload
+ -- ** GetDeviceInstance
+ , module Network.AWS.DeviceFarm.GetDeviceInstance
+
-- ** DeleteRemoteAccessSession
, module Network.AWS.DeviceFarm.DeleteRemoteAccessSession
@@ -112,30 +118,57 @@ module Network.AWS.DeviceFarm
-- ** GetTest
, module Network.AWS.DeviceFarm.GetTest
+ -- ** UpdateDeviceInstance
+ , module Network.AWS.DeviceFarm.UpdateDeviceInstance
+
-- ** GetNetworkProfile
, module Network.AWS.DeviceFarm.GetNetworkProfile
-- ** RenewOffering
, module Network.AWS.DeviceFarm.RenewOffering
+ -- ** DeleteInstanceProfile
+ , module Network.AWS.DeviceFarm.DeleteInstanceProfile
+
+ -- ** UpdateInstanceProfile
+ , module Network.AWS.DeviceFarm.UpdateInstanceProfile
+
+ -- ** CreateInstanceProfile
+ , module Network.AWS.DeviceFarm.CreateInstanceProfile
+
-- ** GetDevice
, module Network.AWS.DeviceFarm.GetDevice
-- ** ListJobs (Paginated)
, module Network.AWS.DeviceFarm.ListJobs
+ -- ** GetVPCEConfiguration
+ , module Network.AWS.DeviceFarm.GetVPCEConfiguration
+
-- ** StopRemoteAccessSession
, module Network.AWS.DeviceFarm.StopRemoteAccessSession
-- ** CreateNetworkProfile
, module Network.AWS.DeviceFarm.CreateNetworkProfile
+ -- ** DeleteVPCEConfiguration
+ , module Network.AWS.DeviceFarm.DeleteVPCEConfiguration
+
+ -- ** UpdateVPCEConfiguration
+ , module Network.AWS.DeviceFarm.UpdateVPCEConfiguration
+
-- ** GetJob
, module Network.AWS.DeviceFarm.GetJob
+ -- ** GetInstanceProfile
+ , module Network.AWS.DeviceFarm.GetInstanceProfile
+
-- ** ListNetworkProfiles
, module Network.AWS.DeviceFarm.ListNetworkProfiles
+ -- ** CreateVPCEConfiguration
+ , module Network.AWS.DeviceFarm.CreateVPCEConfiguration
+
-- ** ScheduleRun
, module Network.AWS.DeviceFarm.ScheduleRun
@@ -172,15 +205,24 @@ module Network.AWS.DeviceFarm
-- ** GetRemoteAccessSession
, module Network.AWS.DeviceFarm.GetRemoteAccessSession
+ -- ** ListDeviceInstances
+ , module Network.AWS.DeviceFarm.ListDeviceInstances
+
-- ** PurchaseOffering
, module Network.AWS.DeviceFarm.PurchaseOffering
+ -- ** ListInstanceProfiles
+ , module Network.AWS.DeviceFarm.ListInstanceProfiles
+
-- ** GetProject
, module Network.AWS.DeviceFarm.GetProject
-- ** ListUniqueProblems (Paginated)
, module Network.AWS.DeviceFarm.ListUniqueProblems
+ -- ** ListVPCEConfigurations
+ , module Network.AWS.DeviceFarm.ListVPCEConfigurations
+
-- ** StopRun
, module Network.AWS.DeviceFarm.StopRun
@@ -228,6 +270,12 @@ module Network.AWS.DeviceFarm
-- ** ExecutionStatus
, ExecutionStatus (..)
+ -- ** InstanceStatus
+ , InstanceStatus (..)
+
+ -- ** InteractionMode
+ , InteractionMode (..)
+
-- ** NetworkProfileType
, NetworkProfileType (..)
@@ -258,6 +306,7 @@ module Network.AWS.DeviceFarm
-- ** AccountSettings
, AccountSettings
, accountSettings
+ , asSkipAppResign
, asAwsAccountNumber
, asMaxJobTimeoutMinutes
, asMaxSlots
@@ -312,6 +361,7 @@ module Network.AWS.DeviceFarm
, devImage
, devManufacturer
, devPlatform
+ , devModelId
, devRemoteAccessEnabled
, devArn
, devFormFactor
@@ -322,11 +372,22 @@ module Network.AWS.DeviceFarm
, devOs
, devName
, devModel
+ , devInstances
, devRemoteDebugEnabled
, devCpu
, devHeapSize
, devFleetName
+ -- ** DeviceInstance
+ , DeviceInstance
+ , deviceInstance
+ , diStatus
+ , diUdid
+ , diInstanceProfile
+ , diArn
+ , diDeviceARN
+ , diLabels
+
-- ** DeviceMinutes
, DeviceMinutes
, deviceMinutes
@@ -353,6 +414,7 @@ module Network.AWS.DeviceFarm
-- ** ExecutionConfiguration
, ExecutionConfiguration
, executionConfiguration
+ , ecSkipAppResign
, ecAccountsCleanup
, ecAppPackagesCleanup
, ecJobTimeoutMinutes
@@ -363,9 +425,20 @@ module Network.AWS.DeviceFarm
, imType
, imMessage
+ -- ** InstanceProfile
+ , InstanceProfile
+ , instanceProfile
+ , ipArn
+ , ipRebootAfterUse
+ , ipName
+ , ipPackageCleanup
+ , ipExcludeAppPackagesFromCleanup
+ , ipDescription
+
-- ** Job
, Job
, job
+ , jobInstanceARN
, jobStatus
, jobCounters
, jobArn
@@ -484,8 +557,12 @@ module Network.AWS.DeviceFarm
, rasBillingMethod
, rasClientId
, rasDeviceUdid
+ , rasSkipAppResign
+ , rasInstanceARN
, rasStatus
+ , rasRemoteRecordEnabled
, rasArn
+ , rasRemoteRecordAppARN
, rasCreated
, rasDevice
, rasStopped
@@ -496,6 +573,7 @@ module Network.AWS.DeviceFarm
, rasEndpoint
, rasMessage
, rasHostAddress
+ , rasInteractionMode
, rasStarted
-- ** Resolution
@@ -515,23 +593,33 @@ module Network.AWS.DeviceFarm
, Run
, run
, runBillingMethod
+ , runSkipAppResign
, runStatus
, runCustomerArtifactPaths
+ , runEventCount
, runCounters
, runPlatform
+ , runSeed
+ , runRadios
, runArn
+ , runLocation
, runCreated
+ , runLocale
, runStopped
, runResult
+ , runJobTimeoutMinutes
, runCompletedJobs
, runResultCode
, runName
+ , runAppUpload
, runParsingResultURL
, runNetworkProfile
, runDeviceMinutes
, runType
, runMessage
+ , runWebURL
, runTotalJobs
+ , runDevicePoolARN
, runStarted
-- ** Sample
@@ -552,6 +640,7 @@ module Network.AWS.DeviceFarm
, srcNetworkProfileARN
, srcExtraDataPackageARN
, srcAuxiliaryApps
+ , srcVpceConfigurationARNs
-- ** ScheduleRunTest
, ScheduleRunTest
@@ -615,23 +704,38 @@ module Network.AWS.DeviceFarm
, uType
, uMessage
, uContentType
+
+ -- ** VPCEConfiguration
+ , VPCEConfiguration
+ , vpcEConfiguration
+ , vecVpceServiceName
+ , vecArn
+ , vecVpceConfigurationName
+ , vecServiceDNSName
+ , vecVpceConfigurationDescription
) where
import Network.AWS.DeviceFarm.CreateDevicePool
+import Network.AWS.DeviceFarm.CreateInstanceProfile
import Network.AWS.DeviceFarm.CreateNetworkProfile
import Network.AWS.DeviceFarm.CreateProject
import Network.AWS.DeviceFarm.CreateRemoteAccessSession
import Network.AWS.DeviceFarm.CreateUpload
+import Network.AWS.DeviceFarm.CreateVPCEConfiguration
import Network.AWS.DeviceFarm.DeleteDevicePool
+import Network.AWS.DeviceFarm.DeleteInstanceProfile
import Network.AWS.DeviceFarm.DeleteNetworkProfile
import Network.AWS.DeviceFarm.DeleteProject
import Network.AWS.DeviceFarm.DeleteRemoteAccessSession
import Network.AWS.DeviceFarm.DeleteRun
import Network.AWS.DeviceFarm.DeleteUpload
+import Network.AWS.DeviceFarm.DeleteVPCEConfiguration
import Network.AWS.DeviceFarm.GetAccountSettings
import Network.AWS.DeviceFarm.GetDevice
+import Network.AWS.DeviceFarm.GetDeviceInstance
import Network.AWS.DeviceFarm.GetDevicePool
import Network.AWS.DeviceFarm.GetDevicePoolCompatibility
+import Network.AWS.DeviceFarm.GetInstanceProfile
import Network.AWS.DeviceFarm.GetJob
import Network.AWS.DeviceFarm.GetNetworkProfile
import Network.AWS.DeviceFarm.GetOfferingStatus
@@ -641,10 +745,13 @@ import Network.AWS.DeviceFarm.GetRun
import Network.AWS.DeviceFarm.GetSuite
import Network.AWS.DeviceFarm.GetTest
import Network.AWS.DeviceFarm.GetUpload
+import Network.AWS.DeviceFarm.GetVPCEConfiguration
import Network.AWS.DeviceFarm.InstallToRemoteAccessSession
import Network.AWS.DeviceFarm.ListArtifacts
+import Network.AWS.DeviceFarm.ListDeviceInstances
import Network.AWS.DeviceFarm.ListDevicePools
import Network.AWS.DeviceFarm.ListDevices
+import Network.AWS.DeviceFarm.ListInstanceProfiles
import Network.AWS.DeviceFarm.ListJobs
import Network.AWS.DeviceFarm.ListNetworkProfiles
import Network.AWS.DeviceFarm.ListOfferingPromotions
@@ -658,15 +765,19 @@ import Network.AWS.DeviceFarm.ListSuites
import Network.AWS.DeviceFarm.ListTests
import Network.AWS.DeviceFarm.ListUniqueProblems
import Network.AWS.DeviceFarm.ListUploads
+import Network.AWS.DeviceFarm.ListVPCEConfigurations
import Network.AWS.DeviceFarm.PurchaseOffering
import Network.AWS.DeviceFarm.RenewOffering
import Network.AWS.DeviceFarm.ScheduleRun
import Network.AWS.DeviceFarm.StopRemoteAccessSession
import Network.AWS.DeviceFarm.StopRun
import Network.AWS.DeviceFarm.Types
+import Network.AWS.DeviceFarm.UpdateDeviceInstance
import Network.AWS.DeviceFarm.UpdateDevicePool
+import Network.AWS.DeviceFarm.UpdateInstanceProfile
import Network.AWS.DeviceFarm.UpdateNetworkProfile
import Network.AWS.DeviceFarm.UpdateProject
+import Network.AWS.DeviceFarm.UpdateVPCEConfiguration
import Network.AWS.DeviceFarm.Waiters
{- $errors
diff --git a/gen/Network/AWS/DeviceFarm/CreateDevicePool.hs b/gen/Network/AWS/DeviceFarm/CreateDevicePool.hs
index fd00f41..a7e1781 100644
--- a/gen/Network/AWS/DeviceFarm/CreateDevicePool.hs
+++ b/gen/Network/AWS/DeviceFarm/CreateDevicePool.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.CreateDevicePool
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -77,28 +77,28 @@ createDevicePool
-> CreateDevicePool
createDevicePool pProjectARN_ pName_ =
CreateDevicePool'
- { _cdpDescription = Nothing
- , _cdpProjectARN = pProjectARN_
- , _cdpName = pName_
- , _cdpRules = mempty
- }
+ { _cdpDescription = Nothing
+ , _cdpProjectARN = pProjectARN_
+ , _cdpName = pName_
+ , _cdpRules = mempty
+ }
-- | The device pool's description.
cdpDescription :: Lens' CreateDevicePool (Maybe Text)
-cdpDescription = lens _cdpDescription (\ s a -> s{_cdpDescription = a});
+cdpDescription = lens _cdpDescription (\ s a -> s{_cdpDescription = a})
-- | The ARN of the project for the device pool.
cdpProjectARN :: Lens' CreateDevicePool Text
-cdpProjectARN = lens _cdpProjectARN (\ s a -> s{_cdpProjectARN = a});
+cdpProjectARN = lens _cdpProjectARN (\ s a -> s{_cdpProjectARN = a})
-- | The device pool's name.
cdpName :: Lens' CreateDevicePool Text
-cdpName = lens _cdpName (\ s a -> s{_cdpName = a});
+cdpName = lens _cdpName (\ s a -> s{_cdpName = a})
-- | The device pool's rules.
cdpRules :: Lens' CreateDevicePool [Rule]
-cdpRules = lens _cdpRules (\ s a -> s{_cdpRules = a}) . _Coerce;
+cdpRules = lens _cdpRules (\ s a -> s{_cdpRules = a}) . _Coerce
instance AWSRequest CreateDevicePool where
type Rs CreateDevicePool = CreateDevicePoolResponse
@@ -161,15 +161,15 @@ createDevicePoolResponse
-> CreateDevicePoolResponse
createDevicePoolResponse pResponseStatus_ =
CreateDevicePoolResponse'
- {_cdprsDevicePool = Nothing, _cdprsResponseStatus = pResponseStatus_}
+ {_cdprsDevicePool = Nothing, _cdprsResponseStatus = pResponseStatus_}
-- | The newly created device pool.
cdprsDevicePool :: Lens' CreateDevicePoolResponse (Maybe DevicePool)
-cdprsDevicePool = lens _cdprsDevicePool (\ s a -> s{_cdprsDevicePool = a});
+cdprsDevicePool = lens _cdprsDevicePool (\ s a -> s{_cdprsDevicePool = a})
-- | -- | The response status code.
cdprsResponseStatus :: Lens' CreateDevicePoolResponse Int
-cdprsResponseStatus = lens _cdprsResponseStatus (\ s a -> s{_cdprsResponseStatus = a});
+cdprsResponseStatus = lens _cdprsResponseStatus (\ s a -> s{_cdprsResponseStatus = a})
instance NFData CreateDevicePoolResponse where
diff --git a/gen/Network/AWS/DeviceFarm/CreateInstanceProfile.hs b/gen/Network/AWS/DeviceFarm/CreateInstanceProfile.hs
new file mode 100644
index 0000000..cb80066
--- /dev/null
+++ b/gen/Network/AWS/DeviceFarm/CreateInstanceProfile.hs
@@ -0,0 +1,178 @@
+{-# 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.CreateInstanceProfile
+-- Copyright : (c) 2013-2018 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Creates a profile that can be applied to one or more private fleet device instances.
+--
+--
+module Network.AWS.DeviceFarm.CreateInstanceProfile
+ (
+ -- * Creating a Request
+ createInstanceProfile
+ , CreateInstanceProfile
+ -- * Request Lenses
+ , cipRebootAfterUse
+ , cipPackageCleanup
+ , cipExcludeAppPackagesFromCleanup
+ , cipDescription
+ , cipName
+
+ -- * Destructuring the Response
+ , createInstanceProfileResponse
+ , CreateInstanceProfileResponse
+ -- * Response Lenses
+ , ciprsInstanceProfile
+ , ciprsResponseStatus
+ ) 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
+
+-- | /See:/ 'createInstanceProfile' smart constructor.
+data CreateInstanceProfile = CreateInstanceProfile'
+ { _cipRebootAfterUse :: !(Maybe Bool)
+ , _cipPackageCleanup :: !(Maybe Bool)
+ , _cipExcludeAppPackagesFromCleanup :: !(Maybe [Text])
+ , _cipDescription :: !(Maybe Text)
+ , _cipName :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'CreateInstanceProfile' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'cipRebootAfterUse' - When set to @true@ , Device Farm will reboot the instance after a test run. The default value is @true@ .
+--
+-- * 'cipPackageCleanup' - When set to @true@ , Device Farm will remove app packages after a test run. The default value is @false@ for private devices.
+--
+-- * 'cipExcludeAppPackagesFromCleanup' - An array of strings specifying the list of app packages that should not be cleaned up from the device after a test run is over. The list of packages is only considered if you set @packageCleanup@ to @true@ .
+--
+-- * 'cipDescription' - The description of your instance profile.
+--
+-- * 'cipName' - The name of your instance profile.
+createInstanceProfile
+ :: Text -- ^ 'cipName'
+ -> CreateInstanceProfile
+createInstanceProfile pName_ =
+ CreateInstanceProfile'
+ { _cipRebootAfterUse = Nothing
+ , _cipPackageCleanup = Nothing
+ , _cipExcludeAppPackagesFromCleanup = Nothing
+ , _cipDescription = Nothing
+ , _cipName = pName_
+ }
+
+
+-- | When set to @true@ , Device Farm will reboot the instance after a test run. The default value is @true@ .
+cipRebootAfterUse :: Lens' CreateInstanceProfile (Maybe Bool)
+cipRebootAfterUse = lens _cipRebootAfterUse (\ s a -> s{_cipRebootAfterUse = a})
+
+-- | When set to @true@ , Device Farm will remove app packages after a test run. The default value is @false@ for private devices.
+cipPackageCleanup :: Lens' CreateInstanceProfile (Maybe Bool)
+cipPackageCleanup = lens _cipPackageCleanup (\ s a -> s{_cipPackageCleanup = a})
+
+-- | An array of strings specifying the list of app packages that should not be cleaned up from the device after a test run is over. The list of packages is only considered if you set @packageCleanup@ to @true@ .
+cipExcludeAppPackagesFromCleanup :: Lens' CreateInstanceProfile [Text]
+cipExcludeAppPackagesFromCleanup = lens _cipExcludeAppPackagesFromCleanup (\ s a -> s{_cipExcludeAppPackagesFromCleanup = a}) . _Default . _Coerce
+
+-- | The description of your instance profile.
+cipDescription :: Lens' CreateInstanceProfile (Maybe Text)
+cipDescription = lens _cipDescription (\ s a -> s{_cipDescription = a})
+
+-- | The name of your instance profile.
+cipName :: Lens' CreateInstanceProfile Text
+cipName = lens _cipName (\ s a -> s{_cipName = a})
+
+instance AWSRequest CreateInstanceProfile where
+ type Rs CreateInstanceProfile =
+ CreateInstanceProfileResponse
+ request = postJSON deviceFarm
+ response
+ = receiveJSON
+ (\ s h x ->
+ CreateInstanceProfileResponse' <$>
+ (x .?> "instanceProfile") <*> (pure (fromEnum s)))
+
+instance Hashable CreateInstanceProfile where
+
+instance NFData CreateInstanceProfile where
+
+instance ToHeaders CreateInstanceProfile where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("DeviceFarm_20150623.CreateInstanceProfile" ::
+ ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON CreateInstanceProfile where
+ toJSON CreateInstanceProfile'{..}
+ = object
+ (catMaybes
+ [("rebootAfterUse" .=) <$> _cipRebootAfterUse,
+ ("packageCleanup" .=) <$> _cipPackageCleanup,
+ ("excludeAppPackagesFromCleanup" .=) <$>
+ _cipExcludeAppPackagesFromCleanup,
+ ("description" .=) <$> _cipDescription,
+ Just ("name" .= _cipName)])
+
+instance ToPath CreateInstanceProfile where
+ toPath = const "/"
+
+instance ToQuery CreateInstanceProfile where
+ toQuery = const mempty
+
+-- | /See:/ 'createInstanceProfileResponse' smart constructor.
+data CreateInstanceProfileResponse = CreateInstanceProfileResponse'
+ { _ciprsInstanceProfile :: !(Maybe InstanceProfile)
+ , _ciprsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'CreateInstanceProfileResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'ciprsInstanceProfile' - An object containing information about your instance profile.
+--
+-- * 'ciprsResponseStatus' - -- | The response status code.
+createInstanceProfileResponse
+ :: Int -- ^ 'ciprsResponseStatus'
+ -> CreateInstanceProfileResponse
+createInstanceProfileResponse pResponseStatus_ =
+ CreateInstanceProfileResponse'
+ {_ciprsInstanceProfile = Nothing, _ciprsResponseStatus = pResponseStatus_}
+
+
+-- | An object containing information about your instance profile.
+ciprsInstanceProfile :: Lens' CreateInstanceProfileResponse (Maybe InstanceProfile)
+ciprsInstanceProfile = lens _ciprsInstanceProfile (\ s a -> s{_ciprsInstanceProfile = a})
+
+-- | -- | The response status code.
+ciprsResponseStatus :: Lens' CreateInstanceProfileResponse Int
+ciprsResponseStatus = lens _ciprsResponseStatus (\ s a -> s{_ciprsResponseStatus = a})
+
+instance NFData CreateInstanceProfileResponse where
diff --git a/gen/Network/AWS/DeviceFarm/CreateNetworkProfile.hs b/gen/Network/AWS/DeviceFarm/CreateNetworkProfile.hs
index c068f1c..e3a104d 100644
--- a/gen/Network/AWS/DeviceFarm/CreateNetworkProfile.hs
+++ b/gen/Network/AWS/DeviceFarm/CreateNetworkProfile.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.CreateNetworkProfile
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -105,68 +105,68 @@ createNetworkProfile
-> CreateNetworkProfile
createNetworkProfile pProjectARN_ pName_ =
CreateNetworkProfile'
- { _cnpUplinkJitterMs = Nothing
- , _cnpUplinkLossPercent = Nothing
- , _cnpDownlinkJitterMs = Nothing
- , _cnpDownlinkLossPercent = Nothing
- , _cnpType = Nothing
- , _cnpUplinkDelayMs = Nothing
- , _cnpUplinkBandwidthBits = Nothing
- , _cnpDescription = Nothing
- , _cnpDownlinkDelayMs = Nothing
- , _cnpDownlinkBandwidthBits = Nothing
- , _cnpProjectARN = pProjectARN_
- , _cnpName = pName_
- }
+ { _cnpUplinkJitterMs = Nothing
+ , _cnpUplinkLossPercent = Nothing
+ , _cnpDownlinkJitterMs = Nothing
+ , _cnpDownlinkLossPercent = Nothing
+ , _cnpType = Nothing
+ , _cnpUplinkDelayMs = Nothing
+ , _cnpUplinkBandwidthBits = Nothing
+ , _cnpDescription = Nothing
+ , _cnpDownlinkDelayMs = Nothing
+ , _cnpDownlinkBandwidthBits = Nothing
+ , _cnpProjectARN = pProjectARN_
+ , _cnpName = pName_
+ }
-- | Time variation in the delay of received packets in milliseconds as an integer from 0 to 2000.
cnpUplinkJitterMs :: Lens' CreateNetworkProfile (Maybe Integer)
-cnpUplinkJitterMs = lens _cnpUplinkJitterMs (\ s a -> s{_cnpUplinkJitterMs = a});
+cnpUplinkJitterMs = lens _cnpUplinkJitterMs (\ s a -> s{_cnpUplinkJitterMs = a})
-- | Proportion of transmitted packets that fail to arrive from 0 to 100 percent.
cnpUplinkLossPercent :: Lens' CreateNetworkProfile (Maybe Natural)
-cnpUplinkLossPercent = lens _cnpUplinkLossPercent (\ s a -> s{_cnpUplinkLossPercent = a}) . mapping _Nat;
+cnpUplinkLossPercent = lens _cnpUplinkLossPercent (\ s a -> s{_cnpUplinkLossPercent = a}) . mapping _Nat
-- | Time variation in the delay of received packets in milliseconds as an integer from 0 to 2000.
cnpDownlinkJitterMs :: Lens' CreateNetworkProfile (Maybe Integer)
-cnpDownlinkJitterMs = lens _cnpDownlinkJitterMs (\ s a -> s{_cnpDownlinkJitterMs = a});
+cnpDownlinkJitterMs = lens _cnpDownlinkJitterMs (\ s a -> s{_cnpDownlinkJitterMs = a})
-- | Proportion of received packets that fail to arrive from 0 to 100 percent.
cnpDownlinkLossPercent :: Lens' CreateNetworkProfile (Maybe Natural)
-cnpDownlinkLossPercent = lens _cnpDownlinkLossPercent (\ s a -> s{_cnpDownlinkLossPercent = a}) . mapping _Nat;
+cnpDownlinkLossPercent = lens _cnpDownlinkLossPercent (\ s a -> s{_cnpDownlinkLossPercent = a}) . mapping _Nat
-- | The type of network profile you wish to create. Valid values are listed below.
cnpType :: Lens' CreateNetworkProfile (Maybe NetworkProfileType)
-cnpType = lens _cnpType (\ s a -> s{_cnpType = a});
+cnpType = lens _cnpType (\ s a -> s{_cnpType = a})
-- | Delay time for all packets to destination in milliseconds as an integer from 0 to 2000.
cnpUplinkDelayMs :: Lens' CreateNetworkProfile (Maybe Integer)
-cnpUplinkDelayMs = lens _cnpUplinkDelayMs (\ s a -> s{_cnpUplinkDelayMs = a});
+cnpUplinkDelayMs = lens _cnpUplinkDelayMs (\ s a -> s{_cnpUplinkDelayMs = a})
-- | The data throughput rate in bits per second, as an integer from 0 to 104857600.
cnpUplinkBandwidthBits :: Lens' CreateNetworkProfile (Maybe Integer)
-cnpUplinkBandwidthBits = lens _cnpUplinkBandwidthBits (\ s a -> s{_cnpUplinkBandwidthBits = a});
+cnpUplinkBandwidthBits = lens _cnpUplinkBandwidthBits (\ s a -> s{_cnpUplinkBandwidthBits = a})
-- | The description of the network profile.
cnpDescription :: Lens' CreateNetworkProfile (Maybe Text)
-cnpDescription = lens _cnpDescription (\ s a -> s{_cnpDescription = a});
+cnpDescription = lens _cnpDescription (\ s a -> s{_cnpDescription = a})
-- | Delay time for all packets to destination in milliseconds as an integer from 0 to 2000.
cnpDownlinkDelayMs :: Lens' CreateNetworkProfile (Maybe Integer)
-cnpDownlinkDelayMs = lens _cnpDownlinkDelayMs (\ s a -> s{_cnpDownlinkDelayMs = a});
+cnpDownlinkDelayMs = lens _cnpDownlinkDelayMs (\ s a -> s{_cnpDownlinkDelayMs = a})
-- | The data throughput rate in bits per second, as an integer from 0 to 104857600.
cnpDownlinkBandwidthBits :: Lens' CreateNetworkProfile (Maybe Integer)
-cnpDownlinkBandwidthBits = lens _cnpDownlinkBandwidthBits (\ s a -> s{_cnpDownlinkBandwidthBits = a});
+cnpDownlinkBandwidthBits = lens _cnpDownlinkBandwidthBits (\ s a -> s{_cnpDownlinkBandwidthBits = a})
-- | The Amazon Resource Name (ARN) of the project for which you want to create a network profile.
cnpProjectARN :: Lens' CreateNetworkProfile Text
-cnpProjectARN = lens _cnpProjectARN (\ s a -> s{_cnpProjectARN = a});
+cnpProjectARN = lens _cnpProjectARN (\ s a -> s{_cnpProjectARN = a})
-- | The name you wish to specify for the new network profile.
cnpName :: Lens' CreateNetworkProfile Text
-cnpName = lens _cnpName (\ s a -> s{_cnpName = a});
+cnpName = lens _cnpName (\ s a -> s{_cnpName = a})
instance AWSRequest CreateNetworkProfile where
type Rs CreateNetworkProfile =
@@ -237,15 +237,15 @@ createNetworkProfileResponse
-> CreateNetworkProfileResponse
createNetworkProfileResponse pResponseStatus_ =
CreateNetworkProfileResponse'
- {_cnprsNetworkProfile = Nothing, _cnprsResponseStatus = pResponseStatus_}
+ {_cnprsNetworkProfile = Nothing, _cnprsResponseStatus = pResponseStatus_}
-- | The network profile that is returned by the create network profile request.
cnprsNetworkProfile :: Lens' CreateNetworkProfileResponse (Maybe NetworkProfile)
-cnprsNetworkProfile = lens _cnprsNetworkProfile (\ s a -> s{_cnprsNetworkProfile = a});
+cnprsNetworkProfile = lens _cnprsNetworkProfile (\ s a -> s{_cnprsNetworkProfile = a})
-- | -- | The response status code.
cnprsResponseStatus :: Lens' CreateNetworkProfileResponse Int
-cnprsResponseStatus = lens _cnprsResponseStatus (\ s a -> s{_cnprsResponseStatus = a});
+cnprsResponseStatus = lens _cnprsResponseStatus (\ s a -> s{_cnprsResponseStatus = a})
instance NFData CreateNetworkProfileResponse where
diff --git a/gen/Network/AWS/DeviceFarm/CreateProject.hs b/gen/Network/AWS/DeviceFarm/CreateProject.hs
index c7dfcdf..ac9263a 100644
--- a/gen/Network/AWS/DeviceFarm/CreateProject.hs
+++ b/gen/Network/AWS/DeviceFarm/CreateProject.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.CreateProject
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -72,11 +72,11 @@ createProject pName_ =
-- | Sets the execution timeout value (in minutes) for a project. All test runs in this project will use the specified execution timeout value unless overridden when scheduling a run.
cpDefaultJobTimeoutMinutes :: Lens' CreateProject (Maybe Int)
-cpDefaultJobTimeoutMinutes = lens _cpDefaultJobTimeoutMinutes (\ s a -> s{_cpDefaultJobTimeoutMinutes = a});
+cpDefaultJobTimeoutMinutes = lens _cpDefaultJobTimeoutMinutes (\ s a -> s{_cpDefaultJobTimeoutMinutes = a})
-- | The project's name.
cpName :: Lens' CreateProject Text
-cpName = lens _cpName (\ s a -> s{_cpName = a});
+cpName = lens _cpName (\ s a -> s{_cpName = a})
instance AWSRequest CreateProject where
type Rs CreateProject = CreateProjectResponse
@@ -137,15 +137,15 @@ createProjectResponse
-> CreateProjectResponse
createProjectResponse pResponseStatus_ =
CreateProjectResponse'
- {_cprsProject = Nothing, _cprsResponseStatus = pResponseStatus_}
+ {_cprsProject = Nothing, _cprsResponseStatus = pResponseStatus_}
-- | The newly created project.
cprsProject :: Lens' CreateProjectResponse (Maybe Project)
-cprsProject = lens _cprsProject (\ s a -> s{_cprsProject = a});
+cprsProject = lens _cprsProject (\ s a -> s{_cprsProject = a})
-- | -- | The response status code.
cprsResponseStatus :: Lens' CreateProjectResponse Int
-cprsResponseStatus = lens _cprsResponseStatus (\ s a -> s{_cprsResponseStatus = a});
+cprsResponseStatus = lens _cprsResponseStatus (\ s a -> s{_cprsResponseStatus = a})
instance NFData CreateProjectResponse where
diff --git a/gen/Network/AWS/DeviceFarm/CreateRemoteAccessSession.hs b/gen/Network/AWS/DeviceFarm/CreateRemoteAccessSession.hs
index 0447cf0..96f9357 100644
--- a/gen/Network/AWS/DeviceFarm/CreateRemoteAccessSession.hs
+++ b/gen/Network/AWS/DeviceFarm/CreateRemoteAccessSession.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.CreateRemoteAccessSession
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -28,10 +28,15 @@ module Network.AWS.DeviceFarm.CreateRemoteAccessSession
, CreateRemoteAccessSession
-- * Request Lenses
, crasClientId
+ , crasSkipAppResign
+ , crasInstanceARN
+ , crasRemoteRecordEnabled
+ , crasRemoteRecordAppARN
, crasSshPublicKey
, crasName
, crasRemoteDebugEnabled
, crasConfiguration
+ , crasInteractionMode
, crasProjectARN
, crasDeviceARN
@@ -56,13 +61,18 @@ import Network.AWS.Response
--
-- /See:/ 'createRemoteAccessSession' smart constructor.
data CreateRemoteAccessSession = CreateRemoteAccessSession'
- { _crasClientId :: !(Maybe Text)
- , _crasSshPublicKey :: !(Maybe Text)
- , _crasName :: !(Maybe Text)
- , _crasRemoteDebugEnabled :: !(Maybe Bool)
- , _crasConfiguration :: !(Maybe CreateRemoteAccessSessionConfiguration)
- , _crasProjectARN :: !Text
- , _crasDeviceARN :: !Text
+ { _crasClientId :: !(Maybe Text)
+ , _crasSkipAppResign :: !(Maybe Bool)
+ , _crasInstanceARN :: !(Maybe Text)
+ , _crasRemoteRecordEnabled :: !(Maybe Bool)
+ , _crasRemoteRecordAppARN :: !(Maybe Text)
+ , _crasSshPublicKey :: !(Maybe Text)
+ , _crasName :: !(Maybe Text)
+ , _crasRemoteDebugEnabled :: !(Maybe Bool)
+ , _crasConfiguration :: !(Maybe CreateRemoteAccessSessionConfiguration)
+ , _crasInteractionMode :: !(Maybe InteractionMode)
+ , _crasProjectARN :: !Text
+ , _crasDeviceARN :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
@@ -70,7 +80,15 @@ data CreateRemoteAccessSession = CreateRemoteAccessSession'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'crasClientId' - Unique identifier for the client. If you want access to multiple devices on the same client, you should pass the same @clientId@ value in each call to @CreateRemoteAccessSession@ . This is required only if @remoteDebugEnabled@ is set to true @true@ .
+-- * 'crasClientId' - Unique identifier for the client. If you want access to multiple devices on the same client, you should pass the same @clientId@ value in each call to @CreateRemoteAccessSession@ . This is required only if @remoteDebugEnabled@ is set to @true@ .
+--
+-- * 'crasSkipAppResign' - When set to @true@ , for private devices, Device Farm will not sign your app again. For public devices, Device Farm always signs your apps again and this parameter has no effect. For more information about how Device Farm re-signs your app(s), see <https://aws.amazon.com/device-farm/faq/ Do you modify my app?> in the /AWS Device Farm FAQs/ .
+--
+-- * 'crasInstanceARN' - The Amazon Resource Name (ARN) of the device instance for which you want to create a remote access session.
+--
+-- * 'crasRemoteRecordEnabled' - Set to @true@ to enable remote recording for the remote access session.
+--
+-- * 'crasRemoteRecordAppARN' - The Amazon Resource Name (ARN) for the app to be recorded in the remote access session.
--
-- * 'crasSshPublicKey' - The public key of the @ssh@ key pair you want to use for connecting to remote devices in your remote debugging session. This is only required if @remoteDebugEnabled@ is set to @true@ .
--
@@ -80,6 +98,8 @@ data CreateRemoteAccessSession = CreateRemoteAccessSession'
--
-- * 'crasConfiguration' - The configuration information for the remote access session request.
--
+-- * 'crasInteractionMode' - The interaction mode of the remote access session. Valid values are: * INTERACTIVE: You can interact with the iOS device by viewing, touching, and rotating the screen. You __cannot__ run XCUITest framework-based tests in this mode. * NO_VIDEO: You are connected to the device but cannot interact with it or view the screen. This mode has the fastest test execution speed. You __can__ run XCUITest framework-based tests in this mode. * VIDEO_ONLY: You can view the screen but cannot touch or rotate it. You __can__ run XCUITest framework-based tests and watch the screen in this mode.
+--
-- * 'crasProjectARN' - The Amazon Resource Name (ARN) of the project for which you want to create a remote access session.
--
-- * 'crasDeviceARN' - The Amazon Resource Name (ARN) of the device for which you want to create a remote access session.
@@ -89,43 +109,68 @@ createRemoteAccessSession
-> CreateRemoteAccessSession
createRemoteAccessSession pProjectARN_ pDeviceARN_ =
CreateRemoteAccessSession'
- { _crasClientId = Nothing
- , _crasSshPublicKey = Nothing
- , _crasName = Nothing
- , _crasRemoteDebugEnabled = Nothing
- , _crasConfiguration = Nothing
- , _crasProjectARN = pProjectARN_
- , _crasDeviceARN = pDeviceARN_
- }
+ { _crasClientId = Nothing
+ , _crasSkipAppResign = Nothing
+ , _crasInstanceARN = Nothing
+ , _crasRemoteRecordEnabled = Nothing
+ , _crasRemoteRecordAppARN = Nothing
+ , _crasSshPublicKey = Nothing
+ , _crasName = Nothing
+ , _crasRemoteDebugEnabled = Nothing
+ , _crasConfiguration = Nothing
+ , _crasInteractionMode = Nothing
+ , _crasProjectARN = pProjectARN_
+ , _crasDeviceARN = pDeviceARN_
+ }
--- | Unique identifier for the client. If you want access to multiple devices on the same client, you should pass the same @clientId@ value in each call to @CreateRemoteAccessSession@ . This is required only if @remoteDebugEnabled@ is set to true @true@ .
+-- | Unique identifier for the client. If you want access to multiple devices on the same client, you should pass the same @clientId@ value in each call to @CreateRemoteAccessSession@ . This is required only if @remoteDebugEnabled@ is set to @true@ .
crasClientId :: Lens' CreateRemoteAccessSession (Maybe Text)
-crasClientId = lens _crasClientId (\ s a -> s{_crasClientId = a});
+crasClientId = lens _crasClientId (\ s a -> s{_crasClientId = a})
+
+-- | When set to @true@ , for private devices, Device Farm will not sign your app again. For public devices, Device Farm always signs your apps again and this parameter has no effect. For more information about how Device Farm re-signs your app(s), see <https://aws.amazon.com/device-farm/faq/ Do you modify my app?> in the /AWS Device Farm FAQs/ .
+crasSkipAppResign :: Lens' CreateRemoteAccessSession (Maybe Bool)
+crasSkipAppResign = lens _crasSkipAppResign (\ s a -> s{_crasSkipAppResign = a})
+
+-- | The Amazon Resource Name (ARN) of the device instance for which you want to create a remote access session.
+crasInstanceARN :: Lens' CreateRemoteAccessSession (Maybe Text)
+crasInstanceARN = lens _crasInstanceARN (\ s a -> s{_crasInstanceARN = a})
+
+-- | Set to @true@ to enable remote recording for the remote access session.
+crasRemoteRecordEnabled :: Lens' CreateRemoteAccessSession (Maybe Bool)
+crasRemoteRecordEnabled = lens _crasRemoteRecordEnabled (\ s a -> s{_crasRemoteRecordEnabled = a})
+
+-- | The Amazon Resource Name (ARN) for the app to be recorded in the remote access session.
+crasRemoteRecordAppARN :: Lens' CreateRemoteAccessSession (Maybe Text)
+crasRemoteRecordAppARN = lens _crasRemoteRecordAppARN (\ s a -> s{_crasRemoteRecordAppARN = a})
-- | The public key of the @ssh@ key pair you want to use for connecting to remote devices in your remote debugging session. This is only required if @remoteDebugEnabled@ is set to @true@ .
crasSshPublicKey :: Lens' CreateRemoteAccessSession (Maybe Text)
-crasSshPublicKey = lens _crasSshPublicKey (\ s a -> s{_crasSshPublicKey = a});
+crasSshPublicKey = lens _crasSshPublicKey (\ s a -> s{_crasSshPublicKey = a})
-- | The name of the remote access session that you wish to create.
crasName :: Lens' CreateRemoteAccessSession (Maybe Text)
-crasName = lens _crasName (\ s a -> s{_crasName = a});
+crasName = lens _crasName (\ s a -> s{_crasName = a})
-- | Set to @true@ if you want to access devices remotely for debugging in your remote access session.
crasRemoteDebugEnabled :: Lens' CreateRemoteAccessSession (Maybe Bool)
-crasRemoteDebugEnabled = lens _crasRemoteDebugEnabled (\ s a -> s{_crasRemoteDebugEnabled = a});
+crasRemoteDebugEnabled = lens _crasRemoteDebugEnabled (\ s a -> s{_crasRemoteDebugEnabled = a})
-- | The configuration information for the remote access session request.
crasConfiguration :: Lens' CreateRemoteAccessSession (Maybe CreateRemoteAccessSessionConfiguration)
-crasConfiguration = lens _crasConfiguration (\ s a -> s{_crasConfiguration = a});
+crasConfiguration = lens _crasConfiguration (\ s a -> s{_crasConfiguration = a})
+
+-- | The interaction mode of the remote access session. Valid values are: * INTERACTIVE: You can interact with the iOS device by viewing, touching, and rotating the screen. You __cannot__ run XCUITest framework-based tests in this mode. * NO_VIDEO: You are connected to the device but cannot interact with it or view the screen. This mode has the fastest test execution speed. You __can__ run XCUITest framework-based tests in this mode. * VIDEO_ONLY: You can view the screen but cannot touch or rotate it. You __can__ run XCUITest framework-based tests and watch the screen in this mode.
+crasInteractionMode :: Lens' CreateRemoteAccessSession (Maybe InteractionMode)
+crasInteractionMode = lens _crasInteractionMode (\ s a -> s{_crasInteractionMode = a})
-- | The Amazon Resource Name (ARN) of the project for which you want to create a remote access session.
crasProjectARN :: Lens' CreateRemoteAccessSession Text
-crasProjectARN = lens _crasProjectARN (\ s a -> s{_crasProjectARN = a});
+crasProjectARN = lens _crasProjectARN (\ s a -> s{_crasProjectARN = a})
-- | The Amazon Resource Name (ARN) of the device for which you want to create a remote access session.
crasDeviceARN :: Lens' CreateRemoteAccessSession Text
-crasDeviceARN = lens _crasDeviceARN (\ s a -> s{_crasDeviceARN = a});
+crasDeviceARN = lens _crasDeviceARN (\ s a -> s{_crasDeviceARN = a})
instance AWSRequest CreateRemoteAccessSession where
type Rs CreateRemoteAccessSession =
@@ -157,11 +202,18 @@ instance ToJSON CreateRemoteAccessSession where
= object
(catMaybes
[("clientId" .=) <$> _crasClientId,
+ ("skipAppResign" .=) <$> _crasSkipAppResign,
+ ("instanceArn" .=) <$> _crasInstanceARN,
+ ("remoteRecordEnabled" .=) <$>
+ _crasRemoteRecordEnabled,
+ ("remoteRecordAppArn" .=) <$>
+ _crasRemoteRecordAppARN,
("sshPublicKey" .=) <$> _crasSshPublicKey,
("name" .=) <$> _crasName,
("remoteDebugEnabled" .=) <$>
_crasRemoteDebugEnabled,
("configuration" .=) <$> _crasConfiguration,
+ ("interactionMode" .=) <$> _crasInteractionMode,
Just ("projectArn" .= _crasProjectARN),
Just ("deviceArn" .= _crasDeviceARN)])
@@ -194,18 +246,18 @@ createRemoteAccessSessionResponse
-> CreateRemoteAccessSessionResponse
createRemoteAccessSessionResponse pResponseStatus_ =
CreateRemoteAccessSessionResponse'
- { _crasrsRemoteAccessSession = Nothing
- , _crasrsResponseStatus = pResponseStatus_
- }
+ { _crasrsRemoteAccessSession = Nothing
+ , _crasrsResponseStatus = pResponseStatus_
+ }
-- | A container that describes the remote access session when the request to create a remote access session is sent.
crasrsRemoteAccessSession :: Lens' CreateRemoteAccessSessionResponse (Maybe RemoteAccessSession)
-crasrsRemoteAccessSession = lens _crasrsRemoteAccessSession (\ s a -> s{_crasrsRemoteAccessSession = a});
+crasrsRemoteAccessSession = lens _crasrsRemoteAccessSession (\ s a -> s{_crasrsRemoteAccessSession = a})
-- | -- | The response status code.
crasrsResponseStatus :: Lens' CreateRemoteAccessSessionResponse Int
-crasrsResponseStatus = lens _crasrsResponseStatus (\ s a -> s{_crasrsResponseStatus = a});
+crasrsResponseStatus = lens _crasrsResponseStatus (\ s a -> s{_crasrsResponseStatus = a})
instance NFData CreateRemoteAccessSessionResponse
where
diff --git a/gen/Network/AWS/DeviceFarm/CreateUpload.hs b/gen/Network/AWS/DeviceFarm/CreateUpload.hs
index 9ca3e2a..92b545d 100644
--- a/gen/Network/AWS/DeviceFarm/CreateUpload.hs
+++ b/gen/Network/AWS/DeviceFarm/CreateUpload.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.CreateUpload
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -78,28 +78,28 @@ createUpload
-> CreateUpload
createUpload pProjectARN_ pName_ pType_ =
CreateUpload'
- { _cuContentType = Nothing
- , _cuProjectARN = pProjectARN_
- , _cuName = pName_
- , _cuType = pType_
- }
+ { _cuContentType = Nothing
+ , _cuProjectARN = pProjectARN_
+ , _cuName = pName_
+ , _cuType = pType_
+ }
-- | The upload's content type (for example, "application/octet-stream").
cuContentType :: Lens' CreateUpload (Maybe Text)
-cuContentType = lens _cuContentType (\ s a -> s{_cuContentType = a});
+cuContentType = lens _cuContentType (\ s a -> s{_cuContentType = a})
-- | The ARN of the project for the upload.
cuProjectARN :: Lens' CreateUpload Text
-cuProjectARN = lens _cuProjectARN (\ s a -> s{_cuProjectARN = a});
+cuProjectARN = lens _cuProjectARN (\ s a -> s{_cuProjectARN = a})
-- | The upload's file name. The name should not contain the '/' character. If uploading an iOS app, the file name needs to end with the @.ipa@ extension. If uploading an Android app, the file name needs to end with the @.apk@ extension. For all others, the file name must end with the @.zip@ file extension.
cuName :: Lens' CreateUpload Text
-cuName = lens _cuName (\ s a -> s{_cuName = a});
+cuName = lens _cuName (\ s a -> s{_cuName = a})
-- | The upload's upload type. Must be one of the following values: * ANDROID_APP: An Android upload. * IOS_APP: An iOS upload. * WEB_APP: A web appliction upload. * EXTERNAL_DATA: An external data upload. * APPIUM_JAVA_JUNIT_TEST_PACKAGE: An Appium Java JUnit test package upload. * APPIUM_JAVA_TESTNG_TEST_PACKAGE: An Appium Java TestNG test package upload. * APPIUM_PYTHON_TEST_PACKAGE: An Appium Python test package upload. * APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE: An Appium Java JUnit test package upload. * APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE: An Appium Java TestNG test package upload. * APPIUM_WEB_PYTHON_TEST_PACKAGE: An Appium Python test package upload. * CALABASH_TEST_PACKAGE: A Calabash test package upload. * INSTRUMENTATION_TEST_PACKAGE: An instrumentation upload. * UIAUTOMATION_TEST_PACKAGE: A uiautomation test package upload. * UIAUTOMATOR_TEST_PACKAGE: A uiautomator test package upload. * XCTEST_TEST_PACKAGE: An XCode test package upload. * XCTEST_UI_TEST_PACKAGE: An XCode UI test package upload. __Note__ If you call @CreateUpload@ with @WEB_APP@ specified, AWS Device Farm throws an @ArgumentException@ error.
cuType :: Lens' CreateUpload UploadType
-cuType = lens _cuType (\ s a -> s{_cuType = a});
+cuType = lens _cuType (\ s a -> s{_cuType = a})
instance AWSRequest CreateUpload where
type Rs CreateUpload = CreateUploadResponse
@@ -160,15 +160,15 @@ createUploadResponse
-> CreateUploadResponse
createUploadResponse pResponseStatus_ =
CreateUploadResponse'
- {_cursUpload = Nothing, _cursResponseStatus = pResponseStatus_}
+ {_cursUpload = Nothing, _cursResponseStatus = pResponseStatus_}
-- | The newly created upload.
cursUpload :: Lens' CreateUploadResponse (Maybe Upload)
-cursUpload = lens _cursUpload (\ s a -> s{_cursUpload = a});
+cursUpload = lens _cursUpload (\ s a -> s{_cursUpload = a})
-- | -- | The response status code.
cursResponseStatus :: Lens' CreateUploadResponse Int
-cursResponseStatus = lens _cursResponseStatus (\ s a -> s{_cursResponseStatus = a});
+cursResponseStatus = lens _cursResponseStatus (\ s a -> s{_cursResponseStatus = a})
instance NFData CreateUploadResponse where
diff --git a/gen/Network/AWS/DeviceFarm/CreateVPCEConfiguration.hs b/gen/Network/AWS/DeviceFarm/CreateVPCEConfiguration.hs
new file mode 100644
index 0000000..a12b190
--- /dev/null
+++ b/gen/Network/AWS/DeviceFarm/CreateVPCEConfiguration.hs
@@ -0,0 +1,174 @@
+{-# 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.CreateVPCEConfiguration
+-- Copyright : (c) 2013-2018 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Creates a configuration record in Device Farm for your Amazon Virtual Private Cloud (VPC) endpoint.
+--
+--
+module Network.AWS.DeviceFarm.CreateVPCEConfiguration
+ (
+ -- * Creating a Request
+ createVPCEConfiguration
+ , CreateVPCEConfiguration
+ -- * Request Lenses
+ , cvecVpceConfigurationDescription
+ , cvecVpceConfigurationName
+ , cvecVpceServiceName
+ , cvecServiceDNSName
+
+ -- * Destructuring the Response
+ , createVPCEConfigurationResponse
+ , CreateVPCEConfigurationResponse
+ -- * Response Lenses
+ , cvecrsVpceConfiguration
+ , cvecrsResponseStatus
+ ) 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
+
+-- | /See:/ 'createVPCEConfiguration' smart constructor.
+data CreateVPCEConfiguration = CreateVPCEConfiguration'
+ { _cvecVpceConfigurationDescription :: !(Maybe Text)
+ , _cvecVpceConfigurationName :: !Text
+ , _cvecVpceServiceName :: !Text
+ , _cvecServiceDNSName :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'CreateVPCEConfiguration' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'cvecVpceConfigurationDescription' - An optional description, providing more details about your VPC endpoint configuration.
+--
+-- * 'cvecVpceConfigurationName' - The friendly name you give to your VPC endpoint configuration, to manage your configurations more easily.
+--
+-- * 'cvecVpceServiceName' - The name of the VPC endpoint service running inside your AWS account that you want Device Farm to test.
+--
+-- * 'cvecServiceDNSName' - The DNS name of the service running in your VPC that you want Device Farm to test.
+createVPCEConfiguration
+ :: Text -- ^ 'cvecVpceConfigurationName'
+ -> Text -- ^ 'cvecVpceServiceName'
+ -> Text -- ^ 'cvecServiceDNSName'
+ -> CreateVPCEConfiguration
+createVPCEConfiguration pVpceConfigurationName_ pVpceServiceName_ pServiceDNSName_ =
+ CreateVPCEConfiguration'
+ { _cvecVpceConfigurationDescription = Nothing
+ , _cvecVpceConfigurationName = pVpceConfigurationName_
+ , _cvecVpceServiceName = pVpceServiceName_
+ , _cvecServiceDNSName = pServiceDNSName_
+ }
+
+
+-- | An optional description, providing more details about your VPC endpoint configuration.
+cvecVpceConfigurationDescription :: Lens' CreateVPCEConfiguration (Maybe Text)
+cvecVpceConfigurationDescription = lens _cvecVpceConfigurationDescription (\ s a -> s{_cvecVpceConfigurationDescription = a})
+
+-- | The friendly name you give to your VPC endpoint configuration, to manage your configurations more easily.
+cvecVpceConfigurationName :: Lens' CreateVPCEConfiguration Text
+cvecVpceConfigurationName = lens _cvecVpceConfigurationName (\ s a -> s{_cvecVpceConfigurationName = a})
+
+-- | The name of the VPC endpoint service running inside your AWS account that you want Device Farm to test.
+cvecVpceServiceName :: Lens' CreateVPCEConfiguration Text
+cvecVpceServiceName = lens _cvecVpceServiceName (\ s a -> s{_cvecVpceServiceName = a})
+
+-- | The DNS name of the service running in your VPC that you want Device Farm to test.
+cvecServiceDNSName :: Lens' CreateVPCEConfiguration Text
+cvecServiceDNSName = lens _cvecServiceDNSName (\ s a -> s{_cvecServiceDNSName = a})
+
+instance AWSRequest CreateVPCEConfiguration where
+ type Rs CreateVPCEConfiguration =
+ CreateVPCEConfigurationResponse
+ request = postJSON deviceFarm
+ response
+ = receiveJSON
+ (\ s h x ->
+ CreateVPCEConfigurationResponse' <$>
+ (x .?> "vpceConfiguration") <*> (pure (fromEnum s)))
+
+instance Hashable CreateVPCEConfiguration where
+
+instance NFData CreateVPCEConfiguration where
+
+instance ToHeaders CreateVPCEConfiguration where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("DeviceFarm_20150623.CreateVPCEConfiguration" ::
+ ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON CreateVPCEConfiguration where
+ toJSON CreateVPCEConfiguration'{..}
+ = object
+ (catMaybes
+ [("vpceConfigurationDescription" .=) <$>
+ _cvecVpceConfigurationDescription,
+ Just
+ ("vpceConfigurationName" .=
+ _cvecVpceConfigurationName),
+ Just ("vpceServiceName" .= _cvecVpceServiceName),
+ Just ("serviceDnsName" .= _cvecServiceDNSName)])
+
+instance ToPath CreateVPCEConfiguration where
+ toPath = const "/"
+
+instance ToQuery CreateVPCEConfiguration where
+ toQuery = const mempty
+
+-- | /See:/ 'createVPCEConfigurationResponse' smart constructor.
+data CreateVPCEConfigurationResponse = CreateVPCEConfigurationResponse'
+ { _cvecrsVpceConfiguration :: !(Maybe VPCEConfiguration)
+ , _cvecrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'CreateVPCEConfigurationResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'cvecrsVpceConfiguration' - An object containing information about your VPC endpoint configuration.
+--
+-- * 'cvecrsResponseStatus' - -- | The response status code.
+createVPCEConfigurationResponse
+ :: Int -- ^ 'cvecrsResponseStatus'
+ -> CreateVPCEConfigurationResponse
+createVPCEConfigurationResponse pResponseStatus_ =
+ CreateVPCEConfigurationResponse'
+ { _cvecrsVpceConfiguration = Nothing
+ , _cvecrsResponseStatus = pResponseStatus_
+ }
+
+
+-- | An object containing information about your VPC endpoint configuration.
+cvecrsVpceConfiguration :: Lens' CreateVPCEConfigurationResponse (Maybe VPCEConfiguration)
+cvecrsVpceConfiguration = lens _cvecrsVpceConfiguration (\ s a -> s{_cvecrsVpceConfiguration = a})
+
+-- | -- | The response status code.
+cvecrsResponseStatus :: Lens' CreateVPCEConfigurationResponse Int
+cvecrsResponseStatus = lens _cvecrsResponseStatus (\ s a -> s{_cvecrsResponseStatus = a})
+
+instance NFData CreateVPCEConfigurationResponse where
diff --git a/gen/Network/AWS/DeviceFarm/DeleteDevicePool.hs b/gen/Network/AWS/DeviceFarm/DeleteDevicePool.hs
index c83238a..eb99651 100644
--- a/gen/Network/AWS/DeviceFarm/DeleteDevicePool.hs
+++ b/gen/Network/AWS/DeviceFarm/DeleteDevicePool.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.DeleteDevicePool
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -66,7 +66,7 @@ deleteDevicePool pArn_ = DeleteDevicePool' {_ddpArn = pArn_}
-- | Represents the Amazon Resource Name (ARN) of the Device Farm device pool you wish to delete.
ddpArn :: Lens' DeleteDevicePool Text
-ddpArn = lens _ddpArn (\ s a -> s{_ddpArn = a});
+ddpArn = lens _ddpArn (\ s a -> s{_ddpArn = a})
instance AWSRequest DeleteDevicePool where
type Rs DeleteDevicePool = DeleteDevicePoolResponse
@@ -124,6 +124,6 @@ deleteDevicePoolResponse pResponseStatus_ =
-- | -- | The response status code.
ddprsResponseStatus :: Lens' DeleteDevicePoolResponse Int
-ddprsResponseStatus = lens _ddprsResponseStatus (\ s a -> s{_ddprsResponseStatus = a});
+ddprsResponseStatus = lens _ddprsResponseStatus (\ s a -> s{_ddprsResponseStatus = a})
instance NFData DeleteDevicePoolResponse where
diff --git a/gen/Network/AWS/DeviceFarm/DeleteInstanceProfile.hs b/gen/Network/AWS/DeviceFarm/DeleteInstanceProfile.hs
new file mode 100644
index 0000000..71b9e74
--- /dev/null
+++ b/gen/Network/AWS/DeviceFarm/DeleteInstanceProfile.hs
@@ -0,0 +1,123 @@
+{-# 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.DeleteInstanceProfile
+-- Copyright : (c) 2013-2018 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Deletes a profile that can be applied to one or more private device instances.
+--
+--
+module Network.AWS.DeviceFarm.DeleteInstanceProfile
+ (
+ -- * Creating a Request
+ deleteInstanceProfile
+ , DeleteInstanceProfile
+ -- * Request Lenses
+ , dipArn
+
+ -- * Destructuring the Response
+ , deleteInstanceProfileResponse
+ , DeleteInstanceProfileResponse
+ -- * Response Lenses
+ , diprsResponseStatus
+ ) 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
+
+-- | /See:/ 'deleteInstanceProfile' smart constructor.
+newtype DeleteInstanceProfile = DeleteInstanceProfile'
+ { _dipArn :: Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'DeleteInstanceProfile' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'dipArn' - The Amazon Resource Name (ARN) of the instance profile you are requesting to delete.
+deleteInstanceProfile
+ :: Text -- ^ 'dipArn'
+ -> DeleteInstanceProfile
+deleteInstanceProfile pArn_ = DeleteInstanceProfile' {_dipArn = pArn_}
+
+
+-- | The Amazon Resource Name (ARN) of the instance profile you are requesting to delete.
+dipArn :: Lens' DeleteInstanceProfile Text
+dipArn = lens _dipArn (\ s a -> s{_dipArn = a})
+
+instance AWSRequest DeleteInstanceProfile where
+ type Rs DeleteInstanceProfile =
+ DeleteInstanceProfileResponse
+ request = postJSON deviceFarm
+ response
+ = receiveEmpty
+ (\ s h x ->
+ DeleteInstanceProfileResponse' <$>
+ (pure (fromEnum s)))
+
+instance Hashable DeleteInstanceProfile where
+
+instance NFData DeleteInstanceProfile where
+
+instance ToHeaders DeleteInstanceProfile where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("DeviceFarm_20150623.DeleteInstanceProfile" ::
+ ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON DeleteInstanceProfile where
+ toJSON DeleteInstanceProfile'{..}
+ = object (catMaybes [Just ("arn" .= _dipArn)])
+
+instance ToPath DeleteInstanceProfile where
+ toPath = const "/"
+
+instance ToQuery DeleteInstanceProfile where
+ toQuery = const mempty
+
+-- | /See:/ 'deleteInstanceProfileResponse' smart constructor.
+newtype DeleteInstanceProfileResponse = DeleteInstanceProfileResponse'
+ { _diprsResponseStatus :: Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'DeleteInstanceProfileResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'diprsResponseStatus' - -- | The response status code.
+deleteInstanceProfileResponse
+ :: Int -- ^ 'diprsResponseStatus'
+ -> DeleteInstanceProfileResponse
+deleteInstanceProfileResponse pResponseStatus_ =
+ DeleteInstanceProfileResponse' {_diprsResponseStatus = pResponseStatus_}
+
+
+-- | -- | The response status code.
+diprsResponseStatus :: Lens' DeleteInstanceProfileResponse Int
+diprsResponseStatus = lens _diprsResponseStatus (\ s a -> s{_diprsResponseStatus = a})
+
+instance NFData DeleteInstanceProfileResponse where
diff --git a/gen/Network/AWS/DeviceFarm/DeleteNetworkProfile.hs b/gen/Network/AWS/DeviceFarm/DeleteNetworkProfile.hs
index 0300f3e..b556196 100644
--- a/gen/Network/AWS/DeviceFarm/DeleteNetworkProfile.hs
+++ b/gen/Network/AWS/DeviceFarm/DeleteNetworkProfile.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.DeleteNetworkProfile
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -62,7 +62,7 @@ deleteNetworkProfile pArn_ = DeleteNetworkProfile' {_dnpArn = pArn_}
-- | The Amazon Resource Name (ARN) of the network profile you want to delete.
dnpArn :: Lens' DeleteNetworkProfile Text
-dnpArn = lens _dnpArn (\ s a -> s{_dnpArn = a});
+dnpArn = lens _dnpArn (\ s a -> s{_dnpArn = a})
instance AWSRequest DeleteNetworkProfile where
type Rs DeleteNetworkProfile =
@@ -118,6 +118,6 @@ deleteNetworkProfileResponse pResponseStatus_ =
-- | -- | The response status code.
dnprsResponseStatus :: Lens' DeleteNetworkProfileResponse Int
-dnprsResponseStatus = lens _dnprsResponseStatus (\ s a -> s{_dnprsResponseStatus = a});
+dnprsResponseStatus = lens _dnprsResponseStatus (\ s a -> s{_dnprsResponseStatus = a})
instance NFData DeleteNetworkProfileResponse where
diff --git a/gen/Network/AWS/DeviceFarm/DeleteProject.hs b/gen/Network/AWS/DeviceFarm/DeleteProject.hs
index aad58f0..bf140be 100644
--- a/gen/Network/AWS/DeviceFarm/DeleteProject.hs
+++ b/gen/Network/AWS/DeviceFarm/DeleteProject.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.DeleteProject
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -68,7 +68,7 @@ deleteProject pArn_ = DeleteProject' {_dpArn = pArn_}
-- | Represents the Amazon Resource Name (ARN) of the Device Farm project you wish to delete.
dpArn :: Lens' DeleteProject Text
-dpArn = lens _dpArn (\ s a -> s{_dpArn = a});
+dpArn = lens _dpArn (\ s a -> s{_dpArn = a})
instance AWSRequest DeleteProject where
type Rs DeleteProject = DeleteProjectResponse
@@ -125,6 +125,6 @@ deleteProjectResponse pResponseStatus_ =
-- | -- | The response status code.
dprsResponseStatus :: Lens' DeleteProjectResponse Int
-dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a});
+dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a})
instance NFData DeleteProjectResponse where
diff --git a/gen/Network/AWS/DeviceFarm/DeleteRemoteAccessSession.hs b/gen/Network/AWS/DeviceFarm/DeleteRemoteAccessSession.hs
index 0d7778c..acc5144 100644
--- a/gen/Network/AWS/DeviceFarm/DeleteRemoteAccessSession.hs
+++ b/gen/Network/AWS/DeviceFarm/DeleteRemoteAccessSession.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.DeleteRemoteAccessSession
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -66,7 +66,7 @@ deleteRemoteAccessSession pArn_ = DeleteRemoteAccessSession' {_drasArn = pArn_}
-- | The Amazon Resource Name (ARN) of the sesssion for which you want to delete remote access.
drasArn :: Lens' DeleteRemoteAccessSession Text
-drasArn = lens _drasArn (\ s a -> s{_drasArn = a});
+drasArn = lens _drasArn (\ s a -> s{_drasArn = a})
instance AWSRequest DeleteRemoteAccessSession where
type Rs DeleteRemoteAccessSession =
@@ -126,7 +126,7 @@ deleteRemoteAccessSessionResponse pResponseStatus_ =
-- | -- | The response status code.
drasrsResponseStatus :: Lens' DeleteRemoteAccessSessionResponse Int
-drasrsResponseStatus = lens _drasrsResponseStatus (\ s a -> s{_drasrsResponseStatus = a});
+drasrsResponseStatus = lens _drasrsResponseStatus (\ s a -> s{_drasrsResponseStatus = a})
instance NFData DeleteRemoteAccessSessionResponse
where
diff --git a/gen/Network/AWS/DeviceFarm/DeleteRun.hs b/gen/Network/AWS/DeviceFarm/DeleteRun.hs
index 2423a20..4e19635 100644
--- a/gen/Network/AWS/DeviceFarm/DeleteRun.hs
+++ b/gen/Network/AWS/DeviceFarm/DeleteRun.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.DeleteRun
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -68,7 +68,7 @@ deleteRun pArn_ = DeleteRun' {_drArn = pArn_}
-- | The Amazon Resource Name (ARN) for the run you wish to delete.
drArn :: Lens' DeleteRun Text
-drArn = lens _drArn (\ s a -> s{_drArn = a});
+drArn = lens _drArn (\ s a -> s{_drArn = a})
instance AWSRequest DeleteRun where
type Rs DeleteRun = DeleteRunResponse
@@ -125,6 +125,6 @@ deleteRunResponse pResponseStatus_ =
-- | -- | The response status code.
drrsResponseStatus :: Lens' DeleteRunResponse Int
-drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a});
+drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a})
instance NFData DeleteRunResponse where
diff --git a/gen/Network/AWS/DeviceFarm/DeleteUpload.hs b/gen/Network/AWS/DeviceFarm/DeleteUpload.hs
index 710a88c..b892cba 100644
--- a/gen/Network/AWS/DeviceFarm/DeleteUpload.hs
+++ b/gen/Network/AWS/DeviceFarm/DeleteUpload.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.DeleteUpload
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -66,7 +66,7 @@ deleteUpload pArn_ = DeleteUpload' {_duArn = pArn_}
-- | Represents the Amazon Resource Name (ARN) of the Device Farm upload you wish to delete.
duArn :: Lens' DeleteUpload Text
-duArn = lens _duArn (\ s a -> s{_duArn = a});
+duArn = lens _duArn (\ s a -> s{_duArn = a})
instance AWSRequest DeleteUpload where
type Rs DeleteUpload = DeleteUploadResponse
@@ -123,6 +123,6 @@ deleteUploadResponse pResponseStatus_ =
-- | -- | The response status code.
dursResponseStatus :: Lens' DeleteUploadResponse Int
-dursResponseStatus = lens _dursResponseStatus (\ s a -> s{_dursResponseStatus = a});
+dursResponseStatus = lens _dursResponseStatus (\ s a -> s{_dursResponseStatus = a})
instance NFData DeleteUploadResponse where
diff --git a/gen/Network/AWS/DeviceFarm/DeleteVPCEConfiguration.hs b/gen/Network/AWS/DeviceFarm/DeleteVPCEConfiguration.hs
new file mode 100644
index 0000000..6d5b574
--- /dev/null
+++ b/gen/Network/AWS/DeviceFarm/DeleteVPCEConfiguration.hs
@@ -0,0 +1,123 @@
+{-# 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.DeleteVPCEConfiguration
+-- Copyright : (c) 2013-2018 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Deletes a configuration for your Amazon Virtual Private Cloud (VPC) endpoint.
+--
+--
+module Network.AWS.DeviceFarm.DeleteVPCEConfiguration
+ (
+ -- * Creating a Request
+ deleteVPCEConfiguration
+ , DeleteVPCEConfiguration
+ -- * Request Lenses
+ , dvecArn
+
+ -- * Destructuring the Response
+ , deleteVPCEConfigurationResponse
+ , DeleteVPCEConfigurationResponse
+ -- * Response Lenses
+ , dvecrsResponseStatus
+ ) 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
+
+-- | /See:/ 'deleteVPCEConfiguration' smart constructor.
+newtype DeleteVPCEConfiguration = DeleteVPCEConfiguration'
+ { _dvecArn :: Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'DeleteVPCEConfiguration' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'dvecArn' - The Amazon Resource Name (ARN) of the VPC endpoint configuration you want to delete.
+deleteVPCEConfiguration
+ :: Text -- ^ 'dvecArn'
+ -> DeleteVPCEConfiguration
+deleteVPCEConfiguration pArn_ = DeleteVPCEConfiguration' {_dvecArn = pArn_}
+
+
+-- | The Amazon Resource Name (ARN) of the VPC endpoint configuration you want to delete.
+dvecArn :: Lens' DeleteVPCEConfiguration Text
+dvecArn = lens _dvecArn (\ s a -> s{_dvecArn = a})
+
+instance AWSRequest DeleteVPCEConfiguration where
+ type Rs DeleteVPCEConfiguration =
+ DeleteVPCEConfigurationResponse
+ request = postJSON deviceFarm
+ response
+ = receiveEmpty
+ (\ s h x ->
+ DeleteVPCEConfigurationResponse' <$>
+ (pure (fromEnum s)))
+
+instance Hashable DeleteVPCEConfiguration where
+
+instance NFData DeleteVPCEConfiguration where
+
+instance ToHeaders DeleteVPCEConfiguration where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("DeviceFarm_20150623.DeleteVPCEConfiguration" ::
+ ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON DeleteVPCEConfiguration where
+ toJSON DeleteVPCEConfiguration'{..}
+ = object (catMaybes [Just ("arn" .= _dvecArn)])
+
+instance ToPath DeleteVPCEConfiguration where
+ toPath = const "/"
+
+instance ToQuery DeleteVPCEConfiguration where
+ toQuery = const mempty
+
+-- | /See:/ 'deleteVPCEConfigurationResponse' smart constructor.
+newtype DeleteVPCEConfigurationResponse = DeleteVPCEConfigurationResponse'
+ { _dvecrsResponseStatus :: Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'DeleteVPCEConfigurationResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'dvecrsResponseStatus' - -- | The response status code.
+deleteVPCEConfigurationResponse
+ :: Int -- ^ 'dvecrsResponseStatus'
+ -> DeleteVPCEConfigurationResponse
+deleteVPCEConfigurationResponse pResponseStatus_ =
+ DeleteVPCEConfigurationResponse' {_dvecrsResponseStatus = pResponseStatus_}
+
+
+-- | -- | The response status code.
+dvecrsResponseStatus :: Lens' DeleteVPCEConfigurationResponse Int
+dvecrsResponseStatus = lens _dvecrsResponseStatus (\ s a -> s{_dvecrsResponseStatus = a})
+
+instance NFData DeleteVPCEConfigurationResponse where
diff --git a/gen/Network/AWS/DeviceFarm/GetAccountSettings.hs b/gen/Network/AWS/DeviceFarm/GetAccountSettings.hs
index b6466ca..5942c95 100644
--- a/gen/Network/AWS/DeviceFarm/GetAccountSettings.hs
+++ b/gen/Network/AWS/DeviceFarm/GetAccountSettings.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.GetAccountSettings
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -115,15 +115,15 @@ getAccountSettingsResponse
-> GetAccountSettingsResponse
getAccountSettingsResponse pResponseStatus_ =
GetAccountSettingsResponse'
- {_gasrsAccountSettings = Nothing, _gasrsResponseStatus = pResponseStatus_}
+ {_gasrsAccountSettings = Nothing, _gasrsResponseStatus = pResponseStatus_}
-- | The account settings.
gasrsAccountSettings :: Lens' GetAccountSettingsResponse (Maybe AccountSettings)
-gasrsAccountSettings = lens _gasrsAccountSettings (\ s a -> s{_gasrsAccountSettings = a});
+gasrsAccountSettings = lens _gasrsAccountSettings (\ s a -> s{_gasrsAccountSettings = a})
-- | -- | The response status code.
gasrsResponseStatus :: Lens' GetAccountSettingsResponse Int
-gasrsResponseStatus = lens _gasrsResponseStatus (\ s a -> s{_gasrsResponseStatus = a});
+gasrsResponseStatus = lens _gasrsResponseStatus (\ s a -> s{_gasrsResponseStatus = a})
instance NFData GetAccountSettingsResponse where
diff --git a/gen/Network/AWS/DeviceFarm/GetDevice.hs b/gen/Network/AWS/DeviceFarm/GetDevice.hs
index b35aeb2..0f13bcf 100644
--- a/gen/Network/AWS/DeviceFarm/GetDevice.hs
+++ b/gen/Network/AWS/DeviceFarm/GetDevice.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.GetDevice
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -67,7 +67,7 @@ getDevice pArn_ = GetDevice' {_gdArn = pArn_}
-- | The device type's ARN.
gdArn :: Lens' GetDevice Text
-gdArn = lens _gdArn (\ s a -> s{_gdArn = a});
+gdArn = lens _gdArn (\ s a -> s{_gdArn = a})
instance AWSRequest GetDevice where
type Rs GetDevice = GetDeviceResponse
@@ -124,15 +124,15 @@ getDeviceResponse
-> GetDeviceResponse
getDeviceResponse pResponseStatus_ =
GetDeviceResponse'
- {_gdrsDevice = Nothing, _gdrsResponseStatus = pResponseStatus_}
+ {_gdrsDevice = Nothing, _gdrsResponseStatus = pResponseStatus_}
-- | An object containing information about the requested device.
gdrsDevice :: Lens' GetDeviceResponse (Maybe Device)
-gdrsDevice = lens _gdrsDevice (\ s a -> s{_gdrsDevice = a});
+gdrsDevice = lens _gdrsDevice (\ s a -> s{_gdrsDevice = a})
-- | -- | The response status code.
gdrsResponseStatus :: Lens' GetDeviceResponse Int
-gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a});
+gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a})
instance NFData GetDeviceResponse where
diff --git a/gen/Network/AWS/DeviceFarm/GetDeviceInstance.hs b/gen/Network/AWS/DeviceFarm/GetDeviceInstance.hs
new file mode 100644
index 0000000..75a76ba
--- /dev/null
+++ b/gen/Network/AWS/DeviceFarm/GetDeviceInstance.hs
@@ -0,0 +1,131 @@
+{-# 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.GetDeviceInstance
+-- Copyright : (c) 2013-2018 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Returns information about a device instance belonging to a private device fleet.
+--
+--
+module Network.AWS.DeviceFarm.GetDeviceInstance
+ (
+ -- * Creating a Request
+ getDeviceInstance
+ , GetDeviceInstance
+ -- * Request Lenses
+ , gdiArn
+
+ -- * Destructuring the Response
+ , getDeviceInstanceResponse
+ , GetDeviceInstanceResponse
+ -- * Response Lenses
+ , gdirsDeviceInstance
+ , gdirsResponseStatus
+ ) 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
+
+-- | /See:/ 'getDeviceInstance' smart constructor.
+newtype GetDeviceInstance = GetDeviceInstance'
+ { _gdiArn :: Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'GetDeviceInstance' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'gdiArn' - The Amazon Resource Name (ARN) of the instance you're requesting information about.
+getDeviceInstance
+ :: Text -- ^ 'gdiArn'
+ -> GetDeviceInstance
+getDeviceInstance pArn_ = GetDeviceInstance' {_gdiArn = pArn_}
+
+
+-- | The Amazon Resource Name (ARN) of the instance you're requesting information about.
+gdiArn :: Lens' GetDeviceInstance Text
+gdiArn = lens _gdiArn (\ s a -> s{_gdiArn = a})
+
+instance AWSRequest GetDeviceInstance where
+ type Rs GetDeviceInstance = GetDeviceInstanceResponse
+ request = postJSON deviceFarm
+ response
+ = receiveJSON
+ (\ s h x ->
+ GetDeviceInstanceResponse' <$>
+ (x .?> "deviceInstance") <*> (pure (fromEnum s)))
+
+instance Hashable GetDeviceInstance where
+
+instance NFData GetDeviceInstance where
+
+instance ToHeaders GetDeviceInstance where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("DeviceFarm_20150623.GetDeviceInstance" ::
+ ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON GetDeviceInstance where
+ toJSON GetDeviceInstance'{..}
+ = object (catMaybes [Just ("arn" .= _gdiArn)])
+
+instance ToPath GetDeviceInstance where
+ toPath = const "/"
+
+instance ToQuery GetDeviceInstance where
+ toQuery = const mempty
+
+-- | /See:/ 'getDeviceInstanceResponse' smart constructor.
+data GetDeviceInstanceResponse = GetDeviceInstanceResponse'
+ { _gdirsDeviceInstance :: !(Maybe DeviceInstance)
+ , _gdirsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'GetDeviceInstanceResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'gdirsDeviceInstance' - An object containing information about your device instance.
+--
+-- * 'gdirsResponseStatus' - -- | The response status code.
+getDeviceInstanceResponse
+ :: Int -- ^ 'gdirsResponseStatus'
+ -> GetDeviceInstanceResponse
+getDeviceInstanceResponse pResponseStatus_ =
+ GetDeviceInstanceResponse'
+ {_gdirsDeviceInstance = Nothing, _gdirsResponseStatus = pResponseStatus_}
+
+
+-- | An object containing information about your device instance.
+gdirsDeviceInstance :: Lens' GetDeviceInstanceResponse (Maybe DeviceInstance)
+gdirsDeviceInstance = lens _gdirsDeviceInstance (\ s a -> s{_gdirsDeviceInstance = a})
+
+-- | -- | The response status code.
+gdirsResponseStatus :: Lens' GetDeviceInstanceResponse Int
+gdirsResponseStatus = lens _gdirsResponseStatus (\ s a -> s{_gdirsResponseStatus = a})
+
+instance NFData GetDeviceInstanceResponse where
diff --git a/gen/Network/AWS/DeviceFarm/GetDevicePool.hs b/gen/Network/AWS/DeviceFarm/GetDevicePool.hs
index 0c4f359..d65a54f 100644
--- a/gen/Network/AWS/DeviceFarm/GetDevicePool.hs
+++ b/gen/Network/AWS/DeviceFarm/GetDevicePool.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.GetDevicePool
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -67,7 +67,7 @@ getDevicePool pArn_ = GetDevicePool' {_gdpArn = pArn_}
-- | The device pool's ARN.
gdpArn :: Lens' GetDevicePool Text
-gdpArn = lens _gdpArn (\ s a -> s{_gdpArn = a});
+gdpArn = lens _gdpArn (\ s a -> s{_gdpArn = a})
instance AWSRequest GetDevicePool where
type Rs GetDevicePool = GetDevicePoolResponse
@@ -124,15 +124,15 @@ getDevicePoolResponse
-> GetDevicePoolResponse
getDevicePoolResponse pResponseStatus_ =
GetDevicePoolResponse'
- {_gdprsDevicePool = Nothing, _gdprsResponseStatus = pResponseStatus_}
+ {_gdprsDevicePool = Nothing, _gdprsResponseStatus = pResponseStatus_}
-- | An object containing information about the requested device pool.
gdprsDevicePool :: Lens' GetDevicePoolResponse (Maybe DevicePool)
-gdprsDevicePool = lens _gdprsDevicePool (\ s a -> s{_gdprsDevicePool = a});
+gdprsDevicePool = lens _gdprsDevicePool (\ s a -> s{_gdprsDevicePool = a})
-- | -- | The response status code.
gdprsResponseStatus :: Lens' GetDevicePoolResponse Int
-gdprsResponseStatus = lens _gdprsResponseStatus (\ s a -> s{_gdprsResponseStatus = a});
+gdprsResponseStatus = lens _gdprsResponseStatus (\ s a -> s{_gdprsResponseStatus = a})
instance NFData GetDevicePoolResponse where
diff --git a/gen/Network/AWS/DeviceFarm/GetDevicePoolCompatibility.hs b/gen/Network/AWS/DeviceFarm/GetDevicePoolCompatibility.hs
index 268e3d2..656de54 100644
--- a/gen/Network/AWS/DeviceFarm/GetDevicePoolCompatibility.hs
+++ b/gen/Network/AWS/DeviceFarm/GetDevicePoolCompatibility.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.GetDevicePoolCompatibility
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -29,6 +29,7 @@ module Network.AWS.DeviceFarm.GetDevicePoolCompatibility
-- * Request Lenses
, gdpcTest
, gdpcAppARN
+ , gdpcConfiguration
, gdpcTestType
, gdpcDevicePoolARN
@@ -56,6 +57,7 @@ import Network.AWS.Response
data GetDevicePoolCompatibility = GetDevicePoolCompatibility'
{ _gdpcTest :: !(Maybe ScheduleRunTest)
, _gdpcAppARN :: !(Maybe Text)
+ , _gdpcConfiguration :: !(Maybe ScheduleRunConfiguration)
, _gdpcTestType :: !(Maybe TestType)
, _gdpcDevicePoolARN :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
@@ -69,6 +71,8 @@ data GetDevicePoolCompatibility = GetDevicePoolCompatibility'
--
-- * 'gdpcAppARN' - The ARN of the app that is associated with the specified device pool.
--
+-- * 'gdpcConfiguration' - An object containing information about the settings for a run.
+--
-- * 'gdpcTestType' - The test type for the specified device pool. Allowed values include the following: * BUILTIN_FUZZ: The built-in fuzz type. * BUILTIN_EXPLORER: For Android, an app explorer that will traverse an Android app, interacting with it and capturing screenshots at the same time. * APPIUM_JAVA_JUNIT: The Appium Java JUnit type. * APPIUM_JAVA_TESTNG: The Appium Java TestNG type. * APPIUM_PYTHON: The Appium Python type. * APPIUM_WEB_JAVA_JUNIT: The Appium Java JUnit type for Web apps. * APPIUM_WEB_JAVA_TESTNG: The Appium Java TestNG type for Web apps. * APPIUM_WEB_PYTHON: The Appium Python type for Web apps. * CALABASH: The Calabash type. * INSTRUMENTATION: The Instrumentation type. * UIAUTOMATION: The uiautomation type. * UIAUTOMATOR: The uiautomator type. * XCTEST: The XCode test type. * XCTEST_UI: The XCode UI test type.
--
-- * 'gdpcDevicePoolARN' - The device pool's ARN.
@@ -77,28 +81,33 @@ getDevicePoolCompatibility
-> GetDevicePoolCompatibility
getDevicePoolCompatibility pDevicePoolARN_ =
GetDevicePoolCompatibility'
- { _gdpcTest = Nothing
- , _gdpcAppARN = Nothing
- , _gdpcTestType = Nothing
- , _gdpcDevicePoolARN = pDevicePoolARN_
- }
+ { _gdpcTest = Nothing
+ , _gdpcAppARN = Nothing
+ , _gdpcConfiguration = Nothing
+ , _gdpcTestType = Nothing
+ , _gdpcDevicePoolARN = pDevicePoolARN_
+ }
-- | Information about the uploaded test to be run against the device pool.
gdpcTest :: Lens' GetDevicePoolCompatibility (Maybe ScheduleRunTest)
-gdpcTest = lens _gdpcTest (\ s a -> s{_gdpcTest = a});
+gdpcTest = lens _gdpcTest (\ s a -> s{_gdpcTest = a})
-- | The ARN of the app that is associated with the specified device pool.
gdpcAppARN :: Lens' GetDevicePoolCompatibility (Maybe Text)
-gdpcAppARN = lens _gdpcAppARN (\ s a -> s{_gdpcAppARN = a});
+gdpcAppARN = lens _gdpcAppARN (\ s a -> s{_gdpcAppARN = a})
+
+-- | An object containing information about the settings for a run.
+gdpcConfiguration :: Lens' GetDevicePoolCompatibility (Maybe ScheduleRunConfiguration)
+gdpcConfiguration = lens _gdpcConfiguration (\ s a -> s{_gdpcConfiguration = a})
-- | The test type for the specified device pool. Allowed values include the following: * BUILTIN_FUZZ: The built-in fuzz type. * BUILTIN_EXPLORER: For Android, an app explorer that will traverse an Android app, interacting with it and capturing screenshots at the same time. * APPIUM_JAVA_JUNIT: The Appium Java JUnit type. * APPIUM_JAVA_TESTNG: The Appium Java TestNG type. * APPIUM_PYTHON: The Appium Python type. * APPIUM_WEB_JAVA_JUNIT: The Appium Java JUnit type for Web apps. * APPIUM_WEB_JAVA_TESTNG: The Appium Java TestNG type for Web apps. * APPIUM_WEB_PYTHON: The Appium Python type for Web apps. * CALABASH: The Calabash type. * INSTRUMENTATION: The Instrumentation type. * UIAUTOMATION: The uiautomation type. * UIAUTOMATOR: The uiautomator type. * XCTEST: The XCode test type. * XCTEST_UI: The XCode UI test type.
gdpcTestType :: Lens' GetDevicePoolCompatibility (Maybe TestType)
-gdpcTestType = lens _gdpcTestType (\ s a -> s{_gdpcTestType = a});
+gdpcTestType = lens _gdpcTestType (\ s a -> s{_gdpcTestType = a})
-- | The device pool's ARN.
gdpcDevicePoolARN :: Lens' GetDevicePoolCompatibility Text
-gdpcDevicePoolARN = lens _gdpcDevicePoolARN (\ s a -> s{_gdpcDevicePoolARN = a});
+gdpcDevicePoolARN = lens _gdpcDevicePoolARN (\ s a -> s{_gdpcDevicePoolARN = a})
instance AWSRequest GetDevicePoolCompatibility where
type Rs GetDevicePoolCompatibility =
@@ -132,6 +141,7 @@ instance ToJSON GetDevicePoolCompatibility where
(catMaybes
[("test" .=) <$> _gdpcTest,
("appArn" .=) <$> _gdpcAppARN,
+ ("configuration" .=) <$> _gdpcConfiguration,
("testType" .=) <$> _gdpcTestType,
Just ("devicePoolArn" .= _gdpcDevicePoolARN)])
@@ -167,23 +177,23 @@ getDevicePoolCompatibilityResponse
-> GetDevicePoolCompatibilityResponse
getDevicePoolCompatibilityResponse pResponseStatus_ =
GetDevicePoolCompatibilityResponse'
- { _gdpcrsIncompatibleDevices = Nothing
- , _gdpcrsCompatibleDevices = Nothing
- , _gdpcrsResponseStatus = pResponseStatus_
- }
+ { _gdpcrsIncompatibleDevices = Nothing
+ , _gdpcrsCompatibleDevices = Nothing
+ , _gdpcrsResponseStatus = pResponseStatus_
+ }
-- | Information about incompatible devices.
gdpcrsIncompatibleDevices :: Lens' GetDevicePoolCompatibilityResponse [DevicePoolCompatibilityResult]
-gdpcrsIncompatibleDevices = lens _gdpcrsIncompatibleDevices (\ s a -> s{_gdpcrsIncompatibleDevices = a}) . _Default . _Coerce;
+gdpcrsIncompatibleDevices = lens _gdpcrsIncompatibleDevices (\ s a -> s{_gdpcrsIncompatibleDevices = a}) . _Default . _Coerce
-- | Information about compatible devices.
gdpcrsCompatibleDevices :: Lens' GetDevicePoolCompatibilityResponse [DevicePoolCompatibilityResult]
-gdpcrsCompatibleDevices = lens _gdpcrsCompatibleDevices (\ s a -> s{_gdpcrsCompatibleDevices = a}) . _Default . _Coerce;
+gdpcrsCompatibleDevices = lens _gdpcrsCompatibleDevices (\ s a -> s{_gdpcrsCompatibleDevices = a}) . _Default . _Coerce
-- | -- | The response status code.
gdpcrsResponseStatus :: Lens' GetDevicePoolCompatibilityResponse Int
-gdpcrsResponseStatus = lens _gdpcrsResponseStatus (\ s a -> s{_gdpcrsResponseStatus = a});
+gdpcrsResponseStatus = lens _gdpcrsResponseStatus (\ s a -> s{_gdpcrsResponseStatus = a})
instance NFData GetDevicePoolCompatibilityResponse
where
diff --git a/gen/Network/AWS/DeviceFarm/GetInstanceProfile.hs b/gen/Network/AWS/DeviceFarm/GetInstanceProfile.hs
new file mode 100644
index 0000000..7af7694
--- /dev/null
+++ b/gen/Network/AWS/DeviceFarm/GetInstanceProfile.hs
@@ -0,0 +1,132 @@
+{-# 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.GetInstanceProfile
+-- Copyright : (c) 2013-2018 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Returns information about the specified instance profile.
+--
+--
+module Network.AWS.DeviceFarm.GetInstanceProfile
+ (
+ -- * Creating a Request
+ getInstanceProfile
+ , GetInstanceProfile
+ -- * Request Lenses
+ , gipArn
+
+ -- * Destructuring the Response
+ , getInstanceProfileResponse
+ , GetInstanceProfileResponse
+ -- * Response Lenses
+ , giprsInstanceProfile
+ , giprsResponseStatus
+ ) 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
+
+-- | /See:/ 'getInstanceProfile' smart constructor.
+newtype GetInstanceProfile = GetInstanceProfile'
+ { _gipArn :: Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'GetInstanceProfile' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'gipArn' - The Amazon Resource Name (ARN) of your instance profile.
+getInstanceProfile
+ :: Text -- ^ 'gipArn'
+ -> GetInstanceProfile
+getInstanceProfile pArn_ = GetInstanceProfile' {_gipArn = pArn_}
+
+
+-- | The Amazon Resource Name (ARN) of your instance profile.
+gipArn :: Lens' GetInstanceProfile Text
+gipArn = lens _gipArn (\ s a -> s{_gipArn = a})
+
+instance AWSRequest GetInstanceProfile where
+ type Rs GetInstanceProfile =
+ GetInstanceProfileResponse
+ request = postJSON deviceFarm
+ response
+ = receiveJSON
+ (\ s h x ->
+ GetInstanceProfileResponse' <$>
+ (x .?> "instanceProfile") <*> (pure (fromEnum s)))
+
+instance Hashable GetInstanceProfile where
+
+instance NFData GetInstanceProfile where
+
+instance ToHeaders GetInstanceProfile where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("DeviceFarm_20150623.GetInstanceProfile" ::
+ ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON GetInstanceProfile where
+ toJSON GetInstanceProfile'{..}
+ = object (catMaybes [Just ("arn" .= _gipArn)])
+
+instance ToPath GetInstanceProfile where
+ toPath = const "/"
+
+instance ToQuery GetInstanceProfile where
+ toQuery = const mempty
+
+-- | /See:/ 'getInstanceProfileResponse' smart constructor.
+data GetInstanceProfileResponse = GetInstanceProfileResponse'
+ { _giprsInstanceProfile :: !(Maybe InstanceProfile)
+ , _giprsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'GetInstanceProfileResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'giprsInstanceProfile' - An object containing information about your instance profile.
+--
+-- * 'giprsResponseStatus' - -- | The response status code.
+getInstanceProfileResponse
+ :: Int -- ^ 'giprsResponseStatus'
+ -> GetInstanceProfileResponse
+getInstanceProfileResponse pResponseStatus_ =
+ GetInstanceProfileResponse'
+ {_giprsInstanceProfile = Nothing, _giprsResponseStatus = pResponseStatus_}
+
+
+-- | An object containing information about your instance profile.
+giprsInstanceProfile :: Lens' GetInstanceProfileResponse (Maybe InstanceProfile)
+giprsInstanceProfile = lens _giprsInstanceProfile (\ s a -> s{_giprsInstanceProfile = a})
+
+-- | -- | The response status code.
+giprsResponseStatus :: Lens' GetInstanceProfileResponse Int
+giprsResponseStatus = lens _giprsResponseStatus (\ s a -> s{_giprsResponseStatus = a})
+
+instance NFData GetInstanceProfileResponse where
diff --git a/gen/Network/AWS/DeviceFarm/GetJob.hs b/gen/Network/AWS/DeviceFarm/GetJob.hs
index 2182eaa..7727403 100644
--- a/gen/Network/AWS/DeviceFarm/GetJob.hs
+++ b/gen/Network/AWS/DeviceFarm/GetJob.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.GetJob
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -67,7 +67,7 @@ getJob pArn_ = GetJob' {_gjArn = pArn_}
-- | The job's ARN.
gjArn :: Lens' GetJob Text
-gjArn = lens _gjArn (\ s a -> s{_gjArn = a});
+gjArn = lens _gjArn (\ s a -> s{_gjArn = a})
instance AWSRequest GetJob where
type Rs GetJob = GetJobResponse
@@ -128,10 +128,10 @@ getJobResponse pResponseStatus_ =
-- | An object containing information about the requested job.
gjrsJob :: Lens' GetJobResponse (Maybe Job)
-gjrsJob = lens _gjrsJob (\ s a -> s{_gjrsJob = a});
+gjrsJob = lens _gjrsJob (\ s a -> s{_gjrsJob = a})
-- | -- | The response status code.
gjrsResponseStatus :: Lens' GetJobResponse Int
-gjrsResponseStatus = lens _gjrsResponseStatus (\ s a -> s{_gjrsResponseStatus = a});
+gjrsResponseStatus = lens _gjrsResponseStatus (\ s a -> s{_gjrsResponseStatus = a})
instance NFData GetJobResponse where
diff --git a/gen/Network/AWS/DeviceFarm/GetNetworkProfile.hs b/gen/Network/AWS/DeviceFarm/GetNetworkProfile.hs
index 7914556..68228e5 100644
--- a/gen/Network/AWS/DeviceFarm/GetNetworkProfile.hs
+++ b/gen/Network/AWS/DeviceFarm/GetNetworkProfile.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.GetNetworkProfile
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -63,7 +63,7 @@ getNetworkProfile pArn_ = GetNetworkProfile' {_gnpArn = pArn_}
-- | The Amazon Resource Name (ARN) of the network profile you want to return information about.
gnpArn :: Lens' GetNetworkProfile Text
-gnpArn = lens _gnpArn (\ s a -> s{_gnpArn = a});
+gnpArn = lens _gnpArn (\ s a -> s{_gnpArn = a})
instance AWSRequest GetNetworkProfile where
type Rs GetNetworkProfile = GetNetworkProfileResponse
@@ -117,15 +117,15 @@ getNetworkProfileResponse
-> GetNetworkProfileResponse
getNetworkProfileResponse pResponseStatus_ =
GetNetworkProfileResponse'
- {_gnprsNetworkProfile = Nothing, _gnprsResponseStatus = pResponseStatus_}
+ {_gnprsNetworkProfile = Nothing, _gnprsResponseStatus = pResponseStatus_}
-- | The network profile.
gnprsNetworkProfile :: Lens' GetNetworkProfileResponse (Maybe NetworkProfile)
-gnprsNetworkProfile = lens _gnprsNetworkProfile (\ s a -> s{_gnprsNetworkProfile = a});
+gnprsNetworkProfile = lens _gnprsNetworkProfile (\ s a -> s{_gnprsNetworkProfile = a})
-- | -- | The response status code.
gnprsResponseStatus :: Lens' GetNetworkProfileResponse Int
-gnprsResponseStatus = lens _gnprsResponseStatus (\ s a -> s{_gnprsResponseStatus = a});
+gnprsResponseStatus = lens _gnprsResponseStatus (\ s a -> s{_gnprsResponseStatus = a})
instance NFData GetNetworkProfileResponse where
diff --git a/gen/Network/AWS/DeviceFarm/GetOfferingStatus.hs b/gen/Network/AWS/DeviceFarm/GetOfferingStatus.hs
index f788042..dd56581 100644
--- a/gen/Network/AWS/DeviceFarm/GetOfferingStatus.hs
+++ b/gen/Network/AWS/DeviceFarm/GetOfferingStatus.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.GetOfferingStatus
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -71,7 +71,7 @@ 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});
+gosNextToken = lens _gosNextToken (\ s a -> s{_gosNextToken = a})
instance AWSPager GetOfferingStatus where
page rq rs
@@ -147,27 +147,27 @@ getOfferingStatusResponse
-> GetOfferingStatusResponse
getOfferingStatusResponse pResponseStatus_ =
GetOfferingStatusResponse'
- { _gosrsNextPeriod = Nothing
- , _gosrsCurrent = Nothing
- , _gosrsNextToken = Nothing
- , _gosrsResponseStatus = pResponseStatus_
- }
+ { _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;
+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;
+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});
+gosrsNextToken = lens _gosrsNextToken (\ s a -> s{_gosrsNextToken = a})
-- | -- | The response status code.
gosrsResponseStatus :: Lens' GetOfferingStatusResponse Int
-gosrsResponseStatus = lens _gosrsResponseStatus (\ s a -> s{_gosrsResponseStatus = a});
+gosrsResponseStatus = lens _gosrsResponseStatus (\ s a -> s{_gosrsResponseStatus = a})
instance NFData GetOfferingStatusResponse where
diff --git a/gen/Network/AWS/DeviceFarm/GetProject.hs b/gen/Network/AWS/DeviceFarm/GetProject.hs
index 93081c0..2886f2d 100644
--- a/gen/Network/AWS/DeviceFarm/GetProject.hs
+++ b/gen/Network/AWS/DeviceFarm/GetProject.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.GetProject
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -67,7 +67,7 @@ getProject pArn_ = GetProject' {_gpArn = pArn_}
-- | The project's ARN.
gpArn :: Lens' GetProject Text
-gpArn = lens _gpArn (\ s a -> s{_gpArn = a});
+gpArn = lens _gpArn (\ s a -> s{_gpArn = a})
instance AWSRequest GetProject where
type Rs GetProject = GetProjectResponse
@@ -124,15 +124,15 @@ getProjectResponse
-> GetProjectResponse
getProjectResponse pResponseStatus_ =
GetProjectResponse'
- {_gprsProject = Nothing, _gprsResponseStatus = pResponseStatus_}
+ {_gprsProject = Nothing, _gprsResponseStatus = pResponseStatus_}
-- | The project you wish to get information about.
gprsProject :: Lens' GetProjectResponse (Maybe Project)
-gprsProject = lens _gprsProject (\ s a -> s{_gprsProject = a});
+gprsProject = lens _gprsProject (\ s a -> s{_gprsProject = a})
-- | -- | The response status code.
gprsResponseStatus :: Lens' GetProjectResponse Int
-gprsResponseStatus = lens _gprsResponseStatus (\ s a -> s{_gprsResponseStatus = a});
+gprsResponseStatus = lens _gprsResponseStatus (\ s a -> s{_gprsResponseStatus = a})
instance NFData GetProjectResponse where
diff --git a/gen/Network/AWS/DeviceFarm/GetRemoteAccessSession.hs b/gen/Network/AWS/DeviceFarm/GetRemoteAccessSession.hs
index 2c4597b..00fbc00 100644
--- a/gen/Network/AWS/DeviceFarm/GetRemoteAccessSession.hs
+++ b/gen/Network/AWS/DeviceFarm/GetRemoteAccessSession.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.GetRemoteAccessSession
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -67,7 +67,7 @@ getRemoteAccessSession pArn_ = GetRemoteAccessSession' {_grasArn = pArn_}
-- | The Amazon Resource Name (ARN) of the remote access session about which you want to get session information.
grasArn :: Lens' GetRemoteAccessSession Text
-grasArn = lens _grasArn (\ s a -> s{_grasArn = a});
+grasArn = lens _grasArn (\ s a -> s{_grasArn = a})
instance AWSRequest GetRemoteAccessSession where
type Rs GetRemoteAccessSession =
@@ -127,17 +127,17 @@ getRemoteAccessSessionResponse
-> GetRemoteAccessSessionResponse
getRemoteAccessSessionResponse pResponseStatus_ =
GetRemoteAccessSessionResponse'
- { _grasrsRemoteAccessSession = Nothing
- , _grasrsResponseStatus = pResponseStatus_
- }
+ { _grasrsRemoteAccessSession = Nothing
+ , _grasrsResponseStatus = pResponseStatus_
+ }
-- | A container that lists detailed information about the remote access session.
grasrsRemoteAccessSession :: Lens' GetRemoteAccessSessionResponse (Maybe RemoteAccessSession)
-grasrsRemoteAccessSession = lens _grasrsRemoteAccessSession (\ s a -> s{_grasrsRemoteAccessSession = a});
+grasrsRemoteAccessSession = lens _grasrsRemoteAccessSession (\ s a -> s{_grasrsRemoteAccessSession = a})
-- | -- | The response status code.
grasrsResponseStatus :: Lens' GetRemoteAccessSessionResponse Int
-grasrsResponseStatus = lens _grasrsResponseStatus (\ s a -> s{_grasrsResponseStatus = a});
+grasrsResponseStatus = lens _grasrsResponseStatus (\ s a -> s{_grasrsResponseStatus = a})
instance NFData GetRemoteAccessSessionResponse where
diff --git a/gen/Network/AWS/DeviceFarm/GetRun.hs b/gen/Network/AWS/DeviceFarm/GetRun.hs
index 7d7585d..2c7890f 100644
--- a/gen/Network/AWS/DeviceFarm/GetRun.hs
+++ b/gen/Network/AWS/DeviceFarm/GetRun.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.GetRun
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -67,7 +67,7 @@ getRun pArn_ = GetRun' {_grArn = pArn_}
-- | The run's ARN.
grArn :: Lens' GetRun Text
-grArn = lens _grArn (\ s a -> s{_grArn = a});
+grArn = lens _grArn (\ s a -> s{_grArn = a})
instance AWSRequest GetRun where
type Rs GetRun = GetRunResponse
@@ -128,10 +128,10 @@ getRunResponse pResponseStatus_ =
-- | The run you wish to get results from.
grrsRun :: Lens' GetRunResponse (Maybe Run)
-grrsRun = lens _grrsRun (\ s a -> s{_grrsRun = a});
+grrsRun = lens _grrsRun (\ s a -> s{_grrsRun = a})
-- | -- | The response status code.
grrsResponseStatus :: Lens' GetRunResponse Int
-grrsResponseStatus = lens _grrsResponseStatus (\ s a -> s{_grrsResponseStatus = a});
+grrsResponseStatus = lens _grrsResponseStatus (\ s a -> s{_grrsResponseStatus = a})
instance NFData GetRunResponse where
diff --git a/gen/Network/AWS/DeviceFarm/GetSuite.hs b/gen/Network/AWS/DeviceFarm/GetSuite.hs
index f7441cc..0203cdb 100644
--- a/gen/Network/AWS/DeviceFarm/GetSuite.hs
+++ b/gen/Network/AWS/DeviceFarm/GetSuite.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.GetSuite
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -67,7 +67,7 @@ getSuite pArn_ = GetSuite' {_gsArn = pArn_}
-- | The suite's ARN.
gsArn :: Lens' GetSuite Text
-gsArn = lens _gsArn (\ s a -> s{_gsArn = a});
+gsArn = lens _gsArn (\ s a -> s{_gsArn = a})
instance AWSRequest GetSuite where
type Rs GetSuite = GetSuiteResponse
@@ -124,15 +124,15 @@ getSuiteResponse
-> GetSuiteResponse
getSuiteResponse pResponseStatus_ =
GetSuiteResponse'
- {_gsrsSuite = Nothing, _gsrsResponseStatus = pResponseStatus_}
+ {_gsrsSuite = Nothing, _gsrsResponseStatus = pResponseStatus_}
-- | A collection of one or more tests.
gsrsSuite :: Lens' GetSuiteResponse (Maybe Suite)
-gsrsSuite = lens _gsrsSuite (\ s a -> s{_gsrsSuite = a});
+gsrsSuite = lens _gsrsSuite (\ s a -> s{_gsrsSuite = a})
-- | -- | The response status code.
gsrsResponseStatus :: Lens' GetSuiteResponse Int
-gsrsResponseStatus = lens _gsrsResponseStatus (\ s a -> s{_gsrsResponseStatus = a});
+gsrsResponseStatus = lens _gsrsResponseStatus (\ s a -> s{_gsrsResponseStatus = a})
instance NFData GetSuiteResponse where
diff --git a/gen/Network/AWS/DeviceFarm/GetTest.hs b/gen/Network/AWS/DeviceFarm/GetTest.hs
index 0a8d902..3780924 100644
--- a/gen/Network/AWS/DeviceFarm/GetTest.hs
+++ b/gen/Network/AWS/DeviceFarm/GetTest.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.GetTest
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -67,7 +67,7 @@ getTest pArn_ = GetTest' {_gtArn = pArn_}
-- | The test's ARN.
gtArn :: Lens' GetTest Text
-gtArn = lens _gtArn (\ s a -> s{_gtArn = a});
+gtArn = lens _gtArn (\ s a -> s{_gtArn = a})
instance AWSRequest GetTest where
type Rs GetTest = GetTestResponse
@@ -128,10 +128,10 @@ getTestResponse pResponseStatus_ =
-- | A test condition that is evaluated.
gtrsTest :: Lens' GetTestResponse (Maybe Test)
-gtrsTest = lens _gtrsTest (\ s a -> s{_gtrsTest = a});
+gtrsTest = lens _gtrsTest (\ s a -> s{_gtrsTest = a})
-- | -- | The response status code.
gtrsResponseStatus :: Lens' GetTestResponse Int
-gtrsResponseStatus = lens _gtrsResponseStatus (\ s a -> s{_gtrsResponseStatus = a});
+gtrsResponseStatus = lens _gtrsResponseStatus (\ s a -> s{_gtrsResponseStatus = a})
instance NFData GetTestResponse where
diff --git a/gen/Network/AWS/DeviceFarm/GetUpload.hs b/gen/Network/AWS/DeviceFarm/GetUpload.hs
index dd32572..520a5bd 100644
--- a/gen/Network/AWS/DeviceFarm/GetUpload.hs
+++ b/gen/Network/AWS/DeviceFarm/GetUpload.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.GetUpload
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -67,7 +67,7 @@ getUpload pArn_ = GetUpload' {_guArn = pArn_}
-- | The upload's ARN.
guArn :: Lens' GetUpload Text
-guArn = lens _guArn (\ s a -> s{_guArn = a});
+guArn = lens _guArn (\ s a -> s{_guArn = a})
instance AWSRequest GetUpload where
type Rs GetUpload = GetUploadResponse
@@ -124,15 +124,15 @@ getUploadResponse
-> GetUploadResponse
getUploadResponse pResponseStatus_ =
GetUploadResponse'
- {_gursUpload = Nothing, _gursResponseStatus = pResponseStatus_}
+ {_gursUpload = Nothing, _gursResponseStatus = pResponseStatus_}
-- | An app or a set of one or more tests to upload or that have been uploaded.
gursUpload :: Lens' GetUploadResponse (Maybe Upload)
-gursUpload = lens _gursUpload (\ s a -> s{_gursUpload = a});
+gursUpload = lens _gursUpload (\ s a -> s{_gursUpload = a})
-- | -- | The response status code.
gursResponseStatus :: Lens' GetUploadResponse Int
-gursResponseStatus = lens _gursResponseStatus (\ s a -> s{_gursResponseStatus = a});
+gursResponseStatus = lens _gursResponseStatus (\ s a -> s{_gursResponseStatus = a})
instance NFData GetUploadResponse where
diff --git a/gen/Network/AWS/DeviceFarm/GetVPCEConfiguration.hs b/gen/Network/AWS/DeviceFarm/GetVPCEConfiguration.hs
new file mode 100644
index 0000000..99b23e9
--- /dev/null
+++ b/gen/Network/AWS/DeviceFarm/GetVPCEConfiguration.hs
@@ -0,0 +1,134 @@
+{-# 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.GetVPCEConfiguration
+-- Copyright : (c) 2013-2018 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Returns information about the configuration settings for your Amazon Virtual Private Cloud (VPC) endpoint.
+--
+--
+module Network.AWS.DeviceFarm.GetVPCEConfiguration
+ (
+ -- * Creating a Request
+ getVPCEConfiguration
+ , GetVPCEConfiguration
+ -- * Request Lenses
+ , gvecArn
+
+ -- * Destructuring the Response
+ , getVPCEConfigurationResponse
+ , GetVPCEConfigurationResponse
+ -- * Response Lenses
+ , gvecrsVpceConfiguration
+ , gvecrsResponseStatus
+ ) 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
+
+-- | /See:/ 'getVPCEConfiguration' smart constructor.
+newtype GetVPCEConfiguration = GetVPCEConfiguration'
+ { _gvecArn :: Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'GetVPCEConfiguration' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'gvecArn' - The Amazon Resource Name (ARN) of the VPC endpoint configuration you want to describe.
+getVPCEConfiguration
+ :: Text -- ^ 'gvecArn'
+ -> GetVPCEConfiguration
+getVPCEConfiguration pArn_ = GetVPCEConfiguration' {_gvecArn = pArn_}
+
+
+-- | The Amazon Resource Name (ARN) of the VPC endpoint configuration you want to describe.
+gvecArn :: Lens' GetVPCEConfiguration Text
+gvecArn = lens _gvecArn (\ s a -> s{_gvecArn = a})
+
+instance AWSRequest GetVPCEConfiguration where
+ type Rs GetVPCEConfiguration =
+ GetVPCEConfigurationResponse
+ request = postJSON deviceFarm
+ response
+ = receiveJSON
+ (\ s h x ->
+ GetVPCEConfigurationResponse' <$>
+ (x .?> "vpceConfiguration") <*> (pure (fromEnum s)))
+
+instance Hashable GetVPCEConfiguration where
+
+instance NFData GetVPCEConfiguration where
+
+instance ToHeaders GetVPCEConfiguration where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("DeviceFarm_20150623.GetVPCEConfiguration" ::
+ ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON GetVPCEConfiguration where
+ toJSON GetVPCEConfiguration'{..}
+ = object (catMaybes [Just ("arn" .= _gvecArn)])
+
+instance ToPath GetVPCEConfiguration where
+ toPath = const "/"
+
+instance ToQuery GetVPCEConfiguration where
+ toQuery = const mempty
+
+-- | /See:/ 'getVPCEConfigurationResponse' smart constructor.
+data GetVPCEConfigurationResponse = GetVPCEConfigurationResponse'
+ { _gvecrsVpceConfiguration :: !(Maybe VPCEConfiguration)
+ , _gvecrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'GetVPCEConfigurationResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'gvecrsVpceConfiguration' - An object containing information about your VPC endpoint configuration.
+--
+-- * 'gvecrsResponseStatus' - -- | The response status code.
+getVPCEConfigurationResponse
+ :: Int -- ^ 'gvecrsResponseStatus'
+ -> GetVPCEConfigurationResponse
+getVPCEConfigurationResponse pResponseStatus_ =
+ GetVPCEConfigurationResponse'
+ { _gvecrsVpceConfiguration = Nothing
+ , _gvecrsResponseStatus = pResponseStatus_
+ }
+
+
+-- | An object containing information about your VPC endpoint configuration.
+gvecrsVpceConfiguration :: Lens' GetVPCEConfigurationResponse (Maybe VPCEConfiguration)
+gvecrsVpceConfiguration = lens _gvecrsVpceConfiguration (\ s a -> s{_gvecrsVpceConfiguration = a})
+
+-- | -- | The response status code.
+gvecrsResponseStatus :: Lens' GetVPCEConfigurationResponse Int
+gvecrsResponseStatus = lens _gvecrsResponseStatus (\ s a -> s{_gvecrsResponseStatus = a})
+
+instance NFData GetVPCEConfigurationResponse where
diff --git a/gen/Network/AWS/DeviceFarm/InstallToRemoteAccessSession.hs b/gen/Network/AWS/DeviceFarm/InstallToRemoteAccessSession.hs
index 098f497..436faaf 100644
--- a/gen/Network/AWS/DeviceFarm/InstallToRemoteAccessSession.hs
+++ b/gen/Network/AWS/DeviceFarm/InstallToRemoteAccessSession.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.InstallToRemoteAccessSession
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -69,18 +69,18 @@ installToRemoteAccessSession
-> InstallToRemoteAccessSession
installToRemoteAccessSession pRemoteAccessSessionARN_ pAppARN_ =
InstallToRemoteAccessSession'
- { _itrasRemoteAccessSessionARN = pRemoteAccessSessionARN_
- , _itrasAppARN = pAppARN_
- }
+ { _itrasRemoteAccessSessionARN = pRemoteAccessSessionARN_
+ , _itrasAppARN = pAppARN_
+ }
-- | The Amazon Resource Name (ARN) of the remote access session about which you are requesting information.
itrasRemoteAccessSessionARN :: Lens' InstallToRemoteAccessSession Text
-itrasRemoteAccessSessionARN = lens _itrasRemoteAccessSessionARN (\ s a -> s{_itrasRemoteAccessSessionARN = a});
+itrasRemoteAccessSessionARN = lens _itrasRemoteAccessSessionARN (\ s a -> s{_itrasRemoteAccessSessionARN = a})
-- | The Amazon Resource Name (ARN) of the app about which you are requesting information.
itrasAppARN :: Lens' InstallToRemoteAccessSession Text
-itrasAppARN = lens _itrasAppARN (\ s a -> s{_itrasAppARN = a});
+itrasAppARN = lens _itrasAppARN (\ s a -> s{_itrasAppARN = a})
instance AWSRequest InstallToRemoteAccessSession
where
@@ -145,16 +145,16 @@ installToRemoteAccessSessionResponse
-> InstallToRemoteAccessSessionResponse
installToRemoteAccessSessionResponse pResponseStatus_ =
InstallToRemoteAccessSessionResponse'
- {_itrasrsAppUpload = Nothing, _itrasrsResponseStatus = pResponseStatus_}
+ {_itrasrsAppUpload = Nothing, _itrasrsResponseStatus = pResponseStatus_}
-- | An app to upload or that has been uploaded.
itrasrsAppUpload :: Lens' InstallToRemoteAccessSessionResponse (Maybe Upload)
-itrasrsAppUpload = lens _itrasrsAppUpload (\ s a -> s{_itrasrsAppUpload = a});
+itrasrsAppUpload = lens _itrasrsAppUpload (\ s a -> s{_itrasrsAppUpload = a})
-- | -- | The response status code.
itrasrsResponseStatus :: Lens' InstallToRemoteAccessSessionResponse Int
-itrasrsResponseStatus = lens _itrasrsResponseStatus (\ s a -> s{_itrasrsResponseStatus = a});
+itrasrsResponseStatus = lens _itrasrsResponseStatus (\ s a -> s{_itrasrsResponseStatus = a})
instance NFData InstallToRemoteAccessSessionResponse
where
diff --git a/gen/Network/AWS/DeviceFarm/ListArtifacts.hs b/gen/Network/AWS/DeviceFarm/ListArtifacts.hs
index 2fd6452..82d804d 100644
--- a/gen/Network/AWS/DeviceFarm/ListArtifacts.hs
+++ b/gen/Network/AWS/DeviceFarm/ListArtifacts.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.ListArtifacts
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -81,15 +81,15 @@ listArtifacts pArn_ pType_ =
-- | 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.
laNextToken :: Lens' ListArtifacts (Maybe Text)
-laNextToken = lens _laNextToken (\ s a -> s{_laNextToken = a});
+laNextToken = lens _laNextToken (\ s a -> s{_laNextToken = a})
-- | The Run, Job, Suite, or Test ARN.
laArn :: Lens' ListArtifacts Text
-laArn = lens _laArn (\ s a -> s{_laArn = a});
+laArn = lens _laArn (\ s a -> s{_laArn = a})
-- | The artifacts' type. Allowed values include: * FILE: The artifacts are files. * LOG: The artifacts are logs. * SCREENSHOT: The artifacts are screenshots.
laType :: Lens' ListArtifacts ArtifactCategory
-laType = lens _laType (\ s a -> s{_laType = a});
+laType = lens _laType (\ s a -> s{_laType = a})
instance AWSPager ListArtifacts where
page rq rs
@@ -161,22 +161,22 @@ listArtifactsResponse
-> ListArtifactsResponse
listArtifactsResponse pResponseStatus_ =
ListArtifactsResponse'
- { _larsArtifacts = Nothing
- , _larsNextToken = Nothing
- , _larsResponseStatus = pResponseStatus_
- }
+ { _larsArtifacts = Nothing
+ , _larsNextToken = Nothing
+ , _larsResponseStatus = pResponseStatus_
+ }
-- | Information about the artifacts.
larsArtifacts :: Lens' ListArtifactsResponse [Artifact]
-larsArtifacts = lens _larsArtifacts (\ s a -> s{_larsArtifacts = a}) . _Default . _Coerce;
+larsArtifacts = lens _larsArtifacts (\ s a -> s{_larsArtifacts = a}) . _Default . _Coerce
-- | If the number of items that are returned is significantly large, this is an identifier that is also returned, which can be used in a subsequent call to this operation to return the next set of items in the list.
larsNextToken :: Lens' ListArtifactsResponse (Maybe Text)
-larsNextToken = lens _larsNextToken (\ s a -> s{_larsNextToken = a});
+larsNextToken = lens _larsNextToken (\ s a -> s{_larsNextToken = a})
-- | -- | The response status code.
larsResponseStatus :: Lens' ListArtifactsResponse Int
-larsResponseStatus = lens _larsResponseStatus (\ s a -> s{_larsResponseStatus = a});
+larsResponseStatus = lens _larsResponseStatus (\ s a -> s{_larsResponseStatus = a})
instance NFData ListArtifactsResponse where
diff --git a/gen/Network/AWS/DeviceFarm/ListDeviceInstances.hs b/gen/Network/AWS/DeviceFarm/ListDeviceInstances.hs
new file mode 100644
index 0000000..01b172f
--- /dev/null
+++ b/gen/Network/AWS/DeviceFarm/ListDeviceInstances.hs
@@ -0,0 +1,156 @@
+{-# 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.ListDeviceInstances
+-- Copyright : (c) 2013-2018 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Returns information about the private device instances associated with one or more AWS accounts.
+--
+--
+module Network.AWS.DeviceFarm.ListDeviceInstances
+ (
+ -- * Creating a Request
+ listDeviceInstances
+ , ListDeviceInstances
+ -- * Request Lenses
+ , ldiNextToken
+ , ldiMaxResults
+
+ -- * Destructuring the Response
+ , listDeviceInstancesResponse
+ , ListDeviceInstancesResponse
+ -- * Response Lenses
+ , ldirsNextToken
+ , ldirsDeviceInstances
+ , ldirsResponseStatus
+ ) 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
+
+-- | /See:/ 'listDeviceInstances' smart constructor.
+data ListDeviceInstances = ListDeviceInstances'
+ { _ldiNextToken :: !(Maybe Text)
+ , _ldiMaxResults :: !(Maybe Int)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ListDeviceInstances' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'ldiNextToken' - 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.
+--
+-- * 'ldiMaxResults' - An integer specifying the maximum number of items you want to return in the API response.
+listDeviceInstances
+ :: ListDeviceInstances
+listDeviceInstances =
+ ListDeviceInstances' {_ldiNextToken = Nothing, _ldiMaxResults = 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.
+ldiNextToken :: Lens' ListDeviceInstances (Maybe Text)
+ldiNextToken = lens _ldiNextToken (\ s a -> s{_ldiNextToken = a})
+
+-- | An integer specifying the maximum number of items you want to return in the API response.
+ldiMaxResults :: Lens' ListDeviceInstances (Maybe Int)
+ldiMaxResults = lens _ldiMaxResults (\ s a -> s{_ldiMaxResults = a})
+
+instance AWSRequest ListDeviceInstances where
+ type Rs ListDeviceInstances =
+ ListDeviceInstancesResponse
+ request = postJSON deviceFarm
+ response
+ = receiveJSON
+ (\ s h x ->
+ ListDeviceInstancesResponse' <$>
+ (x .?> "nextToken") <*>
+ (x .?> "deviceInstances" .!@ mempty)
+ <*> (pure (fromEnum s)))
+
+instance Hashable ListDeviceInstances where
+
+instance NFData ListDeviceInstances where
+
+instance ToHeaders ListDeviceInstances where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("DeviceFarm_20150623.ListDeviceInstances" ::
+ ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON ListDeviceInstances where
+ toJSON ListDeviceInstances'{..}
+ = object
+ (catMaybes
+ [("nextToken" .=) <$> _ldiNextToken,
+ ("maxResults" .=) <$> _ldiMaxResults])
+
+instance ToPath ListDeviceInstances where
+ toPath = const "/"
+
+instance ToQuery ListDeviceInstances where
+ toQuery = const mempty
+
+-- | /See:/ 'listDeviceInstancesResponse' smart constructor.
+data ListDeviceInstancesResponse = ListDeviceInstancesResponse'
+ { _ldirsNextToken :: !(Maybe Text)
+ , _ldirsDeviceInstances :: !(Maybe [DeviceInstance])
+ , _ldirsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ListDeviceInstancesResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'ldirsNextToken' - An identifier that can be used in the next call to this operation to return the next set of items in the list.
+--
+-- * 'ldirsDeviceInstances' - An object containing information about your device instances.
+--
+-- * 'ldirsResponseStatus' - -- | The response status code.
+listDeviceInstancesResponse
+ :: Int -- ^ 'ldirsResponseStatus'
+ -> ListDeviceInstancesResponse
+listDeviceInstancesResponse pResponseStatus_ =
+ ListDeviceInstancesResponse'
+ { _ldirsNextToken = Nothing
+ , _ldirsDeviceInstances = Nothing
+ , _ldirsResponseStatus = pResponseStatus_
+ }
+
+
+-- | An identifier that can be used in the next call to this operation to return the next set of items in the list.
+ldirsNextToken :: Lens' ListDeviceInstancesResponse (Maybe Text)
+ldirsNextToken = lens _ldirsNextToken (\ s a -> s{_ldirsNextToken = a})
+
+-- | An object containing information about your device instances.
+ldirsDeviceInstances :: Lens' ListDeviceInstancesResponse [DeviceInstance]
+ldirsDeviceInstances = lens _ldirsDeviceInstances (\ s a -> s{_ldirsDeviceInstances = a}) . _Default . _Coerce
+
+-- | -- | The response status code.
+ldirsResponseStatus :: Lens' ListDeviceInstancesResponse Int
+ldirsResponseStatus = lens _ldirsResponseStatus (\ s a -> s{_ldirsResponseStatus = a})
+
+instance NFData ListDeviceInstancesResponse where
diff --git a/gen/Network/AWS/DeviceFarm/ListDevicePools.hs b/gen/Network/AWS/DeviceFarm/ListDevicePools.hs
index 1f718d9..50d69df 100644
--- a/gen/Network/AWS/DeviceFarm/ListDevicePools.hs
+++ b/gen/Network/AWS/DeviceFarm/ListDevicePools.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.ListDevicePools
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -76,20 +76,20 @@ listDevicePools
-> ListDevicePools
listDevicePools pArn_ =
ListDevicePools'
- {_ldpNextToken = Nothing, _ldpType = Nothing, _ldpArn = pArn_}
+ {_ldpNextToken = Nothing, _ldpType = Nothing, _ldpArn = pArn_}
-- | 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.
ldpNextToken :: Lens' ListDevicePools (Maybe Text)
-ldpNextToken = lens _ldpNextToken (\ s a -> s{_ldpNextToken = a});
+ldpNextToken = lens _ldpNextToken (\ s a -> s{_ldpNextToken = a})
-- | The device pools' type. Allowed values include: * CURATED: A device pool that is created and managed by AWS Device Farm. * PRIVATE: A device pool that is created and managed by the device pool developer.
ldpType :: Lens' ListDevicePools (Maybe DevicePoolType)
-ldpType = lens _ldpType (\ s a -> s{_ldpType = a});
+ldpType = lens _ldpType (\ s a -> s{_ldpType = a})
-- | The project ARN.
ldpArn :: Lens' ListDevicePools Text
-ldpArn = lens _ldpArn (\ s a -> s{_ldpArn = a});
+ldpArn = lens _ldpArn (\ s a -> s{_ldpArn = a})
instance AWSPager ListDevicePools where
page rq rs
@@ -162,22 +162,22 @@ listDevicePoolsResponse
-> ListDevicePoolsResponse
listDevicePoolsResponse pResponseStatus_ =
ListDevicePoolsResponse'
- { _ldprsDevicePools = Nothing
- , _ldprsNextToken = Nothing
- , _ldprsResponseStatus = pResponseStatus_
- }
+ { _ldprsDevicePools = Nothing
+ , _ldprsNextToken = Nothing
+ , _ldprsResponseStatus = pResponseStatus_
+ }
-- | Information about the device pools.
ldprsDevicePools :: Lens' ListDevicePoolsResponse [DevicePool]
-ldprsDevicePools = lens _ldprsDevicePools (\ s a -> s{_ldprsDevicePools = a}) . _Default . _Coerce;
+ldprsDevicePools = lens _ldprsDevicePools (\ s a -> s{_ldprsDevicePools = a}) . _Default . _Coerce
-- | If the number of items that are returned is significantly large, this is an identifier that is also returned, which can be used in a subsequent call to this operation to return the next set of items in the list.
ldprsNextToken :: Lens' ListDevicePoolsResponse (Maybe Text)
-ldprsNextToken = lens _ldprsNextToken (\ s a -> s{_ldprsNextToken = a});
+ldprsNextToken = lens _ldprsNextToken (\ s a -> s{_ldprsNextToken = a})
-- | -- | The response status code.
ldprsResponseStatus :: Lens' ListDevicePoolsResponse Int
-ldprsResponseStatus = lens _ldprsResponseStatus (\ s a -> s{_ldprsResponseStatus = a});
+ldprsResponseStatus = lens _ldprsResponseStatus (\ s a -> s{_ldprsResponseStatus = a})
instance NFData ListDevicePoolsResponse where
diff --git a/gen/Network/AWS/DeviceFarm/ListDevices.hs b/gen/Network/AWS/DeviceFarm/ListDevices.hs
index 1657349..594a5de 100644
--- a/gen/Network/AWS/DeviceFarm/ListDevices.hs
+++ b/gen/Network/AWS/DeviceFarm/ListDevices.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.ListDevices
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -74,11 +74,11 @@ listDevices = ListDevices' {_ldArn = Nothing, _ldNextToken = Nothing}
-- | The Amazon Resource Name (ARN) of the project.
ldArn :: Lens' ListDevices (Maybe Text)
-ldArn = lens _ldArn (\ s a -> s{_ldArn = a});
+ldArn = lens _ldArn (\ s a -> s{_ldArn = a})
-- | 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.
ldNextToken :: Lens' ListDevices (Maybe Text)
-ldNextToken = lens _ldNextToken (\ s a -> s{_ldNextToken = a});
+ldNextToken = lens _ldNextToken (\ s a -> s{_ldNextToken = a})
instance AWSPager ListDevices where
page rq rs
@@ -149,22 +149,22 @@ listDevicesResponse
-> ListDevicesResponse
listDevicesResponse pResponseStatus_ =
ListDevicesResponse'
- { _ldrsNextToken = Nothing
- , _ldrsDevices = Nothing
- , _ldrsResponseStatus = pResponseStatus_
- }
+ { _ldrsNextToken = Nothing
+ , _ldrsDevices = Nothing
+ , _ldrsResponseStatus = pResponseStatus_
+ }
-- | If the number of items that are returned is significantly large, this is an identifier that is also returned, which can be used in a subsequent call to this operation to return the next set of items in the list.
ldrsNextToken :: Lens' ListDevicesResponse (Maybe Text)
-ldrsNextToken = lens _ldrsNextToken (\ s a -> s{_ldrsNextToken = a});
+ldrsNextToken = lens _ldrsNextToken (\ s a -> s{_ldrsNextToken = a})
-- | Information about the devices.
ldrsDevices :: Lens' ListDevicesResponse [Device]
-ldrsDevices = lens _ldrsDevices (\ s a -> s{_ldrsDevices = a}) . _Default . _Coerce;
+ldrsDevices = lens _ldrsDevices (\ s a -> s{_ldrsDevices = a}) . _Default . _Coerce
-- | -- | The response status code.
ldrsResponseStatus :: Lens' ListDevicesResponse Int
-ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a});
+ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a})
instance NFData ListDevicesResponse where
diff --git a/gen/Network/AWS/DeviceFarm/ListInstanceProfiles.hs b/gen/Network/AWS/DeviceFarm/ListInstanceProfiles.hs
new file mode 100644
index 0000000..0fd77a2
--- /dev/null
+++ b/gen/Network/AWS/DeviceFarm/ListInstanceProfiles.hs
@@ -0,0 +1,156 @@
+{-# 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.ListInstanceProfiles
+-- Copyright : (c) 2013-2018 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Returns information about all the instance profiles in an AWS account.
+--
+--
+module Network.AWS.DeviceFarm.ListInstanceProfiles
+ (
+ -- * Creating a Request
+ listInstanceProfiles
+ , ListInstanceProfiles
+ -- * Request Lenses
+ , lipNextToken
+ , lipMaxResults
+
+ -- * Destructuring the Response
+ , listInstanceProfilesResponse
+ , ListInstanceProfilesResponse
+ -- * Response Lenses
+ , liprsNextToken
+ , liprsInstanceProfiles
+ , liprsResponseStatus
+ ) 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
+
+-- | /See:/ 'listInstanceProfiles' smart constructor.
+data ListInstanceProfiles = ListInstanceProfiles'
+ { _lipNextToken :: !(Maybe Text)
+ , _lipMaxResults :: !(Maybe Int)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ListInstanceProfiles' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'lipNextToken' - 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.
+--
+-- * 'lipMaxResults' - An integer specifying the maximum number of items you want to return in the API response.
+listInstanceProfiles
+ :: ListInstanceProfiles
+listInstanceProfiles =
+ ListInstanceProfiles' {_lipNextToken = Nothing, _lipMaxResults = 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.
+lipNextToken :: Lens' ListInstanceProfiles (Maybe Text)
+lipNextToken = lens _lipNextToken (\ s a -> s{_lipNextToken = a})
+
+-- | An integer specifying the maximum number of items you want to return in the API response.
+lipMaxResults :: Lens' ListInstanceProfiles (Maybe Int)
+lipMaxResults = lens _lipMaxResults (\ s a -> s{_lipMaxResults = a})
+
+instance AWSRequest ListInstanceProfiles where
+ type Rs ListInstanceProfiles =
+ ListInstanceProfilesResponse
+ request = postJSON deviceFarm
+ response
+ = receiveJSON
+ (\ s h x ->
+ ListInstanceProfilesResponse' <$>
+ (x .?> "nextToken") <*>
+ (x .?> "instanceProfiles" .!@ mempty)
+ <*> (pure (fromEnum s)))
+
+instance Hashable ListInstanceProfiles where
+
+instance NFData ListInstanceProfiles where
+
+instance ToHeaders ListInstanceProfiles where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("DeviceFarm_20150623.ListInstanceProfiles" ::
+ ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON ListInstanceProfiles where
+ toJSON ListInstanceProfiles'{..}
+ = object
+ (catMaybes
+ [("nextToken" .=) <$> _lipNextToken,
+ ("maxResults" .=) <$> _lipMaxResults])
+
+instance ToPath ListInstanceProfiles where
+ toPath = const "/"
+
+instance ToQuery ListInstanceProfiles where
+ toQuery = const mempty
+
+-- | /See:/ 'listInstanceProfilesResponse' smart constructor.
+data ListInstanceProfilesResponse = ListInstanceProfilesResponse'
+ { _liprsNextToken :: !(Maybe Text)
+ , _liprsInstanceProfiles :: !(Maybe [InstanceProfile])
+ , _liprsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ListInstanceProfilesResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'liprsNextToken' - An identifier that can be used in the next call to this operation to return the next set of items in the list.
+--
+-- * 'liprsInstanceProfiles' - An object containing information about your instance profiles.
+--
+-- * 'liprsResponseStatus' - -- | The response status code.
+listInstanceProfilesResponse
+ :: Int -- ^ 'liprsResponseStatus'
+ -> ListInstanceProfilesResponse
+listInstanceProfilesResponse pResponseStatus_ =
+ ListInstanceProfilesResponse'
+ { _liprsNextToken = Nothing
+ , _liprsInstanceProfiles = Nothing
+ , _liprsResponseStatus = pResponseStatus_
+ }
+
+
+-- | An identifier that can be used in the next call to this operation to return the next set of items in the list.
+liprsNextToken :: Lens' ListInstanceProfilesResponse (Maybe Text)
+liprsNextToken = lens _liprsNextToken (\ s a -> s{_liprsNextToken = a})
+
+-- | An object containing information about your instance profiles.
+liprsInstanceProfiles :: Lens' ListInstanceProfilesResponse [InstanceProfile]
+liprsInstanceProfiles = lens _liprsInstanceProfiles (\ s a -> s{_liprsInstanceProfiles = a}) . _Default . _Coerce
+
+-- | -- | The response status code.
+liprsResponseStatus :: Lens' ListInstanceProfilesResponse Int
+liprsResponseStatus = lens _liprsResponseStatus (\ s a -> s{_liprsResponseStatus = a})
+
+instance NFData ListInstanceProfilesResponse where
diff --git a/gen/Network/AWS/DeviceFarm/ListJobs.hs b/gen/Network/AWS/DeviceFarm/ListJobs.hs
index 3d495a3..f8acdb7 100644
--- a/gen/Network/AWS/DeviceFarm/ListJobs.hs
+++ b/gen/Network/AWS/DeviceFarm/ListJobs.hs
@@ -12,13 +12,13 @@
-- |
-- Module : Network.AWS.DeviceFarm.ListJobs
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Gets information about jobs.
+-- Gets information about jobs for a given test run.
--
--
--
@@ -66,7 +66,7 @@ data ListJobs = ListJobs'
--
-- * 'ljNextToken' - 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.
--
--- * 'ljArn' - The jobs' ARNs.
+-- * 'ljArn' - The run's Amazon Resource Name (ARN).
listJobs
:: Text -- ^ 'ljArn'
-> ListJobs
@@ -75,11 +75,11 @@ listJobs pArn_ = ListJobs' {_ljNextToken = Nothing, _ljArn = pArn_}
-- | 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.
ljNextToken :: Lens' ListJobs (Maybe Text)
-ljNextToken = lens _ljNextToken (\ s a -> s{_ljNextToken = a});
+ljNextToken = lens _ljNextToken (\ s a -> s{_ljNextToken = a})
--- | The jobs' ARNs.
+-- | The run's Amazon Resource Name (ARN).
ljArn :: Lens' ListJobs Text
-ljArn = lens _ljArn (\ s a -> s{_ljArn = a});
+ljArn = lens _ljArn (\ s a -> s{_ljArn = a})
instance AWSPager ListJobs where
page rq rs
@@ -150,22 +150,22 @@ listJobsResponse
-> ListJobsResponse
listJobsResponse pResponseStatus_ =
ListJobsResponse'
- { _ljrsJobs = Nothing
- , _ljrsNextToken = Nothing
- , _ljrsResponseStatus = pResponseStatus_
- }
+ { _ljrsJobs = Nothing
+ , _ljrsNextToken = Nothing
+ , _ljrsResponseStatus = pResponseStatus_
+ }
-- | Information about the jobs.
ljrsJobs :: Lens' ListJobsResponse [Job]
-ljrsJobs = lens _ljrsJobs (\ s a -> s{_ljrsJobs = a}) . _Default . _Coerce;
+ljrsJobs = lens _ljrsJobs (\ s a -> s{_ljrsJobs = a}) . _Default . _Coerce
-- | If the number of items that are returned is significantly large, this is an identifier that is also returned, which can be used in a subsequent call to this operation to return the next set of items in the list.
ljrsNextToken :: Lens' ListJobsResponse (Maybe Text)
-ljrsNextToken = lens _ljrsNextToken (\ s a -> s{_ljrsNextToken = a});
+ljrsNextToken = lens _ljrsNextToken (\ s a -> s{_ljrsNextToken = a})
-- | -- | The response status code.
ljrsResponseStatus :: Lens' ListJobsResponse Int
-ljrsResponseStatus = lens _ljrsResponseStatus (\ s a -> s{_ljrsResponseStatus = a});
+ljrsResponseStatus = lens _ljrsResponseStatus (\ s a -> s{_ljrsResponseStatus = a})
instance NFData ListJobsResponse where
diff --git a/gen/Network/AWS/DeviceFarm/ListNetworkProfiles.hs b/gen/Network/AWS/DeviceFarm/ListNetworkProfiles.hs
index 5e92f95..2a54627 100644
--- a/gen/Network/AWS/DeviceFarm/ListNetworkProfiles.hs
+++ b/gen/Network/AWS/DeviceFarm/ListNetworkProfiles.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.ListNetworkProfiles
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -69,20 +69,20 @@ listNetworkProfiles
-> ListNetworkProfiles
listNetworkProfiles pArn_ =
ListNetworkProfiles'
- {_lnpNextToken = Nothing, _lnpType = Nothing, _lnpArn = pArn_}
+ {_lnpNextToken = Nothing, _lnpType = Nothing, _lnpArn = pArn_}
-- | 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.
lnpNextToken :: Lens' ListNetworkProfiles (Maybe Text)
-lnpNextToken = lens _lnpNextToken (\ s a -> s{_lnpNextToken = a});
+lnpNextToken = lens _lnpNextToken (\ s a -> s{_lnpNextToken = a})
-- | The type of network profile you wish to return information about. Valid values are listed below.
lnpType :: Lens' ListNetworkProfiles (Maybe NetworkProfileType)
-lnpType = lens _lnpType (\ s a -> s{_lnpType = a});
+lnpType = lens _lnpType (\ s a -> s{_lnpType = a})
-- | The Amazon Resource Name (ARN) of the project for which you want to list network profiles.
lnpArn :: Lens' ListNetworkProfiles Text
-lnpArn = lens _lnpArn (\ s a -> s{_lnpArn = a});
+lnpArn = lens _lnpArn (\ s a -> s{_lnpArn = a})
instance AWSRequest ListNetworkProfiles where
type Rs ListNetworkProfiles =
@@ -145,22 +145,22 @@ listNetworkProfilesResponse
-> ListNetworkProfilesResponse
listNetworkProfilesResponse pResponseStatus_ =
ListNetworkProfilesResponse'
- { _lnprsNetworkProfiles = Nothing
- , _lnprsNextToken = Nothing
- , _lnprsResponseStatus = pResponseStatus_
- }
+ { _lnprsNetworkProfiles = Nothing
+ , _lnprsNextToken = Nothing
+ , _lnprsResponseStatus = pResponseStatus_
+ }
-- | A list of the available network profiles.
lnprsNetworkProfiles :: Lens' ListNetworkProfilesResponse [NetworkProfile]
-lnprsNetworkProfiles = lens _lnprsNetworkProfiles (\ s a -> s{_lnprsNetworkProfiles = a}) . _Default . _Coerce;
+lnprsNetworkProfiles = lens _lnprsNetworkProfiles (\ s a -> s{_lnprsNetworkProfiles = 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.
lnprsNextToken :: Lens' ListNetworkProfilesResponse (Maybe Text)
-lnprsNextToken = lens _lnprsNextToken (\ s a -> s{_lnprsNextToken = a});
+lnprsNextToken = lens _lnprsNextToken (\ s a -> s{_lnprsNextToken = a})
-- | -- | The response status code.
lnprsResponseStatus :: Lens' ListNetworkProfilesResponse Int
-lnprsResponseStatus = lens _lnprsResponseStatus (\ s a -> s{_lnprsResponseStatus = a});
+lnprsResponseStatus = lens _lnprsResponseStatus (\ s a -> s{_lnprsResponseStatus = a})
instance NFData ListNetworkProfilesResponse where
diff --git a/gen/Network/AWS/DeviceFarm/ListOfferingPromotions.hs b/gen/Network/AWS/DeviceFarm/ListOfferingPromotions.hs
index 89690b4..9b27a45 100644
--- a/gen/Network/AWS/DeviceFarm/ListOfferingPromotions.hs
+++ b/gen/Network/AWS/DeviceFarm/ListOfferingPromotions.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.ListOfferingPromotions
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -63,7 +63,7 @@ listOfferingPromotions = ListOfferingPromotions' {_lopNextToken = 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.
lopNextToken :: Lens' ListOfferingPromotions (Maybe Text)
-lopNextToken = lens _lopNextToken (\ s a -> s{_lopNextToken = a});
+lopNextToken = lens _lopNextToken (\ s a -> s{_lopNextToken = a})
instance AWSRequest ListOfferingPromotions where
type Rs ListOfferingPromotions =
@@ -124,22 +124,22 @@ listOfferingPromotionsResponse
-> ListOfferingPromotionsResponse
listOfferingPromotionsResponse pResponseStatus_ =
ListOfferingPromotionsResponse'
- { _loprsNextToken = Nothing
- , _loprsOfferingPromotions = Nothing
- , _loprsResponseStatus = pResponseStatus_
- }
+ { _loprsNextToken = Nothing
+ , _loprsOfferingPromotions = Nothing
+ , _loprsResponseStatus = pResponseStatus_
+ }
-- | An identifier to be used in the next call to this operation, to return the next set of items in the list.
loprsNextToken :: Lens' ListOfferingPromotionsResponse (Maybe Text)
-loprsNextToken = lens _loprsNextToken (\ s a -> s{_loprsNextToken = a});
+loprsNextToken = lens _loprsNextToken (\ s a -> s{_loprsNextToken = a})
-- | Information about the offering promotions.
loprsOfferingPromotions :: Lens' ListOfferingPromotionsResponse [OfferingPromotion]
-loprsOfferingPromotions = lens _loprsOfferingPromotions (\ s a -> s{_loprsOfferingPromotions = a}) . _Default . _Coerce;
+loprsOfferingPromotions = lens _loprsOfferingPromotions (\ s a -> s{_loprsOfferingPromotions = a}) . _Default . _Coerce
-- | -- | The response status code.
loprsResponseStatus :: Lens' ListOfferingPromotionsResponse Int
-loprsResponseStatus = lens _loprsResponseStatus (\ s a -> s{_loprsResponseStatus = a});
+loprsResponseStatus = lens _loprsResponseStatus (\ s a -> s{_loprsResponseStatus = a})
instance NFData ListOfferingPromotionsResponse where
diff --git a/gen/Network/AWS/DeviceFarm/ListOfferingTransactions.hs b/gen/Network/AWS/DeviceFarm/ListOfferingTransactions.hs
index b6e1977..3c9182b 100644
--- a/gen/Network/AWS/DeviceFarm/ListOfferingTransactions.hs
+++ b/gen/Network/AWS/DeviceFarm/ListOfferingTransactions.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.ListOfferingTransactions
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -70,7 +70,7 @@ 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});
+lotNextToken = lens _lotNextToken (\ s a -> s{_lotNextToken = a})
instance AWSPager ListOfferingTransactions where
page rq rs
@@ -142,23 +142,23 @@ listOfferingTransactionsResponse
-> ListOfferingTransactionsResponse
listOfferingTransactionsResponse pResponseStatus_ =
ListOfferingTransactionsResponse'
- { _lotrsOfferingTransactions = Nothing
- , _lotrsNextToken = Nothing
- , _lotrsResponseStatus = pResponseStatus_
- }
+ { _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;
+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});
+lotrsNextToken = lens _lotrsNextToken (\ s a -> s{_lotrsNextToken = a})
-- | -- | The response status code.
lotrsResponseStatus :: Lens' ListOfferingTransactionsResponse Int
-lotrsResponseStatus = lens _lotrsResponseStatus (\ s a -> s{_lotrsResponseStatus = a});
+lotrsResponseStatus = lens _lotrsResponseStatus (\ s a -> s{_lotrsResponseStatus = a})
instance NFData ListOfferingTransactionsResponse
where
diff --git a/gen/Network/AWS/DeviceFarm/ListOfferings.hs b/gen/Network/AWS/DeviceFarm/ListOfferings.hs
index db4dfa4..2951ffb 100644
--- a/gen/Network/AWS/DeviceFarm/ListOfferings.hs
+++ b/gen/Network/AWS/DeviceFarm/ListOfferings.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.ListOfferings
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -70,7 +70,7 @@ 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});
+loNextToken = lens _loNextToken (\ s a -> s{_loNextToken = a})
instance AWSPager ListOfferings where
page rq rs
@@ -140,22 +140,22 @@ listOfferingsResponse
-> ListOfferingsResponse
listOfferingsResponse pResponseStatus_ =
ListOfferingsResponse'
- { _lorsNextToken = Nothing
- , _lorsOfferings = Nothing
- , _lorsResponseStatus = pResponseStatus_
- }
+ { _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});
+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;
+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});
+lorsResponseStatus = lens _lorsResponseStatus (\ s a -> s{_lorsResponseStatus = a})
instance NFData ListOfferingsResponse where
diff --git a/gen/Network/AWS/DeviceFarm/ListProjects.hs b/gen/Network/AWS/DeviceFarm/ListProjects.hs
index 9afb5e4..fac6be9 100644
--- a/gen/Network/AWS/DeviceFarm/ListProjects.hs
+++ b/gen/Network/AWS/DeviceFarm/ListProjects.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.ListProjects
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -74,11 +74,11 @@ listProjects = ListProjects' {_lpArn = Nothing, _lpNextToken = Nothing}
-- | Optional. If no Amazon Resource Name (ARN) is specified, then AWS Device Farm returns a list of all projects for the AWS account. You can also specify a project ARN.
lpArn :: Lens' ListProjects (Maybe Text)
-lpArn = lens _lpArn (\ s a -> s{_lpArn = a});
+lpArn = lens _lpArn (\ s a -> s{_lpArn = a})
-- | 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.
lpNextToken :: Lens' ListProjects (Maybe Text)
-lpNextToken = lens _lpNextToken (\ s a -> s{_lpNextToken = a});
+lpNextToken = lens _lpNextToken (\ s a -> s{_lpNextToken = a})
instance AWSPager ListProjects where
page rq rs
@@ -149,22 +149,22 @@ listProjectsResponse
-> ListProjectsResponse
listProjectsResponse pResponseStatus_ =
ListProjectsResponse'
- { _lprsNextToken = Nothing
- , _lprsProjects = Nothing
- , _lprsResponseStatus = pResponseStatus_
- }
+ { _lprsNextToken = Nothing
+ , _lprsProjects = Nothing
+ , _lprsResponseStatus = pResponseStatus_
+ }
-- | If the number of items that are returned is significantly large, this is an identifier that is also returned, which can be used in a subsequent call to this operation to return the next set of items in the list.
lprsNextToken :: Lens' ListProjectsResponse (Maybe Text)
-lprsNextToken = lens _lprsNextToken (\ s a -> s{_lprsNextToken = a});
+lprsNextToken = lens _lprsNextToken (\ s a -> s{_lprsNextToken = a})
-- | Information about the projects.
lprsProjects :: Lens' ListProjectsResponse [Project]
-lprsProjects = lens _lprsProjects (\ s a -> s{_lprsProjects = a}) . _Default . _Coerce;
+lprsProjects = lens _lprsProjects (\ s a -> s{_lprsProjects = a}) . _Default . _Coerce
-- | -- | The response status code.
lprsResponseStatus :: Lens' ListProjectsResponse Int
-lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a});
+lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a})
instance NFData ListProjectsResponse where
diff --git a/gen/Network/AWS/DeviceFarm/ListRemoteAccessSessions.hs b/gen/Network/AWS/DeviceFarm/ListRemoteAccessSessions.hs
index df6a82a..a7a6cbb 100644
--- a/gen/Network/AWS/DeviceFarm/ListRemoteAccessSessions.hs
+++ b/gen/Network/AWS/DeviceFarm/ListRemoteAccessSessions.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.ListRemoteAccessSessions
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -73,11 +73,11 @@ listRemoteAccessSessions pArn_ =
-- | 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.
lrasNextToken :: Lens' ListRemoteAccessSessions (Maybe Text)
-lrasNextToken = lens _lrasNextToken (\ s a -> s{_lrasNextToken = a});
+lrasNextToken = lens _lrasNextToken (\ s a -> s{_lrasNextToken = a})
-- | The Amazon Resource Name (ARN) of the remote access session about which you are requesting information.
lrasArn :: Lens' ListRemoteAccessSessions Text
-lrasArn = lens _lrasArn (\ s a -> s{_lrasArn = a});
+lrasArn = lens _lrasArn (\ s a -> s{_lrasArn = a})
instance AWSRequest ListRemoteAccessSessions where
type Rs ListRemoteAccessSessions =
@@ -144,23 +144,23 @@ listRemoteAccessSessionsResponse
-> ListRemoteAccessSessionsResponse
listRemoteAccessSessionsResponse pResponseStatus_ =
ListRemoteAccessSessionsResponse'
- { _lrasrsNextToken = Nothing
- , _lrasrsRemoteAccessSessions = Nothing
- , _lrasrsResponseStatus = pResponseStatus_
- }
+ { _lrasrsNextToken = Nothing
+ , _lrasrsRemoteAccessSessions = Nothing
+ , _lrasrsResponseStatus = 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.
lrasrsNextToken :: Lens' ListRemoteAccessSessionsResponse (Maybe Text)
-lrasrsNextToken = lens _lrasrsNextToken (\ s a -> s{_lrasrsNextToken = a});
+lrasrsNextToken = lens _lrasrsNextToken (\ s a -> s{_lrasrsNextToken = a})
-- | A container representing the metadata from the service about each remote access session you are requesting.
lrasrsRemoteAccessSessions :: Lens' ListRemoteAccessSessionsResponse [RemoteAccessSession]
-lrasrsRemoteAccessSessions = lens _lrasrsRemoteAccessSessions (\ s a -> s{_lrasrsRemoteAccessSessions = a}) . _Default . _Coerce;
+lrasrsRemoteAccessSessions = lens _lrasrsRemoteAccessSessions (\ s a -> s{_lrasrsRemoteAccessSessions = a}) . _Default . _Coerce
-- | -- | The response status code.
lrasrsResponseStatus :: Lens' ListRemoteAccessSessionsResponse Int
-lrasrsResponseStatus = lens _lrasrsResponseStatus (\ s a -> s{_lrasrsResponseStatus = a});
+lrasrsResponseStatus = lens _lrasrsResponseStatus (\ s a -> s{_lrasrsResponseStatus = a})
instance NFData ListRemoteAccessSessionsResponse
where
diff --git a/gen/Network/AWS/DeviceFarm/ListRuns.hs b/gen/Network/AWS/DeviceFarm/ListRuns.hs
index c6fcd6f..9b4209b 100644
--- a/gen/Network/AWS/DeviceFarm/ListRuns.hs
+++ b/gen/Network/AWS/DeviceFarm/ListRuns.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.ListRuns
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -75,11 +75,11 @@ listRuns pArn_ = ListRuns' {_lrNextToken = Nothing, _lrArn = pArn_}
-- | 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.
lrNextToken :: Lens' ListRuns (Maybe Text)
-lrNextToken = lens _lrNextToken (\ s a -> s{_lrNextToken = a});
+lrNextToken = lens _lrNextToken (\ s a -> s{_lrNextToken = a})
-- | The Amazon Resource Name (ARN) of the project for which you want to list runs.
lrArn :: Lens' ListRuns Text
-lrArn = lens _lrArn (\ s a -> s{_lrArn = a});
+lrArn = lens _lrArn (\ s a -> s{_lrArn = a})
instance AWSPager ListRuns where
page rq rs
@@ -150,22 +150,22 @@ listRunsResponse
-> ListRunsResponse
listRunsResponse pResponseStatus_ =
ListRunsResponse'
- { _lrrsRuns = Nothing
- , _lrrsNextToken = Nothing
- , _lrrsResponseStatus = pResponseStatus_
- }
+ { _lrrsRuns = Nothing
+ , _lrrsNextToken = Nothing
+ , _lrrsResponseStatus = pResponseStatus_
+ }
-- | Information about the runs.
lrrsRuns :: Lens' ListRunsResponse [Run]
-lrrsRuns = lens _lrrsRuns (\ s a -> s{_lrrsRuns = a}) . _Default . _Coerce;
+lrrsRuns = lens _lrrsRuns (\ s a -> s{_lrrsRuns = a}) . _Default . _Coerce
-- | If the number of items that are returned is significantly large, this is an identifier that is also returned, which can be used in a subsequent call to this operation to return the next set of items in the list.
lrrsNextToken :: Lens' ListRunsResponse (Maybe Text)
-lrrsNextToken = lens _lrrsNextToken (\ s a -> s{_lrrsNextToken = a});
+lrrsNextToken = lens _lrrsNextToken (\ s a -> s{_lrrsNextToken = a})
-- | -- | The response status code.
lrrsResponseStatus :: Lens' ListRunsResponse Int
-lrrsResponseStatus = lens _lrrsResponseStatus (\ s a -> s{_lrrsResponseStatus = a});
+lrrsResponseStatus = lens _lrrsResponseStatus (\ s a -> s{_lrrsResponseStatus = a})
instance NFData ListRunsResponse where
diff --git a/gen/Network/AWS/DeviceFarm/ListSamples.hs b/gen/Network/AWS/DeviceFarm/ListSamples.hs
index 6a7514c..2523e14 100644
--- a/gen/Network/AWS/DeviceFarm/ListSamples.hs
+++ b/gen/Network/AWS/DeviceFarm/ListSamples.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.ListSamples
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -75,11 +75,11 @@ listSamples pArn_ = ListSamples' {_lsNextToken = Nothing, _lsArn = pArn_}
-- | 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.
lsNextToken :: Lens' ListSamples (Maybe Text)
-lsNextToken = lens _lsNextToken (\ s a -> s{_lsNextToken = a});
+lsNextToken = lens _lsNextToken (\ s a -> s{_lsNextToken = a})
-- | The Amazon Resource Name (ARN) of the project for which you want to list samples.
lsArn :: Lens' ListSamples Text
-lsArn = lens _lsArn (\ s a -> s{_lsArn = a});
+lsArn = lens _lsArn (\ s a -> s{_lsArn = a})
instance AWSPager ListSamples where
page rq rs
@@ -150,22 +150,22 @@ listSamplesResponse
-> ListSamplesResponse
listSamplesResponse pResponseStatus_ =
ListSamplesResponse'
- { _lrsNextToken = Nothing
- , _lrsSamples = Nothing
- , _lrsResponseStatus = pResponseStatus_
- }
+ { _lrsNextToken = Nothing
+ , _lrsSamples = Nothing
+ , _lrsResponseStatus = pResponseStatus_
+ }
-- | If the number of items that are returned is significantly large, this is an identifier that is also returned, which can be used in a subsequent call to this operation to return the next set of items in the list.
lrsNextToken :: Lens' ListSamplesResponse (Maybe Text)
-lrsNextToken = lens _lrsNextToken (\ s a -> s{_lrsNextToken = a});
+lrsNextToken = lens _lrsNextToken (\ s a -> s{_lrsNextToken = a})
-- | Information about the samples.
lrsSamples :: Lens' ListSamplesResponse [Sample]
-lrsSamples = lens _lrsSamples (\ s a -> s{_lrsSamples = a}) . _Default . _Coerce;
+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});
+lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a})
instance NFData ListSamplesResponse where
diff --git a/gen/Network/AWS/DeviceFarm/ListSuites.hs b/gen/Network/AWS/DeviceFarm/ListSuites.hs
index c78efbb..1a2014e 100644
--- a/gen/Network/AWS/DeviceFarm/ListSuites.hs
+++ b/gen/Network/AWS/DeviceFarm/ListSuites.hs
@@ -12,13 +12,13 @@
-- |
-- Module : Network.AWS.DeviceFarm.ListSuites
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Gets information about suites.
+-- Gets information about test suites for a given job.
--
--
--
@@ -66,7 +66,7 @@ data ListSuites = ListSuites'
--
-- * 'lNextToken' - 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.
--
--- * 'lArn' - The suites' ARNs.
+-- * 'lArn' - The job's Amazon Resource Name (ARN).
listSuites
:: Text -- ^ 'lArn'
-> ListSuites
@@ -75,11 +75,11 @@ listSuites pArn_ = ListSuites' {_lNextToken = Nothing, _lArn = pArn_}
-- | 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.
lNextToken :: Lens' ListSuites (Maybe Text)
-lNextToken = lens _lNextToken (\ s a -> s{_lNextToken = a});
+lNextToken = lens _lNextToken (\ s a -> s{_lNextToken = a})
--- | The suites' ARNs.
+-- | The job's Amazon Resource Name (ARN).
lArn :: Lens' ListSuites Text
-lArn = lens _lArn (\ s a -> s{_lArn = a});
+lArn = lens _lArn (\ s a -> s{_lArn = a})
instance AWSPager ListSuites where
page rq rs
@@ -150,22 +150,22 @@ listSuitesResponse
-> ListSuitesResponse
listSuitesResponse pResponseStatus_ =
ListSuitesResponse'
- { _lsrsNextToken = Nothing
- , _lsrsSuites = Nothing
- , _lsrsResponseStatus = pResponseStatus_
- }
+ { _lsrsNextToken = Nothing
+ , _lsrsSuites = Nothing
+ , _lsrsResponseStatus = pResponseStatus_
+ }
-- | If the number of items that are returned is significantly large, this is an identifier that is also returned, which can be used in a subsequent call to this operation to return the next set of items in the list.
lsrsNextToken :: Lens' ListSuitesResponse (Maybe Text)
-lsrsNextToken = lens _lsrsNextToken (\ s a -> s{_lsrsNextToken = a});
+lsrsNextToken = lens _lsrsNextToken (\ s a -> s{_lsrsNextToken = a})
-- | Information about the suites.
lsrsSuites :: Lens' ListSuitesResponse [Suite]
-lsrsSuites = lens _lsrsSuites (\ s a -> s{_lsrsSuites = a}) . _Default . _Coerce;
+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});
+lsrsResponseStatus = lens _lsrsResponseStatus (\ s a -> s{_lsrsResponseStatus = a})
instance NFData ListSuitesResponse where
diff --git a/gen/Network/AWS/DeviceFarm/ListTests.hs b/gen/Network/AWS/DeviceFarm/ListTests.hs
index ffc99b1..a5dc19a 100644
--- a/gen/Network/AWS/DeviceFarm/ListTests.hs
+++ b/gen/Network/AWS/DeviceFarm/ListTests.hs
@@ -12,13 +12,13 @@
-- |
-- Module : Network.AWS.DeviceFarm.ListTests
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Gets information about tests.
+-- Gets information about tests in a given test suite.
--
--
--
@@ -66,7 +66,7 @@ data ListTests = ListTests'
--
-- * 'ltNextToken' - 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.
--
--- * 'ltArn' - The tests' ARNs.
+-- * 'ltArn' - The test suite's Amazon Resource Name (ARN).
listTests
:: Text -- ^ 'ltArn'
-> ListTests
@@ -75,11 +75,11 @@ listTests pArn_ = ListTests' {_ltNextToken = Nothing, _ltArn = pArn_}
-- | 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.
ltNextToken :: Lens' ListTests (Maybe Text)
-ltNextToken = lens _ltNextToken (\ s a -> s{_ltNextToken = a});
+ltNextToken = lens _ltNextToken (\ s a -> s{_ltNextToken = a})
--- | The tests' ARNs.
+-- | The test suite's Amazon Resource Name (ARN).
ltArn :: Lens' ListTests Text
-ltArn = lens _ltArn (\ s a -> s{_ltArn = a});
+ltArn = lens _ltArn (\ s a -> s{_ltArn = a})
instance AWSPager ListTests where
page rq rs
@@ -150,22 +150,22 @@ listTestsResponse
-> ListTestsResponse
listTestsResponse pResponseStatus_ =
ListTestsResponse'
- { _ltrsTests = Nothing
- , _ltrsNextToken = Nothing
- , _ltrsResponseStatus = pResponseStatus_
- }
+ { _ltrsTests = Nothing
+ , _ltrsNextToken = Nothing
+ , _ltrsResponseStatus = pResponseStatus_
+ }
-- | Information about the tests.
ltrsTests :: Lens' ListTestsResponse [Test]
-ltrsTests = lens _ltrsTests (\ s a -> s{_ltrsTests = a}) . _Default . _Coerce;
+ltrsTests = lens _ltrsTests (\ s a -> s{_ltrsTests = a}) . _Default . _Coerce
-- | If the number of items that are returned is significantly large, this is an identifier that is also returned, which can be used in a subsequent call to this operation to return the next set of items in the list.
ltrsNextToken :: Lens' ListTestsResponse (Maybe Text)
-ltrsNextToken = lens _ltrsNextToken (\ s a -> s{_ltrsNextToken = a});
+ltrsNextToken = lens _ltrsNextToken (\ s a -> s{_ltrsNextToken = a})
-- | -- | The response status code.
ltrsResponseStatus :: Lens' ListTestsResponse Int
-ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a});
+ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a})
instance NFData ListTestsResponse where
diff --git a/gen/Network/AWS/DeviceFarm/ListUniqueProblems.hs b/gen/Network/AWS/DeviceFarm/ListUniqueProblems.hs
index 9891734..a15fa81 100644
--- a/gen/Network/AWS/DeviceFarm/ListUniqueProblems.hs
+++ b/gen/Network/AWS/DeviceFarm/ListUniqueProblems.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.ListUniqueProblems
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -76,11 +76,11 @@ listUniqueProblems pArn_ =
-- | 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.
lupNextToken :: Lens' ListUniqueProblems (Maybe Text)
-lupNextToken = lens _lupNextToken (\ s a -> s{_lupNextToken = a});
+lupNextToken = lens _lupNextToken (\ s a -> s{_lupNextToken = a})
-- | The unique problems' ARNs.
lupArn :: Lens' ListUniqueProblems Text
-lupArn = lens _lupArn (\ s a -> s{_lupArn = a});
+lupArn = lens _lupArn (\ s a -> s{_lupArn = a})
instance AWSPager ListUniqueProblems where
page rq rs
@@ -154,22 +154,22 @@ listUniqueProblemsResponse
-> ListUniqueProblemsResponse
listUniqueProblemsResponse pResponseStatus_ =
ListUniqueProblemsResponse'
- { _luprsNextToken = Nothing
- , _luprsUniqueProblems = Nothing
- , _luprsResponseStatus = pResponseStatus_
- }
+ { _luprsNextToken = Nothing
+ , _luprsUniqueProblems = Nothing
+ , _luprsResponseStatus = pResponseStatus_
+ }
-- | If the number of items that are returned is significantly large, this is an identifier that is also returned, which can be used in a subsequent call to this operation to return the next set of items in the list.
luprsNextToken :: Lens' ListUniqueProblemsResponse (Maybe Text)
-luprsNextToken = lens _luprsNextToken (\ s a -> s{_luprsNextToken = a});
+luprsNextToken = lens _luprsNextToken (\ s a -> s{_luprsNextToken = a})
-- | Information about the unique problems. Allowed values include: * PENDING: A pending condition. * PASSED: A passing condition. * WARNED: A warning condition. * FAILED: A failed condition. * SKIPPED: A skipped condition. * ERRORED: An error condition. * STOPPED: A stopped condition.
luprsUniqueProblems :: Lens' ListUniqueProblemsResponse (HashMap ExecutionResult [UniqueProblem])
-luprsUniqueProblems = lens _luprsUniqueProblems (\ s a -> s{_luprsUniqueProblems = a}) . _Default . _Map;
+luprsUniqueProblems = lens _luprsUniqueProblems (\ s a -> s{_luprsUniqueProblems = a}) . _Default . _Map
-- | -- | The response status code.
luprsResponseStatus :: Lens' ListUniqueProblemsResponse Int
-luprsResponseStatus = lens _luprsResponseStatus (\ s a -> s{_luprsResponseStatus = a});
+luprsResponseStatus = lens _luprsResponseStatus (\ s a -> s{_luprsResponseStatus = a})
instance NFData ListUniqueProblemsResponse where
diff --git a/gen/Network/AWS/DeviceFarm/ListUploads.hs b/gen/Network/AWS/DeviceFarm/ListUploads.hs
index f836066..d53aa59 100644
--- a/gen/Network/AWS/DeviceFarm/ListUploads.hs
+++ b/gen/Network/AWS/DeviceFarm/ListUploads.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.ListUploads
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -75,11 +75,11 @@ listUploads pArn_ = ListUploads' {_luNextToken = Nothing, _luArn = pArn_}
-- | 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.
luNextToken :: Lens' ListUploads (Maybe Text)
-luNextToken = lens _luNextToken (\ s a -> s{_luNextToken = a});
+luNextToken = lens _luNextToken (\ s a -> s{_luNextToken = a})
-- | The Amazon Resource Name (ARN) of the project for which you want to list uploads.
luArn :: Lens' ListUploads Text
-luArn = lens _luArn (\ s a -> s{_luArn = a});
+luArn = lens _luArn (\ s a -> s{_luArn = a})
instance AWSPager ListUploads where
page rq rs
@@ -150,22 +150,22 @@ listUploadsResponse
-> ListUploadsResponse
listUploadsResponse pResponseStatus_ =
ListUploadsResponse'
- { _lursNextToken = Nothing
- , _lursUploads = Nothing
- , _lursResponseStatus = pResponseStatus_
- }
+ { _lursNextToken = Nothing
+ , _lursUploads = Nothing
+ , _lursResponseStatus = pResponseStatus_
+ }
-- | If the number of items that are returned is significantly large, this is an identifier that is also returned, which can be used in a subsequent call to this operation to return the next set of items in the list.
lursNextToken :: Lens' ListUploadsResponse (Maybe Text)
-lursNextToken = lens _lursNextToken (\ s a -> s{_lursNextToken = a});
+lursNextToken = lens _lursNextToken (\ s a -> s{_lursNextToken = a})
-- | Information about the uploads.
lursUploads :: Lens' ListUploadsResponse [Upload]
-lursUploads = lens _lursUploads (\ s a -> s{_lursUploads = a}) . _Default . _Coerce;
+lursUploads = lens _lursUploads (\ s a -> s{_lursUploads = a}) . _Default . _Coerce
-- | -- | The response status code.
lursResponseStatus :: Lens' ListUploadsResponse Int
-lursResponseStatus = lens _lursResponseStatus (\ s a -> s{_lursResponseStatus = a});
+lursResponseStatus = lens _lursResponseStatus (\ s a -> s{_lursResponseStatus = a})
instance NFData ListUploadsResponse where
diff --git a/gen/Network/AWS/DeviceFarm/ListVPCEConfigurations.hs b/gen/Network/AWS/DeviceFarm/ListVPCEConfigurations.hs
new file mode 100644
index 0000000..d03712a
--- /dev/null
+++ b/gen/Network/AWS/DeviceFarm/ListVPCEConfigurations.hs
@@ -0,0 +1,156 @@
+{-# 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.ListVPCEConfigurations
+-- Copyright : (c) 2013-2018 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Returns information about all Amazon Virtual Private Cloud (VPC) endpoint configurations in the AWS account.
+--
+--
+module Network.AWS.DeviceFarm.ListVPCEConfigurations
+ (
+ -- * Creating a Request
+ listVPCEConfigurations
+ , ListVPCEConfigurations
+ -- * Request Lenses
+ , lvecNextToken
+ , lvecMaxResults
+
+ -- * Destructuring the Response
+ , listVPCEConfigurationsResponse
+ , ListVPCEConfigurationsResponse
+ -- * Response Lenses
+ , lvecrsNextToken
+ , lvecrsVpceConfigurations
+ , lvecrsResponseStatus
+ ) 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
+
+-- | /See:/ 'listVPCEConfigurations' smart constructor.
+data ListVPCEConfigurations = ListVPCEConfigurations'
+ { _lvecNextToken :: !(Maybe Text)
+ , _lvecMaxResults :: !(Maybe Int)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ListVPCEConfigurations' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'lvecNextToken' - 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.
+--
+-- * 'lvecMaxResults' - An integer specifying the maximum number of items you want to return in the API response.
+listVPCEConfigurations
+ :: ListVPCEConfigurations
+listVPCEConfigurations =
+ ListVPCEConfigurations' {_lvecNextToken = Nothing, _lvecMaxResults = 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.
+lvecNextToken :: Lens' ListVPCEConfigurations (Maybe Text)
+lvecNextToken = lens _lvecNextToken (\ s a -> s{_lvecNextToken = a})
+
+-- | An integer specifying the maximum number of items you want to return in the API response.
+lvecMaxResults :: Lens' ListVPCEConfigurations (Maybe Int)
+lvecMaxResults = lens _lvecMaxResults (\ s a -> s{_lvecMaxResults = a})
+
+instance AWSRequest ListVPCEConfigurations where
+ type Rs ListVPCEConfigurations =
+ ListVPCEConfigurationsResponse
+ request = postJSON deviceFarm
+ response
+ = receiveJSON
+ (\ s h x ->
+ ListVPCEConfigurationsResponse' <$>
+ (x .?> "nextToken") <*>
+ (x .?> "vpceConfigurations" .!@ mempty)
+ <*> (pure (fromEnum s)))
+
+instance Hashable ListVPCEConfigurations where
+
+instance NFData ListVPCEConfigurations where
+
+instance ToHeaders ListVPCEConfigurations where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("DeviceFarm_20150623.ListVPCEConfigurations" ::
+ ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON ListVPCEConfigurations where
+ toJSON ListVPCEConfigurations'{..}
+ = object
+ (catMaybes
+ [("nextToken" .=) <$> _lvecNextToken,
+ ("maxResults" .=) <$> _lvecMaxResults])
+
+instance ToPath ListVPCEConfigurations where
+ toPath = const "/"
+
+instance ToQuery ListVPCEConfigurations where
+ toQuery = const mempty
+
+-- | /See:/ 'listVPCEConfigurationsResponse' smart constructor.
+data ListVPCEConfigurationsResponse = ListVPCEConfigurationsResponse'
+ { _lvecrsNextToken :: !(Maybe Text)
+ , _lvecrsVpceConfigurations :: !(Maybe [VPCEConfiguration])
+ , _lvecrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ListVPCEConfigurationsResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'lvecrsNextToken' - 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.
+--
+-- * 'lvecrsVpceConfigurations' - An array of @VPCEConfiguration@ objects containing information about your VPC endpoint configuration.
+--
+-- * 'lvecrsResponseStatus' - -- | The response status code.
+listVPCEConfigurationsResponse
+ :: Int -- ^ 'lvecrsResponseStatus'
+ -> ListVPCEConfigurationsResponse
+listVPCEConfigurationsResponse pResponseStatus_ =
+ ListVPCEConfigurationsResponse'
+ { _lvecrsNextToken = Nothing
+ , _lvecrsVpceConfigurations = Nothing
+ , _lvecrsResponseStatus = 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.
+lvecrsNextToken :: Lens' ListVPCEConfigurationsResponse (Maybe Text)
+lvecrsNextToken = lens _lvecrsNextToken (\ s a -> s{_lvecrsNextToken = a})
+
+-- | An array of @VPCEConfiguration@ objects containing information about your VPC endpoint configuration.
+lvecrsVpceConfigurations :: Lens' ListVPCEConfigurationsResponse [VPCEConfiguration]
+lvecrsVpceConfigurations = lens _lvecrsVpceConfigurations (\ s a -> s{_lvecrsVpceConfigurations = a}) . _Default . _Coerce
+
+-- | -- | The response status code.
+lvecrsResponseStatus :: Lens' ListVPCEConfigurationsResponse Int
+lvecrsResponseStatus = lens _lvecrsResponseStatus (\ s a -> s{_lvecrsResponseStatus = a})
+
+instance NFData ListVPCEConfigurationsResponse where
diff --git a/gen/Network/AWS/DeviceFarm/PurchaseOffering.hs b/gen/Network/AWS/DeviceFarm/PurchaseOffering.hs
index b8aac2f..539b827 100644
--- a/gen/Network/AWS/DeviceFarm/PurchaseOffering.hs
+++ b/gen/Network/AWS/DeviceFarm/PurchaseOffering.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.PurchaseOffering
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -71,23 +71,23 @@ purchaseOffering
:: PurchaseOffering
purchaseOffering =
PurchaseOffering'
- { _poQuantity = Nothing
- , _poOfferingId = Nothing
- , _poOfferingPromotionId = Nothing
- }
+ { _poQuantity = Nothing
+ , _poOfferingId = Nothing
+ , _poOfferingPromotionId = 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});
+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});
+poOfferingId = lens _poOfferingId (\ s a -> s{_poOfferingId = a})
-- | The ID of the offering promotion to be applied to the purchase.
poOfferingPromotionId :: Lens' PurchaseOffering (Maybe Text)
-poOfferingPromotionId = lens _poOfferingPromotionId (\ s a -> s{_poOfferingPromotionId = a});
+poOfferingPromotionId = lens _poOfferingPromotionId (\ s a -> s{_poOfferingPromotionId = a})
instance AWSRequest PurchaseOffering where
type Rs PurchaseOffering = PurchaseOfferingResponse
@@ -151,15 +151,15 @@ purchaseOfferingResponse
-> PurchaseOfferingResponse
purchaseOfferingResponse pResponseStatus_ =
PurchaseOfferingResponse'
- {_porsOfferingTransaction = Nothing, _porsResponseStatus = pResponseStatus_}
+ {_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});
+porsOfferingTransaction = lens _porsOfferingTransaction (\ s a -> s{_porsOfferingTransaction = a})
-- | -- | The response status code.
porsResponseStatus :: Lens' PurchaseOfferingResponse Int
-porsResponseStatus = lens _porsResponseStatus (\ s a -> s{_porsResponseStatus = a});
+porsResponseStatus = lens _porsResponseStatus (\ s a -> s{_porsResponseStatus = a})
instance NFData PurchaseOfferingResponse where
diff --git a/gen/Network/AWS/DeviceFarm/RenewOffering.hs b/gen/Network/AWS/DeviceFarm/RenewOffering.hs
index 8de057e..ef75b3a 100644
--- a/gen/Network/AWS/DeviceFarm/RenewOffering.hs
+++ b/gen/Network/AWS/DeviceFarm/RenewOffering.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.RenewOffering
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -70,11 +70,11 @@ 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});
+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});
+roOfferingId = lens _roOfferingId (\ s a -> s{_roOfferingId = a})
instance AWSRequest RenewOffering where
type Rs RenewOffering = RenewOfferingResponse
@@ -135,15 +135,15 @@ renewOfferingResponse
-> RenewOfferingResponse
renewOfferingResponse pResponseStatus_ =
RenewOfferingResponse'
- {_rorsOfferingTransaction = Nothing, _rorsResponseStatus = pResponseStatus_}
+ {_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});
+rorsOfferingTransaction = lens _rorsOfferingTransaction (\ s a -> s{_rorsOfferingTransaction = a})
-- | -- | The response status code.
rorsResponseStatus :: Lens' RenewOfferingResponse Int
-rorsResponseStatus = lens _rorsResponseStatus (\ s a -> s{_rorsResponseStatus = a});
+rorsResponseStatus = lens _rorsResponseStatus (\ s a -> s{_rorsResponseStatus = a})
instance NFData RenewOfferingResponse where
diff --git a/gen/Network/AWS/DeviceFarm/ScheduleRun.hs b/gen/Network/AWS/DeviceFarm/ScheduleRun.hs
index a662dbb..fe9012f 100644
--- a/gen/Network/AWS/DeviceFarm/ScheduleRun.hs
+++ b/gen/Network/AWS/DeviceFarm/ScheduleRun.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.ScheduleRun
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -90,43 +90,43 @@ scheduleRun
-> ScheduleRun
scheduleRun pProjectARN_ pDevicePoolARN_ pTest_ =
ScheduleRun'
- { _srExecutionConfiguration = Nothing
- , _srAppARN = Nothing
- , _srName = Nothing
- , _srConfiguration = Nothing
- , _srProjectARN = pProjectARN_
- , _srDevicePoolARN = pDevicePoolARN_
- , _srTest = pTest_
- }
+ { _srExecutionConfiguration = Nothing
+ , _srAppARN = Nothing
+ , _srName = Nothing
+ , _srConfiguration = Nothing
+ , _srProjectARN = pProjectARN_
+ , _srDevicePoolARN = pDevicePoolARN_
+ , _srTest = pTest_
+ }
-- | Specifies configuration information about a test run, such as the execution timeout (in minutes).
srExecutionConfiguration :: Lens' ScheduleRun (Maybe ExecutionConfiguration)
-srExecutionConfiguration = lens _srExecutionConfiguration (\ s a -> s{_srExecutionConfiguration = a});
+srExecutionConfiguration = lens _srExecutionConfiguration (\ s a -> s{_srExecutionConfiguration = a})
-- | The ARN of the app to schedule a run.
srAppARN :: Lens' ScheduleRun (Maybe Text)
-srAppARN = lens _srAppARN (\ s a -> s{_srAppARN = a});
+srAppARN = lens _srAppARN (\ s a -> s{_srAppARN = a})
-- | The name for the run to be scheduled.
srName :: Lens' ScheduleRun (Maybe Text)
-srName = lens _srName (\ s a -> s{_srName = a});
+srName = lens _srName (\ s a -> s{_srName = a})
-- | Information about the settings for the run to be scheduled.
srConfiguration :: Lens' ScheduleRun (Maybe ScheduleRunConfiguration)
-srConfiguration = lens _srConfiguration (\ s a -> s{_srConfiguration = a});
+srConfiguration = lens _srConfiguration (\ s a -> s{_srConfiguration = a})
-- | The ARN of the project for the run to be scheduled.
srProjectARN :: Lens' ScheduleRun Text
-srProjectARN = lens _srProjectARN (\ s a -> s{_srProjectARN = a});
+srProjectARN = lens _srProjectARN (\ s a -> s{_srProjectARN = a})
-- | The ARN of the device pool for the run to be scheduled.
srDevicePoolARN :: Lens' ScheduleRun Text
-srDevicePoolARN = lens _srDevicePoolARN (\ s a -> s{_srDevicePoolARN = a});
+srDevicePoolARN = lens _srDevicePoolARN (\ s a -> s{_srDevicePoolARN = a})
-- | Information about the test for the run to be scheduled.
srTest :: Lens' ScheduleRun ScheduleRunTest
-srTest = lens _srTest (\ s a -> s{_srTest = a});
+srTest = lens _srTest (\ s a -> s{_srTest = a})
instance AWSRequest ScheduleRun where
type Rs ScheduleRun = ScheduleRunResponse
@@ -191,15 +191,15 @@ scheduleRunResponse
-> ScheduleRunResponse
scheduleRunResponse pResponseStatus_ =
ScheduleRunResponse'
- {_srrsRun = Nothing, _srrsResponseStatus = pResponseStatus_}
+ {_srrsRun = Nothing, _srrsResponseStatus = pResponseStatus_}
-- | Information about the scheduled run.
srrsRun :: Lens' ScheduleRunResponse (Maybe Run)
-srrsRun = lens _srrsRun (\ s a -> s{_srrsRun = a});
+srrsRun = lens _srrsRun (\ s a -> s{_srrsRun = a})
-- | -- | The response status code.
srrsResponseStatus :: Lens' ScheduleRunResponse Int
-srrsResponseStatus = lens _srrsResponseStatus (\ s a -> s{_srrsResponseStatus = a});
+srrsResponseStatus = lens _srrsResponseStatus (\ s a -> s{_srrsResponseStatus = a})
instance NFData ScheduleRunResponse where
diff --git a/gen/Network/AWS/DeviceFarm/StopRemoteAccessSession.hs b/gen/Network/AWS/DeviceFarm/StopRemoteAccessSession.hs
index 59ae626..844b547 100644
--- a/gen/Network/AWS/DeviceFarm/StopRemoteAccessSession.hs
+++ b/gen/Network/AWS/DeviceFarm/StopRemoteAccessSession.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.StopRemoteAccessSession
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -67,7 +67,7 @@ stopRemoteAccessSession pArn_ = StopRemoteAccessSession' {_srasArn = pArn_}
-- | The Amazon Resource Name (ARN) of the remote access session you wish to stop.
srasArn :: Lens' StopRemoteAccessSession Text
-srasArn = lens _srasArn (\ s a -> s{_srasArn = a});
+srasArn = lens _srasArn (\ s a -> s{_srasArn = a})
instance AWSRequest StopRemoteAccessSession where
type Rs StopRemoteAccessSession =
@@ -127,17 +127,17 @@ stopRemoteAccessSessionResponse
-> StopRemoteAccessSessionResponse
stopRemoteAccessSessionResponse pResponseStatus_ =
StopRemoteAccessSessionResponse'
- { _srasrsRemoteAccessSession = Nothing
- , _srasrsResponseStatus = pResponseStatus_
- }
+ { _srasrsRemoteAccessSession = Nothing
+ , _srasrsResponseStatus = pResponseStatus_
+ }
-- | A container representing the metadata from the service about the remote access session you are stopping.
srasrsRemoteAccessSession :: Lens' StopRemoteAccessSessionResponse (Maybe RemoteAccessSession)
-srasrsRemoteAccessSession = lens _srasrsRemoteAccessSession (\ s a -> s{_srasrsRemoteAccessSession = a});
+srasrsRemoteAccessSession = lens _srasrsRemoteAccessSession (\ s a -> s{_srasrsRemoteAccessSession = a})
-- | -- | The response status code.
srasrsResponseStatus :: Lens' StopRemoteAccessSessionResponse Int
-srasrsResponseStatus = lens _srasrsResponseStatus (\ s a -> s{_srasrsResponseStatus = a});
+srasrsResponseStatus = lens _srasrsResponseStatus (\ s a -> s{_srasrsResponseStatus = a})
instance NFData StopRemoteAccessSessionResponse where
diff --git a/gen/Network/AWS/DeviceFarm/StopRun.hs b/gen/Network/AWS/DeviceFarm/StopRun.hs
index ecd407c..b120bfe 100644
--- a/gen/Network/AWS/DeviceFarm/StopRun.hs
+++ b/gen/Network/AWS/DeviceFarm/StopRun.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.StopRun
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -67,7 +67,7 @@ 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});
+srArn = lens _srArn (\ s a -> s{_srArn = a})
instance AWSRequest StopRun where
type Rs StopRun = StopRunResponse
@@ -128,10 +128,10 @@ stopRunResponse pResponseStatus_ =
-- | The run that was stopped.
srsRun :: Lens' StopRunResponse (Maybe Run)
-srsRun = lens _srsRun (\ s a -> s{_srsRun = a});
+srsRun = lens _srsRun (\ s a -> s{_srsRun = a})
-- | -- | The response status code.
srsResponseStatus :: Lens' StopRunResponse Int
-srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a});
+srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a})
instance NFData StopRunResponse where
diff --git a/gen/Network/AWS/DeviceFarm/Types.hs b/gen/Network/AWS/DeviceFarm/Types.hs
index 8748ebe..f42cd17 100644
--- a/gen/Network/AWS/DeviceFarm/Types.hs
+++ b/gen/Network/AWS/DeviceFarm/Types.hs
@@ -4,7 +4,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.Types
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -21,6 +21,7 @@ module Network.AWS.DeviceFarm.Types
, _ArgumentException
, _NotFoundException
, _ServiceAccountException
+ , _InvalidOperationException
, _LimitExceededException
-- * ArtifactCategory
@@ -56,6 +57,12 @@ module Network.AWS.DeviceFarm.Types
-- * ExecutionStatus
, ExecutionStatus (..)
+ -- * InstanceStatus
+ , InstanceStatus (..)
+
+ -- * InteractionMode
+ , InteractionMode (..)
+
-- * NetworkProfileType
, NetworkProfileType (..)
@@ -86,6 +93,7 @@ module Network.AWS.DeviceFarm.Types
-- * AccountSettings
, AccountSettings
, accountSettings
+ , asSkipAppResign
, asAwsAccountNumber
, asMaxJobTimeoutMinutes
, asMaxSlots
@@ -140,6 +148,7 @@ module Network.AWS.DeviceFarm.Types
, devImage
, devManufacturer
, devPlatform
+ , devModelId
, devRemoteAccessEnabled
, devArn
, devFormFactor
@@ -150,11 +159,22 @@ module Network.AWS.DeviceFarm.Types
, devOs
, devName
, devModel
+ , devInstances
, devRemoteDebugEnabled
, devCpu
, devHeapSize
, devFleetName
+ -- * DeviceInstance
+ , DeviceInstance
+ , deviceInstance
+ , diStatus
+ , diUdid
+ , diInstanceProfile
+ , diArn
+ , diDeviceARN
+ , diLabels
+
-- * DeviceMinutes
, DeviceMinutes
, deviceMinutes
@@ -181,6 +201,7 @@ module Network.AWS.DeviceFarm.Types
-- * ExecutionConfiguration
, ExecutionConfiguration
, executionConfiguration
+ , ecSkipAppResign
, ecAccountsCleanup
, ecAppPackagesCleanup
, ecJobTimeoutMinutes
@@ -191,9 +212,20 @@ module Network.AWS.DeviceFarm.Types
, imType
, imMessage
+ -- * InstanceProfile
+ , InstanceProfile
+ , instanceProfile
+ , ipArn
+ , ipRebootAfterUse
+ , ipName
+ , ipPackageCleanup
+ , ipExcludeAppPackagesFromCleanup
+ , ipDescription
+
-- * Job
, Job
, job
+ , jobInstanceARN
, jobStatus
, jobCounters
, jobArn
@@ -312,8 +344,12 @@ module Network.AWS.DeviceFarm.Types
, rasBillingMethod
, rasClientId
, rasDeviceUdid
+ , rasSkipAppResign
+ , rasInstanceARN
, rasStatus
+ , rasRemoteRecordEnabled
, rasArn
+ , rasRemoteRecordAppARN
, rasCreated
, rasDevice
, rasStopped
@@ -324,6 +360,7 @@ module Network.AWS.DeviceFarm.Types
, rasEndpoint
, rasMessage
, rasHostAddress
+ , rasInteractionMode
, rasStarted
-- * Resolution
@@ -343,23 +380,33 @@ module Network.AWS.DeviceFarm.Types
, Run
, run
, runBillingMethod
+ , runSkipAppResign
, runStatus
, runCustomerArtifactPaths
+ , runEventCount
, runCounters
, runPlatform
+ , runSeed
+ , runRadios
, runArn
+ , runLocation
, runCreated
+ , runLocale
, runStopped
, runResult
+ , runJobTimeoutMinutes
, runCompletedJobs
, runResultCode
, runName
+ , runAppUpload
, runParsingResultURL
, runNetworkProfile
, runDeviceMinutes
, runType
, runMessage
+ , runWebURL
, runTotalJobs
+ , runDevicePoolARN
, runStarted
-- * Sample
@@ -380,6 +427,7 @@ module Network.AWS.DeviceFarm.Types
, srcNetworkProfileARN
, srcExtraDataPackageARN
, srcAuxiliaryApps
+ , srcVpceConfigurationARNs
-- * ScheduleRunTest
, ScheduleRunTest
@@ -443,6 +491,15 @@ module Network.AWS.DeviceFarm.Types
, uType
, uMessage
, uContentType
+
+ -- * VPCEConfiguration
+ , VPCEConfiguration
+ , vpcEConfiguration
+ , vecVpceServiceName
+ , vecArn
+ , vecVpceConfigurationName
+ , vecServiceDNSName
+ , vecVpceConfigurationDescription
) where
import Network.AWS.DeviceFarm.Types.Product
@@ -455,24 +512,24 @@ import Network.AWS.Sign.V4
deviceFarm :: Service
deviceFarm =
Service
- { _svcAbbrev = "DeviceFarm"
- , _svcSigner = v4
- , _svcPrefix = "devicefarm"
- , _svcVersion = "2015-06-23"
- , _svcEndpoint = defaultEndpoint deviceFarm
- , _svcTimeout = Just 70
- , _svcCheck = statusSuccess
- , _svcError = parseJSONError "DeviceFarm"
- , _svcRetry = retry
- }
+ { _svcAbbrev = "DeviceFarm"
+ , _svcSigner = v4
+ , _svcPrefix = "devicefarm"
+ , _svcVersion = "2015-06-23"
+ , _svcEndpoint = defaultEndpoint deviceFarm
+ , _svcTimeout = Just 70
+ , _svcCheck = statusSuccess
+ , _svcError = parseJSONError "DeviceFarm"
+ , _svcRetry = retry
+ }
where
retry =
Exponential
- { _retryBase = 5.0e-2
- , _retryGrowth = 2
- , _retryAttempts = 5
- , _retryCheck = check
- }
+ { _retryBase = 5.0e-2
+ , _retryGrowth = 2
+ , _retryAttempts = 5
+ , _retryCheck = check
+ }
check e
| has (hasCode "ThrottledException" . hasStatus 400) e =
Just "throttled_exception"
@@ -481,6 +538,8 @@ deviceFarm =
Just "throttling_exception"
| has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"
| has (hasStatus 504) e = Just "gateway_timeout"
+ | has (hasCode "RequestThrottledException" . hasStatus 400) e =
+ Just "request_throttled_exception"
| has (hasStatus 502) e = Just "bad_gateway"
| has (hasStatus 503) e = Just "service_unavailable"
| has (hasStatus 500) e = Just "general_server_error"
@@ -524,6 +583,14 @@ _ServiceAccountException =
_MatchServiceError deviceFarm "ServiceAccountException"
+-- | There was an error with the update request, or you do not have sufficient permissions to update this VPC endpoint configuration.
+--
+--
+_InvalidOperationException :: AsError a => Getting (First ServiceError) a ServiceError
+_InvalidOperationException =
+ _MatchServiceError deviceFarm "InvalidOperationException"
+
+
-- | A limit was exceeded.
--
--
diff --git a/gen/Network/AWS/DeviceFarm/Types/Product.hs b/gen/Network/AWS/DeviceFarm/Types/Product.hs
index 546af0c..e2462ca 100644
--- a/gen/Network/AWS/DeviceFarm/Types/Product.hs
+++ b/gen/Network/AWS/DeviceFarm/Types/Product.hs
@@ -9,7 +9,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.Types.Product
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -27,7 +27,8 @@ import Network.AWS.Prelude
--
-- /See:/ 'accountSettings' smart constructor.
data AccountSettings = AccountSettings'
- { _asAwsAccountNumber :: !(Maybe Text)
+ { _asSkipAppResign :: !(Maybe Bool)
+ , _asAwsAccountNumber :: !(Maybe Text)
, _asMaxJobTimeoutMinutes :: !(Maybe Int)
, _asMaxSlots :: !(Maybe (Map Text Int))
, _asTrialMinutes :: !(Maybe TrialMinutes)
@@ -41,6 +42,8 @@ data AccountSettings = AccountSettings'
--
-- Use one of the following lenses to modify other fields as desired:
--
+-- * 'asSkipAppResign' - When set to @true@ , for private devices, Device Farm will not sign your app again. For public devices, Device Farm always signs your apps again and this parameter has no effect. For more information about how Device Farm re-signs your app(s), see <https://aws.amazon.com/device-farm/faq/ Do you modify my app?> in the /AWS Device Farm FAQs/ .
+--
-- * 'asAwsAccountNumber' - The AWS account number specified in the @AccountSettings@ container.
--
-- * 'asMaxJobTimeoutMinutes' - The maximum number of minutes a test run will execute before it times out.
@@ -58,51 +61,57 @@ accountSettings
:: AccountSettings
accountSettings =
AccountSettings'
- { _asAwsAccountNumber = Nothing
- , _asMaxJobTimeoutMinutes = Nothing
- , _asMaxSlots = Nothing
- , _asTrialMinutes = Nothing
- , _asUnmeteredDevices = Nothing
- , _asUnmeteredRemoteAccessDevices = Nothing
- , _asDefaultJobTimeoutMinutes = Nothing
- }
+ { _asSkipAppResign = Nothing
+ , _asAwsAccountNumber = Nothing
+ , _asMaxJobTimeoutMinutes = Nothing
+ , _asMaxSlots = Nothing
+ , _asTrialMinutes = Nothing
+ , _asUnmeteredDevices = Nothing
+ , _asUnmeteredRemoteAccessDevices = Nothing
+ , _asDefaultJobTimeoutMinutes = Nothing
+ }
+
+-- | When set to @true@ , for private devices, Device Farm will not sign your app again. For public devices, Device Farm always signs your apps again and this parameter has no effect. For more information about how Device Farm re-signs your app(s), see <https://aws.amazon.com/device-farm/faq/ Do you modify my app?> in the /AWS Device Farm FAQs/ .
+asSkipAppResign :: Lens' AccountSettings (Maybe Bool)
+asSkipAppResign = lens _asSkipAppResign (\ s a -> s{_asSkipAppResign = a})
-- | The AWS account number specified in the @AccountSettings@ container.
asAwsAccountNumber :: Lens' AccountSettings (Maybe Text)
-asAwsAccountNumber = lens _asAwsAccountNumber (\ s a -> s{_asAwsAccountNumber = a});
+asAwsAccountNumber = lens _asAwsAccountNumber (\ s a -> s{_asAwsAccountNumber = a})
-- | The maximum number of minutes a test run will execute before it times out.
asMaxJobTimeoutMinutes :: Lens' AccountSettings (Maybe Int)
-asMaxJobTimeoutMinutes = lens _asMaxJobTimeoutMinutes (\ s a -> s{_asMaxJobTimeoutMinutes = a});
+asMaxJobTimeoutMinutes = lens _asMaxJobTimeoutMinutes (\ s a -> s{_asMaxJobTimeoutMinutes = a})
-- | The maximum number of device slots that the AWS account can purchase. Each maximum is expressed as an @offering-id:number@ pair, where the @offering-id@ represents one of the IDs returned by the @ListOfferings@ command.
asMaxSlots :: Lens' AccountSettings (HashMap Text Int)
-asMaxSlots = lens _asMaxSlots (\ s a -> s{_asMaxSlots = a}) . _Default . _Map;
+asMaxSlots = lens _asMaxSlots (\ s a -> s{_asMaxSlots = a}) . _Default . _Map
-- | Information about an AWS account's usage of free trial device minutes.
asTrialMinutes :: Lens' AccountSettings (Maybe TrialMinutes)
-asTrialMinutes = lens _asTrialMinutes (\ s a -> s{_asTrialMinutes = a});
+asTrialMinutes = lens _asTrialMinutes (\ s a -> s{_asTrialMinutes = a})
-- | 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;
+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;
+asUnmeteredRemoteAccessDevices = lens _asUnmeteredRemoteAccessDevices (\ s a -> s{_asUnmeteredRemoteAccessDevices = a}) . _Default . _Map
-- | The default number of minutes (at the account level) a test run will execute before it times out. Default value is 60 minutes.
asDefaultJobTimeoutMinutes :: Lens' AccountSettings (Maybe Int)
-asDefaultJobTimeoutMinutes = lens _asDefaultJobTimeoutMinutes (\ s a -> s{_asDefaultJobTimeoutMinutes = a});
+asDefaultJobTimeoutMinutes = lens _asDefaultJobTimeoutMinutes (\ s a -> s{_asDefaultJobTimeoutMinutes = a})
instance FromJSON AccountSettings where
parseJSON
= withObject "AccountSettings"
(\ x ->
AccountSettings' <$>
- (x .:? "awsAccountNumber") <*>
- (x .:? "maxJobTimeoutMinutes")
+ (x .:? "skipAppResign") <*>
+ (x .:? "awsAccountNumber")
+ <*> (x .:? "maxJobTimeoutMinutes")
<*> (x .:? "maxSlots" .!= mempty)
<*> (x .:? "trialMinutes")
<*> (x .:? "unmeteredDevices" .!= mempty)
@@ -144,33 +153,33 @@ artifact
:: Artifact
artifact =
Artifact'
- { _aArn = Nothing
- , _aUrl = Nothing
- , _aExtension = Nothing
- , _aName = Nothing
- , _aType = Nothing
- }
+ { _aArn = Nothing
+ , _aUrl = Nothing
+ , _aExtension = Nothing
+ , _aName = Nothing
+ , _aType = Nothing
+ }
-- | The artifact's ARN.
aArn :: Lens' Artifact (Maybe Text)
-aArn = lens _aArn (\ s a -> s{_aArn = a});
+aArn = lens _aArn (\ s a -> s{_aArn = a})
-- | The pre-signed Amazon S3 URL that can be used with a corresponding GET request to download the artifact's file.
aUrl :: Lens' Artifact (Maybe Text)
-aUrl = lens _aUrl (\ s a -> s{_aUrl = a});
+aUrl = lens _aUrl (\ s a -> s{_aUrl = a})
-- | The artifact's file extension.
aExtension :: Lens' Artifact (Maybe Text)
-aExtension = lens _aExtension (\ s a -> s{_aExtension = a});
+aExtension = lens _aExtension (\ s a -> s{_aExtension = a})
-- | The artifact's name.
aName :: Lens' Artifact (Maybe Text)
-aName = lens _aName (\ s a -> s{_aName = a});
+aName = lens _aName (\ s a -> s{_aName = a})
-- | The artifact's type. Allowed values include the following: * UNKNOWN: An unknown type. * SCREENSHOT: The screenshot type. * DEVICE_LOG: The device log type. * MESSAGE_LOG: The message log type. * RESULT_LOG: The result log type. * SERVICE_LOG: The service log type. * WEBKIT_LOG: The web kit log type. * INSTRUMENTATION_OUTPUT: The instrumentation type. * EXERCISER_MONKEY_OUTPUT: For Android, the artifact (log) generated by an Android fuzz test. * CALABASH_JSON_OUTPUT: The Calabash JSON output type. * CALABASH_PRETTY_OUTPUT: The Calabash pretty output type. * CALABASH_STANDARD_OUTPUT: The Calabash standard output type. * CALABASH_JAVA_XML_OUTPUT: The Calabash Java XML output type. * AUTOMATION_OUTPUT: The automation output type. * APPIUM_SERVER_OUTPUT: The Appium server output type. * APPIUM_JAVA_OUTPUT: The Appium Java output type. * APPIUM_JAVA_XML_OUTPUT: The Appium Java XML output type. * APPIUM_PYTHON_OUTPUT: The Appium Python output type. * APPIUM_PYTHON_XML_OUTPUT: The Appium Python XML output type. * EXPLORER_EVENT_LOG: The Explorer event log output type. * EXPLORER_SUMMARY_LOG: The Explorer summary log output type. * APPLICATION_CRASH_REPORT: The application crash report output type. * XCTEST_LOG: The XCode test output type.
aType :: Lens' Artifact (Maybe ArtifactType)
-aType = lens _aType (\ s a -> s{_aType = a});
+aType = lens _aType (\ s a -> s{_aType = a})
instance FromJSON Artifact where
parseJSON
@@ -213,20 +222,20 @@ cpu
:: CPU
cpu =
CPU'
- {_cpuFrequency = Nothing, _cpuClock = Nothing, _cpuArchitecture = Nothing}
+ {_cpuFrequency = Nothing, _cpuClock = Nothing, _cpuArchitecture = Nothing}
-- | The CPU's frequency.
cpuFrequency :: Lens' CPU (Maybe Text)
-cpuFrequency = lens _cpuFrequency (\ s a -> s{_cpuFrequency = a});
+cpuFrequency = lens _cpuFrequency (\ s a -> s{_cpuFrequency = a})
-- | The clock speed of the device's CPU, expressed in hertz (Hz). For example, a 1.2 GHz CPU is expressed as 1200000000.
cpuClock :: Lens' CPU (Maybe Double)
-cpuClock = lens _cpuClock (\ s a -> s{_cpuClock = a});
+cpuClock = lens _cpuClock (\ s a -> s{_cpuClock = a})
-- | The CPU's architecture, for example x86 or ARM.
cpuArchitecture :: Lens' CPU (Maybe Text)
-cpuArchitecture = lens _cpuArchitecture (\ s a -> s{_cpuArchitecture = a});
+cpuArchitecture = lens _cpuArchitecture (\ s a -> s{_cpuArchitecture = a})
instance FromJSON CPU where
parseJSON
@@ -277,43 +286,43 @@ counters
:: Counters
counters =
Counters'
- { _cPassed = Nothing
- , _cSkipped = Nothing
- , _cWarned = Nothing
- , _cStopped = Nothing
- , _cTotal = Nothing
- , _cFailed = Nothing
- , _cErrored = Nothing
- }
+ { _cPassed = Nothing
+ , _cSkipped = Nothing
+ , _cWarned = Nothing
+ , _cStopped = Nothing
+ , _cTotal = Nothing
+ , _cFailed = Nothing
+ , _cErrored = Nothing
+ }
-- | The number of passed entities.
cPassed :: Lens' Counters (Maybe Int)
-cPassed = lens _cPassed (\ s a -> s{_cPassed = a});
+cPassed = lens _cPassed (\ s a -> s{_cPassed = a})
-- | The number of skipped entities.
cSkipped :: Lens' Counters (Maybe Int)
-cSkipped = lens _cSkipped (\ s a -> s{_cSkipped = a});
+cSkipped = lens _cSkipped (\ s a -> s{_cSkipped = a})
-- | The number of warned entities.
cWarned :: Lens' Counters (Maybe Int)
-cWarned = lens _cWarned (\ s a -> s{_cWarned = a});
+cWarned = lens _cWarned (\ s a -> s{_cWarned = a})
-- | The number of stopped entities.
cStopped :: Lens' Counters (Maybe Int)
-cStopped = lens _cStopped (\ s a -> s{_cStopped = a});
+cStopped = lens _cStopped (\ s a -> s{_cStopped = a})
-- | The total number of entities.
cTotal :: Lens' Counters (Maybe Int)
-cTotal = lens _cTotal (\ s a -> s{_cTotal = a});
+cTotal = lens _cTotal (\ s a -> s{_cTotal = a})
-- | The number of failed entities.
cFailed :: Lens' Counters (Maybe Int)
-cFailed = lens _cFailed (\ s a -> s{_cFailed = a});
+cFailed = lens _cFailed (\ s a -> s{_cFailed = a})
-- | The number of errored entities.
cErrored :: Lens' Counters (Maybe Int)
-cErrored = lens _cErrored (\ s a -> s{_cErrored = a});
+cErrored = lens _cErrored (\ s a -> s{_cErrored = a})
instance FromJSON Counters where
parseJSON
@@ -331,7 +340,7 @@ instance Hashable Counters where
instance NFData Counters where
--- | Creates the configuration settings for a remote access session, including the device model and type.
+-- | Configuration settings for a remote access session, including billing method.
--
--
--
@@ -345,16 +354,16 @@ newtype CreateRemoteAccessSessionConfiguration = CreateRemoteAccessSessionConfig
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'crascBillingMethod' - Returns the billing method for purposes of configuring a remote access session.
+-- * 'crascBillingMethod' - The billing method for the remote access session.
createRemoteAccessSessionConfiguration
:: CreateRemoteAccessSessionConfiguration
createRemoteAccessSessionConfiguration =
CreateRemoteAccessSessionConfiguration' {_crascBillingMethod = Nothing}
--- | Returns the billing method for purposes of configuring a remote access session.
+-- | The billing method for the remote access session.
crascBillingMethod :: Lens' CreateRemoteAccessSessionConfiguration (Maybe BillingMethod)
-crascBillingMethod = lens _crascBillingMethod (\ s a -> s{_crascBillingMethod = a});
+crascBillingMethod = lens _crascBillingMethod (\ s a -> s{_crascBillingMethod = a})
instance Hashable
CreateRemoteAccessSessionConfiguration
@@ -401,23 +410,23 @@ customerArtifactPaths
:: CustomerArtifactPaths
customerArtifactPaths =
CustomerArtifactPaths'
- { _capAndroidPaths = Nothing
- , _capDeviceHostPaths = Nothing
- , _capIosPaths = Nothing
- }
+ { _capAndroidPaths = Nothing
+ , _capDeviceHostPaths = Nothing
+ , _capIosPaths = Nothing
+ }
-- | Comma-separated list of paths on the Android device where the artifacts generated by the customer's tests will be pulled from.
capAndroidPaths :: Lens' CustomerArtifactPaths [Text]
-capAndroidPaths = lens _capAndroidPaths (\ s a -> s{_capAndroidPaths = a}) . _Default . _Coerce;
+capAndroidPaths = lens _capAndroidPaths (\ s a -> s{_capAndroidPaths = a}) . _Default . _Coerce
-- | Comma-separated list of paths in the test execution environment where the artifacts generated by the customer's tests will be pulled from.
capDeviceHostPaths :: Lens' CustomerArtifactPaths [Text]
-capDeviceHostPaths = lens _capDeviceHostPaths (\ s a -> s{_capDeviceHostPaths = a}) . _Default . _Coerce;
+capDeviceHostPaths = lens _capDeviceHostPaths (\ s a -> s{_capDeviceHostPaths = a}) . _Default . _Coerce
-- | Comma-separated list of paths on the iOS device where the artifacts generated by the customer's tests will be pulled from.
capIosPaths :: Lens' CustomerArtifactPaths [Text]
-capIosPaths = lens _capIosPaths (\ s a -> s{_capIosPaths = a}) . _Default . _Coerce;
+capIosPaths = lens _capIosPaths (\ s a -> s{_capIosPaths = a}) . _Default . _Coerce
instance FromJSON CustomerArtifactPaths where
parseJSON
@@ -450,6 +459,7 @@ data Device = Device'
, _devImage :: !(Maybe Text)
, _devManufacturer :: !(Maybe Text)
, _devPlatform :: !(Maybe DevicePlatform)
+ , _devModelId :: !(Maybe Text)
, _devRemoteAccessEnabled :: !(Maybe Bool)
, _devArn :: !(Maybe Text)
, _devFormFactor :: !(Maybe DeviceFormFactor)
@@ -460,6 +470,7 @@ data Device = Device'
, _devOs :: !(Maybe Text)
, _devName :: !(Maybe Text)
, _devModel :: !(Maybe Text)
+ , _devInstances :: !(Maybe [DeviceInstance])
, _devRemoteDebugEnabled :: !(Maybe Bool)
, _devCpu :: !(Maybe CPU)
, _devHeapSize :: !(Maybe Integer)
@@ -479,6 +490,8 @@ data Device = Device'
--
-- * 'devPlatform' - The device's platform. Allowed values include: * ANDROID: The Android platform. * IOS: The iOS platform.
--
+-- * 'devModelId' - The device's model ID.
+--
-- * 'devRemoteAccessEnabled' - Specifies whether remote access has been enabled for the specified device.
--
-- * 'devArn' - The device's ARN.
@@ -499,6 +512,8 @@ data Device = Device'
--
-- * 'devModel' - The device's model name.
--
+-- * 'devInstances' - The instances belonging to this device.
+--
-- * 'devRemoteDebugEnabled' - This flag is set to @true@ if remote debugging is enabled for the device.
--
-- * 'devCpu' - Information about the device's CPU.
@@ -510,98 +525,108 @@ device
:: Device
device =
Device'
- { _devCarrier = Nothing
- , _devImage = Nothing
- , _devManufacturer = Nothing
- , _devPlatform = Nothing
- , _devRemoteAccessEnabled = Nothing
- , _devArn = Nothing
- , _devFormFactor = Nothing
- , _devFleetType = Nothing
- , _devResolution = Nothing
- , _devMemory = Nothing
- , _devRadio = Nothing
- , _devOs = Nothing
- , _devName = Nothing
- , _devModel = Nothing
- , _devRemoteDebugEnabled = Nothing
- , _devCpu = Nothing
- , _devHeapSize = Nothing
- , _devFleetName = Nothing
- }
+ { _devCarrier = Nothing
+ , _devImage = Nothing
+ , _devManufacturer = Nothing
+ , _devPlatform = Nothing
+ , _devModelId = Nothing
+ , _devRemoteAccessEnabled = Nothing
+ , _devArn = Nothing
+ , _devFormFactor = Nothing
+ , _devFleetType = Nothing
+ , _devResolution = Nothing
+ , _devMemory = Nothing
+ , _devRadio = Nothing
+ , _devOs = Nothing
+ , _devName = Nothing
+ , _devModel = Nothing
+ , _devInstances = Nothing
+ , _devRemoteDebugEnabled = Nothing
+ , _devCpu = Nothing
+ , _devHeapSize = Nothing
+ , _devFleetName = Nothing
+ }
-- | The device's carrier.
devCarrier :: Lens' Device (Maybe Text)
-devCarrier = lens _devCarrier (\ s a -> s{_devCarrier = a});
+devCarrier = lens _devCarrier (\ s a -> s{_devCarrier = a})
-- | The device's image name.
devImage :: Lens' Device (Maybe Text)
-devImage = lens _devImage (\ s a -> s{_devImage = a});
+devImage = lens _devImage (\ s a -> s{_devImage = a})
-- | The device's manufacturer name.
devManufacturer :: Lens' Device (Maybe Text)
-devManufacturer = lens _devManufacturer (\ s a -> s{_devManufacturer = a});
+devManufacturer = lens _devManufacturer (\ s a -> s{_devManufacturer = a})
-- | The device's platform. Allowed values include: * ANDROID: The Android platform. * IOS: The iOS platform.
devPlatform :: Lens' Device (Maybe DevicePlatform)
-devPlatform = lens _devPlatform (\ s a -> s{_devPlatform = a});
+devPlatform = lens _devPlatform (\ s a -> s{_devPlatform = a})
+
+-- | The device's model ID.
+devModelId :: Lens' Device (Maybe Text)
+devModelId = lens _devModelId (\ s a -> s{_devModelId = a})
-- | Specifies whether remote access has been enabled for the specified device.
devRemoteAccessEnabled :: Lens' Device (Maybe Bool)
-devRemoteAccessEnabled = lens _devRemoteAccessEnabled (\ s a -> s{_devRemoteAccessEnabled = a});
+devRemoteAccessEnabled = lens _devRemoteAccessEnabled (\ s a -> s{_devRemoteAccessEnabled = a})
-- | The device's ARN.
devArn :: Lens' Device (Maybe Text)
-devArn = lens _devArn (\ s a -> s{_devArn = a});
+devArn = lens _devArn (\ s a -> s{_devArn = a})
-- | The device's form factor. Allowed values include: * PHONE: The phone form factor. * TABLET: The tablet form factor.
devFormFactor :: Lens' Device (Maybe DeviceFormFactor)
-devFormFactor = lens _devFormFactor (\ s a -> s{_devFormFactor = a});
+devFormFactor = lens _devFormFactor (\ s a -> s{_devFormFactor = a})
-- | The type of fleet to which this device belongs. Possible values for fleet type are PRIVATE and PUBLIC.
devFleetType :: Lens' Device (Maybe Text)
-devFleetType = lens _devFleetType (\ s a -> s{_devFleetType = a});
+devFleetType = lens _devFleetType (\ s a -> s{_devFleetType = a})
-- | The resolution of the device.
devResolution :: Lens' Device (Maybe Resolution)
-devResolution = lens _devResolution (\ s a -> s{_devResolution = a});
+devResolution = lens _devResolution (\ s a -> s{_devResolution = a})
-- | The device's total memory size, expressed in bytes.
devMemory :: Lens' Device (Maybe Integer)
-devMemory = lens _devMemory (\ s a -> s{_devMemory = a});
+devMemory = lens _devMemory (\ s a -> s{_devMemory = a})
-- | The device's radio.
devRadio :: Lens' Device (Maybe Text)
-devRadio = lens _devRadio (\ s a -> s{_devRadio = a});
+devRadio = lens _devRadio (\ s a -> s{_devRadio = a})
-- | The device's operating system type.
devOs :: Lens' Device (Maybe Text)
-devOs = lens _devOs (\ s a -> s{_devOs = a});
+devOs = lens _devOs (\ s a -> s{_devOs = a})
-- | The device's display name.
devName :: Lens' Device (Maybe Text)
-devName = lens _devName (\ s a -> s{_devName = a});
+devName = lens _devName (\ s a -> s{_devName = a})
-- | The device's model name.
devModel :: Lens' Device (Maybe Text)
-devModel = lens _devModel (\ s a -> s{_devModel = a});
+devModel = lens _devModel (\ s a -> s{_devModel = a})
+
+-- | The instances belonging to this device.
+devInstances :: Lens' Device [DeviceInstance]
+devInstances = lens _devInstances (\ s a -> s{_devInstances = a}) . _Default . _Coerce
-- | This flag is set to @true@ if remote debugging is enabled for the device.
devRemoteDebugEnabled :: Lens' Device (Maybe Bool)
-devRemoteDebugEnabled = lens _devRemoteDebugEnabled (\ s a -> s{_devRemoteDebugEnabled = a});
+devRemoteDebugEnabled = lens _devRemoteDebugEnabled (\ s a -> s{_devRemoteDebugEnabled = a})
-- | Information about the device's CPU.
devCpu :: Lens' Device (Maybe CPU)
-devCpu = lens _devCpu (\ s a -> s{_devCpu = a});
+devCpu = lens _devCpu (\ s a -> s{_devCpu = a})
-- | The device's heap size, expressed in bytes.
devHeapSize :: Lens' Device (Maybe Integer)
-devHeapSize = lens _devHeapSize (\ s a -> s{_devHeapSize = a});
+devHeapSize = lens _devHeapSize (\ s a -> s{_devHeapSize = a})
-- | The name of the fleet to which this device belongs.
devFleetName :: Lens' Device (Maybe Text)
-devFleetName = lens _devFleetName (\ s a -> s{_devFleetName = a});
+devFleetName = lens _devFleetName (\ s a -> s{_devFleetName = a})
instance FromJSON Device where
parseJSON
@@ -611,6 +636,7 @@ instance FromJSON Device where
(x .:? "carrier") <*> (x .:? "image") <*>
(x .:? "manufacturer")
<*> (x .:? "platform")
+ <*> (x .:? "modelId")
<*> (x .:? "remoteAccessEnabled")
<*> (x .:? "arn")
<*> (x .:? "formFactor")
@@ -621,6 +647,7 @@ instance FromJSON Device where
<*> (x .:? "os")
<*> (x .:? "name")
<*> (x .:? "model")
+ <*> (x .:? "instances" .!= mempty)
<*> (x .:? "remoteDebugEnabled")
<*> (x .:? "cpu")
<*> (x .:? "heapSize")
@@ -630,6 +657,88 @@ instance Hashable Device where
instance NFData Device where
+-- | Represents the device instance.
+--
+--
+--
+-- /See:/ 'deviceInstance' smart constructor.
+data DeviceInstance = DeviceInstance'
+ { _diStatus :: !(Maybe InstanceStatus)
+ , _diUdid :: !(Maybe Text)
+ , _diInstanceProfile :: !(Maybe InstanceProfile)
+ , _diArn :: !(Maybe Text)
+ , _diDeviceARN :: !(Maybe Text)
+ , _diLabels :: !(Maybe [Text])
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'DeviceInstance' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'diStatus' - The status of the device instance. Valid values are listed below.
+--
+-- * 'diUdid' - Unique device identifier for the device instance.
+--
+-- * 'diInstanceProfile' - A object containing information about the instance profile.
+--
+-- * 'diArn' - The Amazon Resource Name (ARN) of the device instance.
+--
+-- * 'diDeviceARN' - The Amazon Resource Name (ARN) of the device.
+--
+-- * 'diLabels' - An array of strings describing the device instance.
+deviceInstance
+ :: DeviceInstance
+deviceInstance =
+ DeviceInstance'
+ { _diStatus = Nothing
+ , _diUdid = Nothing
+ , _diInstanceProfile = Nothing
+ , _diArn = Nothing
+ , _diDeviceARN = Nothing
+ , _diLabels = Nothing
+ }
+
+
+-- | The status of the device instance. Valid values are listed below.
+diStatus :: Lens' DeviceInstance (Maybe InstanceStatus)
+diStatus = lens _diStatus (\ s a -> s{_diStatus = a})
+
+-- | Unique device identifier for the device instance.
+diUdid :: Lens' DeviceInstance (Maybe Text)
+diUdid = lens _diUdid (\ s a -> s{_diUdid = a})
+
+-- | A object containing information about the instance profile.
+diInstanceProfile :: Lens' DeviceInstance (Maybe InstanceProfile)
+diInstanceProfile = lens _diInstanceProfile (\ s a -> s{_diInstanceProfile = a})
+
+-- | The Amazon Resource Name (ARN) of the device instance.
+diArn :: Lens' DeviceInstance (Maybe Text)
+diArn = lens _diArn (\ s a -> s{_diArn = a})
+
+-- | The Amazon Resource Name (ARN) of the device.
+diDeviceARN :: Lens' DeviceInstance (Maybe Text)
+diDeviceARN = lens _diDeviceARN (\ s a -> s{_diDeviceARN = a})
+
+-- | An array of strings describing the device instance.
+diLabels :: Lens' DeviceInstance [Text]
+diLabels = lens _diLabels (\ s a -> s{_diLabels = a}) . _Default . _Coerce
+
+instance FromJSON DeviceInstance where
+ parseJSON
+ = withObject "DeviceInstance"
+ (\ x ->
+ DeviceInstance' <$>
+ (x .:? "status") <*> (x .:? "udid") <*>
+ (x .:? "instanceProfile")
+ <*> (x .:? "arn")
+ <*> (x .:? "deviceArn")
+ <*> (x .:? "labels" .!= mempty))
+
+instance Hashable DeviceInstance where
+
+instance NFData DeviceInstance where
+
-- | Represents the total (metered or unmetered) minutes used by the resource to run tests. Contains the sum of minutes consumed by all children.
--
--
@@ -655,20 +764,20 @@ deviceMinutes
:: DeviceMinutes
deviceMinutes =
DeviceMinutes'
- {_dmMetered = Nothing, _dmTotal = Nothing, _dmUnmetered = Nothing}
+ {_dmMetered = Nothing, _dmTotal = Nothing, _dmUnmetered = Nothing}
-- | When specified, represents only the sum of metered minutes used by the resource to run tests.
dmMetered :: Lens' DeviceMinutes (Maybe Double)
-dmMetered = lens _dmMetered (\ s a -> s{_dmMetered = a});
+dmMetered = lens _dmMetered (\ s a -> s{_dmMetered = a})
-- | When specified, represents the total minutes used by the resource to run tests.
dmTotal :: Lens' DeviceMinutes (Maybe Double)
-dmTotal = lens _dmTotal (\ s a -> s{_dmTotal = a});
+dmTotal = lens _dmTotal (\ s a -> s{_dmTotal = a})
-- | When specified, represents only the sum of unmetered minutes used by the resource to run tests.
dmUnmetered :: Lens' DeviceMinutes (Maybe Double)
-dmUnmetered = lens _dmUnmetered (\ s a -> s{_dmUnmetered = a});
+dmUnmetered = lens _dmUnmetered (\ s a -> s{_dmUnmetered = a})
instance FromJSON DeviceMinutes where
parseJSON
@@ -713,33 +822,33 @@ devicePool
:: DevicePool
devicePool =
DevicePool'
- { _dArn = Nothing
- , _dRules = Nothing
- , _dName = Nothing
- , _dType = Nothing
- , _dDescription = Nothing
- }
+ { _dArn = Nothing
+ , _dRules = Nothing
+ , _dName = Nothing
+ , _dType = Nothing
+ , _dDescription = Nothing
+ }
-- | The device pool's ARN.
dArn :: Lens' DevicePool (Maybe Text)
-dArn = lens _dArn (\ s a -> s{_dArn = a});
+dArn = lens _dArn (\ s a -> s{_dArn = a})
-- | Information about the device pool's rules.
dRules :: Lens' DevicePool [Rule]
-dRules = lens _dRules (\ s a -> s{_dRules = a}) . _Default . _Coerce;
+dRules = lens _dRules (\ s a -> s{_dRules = a}) . _Default . _Coerce
-- | The device pool's name.
dName :: Lens' DevicePool (Maybe Text)
-dName = lens _dName (\ s a -> s{_dName = a});
+dName = lens _dName (\ s a -> s{_dName = a})
-- | The device pool's type. Allowed values include: * CURATED: A device pool that is created and managed by AWS Device Farm. * PRIVATE: A device pool that is created and managed by the device pool developer.
dType :: Lens' DevicePool (Maybe DevicePoolType)
-dType = lens _dType (\ s a -> s{_dType = a});
+dType = lens _dType (\ s a -> s{_dType = a})
-- | The device pool's description.
dDescription :: Lens' DevicePool (Maybe Text)
-dDescription = lens _dDescription (\ s a -> s{_dDescription = a});
+dDescription = lens _dDescription (\ s a -> s{_dDescription = a})
instance FromJSON DevicePool where
parseJSON
@@ -780,23 +889,23 @@ devicePoolCompatibilityResult
:: DevicePoolCompatibilityResult
devicePoolCompatibilityResult =
DevicePoolCompatibilityResult'
- { _dpcrDevice = Nothing
- , _dpcrCompatible = Nothing
- , _dpcrIncompatibilityMessages = Nothing
- }
+ { _dpcrDevice = Nothing
+ , _dpcrCompatible = Nothing
+ , _dpcrIncompatibilityMessages = Nothing
+ }
-- | The device (phone or tablet) that you wish to return information about.
dpcrDevice :: Lens' DevicePoolCompatibilityResult (Maybe Device)
-dpcrDevice = lens _dpcrDevice (\ s a -> s{_dpcrDevice = a});
+dpcrDevice = lens _dpcrDevice (\ s a -> s{_dpcrDevice = a})
-- | Whether the result was compatible with the device pool.
dpcrCompatible :: Lens' DevicePoolCompatibilityResult (Maybe Bool)
-dpcrCompatible = lens _dpcrCompatible (\ s a -> s{_dpcrCompatible = a});
+dpcrCompatible = lens _dpcrCompatible (\ s a -> s{_dpcrCompatible = a})
-- | Information about the compatibility.
dpcrIncompatibilityMessages :: Lens' DevicePoolCompatibilityResult [IncompatibilityMessage]
-dpcrIncompatibilityMessages = lens _dpcrIncompatibilityMessages (\ s a -> s{_dpcrIncompatibilityMessages = a}) . _Default . _Coerce;
+dpcrIncompatibilityMessages = lens _dpcrIncompatibilityMessages (\ s a -> s{_dpcrIncompatibilityMessages = a}) . _Default . _Coerce
instance FromJSON DevicePoolCompatibilityResult where
parseJSON
@@ -816,7 +925,8 @@ instance NFData DevicePoolCompatibilityResult where
--
-- /See:/ 'executionConfiguration' smart constructor.
data ExecutionConfiguration = ExecutionConfiguration'
- { _ecAccountsCleanup :: !(Maybe Bool)
+ { _ecSkipAppResign :: !(Maybe Bool)
+ , _ecAccountsCleanup :: !(Maybe Bool)
, _ecAppPackagesCleanup :: !(Maybe Bool)
, _ecJobTimeoutMinutes :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
@@ -826,6 +936,8 @@ data ExecutionConfiguration = ExecutionConfiguration'
--
-- Use one of the following lenses to modify other fields as desired:
--
+-- * 'ecSkipAppResign' - When set to @true@ , for private devices, Device Farm will not sign your app again. For public devices, Device Farm always signs your apps again and this parameter has no effect. For more information about how Device Farm re-signs your app(s), see <https://aws.amazon.com/device-farm/faq/ Do you modify my app?> in the /AWS Device Farm FAQs/ .
+--
-- * 'ecAccountsCleanup' - True if account cleanup is enabled at the beginning of the test; otherwise, false.
--
-- * 'ecAppPackagesCleanup' - True if app package cleanup is enabled at the beginning of the test; otherwise, false.
@@ -835,23 +947,28 @@ executionConfiguration
:: ExecutionConfiguration
executionConfiguration =
ExecutionConfiguration'
- { _ecAccountsCleanup = Nothing
- , _ecAppPackagesCleanup = Nothing
- , _ecJobTimeoutMinutes = Nothing
- }
+ { _ecSkipAppResign = Nothing
+ , _ecAccountsCleanup = Nothing
+ , _ecAppPackagesCleanup = Nothing
+ , _ecJobTimeoutMinutes = Nothing
+ }
+-- | When set to @true@ , for private devices, Device Farm will not sign your app again. For public devices, Device Farm always signs your apps again and this parameter has no effect. For more information about how Device Farm re-signs your app(s), see <https://aws.amazon.com/device-farm/faq/ Do you modify my app?> in the /AWS Device Farm FAQs/ .
+ecSkipAppResign :: Lens' ExecutionConfiguration (Maybe Bool)
+ecSkipAppResign = lens _ecSkipAppResign (\ s a -> s{_ecSkipAppResign = a})
+
-- | True if account cleanup is enabled at the beginning of the test; otherwise, false.
ecAccountsCleanup :: Lens' ExecutionConfiguration (Maybe Bool)
-ecAccountsCleanup = lens _ecAccountsCleanup (\ s a -> s{_ecAccountsCleanup = a});
+ecAccountsCleanup = lens _ecAccountsCleanup (\ s a -> s{_ecAccountsCleanup = a})
-- | True if app package cleanup is enabled at the beginning of the test; otherwise, false.
ecAppPackagesCleanup :: Lens' ExecutionConfiguration (Maybe Bool)
-ecAppPackagesCleanup = lens _ecAppPackagesCleanup (\ s a -> s{_ecAppPackagesCleanup = a});
+ecAppPackagesCleanup = lens _ecAppPackagesCleanup (\ s a -> s{_ecAppPackagesCleanup = a})
-- | The number of minutes a test run will execute before it times out.
ecJobTimeoutMinutes :: Lens' ExecutionConfiguration (Maybe Int)
-ecJobTimeoutMinutes = lens _ecJobTimeoutMinutes (\ s a -> s{_ecJobTimeoutMinutes = a});
+ecJobTimeoutMinutes = lens _ecJobTimeoutMinutes (\ s a -> s{_ecJobTimeoutMinutes = a})
instance Hashable ExecutionConfiguration where
@@ -861,7 +978,8 @@ instance ToJSON ExecutionConfiguration where
toJSON ExecutionConfiguration'{..}
= object
(catMaybes
- [("accountsCleanup" .=) <$> _ecAccountsCleanup,
+ [("skipAppResign" .=) <$> _ecSkipAppResign,
+ ("accountsCleanup" .=) <$> _ecAccountsCleanup,
("appPackagesCleanup" .=) <$> _ecAppPackagesCleanup,
("jobTimeoutMinutes" .=) <$> _ecJobTimeoutMinutes])
@@ -891,11 +1009,11 @@ incompatibilityMessage =
-- | The type of incompatibility. Allowed values include: * ARN: The ARN. * FORM_FACTOR: The form factor (for example, phone or tablet). * MANUFACTURER: The manufacturer. * PLATFORM: The platform (for example, Android or iOS). * REMOTE_ACCESS_ENABLED: Whether the device is enabled for remote access. * APPIUM_VERSION: The Appium version for the test.
imType :: Lens' IncompatibilityMessage (Maybe DeviceAttribute)
-imType = lens _imType (\ s a -> s{_imType = a});
+imType = lens _imType (\ s a -> s{_imType = a})
-- | A message about the incompatibility.
imMessage :: Lens' IncompatibilityMessage (Maybe Text)
-imMessage = lens _imMessage (\ s a -> s{_imMessage = a});
+imMessage = lens _imMessage (\ s a -> s{_imMessage = a})
instance FromJSON IncompatibilityMessage where
parseJSON
@@ -908,13 +1026,97 @@ instance Hashable IncompatibilityMessage where
instance NFData IncompatibilityMessage where
+-- | Represents the instance profile.
+--
+--
+--
+-- /See:/ 'instanceProfile' smart constructor.
+data InstanceProfile = InstanceProfile'
+ { _ipArn :: !(Maybe Text)
+ , _ipRebootAfterUse :: !(Maybe Bool)
+ , _ipName :: !(Maybe Text)
+ , _ipPackageCleanup :: !(Maybe Bool)
+ , _ipExcludeAppPackagesFromCleanup :: !(Maybe [Text])
+ , _ipDescription :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'InstanceProfile' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'ipArn' - The Amazon Resource Name (ARN) of the instance profile.
+--
+-- * 'ipRebootAfterUse' - When set to @true@ , Device Farm will reboot the instance after a test run. The default value is @true@ .
+--
+-- * 'ipName' - The name of the instance profile.
+--
+-- * 'ipPackageCleanup' - When set to @true@ , Device Farm will remove app packages after a test run. The default value is @false@ for private devices.
+--
+-- * 'ipExcludeAppPackagesFromCleanup' - An array of strings specifying the list of app packages that should not be cleaned up from the device after a test run is over. The list of packages is only considered if you set @packageCleanup@ to @true@ .
+--
+-- * 'ipDescription' - The description of the instance profile.
+instanceProfile
+ :: InstanceProfile
+instanceProfile =
+ InstanceProfile'
+ { _ipArn = Nothing
+ , _ipRebootAfterUse = Nothing
+ , _ipName = Nothing
+ , _ipPackageCleanup = Nothing
+ , _ipExcludeAppPackagesFromCleanup = Nothing
+ , _ipDescription = Nothing
+ }
+
+
+-- | The Amazon Resource Name (ARN) of the instance profile.
+ipArn :: Lens' InstanceProfile (Maybe Text)
+ipArn = lens _ipArn (\ s a -> s{_ipArn = a})
+
+-- | When set to @true@ , Device Farm will reboot the instance after a test run. The default value is @true@ .
+ipRebootAfterUse :: Lens' InstanceProfile (Maybe Bool)
+ipRebootAfterUse = lens _ipRebootAfterUse (\ s a -> s{_ipRebootAfterUse = a})
+
+-- | The name of the instance profile.
+ipName :: Lens' InstanceProfile (Maybe Text)
+ipName = lens _ipName (\ s a -> s{_ipName = a})
+
+-- | When set to @true@ , Device Farm will remove app packages after a test run. The default value is @false@ for private devices.
+ipPackageCleanup :: Lens' InstanceProfile (Maybe Bool)
+ipPackageCleanup = lens _ipPackageCleanup (\ s a -> s{_ipPackageCleanup = a})
+
+-- | An array of strings specifying the list of app packages that should not be cleaned up from the device after a test run is over. The list of packages is only considered if you set @packageCleanup@ to @true@ .
+ipExcludeAppPackagesFromCleanup :: Lens' InstanceProfile [Text]
+ipExcludeAppPackagesFromCleanup = lens _ipExcludeAppPackagesFromCleanup (\ s a -> s{_ipExcludeAppPackagesFromCleanup = a}) . _Default . _Coerce
+
+-- | The description of the instance profile.
+ipDescription :: Lens' InstanceProfile (Maybe Text)
+ipDescription = lens _ipDescription (\ s a -> s{_ipDescription = a})
+
+instance FromJSON InstanceProfile where
+ parseJSON
+ = withObject "InstanceProfile"
+ (\ x ->
+ InstanceProfile' <$>
+ (x .:? "arn") <*> (x .:? "rebootAfterUse") <*>
+ (x .:? "name")
+ <*> (x .:? "packageCleanup")
+ <*>
+ (x .:? "excludeAppPackagesFromCleanup" .!= mempty)
+ <*> (x .:? "description"))
+
+instance Hashable InstanceProfile where
+
+instance NFData InstanceProfile where
+
-- | Represents a device.
--
--
--
-- /See:/ 'job' smart constructor.
data Job = Job'
- { _jobStatus :: !(Maybe ExecutionStatus)
+ { _jobInstanceARN :: !(Maybe Text)
+ , _jobStatus :: !(Maybe ExecutionStatus)
, _jobCounters :: !(Maybe Counters)
, _jobArn :: !(Maybe Text)
, _jobCreated :: !(Maybe POSIX)
@@ -933,6 +1135,8 @@ data Job = Job'
--
-- Use one of the following lenses to modify other fields as desired:
--
+-- * 'jobInstanceARN' - The Amazon Resource Name (ARN) of the instance.
+--
-- * 'jobStatus' - The job's status. Allowed values include: * 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. * COMPLETED: A completed status. * STOPPING: A stopping status.
--
-- * 'jobCounters' - The job's result counters.
@@ -960,76 +1164,82 @@ job
:: Job
job =
Job'
- { _jobStatus = Nothing
- , _jobCounters = Nothing
- , _jobArn = Nothing
- , _jobCreated = Nothing
- , _jobDevice = Nothing
- , _jobStopped = Nothing
- , _jobResult = Nothing
- , _jobName = Nothing
- , _jobDeviceMinutes = Nothing
- , _jobType = Nothing
- , _jobMessage = Nothing
- , _jobStarted = Nothing
- }
-
+ { _jobInstanceARN = Nothing
+ , _jobStatus = Nothing
+ , _jobCounters = Nothing
+ , _jobArn = Nothing
+ , _jobCreated = Nothing
+ , _jobDevice = Nothing
+ , _jobStopped = Nothing
+ , _jobResult = Nothing
+ , _jobName = Nothing
+ , _jobDeviceMinutes = Nothing
+ , _jobType = Nothing
+ , _jobMessage = Nothing
+ , _jobStarted = Nothing
+ }
+
+
+-- | The Amazon Resource Name (ARN) of the instance.
+jobInstanceARN :: Lens' Job (Maybe Text)
+jobInstanceARN = lens _jobInstanceARN (\ s a -> s{_jobInstanceARN = a})
-- | The job's status. Allowed values include: * 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. * COMPLETED: A completed status. * STOPPING: A stopping status.
jobStatus :: Lens' Job (Maybe ExecutionStatus)
-jobStatus = lens _jobStatus (\ s a -> s{_jobStatus = a});
+jobStatus = lens _jobStatus (\ s a -> s{_jobStatus = a})
-- | The job's result counters.
jobCounters :: Lens' Job (Maybe Counters)
-jobCounters = lens _jobCounters (\ s a -> s{_jobCounters = a});
+jobCounters = lens _jobCounters (\ s a -> s{_jobCounters = a})
-- | The job's ARN.
jobArn :: Lens' Job (Maybe Text)
-jobArn = lens _jobArn (\ s a -> s{_jobArn = a});
+jobArn = lens _jobArn (\ s a -> s{_jobArn = a})
-- | When the job was created.
jobCreated :: Lens' Job (Maybe UTCTime)
-jobCreated = lens _jobCreated (\ s a -> s{_jobCreated = a}) . mapping _Time;
+jobCreated = lens _jobCreated (\ s a -> s{_jobCreated = a}) . mapping _Time
-- | The device (phone or tablet).
jobDevice :: Lens' Job (Maybe Device)
-jobDevice = lens _jobDevice (\ s a -> s{_jobDevice = a});
+jobDevice = lens _jobDevice (\ s a -> s{_jobDevice = a})
-- | The job's stop time.
jobStopped :: Lens' Job (Maybe UTCTime)
-jobStopped = lens _jobStopped (\ s a -> s{_jobStopped = a}) . mapping _Time;
+jobStopped = lens _jobStopped (\ s a -> s{_jobStopped = a}) . mapping _Time
-- | The job's result. Allowed values include: * PENDING: A pending condition. * PASSED: A passing condition. * WARNED: A warning condition. * FAILED: A failed condition. * SKIPPED: A skipped condition. * ERRORED: An error condition. * STOPPED: A stopped condition.
jobResult :: Lens' Job (Maybe ExecutionResult)
-jobResult = lens _jobResult (\ s a -> s{_jobResult = a});
+jobResult = lens _jobResult (\ s a -> s{_jobResult = a})
-- | The job's name.
jobName :: Lens' Job (Maybe Text)
-jobName = lens _jobName (\ s a -> s{_jobName = a});
+jobName = lens _jobName (\ s a -> s{_jobName = a})
-- | Represents the total (metered or unmetered) minutes used by the job.
jobDeviceMinutes :: Lens' Job (Maybe DeviceMinutes)
-jobDeviceMinutes = lens _jobDeviceMinutes (\ s a -> s{_jobDeviceMinutes = a});
+jobDeviceMinutes = lens _jobDeviceMinutes (\ s a -> s{_jobDeviceMinutes = a})
-- | The job's type. Allowed values include the following: * BUILTIN_FUZZ: The built-in fuzz type. * BUILTIN_EXPLORER: For Android, an app explorer that will traverse an Android app, interacting with it and capturing screenshots at the same time. * APPIUM_JAVA_JUNIT: The Appium Java JUnit type. * APPIUM_JAVA_TESTNG: The Appium Java TestNG type. * APPIUM_PYTHON: The Appium Python type. * APPIUM_WEB_JAVA_JUNIT: The Appium Java JUnit type for Web apps. * APPIUM_WEB_JAVA_TESTNG: The Appium Java TestNG type for Web apps. * APPIUM_WEB_PYTHON: The Appium Python type for Web apps. * CALABASH: The Calabash type. * INSTRUMENTATION: The Instrumentation type. * UIAUTOMATION: The uiautomation type. * UIAUTOMATOR: The uiautomator type. * XCTEST: The XCode test type. * XCTEST_UI: The XCode UI test type.
jobType :: Lens' Job (Maybe TestType)
-jobType = lens _jobType (\ s a -> s{_jobType = a});
+jobType = lens _jobType (\ s a -> s{_jobType = a})
-- | A message about the job's result.
jobMessage :: Lens' Job (Maybe Text)
-jobMessage = lens _jobMessage (\ s a -> s{_jobMessage = a});
+jobMessage = lens _jobMessage (\ s a -> s{_jobMessage = a})
-- | The job's start time.
jobStarted :: Lens' Job (Maybe UTCTime)
-jobStarted = lens _jobStarted (\ s a -> s{_jobStarted = a}) . mapping _Time;
+jobStarted = lens _jobStarted (\ s a -> s{_jobStarted = a}) . mapping _Time
instance FromJSON Job where
parseJSON
= withObject "Job"
(\ x ->
Job' <$>
- (x .:? "status") <*> (x .:? "counters") <*>
- (x .:? "arn")
+ (x .:? "instanceArn") <*> (x .:? "status") <*>
+ (x .:? "counters")
+ <*> (x .:? "arn")
<*> (x .:? "created")
<*> (x .:? "device")
<*> (x .:? "stopped")
@@ -1074,11 +1284,18 @@ location pLatitude_ pLongitude_ =
-- | The latitude.
lLatitude :: Lens' Location Double
-lLatitude = lens _lLatitude (\ s a -> s{_lLatitude = a});
+lLatitude = lens _lLatitude (\ s a -> s{_lLatitude = a})
-- | The longitude.
lLongitude :: Lens' Location Double
-lLongitude = lens _lLongitude (\ s a -> s{_lLongitude = a});
+lLongitude = lens _lLongitude (\ s a -> s{_lLongitude = a})
+
+instance FromJSON Location where
+ parseJSON
+ = withObject "Location"
+ (\ x ->
+ Location' <$>
+ (x .: "latitude") <*> (x .: "longitude"))
instance Hashable Location where
@@ -1117,11 +1334,11 @@ monetaryAmount =
-- | The numerical amount of an offering or transaction.
maAmount :: Lens' MonetaryAmount (Maybe Double)
-maAmount = lens _maAmount (\ s a -> s{_maAmount = a});
+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});
+maCurrencyCode = lens _maCurrencyCode (\ s a -> s{_maCurrencyCode = a})
instance FromJSON MonetaryAmount where
parseJSON
@@ -1186,68 +1403,68 @@ networkProfile
:: NetworkProfile
networkProfile =
NetworkProfile'
- { _npUplinkJitterMs = Nothing
- , _npArn = Nothing
- , _npUplinkLossPercent = Nothing
- , _npDownlinkJitterMs = Nothing
- , _npName = Nothing
- , _npDownlinkLossPercent = Nothing
- , _npType = Nothing
- , _npUplinkDelayMs = Nothing
- , _npUplinkBandwidthBits = Nothing
- , _npDescription = Nothing
- , _npDownlinkDelayMs = Nothing
- , _npDownlinkBandwidthBits = Nothing
- }
+ { _npUplinkJitterMs = Nothing
+ , _npArn = Nothing
+ , _npUplinkLossPercent = Nothing
+ , _npDownlinkJitterMs = Nothing
+ , _npName = Nothing
+ , _npDownlinkLossPercent = Nothing
+ , _npType = Nothing
+ , _npUplinkDelayMs = Nothing
+ , _npUplinkBandwidthBits = Nothing
+ , _npDescription = Nothing
+ , _npDownlinkDelayMs = Nothing
+ , _npDownlinkBandwidthBits = Nothing
+ }
-- | Time variation in the delay of received packets in milliseconds as an integer from 0 to 2000.
npUplinkJitterMs :: Lens' NetworkProfile (Maybe Integer)
-npUplinkJitterMs = lens _npUplinkJitterMs (\ s a -> s{_npUplinkJitterMs = a});
+npUplinkJitterMs = lens _npUplinkJitterMs (\ s a -> s{_npUplinkJitterMs = a})
-- | The Amazon Resource Name (ARN) of the network profile.
npArn :: Lens' NetworkProfile (Maybe Text)
-npArn = lens _npArn (\ s a -> s{_npArn = a});
+npArn = lens _npArn (\ s a -> s{_npArn = a})
-- | Proportion of transmitted packets that fail to arrive from 0 to 100 percent.
npUplinkLossPercent :: Lens' NetworkProfile (Maybe Natural)
-npUplinkLossPercent = lens _npUplinkLossPercent (\ s a -> s{_npUplinkLossPercent = a}) . mapping _Nat;
+npUplinkLossPercent = lens _npUplinkLossPercent (\ s a -> s{_npUplinkLossPercent = a}) . mapping _Nat
-- | Time variation in the delay of received packets in milliseconds as an integer from 0 to 2000.
npDownlinkJitterMs :: Lens' NetworkProfile (Maybe Integer)
-npDownlinkJitterMs = lens _npDownlinkJitterMs (\ s a -> s{_npDownlinkJitterMs = a});
+npDownlinkJitterMs = lens _npDownlinkJitterMs (\ s a -> s{_npDownlinkJitterMs = a})
-- | The name of the network profile.
npName :: Lens' NetworkProfile (Maybe Text)
-npName = lens _npName (\ s a -> s{_npName = a});
+npName = lens _npName (\ s a -> s{_npName = a})
-- | Proportion of received packets that fail to arrive from 0 to 100 percent.
npDownlinkLossPercent :: Lens' NetworkProfile (Maybe Natural)
-npDownlinkLossPercent = lens _npDownlinkLossPercent (\ s a -> s{_npDownlinkLossPercent = a}) . mapping _Nat;
+npDownlinkLossPercent = lens _npDownlinkLossPercent (\ s a -> s{_npDownlinkLossPercent = a}) . mapping _Nat
-- | The type of network profile. Valid values are listed below.
npType :: Lens' NetworkProfile (Maybe NetworkProfileType)
-npType = lens _npType (\ s a -> s{_npType = a});
+npType = lens _npType (\ s a -> s{_npType = a})
-- | Delay time for all packets to destination in milliseconds as an integer from 0 to 2000.
npUplinkDelayMs :: Lens' NetworkProfile (Maybe Integer)
-npUplinkDelayMs = lens _npUplinkDelayMs (\ s a -> s{_npUplinkDelayMs = a});
+npUplinkDelayMs = lens _npUplinkDelayMs (\ s a -> s{_npUplinkDelayMs = a})
-- | The data throughput rate in bits per second, as an integer from 0 to 104857600.
npUplinkBandwidthBits :: Lens' NetworkProfile (Maybe Integer)
-npUplinkBandwidthBits = lens _npUplinkBandwidthBits (\ s a -> s{_npUplinkBandwidthBits = a});
+npUplinkBandwidthBits = lens _npUplinkBandwidthBits (\ s a -> s{_npUplinkBandwidthBits = a})
-- | The description of the network profile.
npDescription :: Lens' NetworkProfile (Maybe Text)
-npDescription = lens _npDescription (\ s a -> s{_npDescription = a});
+npDescription = lens _npDescription (\ s a -> s{_npDescription = a})
-- | Delay time for all packets to destination in milliseconds as an integer from 0 to 2000.
npDownlinkDelayMs :: Lens' NetworkProfile (Maybe Integer)
-npDownlinkDelayMs = lens _npDownlinkDelayMs (\ s a -> s{_npDownlinkDelayMs = a});
+npDownlinkDelayMs = lens _npDownlinkDelayMs (\ s a -> s{_npDownlinkDelayMs = a})
-- | The data throughput rate in bits per second, as an integer from 0 to 104857600.
npDownlinkBandwidthBits :: Lens' NetworkProfile (Maybe Integer)
-npDownlinkBandwidthBits = lens _npDownlinkBandwidthBits (\ s a -> s{_npDownlinkBandwidthBits = a});
+npDownlinkBandwidthBits = lens _npDownlinkBandwidthBits (\ s a -> s{_npDownlinkBandwidthBits = a})
instance FromJSON NetworkProfile where
parseJSON
@@ -1301,33 +1518,33 @@ offering
:: Offering
offering =
Offering'
- { _oPlatform = Nothing
- , _oId = Nothing
- , _oRecurringCharges = Nothing
- , _oType = Nothing
- , _oDescription = Nothing
- }
+ { _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});
+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});
+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;
+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});
+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});
+oDescription = lens _oDescription (\ s a -> s{_oDescription = a})
instance FromJSON Offering where
parseJSON
@@ -1369,11 +1586,11 @@ offeringPromotion =
-- | The ID of the offering promotion.
opId :: Lens' OfferingPromotion (Maybe Text)
-opId = lens _opId (\ s a -> s{_opId = a});
+opId = lens _opId (\ s a -> s{_opId = a})
-- | A string describing the offering promotion.
opDescription :: Lens' OfferingPromotion (Maybe Text)
-opDescription = lens _opDescription (\ s a -> s{_opDescription = a});
+opDescription = lens _opDescription (\ s a -> s{_opDescription = a})
instance FromJSON OfferingPromotion where
parseJSON
@@ -1414,28 +1631,28 @@ offeringStatus
:: OfferingStatus
offeringStatus =
OfferingStatus'
- { _osEffectiveOn = Nothing
- , _osOffering = Nothing
- , _osQuantity = Nothing
- , _osType = Nothing
- }
+ { _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;
+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});
+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});
+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});
+osType = lens _osType (\ s a -> s{_osType = a})
instance FromJSON OfferingStatus where
parseJSON
@@ -1481,33 +1698,33 @@ offeringTransaction
:: OfferingTransaction
offeringTransaction =
OfferingTransaction'
- { _otOfferingStatus = Nothing
- , _otCost = Nothing
- , _otTransactionId = Nothing
- , _otOfferingPromotionId = Nothing
- , _otCreatedOn = Nothing
- }
+ { _otOfferingStatus = Nothing
+ , _otCost = Nothing
+ , _otTransactionId = Nothing
+ , _otOfferingPromotionId = Nothing
+ , _otCreatedOn = Nothing
+ }
-- | The status of an offering transaction.
otOfferingStatus :: Lens' OfferingTransaction (Maybe OfferingStatus)
-otOfferingStatus = lens _otOfferingStatus (\ s a -> s{_otOfferingStatus = a});
+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});
+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});
+otTransactionId = lens _otTransactionId (\ s a -> s{_otTransactionId = a})
-- | The ID that corresponds to a device offering promotion.
otOfferingPromotionId :: Lens' OfferingTransaction (Maybe Text)
-otOfferingPromotionId = lens _otOfferingPromotionId (\ s a -> s{_otOfferingPromotionId = a});
+otOfferingPromotionId = lens _otOfferingPromotionId (\ s a -> s{_otOfferingPromotionId = 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;
+otCreatedOn = lens _otCreatedOn (\ s a -> s{_otCreatedOn = a}) . mapping _Time
instance FromJSON OfferingTransaction where
parseJSON
@@ -1560,43 +1777,43 @@ problem
:: Problem
problem =
Problem'
- { _pDevice = Nothing
- , _pTest = Nothing
- , _pResult = Nothing
- , _pRun = Nothing
- , _pJob = Nothing
- , _pMessage = Nothing
- , _pSuite = Nothing
- }
+ { _pDevice = Nothing
+ , _pTest = Nothing
+ , _pResult = Nothing
+ , _pRun = Nothing
+ , _pJob = Nothing
+ , _pMessage = Nothing
+ , _pSuite = Nothing
+ }
-- | Information about the associated device.
pDevice :: Lens' Problem (Maybe Device)
-pDevice = lens _pDevice (\ s a -> s{_pDevice = a});
+pDevice = lens _pDevice (\ s a -> s{_pDevice = a})
-- | Information about the associated test.
pTest :: Lens' Problem (Maybe ProblemDetail)
-pTest = lens _pTest (\ s a -> s{_pTest = a});
+pTest = lens _pTest (\ s a -> s{_pTest = a})
-- | The problem's result. Allowed values include: * PENDING: A pending condition. * PASSED: A passing condition. * WARNED: A warning condition. * FAILED: A failed condition. * SKIPPED: A skipped condition. * ERRORED: An error condition. * STOPPED: A stopped condition.
pResult :: Lens' Problem (Maybe ExecutionResult)
-pResult = lens _pResult (\ s a -> s{_pResult = a});
+pResult = lens _pResult (\ s a -> s{_pResult = a})
-- | Information about the associated run.
pRun :: Lens' Problem (Maybe ProblemDetail)
-pRun = lens _pRun (\ s a -> s{_pRun = a});
+pRun = lens _pRun (\ s a -> s{_pRun = a})
-- | Information about the associated job.
pJob :: Lens' Problem (Maybe ProblemDetail)
-pJob = lens _pJob (\ s a -> s{_pJob = a});
+pJob = lens _pJob (\ s a -> s{_pJob = a})
-- | A message about the problem's result.
pMessage :: Lens' Problem (Maybe Text)
-pMessage = lens _pMessage (\ s a -> s{_pMessage = a});
+pMessage = lens _pMessage (\ s a -> s{_pMessage = a})
-- | Information about the associated suite.
pSuite :: Lens' Problem (Maybe ProblemDetail)
-pSuite = lens _pSuite (\ s a -> s{_pSuite = a});
+pSuite = lens _pSuite (\ s a -> s{_pSuite = a})
instance FromJSON Problem where
parseJSON
@@ -1639,11 +1856,11 @@ problemDetail = ProblemDetail' {_pdArn = Nothing, _pdName = Nothing}
-- | The problem detail's ARN.
pdArn :: Lens' ProblemDetail (Maybe Text)
-pdArn = lens _pdArn (\ s a -> s{_pdArn = a});
+pdArn = lens _pdArn (\ s a -> s{_pdArn = a})
-- | The problem detail's name.
pdName :: Lens' ProblemDetail (Maybe Text)
-pdName = lens _pdName (\ s a -> s{_pdName = a});
+pdName = lens _pdName (\ s a -> s{_pdName = a})
instance FromJSON ProblemDetail where
parseJSON
@@ -1683,28 +1900,28 @@ project
:: Project
project =
Project'
- { _pArn = Nothing
- , _pCreated = Nothing
- , _pName = Nothing
- , _pDefaultJobTimeoutMinutes = Nothing
- }
+ { _pArn = Nothing
+ , _pCreated = Nothing
+ , _pName = Nothing
+ , _pDefaultJobTimeoutMinutes = Nothing
+ }
-- | The project's ARN.
pArn :: Lens' Project (Maybe Text)
-pArn = lens _pArn (\ s a -> s{_pArn = a});
+pArn = lens _pArn (\ s a -> s{_pArn = a})
-- | When the project was created.
pCreated :: Lens' Project (Maybe UTCTime)
-pCreated = lens _pCreated (\ s a -> s{_pCreated = a}) . mapping _Time;
+pCreated = lens _pCreated (\ s a -> s{_pCreated = a}) . mapping _Time
-- | The project's name.
pName :: Lens' Project (Maybe Text)
-pName = lens _pName (\ s a -> s{_pName = a});
+pName = lens _pName (\ s a -> s{_pName = a})
-- | The default number of minutes (at the project level) a test run will execute before it times out. Default value is 60 minutes.
pDefaultJobTimeoutMinutes :: Lens' Project (Maybe Int)
-pDefaultJobTimeoutMinutes = lens _pDefaultJobTimeoutMinutes (\ s a -> s{_pDefaultJobTimeoutMinutes = a});
+pDefaultJobTimeoutMinutes = lens _pDefaultJobTimeoutMinutes (\ s a -> s{_pDefaultJobTimeoutMinutes = a})
instance FromJSON Project where
parseJSON
@@ -1747,24 +1964,33 @@ radios
:: Radios
radios =
Radios'
- {_rNfc = Nothing, _rGps = Nothing, _rBluetooth = Nothing, _rWifi = Nothing}
+ {_rNfc = Nothing, _rGps = Nothing, _rBluetooth = Nothing, _rWifi = Nothing}
-- | True if NFC is enabled at the beginning of the test; otherwise, false.
rNfc :: Lens' Radios (Maybe Bool)
-rNfc = lens _rNfc (\ s a -> s{_rNfc = a});
+rNfc = lens _rNfc (\ s a -> s{_rNfc = a})
-- | True if GPS is enabled at the beginning of the test; otherwise, false.
rGps :: Lens' Radios (Maybe Bool)
-rGps = lens _rGps (\ s a -> s{_rGps = a});
+rGps = lens _rGps (\ s a -> s{_rGps = a})
-- | True if Bluetooth is enabled at the beginning of the test; otherwise, false.
rBluetooth :: Lens' Radios (Maybe Bool)
-rBluetooth = lens _rBluetooth (\ s a -> s{_rBluetooth = a});
+rBluetooth = lens _rBluetooth (\ s a -> s{_rBluetooth = a})
-- | True if Wi-Fi is enabled at the beginning of the test; otherwise, false.
rWifi :: Lens' Radios (Maybe Bool)
-rWifi = lens _rWifi (\ s a -> s{_rWifi = a});
+rWifi = lens _rWifi (\ s a -> s{_rWifi = a})
+
+instance FromJSON Radios where
+ parseJSON
+ = withObject "Radios"
+ (\ x ->
+ Radios' <$>
+ (x .:? "nfc") <*> (x .:? "gps") <*>
+ (x .:? "bluetooth")
+ <*> (x .:? "wifi"))
instance Hashable Radios where
@@ -1803,11 +2029,11 @@ 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});
+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});
+rcCost = lens _rcCost (\ s a -> s{_rcCost = a})
instance FromJSON RecurringCharge where
parseJSON
@@ -1826,22 +2052,27 @@ instance NFData RecurringCharge where
--
-- /See:/ 'remoteAccessSession' smart constructor.
data RemoteAccessSession = RemoteAccessSession'
- { _rasBillingMethod :: !(Maybe BillingMethod)
- , _rasClientId :: !(Maybe Text)
- , _rasDeviceUdid :: !(Maybe Text)
- , _rasStatus :: !(Maybe ExecutionStatus)
- , _rasArn :: !(Maybe Text)
- , _rasCreated :: !(Maybe POSIX)
- , _rasDevice :: !(Maybe Device)
- , _rasStopped :: !(Maybe POSIX)
- , _rasResult :: !(Maybe ExecutionResult)
- , _rasName :: !(Maybe Text)
- , _rasDeviceMinutes :: !(Maybe DeviceMinutes)
- , _rasRemoteDebugEnabled :: !(Maybe Bool)
- , _rasEndpoint :: !(Maybe Text)
- , _rasMessage :: !(Maybe Text)
- , _rasHostAddress :: !(Maybe Text)
- , _rasStarted :: !(Maybe POSIX)
+ { _rasBillingMethod :: !(Maybe BillingMethod)
+ , _rasClientId :: !(Maybe Text)
+ , _rasDeviceUdid :: !(Maybe Text)
+ , _rasSkipAppResign :: !(Maybe Bool)
+ , _rasInstanceARN :: !(Maybe Text)
+ , _rasStatus :: !(Maybe ExecutionStatus)
+ , _rasRemoteRecordEnabled :: !(Maybe Bool)
+ , _rasArn :: !(Maybe Text)
+ , _rasRemoteRecordAppARN :: !(Maybe Text)
+ , _rasCreated :: !(Maybe POSIX)
+ , _rasDevice :: !(Maybe Device)
+ , _rasStopped :: !(Maybe POSIX)
+ , _rasResult :: !(Maybe ExecutionResult)
+ , _rasName :: !(Maybe Text)
+ , _rasDeviceMinutes :: !(Maybe DeviceMinutes)
+ , _rasRemoteDebugEnabled :: !(Maybe Bool)
+ , _rasEndpoint :: !(Maybe Text)
+ , _rasMessage :: !(Maybe Text)
+ , _rasHostAddress :: !(Maybe Text)
+ , _rasInteractionMode :: !(Maybe InteractionMode)
+ , _rasStarted :: !(Maybe POSIX)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
@@ -1855,10 +2086,18 @@ data RemoteAccessSession = RemoteAccessSession'
--
-- * 'rasDeviceUdid' - Unique device identifier for the remote device. Only returned if remote debugging is enabled for the remote access session.
--
+-- * 'rasSkipAppResign' - When set to @true@ , for private devices, Device Farm will not sign your app again. For public devices, Device Farm always signs your apps again and this parameter has no effect. For more information about how Device Farm re-signs your app(s), see <https://aws.amazon.com/device-farm/faq/ Do you modify my app?> in the /AWS Device Farm FAQs/ .
+--
+-- * 'rasInstanceARN' - The Amazon Resource Name (ARN) of the instance.
+--
-- * 'rasStatus' - The status of the remote access session. Can be any of the following: * 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. * COMPLETED: A completed status. * STOPPING: A stopping status.
--
+-- * 'rasRemoteRecordEnabled' - This flag is set to @true@ if remote recording is enabled for the remote access session.
+--
-- * 'rasArn' - The Amazon Resource Name (ARN) of the remote access session.
--
+-- * 'rasRemoteRecordAppARN' - The Amazon Resource Name (ARN) for the app to be recorded in the remote access session.
+--
-- * 'rasCreated' - The date and time the remote access session was created.
--
-- * 'rasDevice' - The device (phone or tablet) used in the remote access session.
@@ -1879,93 +2118,120 @@ data RemoteAccessSession = RemoteAccessSession'
--
-- * 'rasHostAddress' - IP address of the EC2 host where you need to connect to remotely debug devices. Only returned if remote debugging is enabled for the remote access session.
--
+-- * 'rasInteractionMode' - The interaction mode of the remote access session. Valid values are: * INTERACTIVE: You can interact with the iOS device by viewing, touching, and rotating the screen. You __cannot__ run XCUITest framework-based tests in this mode. * NO_VIDEO: You are connected to the device but cannot interact with it or view the screen. This mode has the fastest test execution speed. You __can__ run XCUITest framework-based tests in this mode. * VIDEO_ONLY: You can view the screen but cannot touch or rotate it. You __can__ run XCUITest framework-based tests and watch the screen in this mode.
+--
-- * 'rasStarted' - The date and time the remote access session was started.
remoteAccessSession
:: RemoteAccessSession
remoteAccessSession =
RemoteAccessSession'
- { _rasBillingMethod = Nothing
- , _rasClientId = Nothing
- , _rasDeviceUdid = Nothing
- , _rasStatus = Nothing
- , _rasArn = Nothing
- , _rasCreated = Nothing
- , _rasDevice = Nothing
- , _rasStopped = Nothing
- , _rasResult = Nothing
- , _rasName = Nothing
- , _rasDeviceMinutes = Nothing
- , _rasRemoteDebugEnabled = Nothing
- , _rasEndpoint = Nothing
- , _rasMessage = Nothing
- , _rasHostAddress = Nothing
- , _rasStarted = Nothing
- }
+ { _rasBillingMethod = Nothing
+ , _rasClientId = Nothing
+ , _rasDeviceUdid = Nothing
+ , _rasSkipAppResign = Nothing
+ , _rasInstanceARN = Nothing
+ , _rasStatus = Nothing
+ , _rasRemoteRecordEnabled = Nothing
+ , _rasArn = Nothing
+ , _rasRemoteRecordAppARN = Nothing
+ , _rasCreated = Nothing
+ , _rasDevice = Nothing
+ , _rasStopped = Nothing
+ , _rasResult = Nothing
+ , _rasName = Nothing
+ , _rasDeviceMinutes = Nothing
+ , _rasRemoteDebugEnabled = Nothing
+ , _rasEndpoint = Nothing
+ , _rasMessage = Nothing
+ , _rasHostAddress = Nothing
+ , _rasInteractionMode = Nothing
+ , _rasStarted = Nothing
+ }
-- | The billing method of the remote access session. Possible values include @METERED@ or @UNMETERED@ . For more information about metered devices, see <http://docs.aws.amazon.com/devicefarm/latest/developerguide/welcome.html#welcome-terminology AWS Device Farm terminology> ."
rasBillingMethod :: Lens' RemoteAccessSession (Maybe BillingMethod)
-rasBillingMethod = lens _rasBillingMethod (\ s a -> s{_rasBillingMethod = a});
+rasBillingMethod = lens _rasBillingMethod (\ s a -> s{_rasBillingMethod = a})
-- | Unique identifier of your client for the remote access session. Only returned if remote debugging is enabled for the remote access session.
rasClientId :: Lens' RemoteAccessSession (Maybe Text)
-rasClientId = lens _rasClientId (\ s a -> s{_rasClientId = a});
+rasClientId = lens _rasClientId (\ s a -> s{_rasClientId = a})
-- | Unique device identifier for the remote device. Only returned if remote debugging is enabled for the remote access session.
rasDeviceUdid :: Lens' RemoteAccessSession (Maybe Text)
-rasDeviceUdid = lens _rasDeviceUdid (\ s a -> s{_rasDeviceUdid = a});
+rasDeviceUdid = lens _rasDeviceUdid (\ s a -> s{_rasDeviceUdid = a})
+
+-- | When set to @true@ , for private devices, Device Farm will not sign your app again. For public devices, Device Farm always signs your apps again and this parameter has no effect. For more information about how Device Farm re-signs your app(s), see <https://aws.amazon.com/device-farm/faq/ Do you modify my app?> in the /AWS Device Farm FAQs/ .
+rasSkipAppResign :: Lens' RemoteAccessSession (Maybe Bool)
+rasSkipAppResign = lens _rasSkipAppResign (\ s a -> s{_rasSkipAppResign = a})
+
+-- | The Amazon Resource Name (ARN) of the instance.
+rasInstanceARN :: Lens' RemoteAccessSession (Maybe Text)
+rasInstanceARN = lens _rasInstanceARN (\ s a -> s{_rasInstanceARN = a})
-- | The status of the remote access session. Can be any of the following: * 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. * COMPLETED: A completed status. * STOPPING: A stopping status.
rasStatus :: Lens' RemoteAccessSession (Maybe ExecutionStatus)
-rasStatus = lens _rasStatus (\ s a -> s{_rasStatus = a});
+rasStatus = lens _rasStatus (\ s a -> s{_rasStatus = a})
+
+-- | This flag is set to @true@ if remote recording is enabled for the remote access session.
+rasRemoteRecordEnabled :: Lens' RemoteAccessSession (Maybe Bool)
+rasRemoteRecordEnabled = lens _rasRemoteRecordEnabled (\ s a -> s{_rasRemoteRecordEnabled = a})
-- | The Amazon Resource Name (ARN) of the remote access session.
rasArn :: Lens' RemoteAccessSession (Maybe Text)
-rasArn = lens _rasArn (\ s a -> s{_rasArn = a});
+rasArn = lens _rasArn (\ s a -> s{_rasArn = a})
+
+-- | The Amazon Resource Name (ARN) for the app to be recorded in the remote access session.
+rasRemoteRecordAppARN :: Lens' RemoteAccessSession (Maybe Text)
+rasRemoteRecordAppARN = lens _rasRemoteRecordAppARN (\ s a -> s{_rasRemoteRecordAppARN = a})
-- | The date and time the remote access session was created.
rasCreated :: Lens' RemoteAccessSession (Maybe UTCTime)
-rasCreated = lens _rasCreated (\ s a -> s{_rasCreated = a}) . mapping _Time;
+rasCreated = lens _rasCreated (\ s a -> s{_rasCreated = a}) . mapping _Time
-- | The device (phone or tablet) used in the remote access session.
rasDevice :: Lens' RemoteAccessSession (Maybe Device)
-rasDevice = lens _rasDevice (\ s a -> s{_rasDevice = a});
+rasDevice = lens _rasDevice (\ s a -> s{_rasDevice = a})
-- | The date and time the remote access session was stopped.
rasStopped :: Lens' RemoteAccessSession (Maybe UTCTime)
-rasStopped = lens _rasStopped (\ s a -> s{_rasStopped = a}) . mapping _Time;
+rasStopped = lens _rasStopped (\ s a -> s{_rasStopped = a}) . mapping _Time
-- | The result of the remote access session. Can be any of the following: * PENDING: A pending condition. * PASSED: A passing condition. * WARNED: A warning condition. * FAILED: A failed condition. * SKIPPED: A skipped condition. * ERRORED: An error condition. * STOPPED: A stopped condition.
rasResult :: Lens' RemoteAccessSession (Maybe ExecutionResult)
-rasResult = lens _rasResult (\ s a -> s{_rasResult = a});
+rasResult = lens _rasResult (\ s a -> s{_rasResult = a})
-- | The name of the remote access session.
rasName :: Lens' RemoteAccessSession (Maybe Text)
-rasName = lens _rasName (\ s a -> s{_rasName = a});
+rasName = lens _rasName (\ s a -> s{_rasName = a})
-- | The number of minutes a device is used in a remote access sesssion (including setup and teardown minutes).
rasDeviceMinutes :: Lens' RemoteAccessSession (Maybe DeviceMinutes)
-rasDeviceMinutes = lens _rasDeviceMinutes (\ s a -> s{_rasDeviceMinutes = a});
+rasDeviceMinutes = lens _rasDeviceMinutes (\ s a -> s{_rasDeviceMinutes = a})
-- | This flag is set to @true@ if remote debugging is enabled for the remote access session.
rasRemoteDebugEnabled :: Lens' RemoteAccessSession (Maybe Bool)
-rasRemoteDebugEnabled = lens _rasRemoteDebugEnabled (\ s a -> s{_rasRemoteDebugEnabled = a});
+rasRemoteDebugEnabled = lens _rasRemoteDebugEnabled (\ s a -> s{_rasRemoteDebugEnabled = a})
-- | The endpoint for the remote access sesssion.
rasEndpoint :: Lens' RemoteAccessSession (Maybe Text)
-rasEndpoint = lens _rasEndpoint (\ s a -> s{_rasEndpoint = a});
+rasEndpoint = lens _rasEndpoint (\ s a -> s{_rasEndpoint = a})
-- | A message about the remote access session.
rasMessage :: Lens' RemoteAccessSession (Maybe Text)
-rasMessage = lens _rasMessage (\ s a -> s{_rasMessage = a});
+rasMessage = lens _rasMessage (\ s a -> s{_rasMessage = a})
-- | IP address of the EC2 host where you need to connect to remotely debug devices. Only returned if remote debugging is enabled for the remote access session.
rasHostAddress :: Lens' RemoteAccessSession (Maybe Text)
-rasHostAddress = lens _rasHostAddress (\ s a -> s{_rasHostAddress = a});
+rasHostAddress = lens _rasHostAddress (\ s a -> s{_rasHostAddress = a})
+
+-- | The interaction mode of the remote access session. Valid values are: * INTERACTIVE: You can interact with the iOS device by viewing, touching, and rotating the screen. You __cannot__ run XCUITest framework-based tests in this mode. * NO_VIDEO: You are connected to the device but cannot interact with it or view the screen. This mode has the fastest test execution speed. You __can__ run XCUITest framework-based tests in this mode. * VIDEO_ONLY: You can view the screen but cannot touch or rotate it. You __can__ run XCUITest framework-based tests and watch the screen in this mode.
+rasInteractionMode :: Lens' RemoteAccessSession (Maybe InteractionMode)
+rasInteractionMode = lens _rasInteractionMode (\ s a -> s{_rasInteractionMode = a})
-- | The date and time the remote access session was started.
rasStarted :: Lens' RemoteAccessSession (Maybe UTCTime)
-rasStarted = lens _rasStarted (\ s a -> s{_rasStarted = a}) . mapping _Time;
+rasStarted = lens _rasStarted (\ s a -> s{_rasStarted = a}) . mapping _Time
instance FromJSON RemoteAccessSession where
parseJSON
@@ -1974,8 +2240,12 @@ instance FromJSON RemoteAccessSession where
RemoteAccessSession' <$>
(x .:? "billingMethod") <*> (x .:? "clientId") <*>
(x .:? "deviceUdid")
+ <*> (x .:? "skipAppResign")
+ <*> (x .:? "instanceArn")
<*> (x .:? "status")
+ <*> (x .:? "remoteRecordEnabled")
<*> (x .:? "arn")
+ <*> (x .:? "remoteRecordAppArn")
<*> (x .:? "created")
<*> (x .:? "device")
<*> (x .:? "stopped")
@@ -1986,6 +2256,7 @@ instance FromJSON RemoteAccessSession where
<*> (x .:? "endpoint")
<*> (x .:? "message")
<*> (x .:? "hostAddress")
+ <*> (x .:? "interactionMode")
<*> (x .:? "started"))
instance Hashable RemoteAccessSession where
@@ -2017,11 +2288,11 @@ resolution = Resolution' {_rHeight = Nothing, _rWidth = Nothing}
-- | The screen resolution's height, expressed in pixels.
rHeight :: Lens' Resolution (Maybe Int)
-rHeight = lens _rHeight (\ s a -> s{_rHeight = a});
+rHeight = lens _rHeight (\ s a -> s{_rHeight = a})
-- | The screen resolution's width, expressed in pixels.
rWidth :: Lens' Resolution (Maybe Int)
-rWidth = lens _rWidth (\ s a -> s{_rWidth = a});
+rWidth = lens _rWidth (\ s a -> s{_rWidth = a})
instance FromJSON Resolution where
parseJSON
@@ -2049,7 +2320,7 @@ data Rule = Rule'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'rAttribute' - The rule's stringified attribute. For example, specify the value as @"\"abc\""@ . Allowed values include: * ARN: The ARN. * FORM_FACTOR: The form factor (for example, phone or tablet). * MANUFACTURER: The manufacturer. * PLATFORM: The platform (for example, Android or iOS). * REMOTE_ACCESS_ENABLED: Whether the device is enabled for remote access. * APPIUM_VERSION: The Appium version for the test.
+-- * 'rAttribute' - The rule's stringified attribute. For example, specify the value as @"\"abc\""@ . Allowed values include: * ARN: The ARN. * FORM_FACTOR: The form factor (for example, phone or tablet). * MANUFACTURER: The manufacturer. * PLATFORM: The platform (for example, Android or iOS). * REMOTE_ACCESS_ENABLED: Whether the device is enabled for remote access. * APPIUM_VERSION: The Appium version for the test. * INSTANCE_ARN: The Amazon Resource Name (ARN) of the device instance. * INSTANCE_LABELS: The label of the device instance.
--
-- * 'rOperator' - The rule's operator. * EQUALS: The equals operator. * GREATER_THAN: The greater-than operator. * IN: The in operator. * LESS_THAN: The less-than operator. * NOT_IN: The not-in operator. * CONTAINS: The contains operator.
--
@@ -2059,17 +2330,17 @@ rule
rule = Rule' {_rAttribute = Nothing, _rOperator = Nothing, _rValue = Nothing}
--- | The rule's stringified attribute. For example, specify the value as @"\"abc\""@ . Allowed values include: * ARN: The ARN. * FORM_FACTOR: The form factor (for example, phone or tablet). * MANUFACTURER: The manufacturer. * PLATFORM: The platform (for example, Android or iOS). * REMOTE_ACCESS_ENABLED: Whether the device is enabled for remote access. * APPIUM_VERSION: The Appium version for the test.
+-- | The rule's stringified attribute. For example, specify the value as @"\"abc\""@ . Allowed values include: * ARN: The ARN. * FORM_FACTOR: The form factor (for example, phone or tablet). * MANUFACTURER: The manufacturer. * PLATFORM: The platform (for example, Android or iOS). * REMOTE_ACCESS_ENABLED: Whether the device is enabled for remote access. * APPIUM_VERSION: The Appium version for the test. * INSTANCE_ARN: The Amazon Resource Name (ARN) of the device instance. * INSTANCE_LABELS: The label of the device instance.
rAttribute :: Lens' Rule (Maybe DeviceAttribute)
-rAttribute = lens _rAttribute (\ s a -> s{_rAttribute = a});
+rAttribute = lens _rAttribute (\ s a -> s{_rAttribute = a})
-- | The rule's operator. * EQUALS: The equals operator. * GREATER_THAN: The greater-than operator. * IN: The in operator. * LESS_THAN: The less-than operator. * NOT_IN: The not-in operator. * CONTAINS: The contains operator.
rOperator :: Lens' Rule (Maybe RuleOperator)
-rOperator = lens _rOperator (\ s a -> s{_rOperator = a});
+rOperator = lens _rOperator (\ s a -> s{_rOperator = a})
-- | The rule's value.
rValue :: Lens' Rule (Maybe Text)
-rValue = lens _rValue (\ s a -> s{_rValue = a});
+rValue = lens _rValue (\ s a -> s{_rValue = a})
instance FromJSON Rule where
parseJSON
@@ -2098,23 +2369,33 @@ instance ToJSON Rule where
-- /See:/ 'run' smart constructor.
data Run = Run'
{ _runBillingMethod :: !(Maybe BillingMethod)
+ , _runSkipAppResign :: !(Maybe Bool)
, _runStatus :: !(Maybe ExecutionStatus)
, _runCustomerArtifactPaths :: !(Maybe CustomerArtifactPaths)
+ , _runEventCount :: !(Maybe Int)
, _runCounters :: !(Maybe Counters)
, _runPlatform :: !(Maybe DevicePlatform)
+ , _runSeed :: !(Maybe Int)
+ , _runRadios :: !(Maybe Radios)
, _runArn :: !(Maybe Text)
+ , _runLocation :: !(Maybe Location)
, _runCreated :: !(Maybe POSIX)
+ , _runLocale :: !(Maybe Text)
, _runStopped :: !(Maybe POSIX)
, _runResult :: !(Maybe ExecutionResult)
+ , _runJobTimeoutMinutes :: !(Maybe Int)
, _runCompletedJobs :: !(Maybe Int)
, _runResultCode :: !(Maybe ExecutionResultCode)
, _runName :: !(Maybe Text)
+ , _runAppUpload :: !(Maybe Text)
, _runParsingResultURL :: !(Maybe Text)
, _runNetworkProfile :: !(Maybe NetworkProfile)
, _runDeviceMinutes :: !(Maybe DeviceMinutes)
, _runType :: !(Maybe TestType)
, _runMessage :: !(Maybe Text)
+ , _runWebURL :: !(Maybe Text)
, _runTotalJobs :: !(Maybe Int)
+ , _runDevicePoolARN :: !(Maybe Text)
, _runStarted :: !(Maybe POSIX)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
@@ -2125,28 +2406,44 @@ data Run = Run'
--
-- * 'runBillingMethod' - Specifies the billing method for a test run: @metered@ or @unmetered@ . If the parameter is not specified, the default value is @metered@ .
--
+-- * 'runSkipAppResign' - When set to @true@ , for private devices, Device Farm will not sign your app again. For public devices, Device Farm always signs your apps again and this parameter has no effect. For more information about how Device Farm re-signs your app(s), see <https://aws.amazon.com/device-farm/faq/ Do you modify my app?> in the /AWS Device Farm FAQs/ .
+--
-- * 'runStatus' - The run's status. Allowed values include: * 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. * COMPLETED: A completed status. * STOPPING: A stopping status.
--
-- * 'runCustomerArtifactPaths' - Output @CustomerArtifactPaths@ object for the test run.
--
+-- * 'runEventCount' - For fuzz tests, this is the number of events, between 1 and 10000, that the UI fuzz test should perform.
+--
-- * 'runCounters' - The run's result counters.
--
-- * 'runPlatform' - The run's platform. Allowed values include: * ANDROID: The Android platform. * IOS: The iOS platform.
--
+-- * 'runSeed' - For fuzz tests, this is a seed to use for randomizing the UI fuzz test. Using the same seed value between tests ensures identical event sequences.
+--
+-- * 'runRadios' - Information about the radio states for the run.
+--
-- * 'runArn' - The run's ARN.
--
+-- * 'runLocation' - Information about the location that is used for the run.
+--
-- * 'runCreated' - When the run was created.
--
+-- * 'runLocale' - Information about the locale that is used for the run.
+--
-- * 'runStopped' - The run's stop time.
--
-- * 'runResult' - The run's result. Allowed values include: * PENDING: A pending condition. * PASSED: A passing condition. * WARNED: A warning condition. * FAILED: A failed condition. * SKIPPED: A skipped condition. * ERRORED: An error condition. * STOPPED: A stopped condition.
--
+-- * 'runJobTimeoutMinutes' - The number of minutes the job will execute before it times out.
+--
-- * 'runCompletedJobs' - The total number of completed jobs.
--
-- * 'runResultCode' - Supporting field for the result field. Set only if @result@ is @SKIPPED@ . @PARSING_FAILED@ if the result is skipped because of test package parsing failure.
--
-- * 'runName' - The run's name.
--
+-- * 'runAppUpload' - An app to upload or that has been uploaded.
+--
-- * 'runParsingResultURL' - Read-only URL for an object in S3 bucket where you can get the parsing results of the test package. If the test package doesn't parse, the reason why it doesn't parse appears in the file that this URL points to.
--
-- * 'runNetworkProfile' - The network profile being used for a test run.
@@ -2157,133 +2454,197 @@ data Run = Run'
--
-- * 'runMessage' - A message about the run's result.
--
+-- * 'runWebURL' - The Device Farm console URL for the recording of the run.
+--
-- * 'runTotalJobs' - The total number of jobs for the run.
--
+-- * 'runDevicePoolARN' - The ARN of the device pool for the run.
+--
-- * 'runStarted' - The run's start time.
run
:: Run
run =
Run'
- { _runBillingMethod = Nothing
- , _runStatus = Nothing
- , _runCustomerArtifactPaths = Nothing
- , _runCounters = Nothing
- , _runPlatform = Nothing
- , _runArn = Nothing
- , _runCreated = Nothing
- , _runStopped = Nothing
- , _runResult = Nothing
- , _runCompletedJobs = Nothing
- , _runResultCode = Nothing
- , _runName = Nothing
- , _runParsingResultURL = Nothing
- , _runNetworkProfile = Nothing
- , _runDeviceMinutes = Nothing
- , _runType = Nothing
- , _runMessage = Nothing
- , _runTotalJobs = Nothing
- , _runStarted = Nothing
- }
+ { _runBillingMethod = Nothing
+ , _runSkipAppResign = Nothing
+ , _runStatus = Nothing
+ , _runCustomerArtifactPaths = Nothing
+ , _runEventCount = Nothing
+ , _runCounters = Nothing
+ , _runPlatform = Nothing
+ , _runSeed = Nothing
+ , _runRadios = Nothing
+ , _runArn = Nothing
+ , _runLocation = Nothing
+ , _runCreated = Nothing
+ , _runLocale = Nothing
+ , _runStopped = Nothing
+ , _runResult = Nothing
+ , _runJobTimeoutMinutes = Nothing
+ , _runCompletedJobs = Nothing
+ , _runResultCode = Nothing
+ , _runName = Nothing
+ , _runAppUpload = Nothing
+ , _runParsingResultURL = Nothing
+ , _runNetworkProfile = Nothing
+ , _runDeviceMinutes = Nothing
+ , _runType = Nothing
+ , _runMessage = Nothing
+ , _runWebURL = Nothing
+ , _runTotalJobs = Nothing
+ , _runDevicePoolARN = Nothing
+ , _runStarted = Nothing
+ }
-- | Specifies the billing method for a test run: @metered@ or @unmetered@ . If the parameter is not specified, the default value is @metered@ .
runBillingMethod :: Lens' Run (Maybe BillingMethod)
-runBillingMethod = lens _runBillingMethod (\ s a -> s{_runBillingMethod = a});
+runBillingMethod = lens _runBillingMethod (\ s a -> s{_runBillingMethod = a})
+
+-- | When set to @true@ , for private devices, Device Farm will not sign your app again. For public devices, Device Farm always signs your apps again and this parameter has no effect. For more information about how Device Farm re-signs your app(s), see <https://aws.amazon.com/device-farm/faq/ Do you modify my app?> in the /AWS Device Farm FAQs/ .
+runSkipAppResign :: Lens' Run (Maybe Bool)
+runSkipAppResign = lens _runSkipAppResign (\ s a -> s{_runSkipAppResign = a})
-- | The run's status. Allowed values include: * 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. * COMPLETED: A completed status. * STOPPING: A stopping status.
runStatus :: Lens' Run (Maybe ExecutionStatus)
-runStatus = lens _runStatus (\ s a -> s{_runStatus = a});
+runStatus = lens _runStatus (\ s a -> s{_runStatus = a})
-- | Output @CustomerArtifactPaths@ object for the test run.
runCustomerArtifactPaths :: Lens' Run (Maybe CustomerArtifactPaths)
-runCustomerArtifactPaths = lens _runCustomerArtifactPaths (\ s a -> s{_runCustomerArtifactPaths = a});
+runCustomerArtifactPaths = lens _runCustomerArtifactPaths (\ s a -> s{_runCustomerArtifactPaths = a})
+
+-- | For fuzz tests, this is the number of events, between 1 and 10000, that the UI fuzz test should perform.
+runEventCount :: Lens' Run (Maybe Int)
+runEventCount = lens _runEventCount (\ s a -> s{_runEventCount = a})
-- | The run's result counters.
runCounters :: Lens' Run (Maybe Counters)
-runCounters = lens _runCounters (\ s a -> s{_runCounters = a});
+runCounters = lens _runCounters (\ s a -> s{_runCounters = a})
-- | The run's platform. Allowed values include: * ANDROID: The Android platform. * IOS: The iOS platform.
runPlatform :: Lens' Run (Maybe DevicePlatform)
-runPlatform = lens _runPlatform (\ s a -> s{_runPlatform = a});
+runPlatform = lens _runPlatform (\ s a -> s{_runPlatform = a})
+
+-- | For fuzz tests, this is a seed to use for randomizing the UI fuzz test. Using the same seed value between tests ensures identical event sequences.
+runSeed :: Lens' Run (Maybe Int)
+runSeed = lens _runSeed (\ s a -> s{_runSeed = a})
+
+-- | Information about the radio states for the run.
+runRadios :: Lens' Run (Maybe Radios)
+runRadios = lens _runRadios (\ s a -> s{_runRadios = a})
-- | The run's ARN.
runArn :: Lens' Run (Maybe Text)
-runArn = lens _runArn (\ s a -> s{_runArn = a});
+runArn = lens _runArn (\ s a -> s{_runArn = a})
+
+-- | Information about the location that is used for the run.
+runLocation :: Lens' Run (Maybe Location)
+runLocation = lens _runLocation (\ s a -> s{_runLocation = a})
-- | When the run was created.
runCreated :: Lens' Run (Maybe UTCTime)
-runCreated = lens _runCreated (\ s a -> s{_runCreated = a}) . mapping _Time;
+runCreated = lens _runCreated (\ s a -> s{_runCreated = a}) . mapping _Time
+
+-- | Information about the locale that is used for the run.
+runLocale :: Lens' Run (Maybe Text)
+runLocale = lens _runLocale (\ s a -> s{_runLocale = a})
-- | The run's stop time.
runStopped :: Lens' Run (Maybe UTCTime)
-runStopped = lens _runStopped (\ s a -> s{_runStopped = a}) . mapping _Time;
+runStopped = lens _runStopped (\ s a -> s{_runStopped = a}) . mapping _Time
-- | The run's result. Allowed values include: * PENDING: A pending condition. * PASSED: A passing condition. * WARNED: A warning condition. * FAILED: A failed condition. * SKIPPED: A skipped condition. * ERRORED: An error condition. * STOPPED: A stopped condition.
runResult :: Lens' Run (Maybe ExecutionResult)
-runResult = lens _runResult (\ s a -> s{_runResult = a});
+runResult = lens _runResult (\ s a -> s{_runResult = a})
+
+-- | The number of minutes the job will execute before it times out.
+runJobTimeoutMinutes :: Lens' Run (Maybe Int)
+runJobTimeoutMinutes = lens _runJobTimeoutMinutes (\ s a -> s{_runJobTimeoutMinutes = a})
-- | The total number of completed jobs.
runCompletedJobs :: Lens' Run (Maybe Int)
-runCompletedJobs = lens _runCompletedJobs (\ s a -> s{_runCompletedJobs = a});
+runCompletedJobs = lens _runCompletedJobs (\ s a -> s{_runCompletedJobs = a})
-- | Supporting field for the result field. Set only if @result@ is @SKIPPED@ . @PARSING_FAILED@ if the result is skipped because of test package parsing failure.
runResultCode :: Lens' Run (Maybe ExecutionResultCode)
-runResultCode = lens _runResultCode (\ s a -> s{_runResultCode = a});
+runResultCode = lens _runResultCode (\ s a -> s{_runResultCode = a})
-- | The run's name.
runName :: Lens' Run (Maybe Text)
-runName = lens _runName (\ s a -> s{_runName = a});
+runName = lens _runName (\ s a -> s{_runName = a})
+
+-- | An app to upload or that has been uploaded.
+runAppUpload :: Lens' Run (Maybe Text)
+runAppUpload = lens _runAppUpload (\ s a -> s{_runAppUpload = a})
-- | Read-only URL for an object in S3 bucket where you can get the parsing results of the test package. If the test package doesn't parse, the reason why it doesn't parse appears in the file that this URL points to.
runParsingResultURL :: Lens' Run (Maybe Text)
-runParsingResultURL = lens _runParsingResultURL (\ s a -> s{_runParsingResultURL = a});
+runParsingResultURL = lens _runParsingResultURL (\ s a -> s{_runParsingResultURL = a})
-- | The network profile being used for a test run.
runNetworkProfile :: Lens' Run (Maybe NetworkProfile)
-runNetworkProfile = lens _runNetworkProfile (\ s a -> s{_runNetworkProfile = a});
+runNetworkProfile = lens _runNetworkProfile (\ s a -> s{_runNetworkProfile = a})
-- | Represents the total (metered or unmetered) minutes used by the test run.
runDeviceMinutes :: Lens' Run (Maybe DeviceMinutes)
-runDeviceMinutes = lens _runDeviceMinutes (\ s a -> s{_runDeviceMinutes = a});
+runDeviceMinutes = lens _runDeviceMinutes (\ s a -> s{_runDeviceMinutes = a})
-- | The run's type. Must be one of the following values: * BUILTIN_FUZZ: The built-in fuzz type. * BUILTIN_EXPLORER: For Android, an app explorer that will traverse an Android app, interacting with it and capturing screenshots at the same time. * APPIUM_JAVA_JUNIT: The Appium Java JUnit type. * APPIUM_JAVA_TESTNG: The Appium Java TestNG type. * APPIUM_PYTHON: The Appium Python type. * APPIUM_WEB_JAVA_JUNIT: The Appium Java JUnit type for Web apps. * APPIUM_WEB_JAVA_TESTNG: The Appium Java TestNG type for Web apps. * APPIUM_WEB_PYTHON: The Appium Python type for Web apps. * CALABASH: The Calabash type. * INSTRUMENTATION: The Instrumentation type. * UIAUTOMATION: The uiautomation type. * UIAUTOMATOR: The uiautomator type. * XCTEST: The XCode test type. * XCTEST_UI: The XCode UI test type.
runType :: Lens' Run (Maybe TestType)
-runType = lens _runType (\ s a -> s{_runType = a});
+runType = lens _runType (\ s a -> s{_runType = a})
-- | A message about the run's result.
runMessage :: Lens' Run (Maybe Text)
-runMessage = lens _runMessage (\ s a -> s{_runMessage = a});
+runMessage = lens _runMessage (\ s a -> s{_runMessage = a})
+
+-- | The Device Farm console URL for the recording of the run.
+runWebURL :: Lens' Run (Maybe Text)
+runWebURL = lens _runWebURL (\ s a -> s{_runWebURL = a})
-- | The total number of jobs for the run.
runTotalJobs :: Lens' Run (Maybe Int)
-runTotalJobs = lens _runTotalJobs (\ s a -> s{_runTotalJobs = a});
+runTotalJobs = lens _runTotalJobs (\ s a -> s{_runTotalJobs = a})
+
+-- | The ARN of the device pool for the run.
+runDevicePoolARN :: Lens' Run (Maybe Text)
+runDevicePoolARN = lens _runDevicePoolARN (\ s a -> s{_runDevicePoolARN = a})
-- | The run's start time.
runStarted :: Lens' Run (Maybe UTCTime)
-runStarted = lens _runStarted (\ s a -> s{_runStarted = a}) . mapping _Time;
+runStarted = lens _runStarted (\ s a -> s{_runStarted = a}) . mapping _Time
instance FromJSON Run where
parseJSON
= withObject "Run"
(\ x ->
Run' <$>
- (x .:? "billingMethod") <*> (x .:? "status") <*>
- (x .:? "customerArtifactPaths")
+ (x .:? "billingMethod") <*> (x .:? "skipAppResign")
+ <*> (x .:? "status")
+ <*> (x .:? "customerArtifactPaths")
+ <*> (x .:? "eventCount")
<*> (x .:? "counters")
<*> (x .:? "platform")
+ <*> (x .:? "seed")
+ <*> (x .:? "radios")
<*> (x .:? "arn")
+ <*> (x .:? "location")
<*> (x .:? "created")
+ <*> (x .:? "locale")
<*> (x .:? "stopped")
<*> (x .:? "result")
+ <*> (x .:? "jobTimeoutMinutes")
<*> (x .:? "completedJobs")
<*> (x .:? "resultCode")
<*> (x .:? "name")
+ <*> (x .:? "appUpload")
<*> (x .:? "parsingResultUrl")
<*> (x .:? "networkProfile")
<*> (x .:? "deviceMinutes")
<*> (x .:? "type")
<*> (x .:? "message")
+ <*> (x .:? "webUrl")
<*> (x .:? "totalJobs")
+ <*> (x .:? "devicePoolArn")
<*> (x .:? "started"))
instance Hashable Run where
@@ -2318,15 +2679,15 @@ sample = Sample' {_samArn = Nothing, _samUrl = Nothing, _samType = Nothing}
-- | The sample's ARN.
samArn :: Lens' Sample (Maybe Text)
-samArn = lens _samArn (\ s a -> s{_samArn = a});
+samArn = lens _samArn (\ s a -> s{_samArn = a})
-- | The pre-signed Amazon S3 URL that can be used with a corresponding GET request to download the sample's file.
samUrl :: Lens' Sample (Maybe Text)
-samUrl = lens _samUrl (\ s a -> s{_samUrl = a});
+samUrl = lens _samUrl (\ s a -> s{_samUrl = a})
-- | The sample's type. Must be one of the following values: * CPU: A CPU sample type. This is expressed as the app processing CPU time (including child processes) as reported by process, as a percentage. * MEMORY: A memory usage sample type. This is expressed as the total proportional set size of an app process, in kilobytes. * NATIVE_AVG_DRAWTIME * NATIVE_FPS * NATIVE_FRAMES * NATIVE_MAX_DRAWTIME * NATIVE_MIN_DRAWTIME * OPENGL_AVG_DRAWTIME * OPENGL_FPS * OPENGL_FRAMES * OPENGL_MAX_DRAWTIME * OPENGL_MIN_DRAWTIME * RX * RX_RATE: The total number of bytes per second (TCP and UDP) that are sent, by app process. * THREADS: A threads sample type. This is expressed as the total number of threads per app process. * TX * TX_RATE: The total number of bytes per second (TCP and UDP) that are received, by app process.
samType :: Lens' Sample (Maybe SampleType)
-samType = lens _samType (\ s a -> s{_samType = a});
+samType = lens _samType (\ s a -> s{_samType = a})
instance FromJSON Sample where
parseJSON
@@ -2353,6 +2714,7 @@ data ScheduleRunConfiguration = ScheduleRunConfiguration'
, _srcNetworkProfileARN :: !(Maybe Text)
, _srcExtraDataPackageARN :: !(Maybe Text)
, _srcAuxiliaryApps :: !(Maybe [Text])
+ , _srcVpceConfigurationARNs :: !(Maybe [Text])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
@@ -2375,52 +2737,59 @@ data ScheduleRunConfiguration = ScheduleRunConfiguration'
-- * 'srcExtraDataPackageARN' - The ARN of the extra data for the run. The extra data is a .zip file that AWS Device Farm will extract to external data for Android or the app's sandbox for iOS.
--
-- * 'srcAuxiliaryApps' - A list of auxiliary apps for the run.
+--
+-- * 'srcVpceConfigurationARNs' - An array of Amazon Resource Names (ARNs) for your VPC endpoint configurations.
scheduleRunConfiguration
:: ScheduleRunConfiguration
scheduleRunConfiguration =
ScheduleRunConfiguration'
- { _srcBillingMethod = Nothing
- , _srcCustomerArtifactPaths = Nothing
- , _srcRadios = Nothing
- , _srcLocation = Nothing
- , _srcLocale = Nothing
- , _srcNetworkProfileARN = Nothing
- , _srcExtraDataPackageARN = Nothing
- , _srcAuxiliaryApps = Nothing
- }
+ { _srcBillingMethod = Nothing
+ , _srcCustomerArtifactPaths = Nothing
+ , _srcRadios = Nothing
+ , _srcLocation = Nothing
+ , _srcLocale = Nothing
+ , _srcNetworkProfileARN = Nothing
+ , _srcExtraDataPackageARN = Nothing
+ , _srcAuxiliaryApps = Nothing
+ , _srcVpceConfigurationARNs = Nothing
+ }
-- | Specifies the billing method for a test run: @metered@ or @unmetered@ . If the parameter is not specified, the default value is @metered@ .
srcBillingMethod :: Lens' ScheduleRunConfiguration (Maybe BillingMethod)
-srcBillingMethod = lens _srcBillingMethod (\ s a -> s{_srcBillingMethod = a});
+srcBillingMethod = lens _srcBillingMethod (\ s a -> s{_srcBillingMethod = a})
-- | Input @CustomerArtifactPaths@ object for the scheduled run configuration.
srcCustomerArtifactPaths :: Lens' ScheduleRunConfiguration (Maybe CustomerArtifactPaths)
-srcCustomerArtifactPaths = lens _srcCustomerArtifactPaths (\ s a -> s{_srcCustomerArtifactPaths = a});
+srcCustomerArtifactPaths = lens _srcCustomerArtifactPaths (\ s a -> s{_srcCustomerArtifactPaths = a})
-- | Information about the radio states for the run.
srcRadios :: Lens' ScheduleRunConfiguration (Maybe Radios)
-srcRadios = lens _srcRadios (\ s a -> s{_srcRadios = a});
+srcRadios = lens _srcRadios (\ s a -> s{_srcRadios = a})
-- | Information about the location that is used for the run.
srcLocation :: Lens' ScheduleRunConfiguration (Maybe Location)
-srcLocation = lens _srcLocation (\ s a -> s{_srcLocation = a});
+srcLocation = lens _srcLocation (\ s a -> s{_srcLocation = a})
-- | Information about the locale that is used for the run.
srcLocale :: Lens' ScheduleRunConfiguration (Maybe Text)
-srcLocale = lens _srcLocale (\ s a -> s{_srcLocale = a});
+srcLocale = lens _srcLocale (\ s a -> s{_srcLocale = a})
-- | Reserved for internal use.
srcNetworkProfileARN :: Lens' ScheduleRunConfiguration (Maybe Text)
-srcNetworkProfileARN = lens _srcNetworkProfileARN (\ s a -> s{_srcNetworkProfileARN = a});
+srcNetworkProfileARN = lens _srcNetworkProfileARN (\ s a -> s{_srcNetworkProfileARN = a})
-- | The ARN of the extra data for the run. The extra data is a .zip file that AWS Device Farm will extract to external data for Android or the app's sandbox for iOS.
srcExtraDataPackageARN :: Lens' ScheduleRunConfiguration (Maybe Text)
-srcExtraDataPackageARN = lens _srcExtraDataPackageARN (\ s a -> s{_srcExtraDataPackageARN = a});
+srcExtraDataPackageARN = lens _srcExtraDataPackageARN (\ s a -> s{_srcExtraDataPackageARN = a})
-- | A list of auxiliary apps for the run.
srcAuxiliaryApps :: Lens' ScheduleRunConfiguration [Text]
-srcAuxiliaryApps = lens _srcAuxiliaryApps (\ s a -> s{_srcAuxiliaryApps = a}) . _Default . _Coerce;
+srcAuxiliaryApps = lens _srcAuxiliaryApps (\ s a -> s{_srcAuxiliaryApps = a}) . _Default . _Coerce
+
+-- | An array of Amazon Resource Names (ARNs) for your VPC endpoint configurations.
+srcVpceConfigurationARNs :: Lens' ScheduleRunConfiguration [Text]
+srcVpceConfigurationARNs = lens _srcVpceConfigurationARNs (\ s a -> s{_srcVpceConfigurationARNs = a}) . _Default . _Coerce
instance Hashable ScheduleRunConfiguration where
@@ -2439,7 +2808,9 @@ instance ToJSON ScheduleRunConfiguration where
("networkProfileArn" .=) <$> _srcNetworkProfileARN,
("extraDataPackageArn" .=) <$>
_srcExtraDataPackageARN,
- ("auxiliaryApps" .=) <$> _srcAuxiliaryApps])
+ ("auxiliaryApps" .=) <$> _srcAuxiliaryApps,
+ ("vpceConfigurationArns" .=) <$>
+ _srcVpceConfigurationARNs])
-- | Represents additional test settings.
--
@@ -2470,28 +2841,28 @@ scheduleRunTest
-> ScheduleRunTest
scheduleRunTest pType_ =
ScheduleRunTest'
- { _srtTestPackageARN = Nothing
- , _srtParameters = Nothing
- , _srtFilter = Nothing
- , _srtType = pType_
- }
+ { _srtTestPackageARN = Nothing
+ , _srtParameters = Nothing
+ , _srtFilter = Nothing
+ , _srtType = pType_
+ }
-- | The ARN of the uploaded test that will be run.
srtTestPackageARN :: Lens' ScheduleRunTest (Maybe Text)
-srtTestPackageARN = lens _srtTestPackageARN (\ s a -> s{_srtTestPackageARN = a});
+srtTestPackageARN = lens _srtTestPackageARN (\ s a -> s{_srtTestPackageARN = a})
-- | The test's parameters, such as the following test framework parameters and fixture settings: For Calabash tests: * profile: A cucumber profile, for example, "my_profile_name". * tags: You can limit execution to features or scenarios that have (or don't have) certain tags, for example, "@smoke" or "@smoke,~@wip". For Appium tests (all types): * appium_version: The Appium version. Currently supported values are "1.4.16", "1.6.3", "latest", and "default". * “latest” will run the latest Appium version supported by Device Farm (1.6.3). * For “default”, Device Farm will choose a compatible version of Appium for the device. The current behavior is to run 1.4.16 on Android devices and iOS 9 and earlier, 1.6.3 for iOS 10 and later. * This behavior is subject to change. For Fuzz tests (Android only): * event_count: The number of events, between 1 and 10000, that the UI fuzz test should perform. * throttle: The time, in ms, between 0 and 1000, that the UI fuzz test should wait between events. * seed: A seed to use for randomizing the UI fuzz test. Using the same seed value between tests ensures identical event sequences. For Explorer tests: * username: A username to use if the Explorer encounters a login form. If not supplied, no username will be inserted. * password: A password to use if the Explorer encounters a login form. If not supplied, no password will be inserted. For Instrumentation: * filter: A test filter string. Examples: * Running a single test case: "com.android.abc.Test1" * Running a single test: "com.android.abc.Test1#smoke" * Running multiple tests: "com.android.abc.Test1,com.android.abc.Test2" For XCTest and XCTestUI: * filter: A test filter string. Examples: * Running a single test class: "LoginTests" * Running a multiple test classes: "LoginTests,SmokeTests" * Running a single test: "LoginTests/testValid" * Running multiple tests: "LoginTests/testValid,LoginTests/testInvalid" For UIAutomator: * filter: A test filter string. Examples: * Running a single test case: "com.android.abc.Test1" * Running a single test: "com.android.abc.Test1#smoke" * Running multiple tests: "com.android.abc.Test1,com.android.abc.Test2"
srtParameters :: Lens' ScheduleRunTest (HashMap Text Text)
-srtParameters = lens _srtParameters (\ s a -> s{_srtParameters = a}) . _Default . _Map;
+srtParameters = lens _srtParameters (\ s a -> s{_srtParameters = a}) . _Default . _Map
-- | The test's filter.
srtFilter :: Lens' ScheduleRunTest (Maybe Text)
-srtFilter = lens _srtFilter (\ s a -> s{_srtFilter = a});
+srtFilter = lens _srtFilter (\ s a -> s{_srtFilter = a})
-- | The test's type. Must be one of the following values: * BUILTIN_FUZZ: The built-in fuzz type. * BUILTIN_EXPLORER: For Android, an app explorer that will traverse an Android app, interacting with it and capturing screenshots at the same time. * APPIUM_JAVA_JUNIT: The Appium Java JUnit type. * APPIUM_JAVA_TESTNG: The Appium Java TestNG type. * APPIUM_PYTHON: The Appium Python type. * APPIUM_WEB_JAVA_JUNIT: The Appium Java JUnit type for Web apps. * APPIUM_WEB_JAVA_TESTNG: The Appium Java TestNG type for Web apps. * APPIUM_WEB_PYTHON: The Appium Python type for Web apps. * CALABASH: The Calabash type. * INSTRUMENTATION: The Instrumentation type. * UIAUTOMATION: The uiautomation type. * UIAUTOMATOR: The uiautomator type. * XCTEST: The XCode test type. * XCTEST_UI: The XCode UI test type.
srtType :: Lens' ScheduleRunTest TestType
-srtType = lens _srtType (\ s a -> s{_srtType = a});
+srtType = lens _srtType (\ s a -> s{_srtType = a})
instance Hashable ScheduleRunTest where
@@ -2555,63 +2926,63 @@ suite
:: Suite
suite =
Suite'
- { _sStatus = Nothing
- , _sCounters = Nothing
- , _sArn = Nothing
- , _sCreated = Nothing
- , _sStopped = Nothing
- , _sResult = Nothing
- , _sName = Nothing
- , _sDeviceMinutes = Nothing
- , _sType = Nothing
- , _sMessage = Nothing
- , _sStarted = Nothing
- }
+ { _sStatus = Nothing
+ , _sCounters = Nothing
+ , _sArn = Nothing
+ , _sCreated = Nothing
+ , _sStopped = Nothing
+ , _sResult = Nothing
+ , _sName = Nothing
+ , _sDeviceMinutes = Nothing
+ , _sType = Nothing
+ , _sMessage = Nothing
+ , _sStarted = Nothing
+ }
-- | The suite's status. Allowed values include: * 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. * COMPLETED: A completed status. * STOPPING: A stopping status.
sStatus :: Lens' Suite (Maybe ExecutionStatus)
-sStatus = lens _sStatus (\ s a -> s{_sStatus = a});
+sStatus = lens _sStatus (\ s a -> s{_sStatus = a})
-- | The suite's result counters.
sCounters :: Lens' Suite (Maybe Counters)
-sCounters = lens _sCounters (\ s a -> s{_sCounters = a});
+sCounters = lens _sCounters (\ s a -> s{_sCounters = a})
-- | The suite's ARN.
sArn :: Lens' Suite (Maybe Text)
-sArn = lens _sArn (\ s a -> s{_sArn = a});
+sArn = lens _sArn (\ s a -> s{_sArn = a})
-- | When the suite was created.
sCreated :: Lens' Suite (Maybe UTCTime)
-sCreated = lens _sCreated (\ s a -> s{_sCreated = a}) . mapping _Time;
+sCreated = lens _sCreated (\ s a -> s{_sCreated = a}) . mapping _Time
-- | The suite's stop time.
sStopped :: Lens' Suite (Maybe UTCTime)
-sStopped = lens _sStopped (\ s a -> s{_sStopped = a}) . mapping _Time;
+sStopped = lens _sStopped (\ s a -> s{_sStopped = a}) . mapping _Time
-- | The suite's result. Allowed values include: * PENDING: A pending condition. * PASSED: A passing condition. * WARNED: A warning condition. * FAILED: A failed condition. * SKIPPED: A skipped condition. * ERRORED: An error condition. * STOPPED: A stopped condition.
sResult :: Lens' Suite (Maybe ExecutionResult)
-sResult = lens _sResult (\ s a -> s{_sResult = a});
+sResult = lens _sResult (\ s a -> s{_sResult = a})
-- | The suite's name.
sName :: Lens' Suite (Maybe Text)
-sName = lens _sName (\ s a -> s{_sName = a});
+sName = lens _sName (\ s a -> s{_sName = a})
-- | Represents the total (metered or unmetered) minutes used by the test suite.
sDeviceMinutes :: Lens' Suite (Maybe DeviceMinutes)
-sDeviceMinutes = lens _sDeviceMinutes (\ s a -> s{_sDeviceMinutes = a});
+sDeviceMinutes = lens _sDeviceMinutes (\ s a -> s{_sDeviceMinutes = a})
-- | The suite's type. Must be one of the following values: * BUILTIN_FUZZ: The built-in fuzz type. * BUILTIN_EXPLORER: For Android, an app explorer that will traverse an Android app, interacting with it and capturing screenshots at the same time. * APPIUM_JAVA_JUNIT: The Appium Java JUnit type. * APPIUM_JAVA_TESTNG: The Appium Java TestNG type. * APPIUM_PYTHON: The Appium Python type. * APPIUM_WEB_JAVA_JUNIT: The Appium Java JUnit type for Web apps. * APPIUM_WEB_JAVA_TESTNG: The Appium Java TestNG type for Web apps. * APPIUM_WEB_PYTHON: The Appium Python type for Web apps. * CALABASH: The Calabash type. * INSTRUMENTATION: The Instrumentation type. * UIAUTOMATION: The uiautomation type. * UIAUTOMATOR: The uiautomator type. * XCTEST: The XCode test type. * XCTEST_UI: The XCode UI test type.
sType :: Lens' Suite (Maybe TestType)
-sType = lens _sType (\ s a -> s{_sType = a});
+sType = lens _sType (\ s a -> s{_sType = a})
-- | A message about the suite's result.
sMessage :: Lens' Suite (Maybe Text)
-sMessage = lens _sMessage (\ s a -> s{_sMessage = a});
+sMessage = lens _sMessage (\ s a -> s{_sMessage = a})
-- | The suite's start time.
sStarted :: Lens' Suite (Maybe UTCTime)
-sStarted = lens _sStarted (\ s a -> s{_sStarted = a}) . mapping _Time;
+sStarted = lens _sStarted (\ s a -> s{_sStarted = a}) . mapping _Time
instance FromJSON Suite where
parseJSON
@@ -2682,63 +3053,63 @@ test
:: Test
test =
Test'
- { _tStatus = Nothing
- , _tCounters = Nothing
- , _tArn = Nothing
- , _tCreated = Nothing
- , _tStopped = Nothing
- , _tResult = Nothing
- , _tName = Nothing
- , _tDeviceMinutes = Nothing
- , _tType = Nothing
- , _tMessage = Nothing
- , _tStarted = Nothing
- }
+ { _tStatus = Nothing
+ , _tCounters = Nothing
+ , _tArn = Nothing
+ , _tCreated = Nothing
+ , _tStopped = Nothing
+ , _tResult = Nothing
+ , _tName = Nothing
+ , _tDeviceMinutes = Nothing
+ , _tType = Nothing
+ , _tMessage = Nothing
+ , _tStarted = Nothing
+ }
-- | The test's status. Allowed values include: * 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. * COMPLETED: A completed status. * STOPPING: A stopping status.
tStatus :: Lens' Test (Maybe ExecutionStatus)
-tStatus = lens _tStatus (\ s a -> s{_tStatus = a});
+tStatus = lens _tStatus (\ s a -> s{_tStatus = a})
-- | The test's result counters.
tCounters :: Lens' Test (Maybe Counters)
-tCounters = lens _tCounters (\ s a -> s{_tCounters = a});
+tCounters = lens _tCounters (\ s a -> s{_tCounters = a})
-- | The test's ARN.
tArn :: Lens' Test (Maybe Text)
-tArn = lens _tArn (\ s a -> s{_tArn = a});
+tArn = lens _tArn (\ s a -> s{_tArn = a})
-- | When the test was created.
tCreated :: Lens' Test (Maybe UTCTime)
-tCreated = lens _tCreated (\ s a -> s{_tCreated = a}) . mapping _Time;
+tCreated = lens _tCreated (\ s a -> s{_tCreated = a}) . mapping _Time
-- | The test's stop time.
tStopped :: Lens' Test (Maybe UTCTime)
-tStopped = lens _tStopped (\ s a -> s{_tStopped = a}) . mapping _Time;
+tStopped = lens _tStopped (\ s a -> s{_tStopped = a}) . mapping _Time
-- | The test's result. Allowed values include: * PENDING: A pending condition. * PASSED: A passing condition. * WARNED: A warning condition. * FAILED: A failed condition. * SKIPPED: A skipped condition. * ERRORED: An error condition. * STOPPED: A stopped condition.
tResult :: Lens' Test (Maybe ExecutionResult)
-tResult = lens _tResult (\ s a -> s{_tResult = a});
+tResult = lens _tResult (\ s a -> s{_tResult = a})
-- | The test's name.
tName :: Lens' Test (Maybe Text)
-tName = lens _tName (\ s a -> s{_tName = a});
+tName = lens _tName (\ s a -> s{_tName = a})
-- | Represents the total (metered or unmetered) minutes used by the test.
tDeviceMinutes :: Lens' Test (Maybe DeviceMinutes)
-tDeviceMinutes = lens _tDeviceMinutes (\ s a -> s{_tDeviceMinutes = a});
+tDeviceMinutes = lens _tDeviceMinutes (\ s a -> s{_tDeviceMinutes = a})
-- | The test's type. Must be one of the following values: * BUILTIN_FUZZ: The built-in fuzz type. * BUILTIN_EXPLORER: For Android, an app explorer that will traverse an Android app, interacting with it and capturing screenshots at the same time. * APPIUM_JAVA_JUNIT: The Appium Java JUnit type. * APPIUM_JAVA_TESTNG: The Appium Java TestNG type. * APPIUM_PYTHON: The Appium Python type. * APPIUM_WEB_JAVA_JUNIT: The Appium Java JUnit type for Web apps. * APPIUM_WEB_JAVA_TESTNG: The Appium Java TestNG type for Web apps. * APPIUM_WEB_PYTHON: The Appium Python type for Web apps. * CALABASH: The Calabash type. * INSTRUMENTATION: The Instrumentation type. * UIAUTOMATION: The uiautomation type. * UIAUTOMATOR: The uiautomator type. * XCTEST: The XCode test type. * XCTEST_UI: The XCode UI test type.
tType :: Lens' Test (Maybe TestType)
-tType = lens _tType (\ s a -> s{_tType = a});
+tType = lens _tType (\ s a -> s{_tType = a})
-- | A message about the test's result.
tMessage :: Lens' Test (Maybe Text)
-tMessage = lens _tMessage (\ s a -> s{_tMessage = a});
+tMessage = lens _tMessage (\ s a -> s{_tMessage = a})
-- | The test's start time.
tStarted :: Lens' Test (Maybe UTCTime)
-tStarted = lens _tStarted (\ s a -> s{_tStarted = a}) . mapping _Time;
+tStarted = lens _tStarted (\ s a -> s{_tStarted = a}) . mapping _Time
instance FromJSON Test where
parseJSON
@@ -2785,11 +3156,11 @@ trialMinutes = TrialMinutes' {_tmRemaining = Nothing, _tmTotal = Nothing}
-- | The number of free trial minutes remaining in the account.
tmRemaining :: Lens' TrialMinutes (Maybe Double)
-tmRemaining = lens _tmRemaining (\ s a -> s{_tmRemaining = a});
+tmRemaining = lens _tmRemaining (\ s a -> s{_tmRemaining = a})
-- | The total number of free trial minutes that the account started with.
tmTotal :: Lens' TrialMinutes (Maybe Double)
-tmTotal = lens _tmTotal (\ s a -> s{_tmTotal = a});
+tmTotal = lens _tmTotal (\ s a -> s{_tmTotal = a})
instance FromJSON TrialMinutes where
parseJSON
@@ -2827,11 +3198,11 @@ uniqueProblem = UniqueProblem' {_upProblems = Nothing, _upMessage = Nothing}
-- | Information about the problems.
upProblems :: Lens' UniqueProblem [Problem]
-upProblems = lens _upProblems (\ s a -> s{_upProblems = a}) . _Default . _Coerce;
+upProblems = lens _upProblems (\ s a -> s{_upProblems = a}) . _Default . _Coerce
-- | A message about the unique problems' result.
upMessage :: Lens' UniqueProblem (Maybe Text)
-upMessage = lens _upMessage (\ s a -> s{_upMessage = a});
+upMessage = lens _upMessage (\ s a -> s{_upMessage = a})
instance FromJSON UniqueProblem where
parseJSON
@@ -2887,53 +3258,53 @@ upload
:: Upload
upload =
Upload'
- { _uStatus = Nothing
- , _uArn = Nothing
- , _uCreated = Nothing
- , _uUrl = Nothing
- , _uName = Nothing
- , _uMetadata = Nothing
- , _uType = Nothing
- , _uMessage = Nothing
- , _uContentType = Nothing
- }
+ { _uStatus = Nothing
+ , _uArn = Nothing
+ , _uCreated = Nothing
+ , _uUrl = Nothing
+ , _uName = Nothing
+ , _uMetadata = Nothing
+ , _uType = Nothing
+ , _uMessage = Nothing
+ , _uContentType = Nothing
+ }
-- | The upload's status. Must be one of the following values: * FAILED: A failed status. * INITIALIZED: An initialized status. * PROCESSING: A processing status. * SUCCEEDED: A succeeded status.
uStatus :: Lens' Upload (Maybe UploadStatus)
-uStatus = lens _uStatus (\ s a -> s{_uStatus = a});
+uStatus = lens _uStatus (\ s a -> s{_uStatus = a})
-- | The upload's ARN.
uArn :: Lens' Upload (Maybe Text)
-uArn = lens _uArn (\ s a -> s{_uArn = a});
+uArn = lens _uArn (\ s a -> s{_uArn = a})
-- | When the upload was created.
uCreated :: Lens' Upload (Maybe UTCTime)
-uCreated = lens _uCreated (\ s a -> s{_uCreated = a}) . mapping _Time;
+uCreated = lens _uCreated (\ s a -> s{_uCreated = a}) . mapping _Time
-- | The pre-signed Amazon S3 URL that was used to store a file through a corresponding PUT request.
uUrl :: Lens' Upload (Maybe Text)
-uUrl = lens _uUrl (\ s a -> s{_uUrl = a});
+uUrl = lens _uUrl (\ s a -> s{_uUrl = a})
-- | The upload's file name.
uName :: Lens' Upload (Maybe Text)
-uName = lens _uName (\ s a -> s{_uName = a});
+uName = lens _uName (\ s a -> s{_uName = a})
-- | The upload's metadata. For example, for Android, this contains information that is parsed from the manifest and is displayed in the AWS Device Farm console after the associated app is uploaded.
uMetadata :: Lens' Upload (Maybe Text)
-uMetadata = lens _uMetadata (\ s a -> s{_uMetadata = a});
+uMetadata = lens _uMetadata (\ s a -> s{_uMetadata = a})
-- | The upload's type. Must be one of the following values: * ANDROID_APP: An Android upload. * IOS_APP: An iOS upload. * WEB_APP: A web appliction upload. * EXTERNAL_DATA: An external data upload. * APPIUM_JAVA_JUNIT_TEST_PACKAGE: An Appium Java JUnit test package upload. * APPIUM_JAVA_TESTNG_TEST_PACKAGE: An Appium Java TestNG test package upload. * APPIUM_PYTHON_TEST_PACKAGE: An Appium Python test package upload. * APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE: An Appium Java JUnit test package upload. * APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE: An Appium Java TestNG test package upload. * APPIUM_WEB_PYTHON_TEST_PACKAGE: An Appium Python test package upload. * CALABASH_TEST_PACKAGE: A Calabash test package upload. * INSTRUMENTATION_TEST_PACKAGE: An instrumentation upload. * UIAUTOMATION_TEST_PACKAGE: A uiautomation test package upload. * UIAUTOMATOR_TEST_PACKAGE: A uiautomator test package upload. * XCTEST_TEST_PACKAGE: An XCode test package upload. * XCTEST_UI_TEST_PACKAGE: An XCode UI test package upload.
uType :: Lens' Upload (Maybe UploadType)
-uType = lens _uType (\ s a -> s{_uType = a});
+uType = lens _uType (\ s a -> s{_uType = a})
-- | A message about the upload's result.
uMessage :: Lens' Upload (Maybe Text)
-uMessage = lens _uMessage (\ s a -> s{_uMessage = a});
+uMessage = lens _uMessage (\ s a -> s{_uMessage = a})
-- | The upload's content type (for example, "application/octet-stream").
uContentType :: Lens' Upload (Maybe Text)
-uContentType = lens _uContentType (\ s a -> s{_uContentType = a});
+uContentType = lens _uContentType (\ s a -> s{_uContentType = a})
instance FromJSON Upload where
parseJSON
@@ -2952,3 +3323,76 @@ instance FromJSON Upload where
instance Hashable Upload where
instance NFData Upload where
+
+-- | Represents an Amazon Virtual Private Cloud (VPC) endpoint configuration.
+--
+--
+--
+-- /See:/ 'vpcEConfiguration' smart constructor.
+data VPCEConfiguration = VPCEConfiguration'
+ { _vecVpceServiceName :: !(Maybe Text)
+ , _vecArn :: !(Maybe Text)
+ , _vecVpceConfigurationName :: !(Maybe Text)
+ , _vecServiceDNSName :: !(Maybe Text)
+ , _vecVpceConfigurationDescription :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'VPCEConfiguration' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'vecVpceServiceName' - The name of the VPC endpoint service running inside your AWS account that you want Device Farm to test.
+--
+-- * 'vecArn' - The Amazon Resource Name (ARN) of the VPC endpoint configuration.
+--
+-- * 'vecVpceConfigurationName' - The friendly name you give to your VPC endpoint configuration, to manage your configurations more easily.
+--
+-- * 'vecServiceDNSName' - The DNS name that maps to the private IP address of the service you want to access.
+--
+-- * 'vecVpceConfigurationDescription' - An optional description, providing more details about your VPC endpoint configuration.
+vpcEConfiguration
+ :: VPCEConfiguration
+vpcEConfiguration =
+ VPCEConfiguration'
+ { _vecVpceServiceName = Nothing
+ , _vecArn = Nothing
+ , _vecVpceConfigurationName = Nothing
+ , _vecServiceDNSName = Nothing
+ , _vecVpceConfigurationDescription = Nothing
+ }
+
+
+-- | The name of the VPC endpoint service running inside your AWS account that you want Device Farm to test.
+vecVpceServiceName :: Lens' VPCEConfiguration (Maybe Text)
+vecVpceServiceName = lens _vecVpceServiceName (\ s a -> s{_vecVpceServiceName = a})
+
+-- | The Amazon Resource Name (ARN) of the VPC endpoint configuration.
+vecArn :: Lens' VPCEConfiguration (Maybe Text)
+vecArn = lens _vecArn (\ s a -> s{_vecArn = a})
+
+-- | The friendly name you give to your VPC endpoint configuration, to manage your configurations more easily.
+vecVpceConfigurationName :: Lens' VPCEConfiguration (Maybe Text)
+vecVpceConfigurationName = lens _vecVpceConfigurationName (\ s a -> s{_vecVpceConfigurationName = a})
+
+-- | The DNS name that maps to the private IP address of the service you want to access.
+vecServiceDNSName :: Lens' VPCEConfiguration (Maybe Text)
+vecServiceDNSName = lens _vecServiceDNSName (\ s a -> s{_vecServiceDNSName = a})
+
+-- | An optional description, providing more details about your VPC endpoint configuration.
+vecVpceConfigurationDescription :: Lens' VPCEConfiguration (Maybe Text)
+vecVpceConfigurationDescription = lens _vecVpceConfigurationDescription (\ s a -> s{_vecVpceConfigurationDescription = a})
+
+instance FromJSON VPCEConfiguration where
+ parseJSON
+ = withObject "VPCEConfiguration"
+ (\ x ->
+ VPCEConfiguration' <$>
+ (x .:? "vpceServiceName") <*> (x .:? "arn") <*>
+ (x .:? "vpceConfigurationName")
+ <*> (x .:? "serviceDnsName")
+ <*> (x .:? "vpceConfigurationDescription"))
+
+instance Hashable VPCEConfiguration where
+
+instance NFData VPCEConfiguration where
diff --git a/gen/Network/AWS/DeviceFarm/Types/Sum.hs b/gen/Network/AWS/DeviceFarm/Types/Sum.hs
index dcffdd2..d82a4ab 100644
--- a/gen/Network/AWS/DeviceFarm/Types/Sum.hs
+++ b/gen/Network/AWS/DeviceFarm/Types/Sum.hs
@@ -9,7 +9,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.Types.Sum
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -208,7 +208,10 @@ instance FromJSON CurrencyCode where
data DeviceAttribute
= ARN
| AppiumVersion
+ | FleetType
| FormFactor
+ | InstanceARN
+ | InstanceLabels
| Manufacturer
| Platform
| RemoteAccessEnabled
@@ -220,19 +223,25 @@ instance FromText DeviceAttribute where
parser = takeLowerText >>= \case
"arn" -> pure ARN
"appium_version" -> pure AppiumVersion
+ "fleet_type" -> pure FleetType
"form_factor" -> pure FormFactor
+ "instance_arn" -> pure InstanceARN
+ "instance_labels" -> pure InstanceLabels
"manufacturer" -> pure Manufacturer
"platform" -> pure Platform
"remote_access_enabled" -> pure RemoteAccessEnabled
"remote_debug_enabled" -> pure RemoteDebugEnabled
e -> fromTextError $ "Failure parsing DeviceAttribute from value: '" <> e
- <> "'. Accepted values: arn, appium_version, form_factor, manufacturer, platform, remote_access_enabled, remote_debug_enabled"
+ <> "'. Accepted values: arn, appium_version, fleet_type, form_factor, instance_arn, instance_labels, manufacturer, platform, remote_access_enabled, remote_debug_enabled"
instance ToText DeviceAttribute where
toText = \case
ARN -> "ARN"
AppiumVersion -> "APPIUM_VERSION"
+ FleetType -> "FLEET_TYPE"
FormFactor -> "FORM_FACTOR"
+ InstanceARN -> "INSTANCE_ARN"
+ InstanceLabels -> "INSTANCE_LABELS"
Manufacturer -> "MANUFACTURER"
Platform -> "PLATFORM"
RemoteAccessEnabled -> "REMOTE_ACCESS_ENABLED"
@@ -376,20 +385,23 @@ instance ToHeader ExecutionResult
instance FromJSON ExecutionResult where
parseJSON = parseJSONText "ExecutionResult"
-data ExecutionResultCode =
- ParsingFailed
+data ExecutionResultCode
+ = ParsingFailed
+ | VPCEndpointSetupFailed
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText ExecutionResultCode where
parser = takeLowerText >>= \case
"parsing_failed" -> pure ParsingFailed
+ "vpc_endpoint_setup_failed" -> pure VPCEndpointSetupFailed
e -> fromTextError $ "Failure parsing ExecutionResultCode from value: '" <> e
- <> "'. Accepted values: parsing_failed"
+ <> "'. Accepted values: parsing_failed, vpc_endpoint_setup_failed"
instance ToText ExecutionResultCode where
toText = \case
ParsingFailed -> "PARSING_FAILED"
+ VPCEndpointSetupFailed -> "VPC_ENDPOINT_SETUP_FAILED"
instance Hashable ExecutionResultCode
instance NFData ExecutionResultCode
@@ -448,6 +460,72 @@ instance ToHeader ExecutionStatus
instance FromJSON ExecutionStatus where
parseJSON = parseJSONText "ExecutionStatus"
+data InstanceStatus
+ = ISAvailable
+ | ISInUse
+ | ISNotAvailable
+ | ISPreparing
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText InstanceStatus where
+ parser = takeLowerText >>= \case
+ "available" -> pure ISAvailable
+ "in_use" -> pure ISInUse
+ "not_available" -> pure ISNotAvailable
+ "preparing" -> pure ISPreparing
+ e -> fromTextError $ "Failure parsing InstanceStatus from value: '" <> e
+ <> "'. Accepted values: available, in_use, not_available, preparing"
+
+instance ToText InstanceStatus where
+ toText = \case
+ ISAvailable -> "AVAILABLE"
+ ISInUse -> "IN_USE"
+ ISNotAvailable -> "NOT_AVAILABLE"
+ ISPreparing -> "PREPARING"
+
+instance Hashable InstanceStatus
+instance NFData InstanceStatus
+instance ToByteString InstanceStatus
+instance ToQuery InstanceStatus
+instance ToHeader InstanceStatus
+
+instance FromJSON InstanceStatus where
+ parseJSON = parseJSONText "InstanceStatus"
+
+data InteractionMode
+ = Interactive
+ | NoVideo
+ | VideoOnly
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText InteractionMode where
+ parser = takeLowerText >>= \case
+ "interactive" -> pure Interactive
+ "no_video" -> pure NoVideo
+ "video_only" -> pure VideoOnly
+ e -> fromTextError $ "Failure parsing InteractionMode from value: '" <> e
+ <> "'. Accepted values: interactive, no_video, video_only"
+
+instance ToText InteractionMode where
+ toText = \case
+ Interactive -> "INTERACTIVE"
+ NoVideo -> "NO_VIDEO"
+ VideoOnly -> "VIDEO_ONLY"
+
+instance Hashable InteractionMode
+instance NFData InteractionMode
+instance ToByteString InteractionMode
+instance ToQuery InteractionMode
+instance ToHeader InteractionMode
+
+instance ToJSON InteractionMode where
+ toJSON = toJSONText
+
+instance FromJSON InteractionMode where
+ parseJSON = parseJSONText "InteractionMode"
+
data NetworkProfileType
= Curated
| Private
@@ -681,8 +759,11 @@ data TestType
| BuiltinFuzz
| Calabash
| Instrumentation
+ | RemoteAccessRecord
+ | RemoteAccessReplay
| Uiautomation
| Uiautomator
+ | WebPerformanceProfile
| Xctest
| XctestUi
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
@@ -700,12 +781,15 @@ instance FromText TestType where
"builtin_fuzz" -> pure BuiltinFuzz
"calabash" -> pure Calabash
"instrumentation" -> pure Instrumentation
+ "remote_access_record" -> pure RemoteAccessRecord
+ "remote_access_replay" -> pure RemoteAccessReplay
"uiautomation" -> pure Uiautomation
"uiautomator" -> pure Uiautomator
+ "web_performance_profile" -> pure WebPerformanceProfile
"xctest" -> pure Xctest
"xctest_ui" -> pure XctestUi
e -> fromTextError $ "Failure parsing TestType from value: '" <> e
- <> "'. Accepted values: appium_java_junit, appium_java_testng, appium_python, appium_web_java_junit, appium_web_java_testng, appium_web_python, builtin_explorer, builtin_fuzz, calabash, instrumentation, uiautomation, uiautomator, xctest, xctest_ui"
+ <> "'. Accepted values: appium_java_junit, appium_java_testng, appium_python, appium_web_java_junit, appium_web_java_testng, appium_web_python, builtin_explorer, builtin_fuzz, calabash, instrumentation, remote_access_record, remote_access_replay, uiautomation, uiautomator, web_performance_profile, xctest, xctest_ui"
instance ToText TestType where
toText = \case
@@ -719,8 +803,11 @@ instance ToText TestType where
BuiltinFuzz -> "BUILTIN_FUZZ"
Calabash -> "CALABASH"
Instrumentation -> "INSTRUMENTATION"
+ RemoteAccessRecord -> "REMOTE_ACCESS_RECORD"
+ RemoteAccessReplay -> "REMOTE_ACCESS_REPLAY"
Uiautomation -> "UIAUTOMATION"
Uiautomator -> "UIAUTOMATOR"
+ WebPerformanceProfile -> "WEB_PERFORMANCE_PROFILE"
Xctest -> "XCTEST"
XctestUi -> "XCTEST_UI"
diff --git a/gen/Network/AWS/DeviceFarm/UpdateDeviceInstance.hs b/gen/Network/AWS/DeviceFarm/UpdateDeviceInstance.hs
new file mode 100644
index 0000000..232e279
--- /dev/null
+++ b/gen/Network/AWS/DeviceFarm/UpdateDeviceInstance.hs
@@ -0,0 +1,154 @@
+{-# 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.UpdateDeviceInstance
+-- Copyright : (c) 2013-2018 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Updates information about an existing private device instance.
+--
+--
+module Network.AWS.DeviceFarm.UpdateDeviceInstance
+ (
+ -- * Creating a Request
+ updateDeviceInstance
+ , UpdateDeviceInstance
+ -- * Request Lenses
+ , udiProfileARN
+ , udiLabels
+ , udiArn
+
+ -- * Destructuring the Response
+ , updateDeviceInstanceResponse
+ , UpdateDeviceInstanceResponse
+ -- * Response Lenses
+ , udirsDeviceInstance
+ , udirsResponseStatus
+ ) 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
+
+-- | /See:/ 'updateDeviceInstance' smart constructor.
+data UpdateDeviceInstance = UpdateDeviceInstance'
+ { _udiProfileARN :: !(Maybe Text)
+ , _udiLabels :: !(Maybe [Text])
+ , _udiArn :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'UpdateDeviceInstance' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'udiProfileARN' - The Amazon Resource Name (ARN) of the profile that you want to associate with the device instance.
+--
+-- * 'udiLabels' - An array of strings that you want to associate with the device instance.
+--
+-- * 'udiArn' - The Amazon Resource Name (ARN) of the device instance.
+updateDeviceInstance
+ :: Text -- ^ 'udiArn'
+ -> UpdateDeviceInstance
+updateDeviceInstance pArn_ =
+ UpdateDeviceInstance'
+ {_udiProfileARN = Nothing, _udiLabels = Nothing, _udiArn = pArn_}
+
+
+-- | The Amazon Resource Name (ARN) of the profile that you want to associate with the device instance.
+udiProfileARN :: Lens' UpdateDeviceInstance (Maybe Text)
+udiProfileARN = lens _udiProfileARN (\ s a -> s{_udiProfileARN = a})
+
+-- | An array of strings that you want to associate with the device instance.
+udiLabels :: Lens' UpdateDeviceInstance [Text]
+udiLabels = lens _udiLabels (\ s a -> s{_udiLabels = a}) . _Default . _Coerce
+
+-- | The Amazon Resource Name (ARN) of the device instance.
+udiArn :: Lens' UpdateDeviceInstance Text
+udiArn = lens _udiArn (\ s a -> s{_udiArn = a})
+
+instance AWSRequest UpdateDeviceInstance where
+ type Rs UpdateDeviceInstance =
+ UpdateDeviceInstanceResponse
+ request = postJSON deviceFarm
+ response
+ = receiveJSON
+ (\ s h x ->
+ UpdateDeviceInstanceResponse' <$>
+ (x .?> "deviceInstance") <*> (pure (fromEnum s)))
+
+instance Hashable UpdateDeviceInstance where
+
+instance NFData UpdateDeviceInstance where
+
+instance ToHeaders UpdateDeviceInstance where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("DeviceFarm_20150623.UpdateDeviceInstance" ::
+ ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON UpdateDeviceInstance where
+ toJSON UpdateDeviceInstance'{..}
+ = object
+ (catMaybes
+ [("profileArn" .=) <$> _udiProfileARN,
+ ("labels" .=) <$> _udiLabels,
+ Just ("arn" .= _udiArn)])
+
+instance ToPath UpdateDeviceInstance where
+ toPath = const "/"
+
+instance ToQuery UpdateDeviceInstance where
+ toQuery = const mempty
+
+-- | /See:/ 'updateDeviceInstanceResponse' smart constructor.
+data UpdateDeviceInstanceResponse = UpdateDeviceInstanceResponse'
+ { _udirsDeviceInstance :: !(Maybe DeviceInstance)
+ , _udirsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'UpdateDeviceInstanceResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'udirsDeviceInstance' - An object containing information about your device instance.
+--
+-- * 'udirsResponseStatus' - -- | The response status code.
+updateDeviceInstanceResponse
+ :: Int -- ^ 'udirsResponseStatus'
+ -> UpdateDeviceInstanceResponse
+updateDeviceInstanceResponse pResponseStatus_ =
+ UpdateDeviceInstanceResponse'
+ {_udirsDeviceInstance = Nothing, _udirsResponseStatus = pResponseStatus_}
+
+
+-- | An object containing information about your device instance.
+udirsDeviceInstance :: Lens' UpdateDeviceInstanceResponse (Maybe DeviceInstance)
+udirsDeviceInstance = lens _udirsDeviceInstance (\ s a -> s{_udirsDeviceInstance = a})
+
+-- | -- | The response status code.
+udirsResponseStatus :: Lens' UpdateDeviceInstanceResponse Int
+udirsResponseStatus = lens _udirsResponseStatus (\ s a -> s{_udirsResponseStatus = a})
+
+instance NFData UpdateDeviceInstanceResponse where
diff --git a/gen/Network/AWS/DeviceFarm/UpdateDevicePool.hs b/gen/Network/AWS/DeviceFarm/UpdateDevicePool.hs
index eb8b044..903d5a4 100644
--- a/gen/Network/AWS/DeviceFarm/UpdateDevicePool.hs
+++ b/gen/Network/AWS/DeviceFarm/UpdateDevicePool.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.UpdateDevicePool
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -76,28 +76,28 @@ updateDevicePool
-> UpdateDevicePool
updateDevicePool pArn_ =
UpdateDevicePool'
- { _udpRules = Nothing
- , _udpName = Nothing
- , _udpDescription = Nothing
- , _udpArn = pArn_
- }
+ { _udpRules = Nothing
+ , _udpName = Nothing
+ , _udpDescription = Nothing
+ , _udpArn = pArn_
+ }
-- | Represents the rules you wish to modify for the device pool. Updating rules is optional; however, if you choose to update rules for your request, the update will replace the existing rules.
udpRules :: Lens' UpdateDevicePool [Rule]
-udpRules = lens _udpRules (\ s a -> s{_udpRules = a}) . _Default . _Coerce;
+udpRules = lens _udpRules (\ s a -> s{_udpRules = a}) . _Default . _Coerce
-- | A string representing the name of the device pool you wish to update.
udpName :: Lens' UpdateDevicePool (Maybe Text)
-udpName = lens _udpName (\ s a -> s{_udpName = a});
+udpName = lens _udpName (\ s a -> s{_udpName = a})
-- | A description of the device pool you wish to update.
udpDescription :: Lens' UpdateDevicePool (Maybe Text)
-udpDescription = lens _udpDescription (\ s a -> s{_udpDescription = a});
+udpDescription = lens _udpDescription (\ s a -> s{_udpDescription = a})
-- | The Amazon Resourc Name (ARN) of the Device Farm device pool you wish to update.
udpArn :: Lens' UpdateDevicePool Text
-udpArn = lens _udpArn (\ s a -> s{_udpArn = a});
+udpArn = lens _udpArn (\ s a -> s{_udpArn = a})
instance AWSRequest UpdateDevicePool where
type Rs UpdateDevicePool = UpdateDevicePoolResponse
@@ -160,15 +160,15 @@ updateDevicePoolResponse
-> UpdateDevicePoolResponse
updateDevicePoolResponse pResponseStatus_ =
UpdateDevicePoolResponse'
- {_udprsDevicePool = Nothing, _udprsResponseStatus = pResponseStatus_}
+ {_udprsDevicePool = Nothing, _udprsResponseStatus = pResponseStatus_}
-- | The device pool you just updated.
udprsDevicePool :: Lens' UpdateDevicePoolResponse (Maybe DevicePool)
-udprsDevicePool = lens _udprsDevicePool (\ s a -> s{_udprsDevicePool = a});
+udprsDevicePool = lens _udprsDevicePool (\ s a -> s{_udprsDevicePool = a})
-- | -- | The response status code.
udprsResponseStatus :: Lens' UpdateDevicePoolResponse Int
-udprsResponseStatus = lens _udprsResponseStatus (\ s a -> s{_udprsResponseStatus = a});
+udprsResponseStatus = lens _udprsResponseStatus (\ s a -> s{_udprsResponseStatus = a})
instance NFData UpdateDevicePoolResponse where
diff --git a/gen/Network/AWS/DeviceFarm/UpdateInstanceProfile.hs b/gen/Network/AWS/DeviceFarm/UpdateInstanceProfile.hs
new file mode 100644
index 0000000..e3fe948
--- /dev/null
+++ b/gen/Network/AWS/DeviceFarm/UpdateInstanceProfile.hs
@@ -0,0 +1,188 @@
+{-# 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.UpdateInstanceProfile
+-- Copyright : (c) 2013-2018 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Updates information about an existing private device instance profile.
+--
+--
+module Network.AWS.DeviceFarm.UpdateInstanceProfile
+ (
+ -- * Creating a Request
+ updateInstanceProfile
+ , UpdateInstanceProfile
+ -- * Request Lenses
+ , uipRebootAfterUse
+ , uipName
+ , uipPackageCleanup
+ , uipExcludeAppPackagesFromCleanup
+ , uipDescription
+ , uipArn
+
+ -- * Destructuring the Response
+ , updateInstanceProfileResponse
+ , UpdateInstanceProfileResponse
+ -- * Response Lenses
+ , uiprsInstanceProfile
+ , uiprsResponseStatus
+ ) 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
+
+-- | /See:/ 'updateInstanceProfile' smart constructor.
+data UpdateInstanceProfile = UpdateInstanceProfile'
+ { _uipRebootAfterUse :: !(Maybe Bool)
+ , _uipName :: !(Maybe Text)
+ , _uipPackageCleanup :: !(Maybe Bool)
+ , _uipExcludeAppPackagesFromCleanup :: !(Maybe [Text])
+ , _uipDescription :: !(Maybe Text)
+ , _uipArn :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'UpdateInstanceProfile' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'uipRebootAfterUse' - The updated choice for whether you want to reboot the device after use. The default value is @true@ .
+--
+-- * 'uipName' - The updated name for your instance profile.
+--
+-- * 'uipPackageCleanup' - The updated choice for whether you want to specify package cleanup. The default value is @false@ for private devices.
+--
+-- * 'uipExcludeAppPackagesFromCleanup' - An array of strings specifying the list of app packages that should not be cleaned up from the device after a test run is over. The list of packages is only considered if you set @packageCleanup@ to @true@ .
+--
+-- * 'uipDescription' - The updated description for your instance profile.
+--
+-- * 'uipArn' - The Amazon Resource Name (ARN) of the instance profile.
+updateInstanceProfile
+ :: Text -- ^ 'uipArn'
+ -> UpdateInstanceProfile
+updateInstanceProfile pArn_ =
+ UpdateInstanceProfile'
+ { _uipRebootAfterUse = Nothing
+ , _uipName = Nothing
+ , _uipPackageCleanup = Nothing
+ , _uipExcludeAppPackagesFromCleanup = Nothing
+ , _uipDescription = Nothing
+ , _uipArn = pArn_
+ }
+
+
+-- | The updated choice for whether you want to reboot the device after use. The default value is @true@ .
+uipRebootAfterUse :: Lens' UpdateInstanceProfile (Maybe Bool)
+uipRebootAfterUse = lens _uipRebootAfterUse (\ s a -> s{_uipRebootAfterUse = a})
+
+-- | The updated name for your instance profile.
+uipName :: Lens' UpdateInstanceProfile (Maybe Text)
+uipName = lens _uipName (\ s a -> s{_uipName = a})
+
+-- | The updated choice for whether you want to specify package cleanup. The default value is @false@ for private devices.
+uipPackageCleanup :: Lens' UpdateInstanceProfile (Maybe Bool)
+uipPackageCleanup = lens _uipPackageCleanup (\ s a -> s{_uipPackageCleanup = a})
+
+-- | An array of strings specifying the list of app packages that should not be cleaned up from the device after a test run is over. The list of packages is only considered if you set @packageCleanup@ to @true@ .
+uipExcludeAppPackagesFromCleanup :: Lens' UpdateInstanceProfile [Text]
+uipExcludeAppPackagesFromCleanup = lens _uipExcludeAppPackagesFromCleanup (\ s a -> s{_uipExcludeAppPackagesFromCleanup = a}) . _Default . _Coerce
+
+-- | The updated description for your instance profile.
+uipDescription :: Lens' UpdateInstanceProfile (Maybe Text)
+uipDescription = lens _uipDescription (\ s a -> s{_uipDescription = a})
+
+-- | The Amazon Resource Name (ARN) of the instance profile.
+uipArn :: Lens' UpdateInstanceProfile Text
+uipArn = lens _uipArn (\ s a -> s{_uipArn = a})
+
+instance AWSRequest UpdateInstanceProfile where
+ type Rs UpdateInstanceProfile =
+ UpdateInstanceProfileResponse
+ request = postJSON deviceFarm
+ response
+ = receiveJSON
+ (\ s h x ->
+ UpdateInstanceProfileResponse' <$>
+ (x .?> "instanceProfile") <*> (pure (fromEnum s)))
+
+instance Hashable UpdateInstanceProfile where
+
+instance NFData UpdateInstanceProfile where
+
+instance ToHeaders UpdateInstanceProfile where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("DeviceFarm_20150623.UpdateInstanceProfile" ::
+ ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON UpdateInstanceProfile where
+ toJSON UpdateInstanceProfile'{..}
+ = object
+ (catMaybes
+ [("rebootAfterUse" .=) <$> _uipRebootAfterUse,
+ ("name" .=) <$> _uipName,
+ ("packageCleanup" .=) <$> _uipPackageCleanup,
+ ("excludeAppPackagesFromCleanup" .=) <$>
+ _uipExcludeAppPackagesFromCleanup,
+ ("description" .=) <$> _uipDescription,
+ Just ("arn" .= _uipArn)])
+
+instance ToPath UpdateInstanceProfile where
+ toPath = const "/"
+
+instance ToQuery UpdateInstanceProfile where
+ toQuery = const mempty
+
+-- | /See:/ 'updateInstanceProfileResponse' smart constructor.
+data UpdateInstanceProfileResponse = UpdateInstanceProfileResponse'
+ { _uiprsInstanceProfile :: !(Maybe InstanceProfile)
+ , _uiprsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'UpdateInstanceProfileResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'uiprsInstanceProfile' - An object containing information about your instance profile.
+--
+-- * 'uiprsResponseStatus' - -- | The response status code.
+updateInstanceProfileResponse
+ :: Int -- ^ 'uiprsResponseStatus'
+ -> UpdateInstanceProfileResponse
+updateInstanceProfileResponse pResponseStatus_ =
+ UpdateInstanceProfileResponse'
+ {_uiprsInstanceProfile = Nothing, _uiprsResponseStatus = pResponseStatus_}
+
+
+-- | An object containing information about your instance profile.
+uiprsInstanceProfile :: Lens' UpdateInstanceProfileResponse (Maybe InstanceProfile)
+uiprsInstanceProfile = lens _uiprsInstanceProfile (\ s a -> s{_uiprsInstanceProfile = a})
+
+-- | -- | The response status code.
+uiprsResponseStatus :: Lens' UpdateInstanceProfileResponse Int
+uiprsResponseStatus = lens _uiprsResponseStatus (\ s a -> s{_uiprsResponseStatus = a})
+
+instance NFData UpdateInstanceProfileResponse where
diff --git a/gen/Network/AWS/DeviceFarm/UpdateNetworkProfile.hs b/gen/Network/AWS/DeviceFarm/UpdateNetworkProfile.hs
index bc614b6..447cf34 100644
--- a/gen/Network/AWS/DeviceFarm/UpdateNetworkProfile.hs
+++ b/gen/Network/AWS/DeviceFarm/UpdateNetworkProfile.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.UpdateNetworkProfile
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -98,74 +98,74 @@ data UpdateNetworkProfile = UpdateNetworkProfile'
--
-- * 'unpDownlinkBandwidthBits' - The data throughput rate in bits per second, as an integer from 0 to 104857600.
--
--- * 'unpArn' - The Amazon Resource Name (ARN) of the project that you wish to update network profile settings.
+-- * 'unpArn' - The Amazon Resource Name (ARN) of the project for which you want to update network profile settings.
updateNetworkProfile
:: Text -- ^ 'unpArn'
-> UpdateNetworkProfile
updateNetworkProfile pArn_ =
UpdateNetworkProfile'
- { _unpUplinkJitterMs = Nothing
- , _unpUplinkLossPercent = Nothing
- , _unpDownlinkJitterMs = Nothing
- , _unpName = Nothing
- , _unpDownlinkLossPercent = Nothing
- , _unpType = Nothing
- , _unpUplinkDelayMs = Nothing
- , _unpUplinkBandwidthBits = Nothing
- , _unpDescription = Nothing
- , _unpDownlinkDelayMs = Nothing
- , _unpDownlinkBandwidthBits = Nothing
- , _unpArn = pArn_
- }
+ { _unpUplinkJitterMs = Nothing
+ , _unpUplinkLossPercent = Nothing
+ , _unpDownlinkJitterMs = Nothing
+ , _unpName = Nothing
+ , _unpDownlinkLossPercent = Nothing
+ , _unpType = Nothing
+ , _unpUplinkDelayMs = Nothing
+ , _unpUplinkBandwidthBits = Nothing
+ , _unpDescription = Nothing
+ , _unpDownlinkDelayMs = Nothing
+ , _unpDownlinkBandwidthBits = Nothing
+ , _unpArn = pArn_
+ }
-- | Time variation in the delay of received packets in milliseconds as an integer from 0 to 2000.
unpUplinkJitterMs :: Lens' UpdateNetworkProfile (Maybe Integer)
-unpUplinkJitterMs = lens _unpUplinkJitterMs (\ s a -> s{_unpUplinkJitterMs = a});
+unpUplinkJitterMs = lens _unpUplinkJitterMs (\ s a -> s{_unpUplinkJitterMs = a})
-- | Proportion of transmitted packets that fail to arrive from 0 to 100 percent.
unpUplinkLossPercent :: Lens' UpdateNetworkProfile (Maybe Natural)
-unpUplinkLossPercent = lens _unpUplinkLossPercent (\ s a -> s{_unpUplinkLossPercent = a}) . mapping _Nat;
+unpUplinkLossPercent = lens _unpUplinkLossPercent (\ s a -> s{_unpUplinkLossPercent = a}) . mapping _Nat
-- | Time variation in the delay of received packets in milliseconds as an integer from 0 to 2000.
unpDownlinkJitterMs :: Lens' UpdateNetworkProfile (Maybe Integer)
-unpDownlinkJitterMs = lens _unpDownlinkJitterMs (\ s a -> s{_unpDownlinkJitterMs = a});
+unpDownlinkJitterMs = lens _unpDownlinkJitterMs (\ s a -> s{_unpDownlinkJitterMs = a})
-- | The name of the network profile about which you are returning information.
unpName :: Lens' UpdateNetworkProfile (Maybe Text)
-unpName = lens _unpName (\ s a -> s{_unpName = a});
+unpName = lens _unpName (\ s a -> s{_unpName = a})
-- | Proportion of received packets that fail to arrive from 0 to 100 percent.
unpDownlinkLossPercent :: Lens' UpdateNetworkProfile (Maybe Natural)
-unpDownlinkLossPercent = lens _unpDownlinkLossPercent (\ s a -> s{_unpDownlinkLossPercent = a}) . mapping _Nat;
+unpDownlinkLossPercent = lens _unpDownlinkLossPercent (\ s a -> s{_unpDownlinkLossPercent = a}) . mapping _Nat
-- | The type of network profile you wish to return information about. Valid values are listed below.
unpType :: Lens' UpdateNetworkProfile (Maybe NetworkProfileType)
-unpType = lens _unpType (\ s a -> s{_unpType = a});
+unpType = lens _unpType (\ s a -> s{_unpType = a})
-- | Delay time for all packets to destination in milliseconds as an integer from 0 to 2000.
unpUplinkDelayMs :: Lens' UpdateNetworkProfile (Maybe Integer)
-unpUplinkDelayMs = lens _unpUplinkDelayMs (\ s a -> s{_unpUplinkDelayMs = a});
+unpUplinkDelayMs = lens _unpUplinkDelayMs (\ s a -> s{_unpUplinkDelayMs = a})
-- | The data throughput rate in bits per second, as an integer from 0 to 104857600.
unpUplinkBandwidthBits :: Lens' UpdateNetworkProfile (Maybe Integer)
-unpUplinkBandwidthBits = lens _unpUplinkBandwidthBits (\ s a -> s{_unpUplinkBandwidthBits = a});
+unpUplinkBandwidthBits = lens _unpUplinkBandwidthBits (\ s a -> s{_unpUplinkBandwidthBits = a})
-- | The descriptoin of the network profile about which you are returning information.
unpDescription :: Lens' UpdateNetworkProfile (Maybe Text)
-unpDescription = lens _unpDescription (\ s a -> s{_unpDescription = a});
+unpDescription = lens _unpDescription (\ s a -> s{_unpDescription = a})
-- | Delay time for all packets to destination in milliseconds as an integer from 0 to 2000.
unpDownlinkDelayMs :: Lens' UpdateNetworkProfile (Maybe Integer)
-unpDownlinkDelayMs = lens _unpDownlinkDelayMs (\ s a -> s{_unpDownlinkDelayMs = a});
+unpDownlinkDelayMs = lens _unpDownlinkDelayMs (\ s a -> s{_unpDownlinkDelayMs = a})
-- | The data throughput rate in bits per second, as an integer from 0 to 104857600.
unpDownlinkBandwidthBits :: Lens' UpdateNetworkProfile (Maybe Integer)
-unpDownlinkBandwidthBits = lens _unpDownlinkBandwidthBits (\ s a -> s{_unpDownlinkBandwidthBits = a});
+unpDownlinkBandwidthBits = lens _unpDownlinkBandwidthBits (\ s a -> s{_unpDownlinkBandwidthBits = a})
--- | The Amazon Resource Name (ARN) of the project that you wish to update network profile settings.
+-- | The Amazon Resource Name (ARN) of the project for which you want to update network profile settings.
unpArn :: Lens' UpdateNetworkProfile Text
-unpArn = lens _unpArn (\ s a -> s{_unpArn = a});
+unpArn = lens _unpArn (\ s a -> s{_unpArn = a})
instance AWSRequest UpdateNetworkProfile where
type Rs UpdateNetworkProfile =
@@ -236,15 +236,15 @@ updateNetworkProfileResponse
-> UpdateNetworkProfileResponse
updateNetworkProfileResponse pResponseStatus_ =
UpdateNetworkProfileResponse'
- {_unprsNetworkProfile = Nothing, _unprsResponseStatus = pResponseStatus_}
+ {_unprsNetworkProfile = Nothing, _unprsResponseStatus = pResponseStatus_}
-- | A list of the available network profiles.
unprsNetworkProfile :: Lens' UpdateNetworkProfileResponse (Maybe NetworkProfile)
-unprsNetworkProfile = lens _unprsNetworkProfile (\ s a -> s{_unprsNetworkProfile = a});
+unprsNetworkProfile = lens _unprsNetworkProfile (\ s a -> s{_unprsNetworkProfile = a})
-- | -- | The response status code.
unprsResponseStatus :: Lens' UpdateNetworkProfileResponse Int
-unprsResponseStatus = lens _unprsResponseStatus (\ s a -> s{_unprsResponseStatus = a});
+unprsResponseStatus = lens _unprsResponseStatus (\ s a -> s{_unprsResponseStatus = a})
instance NFData UpdateNetworkProfileResponse where
diff --git a/gen/Network/AWS/DeviceFarm/UpdateProject.hs b/gen/Network/AWS/DeviceFarm/UpdateProject.hs
index 26a8f55..da3e65b 100644
--- a/gen/Network/AWS/DeviceFarm/UpdateProject.hs
+++ b/gen/Network/AWS/DeviceFarm/UpdateProject.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.UpdateProject
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -72,20 +72,20 @@ updateProject
-> UpdateProject
updateProject pArn_ =
UpdateProject'
- {_upName = Nothing, _upDefaultJobTimeoutMinutes = Nothing, _upArn = pArn_}
+ {_upName = Nothing, _upDefaultJobTimeoutMinutes = Nothing, _upArn = pArn_}
-- | A string representing the new name of the project that you are updating.
upName :: Lens' UpdateProject (Maybe Text)
-upName = lens _upName (\ s a -> s{_upName = a});
+upName = lens _upName (\ s a -> s{_upName = a})
-- | The number of minutes a test run in the project will execute before it times out.
upDefaultJobTimeoutMinutes :: Lens' UpdateProject (Maybe Int)
-upDefaultJobTimeoutMinutes = lens _upDefaultJobTimeoutMinutes (\ s a -> s{_upDefaultJobTimeoutMinutes = a});
+upDefaultJobTimeoutMinutes = lens _upDefaultJobTimeoutMinutes (\ s a -> s{_upDefaultJobTimeoutMinutes = a})
-- | The Amazon Resource Name (ARN) of the project whose name you wish to update.
upArn :: Lens' UpdateProject Text
-upArn = lens _upArn (\ s a -> s{_upArn = a});
+upArn = lens _upArn (\ s a -> s{_upArn = a})
instance AWSRequest UpdateProject where
type Rs UpdateProject = UpdateProjectResponse
@@ -147,15 +147,15 @@ updateProjectResponse
-> UpdateProjectResponse
updateProjectResponse pResponseStatus_ =
UpdateProjectResponse'
- {_uprsProject = Nothing, _uprsResponseStatus = pResponseStatus_}
+ {_uprsProject = Nothing, _uprsResponseStatus = pResponseStatus_}
-- | The project you wish to update.
uprsProject :: Lens' UpdateProjectResponse (Maybe Project)
-uprsProject = lens _uprsProject (\ s a -> s{_uprsProject = a});
+uprsProject = lens _uprsProject (\ s a -> s{_uprsProject = a})
-- | -- | The response status code.
uprsResponseStatus :: Lens' UpdateProjectResponse Int
-uprsResponseStatus = lens _uprsResponseStatus (\ s a -> s{_uprsResponseStatus = a});
+uprsResponseStatus = lens _uprsResponseStatus (\ s a -> s{_uprsResponseStatus = a})
instance NFData UpdateProjectResponse where
diff --git a/gen/Network/AWS/DeviceFarm/UpdateVPCEConfiguration.hs b/gen/Network/AWS/DeviceFarm/UpdateVPCEConfiguration.hs
new file mode 100644
index 0000000..617ccb0
--- /dev/null
+++ b/gen/Network/AWS/DeviceFarm/UpdateVPCEConfiguration.hs
@@ -0,0 +1,181 @@
+{-# 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.UpdateVPCEConfiguration
+-- Copyright : (c) 2013-2018 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Updates information about an existing Amazon Virtual Private Cloud (VPC) endpoint configuration.
+--
+--
+module Network.AWS.DeviceFarm.UpdateVPCEConfiguration
+ (
+ -- * Creating a Request
+ updateVPCEConfiguration
+ , UpdateVPCEConfiguration
+ -- * Request Lenses
+ , uvecVpceServiceName
+ , uvecVpceConfigurationName
+ , uvecServiceDNSName
+ , uvecVpceConfigurationDescription
+ , uvecArn
+
+ -- * Destructuring the Response
+ , updateVPCEConfigurationResponse
+ , UpdateVPCEConfigurationResponse
+ -- * Response Lenses
+ , uvecrsVpceConfiguration
+ , uvecrsResponseStatus
+ ) 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
+
+-- | /See:/ 'updateVPCEConfiguration' smart constructor.
+data UpdateVPCEConfiguration = UpdateVPCEConfiguration'
+ { _uvecVpceServiceName :: !(Maybe Text)
+ , _uvecVpceConfigurationName :: !(Maybe Text)
+ , _uvecServiceDNSName :: !(Maybe Text)
+ , _uvecVpceConfigurationDescription :: !(Maybe Text)
+ , _uvecArn :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'UpdateVPCEConfiguration' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'uvecVpceServiceName' - The name of the VPC endpoint service running inside your AWS account that you want Device Farm to test.
+--
+-- * 'uvecVpceConfigurationName' - The friendly name you give to your VPC endpoint configuration, to manage your configurations more easily.
+--
+-- * 'uvecServiceDNSName' - The DNS (domain) name used to connect to your private service in your Amazon VPC. The DNS name must not already be in use on the Internet.
+--
+-- * 'uvecVpceConfigurationDescription' - An optional description, providing more details about your VPC endpoint configuration.
+--
+-- * 'uvecArn' - The Amazon Resource Name (ARN) of the VPC endpoint configuration you want to update.
+updateVPCEConfiguration
+ :: Text -- ^ 'uvecArn'
+ -> UpdateVPCEConfiguration
+updateVPCEConfiguration pArn_ =
+ UpdateVPCEConfiguration'
+ { _uvecVpceServiceName = Nothing
+ , _uvecVpceConfigurationName = Nothing
+ , _uvecServiceDNSName = Nothing
+ , _uvecVpceConfigurationDescription = Nothing
+ , _uvecArn = pArn_
+ }
+
+
+-- | The name of the VPC endpoint service running inside your AWS account that you want Device Farm to test.
+uvecVpceServiceName :: Lens' UpdateVPCEConfiguration (Maybe Text)
+uvecVpceServiceName = lens _uvecVpceServiceName (\ s a -> s{_uvecVpceServiceName = a})
+
+-- | The friendly name you give to your VPC endpoint configuration, to manage your configurations more easily.
+uvecVpceConfigurationName :: Lens' UpdateVPCEConfiguration (Maybe Text)
+uvecVpceConfigurationName = lens _uvecVpceConfigurationName (\ s a -> s{_uvecVpceConfigurationName = a})
+
+-- | The DNS (domain) name used to connect to your private service in your Amazon VPC. The DNS name must not already be in use on the Internet.
+uvecServiceDNSName :: Lens' UpdateVPCEConfiguration (Maybe Text)
+uvecServiceDNSName = lens _uvecServiceDNSName (\ s a -> s{_uvecServiceDNSName = a})
+
+-- | An optional description, providing more details about your VPC endpoint configuration.
+uvecVpceConfigurationDescription :: Lens' UpdateVPCEConfiguration (Maybe Text)
+uvecVpceConfigurationDescription = lens _uvecVpceConfigurationDescription (\ s a -> s{_uvecVpceConfigurationDescription = a})
+
+-- | The Amazon Resource Name (ARN) of the VPC endpoint configuration you want to update.
+uvecArn :: Lens' UpdateVPCEConfiguration Text
+uvecArn = lens _uvecArn (\ s a -> s{_uvecArn = a})
+
+instance AWSRequest UpdateVPCEConfiguration where
+ type Rs UpdateVPCEConfiguration =
+ UpdateVPCEConfigurationResponse
+ request = postJSON deviceFarm
+ response
+ = receiveJSON
+ (\ s h x ->
+ UpdateVPCEConfigurationResponse' <$>
+ (x .?> "vpceConfiguration") <*> (pure (fromEnum s)))
+
+instance Hashable UpdateVPCEConfiguration where
+
+instance NFData UpdateVPCEConfiguration where
+
+instance ToHeaders UpdateVPCEConfiguration where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("DeviceFarm_20150623.UpdateVPCEConfiguration" ::
+ ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON UpdateVPCEConfiguration where
+ toJSON UpdateVPCEConfiguration'{..}
+ = object
+ (catMaybes
+ [("vpceServiceName" .=) <$> _uvecVpceServiceName,
+ ("vpceConfigurationName" .=) <$>
+ _uvecVpceConfigurationName,
+ ("serviceDnsName" .=) <$> _uvecServiceDNSName,
+ ("vpceConfigurationDescription" .=) <$>
+ _uvecVpceConfigurationDescription,
+ Just ("arn" .= _uvecArn)])
+
+instance ToPath UpdateVPCEConfiguration where
+ toPath = const "/"
+
+instance ToQuery UpdateVPCEConfiguration where
+ toQuery = const mempty
+
+-- | /See:/ 'updateVPCEConfigurationResponse' smart constructor.
+data UpdateVPCEConfigurationResponse = UpdateVPCEConfigurationResponse'
+ { _uvecrsVpceConfiguration :: !(Maybe VPCEConfiguration)
+ , _uvecrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'UpdateVPCEConfigurationResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'uvecrsVpceConfiguration' - An object containing information about your VPC endpoint configuration.
+--
+-- * 'uvecrsResponseStatus' - -- | The response status code.
+updateVPCEConfigurationResponse
+ :: Int -- ^ 'uvecrsResponseStatus'
+ -> UpdateVPCEConfigurationResponse
+updateVPCEConfigurationResponse pResponseStatus_ =
+ UpdateVPCEConfigurationResponse'
+ { _uvecrsVpceConfiguration = Nothing
+ , _uvecrsResponseStatus = pResponseStatus_
+ }
+
+
+-- | An object containing information about your VPC endpoint configuration.
+uvecrsVpceConfiguration :: Lens' UpdateVPCEConfigurationResponse (Maybe VPCEConfiguration)
+uvecrsVpceConfiguration = lens _uvecrsVpceConfiguration (\ s a -> s{_uvecrsVpceConfiguration = a})
+
+-- | -- | The response status code.
+uvecrsResponseStatus :: Lens' UpdateVPCEConfigurationResponse Int
+uvecrsResponseStatus = lens _uvecrsResponseStatus (\ s a -> s{_uvecrsResponseStatus = a})
+
+instance NFData UpdateVPCEConfigurationResponse where
diff --git a/gen/Network/AWS/DeviceFarm/Waiters.hs b/gen/Network/AWS/DeviceFarm/Waiters.hs
index e001f76..55d09c2 100644
--- a/gen/Network/AWS/DeviceFarm/Waiters.hs
+++ b/gen/Network/AWS/DeviceFarm/Waiters.hs
@@ -7,7 +7,7 @@
-- |
-- Module : Network.AWS.DeviceFarm.Waiters
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
diff --git a/test/Main.hs b/test/Main.hs
index 451d06c..120d408 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -2,7 +2,7 @@
-- |
-- Module : Main
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
diff --git a/test/Test/AWS/DeviceFarm.hs b/test/Test/AWS/DeviceFarm.hs
index e3ccbff..5387a2e 100644
--- a/test/Test/AWS/DeviceFarm.hs
+++ b/test/Test/AWS/DeviceFarm.hs
@@ -1,7 +1,7 @@
{-# LANGUAGE OverloadedStrings #-}
-- Module : Test.AWS.DeviceFarm
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : This Source Code Form is subject to the terms of
-- the Mozilla Public License, v. 2.0.
-- A copy of the MPL can be found in the LICENSE file or
diff --git a/test/Test/AWS/DeviceFarm/Internal.hs b/test/Test/AWS/DeviceFarm/Internal.hs
index f4ea71f..0e2ed38 100644
--- a/test/Test/AWS/DeviceFarm/Internal.hs
+++ b/test/Test/AWS/DeviceFarm/Internal.hs
@@ -2,7 +2,7 @@
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- Module : Test.AWS.DeviceFarm.Internal
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : This Source Code Form is subject to the terms of
-- the Mozilla Public License, v. 2.0.
-- A copy of the MPL can be found in the LICENSE file or
diff --git a/test/Test/AWS/Gen/DeviceFarm.hs b/test/Test/AWS/Gen/DeviceFarm.hs
index 39327ff..8520c14 100644
--- a/test/Test/AWS/Gen/DeviceFarm.hs
+++ b/test/Test/AWS/Gen/DeviceFarm.hs
@@ -5,7 +5,7 @@
-- |
-- Module : Test.AWS.Gen.DeviceFarm
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -58,6 +58,9 @@ import Test.Tasty
-- , requestCreateUpload $
-- createUpload
--
+-- , requestGetDeviceInstance $
+-- getDeviceInstance
+--
-- , requestDeleteRemoteAccessSession $
-- deleteRemoteAccessSession
--
@@ -94,30 +97,57 @@ import Test.Tasty
-- , requestGetTest $
-- getTest
--
+-- , requestUpdateDeviceInstance $
+-- updateDeviceInstance
+--
-- , requestGetNetworkProfile $
-- getNetworkProfile
--
-- , requestRenewOffering $
-- renewOffering
--
+-- , requestDeleteInstanceProfile $
+-- deleteInstanceProfile
+--
+-- , requestUpdateInstanceProfile $
+-- updateInstanceProfile
+--
+-- , requestCreateInstanceProfile $
+-- createInstanceProfile
+--
-- , requestGetDevice $
-- getDevice
--
-- , requestListJobs $
-- listJobs
--
+-- , requestGetVPCEConfiguration $
+-- getVPCEConfiguration
+--
-- , requestStopRemoteAccessSession $
-- stopRemoteAccessSession
--
-- , requestCreateNetworkProfile $
-- createNetworkProfile
--
+-- , requestDeleteVPCEConfiguration $
+-- deleteVPCEConfiguration
+--
+-- , requestUpdateVPCEConfiguration $
+-- updateVPCEConfiguration
+--
-- , requestGetJob $
-- getJob
--
+-- , requestGetInstanceProfile $
+-- getInstanceProfile
+--
-- , requestListNetworkProfiles $
-- listNetworkProfiles
--
+-- , requestCreateVPCEConfiguration $
+-- createVPCEConfiguration
+--
-- , requestScheduleRun $
-- scheduleRun
--
@@ -154,15 +184,24 @@ import Test.Tasty
-- , requestGetRemoteAccessSession $
-- getRemoteAccessSession
--
+-- , requestListDeviceInstances $
+-- listDeviceInstances
+--
-- , requestPurchaseOffering $
-- purchaseOffering
--
+-- , requestListInstanceProfiles $
+-- listInstanceProfiles
+--
-- , requestGetProject $
-- getProject
--
-- , requestListUniqueProblems $
-- listUniqueProblems
--
+-- , requestListVPCEConfigurations $
+-- listVPCEConfigurations
+--
-- , requestStopRun $
-- stopRun
--
@@ -208,6 +247,9 @@ import Test.Tasty
-- , responseCreateUpload $
-- createUploadResponse
--
+-- , responseGetDeviceInstance $
+-- getDeviceInstanceResponse
+--
-- , responseDeleteRemoteAccessSession $
-- deleteRemoteAccessSessionResponse
--
@@ -244,30 +286,57 @@ import Test.Tasty
-- , responseGetTest $
-- getTestResponse
--
+-- , responseUpdateDeviceInstance $
+-- updateDeviceInstanceResponse
+--
-- , responseGetNetworkProfile $
-- getNetworkProfileResponse
--
-- , responseRenewOffering $
-- renewOfferingResponse
--
+-- , responseDeleteInstanceProfile $
+-- deleteInstanceProfileResponse
+--
+-- , responseUpdateInstanceProfile $
+-- updateInstanceProfileResponse
+--
+-- , responseCreateInstanceProfile $
+-- createInstanceProfileResponse
+--
-- , responseGetDevice $
-- getDeviceResponse
--
-- , responseListJobs $
-- listJobsResponse
--
+-- , responseGetVPCEConfiguration $
+-- getVPCEConfigurationResponse
+--
-- , responseStopRemoteAccessSession $
-- stopRemoteAccessSessionResponse
--
-- , responseCreateNetworkProfile $
-- createNetworkProfileResponse
--
+-- , responseDeleteVPCEConfiguration $
+-- deleteVPCEConfigurationResponse
+--
+-- , responseUpdateVPCEConfiguration $
+-- updateVPCEConfigurationResponse
+--
-- , responseGetJob $
-- getJobResponse
--
+-- , responseGetInstanceProfile $
+-- getInstanceProfileResponse
+--
-- , responseListNetworkProfiles $
-- listNetworkProfilesResponse
--
+-- , responseCreateVPCEConfiguration $
+-- createVPCEConfigurationResponse
+--
-- , responseScheduleRun $
-- scheduleRunResponse
--
@@ -304,15 +373,24 @@ import Test.Tasty
-- , responseGetRemoteAccessSession $
-- getRemoteAccessSessionResponse
--
+-- , responseListDeviceInstances $
+-- listDeviceInstancesResponse
+--
-- , responsePurchaseOffering $
-- purchaseOfferingResponse
--
+-- , responseListInstanceProfiles $
+-- listInstanceProfilesResponse
+--
-- , responseGetProject $
-- getProjectResponse
--
-- , responseListUniqueProblems $
-- listUniqueProblemsResponse
--
+-- , responseListVPCEConfigurations $
+-- listVPCEConfigurationsResponse
+--
-- , responseStopRun $
-- stopRunResponse
--
@@ -380,6 +458,11 @@ requestCreateUpload = req
"CreateUpload"
"fixture/CreateUpload.yaml"
+requestGetDeviceInstance :: GetDeviceInstance -> TestTree
+requestGetDeviceInstance = req
+ "GetDeviceInstance"
+ "fixture/GetDeviceInstance.yaml"
+
requestDeleteRemoteAccessSession :: DeleteRemoteAccessSession -> TestTree
requestDeleteRemoteAccessSession = req
"DeleteRemoteAccessSession"
@@ -440,6 +523,11 @@ requestGetTest = req
"GetTest"
"fixture/GetTest.yaml"
+requestUpdateDeviceInstance :: UpdateDeviceInstance -> TestTree
+requestUpdateDeviceInstance = req
+ "UpdateDeviceInstance"
+ "fixture/UpdateDeviceInstance.yaml"
+
requestGetNetworkProfile :: GetNetworkProfile -> TestTree
requestGetNetworkProfile = req
"GetNetworkProfile"
@@ -450,6 +538,21 @@ requestRenewOffering = req
"RenewOffering"
"fixture/RenewOffering.yaml"
+requestDeleteInstanceProfile :: DeleteInstanceProfile -> TestTree
+requestDeleteInstanceProfile = req
+ "DeleteInstanceProfile"
+ "fixture/DeleteInstanceProfile.yaml"
+
+requestUpdateInstanceProfile :: UpdateInstanceProfile -> TestTree
+requestUpdateInstanceProfile = req
+ "UpdateInstanceProfile"
+ "fixture/UpdateInstanceProfile.yaml"
+
+requestCreateInstanceProfile :: CreateInstanceProfile -> TestTree
+requestCreateInstanceProfile = req
+ "CreateInstanceProfile"
+ "fixture/CreateInstanceProfile.yaml"
+
requestGetDevice :: GetDevice -> TestTree
requestGetDevice = req
"GetDevice"
@@ -460,6 +563,11 @@ requestListJobs = req
"ListJobs"
"fixture/ListJobs.yaml"
+requestGetVPCEConfiguration :: GetVPCEConfiguration -> TestTree
+requestGetVPCEConfiguration = req
+ "GetVPCEConfiguration"
+ "fixture/GetVPCEConfiguration.yaml"
+
requestStopRemoteAccessSession :: StopRemoteAccessSession -> TestTree
requestStopRemoteAccessSession = req
"StopRemoteAccessSession"
@@ -470,16 +578,36 @@ requestCreateNetworkProfile = req
"CreateNetworkProfile"
"fixture/CreateNetworkProfile.yaml"
+requestDeleteVPCEConfiguration :: DeleteVPCEConfiguration -> TestTree
+requestDeleteVPCEConfiguration = req
+ "DeleteVPCEConfiguration"
+ "fixture/DeleteVPCEConfiguration.yaml"
+
+requestUpdateVPCEConfiguration :: UpdateVPCEConfiguration -> TestTree
+requestUpdateVPCEConfiguration = req
+ "UpdateVPCEConfiguration"
+ "fixture/UpdateVPCEConfiguration.yaml"
+
requestGetJob :: GetJob -> TestTree
requestGetJob = req
"GetJob"
"fixture/GetJob.yaml"
+requestGetInstanceProfile :: GetInstanceProfile -> TestTree
+requestGetInstanceProfile = req
+ "GetInstanceProfile"
+ "fixture/GetInstanceProfile.yaml"
+
requestListNetworkProfiles :: ListNetworkProfiles -> TestTree
requestListNetworkProfiles = req
"ListNetworkProfiles"
"fixture/ListNetworkProfiles.yaml"
+requestCreateVPCEConfiguration :: CreateVPCEConfiguration -> TestTree
+requestCreateVPCEConfiguration = req
+ "CreateVPCEConfiguration"
+ "fixture/CreateVPCEConfiguration.yaml"
+
requestScheduleRun :: ScheduleRun -> TestTree
requestScheduleRun = req
"ScheduleRun"
@@ -540,11 +668,21 @@ requestGetRemoteAccessSession = req
"GetRemoteAccessSession"
"fixture/GetRemoteAccessSession.yaml"
+requestListDeviceInstances :: ListDeviceInstances -> TestTree
+requestListDeviceInstances = req
+ "ListDeviceInstances"
+ "fixture/ListDeviceInstances.yaml"
+
requestPurchaseOffering :: PurchaseOffering -> TestTree
requestPurchaseOffering = req
"PurchaseOffering"
"fixture/PurchaseOffering.yaml"
+requestListInstanceProfiles :: ListInstanceProfiles -> TestTree
+requestListInstanceProfiles = req
+ "ListInstanceProfiles"
+ "fixture/ListInstanceProfiles.yaml"
+
requestGetProject :: GetProject -> TestTree
requestGetProject = req
"GetProject"
@@ -555,6 +693,11 @@ requestListUniqueProblems = req
"ListUniqueProblems"
"fixture/ListUniqueProblems.yaml"
+requestListVPCEConfigurations :: ListVPCEConfigurations -> TestTree
+requestListVPCEConfigurations = req
+ "ListVPCEConfigurations"
+ "fixture/ListVPCEConfigurations.yaml"
+
requestStopRun :: StopRun -> TestTree
requestStopRun = req
"StopRun"
@@ -647,6 +790,13 @@ responseCreateUpload = res
deviceFarm
(Proxy :: Proxy CreateUpload)
+responseGetDeviceInstance :: GetDeviceInstanceResponse -> TestTree
+responseGetDeviceInstance = res
+ "GetDeviceInstanceResponse"
+ "fixture/GetDeviceInstanceResponse.proto"
+ deviceFarm
+ (Proxy :: Proxy GetDeviceInstance)
+
responseDeleteRemoteAccessSession :: DeleteRemoteAccessSessionResponse -> TestTree
responseDeleteRemoteAccessSession = res
"DeleteRemoteAccessSessionResponse"
@@ -731,6 +881,13 @@ responseGetTest = res
deviceFarm
(Proxy :: Proxy GetTest)
+responseUpdateDeviceInstance :: UpdateDeviceInstanceResponse -> TestTree
+responseUpdateDeviceInstance = res
+ "UpdateDeviceInstanceResponse"
+ "fixture/UpdateDeviceInstanceResponse.proto"
+ deviceFarm
+ (Proxy :: Proxy UpdateDeviceInstance)
+
responseGetNetworkProfile :: GetNetworkProfileResponse -> TestTree
responseGetNetworkProfile = res
"GetNetworkProfileResponse"
@@ -745,6 +902,27 @@ responseRenewOffering = res
deviceFarm
(Proxy :: Proxy RenewOffering)
+responseDeleteInstanceProfile :: DeleteInstanceProfileResponse -> TestTree
+responseDeleteInstanceProfile = res
+ "DeleteInstanceProfileResponse"
+ "fixture/DeleteInstanceProfileResponse.proto"
+ deviceFarm
+ (Proxy :: Proxy DeleteInstanceProfile)
+
+responseUpdateInstanceProfile :: UpdateInstanceProfileResponse -> TestTree
+responseUpdateInstanceProfile = res
+ "UpdateInstanceProfileResponse"
+ "fixture/UpdateInstanceProfileResponse.proto"
+ deviceFarm
+ (Proxy :: Proxy UpdateInstanceProfile)
+
+responseCreateInstanceProfile :: CreateInstanceProfileResponse -> TestTree
+responseCreateInstanceProfile = res
+ "CreateInstanceProfileResponse"
+ "fixture/CreateInstanceProfileResponse.proto"
+ deviceFarm
+ (Proxy :: Proxy CreateInstanceProfile)
+
responseGetDevice :: GetDeviceResponse -> TestTree
responseGetDevice = res
"GetDeviceResponse"
@@ -759,6 +937,13 @@ responseListJobs = res
deviceFarm
(Proxy :: Proxy ListJobs)
+responseGetVPCEConfiguration :: GetVPCEConfigurationResponse -> TestTree
+responseGetVPCEConfiguration = res
+ "GetVPCEConfigurationResponse"
+ "fixture/GetVPCEConfigurationResponse.proto"
+ deviceFarm
+ (Proxy :: Proxy GetVPCEConfiguration)
+
responseStopRemoteAccessSession :: StopRemoteAccessSessionResponse -> TestTree
responseStopRemoteAccessSession = res
"StopRemoteAccessSessionResponse"
@@ -773,6 +958,20 @@ responseCreateNetworkProfile = res
deviceFarm
(Proxy :: Proxy CreateNetworkProfile)
+responseDeleteVPCEConfiguration :: DeleteVPCEConfigurationResponse -> TestTree
+responseDeleteVPCEConfiguration = res
+ "DeleteVPCEConfigurationResponse"
+ "fixture/DeleteVPCEConfigurationResponse.proto"
+ deviceFarm
+ (Proxy :: Proxy DeleteVPCEConfiguration)
+
+responseUpdateVPCEConfiguration :: UpdateVPCEConfigurationResponse -> TestTree
+responseUpdateVPCEConfiguration = res
+ "UpdateVPCEConfigurationResponse"
+ "fixture/UpdateVPCEConfigurationResponse.proto"
+ deviceFarm
+ (Proxy :: Proxy UpdateVPCEConfiguration)
+
responseGetJob :: GetJobResponse -> TestTree
responseGetJob = res
"GetJobResponse"
@@ -780,6 +979,13 @@ responseGetJob = res
deviceFarm
(Proxy :: Proxy GetJob)
+responseGetInstanceProfile :: GetInstanceProfileResponse -> TestTree
+responseGetInstanceProfile = res
+ "GetInstanceProfileResponse"
+ "fixture/GetInstanceProfileResponse.proto"
+ deviceFarm
+ (Proxy :: Proxy GetInstanceProfile)
+
responseListNetworkProfiles :: ListNetworkProfilesResponse -> TestTree
responseListNetworkProfiles = res
"ListNetworkProfilesResponse"
@@ -787,6 +993,13 @@ responseListNetworkProfiles = res
deviceFarm
(Proxy :: Proxy ListNetworkProfiles)
+responseCreateVPCEConfiguration :: CreateVPCEConfigurationResponse -> TestTree
+responseCreateVPCEConfiguration = res
+ "CreateVPCEConfigurationResponse"
+ "fixture/CreateVPCEConfigurationResponse.proto"
+ deviceFarm
+ (Proxy :: Proxy CreateVPCEConfiguration)
+
responseScheduleRun :: ScheduleRunResponse -> TestTree
responseScheduleRun = res
"ScheduleRunResponse"
@@ -871,6 +1084,13 @@ responseGetRemoteAccessSession = res
deviceFarm
(Proxy :: Proxy GetRemoteAccessSession)
+responseListDeviceInstances :: ListDeviceInstancesResponse -> TestTree
+responseListDeviceInstances = res
+ "ListDeviceInstancesResponse"
+ "fixture/ListDeviceInstancesResponse.proto"
+ deviceFarm
+ (Proxy :: Proxy ListDeviceInstances)
+
responsePurchaseOffering :: PurchaseOfferingResponse -> TestTree
responsePurchaseOffering = res
"PurchaseOfferingResponse"
@@ -878,6 +1098,13 @@ responsePurchaseOffering = res
deviceFarm
(Proxy :: Proxy PurchaseOffering)
+responseListInstanceProfiles :: ListInstanceProfilesResponse -> TestTree
+responseListInstanceProfiles = res
+ "ListInstanceProfilesResponse"
+ "fixture/ListInstanceProfilesResponse.proto"
+ deviceFarm
+ (Proxy :: Proxy ListInstanceProfiles)
+
responseGetProject :: GetProjectResponse -> TestTree
responseGetProject = res
"GetProjectResponse"
@@ -892,6 +1119,13 @@ responseListUniqueProblems = res
deviceFarm
(Proxy :: Proxy ListUniqueProblems)
+responseListVPCEConfigurations :: ListVPCEConfigurationsResponse -> TestTree
+responseListVPCEConfigurations = res
+ "ListVPCEConfigurationsResponse"
+ "fixture/ListVPCEConfigurationsResponse.proto"
+ deviceFarm
+ (Proxy :: Proxy ListVPCEConfigurations)
+
responseStopRun :: StopRunResponse -> TestTree
responseStopRun = res
"StopRunResponse"