packages feed

amazonka-devicefarm 1.6.1 → 2.0

raw patch · 309 files changed

+35566/−17006 lines, 309 filesdep +case-insensitivedep ~amazonka-coredep ~amazonka-testdep ~basesetup-changedPVP ok

version bump matches the API change (PVP)

Dependencies added: case-insensitive

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

API changes (from Hackage documentation)

- Network.AWS.DeviceFarm: ACFile :: ArtifactCategory
- Network.AWS.DeviceFarm: ACLog :: ArtifactCategory
- Network.AWS.DeviceFarm: ACScreenshot :: ArtifactCategory
- Network.AWS.DeviceFarm: ARN :: DeviceAttribute
- Network.AWS.DeviceFarm: Android :: DevicePlatform
- Network.AWS.DeviceFarm: AndroidApp :: UploadType
- Network.AWS.DeviceFarm: AppiumJavaJunit :: TestType
- Network.AWS.DeviceFarm: AppiumJavaJunitTestPackage :: UploadType
- Network.AWS.DeviceFarm: AppiumJavaOutput :: ArtifactType
- Network.AWS.DeviceFarm: AppiumJavaTestng :: TestType
- Network.AWS.DeviceFarm: AppiumJavaTestngTestPackage :: UploadType
- Network.AWS.DeviceFarm: AppiumJavaXMLOutput :: ArtifactType
- Network.AWS.DeviceFarm: AppiumPython :: TestType
- Network.AWS.DeviceFarm: AppiumPythonOutput :: ArtifactType
- Network.AWS.DeviceFarm: AppiumPythonTestPackage :: UploadType
- Network.AWS.DeviceFarm: AppiumPythonXMLOutput :: ArtifactType
- Network.AWS.DeviceFarm: AppiumServerOutput :: ArtifactType
- Network.AWS.DeviceFarm: AppiumVersion :: DeviceAttribute
- Network.AWS.DeviceFarm: AppiumWebJavaJunit :: TestType
- Network.AWS.DeviceFarm: AppiumWebJavaJunitTestPackage :: UploadType
- Network.AWS.DeviceFarm: AppiumWebJavaTestng :: TestType
- Network.AWS.DeviceFarm: AppiumWebJavaTestngTestPackage :: UploadType
- Network.AWS.DeviceFarm: AppiumWebPython :: TestType
- Network.AWS.DeviceFarm: AppiumWebPythonTestPackage :: UploadType
- Network.AWS.DeviceFarm: ApplicationCrashReport :: ArtifactType
- Network.AWS.DeviceFarm: AutomationOutput :: ArtifactType
- Network.AWS.DeviceFarm: BuiltinExplorer :: TestType
- Network.AWS.DeviceFarm: BuiltinFuzz :: TestType
- Network.AWS.DeviceFarm: CPU :: SampleType
- Network.AWS.DeviceFarm: Calabash :: TestType
- Network.AWS.DeviceFarm: CalabashJSONOutput :: ArtifactType
- Network.AWS.DeviceFarm: CalabashJavaXMLOutput :: ArtifactType
- Network.AWS.DeviceFarm: CalabashPrettyOutput :: ArtifactType
- Network.AWS.DeviceFarm: CalabashStandardOutput :: ArtifactType
- Network.AWS.DeviceFarm: CalabashTestPackage :: UploadType
- Network.AWS.DeviceFarm: Completed :: ExecutionStatus
- Network.AWS.DeviceFarm: Contains :: RuleOperator
- Network.AWS.DeviceFarm: Curated :: NetworkProfileType
- Network.AWS.DeviceFarm: CustomerArtifact :: ArtifactType
- Network.AWS.DeviceFarm: CustomerArtifactLog :: ArtifactType
- Network.AWS.DeviceFarm: DPTCurated :: DevicePoolType
- Network.AWS.DeviceFarm: DPTPrivate :: DevicePoolType
- Network.AWS.DeviceFarm: DeviceLog :: ArtifactType
- Network.AWS.DeviceFarm: ERErrored :: ExecutionResult
- Network.AWS.DeviceFarm: ERFailed :: ExecutionResult
- Network.AWS.DeviceFarm: ERPassed :: ExecutionResult
- Network.AWS.DeviceFarm: ERPending :: ExecutionResult
- Network.AWS.DeviceFarm: ERSkipped :: ExecutionResult
- Network.AWS.DeviceFarm: ERStopped :: ExecutionResult
- Network.AWS.DeviceFarm: ERWarned :: ExecutionResult
- Network.AWS.DeviceFarm: Equals :: RuleOperator
- Network.AWS.DeviceFarm: ExerciserMonkeyOutput :: ArtifactType
- Network.AWS.DeviceFarm: ExplorerEventLog :: ArtifactType
- Network.AWS.DeviceFarm: ExplorerSummaryLog :: ArtifactType
- Network.AWS.DeviceFarm: ExternalData :: UploadType
- Network.AWS.DeviceFarm: FleetType :: DeviceAttribute
- Network.AWS.DeviceFarm: FormFactor :: DeviceAttribute
- Network.AWS.DeviceFarm: GreaterThan :: RuleOperator
- Network.AWS.DeviceFarm: IN :: RuleOperator
- Network.AWS.DeviceFarm: ISAvailable :: InstanceStatus
- Network.AWS.DeviceFarm: ISInUse :: InstanceStatus
- Network.AWS.DeviceFarm: ISNotAvailable :: InstanceStatus
- Network.AWS.DeviceFarm: ISPreparing :: InstanceStatus
- Network.AWS.DeviceFarm: InstanceARN :: DeviceAttribute
- Network.AWS.DeviceFarm: InstanceLabels :: DeviceAttribute
- Network.AWS.DeviceFarm: Instrumentation :: TestType
- Network.AWS.DeviceFarm: InstrumentationOutput :: ArtifactType
- Network.AWS.DeviceFarm: InstrumentationTestPackage :: UploadType
- Network.AWS.DeviceFarm: Interactive :: InteractionMode
- Network.AWS.DeviceFarm: Ios :: DevicePlatform
- Network.AWS.DeviceFarm: IosApp :: UploadType
- Network.AWS.DeviceFarm: LessThan :: RuleOperator
- Network.AWS.DeviceFarm: Manufacturer :: DeviceAttribute
- Network.AWS.DeviceFarm: Memory :: SampleType
- Network.AWS.DeviceFarm: MessageLog :: ArtifactType
- Network.AWS.DeviceFarm: Metered :: BillingMethod
- Network.AWS.DeviceFarm: Monthly :: RecurringChargeFrequency
- Network.AWS.DeviceFarm: NativeAvgDrawtime :: SampleType
- Network.AWS.DeviceFarm: NativeFps :: SampleType
- Network.AWS.DeviceFarm: NativeFrames :: SampleType
- Network.AWS.DeviceFarm: NativeMaxDrawtime :: SampleType
- Network.AWS.DeviceFarm: NativeMinDrawtime :: SampleType
- Network.AWS.DeviceFarm: NoVideo :: InteractionMode
- Network.AWS.DeviceFarm: NotIn :: RuleOperator
- Network.AWS.DeviceFarm: OpenglAvgDrawtime :: SampleType
- Network.AWS.DeviceFarm: OpenglFps :: SampleType
- Network.AWS.DeviceFarm: OpenglFrames :: SampleType
- Network.AWS.DeviceFarm: OpenglMaxDrawtime :: SampleType
- Network.AWS.DeviceFarm: OpenglMinDrawtime :: SampleType
- Network.AWS.DeviceFarm: ParsingFailed :: ExecutionResultCode
- Network.AWS.DeviceFarm: Pending :: ExecutionStatus
- Network.AWS.DeviceFarm: PendingConcurrency :: ExecutionStatus
- Network.AWS.DeviceFarm: PendingDevice :: ExecutionStatus
- Network.AWS.DeviceFarm: Phone :: DeviceFormFactor
- Network.AWS.DeviceFarm: Platform :: DeviceAttribute
- Network.AWS.DeviceFarm: Preparing :: ExecutionStatus
- Network.AWS.DeviceFarm: Private :: NetworkProfileType
- Network.AWS.DeviceFarm: Processing :: ExecutionStatus
- Network.AWS.DeviceFarm: Purchase :: OfferingTransactionType
- Network.AWS.DeviceFarm: RX :: SampleType
- Network.AWS.DeviceFarm: Recurring :: OfferingType
- Network.AWS.DeviceFarm: RemoteAccessEnabled :: DeviceAttribute
- Network.AWS.DeviceFarm: RemoteAccessRecord :: TestType
- Network.AWS.DeviceFarm: RemoteAccessReplay :: TestType
- Network.AWS.DeviceFarm: RemoteDebugEnabled :: DeviceAttribute
- Network.AWS.DeviceFarm: Renew :: OfferingTransactionType
- Network.AWS.DeviceFarm: ResultLog :: ArtifactType
- Network.AWS.DeviceFarm: Running :: ExecutionStatus
- Network.AWS.DeviceFarm: RxRate :: SampleType
- Network.AWS.DeviceFarm: Scheduling :: ExecutionStatus
- Network.AWS.DeviceFarm: Screenshot :: ArtifactType
- Network.AWS.DeviceFarm: ServiceLog :: ArtifactType
- Network.AWS.DeviceFarm: Stopping :: ExecutionStatus
- Network.AWS.DeviceFarm: System :: OfferingTransactionType
- Network.AWS.DeviceFarm: TX :: SampleType
- Network.AWS.DeviceFarm: Tablet :: DeviceFormFactor
- Network.AWS.DeviceFarm: Threads :: SampleType
- Network.AWS.DeviceFarm: TxRate :: SampleType
- Network.AWS.DeviceFarm: USFailed :: UploadStatus
- Network.AWS.DeviceFarm: USInitialized :: UploadStatus
- Network.AWS.DeviceFarm: USProcessing :: UploadStatus
- Network.AWS.DeviceFarm: USSucceeded :: UploadStatus
- Network.AWS.DeviceFarm: Uiautomation :: TestType
- Network.AWS.DeviceFarm: UiautomationTestPackage :: UploadType
- Network.AWS.DeviceFarm: Uiautomator :: TestType
- Network.AWS.DeviceFarm: UiautomatorTestPackage :: UploadType
- Network.AWS.DeviceFarm: Unknown :: ArtifactType
- Network.AWS.DeviceFarm: Unmetered :: BillingMethod
- Network.AWS.DeviceFarm: Usd :: CurrencyCode
- Network.AWS.DeviceFarm: VPCEndpointSetupFailed :: ExecutionResultCode
- Network.AWS.DeviceFarm: Video :: ArtifactType
- Network.AWS.DeviceFarm: VideoLog :: ArtifactType
- Network.AWS.DeviceFarm: VideoOnly :: InteractionMode
- Network.AWS.DeviceFarm: WebApp :: UploadType
- Network.AWS.DeviceFarm: WebPerformanceProfile :: TestType
- Network.AWS.DeviceFarm: WebkitLog :: ArtifactType
- Network.AWS.DeviceFarm: Xctest :: TestType
- Network.AWS.DeviceFarm: XctestLog :: ArtifactType
- Network.AWS.DeviceFarm: XctestTestPackage :: UploadType
- Network.AWS.DeviceFarm: XctestUi :: TestType
- Network.AWS.DeviceFarm: XctestUiTestPackage :: UploadType
- Network.AWS.DeviceFarm: _ArgumentException :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.DeviceFarm: _IdempotencyException :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.DeviceFarm: _InvalidOperationException :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.DeviceFarm: _LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.DeviceFarm: _NotEligibleException :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.DeviceFarm: _NotFoundException :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.DeviceFarm: _ServiceAccountException :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.DeviceFarm: aArn :: Lens' Artifact (Maybe Text)
- Network.AWS.DeviceFarm: aExtension :: Lens' Artifact (Maybe Text)
- Network.AWS.DeviceFarm: aName :: Lens' Artifact (Maybe Text)
- Network.AWS.DeviceFarm: aType :: Lens' Artifact (Maybe ArtifactType)
- Network.AWS.DeviceFarm: aUrl :: Lens' Artifact (Maybe Text)
- Network.AWS.DeviceFarm: accountSettings :: AccountSettings
- Network.AWS.DeviceFarm: artifact :: Artifact
- Network.AWS.DeviceFarm: asAwsAccountNumber :: Lens' AccountSettings (Maybe Text)
- Network.AWS.DeviceFarm: asDefaultJobTimeoutMinutes :: Lens' AccountSettings (Maybe Int)
- Network.AWS.DeviceFarm: asMaxJobTimeoutMinutes :: Lens' AccountSettings (Maybe Int)
- Network.AWS.DeviceFarm: asMaxSlots :: Lens' AccountSettings (HashMap Text Int)
- Network.AWS.DeviceFarm: asSkipAppResign :: Lens' AccountSettings (Maybe Bool)
- Network.AWS.DeviceFarm: asTrialMinutes :: Lens' AccountSettings (Maybe TrialMinutes)
- Network.AWS.DeviceFarm: asUnmeteredDevices :: Lens' AccountSettings (HashMap DevicePlatform Int)
- Network.AWS.DeviceFarm: asUnmeteredRemoteAccessDevices :: Lens' AccountSettings (HashMap DevicePlatform Int)
- Network.AWS.DeviceFarm: cErrored :: Lens' Counters (Maybe Int)
- Network.AWS.DeviceFarm: cFailed :: Lens' Counters (Maybe Int)
- Network.AWS.DeviceFarm: cPassed :: Lens' Counters (Maybe Int)
- Network.AWS.DeviceFarm: cSkipped :: Lens' Counters (Maybe Int)
- Network.AWS.DeviceFarm: cStopped :: Lens' Counters (Maybe Int)
- Network.AWS.DeviceFarm: cTotal :: Lens' Counters (Maybe Int)
- Network.AWS.DeviceFarm: cWarned :: Lens' Counters (Maybe Int)
- Network.AWS.DeviceFarm: capAndroidPaths :: Lens' CustomerArtifactPaths [Text]
- Network.AWS.DeviceFarm: capDeviceHostPaths :: Lens' CustomerArtifactPaths [Text]
- Network.AWS.DeviceFarm: capIosPaths :: Lens' CustomerArtifactPaths [Text]
- Network.AWS.DeviceFarm: counters :: Counters
- Network.AWS.DeviceFarm: cpu :: CPU
- Network.AWS.DeviceFarm: cpuArchitecture :: Lens' CPU (Maybe Text)
- Network.AWS.DeviceFarm: cpuClock :: Lens' CPU (Maybe Double)
- Network.AWS.DeviceFarm: cpuFrequency :: Lens' CPU (Maybe Text)
- Network.AWS.DeviceFarm: crascBillingMethod :: Lens' CreateRemoteAccessSessionConfiguration (Maybe BillingMethod)
- Network.AWS.DeviceFarm: createRemoteAccessSessionConfiguration :: CreateRemoteAccessSessionConfiguration
- Network.AWS.DeviceFarm: customerArtifactPaths :: CustomerArtifactPaths
- Network.AWS.DeviceFarm: dArn :: Lens' DevicePool (Maybe Text)
- Network.AWS.DeviceFarm: dDescription :: Lens' DevicePool (Maybe Text)
- Network.AWS.DeviceFarm: dName :: Lens' DevicePool (Maybe Text)
- Network.AWS.DeviceFarm: dRules :: Lens' DevicePool [Rule]
- Network.AWS.DeviceFarm: dType :: Lens' DevicePool (Maybe DevicePoolType)
- Network.AWS.DeviceFarm: data AccountSettings
- Network.AWS.DeviceFarm: data Artifact
- Network.AWS.DeviceFarm: data ArtifactCategory
- Network.AWS.DeviceFarm: data ArtifactType
- Network.AWS.DeviceFarm: data BillingMethod
- Network.AWS.DeviceFarm: data CPU
- Network.AWS.DeviceFarm: data Counters
- Network.AWS.DeviceFarm: data CreateRemoteAccessSessionConfiguration
- Network.AWS.DeviceFarm: data CurrencyCode
- Network.AWS.DeviceFarm: data CustomerArtifactPaths
- Network.AWS.DeviceFarm: data Device
- Network.AWS.DeviceFarm: data DeviceAttribute
- Network.AWS.DeviceFarm: data DeviceFormFactor
- Network.AWS.DeviceFarm: data DeviceInstance
- Network.AWS.DeviceFarm: data DeviceMinutes
- Network.AWS.DeviceFarm: data DevicePlatform
- Network.AWS.DeviceFarm: data DevicePool
- Network.AWS.DeviceFarm: data DevicePoolCompatibilityResult
- Network.AWS.DeviceFarm: data DevicePoolType
- Network.AWS.DeviceFarm: data ExecutionConfiguration
- Network.AWS.DeviceFarm: data ExecutionResult
- Network.AWS.DeviceFarm: data ExecutionResultCode
- Network.AWS.DeviceFarm: data ExecutionStatus
- Network.AWS.DeviceFarm: data IncompatibilityMessage
- Network.AWS.DeviceFarm: data InstanceProfile
- Network.AWS.DeviceFarm: data InstanceStatus
- Network.AWS.DeviceFarm: data InteractionMode
- Network.AWS.DeviceFarm: data Job
- Network.AWS.DeviceFarm: data Location
- Network.AWS.DeviceFarm: data MonetaryAmount
- Network.AWS.DeviceFarm: data NetworkProfile
- Network.AWS.DeviceFarm: data NetworkProfileType
- Network.AWS.DeviceFarm: data Offering
- Network.AWS.DeviceFarm: data OfferingPromotion
- Network.AWS.DeviceFarm: data OfferingStatus
- Network.AWS.DeviceFarm: data OfferingTransaction
- Network.AWS.DeviceFarm: data OfferingTransactionType
- Network.AWS.DeviceFarm: data OfferingType
- Network.AWS.DeviceFarm: data Problem
- Network.AWS.DeviceFarm: data ProblemDetail
- Network.AWS.DeviceFarm: data Project
- Network.AWS.DeviceFarm: data Radios
- Network.AWS.DeviceFarm: data RecurringCharge
- Network.AWS.DeviceFarm: data RecurringChargeFrequency
- Network.AWS.DeviceFarm: data RemoteAccessSession
- Network.AWS.DeviceFarm: data Resolution
- Network.AWS.DeviceFarm: data Rule
- Network.AWS.DeviceFarm: data RuleOperator
- Network.AWS.DeviceFarm: data Run
- Network.AWS.DeviceFarm: data Sample
- Network.AWS.DeviceFarm: data SampleType
- Network.AWS.DeviceFarm: data ScheduleRunConfiguration
- Network.AWS.DeviceFarm: data ScheduleRunTest
- Network.AWS.DeviceFarm: data Suite
- Network.AWS.DeviceFarm: data Test
- Network.AWS.DeviceFarm: data TestType
- Network.AWS.DeviceFarm: data TrialMinutes
- Network.AWS.DeviceFarm: data UniqueProblem
- Network.AWS.DeviceFarm: data Upload
- Network.AWS.DeviceFarm: data UploadStatus
- Network.AWS.DeviceFarm: data UploadType
- Network.AWS.DeviceFarm: data VPCEConfiguration
- Network.AWS.DeviceFarm: devArn :: Lens' Device (Maybe Text)
- Network.AWS.DeviceFarm: devCarrier :: Lens' Device (Maybe Text)
- Network.AWS.DeviceFarm: devCpu :: Lens' Device (Maybe CPU)
- Network.AWS.DeviceFarm: devFleetName :: Lens' Device (Maybe Text)
- Network.AWS.DeviceFarm: devFleetType :: Lens' Device (Maybe Text)
- Network.AWS.DeviceFarm: devFormFactor :: Lens' Device (Maybe DeviceFormFactor)
- Network.AWS.DeviceFarm: devHeapSize :: Lens' Device (Maybe Integer)
- Network.AWS.DeviceFarm: devImage :: Lens' Device (Maybe Text)
- Network.AWS.DeviceFarm: devInstances :: Lens' Device [DeviceInstance]
- Network.AWS.DeviceFarm: devManufacturer :: Lens' Device (Maybe Text)
- Network.AWS.DeviceFarm: devMemory :: Lens' Device (Maybe Integer)
- Network.AWS.DeviceFarm: devModel :: Lens' Device (Maybe Text)
- Network.AWS.DeviceFarm: devModelId :: Lens' Device (Maybe Text)
- Network.AWS.DeviceFarm: devName :: Lens' Device (Maybe Text)
- Network.AWS.DeviceFarm: devOs :: Lens' Device (Maybe Text)
- Network.AWS.DeviceFarm: devPlatform :: Lens' Device (Maybe DevicePlatform)
- Network.AWS.DeviceFarm: devRadio :: Lens' Device (Maybe Text)
- Network.AWS.DeviceFarm: devRemoteAccessEnabled :: Lens' Device (Maybe Bool)
- Network.AWS.DeviceFarm: devRemoteDebugEnabled :: Lens' Device (Maybe Bool)
- Network.AWS.DeviceFarm: devResolution :: Lens' Device (Maybe Resolution)
- Network.AWS.DeviceFarm: device :: Device
- Network.AWS.DeviceFarm: deviceFarm :: Service
- Network.AWS.DeviceFarm: deviceInstance :: DeviceInstance
- Network.AWS.DeviceFarm: deviceMinutes :: DeviceMinutes
- Network.AWS.DeviceFarm: devicePool :: DevicePool
- Network.AWS.DeviceFarm: devicePoolCompatibilityResult :: DevicePoolCompatibilityResult
- Network.AWS.DeviceFarm: diArn :: Lens' DeviceInstance (Maybe Text)
- Network.AWS.DeviceFarm: diDeviceARN :: Lens' DeviceInstance (Maybe Text)
- Network.AWS.DeviceFarm: diInstanceProfile :: Lens' DeviceInstance (Maybe InstanceProfile)
- Network.AWS.DeviceFarm: diLabels :: Lens' DeviceInstance [Text]
- Network.AWS.DeviceFarm: diStatus :: Lens' DeviceInstance (Maybe InstanceStatus)
- Network.AWS.DeviceFarm: diUdid :: Lens' DeviceInstance (Maybe Text)
- Network.AWS.DeviceFarm: dmMetered :: Lens' DeviceMinutes (Maybe Double)
- Network.AWS.DeviceFarm: dmTotal :: Lens' DeviceMinutes (Maybe Double)
- Network.AWS.DeviceFarm: dmUnmetered :: Lens' DeviceMinutes (Maybe Double)
- Network.AWS.DeviceFarm: dpcrCompatible :: Lens' DevicePoolCompatibilityResult (Maybe Bool)
- Network.AWS.DeviceFarm: dpcrDevice :: Lens' DevicePoolCompatibilityResult (Maybe Device)
- Network.AWS.DeviceFarm: dpcrIncompatibilityMessages :: Lens' DevicePoolCompatibilityResult [IncompatibilityMessage]
- Network.AWS.DeviceFarm: ecAccountsCleanup :: Lens' ExecutionConfiguration (Maybe Bool)
- Network.AWS.DeviceFarm: ecAppPackagesCleanup :: Lens' ExecutionConfiguration (Maybe Bool)
- Network.AWS.DeviceFarm: ecJobTimeoutMinutes :: Lens' ExecutionConfiguration (Maybe Int)
- Network.AWS.DeviceFarm: ecSkipAppResign :: Lens' ExecutionConfiguration (Maybe Bool)
- Network.AWS.DeviceFarm: executionConfiguration :: ExecutionConfiguration
- Network.AWS.DeviceFarm: imMessage :: Lens' IncompatibilityMessage (Maybe Text)
- Network.AWS.DeviceFarm: imType :: Lens' IncompatibilityMessage (Maybe DeviceAttribute)
- Network.AWS.DeviceFarm: incompatibilityMessage :: IncompatibilityMessage
- Network.AWS.DeviceFarm: instanceProfile :: InstanceProfile
- Network.AWS.DeviceFarm: ipArn :: Lens' InstanceProfile (Maybe Text)
- Network.AWS.DeviceFarm: ipDescription :: Lens' InstanceProfile (Maybe Text)
- Network.AWS.DeviceFarm: ipExcludeAppPackagesFromCleanup :: Lens' InstanceProfile [Text]
- Network.AWS.DeviceFarm: ipName :: Lens' InstanceProfile (Maybe Text)
- Network.AWS.DeviceFarm: ipPackageCleanup :: Lens' InstanceProfile (Maybe Bool)
- Network.AWS.DeviceFarm: ipRebootAfterUse :: Lens' InstanceProfile (Maybe Bool)
- Network.AWS.DeviceFarm: job :: Job
- Network.AWS.DeviceFarm: jobArn :: Lens' Job (Maybe Text)
- Network.AWS.DeviceFarm: jobCounters :: Lens' Job (Maybe Counters)
- Network.AWS.DeviceFarm: jobCreated :: Lens' Job (Maybe UTCTime)
- Network.AWS.DeviceFarm: jobDevice :: Lens' Job (Maybe Device)
- Network.AWS.DeviceFarm: jobDeviceMinutes :: Lens' Job (Maybe DeviceMinutes)
- Network.AWS.DeviceFarm: jobInstanceARN :: Lens' Job (Maybe Text)
- Network.AWS.DeviceFarm: jobMessage :: Lens' Job (Maybe Text)
- Network.AWS.DeviceFarm: jobName :: Lens' Job (Maybe Text)
- Network.AWS.DeviceFarm: jobResult :: Lens' Job (Maybe ExecutionResult)
- Network.AWS.DeviceFarm: jobStarted :: Lens' Job (Maybe UTCTime)
- Network.AWS.DeviceFarm: jobStatus :: Lens' Job (Maybe ExecutionStatus)
- Network.AWS.DeviceFarm: jobStopped :: Lens' Job (Maybe UTCTime)
- Network.AWS.DeviceFarm: jobType :: Lens' Job (Maybe TestType)
- Network.AWS.DeviceFarm: lLatitude :: Lens' Location Double
- Network.AWS.DeviceFarm: lLongitude :: Lens' Location Double
- Network.AWS.DeviceFarm: location :: Double -> Double -> Location
- Network.AWS.DeviceFarm: maAmount :: Lens' MonetaryAmount (Maybe Double)
- Network.AWS.DeviceFarm: maCurrencyCode :: Lens' MonetaryAmount (Maybe CurrencyCode)
- Network.AWS.DeviceFarm: monetaryAmount :: MonetaryAmount
- Network.AWS.DeviceFarm: networkProfile :: NetworkProfile
- Network.AWS.DeviceFarm: npArn :: Lens' NetworkProfile (Maybe Text)
- Network.AWS.DeviceFarm: npDescription :: Lens' NetworkProfile (Maybe Text)
- Network.AWS.DeviceFarm: npDownlinkBandwidthBits :: Lens' NetworkProfile (Maybe Integer)
- Network.AWS.DeviceFarm: npDownlinkDelayMs :: Lens' NetworkProfile (Maybe Integer)
- Network.AWS.DeviceFarm: npDownlinkJitterMs :: Lens' NetworkProfile (Maybe Integer)
- Network.AWS.DeviceFarm: npDownlinkLossPercent :: Lens' NetworkProfile (Maybe Natural)
- Network.AWS.DeviceFarm: npName :: Lens' NetworkProfile (Maybe Text)
- Network.AWS.DeviceFarm: npType :: Lens' NetworkProfile (Maybe NetworkProfileType)
- Network.AWS.DeviceFarm: npUplinkBandwidthBits :: Lens' NetworkProfile (Maybe Integer)
- Network.AWS.DeviceFarm: npUplinkDelayMs :: Lens' NetworkProfile (Maybe Integer)
- Network.AWS.DeviceFarm: npUplinkJitterMs :: Lens' NetworkProfile (Maybe Integer)
- Network.AWS.DeviceFarm: npUplinkLossPercent :: Lens' NetworkProfile (Maybe Natural)
- Network.AWS.DeviceFarm: oDescription :: Lens' Offering (Maybe Text)
- Network.AWS.DeviceFarm: oId :: Lens' Offering (Maybe Text)
- Network.AWS.DeviceFarm: oPlatform :: Lens' Offering (Maybe DevicePlatform)
- Network.AWS.DeviceFarm: oRecurringCharges :: Lens' Offering [RecurringCharge]
- Network.AWS.DeviceFarm: oType :: Lens' Offering (Maybe OfferingType)
- Network.AWS.DeviceFarm: offering :: Offering
- Network.AWS.DeviceFarm: offeringPromotion :: OfferingPromotion
- Network.AWS.DeviceFarm: offeringStatus :: OfferingStatus
- Network.AWS.DeviceFarm: offeringTransaction :: OfferingTransaction
- Network.AWS.DeviceFarm: opDescription :: Lens' OfferingPromotion (Maybe Text)
- Network.AWS.DeviceFarm: opId :: Lens' OfferingPromotion (Maybe Text)
- Network.AWS.DeviceFarm: osEffectiveOn :: Lens' OfferingStatus (Maybe UTCTime)
- Network.AWS.DeviceFarm: osOffering :: Lens' OfferingStatus (Maybe Offering)
- Network.AWS.DeviceFarm: osQuantity :: Lens' OfferingStatus (Maybe Int)
- Network.AWS.DeviceFarm: osType :: Lens' OfferingStatus (Maybe OfferingTransactionType)
- Network.AWS.DeviceFarm: otCost :: Lens' OfferingTransaction (Maybe MonetaryAmount)
- Network.AWS.DeviceFarm: otCreatedOn :: Lens' OfferingTransaction (Maybe UTCTime)
- Network.AWS.DeviceFarm: otOfferingPromotionId :: Lens' OfferingTransaction (Maybe Text)
- Network.AWS.DeviceFarm: otOfferingStatus :: Lens' OfferingTransaction (Maybe OfferingStatus)
- Network.AWS.DeviceFarm: otTransactionId :: Lens' OfferingTransaction (Maybe Text)
- Network.AWS.DeviceFarm: pArn :: Lens' Project (Maybe Text)
- Network.AWS.DeviceFarm: pCreated :: Lens' Project (Maybe UTCTime)
- Network.AWS.DeviceFarm: pDefaultJobTimeoutMinutes :: Lens' Project (Maybe Int)
- Network.AWS.DeviceFarm: pDevice :: Lens' Problem (Maybe Device)
- Network.AWS.DeviceFarm: pJob :: Lens' Problem (Maybe ProblemDetail)
- Network.AWS.DeviceFarm: pMessage :: Lens' Problem (Maybe Text)
- Network.AWS.DeviceFarm: pName :: Lens' Project (Maybe Text)
- Network.AWS.DeviceFarm: pResult :: Lens' Problem (Maybe ExecutionResult)
- Network.AWS.DeviceFarm: pRun :: Lens' Problem (Maybe ProblemDetail)
- Network.AWS.DeviceFarm: pSuite :: Lens' Problem (Maybe ProblemDetail)
- Network.AWS.DeviceFarm: pTest :: Lens' Problem (Maybe ProblemDetail)
- Network.AWS.DeviceFarm: pdArn :: Lens' ProblemDetail (Maybe Text)
- Network.AWS.DeviceFarm: pdName :: Lens' ProblemDetail (Maybe Text)
- Network.AWS.DeviceFarm: problem :: Problem
- Network.AWS.DeviceFarm: problemDetail :: ProblemDetail
- Network.AWS.DeviceFarm: project :: Project
- Network.AWS.DeviceFarm: rAttribute :: Lens' Rule (Maybe DeviceAttribute)
- Network.AWS.DeviceFarm: rBluetooth :: Lens' Radios (Maybe Bool)
- Network.AWS.DeviceFarm: rGps :: Lens' Radios (Maybe Bool)
- Network.AWS.DeviceFarm: rHeight :: Lens' Resolution (Maybe Int)
- Network.AWS.DeviceFarm: rNfc :: Lens' Radios (Maybe Bool)
- Network.AWS.DeviceFarm: rOperator :: Lens' Rule (Maybe RuleOperator)
- Network.AWS.DeviceFarm: rValue :: Lens' Rule (Maybe Text)
- Network.AWS.DeviceFarm: rWidth :: Lens' Resolution (Maybe Int)
- Network.AWS.DeviceFarm: rWifi :: Lens' Radios (Maybe Bool)
- Network.AWS.DeviceFarm: radios :: Radios
- Network.AWS.DeviceFarm: rasArn :: Lens' RemoteAccessSession (Maybe Text)
- Network.AWS.DeviceFarm: rasBillingMethod :: Lens' RemoteAccessSession (Maybe BillingMethod)
- Network.AWS.DeviceFarm: rasClientId :: Lens' RemoteAccessSession (Maybe Text)
- Network.AWS.DeviceFarm: rasCreated :: Lens' RemoteAccessSession (Maybe UTCTime)
- Network.AWS.DeviceFarm: rasDevice :: Lens' RemoteAccessSession (Maybe Device)
- Network.AWS.DeviceFarm: rasDeviceMinutes :: Lens' RemoteAccessSession (Maybe DeviceMinutes)
- Network.AWS.DeviceFarm: rasDeviceUdid :: Lens' RemoteAccessSession (Maybe Text)
- Network.AWS.DeviceFarm: rasEndpoint :: Lens' RemoteAccessSession (Maybe Text)
- Network.AWS.DeviceFarm: rasHostAddress :: Lens' RemoteAccessSession (Maybe Text)
- Network.AWS.DeviceFarm: rasInstanceARN :: Lens' RemoteAccessSession (Maybe Text)
- Network.AWS.DeviceFarm: rasInteractionMode :: Lens' RemoteAccessSession (Maybe InteractionMode)
- Network.AWS.DeviceFarm: rasMessage :: Lens' RemoteAccessSession (Maybe Text)
- Network.AWS.DeviceFarm: rasName :: Lens' RemoteAccessSession (Maybe Text)
- Network.AWS.DeviceFarm: rasRemoteDebugEnabled :: Lens' RemoteAccessSession (Maybe Bool)
- Network.AWS.DeviceFarm: rasRemoteRecordAppARN :: Lens' RemoteAccessSession (Maybe Text)
- Network.AWS.DeviceFarm: rasRemoteRecordEnabled :: Lens' RemoteAccessSession (Maybe Bool)
- Network.AWS.DeviceFarm: rasResult :: Lens' RemoteAccessSession (Maybe ExecutionResult)
- Network.AWS.DeviceFarm: rasSkipAppResign :: Lens' RemoteAccessSession (Maybe Bool)
- Network.AWS.DeviceFarm: rasStarted :: Lens' RemoteAccessSession (Maybe UTCTime)
- Network.AWS.DeviceFarm: rasStatus :: Lens' RemoteAccessSession (Maybe ExecutionStatus)
- Network.AWS.DeviceFarm: rasStopped :: Lens' RemoteAccessSession (Maybe UTCTime)
- Network.AWS.DeviceFarm: rcCost :: Lens' RecurringCharge (Maybe MonetaryAmount)
- Network.AWS.DeviceFarm: rcFrequency :: Lens' RecurringCharge (Maybe RecurringChargeFrequency)
- Network.AWS.DeviceFarm: recurringCharge :: RecurringCharge
- Network.AWS.DeviceFarm: remoteAccessSession :: RemoteAccessSession
- Network.AWS.DeviceFarm: resolution :: Resolution
- Network.AWS.DeviceFarm: rule :: Rule
- Network.AWS.DeviceFarm: run :: Run
- Network.AWS.DeviceFarm: runAppUpload :: Lens' Run (Maybe Text)
- Network.AWS.DeviceFarm: runArn :: Lens' Run (Maybe Text)
- Network.AWS.DeviceFarm: runBillingMethod :: Lens' Run (Maybe BillingMethod)
- Network.AWS.DeviceFarm: runCompletedJobs :: Lens' Run (Maybe Int)
- Network.AWS.DeviceFarm: runCounters :: Lens' Run (Maybe Counters)
- Network.AWS.DeviceFarm: runCreated :: Lens' Run (Maybe UTCTime)
- Network.AWS.DeviceFarm: runCustomerArtifactPaths :: Lens' Run (Maybe CustomerArtifactPaths)
- Network.AWS.DeviceFarm: runDeviceMinutes :: Lens' Run (Maybe DeviceMinutes)
- Network.AWS.DeviceFarm: runDevicePoolARN :: Lens' Run (Maybe Text)
- Network.AWS.DeviceFarm: runEventCount :: Lens' Run (Maybe Int)
- Network.AWS.DeviceFarm: runJobTimeoutMinutes :: Lens' Run (Maybe Int)
- Network.AWS.DeviceFarm: runLocale :: Lens' Run (Maybe Text)
- Network.AWS.DeviceFarm: runLocation :: Lens' Run (Maybe Location)
- Network.AWS.DeviceFarm: runMessage :: Lens' Run (Maybe Text)
- Network.AWS.DeviceFarm: runName :: Lens' Run (Maybe Text)
- Network.AWS.DeviceFarm: runNetworkProfile :: Lens' Run (Maybe NetworkProfile)
- Network.AWS.DeviceFarm: runParsingResultURL :: Lens' Run (Maybe Text)
- Network.AWS.DeviceFarm: runPlatform :: Lens' Run (Maybe DevicePlatform)
- Network.AWS.DeviceFarm: runRadios :: Lens' Run (Maybe Radios)
- Network.AWS.DeviceFarm: runResult :: Lens' Run (Maybe ExecutionResult)
- Network.AWS.DeviceFarm: runResultCode :: Lens' Run (Maybe ExecutionResultCode)
- Network.AWS.DeviceFarm: runSeed :: Lens' Run (Maybe Int)
- Network.AWS.DeviceFarm: runSkipAppResign :: Lens' Run (Maybe Bool)
- Network.AWS.DeviceFarm: runStarted :: Lens' Run (Maybe UTCTime)
- Network.AWS.DeviceFarm: runStatus :: Lens' Run (Maybe ExecutionStatus)
- Network.AWS.DeviceFarm: runStopped :: Lens' Run (Maybe UTCTime)
- Network.AWS.DeviceFarm: runTotalJobs :: Lens' Run (Maybe Int)
- Network.AWS.DeviceFarm: runType :: Lens' Run (Maybe TestType)
- Network.AWS.DeviceFarm: runWebURL :: Lens' Run (Maybe Text)
- Network.AWS.DeviceFarm: sArn :: Lens' Suite (Maybe Text)
- Network.AWS.DeviceFarm: sCounters :: Lens' Suite (Maybe Counters)
- Network.AWS.DeviceFarm: sCreated :: Lens' Suite (Maybe UTCTime)
- Network.AWS.DeviceFarm: sDeviceMinutes :: Lens' Suite (Maybe DeviceMinutes)
- Network.AWS.DeviceFarm: sMessage :: Lens' Suite (Maybe Text)
- Network.AWS.DeviceFarm: sName :: Lens' Suite (Maybe Text)
- Network.AWS.DeviceFarm: sResult :: Lens' Suite (Maybe ExecutionResult)
- Network.AWS.DeviceFarm: sStarted :: Lens' Suite (Maybe UTCTime)
- Network.AWS.DeviceFarm: sStatus :: Lens' Suite (Maybe ExecutionStatus)
- Network.AWS.DeviceFarm: sStopped :: Lens' Suite (Maybe UTCTime)
- Network.AWS.DeviceFarm: sType :: Lens' Suite (Maybe TestType)
- Network.AWS.DeviceFarm: samArn :: Lens' Sample (Maybe Text)
- Network.AWS.DeviceFarm: samType :: Lens' Sample (Maybe SampleType)
- Network.AWS.DeviceFarm: samUrl :: Lens' Sample (Maybe Text)
- Network.AWS.DeviceFarm: sample :: Sample
- Network.AWS.DeviceFarm: scheduleRunConfiguration :: ScheduleRunConfiguration
- Network.AWS.DeviceFarm: scheduleRunTest :: TestType -> ScheduleRunTest
- Network.AWS.DeviceFarm: srcAuxiliaryApps :: Lens' ScheduleRunConfiguration [Text]
- Network.AWS.DeviceFarm: srcBillingMethod :: Lens' ScheduleRunConfiguration (Maybe BillingMethod)
- Network.AWS.DeviceFarm: srcCustomerArtifactPaths :: Lens' ScheduleRunConfiguration (Maybe CustomerArtifactPaths)
- Network.AWS.DeviceFarm: srcExtraDataPackageARN :: Lens' ScheduleRunConfiguration (Maybe Text)
- Network.AWS.DeviceFarm: srcLocale :: Lens' ScheduleRunConfiguration (Maybe Text)
- Network.AWS.DeviceFarm: srcLocation :: Lens' ScheduleRunConfiguration (Maybe Location)
- Network.AWS.DeviceFarm: srcNetworkProfileARN :: Lens' ScheduleRunConfiguration (Maybe Text)
- Network.AWS.DeviceFarm: srcRadios :: Lens' ScheduleRunConfiguration (Maybe Radios)
- Network.AWS.DeviceFarm: srcVpceConfigurationARNs :: Lens' ScheduleRunConfiguration [Text]
- Network.AWS.DeviceFarm: srtFilter :: Lens' ScheduleRunTest (Maybe Text)
- Network.AWS.DeviceFarm: srtParameters :: Lens' ScheduleRunTest (HashMap Text Text)
- Network.AWS.DeviceFarm: srtTestPackageARN :: Lens' ScheduleRunTest (Maybe Text)
- Network.AWS.DeviceFarm: srtType :: Lens' ScheduleRunTest TestType
- Network.AWS.DeviceFarm: suite :: Suite
- Network.AWS.DeviceFarm: tArn :: Lens' Test (Maybe Text)
- Network.AWS.DeviceFarm: tCounters :: Lens' Test (Maybe Counters)
- Network.AWS.DeviceFarm: tCreated :: Lens' Test (Maybe UTCTime)
- Network.AWS.DeviceFarm: tDeviceMinutes :: Lens' Test (Maybe DeviceMinutes)
- Network.AWS.DeviceFarm: tMessage :: Lens' Test (Maybe Text)
- Network.AWS.DeviceFarm: tName :: Lens' Test (Maybe Text)
- Network.AWS.DeviceFarm: tResult :: Lens' Test (Maybe ExecutionResult)
- Network.AWS.DeviceFarm: tStarted :: Lens' Test (Maybe UTCTime)
- Network.AWS.DeviceFarm: tStatus :: Lens' Test (Maybe ExecutionStatus)
- Network.AWS.DeviceFarm: tStopped :: Lens' Test (Maybe UTCTime)
- Network.AWS.DeviceFarm: tType :: Lens' Test (Maybe TestType)
- Network.AWS.DeviceFarm: test :: Test
- Network.AWS.DeviceFarm: tmRemaining :: Lens' TrialMinutes (Maybe Double)
- Network.AWS.DeviceFarm: tmTotal :: Lens' TrialMinutes (Maybe Double)
- Network.AWS.DeviceFarm: trialMinutes :: TrialMinutes
- Network.AWS.DeviceFarm: uArn :: Lens' Upload (Maybe Text)
- Network.AWS.DeviceFarm: uContentType :: Lens' Upload (Maybe Text)
- Network.AWS.DeviceFarm: uCreated :: Lens' Upload (Maybe UTCTime)
- Network.AWS.DeviceFarm: uMessage :: Lens' Upload (Maybe Text)
- Network.AWS.DeviceFarm: uMetadata :: Lens' Upload (Maybe Text)
- Network.AWS.DeviceFarm: uName :: Lens' Upload (Maybe Text)
- Network.AWS.DeviceFarm: uStatus :: Lens' Upload (Maybe UploadStatus)
- Network.AWS.DeviceFarm: uType :: Lens' Upload (Maybe UploadType)
- Network.AWS.DeviceFarm: uUrl :: Lens' Upload (Maybe Text)
- Network.AWS.DeviceFarm: uniqueProblem :: UniqueProblem
- Network.AWS.DeviceFarm: upMessage :: Lens' UniqueProblem (Maybe Text)
- Network.AWS.DeviceFarm: upProblems :: Lens' UniqueProblem [Problem]
- Network.AWS.DeviceFarm: upload :: Upload
- Network.AWS.DeviceFarm: vecArn :: Lens' VPCEConfiguration (Maybe Text)
- Network.AWS.DeviceFarm: vecServiceDNSName :: Lens' VPCEConfiguration (Maybe Text)
- Network.AWS.DeviceFarm: vecVpceConfigurationDescription :: Lens' VPCEConfiguration (Maybe Text)
- Network.AWS.DeviceFarm: vecVpceConfigurationName :: Lens' VPCEConfiguration (Maybe Text)
- Network.AWS.DeviceFarm: vecVpceServiceName :: Lens' VPCEConfiguration (Maybe Text)
- Network.AWS.DeviceFarm: vpcEConfiguration :: VPCEConfiguration
- Network.AWS.DeviceFarm.CreateDevicePool: cdpDescription :: Lens' CreateDevicePool (Maybe Text)
- Network.AWS.DeviceFarm.CreateDevicePool: cdpName :: Lens' CreateDevicePool Text
- Network.AWS.DeviceFarm.CreateDevicePool: cdpProjectARN :: Lens' CreateDevicePool Text
- Network.AWS.DeviceFarm.CreateDevicePool: cdpRules :: Lens' CreateDevicePool [Rule]
- Network.AWS.DeviceFarm.CreateDevicePool: cdprsDevicePool :: Lens' CreateDevicePoolResponse (Maybe DevicePool)
- Network.AWS.DeviceFarm.CreateDevicePool: cdprsResponseStatus :: Lens' CreateDevicePoolResponse Int
- Network.AWS.DeviceFarm.CreateDevicePool: createDevicePool :: Text -> Text -> CreateDevicePool
- Network.AWS.DeviceFarm.CreateDevicePool: createDevicePoolResponse :: Int -> CreateDevicePoolResponse
- Network.AWS.DeviceFarm.CreateDevicePool: data CreateDevicePool
- Network.AWS.DeviceFarm.CreateDevicePool: data CreateDevicePoolResponse
- Network.AWS.DeviceFarm.CreateDevicePool: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.CreateDevicePool.CreateDevicePool
- Network.AWS.DeviceFarm.CreateDevicePool: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.CreateDevicePool.CreateDevicePoolResponse
- Network.AWS.DeviceFarm.CreateDevicePool: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.CreateDevicePool.CreateDevicePool
- Network.AWS.DeviceFarm.CreateDevicePool: instance Data.Data.Data Network.AWS.DeviceFarm.CreateDevicePool.CreateDevicePool
- Network.AWS.DeviceFarm.CreateDevicePool: instance Data.Data.Data Network.AWS.DeviceFarm.CreateDevicePool.CreateDevicePoolResponse
- Network.AWS.DeviceFarm.CreateDevicePool: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.CreateDevicePool.CreateDevicePool
- Network.AWS.DeviceFarm.CreateDevicePool: instance GHC.Classes.Eq Network.AWS.DeviceFarm.CreateDevicePool.CreateDevicePool
- Network.AWS.DeviceFarm.CreateDevicePool: instance GHC.Classes.Eq Network.AWS.DeviceFarm.CreateDevicePool.CreateDevicePoolResponse
- Network.AWS.DeviceFarm.CreateDevicePool: instance GHC.Generics.Generic Network.AWS.DeviceFarm.CreateDevicePool.CreateDevicePool
- Network.AWS.DeviceFarm.CreateDevicePool: instance GHC.Generics.Generic Network.AWS.DeviceFarm.CreateDevicePool.CreateDevicePoolResponse
- Network.AWS.DeviceFarm.CreateDevicePool: instance GHC.Read.Read Network.AWS.DeviceFarm.CreateDevicePool.CreateDevicePool
- Network.AWS.DeviceFarm.CreateDevicePool: instance GHC.Read.Read Network.AWS.DeviceFarm.CreateDevicePool.CreateDevicePoolResponse
- Network.AWS.DeviceFarm.CreateDevicePool: instance GHC.Show.Show Network.AWS.DeviceFarm.CreateDevicePool.CreateDevicePool
- Network.AWS.DeviceFarm.CreateDevicePool: instance GHC.Show.Show Network.AWS.DeviceFarm.CreateDevicePool.CreateDevicePoolResponse
- Network.AWS.DeviceFarm.CreateDevicePool: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.CreateDevicePool.CreateDevicePool
- Network.AWS.DeviceFarm.CreateDevicePool: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.CreateDevicePool.CreateDevicePool
- Network.AWS.DeviceFarm.CreateDevicePool: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.CreateDevicePool.CreateDevicePool
- Network.AWS.DeviceFarm.CreateDevicePool: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.CreateDevicePool.CreateDevicePool
- Network.AWS.DeviceFarm.CreateInstanceProfile: cipDescription :: Lens' CreateInstanceProfile (Maybe Text)
- Network.AWS.DeviceFarm.CreateInstanceProfile: cipExcludeAppPackagesFromCleanup :: Lens' CreateInstanceProfile [Text]
- Network.AWS.DeviceFarm.CreateInstanceProfile: cipName :: Lens' CreateInstanceProfile Text
- Network.AWS.DeviceFarm.CreateInstanceProfile: cipPackageCleanup :: Lens' CreateInstanceProfile (Maybe Bool)
- Network.AWS.DeviceFarm.CreateInstanceProfile: cipRebootAfterUse :: Lens' CreateInstanceProfile (Maybe Bool)
- Network.AWS.DeviceFarm.CreateInstanceProfile: ciprsInstanceProfile :: Lens' CreateInstanceProfileResponse (Maybe InstanceProfile)
- Network.AWS.DeviceFarm.CreateInstanceProfile: ciprsResponseStatus :: Lens' CreateInstanceProfileResponse Int
- Network.AWS.DeviceFarm.CreateInstanceProfile: createInstanceProfile :: Text -> CreateInstanceProfile
- Network.AWS.DeviceFarm.CreateInstanceProfile: createInstanceProfileResponse :: Int -> CreateInstanceProfileResponse
- Network.AWS.DeviceFarm.CreateInstanceProfile: data CreateInstanceProfile
- Network.AWS.DeviceFarm.CreateInstanceProfile: data CreateInstanceProfileResponse
- Network.AWS.DeviceFarm.CreateInstanceProfile: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.CreateInstanceProfile.CreateInstanceProfile
- Network.AWS.DeviceFarm.CreateInstanceProfile: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.CreateInstanceProfile.CreateInstanceProfileResponse
- Network.AWS.DeviceFarm.CreateInstanceProfile: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.CreateInstanceProfile.CreateInstanceProfile
- Network.AWS.DeviceFarm.CreateInstanceProfile: instance Data.Data.Data Network.AWS.DeviceFarm.CreateInstanceProfile.CreateInstanceProfile
- Network.AWS.DeviceFarm.CreateInstanceProfile: instance Data.Data.Data Network.AWS.DeviceFarm.CreateInstanceProfile.CreateInstanceProfileResponse
- Network.AWS.DeviceFarm.CreateInstanceProfile: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.CreateInstanceProfile.CreateInstanceProfile
- Network.AWS.DeviceFarm.CreateInstanceProfile: instance GHC.Classes.Eq Network.AWS.DeviceFarm.CreateInstanceProfile.CreateInstanceProfile
- Network.AWS.DeviceFarm.CreateInstanceProfile: instance GHC.Classes.Eq Network.AWS.DeviceFarm.CreateInstanceProfile.CreateInstanceProfileResponse
- Network.AWS.DeviceFarm.CreateInstanceProfile: instance GHC.Generics.Generic Network.AWS.DeviceFarm.CreateInstanceProfile.CreateInstanceProfile
- Network.AWS.DeviceFarm.CreateInstanceProfile: instance GHC.Generics.Generic Network.AWS.DeviceFarm.CreateInstanceProfile.CreateInstanceProfileResponse
- Network.AWS.DeviceFarm.CreateInstanceProfile: instance GHC.Read.Read Network.AWS.DeviceFarm.CreateInstanceProfile.CreateInstanceProfile
- Network.AWS.DeviceFarm.CreateInstanceProfile: instance GHC.Read.Read Network.AWS.DeviceFarm.CreateInstanceProfile.CreateInstanceProfileResponse
- Network.AWS.DeviceFarm.CreateInstanceProfile: instance GHC.Show.Show Network.AWS.DeviceFarm.CreateInstanceProfile.CreateInstanceProfile
- Network.AWS.DeviceFarm.CreateInstanceProfile: instance GHC.Show.Show Network.AWS.DeviceFarm.CreateInstanceProfile.CreateInstanceProfileResponse
- Network.AWS.DeviceFarm.CreateInstanceProfile: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.CreateInstanceProfile.CreateInstanceProfile
- Network.AWS.DeviceFarm.CreateInstanceProfile: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.CreateInstanceProfile.CreateInstanceProfile
- Network.AWS.DeviceFarm.CreateInstanceProfile: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.CreateInstanceProfile.CreateInstanceProfile
- Network.AWS.DeviceFarm.CreateInstanceProfile: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.CreateInstanceProfile.CreateInstanceProfile
- Network.AWS.DeviceFarm.CreateNetworkProfile: cnpDescription :: Lens' CreateNetworkProfile (Maybe Text)
- Network.AWS.DeviceFarm.CreateNetworkProfile: cnpDownlinkBandwidthBits :: Lens' CreateNetworkProfile (Maybe Integer)
- Network.AWS.DeviceFarm.CreateNetworkProfile: cnpDownlinkDelayMs :: Lens' CreateNetworkProfile (Maybe Integer)
- Network.AWS.DeviceFarm.CreateNetworkProfile: cnpDownlinkJitterMs :: Lens' CreateNetworkProfile (Maybe Integer)
- Network.AWS.DeviceFarm.CreateNetworkProfile: cnpDownlinkLossPercent :: Lens' CreateNetworkProfile (Maybe Natural)
- Network.AWS.DeviceFarm.CreateNetworkProfile: cnpName :: Lens' CreateNetworkProfile Text
- Network.AWS.DeviceFarm.CreateNetworkProfile: cnpProjectARN :: Lens' CreateNetworkProfile Text
- Network.AWS.DeviceFarm.CreateNetworkProfile: cnpType :: Lens' CreateNetworkProfile (Maybe NetworkProfileType)
- Network.AWS.DeviceFarm.CreateNetworkProfile: cnpUplinkBandwidthBits :: Lens' CreateNetworkProfile (Maybe Integer)
- Network.AWS.DeviceFarm.CreateNetworkProfile: cnpUplinkDelayMs :: Lens' CreateNetworkProfile (Maybe Integer)
- Network.AWS.DeviceFarm.CreateNetworkProfile: cnpUplinkJitterMs :: Lens' CreateNetworkProfile (Maybe Integer)
- Network.AWS.DeviceFarm.CreateNetworkProfile: cnpUplinkLossPercent :: Lens' CreateNetworkProfile (Maybe Natural)
- Network.AWS.DeviceFarm.CreateNetworkProfile: cnprsNetworkProfile :: Lens' CreateNetworkProfileResponse (Maybe NetworkProfile)
- Network.AWS.DeviceFarm.CreateNetworkProfile: cnprsResponseStatus :: Lens' CreateNetworkProfileResponse Int
- Network.AWS.DeviceFarm.CreateNetworkProfile: createNetworkProfile :: Text -> Text -> CreateNetworkProfile
- Network.AWS.DeviceFarm.CreateNetworkProfile: createNetworkProfileResponse :: Int -> CreateNetworkProfileResponse
- Network.AWS.DeviceFarm.CreateNetworkProfile: data CreateNetworkProfile
- Network.AWS.DeviceFarm.CreateNetworkProfile: data CreateNetworkProfileResponse
- Network.AWS.DeviceFarm.CreateNetworkProfile: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.CreateNetworkProfile.CreateNetworkProfile
- Network.AWS.DeviceFarm.CreateNetworkProfile: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.CreateNetworkProfile.CreateNetworkProfileResponse
- Network.AWS.DeviceFarm.CreateNetworkProfile: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.CreateNetworkProfile.CreateNetworkProfile
- Network.AWS.DeviceFarm.CreateNetworkProfile: instance Data.Data.Data Network.AWS.DeviceFarm.CreateNetworkProfile.CreateNetworkProfile
- Network.AWS.DeviceFarm.CreateNetworkProfile: instance Data.Data.Data Network.AWS.DeviceFarm.CreateNetworkProfile.CreateNetworkProfileResponse
- Network.AWS.DeviceFarm.CreateNetworkProfile: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.CreateNetworkProfile.CreateNetworkProfile
- Network.AWS.DeviceFarm.CreateNetworkProfile: instance GHC.Classes.Eq Network.AWS.DeviceFarm.CreateNetworkProfile.CreateNetworkProfile
- Network.AWS.DeviceFarm.CreateNetworkProfile: instance GHC.Classes.Eq Network.AWS.DeviceFarm.CreateNetworkProfile.CreateNetworkProfileResponse
- Network.AWS.DeviceFarm.CreateNetworkProfile: instance GHC.Generics.Generic Network.AWS.DeviceFarm.CreateNetworkProfile.CreateNetworkProfile
- Network.AWS.DeviceFarm.CreateNetworkProfile: instance GHC.Generics.Generic Network.AWS.DeviceFarm.CreateNetworkProfile.CreateNetworkProfileResponse
- Network.AWS.DeviceFarm.CreateNetworkProfile: instance GHC.Read.Read Network.AWS.DeviceFarm.CreateNetworkProfile.CreateNetworkProfile
- Network.AWS.DeviceFarm.CreateNetworkProfile: instance GHC.Read.Read Network.AWS.DeviceFarm.CreateNetworkProfile.CreateNetworkProfileResponse
- Network.AWS.DeviceFarm.CreateNetworkProfile: instance GHC.Show.Show Network.AWS.DeviceFarm.CreateNetworkProfile.CreateNetworkProfile
- Network.AWS.DeviceFarm.CreateNetworkProfile: instance GHC.Show.Show Network.AWS.DeviceFarm.CreateNetworkProfile.CreateNetworkProfileResponse
- Network.AWS.DeviceFarm.CreateNetworkProfile: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.CreateNetworkProfile.CreateNetworkProfile
- Network.AWS.DeviceFarm.CreateNetworkProfile: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.CreateNetworkProfile.CreateNetworkProfile
- Network.AWS.DeviceFarm.CreateNetworkProfile: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.CreateNetworkProfile.CreateNetworkProfile
- Network.AWS.DeviceFarm.CreateNetworkProfile: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.CreateNetworkProfile.CreateNetworkProfile
- Network.AWS.DeviceFarm.CreateProject: cpDefaultJobTimeoutMinutes :: Lens' CreateProject (Maybe Int)
- Network.AWS.DeviceFarm.CreateProject: cpName :: Lens' CreateProject Text
- Network.AWS.DeviceFarm.CreateProject: cprsProject :: Lens' CreateProjectResponse (Maybe Project)
- Network.AWS.DeviceFarm.CreateProject: cprsResponseStatus :: Lens' CreateProjectResponse Int
- Network.AWS.DeviceFarm.CreateProject: createProject :: Text -> CreateProject
- Network.AWS.DeviceFarm.CreateProject: createProjectResponse :: Int -> CreateProjectResponse
- Network.AWS.DeviceFarm.CreateProject: data CreateProject
- Network.AWS.DeviceFarm.CreateProject: data CreateProjectResponse
- Network.AWS.DeviceFarm.CreateProject: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.CreateProject.CreateProject
- Network.AWS.DeviceFarm.CreateProject: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.CreateProject.CreateProjectResponse
- Network.AWS.DeviceFarm.CreateProject: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.CreateProject.CreateProject
- Network.AWS.DeviceFarm.CreateProject: instance Data.Data.Data Network.AWS.DeviceFarm.CreateProject.CreateProject
- Network.AWS.DeviceFarm.CreateProject: instance Data.Data.Data Network.AWS.DeviceFarm.CreateProject.CreateProjectResponse
- Network.AWS.DeviceFarm.CreateProject: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.CreateProject.CreateProject
- Network.AWS.DeviceFarm.CreateProject: instance GHC.Classes.Eq Network.AWS.DeviceFarm.CreateProject.CreateProject
- Network.AWS.DeviceFarm.CreateProject: instance GHC.Classes.Eq Network.AWS.DeviceFarm.CreateProject.CreateProjectResponse
- Network.AWS.DeviceFarm.CreateProject: instance GHC.Generics.Generic Network.AWS.DeviceFarm.CreateProject.CreateProject
- Network.AWS.DeviceFarm.CreateProject: instance GHC.Generics.Generic Network.AWS.DeviceFarm.CreateProject.CreateProjectResponse
- Network.AWS.DeviceFarm.CreateProject: instance GHC.Read.Read Network.AWS.DeviceFarm.CreateProject.CreateProject
- Network.AWS.DeviceFarm.CreateProject: instance GHC.Read.Read Network.AWS.DeviceFarm.CreateProject.CreateProjectResponse
- Network.AWS.DeviceFarm.CreateProject: instance GHC.Show.Show Network.AWS.DeviceFarm.CreateProject.CreateProject
- Network.AWS.DeviceFarm.CreateProject: instance GHC.Show.Show Network.AWS.DeviceFarm.CreateProject.CreateProjectResponse
- Network.AWS.DeviceFarm.CreateProject: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.CreateProject.CreateProject
- Network.AWS.DeviceFarm.CreateProject: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.CreateProject.CreateProject
- Network.AWS.DeviceFarm.CreateProject: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.CreateProject.CreateProject
- Network.AWS.DeviceFarm.CreateProject: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.CreateProject.CreateProject
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: crasClientId :: Lens' CreateRemoteAccessSession (Maybe Text)
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: crasConfiguration :: Lens' CreateRemoteAccessSession (Maybe CreateRemoteAccessSessionConfiguration)
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: crasDeviceARN :: Lens' CreateRemoteAccessSession Text
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: crasInstanceARN :: Lens' CreateRemoteAccessSession (Maybe Text)
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: crasInteractionMode :: Lens' CreateRemoteAccessSession (Maybe InteractionMode)
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: crasName :: Lens' CreateRemoteAccessSession (Maybe Text)
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: crasProjectARN :: Lens' CreateRemoteAccessSession Text
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: crasRemoteDebugEnabled :: Lens' CreateRemoteAccessSession (Maybe Bool)
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: crasRemoteRecordAppARN :: Lens' CreateRemoteAccessSession (Maybe Text)
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: crasRemoteRecordEnabled :: Lens' CreateRemoteAccessSession (Maybe Bool)
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: crasSkipAppResign :: Lens' CreateRemoteAccessSession (Maybe Bool)
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: crasSshPublicKey :: Lens' CreateRemoteAccessSession (Maybe Text)
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: crasrsRemoteAccessSession :: Lens' CreateRemoteAccessSessionResponse (Maybe RemoteAccessSession)
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: crasrsResponseStatus :: Lens' CreateRemoteAccessSessionResponse Int
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: createRemoteAccessSession :: Text -> Text -> CreateRemoteAccessSession
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: createRemoteAccessSessionResponse :: Int -> CreateRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: data CreateRemoteAccessSession
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: data CreateRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSession
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSession
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: instance Data.Data.Data Network.AWS.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSession
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: instance Data.Data.Data Network.AWS.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSession
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: instance GHC.Classes.Eq Network.AWS.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSession
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: instance GHC.Classes.Eq Network.AWS.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: instance GHC.Generics.Generic Network.AWS.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSession
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: instance GHC.Generics.Generic Network.AWS.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: instance GHC.Read.Read Network.AWS.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSession
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: instance GHC.Read.Read Network.AWS.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: instance GHC.Show.Show Network.AWS.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSession
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: instance GHC.Show.Show Network.AWS.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSession
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSession
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSession
- Network.AWS.DeviceFarm.CreateRemoteAccessSession: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSession
- Network.AWS.DeviceFarm.CreateUpload: createUpload :: Text -> Text -> UploadType -> CreateUpload
- Network.AWS.DeviceFarm.CreateUpload: createUploadResponse :: Int -> CreateUploadResponse
- Network.AWS.DeviceFarm.CreateUpload: cuContentType :: Lens' CreateUpload (Maybe Text)
- Network.AWS.DeviceFarm.CreateUpload: cuName :: Lens' CreateUpload Text
- Network.AWS.DeviceFarm.CreateUpload: cuProjectARN :: Lens' CreateUpload Text
- Network.AWS.DeviceFarm.CreateUpload: cuType :: Lens' CreateUpload UploadType
- Network.AWS.DeviceFarm.CreateUpload: cursResponseStatus :: Lens' CreateUploadResponse Int
- Network.AWS.DeviceFarm.CreateUpload: cursUpload :: Lens' CreateUploadResponse (Maybe Upload)
- Network.AWS.DeviceFarm.CreateUpload: data CreateUpload
- Network.AWS.DeviceFarm.CreateUpload: data CreateUploadResponse
- Network.AWS.DeviceFarm.CreateUpload: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.CreateUpload.CreateUpload
- Network.AWS.DeviceFarm.CreateUpload: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.CreateUpload.CreateUploadResponse
- Network.AWS.DeviceFarm.CreateUpload: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.CreateUpload.CreateUpload
- Network.AWS.DeviceFarm.CreateUpload: instance Data.Data.Data Network.AWS.DeviceFarm.CreateUpload.CreateUpload
- Network.AWS.DeviceFarm.CreateUpload: instance Data.Data.Data Network.AWS.DeviceFarm.CreateUpload.CreateUploadResponse
- Network.AWS.DeviceFarm.CreateUpload: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.CreateUpload.CreateUpload
- Network.AWS.DeviceFarm.CreateUpload: instance GHC.Classes.Eq Network.AWS.DeviceFarm.CreateUpload.CreateUpload
- Network.AWS.DeviceFarm.CreateUpload: instance GHC.Classes.Eq Network.AWS.DeviceFarm.CreateUpload.CreateUploadResponse
- Network.AWS.DeviceFarm.CreateUpload: instance GHC.Generics.Generic Network.AWS.DeviceFarm.CreateUpload.CreateUpload
- Network.AWS.DeviceFarm.CreateUpload: instance GHC.Generics.Generic Network.AWS.DeviceFarm.CreateUpload.CreateUploadResponse
- Network.AWS.DeviceFarm.CreateUpload: instance GHC.Read.Read Network.AWS.DeviceFarm.CreateUpload.CreateUpload
- Network.AWS.DeviceFarm.CreateUpload: instance GHC.Read.Read Network.AWS.DeviceFarm.CreateUpload.CreateUploadResponse
- Network.AWS.DeviceFarm.CreateUpload: instance GHC.Show.Show Network.AWS.DeviceFarm.CreateUpload.CreateUpload
- Network.AWS.DeviceFarm.CreateUpload: instance GHC.Show.Show Network.AWS.DeviceFarm.CreateUpload.CreateUploadResponse
- Network.AWS.DeviceFarm.CreateUpload: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.CreateUpload.CreateUpload
- Network.AWS.DeviceFarm.CreateUpload: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.CreateUpload.CreateUpload
- Network.AWS.DeviceFarm.CreateUpload: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.CreateUpload.CreateUpload
- Network.AWS.DeviceFarm.CreateUpload: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.CreateUpload.CreateUpload
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: createVPCEConfiguration :: Text -> Text -> Text -> CreateVPCEConfiguration
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: createVPCEConfigurationResponse :: Int -> CreateVPCEConfigurationResponse
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: cvecServiceDNSName :: Lens' CreateVPCEConfiguration Text
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: cvecVpceConfigurationDescription :: Lens' CreateVPCEConfiguration (Maybe Text)
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: cvecVpceConfigurationName :: Lens' CreateVPCEConfiguration Text
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: cvecVpceServiceName :: Lens' CreateVPCEConfiguration Text
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: cvecrsResponseStatus :: Lens' CreateVPCEConfigurationResponse Int
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: cvecrsVpceConfiguration :: Lens' CreateVPCEConfigurationResponse (Maybe VPCEConfiguration)
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: data CreateVPCEConfiguration
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: data CreateVPCEConfigurationResponse
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfiguration
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfigurationResponse
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfiguration
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: instance Data.Data.Data Network.AWS.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfiguration
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: instance Data.Data.Data Network.AWS.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfigurationResponse
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfiguration
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: instance GHC.Classes.Eq Network.AWS.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfiguration
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: instance GHC.Classes.Eq Network.AWS.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfigurationResponse
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: instance GHC.Generics.Generic Network.AWS.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfiguration
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: instance GHC.Generics.Generic Network.AWS.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfigurationResponse
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: instance GHC.Read.Read Network.AWS.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfiguration
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: instance GHC.Read.Read Network.AWS.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfigurationResponse
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: instance GHC.Show.Show Network.AWS.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfiguration
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: instance GHC.Show.Show Network.AWS.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfigurationResponse
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfiguration
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfiguration
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfiguration
- Network.AWS.DeviceFarm.CreateVPCEConfiguration: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfiguration
- Network.AWS.DeviceFarm.DeleteDevicePool: data DeleteDevicePool
- Network.AWS.DeviceFarm.DeleteDevicePool: data DeleteDevicePoolResponse
- Network.AWS.DeviceFarm.DeleteDevicePool: ddpArn :: Lens' DeleteDevicePool Text
- Network.AWS.DeviceFarm.DeleteDevicePool: ddprsResponseStatus :: Lens' DeleteDevicePoolResponse Int
- Network.AWS.DeviceFarm.DeleteDevicePool: deleteDevicePool :: Text -> DeleteDevicePool
- Network.AWS.DeviceFarm.DeleteDevicePool: deleteDevicePoolResponse :: Int -> DeleteDevicePoolResponse
- Network.AWS.DeviceFarm.DeleteDevicePool: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.DeleteDevicePool.DeleteDevicePool
- Network.AWS.DeviceFarm.DeleteDevicePool: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.DeleteDevicePool.DeleteDevicePoolResponse
- Network.AWS.DeviceFarm.DeleteDevicePool: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.DeleteDevicePool.DeleteDevicePool
- Network.AWS.DeviceFarm.DeleteDevicePool: instance Data.Data.Data Network.AWS.DeviceFarm.DeleteDevicePool.DeleteDevicePool
- Network.AWS.DeviceFarm.DeleteDevicePool: instance Data.Data.Data Network.AWS.DeviceFarm.DeleteDevicePool.DeleteDevicePoolResponse
- Network.AWS.DeviceFarm.DeleteDevicePool: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.DeleteDevicePool.DeleteDevicePool
- Network.AWS.DeviceFarm.DeleteDevicePool: instance GHC.Classes.Eq Network.AWS.DeviceFarm.DeleteDevicePool.DeleteDevicePool
- Network.AWS.DeviceFarm.DeleteDevicePool: instance GHC.Classes.Eq Network.AWS.DeviceFarm.DeleteDevicePool.DeleteDevicePoolResponse
- Network.AWS.DeviceFarm.DeleteDevicePool: instance GHC.Generics.Generic Network.AWS.DeviceFarm.DeleteDevicePool.DeleteDevicePool
- Network.AWS.DeviceFarm.DeleteDevicePool: instance GHC.Generics.Generic Network.AWS.DeviceFarm.DeleteDevicePool.DeleteDevicePoolResponse
- Network.AWS.DeviceFarm.DeleteDevicePool: instance GHC.Read.Read Network.AWS.DeviceFarm.DeleteDevicePool.DeleteDevicePool
- Network.AWS.DeviceFarm.DeleteDevicePool: instance GHC.Read.Read Network.AWS.DeviceFarm.DeleteDevicePool.DeleteDevicePoolResponse
- Network.AWS.DeviceFarm.DeleteDevicePool: instance GHC.Show.Show Network.AWS.DeviceFarm.DeleteDevicePool.DeleteDevicePool
- Network.AWS.DeviceFarm.DeleteDevicePool: instance GHC.Show.Show Network.AWS.DeviceFarm.DeleteDevicePool.DeleteDevicePoolResponse
- Network.AWS.DeviceFarm.DeleteDevicePool: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.DeleteDevicePool.DeleteDevicePool
- Network.AWS.DeviceFarm.DeleteDevicePool: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.DeleteDevicePool.DeleteDevicePool
- Network.AWS.DeviceFarm.DeleteDevicePool: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.DeleteDevicePool.DeleteDevicePool
- Network.AWS.DeviceFarm.DeleteDevicePool: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.DeleteDevicePool.DeleteDevicePool
- Network.AWS.DeviceFarm.DeleteInstanceProfile: data DeleteInstanceProfile
- Network.AWS.DeviceFarm.DeleteInstanceProfile: data DeleteInstanceProfileResponse
- Network.AWS.DeviceFarm.DeleteInstanceProfile: deleteInstanceProfile :: Text -> DeleteInstanceProfile
- Network.AWS.DeviceFarm.DeleteInstanceProfile: deleteInstanceProfileResponse :: Int -> DeleteInstanceProfileResponse
- Network.AWS.DeviceFarm.DeleteInstanceProfile: dipArn :: Lens' DeleteInstanceProfile Text
- Network.AWS.DeviceFarm.DeleteInstanceProfile: diprsResponseStatus :: Lens' DeleteInstanceProfileResponse Int
- Network.AWS.DeviceFarm.DeleteInstanceProfile: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfile
- Network.AWS.DeviceFarm.DeleteInstanceProfile: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfileResponse
- Network.AWS.DeviceFarm.DeleteInstanceProfile: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfile
- Network.AWS.DeviceFarm.DeleteInstanceProfile: instance Data.Data.Data Network.AWS.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfile
- Network.AWS.DeviceFarm.DeleteInstanceProfile: instance Data.Data.Data Network.AWS.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfileResponse
- Network.AWS.DeviceFarm.DeleteInstanceProfile: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfile
- Network.AWS.DeviceFarm.DeleteInstanceProfile: instance GHC.Classes.Eq Network.AWS.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfile
- Network.AWS.DeviceFarm.DeleteInstanceProfile: instance GHC.Classes.Eq Network.AWS.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfileResponse
- Network.AWS.DeviceFarm.DeleteInstanceProfile: instance GHC.Generics.Generic Network.AWS.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfile
- Network.AWS.DeviceFarm.DeleteInstanceProfile: instance GHC.Generics.Generic Network.AWS.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfileResponse
- Network.AWS.DeviceFarm.DeleteInstanceProfile: instance GHC.Read.Read Network.AWS.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfile
- Network.AWS.DeviceFarm.DeleteInstanceProfile: instance GHC.Read.Read Network.AWS.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfileResponse
- Network.AWS.DeviceFarm.DeleteInstanceProfile: instance GHC.Show.Show Network.AWS.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfile
- Network.AWS.DeviceFarm.DeleteInstanceProfile: instance GHC.Show.Show Network.AWS.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfileResponse
- Network.AWS.DeviceFarm.DeleteInstanceProfile: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfile
- Network.AWS.DeviceFarm.DeleteInstanceProfile: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfile
- Network.AWS.DeviceFarm.DeleteInstanceProfile: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfile
- Network.AWS.DeviceFarm.DeleteInstanceProfile: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfile
- Network.AWS.DeviceFarm.DeleteNetworkProfile: data DeleteNetworkProfile
- Network.AWS.DeviceFarm.DeleteNetworkProfile: data DeleteNetworkProfileResponse
- Network.AWS.DeviceFarm.DeleteNetworkProfile: deleteNetworkProfile :: Text -> DeleteNetworkProfile
- Network.AWS.DeviceFarm.DeleteNetworkProfile: deleteNetworkProfileResponse :: Int -> DeleteNetworkProfileResponse
- Network.AWS.DeviceFarm.DeleteNetworkProfile: dnpArn :: Lens' DeleteNetworkProfile Text
- Network.AWS.DeviceFarm.DeleteNetworkProfile: dnprsResponseStatus :: Lens' DeleteNetworkProfileResponse Int
- Network.AWS.DeviceFarm.DeleteNetworkProfile: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfile
- Network.AWS.DeviceFarm.DeleteNetworkProfile: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfileResponse
- Network.AWS.DeviceFarm.DeleteNetworkProfile: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfile
- Network.AWS.DeviceFarm.DeleteNetworkProfile: instance Data.Data.Data Network.AWS.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfile
- Network.AWS.DeviceFarm.DeleteNetworkProfile: instance Data.Data.Data Network.AWS.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfileResponse
- Network.AWS.DeviceFarm.DeleteNetworkProfile: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfile
- Network.AWS.DeviceFarm.DeleteNetworkProfile: instance GHC.Classes.Eq Network.AWS.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfile
- Network.AWS.DeviceFarm.DeleteNetworkProfile: instance GHC.Classes.Eq Network.AWS.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfileResponse
- Network.AWS.DeviceFarm.DeleteNetworkProfile: instance GHC.Generics.Generic Network.AWS.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfile
- Network.AWS.DeviceFarm.DeleteNetworkProfile: instance GHC.Generics.Generic Network.AWS.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfileResponse
- Network.AWS.DeviceFarm.DeleteNetworkProfile: instance GHC.Read.Read Network.AWS.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfile
- Network.AWS.DeviceFarm.DeleteNetworkProfile: instance GHC.Read.Read Network.AWS.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfileResponse
- Network.AWS.DeviceFarm.DeleteNetworkProfile: instance GHC.Show.Show Network.AWS.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfile
- Network.AWS.DeviceFarm.DeleteNetworkProfile: instance GHC.Show.Show Network.AWS.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfileResponse
- Network.AWS.DeviceFarm.DeleteNetworkProfile: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfile
- Network.AWS.DeviceFarm.DeleteNetworkProfile: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfile
- Network.AWS.DeviceFarm.DeleteNetworkProfile: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfile
- Network.AWS.DeviceFarm.DeleteNetworkProfile: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfile
- Network.AWS.DeviceFarm.DeleteProject: data DeleteProject
- Network.AWS.DeviceFarm.DeleteProject: data DeleteProjectResponse
- Network.AWS.DeviceFarm.DeleteProject: deleteProject :: Text -> DeleteProject
- Network.AWS.DeviceFarm.DeleteProject: deleteProjectResponse :: Int -> DeleteProjectResponse
- Network.AWS.DeviceFarm.DeleteProject: dpArn :: Lens' DeleteProject Text
- Network.AWS.DeviceFarm.DeleteProject: dprsResponseStatus :: Lens' DeleteProjectResponse Int
- Network.AWS.DeviceFarm.DeleteProject: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.DeleteProject.DeleteProject
- Network.AWS.DeviceFarm.DeleteProject: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.DeleteProject.DeleteProjectResponse
- Network.AWS.DeviceFarm.DeleteProject: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.DeleteProject.DeleteProject
- Network.AWS.DeviceFarm.DeleteProject: instance Data.Data.Data Network.AWS.DeviceFarm.DeleteProject.DeleteProject
- Network.AWS.DeviceFarm.DeleteProject: instance Data.Data.Data Network.AWS.DeviceFarm.DeleteProject.DeleteProjectResponse
- Network.AWS.DeviceFarm.DeleteProject: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.DeleteProject.DeleteProject
- Network.AWS.DeviceFarm.DeleteProject: instance GHC.Classes.Eq Network.AWS.DeviceFarm.DeleteProject.DeleteProject
- Network.AWS.DeviceFarm.DeleteProject: instance GHC.Classes.Eq Network.AWS.DeviceFarm.DeleteProject.DeleteProjectResponse
- Network.AWS.DeviceFarm.DeleteProject: instance GHC.Generics.Generic Network.AWS.DeviceFarm.DeleteProject.DeleteProject
- Network.AWS.DeviceFarm.DeleteProject: instance GHC.Generics.Generic Network.AWS.DeviceFarm.DeleteProject.DeleteProjectResponse
- Network.AWS.DeviceFarm.DeleteProject: instance GHC.Read.Read Network.AWS.DeviceFarm.DeleteProject.DeleteProject
- Network.AWS.DeviceFarm.DeleteProject: instance GHC.Read.Read Network.AWS.DeviceFarm.DeleteProject.DeleteProjectResponse
- Network.AWS.DeviceFarm.DeleteProject: instance GHC.Show.Show Network.AWS.DeviceFarm.DeleteProject.DeleteProject
- Network.AWS.DeviceFarm.DeleteProject: instance GHC.Show.Show Network.AWS.DeviceFarm.DeleteProject.DeleteProjectResponse
- Network.AWS.DeviceFarm.DeleteProject: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.DeleteProject.DeleteProject
- Network.AWS.DeviceFarm.DeleteProject: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.DeleteProject.DeleteProject
- Network.AWS.DeviceFarm.DeleteProject: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.DeleteProject.DeleteProject
- Network.AWS.DeviceFarm.DeleteProject: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.DeleteProject.DeleteProject
- Network.AWS.DeviceFarm.DeleteRemoteAccessSession: data DeleteRemoteAccessSession
- Network.AWS.DeviceFarm.DeleteRemoteAccessSession: data DeleteRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.DeleteRemoteAccessSession: deleteRemoteAccessSession :: Text -> DeleteRemoteAccessSession
- Network.AWS.DeviceFarm.DeleteRemoteAccessSession: deleteRemoteAccessSessionResponse :: Int -> DeleteRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.DeleteRemoteAccessSession: drasArn :: Lens' DeleteRemoteAccessSession Text
- Network.AWS.DeviceFarm.DeleteRemoteAccessSession: drasrsResponseStatus :: Lens' DeleteRemoteAccessSessionResponse Int
- Network.AWS.DeviceFarm.DeleteRemoteAccessSession: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSession
- Network.AWS.DeviceFarm.DeleteRemoteAccessSession: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.DeleteRemoteAccessSession: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSession
- Network.AWS.DeviceFarm.DeleteRemoteAccessSession: instance Data.Data.Data Network.AWS.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSession
- Network.AWS.DeviceFarm.DeleteRemoteAccessSession: instance Data.Data.Data Network.AWS.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.DeleteRemoteAccessSession: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSession
- Network.AWS.DeviceFarm.DeleteRemoteAccessSession: instance GHC.Classes.Eq Network.AWS.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSession
- Network.AWS.DeviceFarm.DeleteRemoteAccessSession: instance GHC.Classes.Eq Network.AWS.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.DeleteRemoteAccessSession: instance GHC.Generics.Generic Network.AWS.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSession
- Network.AWS.DeviceFarm.DeleteRemoteAccessSession: instance GHC.Generics.Generic Network.AWS.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.DeleteRemoteAccessSession: instance GHC.Read.Read Network.AWS.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSession
- Network.AWS.DeviceFarm.DeleteRemoteAccessSession: instance GHC.Read.Read Network.AWS.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.DeleteRemoteAccessSession: instance GHC.Show.Show Network.AWS.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSession
- Network.AWS.DeviceFarm.DeleteRemoteAccessSession: instance GHC.Show.Show Network.AWS.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.DeleteRemoteAccessSession: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSession
- Network.AWS.DeviceFarm.DeleteRemoteAccessSession: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSession
- Network.AWS.DeviceFarm.DeleteRemoteAccessSession: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSession
- Network.AWS.DeviceFarm.DeleteRemoteAccessSession: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSession
- Network.AWS.DeviceFarm.DeleteRun: data DeleteRun
- Network.AWS.DeviceFarm.DeleteRun: data DeleteRunResponse
- Network.AWS.DeviceFarm.DeleteRun: deleteRun :: Text -> DeleteRun
- Network.AWS.DeviceFarm.DeleteRun: deleteRunResponse :: Int -> DeleteRunResponse
- Network.AWS.DeviceFarm.DeleteRun: drArn :: Lens' DeleteRun Text
- Network.AWS.DeviceFarm.DeleteRun: drrsResponseStatus :: Lens' DeleteRunResponse Int
- Network.AWS.DeviceFarm.DeleteRun: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.DeleteRun.DeleteRun
- Network.AWS.DeviceFarm.DeleteRun: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.DeleteRun.DeleteRunResponse
- Network.AWS.DeviceFarm.DeleteRun: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.DeleteRun.DeleteRun
- Network.AWS.DeviceFarm.DeleteRun: instance Data.Data.Data Network.AWS.DeviceFarm.DeleteRun.DeleteRun
- Network.AWS.DeviceFarm.DeleteRun: instance Data.Data.Data Network.AWS.DeviceFarm.DeleteRun.DeleteRunResponse
- Network.AWS.DeviceFarm.DeleteRun: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.DeleteRun.DeleteRun
- Network.AWS.DeviceFarm.DeleteRun: instance GHC.Classes.Eq Network.AWS.DeviceFarm.DeleteRun.DeleteRun
- Network.AWS.DeviceFarm.DeleteRun: instance GHC.Classes.Eq Network.AWS.DeviceFarm.DeleteRun.DeleteRunResponse
- Network.AWS.DeviceFarm.DeleteRun: instance GHC.Generics.Generic Network.AWS.DeviceFarm.DeleteRun.DeleteRun
- Network.AWS.DeviceFarm.DeleteRun: instance GHC.Generics.Generic Network.AWS.DeviceFarm.DeleteRun.DeleteRunResponse
- Network.AWS.DeviceFarm.DeleteRun: instance GHC.Read.Read Network.AWS.DeviceFarm.DeleteRun.DeleteRun
- Network.AWS.DeviceFarm.DeleteRun: instance GHC.Read.Read Network.AWS.DeviceFarm.DeleteRun.DeleteRunResponse
- Network.AWS.DeviceFarm.DeleteRun: instance GHC.Show.Show Network.AWS.DeviceFarm.DeleteRun.DeleteRun
- Network.AWS.DeviceFarm.DeleteRun: instance GHC.Show.Show Network.AWS.DeviceFarm.DeleteRun.DeleteRunResponse
- Network.AWS.DeviceFarm.DeleteRun: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.DeleteRun.DeleteRun
- Network.AWS.DeviceFarm.DeleteRun: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.DeleteRun.DeleteRun
- Network.AWS.DeviceFarm.DeleteRun: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.DeleteRun.DeleteRun
- Network.AWS.DeviceFarm.DeleteRun: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.DeleteRun.DeleteRun
- Network.AWS.DeviceFarm.DeleteUpload: data DeleteUpload
- Network.AWS.DeviceFarm.DeleteUpload: data DeleteUploadResponse
- Network.AWS.DeviceFarm.DeleteUpload: deleteUpload :: Text -> DeleteUpload
- Network.AWS.DeviceFarm.DeleteUpload: deleteUploadResponse :: Int -> DeleteUploadResponse
- Network.AWS.DeviceFarm.DeleteUpload: duArn :: Lens' DeleteUpload Text
- Network.AWS.DeviceFarm.DeleteUpload: dursResponseStatus :: Lens' DeleteUploadResponse Int
- Network.AWS.DeviceFarm.DeleteUpload: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.DeleteUpload.DeleteUpload
- Network.AWS.DeviceFarm.DeleteUpload: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.DeleteUpload.DeleteUploadResponse
- Network.AWS.DeviceFarm.DeleteUpload: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.DeleteUpload.DeleteUpload
- Network.AWS.DeviceFarm.DeleteUpload: instance Data.Data.Data Network.AWS.DeviceFarm.DeleteUpload.DeleteUpload
- Network.AWS.DeviceFarm.DeleteUpload: instance Data.Data.Data Network.AWS.DeviceFarm.DeleteUpload.DeleteUploadResponse
- Network.AWS.DeviceFarm.DeleteUpload: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.DeleteUpload.DeleteUpload
- Network.AWS.DeviceFarm.DeleteUpload: instance GHC.Classes.Eq Network.AWS.DeviceFarm.DeleteUpload.DeleteUpload
- Network.AWS.DeviceFarm.DeleteUpload: instance GHC.Classes.Eq Network.AWS.DeviceFarm.DeleteUpload.DeleteUploadResponse
- Network.AWS.DeviceFarm.DeleteUpload: instance GHC.Generics.Generic Network.AWS.DeviceFarm.DeleteUpload.DeleteUpload
- Network.AWS.DeviceFarm.DeleteUpload: instance GHC.Generics.Generic Network.AWS.DeviceFarm.DeleteUpload.DeleteUploadResponse
- Network.AWS.DeviceFarm.DeleteUpload: instance GHC.Read.Read Network.AWS.DeviceFarm.DeleteUpload.DeleteUpload
- Network.AWS.DeviceFarm.DeleteUpload: instance GHC.Read.Read Network.AWS.DeviceFarm.DeleteUpload.DeleteUploadResponse
- Network.AWS.DeviceFarm.DeleteUpload: instance GHC.Show.Show Network.AWS.DeviceFarm.DeleteUpload.DeleteUpload
- Network.AWS.DeviceFarm.DeleteUpload: instance GHC.Show.Show Network.AWS.DeviceFarm.DeleteUpload.DeleteUploadResponse
- Network.AWS.DeviceFarm.DeleteUpload: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.DeleteUpload.DeleteUpload
- Network.AWS.DeviceFarm.DeleteUpload: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.DeleteUpload.DeleteUpload
- Network.AWS.DeviceFarm.DeleteUpload: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.DeleteUpload.DeleteUpload
- Network.AWS.DeviceFarm.DeleteUpload: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.DeleteUpload.DeleteUpload
- Network.AWS.DeviceFarm.DeleteVPCEConfiguration: data DeleteVPCEConfiguration
- Network.AWS.DeviceFarm.DeleteVPCEConfiguration: data DeleteVPCEConfigurationResponse
- Network.AWS.DeviceFarm.DeleteVPCEConfiguration: deleteVPCEConfiguration :: Text -> DeleteVPCEConfiguration
- Network.AWS.DeviceFarm.DeleteVPCEConfiguration: deleteVPCEConfigurationResponse :: Int -> DeleteVPCEConfigurationResponse
- Network.AWS.DeviceFarm.DeleteVPCEConfiguration: dvecArn :: Lens' DeleteVPCEConfiguration Text
- Network.AWS.DeviceFarm.DeleteVPCEConfiguration: dvecrsResponseStatus :: Lens' DeleteVPCEConfigurationResponse Int
- Network.AWS.DeviceFarm.DeleteVPCEConfiguration: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfiguration
- Network.AWS.DeviceFarm.DeleteVPCEConfiguration: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfigurationResponse
- Network.AWS.DeviceFarm.DeleteVPCEConfiguration: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfiguration
- Network.AWS.DeviceFarm.DeleteVPCEConfiguration: instance Data.Data.Data Network.AWS.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfiguration
- Network.AWS.DeviceFarm.DeleteVPCEConfiguration: instance Data.Data.Data Network.AWS.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfigurationResponse
- Network.AWS.DeviceFarm.DeleteVPCEConfiguration: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfiguration
- Network.AWS.DeviceFarm.DeleteVPCEConfiguration: instance GHC.Classes.Eq Network.AWS.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfiguration
- Network.AWS.DeviceFarm.DeleteVPCEConfiguration: instance GHC.Classes.Eq Network.AWS.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfigurationResponse
- Network.AWS.DeviceFarm.DeleteVPCEConfiguration: instance GHC.Generics.Generic Network.AWS.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfiguration
- Network.AWS.DeviceFarm.DeleteVPCEConfiguration: instance GHC.Generics.Generic Network.AWS.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfigurationResponse
- Network.AWS.DeviceFarm.DeleteVPCEConfiguration: instance GHC.Read.Read Network.AWS.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfiguration
- Network.AWS.DeviceFarm.DeleteVPCEConfiguration: instance GHC.Read.Read Network.AWS.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfigurationResponse
- Network.AWS.DeviceFarm.DeleteVPCEConfiguration: instance GHC.Show.Show Network.AWS.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfiguration
- Network.AWS.DeviceFarm.DeleteVPCEConfiguration: instance GHC.Show.Show Network.AWS.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfigurationResponse
- Network.AWS.DeviceFarm.DeleteVPCEConfiguration: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfiguration
- Network.AWS.DeviceFarm.DeleteVPCEConfiguration: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfiguration
- Network.AWS.DeviceFarm.DeleteVPCEConfiguration: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfiguration
- Network.AWS.DeviceFarm.DeleteVPCEConfiguration: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfiguration
- Network.AWS.DeviceFarm.GetAccountSettings: data GetAccountSettings
- Network.AWS.DeviceFarm.GetAccountSettings: data GetAccountSettingsResponse
- Network.AWS.DeviceFarm.GetAccountSettings: gasrsAccountSettings :: Lens' GetAccountSettingsResponse (Maybe AccountSettings)
- Network.AWS.DeviceFarm.GetAccountSettings: gasrsResponseStatus :: Lens' GetAccountSettingsResponse Int
- Network.AWS.DeviceFarm.GetAccountSettings: getAccountSettings :: GetAccountSettings
- Network.AWS.DeviceFarm.GetAccountSettings: getAccountSettingsResponse :: Int -> GetAccountSettingsResponse
- Network.AWS.DeviceFarm.GetAccountSettings: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetAccountSettings.GetAccountSettings
- Network.AWS.DeviceFarm.GetAccountSettings: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetAccountSettings.GetAccountSettingsResponse
- Network.AWS.DeviceFarm.GetAccountSettings: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.GetAccountSettings.GetAccountSettings
- Network.AWS.DeviceFarm.GetAccountSettings: instance Data.Data.Data Network.AWS.DeviceFarm.GetAccountSettings.GetAccountSettings
- Network.AWS.DeviceFarm.GetAccountSettings: instance Data.Data.Data Network.AWS.DeviceFarm.GetAccountSettings.GetAccountSettingsResponse
- Network.AWS.DeviceFarm.GetAccountSettings: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.GetAccountSettings.GetAccountSettings
- Network.AWS.DeviceFarm.GetAccountSettings: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetAccountSettings.GetAccountSettings
- Network.AWS.DeviceFarm.GetAccountSettings: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetAccountSettings.GetAccountSettingsResponse
- Network.AWS.DeviceFarm.GetAccountSettings: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetAccountSettings.GetAccountSettings
- Network.AWS.DeviceFarm.GetAccountSettings: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetAccountSettings.GetAccountSettingsResponse
- Network.AWS.DeviceFarm.GetAccountSettings: instance GHC.Read.Read Network.AWS.DeviceFarm.GetAccountSettings.GetAccountSettings
- Network.AWS.DeviceFarm.GetAccountSettings: instance GHC.Read.Read Network.AWS.DeviceFarm.GetAccountSettings.GetAccountSettingsResponse
- Network.AWS.DeviceFarm.GetAccountSettings: instance GHC.Show.Show Network.AWS.DeviceFarm.GetAccountSettings.GetAccountSettings
- Network.AWS.DeviceFarm.GetAccountSettings: instance GHC.Show.Show Network.AWS.DeviceFarm.GetAccountSettings.GetAccountSettingsResponse
- Network.AWS.DeviceFarm.GetAccountSettings: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.GetAccountSettings.GetAccountSettings
- Network.AWS.DeviceFarm.GetAccountSettings: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.GetAccountSettings.GetAccountSettings
- Network.AWS.DeviceFarm.GetAccountSettings: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.GetAccountSettings.GetAccountSettings
- Network.AWS.DeviceFarm.GetAccountSettings: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.GetAccountSettings.GetAccountSettings
- Network.AWS.DeviceFarm.GetDevice: data GetDevice
- Network.AWS.DeviceFarm.GetDevice: data GetDeviceResponse
- Network.AWS.DeviceFarm.GetDevice: gdArn :: Lens' GetDevice Text
- Network.AWS.DeviceFarm.GetDevice: gdrsDevice :: Lens' GetDeviceResponse (Maybe Device)
- Network.AWS.DeviceFarm.GetDevice: gdrsResponseStatus :: Lens' GetDeviceResponse Int
- Network.AWS.DeviceFarm.GetDevice: getDevice :: Text -> GetDevice
- Network.AWS.DeviceFarm.GetDevice: getDeviceResponse :: Int -> GetDeviceResponse
- Network.AWS.DeviceFarm.GetDevice: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetDevice.GetDevice
- Network.AWS.DeviceFarm.GetDevice: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetDevice.GetDeviceResponse
- Network.AWS.DeviceFarm.GetDevice: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.GetDevice.GetDevice
- Network.AWS.DeviceFarm.GetDevice: instance Data.Data.Data Network.AWS.DeviceFarm.GetDevice.GetDevice
- Network.AWS.DeviceFarm.GetDevice: instance Data.Data.Data Network.AWS.DeviceFarm.GetDevice.GetDeviceResponse
- Network.AWS.DeviceFarm.GetDevice: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.GetDevice.GetDevice
- Network.AWS.DeviceFarm.GetDevice: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetDevice.GetDevice
- Network.AWS.DeviceFarm.GetDevice: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetDevice.GetDeviceResponse
- Network.AWS.DeviceFarm.GetDevice: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetDevice.GetDevice
- Network.AWS.DeviceFarm.GetDevice: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetDevice.GetDeviceResponse
- Network.AWS.DeviceFarm.GetDevice: instance GHC.Read.Read Network.AWS.DeviceFarm.GetDevice.GetDevice
- Network.AWS.DeviceFarm.GetDevice: instance GHC.Read.Read Network.AWS.DeviceFarm.GetDevice.GetDeviceResponse
- Network.AWS.DeviceFarm.GetDevice: instance GHC.Show.Show Network.AWS.DeviceFarm.GetDevice.GetDevice
- Network.AWS.DeviceFarm.GetDevice: instance GHC.Show.Show Network.AWS.DeviceFarm.GetDevice.GetDeviceResponse
- Network.AWS.DeviceFarm.GetDevice: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.GetDevice.GetDevice
- Network.AWS.DeviceFarm.GetDevice: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.GetDevice.GetDevice
- Network.AWS.DeviceFarm.GetDevice: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.GetDevice.GetDevice
- Network.AWS.DeviceFarm.GetDevice: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.GetDevice.GetDevice
- Network.AWS.DeviceFarm.GetDeviceInstance: data GetDeviceInstance
- Network.AWS.DeviceFarm.GetDeviceInstance: data GetDeviceInstanceResponse
- Network.AWS.DeviceFarm.GetDeviceInstance: gdiArn :: Lens' GetDeviceInstance Text
- Network.AWS.DeviceFarm.GetDeviceInstance: gdirsDeviceInstance :: Lens' GetDeviceInstanceResponse (Maybe DeviceInstance)
- Network.AWS.DeviceFarm.GetDeviceInstance: gdirsResponseStatus :: Lens' GetDeviceInstanceResponse Int
- Network.AWS.DeviceFarm.GetDeviceInstance: getDeviceInstance :: Text -> GetDeviceInstance
- Network.AWS.DeviceFarm.GetDeviceInstance: getDeviceInstanceResponse :: Int -> GetDeviceInstanceResponse
- Network.AWS.DeviceFarm.GetDeviceInstance: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetDeviceInstance.GetDeviceInstance
- Network.AWS.DeviceFarm.GetDeviceInstance: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetDeviceInstance.GetDeviceInstanceResponse
- Network.AWS.DeviceFarm.GetDeviceInstance: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.GetDeviceInstance.GetDeviceInstance
- Network.AWS.DeviceFarm.GetDeviceInstance: instance Data.Data.Data Network.AWS.DeviceFarm.GetDeviceInstance.GetDeviceInstance
- Network.AWS.DeviceFarm.GetDeviceInstance: instance Data.Data.Data Network.AWS.DeviceFarm.GetDeviceInstance.GetDeviceInstanceResponse
- Network.AWS.DeviceFarm.GetDeviceInstance: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.GetDeviceInstance.GetDeviceInstance
- Network.AWS.DeviceFarm.GetDeviceInstance: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetDeviceInstance.GetDeviceInstance
- Network.AWS.DeviceFarm.GetDeviceInstance: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetDeviceInstance.GetDeviceInstanceResponse
- Network.AWS.DeviceFarm.GetDeviceInstance: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetDeviceInstance.GetDeviceInstance
- Network.AWS.DeviceFarm.GetDeviceInstance: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetDeviceInstance.GetDeviceInstanceResponse
- Network.AWS.DeviceFarm.GetDeviceInstance: instance GHC.Read.Read Network.AWS.DeviceFarm.GetDeviceInstance.GetDeviceInstance
- Network.AWS.DeviceFarm.GetDeviceInstance: instance GHC.Read.Read Network.AWS.DeviceFarm.GetDeviceInstance.GetDeviceInstanceResponse
- Network.AWS.DeviceFarm.GetDeviceInstance: instance GHC.Show.Show Network.AWS.DeviceFarm.GetDeviceInstance.GetDeviceInstance
- Network.AWS.DeviceFarm.GetDeviceInstance: instance GHC.Show.Show Network.AWS.DeviceFarm.GetDeviceInstance.GetDeviceInstanceResponse
- Network.AWS.DeviceFarm.GetDeviceInstance: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.GetDeviceInstance.GetDeviceInstance
- Network.AWS.DeviceFarm.GetDeviceInstance: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.GetDeviceInstance.GetDeviceInstance
- Network.AWS.DeviceFarm.GetDeviceInstance: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.GetDeviceInstance.GetDeviceInstance
- Network.AWS.DeviceFarm.GetDeviceInstance: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.GetDeviceInstance.GetDeviceInstance
- Network.AWS.DeviceFarm.GetDevicePool: data GetDevicePool
- Network.AWS.DeviceFarm.GetDevicePool: data GetDevicePoolResponse
- Network.AWS.DeviceFarm.GetDevicePool: gdpArn :: Lens' GetDevicePool Text
- Network.AWS.DeviceFarm.GetDevicePool: gdprsDevicePool :: Lens' GetDevicePoolResponse (Maybe DevicePool)
- Network.AWS.DeviceFarm.GetDevicePool: gdprsResponseStatus :: Lens' GetDevicePoolResponse Int
- Network.AWS.DeviceFarm.GetDevicePool: getDevicePool :: Text -> GetDevicePool
- Network.AWS.DeviceFarm.GetDevicePool: getDevicePoolResponse :: Int -> GetDevicePoolResponse
- Network.AWS.DeviceFarm.GetDevicePool: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetDevicePool.GetDevicePool
- Network.AWS.DeviceFarm.GetDevicePool: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetDevicePool.GetDevicePoolResponse
- Network.AWS.DeviceFarm.GetDevicePool: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.GetDevicePool.GetDevicePool
- Network.AWS.DeviceFarm.GetDevicePool: instance Data.Data.Data Network.AWS.DeviceFarm.GetDevicePool.GetDevicePool
- Network.AWS.DeviceFarm.GetDevicePool: instance Data.Data.Data Network.AWS.DeviceFarm.GetDevicePool.GetDevicePoolResponse
- Network.AWS.DeviceFarm.GetDevicePool: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.GetDevicePool.GetDevicePool
- Network.AWS.DeviceFarm.GetDevicePool: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetDevicePool.GetDevicePool
- Network.AWS.DeviceFarm.GetDevicePool: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetDevicePool.GetDevicePoolResponse
- Network.AWS.DeviceFarm.GetDevicePool: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetDevicePool.GetDevicePool
- Network.AWS.DeviceFarm.GetDevicePool: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetDevicePool.GetDevicePoolResponse
- Network.AWS.DeviceFarm.GetDevicePool: instance GHC.Read.Read Network.AWS.DeviceFarm.GetDevicePool.GetDevicePool
- Network.AWS.DeviceFarm.GetDevicePool: instance GHC.Read.Read Network.AWS.DeviceFarm.GetDevicePool.GetDevicePoolResponse
- Network.AWS.DeviceFarm.GetDevicePool: instance GHC.Show.Show Network.AWS.DeviceFarm.GetDevicePool.GetDevicePool
- Network.AWS.DeviceFarm.GetDevicePool: instance GHC.Show.Show Network.AWS.DeviceFarm.GetDevicePool.GetDevicePoolResponse
- Network.AWS.DeviceFarm.GetDevicePool: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.GetDevicePool.GetDevicePool
- Network.AWS.DeviceFarm.GetDevicePool: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.GetDevicePool.GetDevicePool
- Network.AWS.DeviceFarm.GetDevicePool: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.GetDevicePool.GetDevicePool
- Network.AWS.DeviceFarm.GetDevicePool: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.GetDevicePool.GetDevicePool
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: data GetDevicePoolCompatibility
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: data GetDevicePoolCompatibilityResponse
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: gdpcAppARN :: Lens' GetDevicePoolCompatibility (Maybe Text)
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: gdpcConfiguration :: Lens' GetDevicePoolCompatibility (Maybe ScheduleRunConfiguration)
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: gdpcDevicePoolARN :: Lens' GetDevicePoolCompatibility Text
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: gdpcTest :: Lens' GetDevicePoolCompatibility (Maybe ScheduleRunTest)
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: gdpcTestType :: Lens' GetDevicePoolCompatibility (Maybe TestType)
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: gdpcrsCompatibleDevices :: Lens' GetDevicePoolCompatibilityResponse [DevicePoolCompatibilityResult]
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: gdpcrsIncompatibleDevices :: Lens' GetDevicePoolCompatibilityResponse [DevicePoolCompatibilityResult]
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: gdpcrsResponseStatus :: Lens' GetDevicePoolCompatibilityResponse Int
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: getDevicePoolCompatibility :: Text -> GetDevicePoolCompatibility
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: getDevicePoolCompatibilityResponse :: Int -> GetDevicePoolCompatibilityResponse
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibility
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibilityResponse
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibility
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: instance Data.Data.Data Network.AWS.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibility
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: instance Data.Data.Data Network.AWS.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibilityResponse
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibility
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibility
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibilityResponse
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibility
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibilityResponse
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: instance GHC.Read.Read Network.AWS.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibility
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: instance GHC.Read.Read Network.AWS.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibilityResponse
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: instance GHC.Show.Show Network.AWS.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibility
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: instance GHC.Show.Show Network.AWS.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibilityResponse
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibility
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibility
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibility
- Network.AWS.DeviceFarm.GetDevicePoolCompatibility: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibility
- Network.AWS.DeviceFarm.GetInstanceProfile: data GetInstanceProfile
- Network.AWS.DeviceFarm.GetInstanceProfile: data GetInstanceProfileResponse
- Network.AWS.DeviceFarm.GetInstanceProfile: getInstanceProfile :: Text -> GetInstanceProfile
- Network.AWS.DeviceFarm.GetInstanceProfile: getInstanceProfileResponse :: Int -> GetInstanceProfileResponse
- Network.AWS.DeviceFarm.GetInstanceProfile: gipArn :: Lens' GetInstanceProfile Text
- Network.AWS.DeviceFarm.GetInstanceProfile: giprsInstanceProfile :: Lens' GetInstanceProfileResponse (Maybe InstanceProfile)
- Network.AWS.DeviceFarm.GetInstanceProfile: giprsResponseStatus :: Lens' GetInstanceProfileResponse Int
- Network.AWS.DeviceFarm.GetInstanceProfile: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetInstanceProfile.GetInstanceProfile
- Network.AWS.DeviceFarm.GetInstanceProfile: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetInstanceProfile.GetInstanceProfileResponse
- Network.AWS.DeviceFarm.GetInstanceProfile: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.GetInstanceProfile.GetInstanceProfile
- Network.AWS.DeviceFarm.GetInstanceProfile: instance Data.Data.Data Network.AWS.DeviceFarm.GetInstanceProfile.GetInstanceProfile
- Network.AWS.DeviceFarm.GetInstanceProfile: instance Data.Data.Data Network.AWS.DeviceFarm.GetInstanceProfile.GetInstanceProfileResponse
- Network.AWS.DeviceFarm.GetInstanceProfile: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.GetInstanceProfile.GetInstanceProfile
- Network.AWS.DeviceFarm.GetInstanceProfile: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetInstanceProfile.GetInstanceProfile
- Network.AWS.DeviceFarm.GetInstanceProfile: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetInstanceProfile.GetInstanceProfileResponse
- Network.AWS.DeviceFarm.GetInstanceProfile: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetInstanceProfile.GetInstanceProfile
- Network.AWS.DeviceFarm.GetInstanceProfile: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetInstanceProfile.GetInstanceProfileResponse
- Network.AWS.DeviceFarm.GetInstanceProfile: instance GHC.Read.Read Network.AWS.DeviceFarm.GetInstanceProfile.GetInstanceProfile
- Network.AWS.DeviceFarm.GetInstanceProfile: instance GHC.Read.Read Network.AWS.DeviceFarm.GetInstanceProfile.GetInstanceProfileResponse
- Network.AWS.DeviceFarm.GetInstanceProfile: instance GHC.Show.Show Network.AWS.DeviceFarm.GetInstanceProfile.GetInstanceProfile
- Network.AWS.DeviceFarm.GetInstanceProfile: instance GHC.Show.Show Network.AWS.DeviceFarm.GetInstanceProfile.GetInstanceProfileResponse
- Network.AWS.DeviceFarm.GetInstanceProfile: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.GetInstanceProfile.GetInstanceProfile
- Network.AWS.DeviceFarm.GetInstanceProfile: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.GetInstanceProfile.GetInstanceProfile
- Network.AWS.DeviceFarm.GetInstanceProfile: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.GetInstanceProfile.GetInstanceProfile
- Network.AWS.DeviceFarm.GetInstanceProfile: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.GetInstanceProfile.GetInstanceProfile
- Network.AWS.DeviceFarm.GetJob: data GetJob
- Network.AWS.DeviceFarm.GetJob: data GetJobResponse
- Network.AWS.DeviceFarm.GetJob: getJob :: Text -> GetJob
- Network.AWS.DeviceFarm.GetJob: getJobResponse :: Int -> GetJobResponse
- Network.AWS.DeviceFarm.GetJob: gjArn :: Lens' GetJob Text
- Network.AWS.DeviceFarm.GetJob: gjrsJob :: Lens' GetJobResponse (Maybe Job)
- Network.AWS.DeviceFarm.GetJob: gjrsResponseStatus :: Lens' GetJobResponse Int
- Network.AWS.DeviceFarm.GetJob: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetJob.GetJob
- Network.AWS.DeviceFarm.GetJob: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetJob.GetJobResponse
- Network.AWS.DeviceFarm.GetJob: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.GetJob.GetJob
- Network.AWS.DeviceFarm.GetJob: instance Data.Data.Data Network.AWS.DeviceFarm.GetJob.GetJob
- Network.AWS.DeviceFarm.GetJob: instance Data.Data.Data Network.AWS.DeviceFarm.GetJob.GetJobResponse
- Network.AWS.DeviceFarm.GetJob: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.GetJob.GetJob
- Network.AWS.DeviceFarm.GetJob: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetJob.GetJob
- Network.AWS.DeviceFarm.GetJob: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetJob.GetJobResponse
- Network.AWS.DeviceFarm.GetJob: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetJob.GetJob
- Network.AWS.DeviceFarm.GetJob: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetJob.GetJobResponse
- Network.AWS.DeviceFarm.GetJob: instance GHC.Read.Read Network.AWS.DeviceFarm.GetJob.GetJob
- Network.AWS.DeviceFarm.GetJob: instance GHC.Read.Read Network.AWS.DeviceFarm.GetJob.GetJobResponse
- Network.AWS.DeviceFarm.GetJob: instance GHC.Show.Show Network.AWS.DeviceFarm.GetJob.GetJob
- Network.AWS.DeviceFarm.GetJob: instance GHC.Show.Show Network.AWS.DeviceFarm.GetJob.GetJobResponse
- Network.AWS.DeviceFarm.GetJob: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.GetJob.GetJob
- Network.AWS.DeviceFarm.GetJob: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.GetJob.GetJob
- Network.AWS.DeviceFarm.GetJob: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.GetJob.GetJob
- Network.AWS.DeviceFarm.GetJob: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.GetJob.GetJob
- Network.AWS.DeviceFarm.GetNetworkProfile: data GetNetworkProfile
- Network.AWS.DeviceFarm.GetNetworkProfile: data GetNetworkProfileResponse
- Network.AWS.DeviceFarm.GetNetworkProfile: getNetworkProfile :: Text -> GetNetworkProfile
- Network.AWS.DeviceFarm.GetNetworkProfile: getNetworkProfileResponse :: Int -> GetNetworkProfileResponse
- Network.AWS.DeviceFarm.GetNetworkProfile: gnpArn :: Lens' GetNetworkProfile Text
- Network.AWS.DeviceFarm.GetNetworkProfile: gnprsNetworkProfile :: Lens' GetNetworkProfileResponse (Maybe NetworkProfile)
- Network.AWS.DeviceFarm.GetNetworkProfile: gnprsResponseStatus :: Lens' GetNetworkProfileResponse Int
- Network.AWS.DeviceFarm.GetNetworkProfile: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetNetworkProfile.GetNetworkProfile
- Network.AWS.DeviceFarm.GetNetworkProfile: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetNetworkProfile.GetNetworkProfileResponse
- Network.AWS.DeviceFarm.GetNetworkProfile: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.GetNetworkProfile.GetNetworkProfile
- Network.AWS.DeviceFarm.GetNetworkProfile: instance Data.Data.Data Network.AWS.DeviceFarm.GetNetworkProfile.GetNetworkProfile
- Network.AWS.DeviceFarm.GetNetworkProfile: instance Data.Data.Data Network.AWS.DeviceFarm.GetNetworkProfile.GetNetworkProfileResponse
- Network.AWS.DeviceFarm.GetNetworkProfile: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.GetNetworkProfile.GetNetworkProfile
- Network.AWS.DeviceFarm.GetNetworkProfile: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetNetworkProfile.GetNetworkProfile
- Network.AWS.DeviceFarm.GetNetworkProfile: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetNetworkProfile.GetNetworkProfileResponse
- Network.AWS.DeviceFarm.GetNetworkProfile: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetNetworkProfile.GetNetworkProfile
- Network.AWS.DeviceFarm.GetNetworkProfile: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetNetworkProfile.GetNetworkProfileResponse
- Network.AWS.DeviceFarm.GetNetworkProfile: instance GHC.Read.Read Network.AWS.DeviceFarm.GetNetworkProfile.GetNetworkProfile
- Network.AWS.DeviceFarm.GetNetworkProfile: instance GHC.Read.Read Network.AWS.DeviceFarm.GetNetworkProfile.GetNetworkProfileResponse
- Network.AWS.DeviceFarm.GetNetworkProfile: instance GHC.Show.Show Network.AWS.DeviceFarm.GetNetworkProfile.GetNetworkProfile
- Network.AWS.DeviceFarm.GetNetworkProfile: instance GHC.Show.Show Network.AWS.DeviceFarm.GetNetworkProfile.GetNetworkProfileResponse
- Network.AWS.DeviceFarm.GetNetworkProfile: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.GetNetworkProfile.GetNetworkProfile
- Network.AWS.DeviceFarm.GetNetworkProfile: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.GetNetworkProfile.GetNetworkProfile
- Network.AWS.DeviceFarm.GetNetworkProfile: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.GetNetworkProfile.GetNetworkProfile
- Network.AWS.DeviceFarm.GetNetworkProfile: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.GetNetworkProfile.GetNetworkProfile
- Network.AWS.DeviceFarm.GetOfferingStatus: data GetOfferingStatus
- Network.AWS.DeviceFarm.GetOfferingStatus: data GetOfferingStatusResponse
- Network.AWS.DeviceFarm.GetOfferingStatus: getOfferingStatus :: GetOfferingStatus
- Network.AWS.DeviceFarm.GetOfferingStatus: getOfferingStatusResponse :: Int -> GetOfferingStatusResponse
- Network.AWS.DeviceFarm.GetOfferingStatus: gosNextToken :: Lens' GetOfferingStatus (Maybe Text)
- Network.AWS.DeviceFarm.GetOfferingStatus: gosrsCurrent :: Lens' GetOfferingStatusResponse (HashMap Text OfferingStatus)
- Network.AWS.DeviceFarm.GetOfferingStatus: gosrsNextPeriod :: Lens' GetOfferingStatusResponse (HashMap Text OfferingStatus)
- Network.AWS.DeviceFarm.GetOfferingStatus: gosrsNextToken :: Lens' GetOfferingStatusResponse (Maybe Text)
- Network.AWS.DeviceFarm.GetOfferingStatus: gosrsResponseStatus :: Lens' GetOfferingStatusResponse Int
- Network.AWS.DeviceFarm.GetOfferingStatus: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetOfferingStatus.GetOfferingStatus
- Network.AWS.DeviceFarm.GetOfferingStatus: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetOfferingStatus.GetOfferingStatusResponse
- Network.AWS.DeviceFarm.GetOfferingStatus: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.GetOfferingStatus.GetOfferingStatus
- Network.AWS.DeviceFarm.GetOfferingStatus: instance Data.Data.Data Network.AWS.DeviceFarm.GetOfferingStatus.GetOfferingStatus
- Network.AWS.DeviceFarm.GetOfferingStatus: instance Data.Data.Data Network.AWS.DeviceFarm.GetOfferingStatus.GetOfferingStatusResponse
- Network.AWS.DeviceFarm.GetOfferingStatus: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.GetOfferingStatus.GetOfferingStatus
- Network.AWS.DeviceFarm.GetOfferingStatus: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetOfferingStatus.GetOfferingStatus
- Network.AWS.DeviceFarm.GetOfferingStatus: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetOfferingStatus.GetOfferingStatusResponse
- Network.AWS.DeviceFarm.GetOfferingStatus: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetOfferingStatus.GetOfferingStatus
- Network.AWS.DeviceFarm.GetOfferingStatus: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetOfferingStatus.GetOfferingStatusResponse
- Network.AWS.DeviceFarm.GetOfferingStatus: instance GHC.Read.Read Network.AWS.DeviceFarm.GetOfferingStatus.GetOfferingStatus
- Network.AWS.DeviceFarm.GetOfferingStatus: instance GHC.Read.Read Network.AWS.DeviceFarm.GetOfferingStatus.GetOfferingStatusResponse
- Network.AWS.DeviceFarm.GetOfferingStatus: instance GHC.Show.Show Network.AWS.DeviceFarm.GetOfferingStatus.GetOfferingStatus
- Network.AWS.DeviceFarm.GetOfferingStatus: instance GHC.Show.Show Network.AWS.DeviceFarm.GetOfferingStatus.GetOfferingStatusResponse
- Network.AWS.DeviceFarm.GetOfferingStatus: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.GetOfferingStatus.GetOfferingStatus
- Network.AWS.DeviceFarm.GetOfferingStatus: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.GetOfferingStatus.GetOfferingStatus
- Network.AWS.DeviceFarm.GetOfferingStatus: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.GetOfferingStatus.GetOfferingStatus
- Network.AWS.DeviceFarm.GetOfferingStatus: instance Network.AWS.Pager.AWSPager Network.AWS.DeviceFarm.GetOfferingStatus.GetOfferingStatus
- Network.AWS.DeviceFarm.GetOfferingStatus: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.GetOfferingStatus.GetOfferingStatus
- Network.AWS.DeviceFarm.GetProject: data GetProject
- Network.AWS.DeviceFarm.GetProject: data GetProjectResponse
- Network.AWS.DeviceFarm.GetProject: getProject :: Text -> GetProject
- Network.AWS.DeviceFarm.GetProject: getProjectResponse :: Int -> GetProjectResponse
- Network.AWS.DeviceFarm.GetProject: gpArn :: Lens' GetProject Text
- Network.AWS.DeviceFarm.GetProject: gprsProject :: Lens' GetProjectResponse (Maybe Project)
- Network.AWS.DeviceFarm.GetProject: gprsResponseStatus :: Lens' GetProjectResponse Int
- Network.AWS.DeviceFarm.GetProject: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetProject.GetProject
- Network.AWS.DeviceFarm.GetProject: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetProject.GetProjectResponse
- Network.AWS.DeviceFarm.GetProject: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.GetProject.GetProject
- Network.AWS.DeviceFarm.GetProject: instance Data.Data.Data Network.AWS.DeviceFarm.GetProject.GetProject
- Network.AWS.DeviceFarm.GetProject: instance Data.Data.Data Network.AWS.DeviceFarm.GetProject.GetProjectResponse
- Network.AWS.DeviceFarm.GetProject: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.GetProject.GetProject
- Network.AWS.DeviceFarm.GetProject: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetProject.GetProject
- Network.AWS.DeviceFarm.GetProject: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetProject.GetProjectResponse
- Network.AWS.DeviceFarm.GetProject: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetProject.GetProject
- Network.AWS.DeviceFarm.GetProject: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetProject.GetProjectResponse
- Network.AWS.DeviceFarm.GetProject: instance GHC.Read.Read Network.AWS.DeviceFarm.GetProject.GetProject
- Network.AWS.DeviceFarm.GetProject: instance GHC.Read.Read Network.AWS.DeviceFarm.GetProject.GetProjectResponse
- Network.AWS.DeviceFarm.GetProject: instance GHC.Show.Show Network.AWS.DeviceFarm.GetProject.GetProject
- Network.AWS.DeviceFarm.GetProject: instance GHC.Show.Show Network.AWS.DeviceFarm.GetProject.GetProjectResponse
- Network.AWS.DeviceFarm.GetProject: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.GetProject.GetProject
- Network.AWS.DeviceFarm.GetProject: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.GetProject.GetProject
- Network.AWS.DeviceFarm.GetProject: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.GetProject.GetProject
- Network.AWS.DeviceFarm.GetProject: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.GetProject.GetProject
- Network.AWS.DeviceFarm.GetRemoteAccessSession: data GetRemoteAccessSession
- Network.AWS.DeviceFarm.GetRemoteAccessSession: data GetRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.GetRemoteAccessSession: getRemoteAccessSession :: Text -> GetRemoteAccessSession
- Network.AWS.DeviceFarm.GetRemoteAccessSession: getRemoteAccessSessionResponse :: Int -> GetRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.GetRemoteAccessSession: grasArn :: Lens' GetRemoteAccessSession Text
- Network.AWS.DeviceFarm.GetRemoteAccessSession: grasrsRemoteAccessSession :: Lens' GetRemoteAccessSessionResponse (Maybe RemoteAccessSession)
- Network.AWS.DeviceFarm.GetRemoteAccessSession: grasrsResponseStatus :: Lens' GetRemoteAccessSessionResponse Int
- Network.AWS.DeviceFarm.GetRemoteAccessSession: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSession
- Network.AWS.DeviceFarm.GetRemoteAccessSession: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.GetRemoteAccessSession: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSession
- Network.AWS.DeviceFarm.GetRemoteAccessSession: instance Data.Data.Data Network.AWS.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSession
- Network.AWS.DeviceFarm.GetRemoteAccessSession: instance Data.Data.Data Network.AWS.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.GetRemoteAccessSession: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSession
- Network.AWS.DeviceFarm.GetRemoteAccessSession: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSession
- Network.AWS.DeviceFarm.GetRemoteAccessSession: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.GetRemoteAccessSession: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSession
- Network.AWS.DeviceFarm.GetRemoteAccessSession: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.GetRemoteAccessSession: instance GHC.Read.Read Network.AWS.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSession
- Network.AWS.DeviceFarm.GetRemoteAccessSession: instance GHC.Read.Read Network.AWS.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.GetRemoteAccessSession: instance GHC.Show.Show Network.AWS.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSession
- Network.AWS.DeviceFarm.GetRemoteAccessSession: instance GHC.Show.Show Network.AWS.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.GetRemoteAccessSession: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSession
- Network.AWS.DeviceFarm.GetRemoteAccessSession: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSession
- Network.AWS.DeviceFarm.GetRemoteAccessSession: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSession
- Network.AWS.DeviceFarm.GetRemoteAccessSession: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSession
- Network.AWS.DeviceFarm.GetRun: data GetRun
- Network.AWS.DeviceFarm.GetRun: data GetRunResponse
- Network.AWS.DeviceFarm.GetRun: getRun :: Text -> GetRun
- Network.AWS.DeviceFarm.GetRun: getRunResponse :: Int -> GetRunResponse
- Network.AWS.DeviceFarm.GetRun: grArn :: Lens' GetRun Text
- Network.AWS.DeviceFarm.GetRun: grrsResponseStatus :: Lens' GetRunResponse Int
- Network.AWS.DeviceFarm.GetRun: grrsRun :: Lens' GetRunResponse (Maybe Run)
- Network.AWS.DeviceFarm.GetRun: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetRun.GetRun
- Network.AWS.DeviceFarm.GetRun: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetRun.GetRunResponse
- Network.AWS.DeviceFarm.GetRun: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.GetRun.GetRun
- Network.AWS.DeviceFarm.GetRun: instance Data.Data.Data Network.AWS.DeviceFarm.GetRun.GetRun
- Network.AWS.DeviceFarm.GetRun: instance Data.Data.Data Network.AWS.DeviceFarm.GetRun.GetRunResponse
- Network.AWS.DeviceFarm.GetRun: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.GetRun.GetRun
- Network.AWS.DeviceFarm.GetRun: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetRun.GetRun
- Network.AWS.DeviceFarm.GetRun: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetRun.GetRunResponse
- Network.AWS.DeviceFarm.GetRun: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetRun.GetRun
- Network.AWS.DeviceFarm.GetRun: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetRun.GetRunResponse
- Network.AWS.DeviceFarm.GetRun: instance GHC.Read.Read Network.AWS.DeviceFarm.GetRun.GetRun
- Network.AWS.DeviceFarm.GetRun: instance GHC.Read.Read Network.AWS.DeviceFarm.GetRun.GetRunResponse
- Network.AWS.DeviceFarm.GetRun: instance GHC.Show.Show Network.AWS.DeviceFarm.GetRun.GetRun
- Network.AWS.DeviceFarm.GetRun: instance GHC.Show.Show Network.AWS.DeviceFarm.GetRun.GetRunResponse
- Network.AWS.DeviceFarm.GetRun: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.GetRun.GetRun
- Network.AWS.DeviceFarm.GetRun: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.GetRun.GetRun
- Network.AWS.DeviceFarm.GetRun: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.GetRun.GetRun
- Network.AWS.DeviceFarm.GetRun: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.GetRun.GetRun
- Network.AWS.DeviceFarm.GetSuite: data GetSuite
- Network.AWS.DeviceFarm.GetSuite: data GetSuiteResponse
- Network.AWS.DeviceFarm.GetSuite: getSuite :: Text -> GetSuite
- Network.AWS.DeviceFarm.GetSuite: getSuiteResponse :: Int -> GetSuiteResponse
- Network.AWS.DeviceFarm.GetSuite: gsArn :: Lens' GetSuite Text
- Network.AWS.DeviceFarm.GetSuite: gsrsResponseStatus :: Lens' GetSuiteResponse Int
- Network.AWS.DeviceFarm.GetSuite: gsrsSuite :: Lens' GetSuiteResponse (Maybe Suite)
- Network.AWS.DeviceFarm.GetSuite: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetSuite.GetSuite
- Network.AWS.DeviceFarm.GetSuite: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetSuite.GetSuiteResponse
- Network.AWS.DeviceFarm.GetSuite: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.GetSuite.GetSuite
- Network.AWS.DeviceFarm.GetSuite: instance Data.Data.Data Network.AWS.DeviceFarm.GetSuite.GetSuite
- Network.AWS.DeviceFarm.GetSuite: instance Data.Data.Data Network.AWS.DeviceFarm.GetSuite.GetSuiteResponse
- Network.AWS.DeviceFarm.GetSuite: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.GetSuite.GetSuite
- Network.AWS.DeviceFarm.GetSuite: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetSuite.GetSuite
- Network.AWS.DeviceFarm.GetSuite: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetSuite.GetSuiteResponse
- Network.AWS.DeviceFarm.GetSuite: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetSuite.GetSuite
- Network.AWS.DeviceFarm.GetSuite: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetSuite.GetSuiteResponse
- Network.AWS.DeviceFarm.GetSuite: instance GHC.Read.Read Network.AWS.DeviceFarm.GetSuite.GetSuite
- Network.AWS.DeviceFarm.GetSuite: instance GHC.Read.Read Network.AWS.DeviceFarm.GetSuite.GetSuiteResponse
- Network.AWS.DeviceFarm.GetSuite: instance GHC.Show.Show Network.AWS.DeviceFarm.GetSuite.GetSuite
- Network.AWS.DeviceFarm.GetSuite: instance GHC.Show.Show Network.AWS.DeviceFarm.GetSuite.GetSuiteResponse
- Network.AWS.DeviceFarm.GetSuite: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.GetSuite.GetSuite
- Network.AWS.DeviceFarm.GetSuite: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.GetSuite.GetSuite
- Network.AWS.DeviceFarm.GetSuite: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.GetSuite.GetSuite
- Network.AWS.DeviceFarm.GetSuite: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.GetSuite.GetSuite
- Network.AWS.DeviceFarm.GetTest: data GetTest
- Network.AWS.DeviceFarm.GetTest: data GetTestResponse
- Network.AWS.DeviceFarm.GetTest: getTest :: Text -> GetTest
- Network.AWS.DeviceFarm.GetTest: getTestResponse :: Int -> GetTestResponse
- Network.AWS.DeviceFarm.GetTest: gtArn :: Lens' GetTest Text
- Network.AWS.DeviceFarm.GetTest: gtrsResponseStatus :: Lens' GetTestResponse Int
- Network.AWS.DeviceFarm.GetTest: gtrsTest :: Lens' GetTestResponse (Maybe Test)
- Network.AWS.DeviceFarm.GetTest: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetTest.GetTest
- Network.AWS.DeviceFarm.GetTest: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetTest.GetTestResponse
- Network.AWS.DeviceFarm.GetTest: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.GetTest.GetTest
- Network.AWS.DeviceFarm.GetTest: instance Data.Data.Data Network.AWS.DeviceFarm.GetTest.GetTest
- Network.AWS.DeviceFarm.GetTest: instance Data.Data.Data Network.AWS.DeviceFarm.GetTest.GetTestResponse
- Network.AWS.DeviceFarm.GetTest: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.GetTest.GetTest
- Network.AWS.DeviceFarm.GetTest: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetTest.GetTest
- Network.AWS.DeviceFarm.GetTest: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetTest.GetTestResponse
- Network.AWS.DeviceFarm.GetTest: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetTest.GetTest
- Network.AWS.DeviceFarm.GetTest: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetTest.GetTestResponse
- Network.AWS.DeviceFarm.GetTest: instance GHC.Read.Read Network.AWS.DeviceFarm.GetTest.GetTest
- Network.AWS.DeviceFarm.GetTest: instance GHC.Read.Read Network.AWS.DeviceFarm.GetTest.GetTestResponse
- Network.AWS.DeviceFarm.GetTest: instance GHC.Show.Show Network.AWS.DeviceFarm.GetTest.GetTest
- Network.AWS.DeviceFarm.GetTest: instance GHC.Show.Show Network.AWS.DeviceFarm.GetTest.GetTestResponse
- Network.AWS.DeviceFarm.GetTest: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.GetTest.GetTest
- Network.AWS.DeviceFarm.GetTest: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.GetTest.GetTest
- Network.AWS.DeviceFarm.GetTest: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.GetTest.GetTest
- Network.AWS.DeviceFarm.GetTest: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.GetTest.GetTest
- Network.AWS.DeviceFarm.GetUpload: data GetUpload
- Network.AWS.DeviceFarm.GetUpload: data GetUploadResponse
- Network.AWS.DeviceFarm.GetUpload: getUpload :: Text -> GetUpload
- Network.AWS.DeviceFarm.GetUpload: getUploadResponse :: Int -> GetUploadResponse
- Network.AWS.DeviceFarm.GetUpload: guArn :: Lens' GetUpload Text
- Network.AWS.DeviceFarm.GetUpload: gursResponseStatus :: Lens' GetUploadResponse Int
- Network.AWS.DeviceFarm.GetUpload: gursUpload :: Lens' GetUploadResponse (Maybe Upload)
- Network.AWS.DeviceFarm.GetUpload: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetUpload.GetUpload
- Network.AWS.DeviceFarm.GetUpload: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetUpload.GetUploadResponse
- Network.AWS.DeviceFarm.GetUpload: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.GetUpload.GetUpload
- Network.AWS.DeviceFarm.GetUpload: instance Data.Data.Data Network.AWS.DeviceFarm.GetUpload.GetUpload
- Network.AWS.DeviceFarm.GetUpload: instance Data.Data.Data Network.AWS.DeviceFarm.GetUpload.GetUploadResponse
- Network.AWS.DeviceFarm.GetUpload: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.GetUpload.GetUpload
- Network.AWS.DeviceFarm.GetUpload: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetUpload.GetUpload
- Network.AWS.DeviceFarm.GetUpload: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetUpload.GetUploadResponse
- Network.AWS.DeviceFarm.GetUpload: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetUpload.GetUpload
- Network.AWS.DeviceFarm.GetUpload: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetUpload.GetUploadResponse
- Network.AWS.DeviceFarm.GetUpload: instance GHC.Read.Read Network.AWS.DeviceFarm.GetUpload.GetUpload
- Network.AWS.DeviceFarm.GetUpload: instance GHC.Read.Read Network.AWS.DeviceFarm.GetUpload.GetUploadResponse
- Network.AWS.DeviceFarm.GetUpload: instance GHC.Show.Show Network.AWS.DeviceFarm.GetUpload.GetUpload
- Network.AWS.DeviceFarm.GetUpload: instance GHC.Show.Show Network.AWS.DeviceFarm.GetUpload.GetUploadResponse
- Network.AWS.DeviceFarm.GetUpload: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.GetUpload.GetUpload
- Network.AWS.DeviceFarm.GetUpload: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.GetUpload.GetUpload
- Network.AWS.DeviceFarm.GetUpload: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.GetUpload.GetUpload
- Network.AWS.DeviceFarm.GetUpload: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.GetUpload.GetUpload
- Network.AWS.DeviceFarm.GetVPCEConfiguration: data GetVPCEConfiguration
- Network.AWS.DeviceFarm.GetVPCEConfiguration: data GetVPCEConfigurationResponse
- Network.AWS.DeviceFarm.GetVPCEConfiguration: getVPCEConfiguration :: Text -> GetVPCEConfiguration
- Network.AWS.DeviceFarm.GetVPCEConfiguration: getVPCEConfigurationResponse :: Int -> GetVPCEConfigurationResponse
- Network.AWS.DeviceFarm.GetVPCEConfiguration: gvecArn :: Lens' GetVPCEConfiguration Text
- Network.AWS.DeviceFarm.GetVPCEConfiguration: gvecrsResponseStatus :: Lens' GetVPCEConfigurationResponse Int
- Network.AWS.DeviceFarm.GetVPCEConfiguration: gvecrsVpceConfiguration :: Lens' GetVPCEConfigurationResponse (Maybe VPCEConfiguration)
- Network.AWS.DeviceFarm.GetVPCEConfiguration: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetVPCEConfiguration.GetVPCEConfiguration
- Network.AWS.DeviceFarm.GetVPCEConfiguration: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.GetVPCEConfiguration.GetVPCEConfigurationResponse
- Network.AWS.DeviceFarm.GetVPCEConfiguration: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.GetVPCEConfiguration.GetVPCEConfiguration
- Network.AWS.DeviceFarm.GetVPCEConfiguration: instance Data.Data.Data Network.AWS.DeviceFarm.GetVPCEConfiguration.GetVPCEConfiguration
- Network.AWS.DeviceFarm.GetVPCEConfiguration: instance Data.Data.Data Network.AWS.DeviceFarm.GetVPCEConfiguration.GetVPCEConfigurationResponse
- Network.AWS.DeviceFarm.GetVPCEConfiguration: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.GetVPCEConfiguration.GetVPCEConfiguration
- Network.AWS.DeviceFarm.GetVPCEConfiguration: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetVPCEConfiguration.GetVPCEConfiguration
- Network.AWS.DeviceFarm.GetVPCEConfiguration: instance GHC.Classes.Eq Network.AWS.DeviceFarm.GetVPCEConfiguration.GetVPCEConfigurationResponse
- Network.AWS.DeviceFarm.GetVPCEConfiguration: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetVPCEConfiguration.GetVPCEConfiguration
- Network.AWS.DeviceFarm.GetVPCEConfiguration: instance GHC.Generics.Generic Network.AWS.DeviceFarm.GetVPCEConfiguration.GetVPCEConfigurationResponse
- Network.AWS.DeviceFarm.GetVPCEConfiguration: instance GHC.Read.Read Network.AWS.DeviceFarm.GetVPCEConfiguration.GetVPCEConfiguration
- Network.AWS.DeviceFarm.GetVPCEConfiguration: instance GHC.Read.Read Network.AWS.DeviceFarm.GetVPCEConfiguration.GetVPCEConfigurationResponse
- Network.AWS.DeviceFarm.GetVPCEConfiguration: instance GHC.Show.Show Network.AWS.DeviceFarm.GetVPCEConfiguration.GetVPCEConfiguration
- Network.AWS.DeviceFarm.GetVPCEConfiguration: instance GHC.Show.Show Network.AWS.DeviceFarm.GetVPCEConfiguration.GetVPCEConfigurationResponse
- Network.AWS.DeviceFarm.GetVPCEConfiguration: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.GetVPCEConfiguration.GetVPCEConfiguration
- Network.AWS.DeviceFarm.GetVPCEConfiguration: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.GetVPCEConfiguration.GetVPCEConfiguration
- Network.AWS.DeviceFarm.GetVPCEConfiguration: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.GetVPCEConfiguration.GetVPCEConfiguration
- Network.AWS.DeviceFarm.GetVPCEConfiguration: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.GetVPCEConfiguration.GetVPCEConfiguration
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: data InstallToRemoteAccessSession
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: data InstallToRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: installToRemoteAccessSession :: Text -> Text -> InstallToRemoteAccessSession
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: installToRemoteAccessSessionResponse :: Int -> InstallToRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSession
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSession
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: instance Data.Data.Data Network.AWS.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSession
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: instance Data.Data.Data Network.AWS.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSession
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: instance GHC.Classes.Eq Network.AWS.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSession
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: instance GHC.Classes.Eq Network.AWS.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: instance GHC.Generics.Generic Network.AWS.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSession
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: instance GHC.Generics.Generic Network.AWS.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: instance GHC.Read.Read Network.AWS.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSession
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: instance GHC.Read.Read Network.AWS.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: instance GHC.Show.Show Network.AWS.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSession
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: instance GHC.Show.Show Network.AWS.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSession
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSession
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSession
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSession
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: itrasAppARN :: Lens' InstallToRemoteAccessSession Text
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: itrasRemoteAccessSessionARN :: Lens' InstallToRemoteAccessSession Text
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: itrasrsAppUpload :: Lens' InstallToRemoteAccessSessionResponse (Maybe Upload)
- Network.AWS.DeviceFarm.InstallToRemoteAccessSession: itrasrsResponseStatus :: Lens' InstallToRemoteAccessSessionResponse Int
- Network.AWS.DeviceFarm.ListArtifacts: data ListArtifacts
- Network.AWS.DeviceFarm.ListArtifacts: data ListArtifactsResponse
- Network.AWS.DeviceFarm.ListArtifacts: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListArtifacts.ListArtifacts
- Network.AWS.DeviceFarm.ListArtifacts: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListArtifacts.ListArtifactsResponse
- Network.AWS.DeviceFarm.ListArtifacts: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.ListArtifacts.ListArtifacts
- Network.AWS.DeviceFarm.ListArtifacts: instance Data.Data.Data Network.AWS.DeviceFarm.ListArtifacts.ListArtifacts
- Network.AWS.DeviceFarm.ListArtifacts: instance Data.Data.Data Network.AWS.DeviceFarm.ListArtifacts.ListArtifactsResponse
- Network.AWS.DeviceFarm.ListArtifacts: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.ListArtifacts.ListArtifacts
- Network.AWS.DeviceFarm.ListArtifacts: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListArtifacts.ListArtifacts
- Network.AWS.DeviceFarm.ListArtifacts: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListArtifacts.ListArtifactsResponse
- Network.AWS.DeviceFarm.ListArtifacts: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListArtifacts.ListArtifacts
- Network.AWS.DeviceFarm.ListArtifacts: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListArtifacts.ListArtifactsResponse
- Network.AWS.DeviceFarm.ListArtifacts: instance GHC.Read.Read Network.AWS.DeviceFarm.ListArtifacts.ListArtifacts
- Network.AWS.DeviceFarm.ListArtifacts: instance GHC.Read.Read Network.AWS.DeviceFarm.ListArtifacts.ListArtifactsResponse
- Network.AWS.DeviceFarm.ListArtifacts: instance GHC.Show.Show Network.AWS.DeviceFarm.ListArtifacts.ListArtifacts
- Network.AWS.DeviceFarm.ListArtifacts: instance GHC.Show.Show Network.AWS.DeviceFarm.ListArtifacts.ListArtifactsResponse
- Network.AWS.DeviceFarm.ListArtifacts: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.ListArtifacts.ListArtifacts
- Network.AWS.DeviceFarm.ListArtifacts: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.ListArtifacts.ListArtifacts
- Network.AWS.DeviceFarm.ListArtifacts: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.ListArtifacts.ListArtifacts
- Network.AWS.DeviceFarm.ListArtifacts: instance Network.AWS.Pager.AWSPager Network.AWS.DeviceFarm.ListArtifacts.ListArtifacts
- Network.AWS.DeviceFarm.ListArtifacts: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.ListArtifacts.ListArtifacts
- Network.AWS.DeviceFarm.ListArtifacts: laArn :: Lens' ListArtifacts Text
- Network.AWS.DeviceFarm.ListArtifacts: laNextToken :: Lens' ListArtifacts (Maybe Text)
- Network.AWS.DeviceFarm.ListArtifacts: laType :: Lens' ListArtifacts ArtifactCategory
- Network.AWS.DeviceFarm.ListArtifacts: larsArtifacts :: Lens' ListArtifactsResponse [Artifact]
- Network.AWS.DeviceFarm.ListArtifacts: larsNextToken :: Lens' ListArtifactsResponse (Maybe Text)
- Network.AWS.DeviceFarm.ListArtifacts: larsResponseStatus :: Lens' ListArtifactsResponse Int
- Network.AWS.DeviceFarm.ListArtifacts: listArtifacts :: Text -> ArtifactCategory -> ListArtifacts
- Network.AWS.DeviceFarm.ListArtifacts: listArtifactsResponse :: Int -> ListArtifactsResponse
- Network.AWS.DeviceFarm.ListDeviceInstances: data ListDeviceInstances
- Network.AWS.DeviceFarm.ListDeviceInstances: data ListDeviceInstancesResponse
- Network.AWS.DeviceFarm.ListDeviceInstances: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListDeviceInstances.ListDeviceInstances
- Network.AWS.DeviceFarm.ListDeviceInstances: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListDeviceInstances.ListDeviceInstancesResponse
- Network.AWS.DeviceFarm.ListDeviceInstances: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.ListDeviceInstances.ListDeviceInstances
- Network.AWS.DeviceFarm.ListDeviceInstances: instance Data.Data.Data Network.AWS.DeviceFarm.ListDeviceInstances.ListDeviceInstances
- Network.AWS.DeviceFarm.ListDeviceInstances: instance Data.Data.Data Network.AWS.DeviceFarm.ListDeviceInstances.ListDeviceInstancesResponse
- Network.AWS.DeviceFarm.ListDeviceInstances: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.ListDeviceInstances.ListDeviceInstances
- Network.AWS.DeviceFarm.ListDeviceInstances: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListDeviceInstances.ListDeviceInstances
- Network.AWS.DeviceFarm.ListDeviceInstances: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListDeviceInstances.ListDeviceInstancesResponse
- Network.AWS.DeviceFarm.ListDeviceInstances: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListDeviceInstances.ListDeviceInstances
- Network.AWS.DeviceFarm.ListDeviceInstances: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListDeviceInstances.ListDeviceInstancesResponse
- Network.AWS.DeviceFarm.ListDeviceInstances: instance GHC.Read.Read Network.AWS.DeviceFarm.ListDeviceInstances.ListDeviceInstances
- Network.AWS.DeviceFarm.ListDeviceInstances: instance GHC.Read.Read Network.AWS.DeviceFarm.ListDeviceInstances.ListDeviceInstancesResponse
- Network.AWS.DeviceFarm.ListDeviceInstances: instance GHC.Show.Show Network.AWS.DeviceFarm.ListDeviceInstances.ListDeviceInstances
- Network.AWS.DeviceFarm.ListDeviceInstances: instance GHC.Show.Show Network.AWS.DeviceFarm.ListDeviceInstances.ListDeviceInstancesResponse
- Network.AWS.DeviceFarm.ListDeviceInstances: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.ListDeviceInstances.ListDeviceInstances
- Network.AWS.DeviceFarm.ListDeviceInstances: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.ListDeviceInstances.ListDeviceInstances
- Network.AWS.DeviceFarm.ListDeviceInstances: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.ListDeviceInstances.ListDeviceInstances
- Network.AWS.DeviceFarm.ListDeviceInstances: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.ListDeviceInstances.ListDeviceInstances
- Network.AWS.DeviceFarm.ListDeviceInstances: ldiMaxResults :: Lens' ListDeviceInstances (Maybe Int)
- Network.AWS.DeviceFarm.ListDeviceInstances: ldiNextToken :: Lens' ListDeviceInstances (Maybe Text)
- Network.AWS.DeviceFarm.ListDeviceInstances: ldirsDeviceInstances :: Lens' ListDeviceInstancesResponse [DeviceInstance]
- Network.AWS.DeviceFarm.ListDeviceInstances: ldirsNextToken :: Lens' ListDeviceInstancesResponse (Maybe Text)
- Network.AWS.DeviceFarm.ListDeviceInstances: ldirsResponseStatus :: Lens' ListDeviceInstancesResponse Int
- Network.AWS.DeviceFarm.ListDeviceInstances: listDeviceInstances :: ListDeviceInstances
- Network.AWS.DeviceFarm.ListDeviceInstances: listDeviceInstancesResponse :: Int -> ListDeviceInstancesResponse
- Network.AWS.DeviceFarm.ListDevicePools: data ListDevicePools
- Network.AWS.DeviceFarm.ListDevicePools: data ListDevicePoolsResponse
- Network.AWS.DeviceFarm.ListDevicePools: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListDevicePools.ListDevicePools
- Network.AWS.DeviceFarm.ListDevicePools: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListDevicePools.ListDevicePoolsResponse
- Network.AWS.DeviceFarm.ListDevicePools: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.ListDevicePools.ListDevicePools
- Network.AWS.DeviceFarm.ListDevicePools: instance Data.Data.Data Network.AWS.DeviceFarm.ListDevicePools.ListDevicePools
- Network.AWS.DeviceFarm.ListDevicePools: instance Data.Data.Data Network.AWS.DeviceFarm.ListDevicePools.ListDevicePoolsResponse
- Network.AWS.DeviceFarm.ListDevicePools: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.ListDevicePools.ListDevicePools
- Network.AWS.DeviceFarm.ListDevicePools: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListDevicePools.ListDevicePools
- Network.AWS.DeviceFarm.ListDevicePools: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListDevicePools.ListDevicePoolsResponse
- Network.AWS.DeviceFarm.ListDevicePools: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListDevicePools.ListDevicePools
- Network.AWS.DeviceFarm.ListDevicePools: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListDevicePools.ListDevicePoolsResponse
- Network.AWS.DeviceFarm.ListDevicePools: instance GHC.Read.Read Network.AWS.DeviceFarm.ListDevicePools.ListDevicePools
- Network.AWS.DeviceFarm.ListDevicePools: instance GHC.Read.Read Network.AWS.DeviceFarm.ListDevicePools.ListDevicePoolsResponse
- Network.AWS.DeviceFarm.ListDevicePools: instance GHC.Show.Show Network.AWS.DeviceFarm.ListDevicePools.ListDevicePools
- Network.AWS.DeviceFarm.ListDevicePools: instance GHC.Show.Show Network.AWS.DeviceFarm.ListDevicePools.ListDevicePoolsResponse
- Network.AWS.DeviceFarm.ListDevicePools: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.ListDevicePools.ListDevicePools
- Network.AWS.DeviceFarm.ListDevicePools: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.ListDevicePools.ListDevicePools
- Network.AWS.DeviceFarm.ListDevicePools: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.ListDevicePools.ListDevicePools
- Network.AWS.DeviceFarm.ListDevicePools: instance Network.AWS.Pager.AWSPager Network.AWS.DeviceFarm.ListDevicePools.ListDevicePools
- Network.AWS.DeviceFarm.ListDevicePools: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.ListDevicePools.ListDevicePools
- Network.AWS.DeviceFarm.ListDevicePools: ldpArn :: Lens' ListDevicePools Text
- Network.AWS.DeviceFarm.ListDevicePools: ldpNextToken :: Lens' ListDevicePools (Maybe Text)
- Network.AWS.DeviceFarm.ListDevicePools: ldpType :: Lens' ListDevicePools (Maybe DevicePoolType)
- Network.AWS.DeviceFarm.ListDevicePools: ldprsDevicePools :: Lens' ListDevicePoolsResponse [DevicePool]
- Network.AWS.DeviceFarm.ListDevicePools: ldprsNextToken :: Lens' ListDevicePoolsResponse (Maybe Text)
- Network.AWS.DeviceFarm.ListDevicePools: ldprsResponseStatus :: Lens' ListDevicePoolsResponse Int
- Network.AWS.DeviceFarm.ListDevicePools: listDevicePools :: Text -> ListDevicePools
- Network.AWS.DeviceFarm.ListDevicePools: listDevicePoolsResponse :: Int -> ListDevicePoolsResponse
- Network.AWS.DeviceFarm.ListDevices: data ListDevices
- Network.AWS.DeviceFarm.ListDevices: data ListDevicesResponse
- Network.AWS.DeviceFarm.ListDevices: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListDevices.ListDevices
- Network.AWS.DeviceFarm.ListDevices: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListDevices.ListDevicesResponse
- Network.AWS.DeviceFarm.ListDevices: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.ListDevices.ListDevices
- Network.AWS.DeviceFarm.ListDevices: instance Data.Data.Data Network.AWS.DeviceFarm.ListDevices.ListDevices
- Network.AWS.DeviceFarm.ListDevices: instance Data.Data.Data Network.AWS.DeviceFarm.ListDevices.ListDevicesResponse
- Network.AWS.DeviceFarm.ListDevices: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.ListDevices.ListDevices
- Network.AWS.DeviceFarm.ListDevices: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListDevices.ListDevices
- Network.AWS.DeviceFarm.ListDevices: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListDevices.ListDevicesResponse
- Network.AWS.DeviceFarm.ListDevices: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListDevices.ListDevices
- Network.AWS.DeviceFarm.ListDevices: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListDevices.ListDevicesResponse
- Network.AWS.DeviceFarm.ListDevices: instance GHC.Read.Read Network.AWS.DeviceFarm.ListDevices.ListDevices
- Network.AWS.DeviceFarm.ListDevices: instance GHC.Read.Read Network.AWS.DeviceFarm.ListDevices.ListDevicesResponse
- Network.AWS.DeviceFarm.ListDevices: instance GHC.Show.Show Network.AWS.DeviceFarm.ListDevices.ListDevices
- Network.AWS.DeviceFarm.ListDevices: instance GHC.Show.Show Network.AWS.DeviceFarm.ListDevices.ListDevicesResponse
- Network.AWS.DeviceFarm.ListDevices: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.ListDevices.ListDevices
- Network.AWS.DeviceFarm.ListDevices: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.ListDevices.ListDevices
- Network.AWS.DeviceFarm.ListDevices: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.ListDevices.ListDevices
- Network.AWS.DeviceFarm.ListDevices: instance Network.AWS.Pager.AWSPager Network.AWS.DeviceFarm.ListDevices.ListDevices
- Network.AWS.DeviceFarm.ListDevices: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.ListDevices.ListDevices
- Network.AWS.DeviceFarm.ListDevices: ldArn :: Lens' ListDevices (Maybe Text)
- Network.AWS.DeviceFarm.ListDevices: ldNextToken :: Lens' ListDevices (Maybe Text)
- Network.AWS.DeviceFarm.ListDevices: ldrsDevices :: Lens' ListDevicesResponse [Device]
- Network.AWS.DeviceFarm.ListDevices: ldrsNextToken :: Lens' ListDevicesResponse (Maybe Text)
- Network.AWS.DeviceFarm.ListDevices: ldrsResponseStatus :: Lens' ListDevicesResponse Int
- Network.AWS.DeviceFarm.ListDevices: listDevices :: ListDevices
- Network.AWS.DeviceFarm.ListDevices: listDevicesResponse :: Int -> ListDevicesResponse
- Network.AWS.DeviceFarm.ListInstanceProfiles: data ListInstanceProfiles
- Network.AWS.DeviceFarm.ListInstanceProfiles: data ListInstanceProfilesResponse
- Network.AWS.DeviceFarm.ListInstanceProfiles: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListInstanceProfiles.ListInstanceProfiles
- Network.AWS.DeviceFarm.ListInstanceProfiles: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListInstanceProfiles.ListInstanceProfilesResponse
- Network.AWS.DeviceFarm.ListInstanceProfiles: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.ListInstanceProfiles.ListInstanceProfiles
- Network.AWS.DeviceFarm.ListInstanceProfiles: instance Data.Data.Data Network.AWS.DeviceFarm.ListInstanceProfiles.ListInstanceProfiles
- Network.AWS.DeviceFarm.ListInstanceProfiles: instance Data.Data.Data Network.AWS.DeviceFarm.ListInstanceProfiles.ListInstanceProfilesResponse
- Network.AWS.DeviceFarm.ListInstanceProfiles: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.ListInstanceProfiles.ListInstanceProfiles
- Network.AWS.DeviceFarm.ListInstanceProfiles: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListInstanceProfiles.ListInstanceProfiles
- Network.AWS.DeviceFarm.ListInstanceProfiles: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListInstanceProfiles.ListInstanceProfilesResponse
- Network.AWS.DeviceFarm.ListInstanceProfiles: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListInstanceProfiles.ListInstanceProfiles
- Network.AWS.DeviceFarm.ListInstanceProfiles: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListInstanceProfiles.ListInstanceProfilesResponse
- Network.AWS.DeviceFarm.ListInstanceProfiles: instance GHC.Read.Read Network.AWS.DeviceFarm.ListInstanceProfiles.ListInstanceProfiles
- Network.AWS.DeviceFarm.ListInstanceProfiles: instance GHC.Read.Read Network.AWS.DeviceFarm.ListInstanceProfiles.ListInstanceProfilesResponse
- Network.AWS.DeviceFarm.ListInstanceProfiles: instance GHC.Show.Show Network.AWS.DeviceFarm.ListInstanceProfiles.ListInstanceProfiles
- Network.AWS.DeviceFarm.ListInstanceProfiles: instance GHC.Show.Show Network.AWS.DeviceFarm.ListInstanceProfiles.ListInstanceProfilesResponse
- Network.AWS.DeviceFarm.ListInstanceProfiles: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.ListInstanceProfiles.ListInstanceProfiles
- Network.AWS.DeviceFarm.ListInstanceProfiles: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.ListInstanceProfiles.ListInstanceProfiles
- Network.AWS.DeviceFarm.ListInstanceProfiles: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.ListInstanceProfiles.ListInstanceProfiles
- Network.AWS.DeviceFarm.ListInstanceProfiles: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.ListInstanceProfiles.ListInstanceProfiles
- Network.AWS.DeviceFarm.ListInstanceProfiles: lipMaxResults :: Lens' ListInstanceProfiles (Maybe Int)
- Network.AWS.DeviceFarm.ListInstanceProfiles: lipNextToken :: Lens' ListInstanceProfiles (Maybe Text)
- Network.AWS.DeviceFarm.ListInstanceProfiles: liprsInstanceProfiles :: Lens' ListInstanceProfilesResponse [InstanceProfile]
- Network.AWS.DeviceFarm.ListInstanceProfiles: liprsNextToken :: Lens' ListInstanceProfilesResponse (Maybe Text)
- Network.AWS.DeviceFarm.ListInstanceProfiles: liprsResponseStatus :: Lens' ListInstanceProfilesResponse Int
- Network.AWS.DeviceFarm.ListInstanceProfiles: listInstanceProfiles :: ListInstanceProfiles
- Network.AWS.DeviceFarm.ListInstanceProfiles: listInstanceProfilesResponse :: Int -> ListInstanceProfilesResponse
- Network.AWS.DeviceFarm.ListJobs: data ListJobs
- Network.AWS.DeviceFarm.ListJobs: data ListJobsResponse
- Network.AWS.DeviceFarm.ListJobs: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListJobs.ListJobs
- Network.AWS.DeviceFarm.ListJobs: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListJobs.ListJobsResponse
- Network.AWS.DeviceFarm.ListJobs: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.ListJobs.ListJobs
- Network.AWS.DeviceFarm.ListJobs: instance Data.Data.Data Network.AWS.DeviceFarm.ListJobs.ListJobs
- Network.AWS.DeviceFarm.ListJobs: instance Data.Data.Data Network.AWS.DeviceFarm.ListJobs.ListJobsResponse
- Network.AWS.DeviceFarm.ListJobs: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.ListJobs.ListJobs
- Network.AWS.DeviceFarm.ListJobs: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListJobs.ListJobs
- Network.AWS.DeviceFarm.ListJobs: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListJobs.ListJobsResponse
- Network.AWS.DeviceFarm.ListJobs: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListJobs.ListJobs
- Network.AWS.DeviceFarm.ListJobs: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListJobs.ListJobsResponse
- Network.AWS.DeviceFarm.ListJobs: instance GHC.Read.Read Network.AWS.DeviceFarm.ListJobs.ListJobs
- Network.AWS.DeviceFarm.ListJobs: instance GHC.Read.Read Network.AWS.DeviceFarm.ListJobs.ListJobsResponse
- Network.AWS.DeviceFarm.ListJobs: instance GHC.Show.Show Network.AWS.DeviceFarm.ListJobs.ListJobs
- Network.AWS.DeviceFarm.ListJobs: instance GHC.Show.Show Network.AWS.DeviceFarm.ListJobs.ListJobsResponse
- Network.AWS.DeviceFarm.ListJobs: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.ListJobs.ListJobs
- Network.AWS.DeviceFarm.ListJobs: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.ListJobs.ListJobs
- Network.AWS.DeviceFarm.ListJobs: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.ListJobs.ListJobs
- Network.AWS.DeviceFarm.ListJobs: instance Network.AWS.Pager.AWSPager Network.AWS.DeviceFarm.ListJobs.ListJobs
- Network.AWS.DeviceFarm.ListJobs: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.ListJobs.ListJobs
- Network.AWS.DeviceFarm.ListJobs: listJobs :: Text -> ListJobs
- Network.AWS.DeviceFarm.ListJobs: listJobsResponse :: Int -> ListJobsResponse
- Network.AWS.DeviceFarm.ListJobs: ljArn :: Lens' ListJobs Text
- Network.AWS.DeviceFarm.ListJobs: ljNextToken :: Lens' ListJobs (Maybe Text)
- Network.AWS.DeviceFarm.ListJobs: ljrsJobs :: Lens' ListJobsResponse [Job]
- Network.AWS.DeviceFarm.ListJobs: ljrsNextToken :: Lens' ListJobsResponse (Maybe Text)
- Network.AWS.DeviceFarm.ListJobs: ljrsResponseStatus :: Lens' ListJobsResponse Int
- Network.AWS.DeviceFarm.ListNetworkProfiles: data ListNetworkProfiles
- Network.AWS.DeviceFarm.ListNetworkProfiles: data ListNetworkProfilesResponse
- Network.AWS.DeviceFarm.ListNetworkProfiles: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListNetworkProfiles.ListNetworkProfiles
- Network.AWS.DeviceFarm.ListNetworkProfiles: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListNetworkProfiles.ListNetworkProfilesResponse
- Network.AWS.DeviceFarm.ListNetworkProfiles: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.ListNetworkProfiles.ListNetworkProfiles
- Network.AWS.DeviceFarm.ListNetworkProfiles: instance Data.Data.Data Network.AWS.DeviceFarm.ListNetworkProfiles.ListNetworkProfiles
- Network.AWS.DeviceFarm.ListNetworkProfiles: instance Data.Data.Data Network.AWS.DeviceFarm.ListNetworkProfiles.ListNetworkProfilesResponse
- Network.AWS.DeviceFarm.ListNetworkProfiles: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.ListNetworkProfiles.ListNetworkProfiles
- Network.AWS.DeviceFarm.ListNetworkProfiles: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListNetworkProfiles.ListNetworkProfiles
- Network.AWS.DeviceFarm.ListNetworkProfiles: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListNetworkProfiles.ListNetworkProfilesResponse
- Network.AWS.DeviceFarm.ListNetworkProfiles: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListNetworkProfiles.ListNetworkProfiles
- Network.AWS.DeviceFarm.ListNetworkProfiles: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListNetworkProfiles.ListNetworkProfilesResponse
- Network.AWS.DeviceFarm.ListNetworkProfiles: instance GHC.Read.Read Network.AWS.DeviceFarm.ListNetworkProfiles.ListNetworkProfiles
- Network.AWS.DeviceFarm.ListNetworkProfiles: instance GHC.Read.Read Network.AWS.DeviceFarm.ListNetworkProfiles.ListNetworkProfilesResponse
- Network.AWS.DeviceFarm.ListNetworkProfiles: instance GHC.Show.Show Network.AWS.DeviceFarm.ListNetworkProfiles.ListNetworkProfiles
- Network.AWS.DeviceFarm.ListNetworkProfiles: instance GHC.Show.Show Network.AWS.DeviceFarm.ListNetworkProfiles.ListNetworkProfilesResponse
- Network.AWS.DeviceFarm.ListNetworkProfiles: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.ListNetworkProfiles.ListNetworkProfiles
- Network.AWS.DeviceFarm.ListNetworkProfiles: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.ListNetworkProfiles.ListNetworkProfiles
- Network.AWS.DeviceFarm.ListNetworkProfiles: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.ListNetworkProfiles.ListNetworkProfiles
- Network.AWS.DeviceFarm.ListNetworkProfiles: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.ListNetworkProfiles.ListNetworkProfiles
- Network.AWS.DeviceFarm.ListNetworkProfiles: listNetworkProfiles :: Text -> ListNetworkProfiles
- Network.AWS.DeviceFarm.ListNetworkProfiles: listNetworkProfilesResponse :: Int -> ListNetworkProfilesResponse
- Network.AWS.DeviceFarm.ListNetworkProfiles: lnpArn :: Lens' ListNetworkProfiles Text
- Network.AWS.DeviceFarm.ListNetworkProfiles: lnpNextToken :: Lens' ListNetworkProfiles (Maybe Text)
- Network.AWS.DeviceFarm.ListNetworkProfiles: lnpType :: Lens' ListNetworkProfiles (Maybe NetworkProfileType)
- Network.AWS.DeviceFarm.ListNetworkProfiles: lnprsNetworkProfiles :: Lens' ListNetworkProfilesResponse [NetworkProfile]
- Network.AWS.DeviceFarm.ListNetworkProfiles: lnprsNextToken :: Lens' ListNetworkProfilesResponse (Maybe Text)
- Network.AWS.DeviceFarm.ListNetworkProfiles: lnprsResponseStatus :: Lens' ListNetworkProfilesResponse Int
- Network.AWS.DeviceFarm.ListOfferingPromotions: data ListOfferingPromotions
- Network.AWS.DeviceFarm.ListOfferingPromotions: data ListOfferingPromotionsResponse
- Network.AWS.DeviceFarm.ListOfferingPromotions: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListOfferingPromotions.ListOfferingPromotions
- Network.AWS.DeviceFarm.ListOfferingPromotions: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListOfferingPromotions.ListOfferingPromotionsResponse
- Network.AWS.DeviceFarm.ListOfferingPromotions: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.ListOfferingPromotions.ListOfferingPromotions
- Network.AWS.DeviceFarm.ListOfferingPromotions: instance Data.Data.Data Network.AWS.DeviceFarm.ListOfferingPromotions.ListOfferingPromotions
- Network.AWS.DeviceFarm.ListOfferingPromotions: instance Data.Data.Data Network.AWS.DeviceFarm.ListOfferingPromotions.ListOfferingPromotionsResponse
- Network.AWS.DeviceFarm.ListOfferingPromotions: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.ListOfferingPromotions.ListOfferingPromotions
- Network.AWS.DeviceFarm.ListOfferingPromotions: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListOfferingPromotions.ListOfferingPromotions
- Network.AWS.DeviceFarm.ListOfferingPromotions: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListOfferingPromotions.ListOfferingPromotionsResponse
- Network.AWS.DeviceFarm.ListOfferingPromotions: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListOfferingPromotions.ListOfferingPromotions
- Network.AWS.DeviceFarm.ListOfferingPromotions: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListOfferingPromotions.ListOfferingPromotionsResponse
- Network.AWS.DeviceFarm.ListOfferingPromotions: instance GHC.Read.Read Network.AWS.DeviceFarm.ListOfferingPromotions.ListOfferingPromotions
- Network.AWS.DeviceFarm.ListOfferingPromotions: instance GHC.Read.Read Network.AWS.DeviceFarm.ListOfferingPromotions.ListOfferingPromotionsResponse
- Network.AWS.DeviceFarm.ListOfferingPromotions: instance GHC.Show.Show Network.AWS.DeviceFarm.ListOfferingPromotions.ListOfferingPromotions
- Network.AWS.DeviceFarm.ListOfferingPromotions: instance GHC.Show.Show Network.AWS.DeviceFarm.ListOfferingPromotions.ListOfferingPromotionsResponse
- Network.AWS.DeviceFarm.ListOfferingPromotions: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.ListOfferingPromotions.ListOfferingPromotions
- Network.AWS.DeviceFarm.ListOfferingPromotions: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.ListOfferingPromotions.ListOfferingPromotions
- Network.AWS.DeviceFarm.ListOfferingPromotions: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.ListOfferingPromotions.ListOfferingPromotions
- Network.AWS.DeviceFarm.ListOfferingPromotions: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.ListOfferingPromotions.ListOfferingPromotions
- Network.AWS.DeviceFarm.ListOfferingPromotions: listOfferingPromotions :: ListOfferingPromotions
- Network.AWS.DeviceFarm.ListOfferingPromotions: listOfferingPromotionsResponse :: Int -> ListOfferingPromotionsResponse
- Network.AWS.DeviceFarm.ListOfferingPromotions: lopNextToken :: Lens' ListOfferingPromotions (Maybe Text)
- Network.AWS.DeviceFarm.ListOfferingPromotions: loprsNextToken :: Lens' ListOfferingPromotionsResponse (Maybe Text)
- Network.AWS.DeviceFarm.ListOfferingPromotions: loprsOfferingPromotions :: Lens' ListOfferingPromotionsResponse [OfferingPromotion]
- Network.AWS.DeviceFarm.ListOfferingPromotions: loprsResponseStatus :: Lens' ListOfferingPromotionsResponse Int
- Network.AWS.DeviceFarm.ListOfferingTransactions: data ListOfferingTransactions
- Network.AWS.DeviceFarm.ListOfferingTransactions: data ListOfferingTransactionsResponse
- Network.AWS.DeviceFarm.ListOfferingTransactions: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
- Network.AWS.DeviceFarm.ListOfferingTransactions: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListOfferingTransactions.ListOfferingTransactionsResponse
- Network.AWS.DeviceFarm.ListOfferingTransactions: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
- Network.AWS.DeviceFarm.ListOfferingTransactions: instance Data.Data.Data Network.AWS.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
- Network.AWS.DeviceFarm.ListOfferingTransactions: instance Data.Data.Data Network.AWS.DeviceFarm.ListOfferingTransactions.ListOfferingTransactionsResponse
- Network.AWS.DeviceFarm.ListOfferingTransactions: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
- Network.AWS.DeviceFarm.ListOfferingTransactions: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
- Network.AWS.DeviceFarm.ListOfferingTransactions: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListOfferingTransactions.ListOfferingTransactionsResponse
- Network.AWS.DeviceFarm.ListOfferingTransactions: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
- Network.AWS.DeviceFarm.ListOfferingTransactions: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListOfferingTransactions.ListOfferingTransactionsResponse
- Network.AWS.DeviceFarm.ListOfferingTransactions: instance GHC.Read.Read Network.AWS.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
- Network.AWS.DeviceFarm.ListOfferingTransactions: instance GHC.Read.Read Network.AWS.DeviceFarm.ListOfferingTransactions.ListOfferingTransactionsResponse
- Network.AWS.DeviceFarm.ListOfferingTransactions: instance GHC.Show.Show Network.AWS.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
- Network.AWS.DeviceFarm.ListOfferingTransactions: instance GHC.Show.Show Network.AWS.DeviceFarm.ListOfferingTransactions.ListOfferingTransactionsResponse
- Network.AWS.DeviceFarm.ListOfferingTransactions: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
- Network.AWS.DeviceFarm.ListOfferingTransactions: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
- Network.AWS.DeviceFarm.ListOfferingTransactions: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
- Network.AWS.DeviceFarm.ListOfferingTransactions: instance Network.AWS.Pager.AWSPager Network.AWS.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
- Network.AWS.DeviceFarm.ListOfferingTransactions: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
- Network.AWS.DeviceFarm.ListOfferingTransactions: listOfferingTransactions :: ListOfferingTransactions
- Network.AWS.DeviceFarm.ListOfferingTransactions: listOfferingTransactionsResponse :: Int -> ListOfferingTransactionsResponse
- Network.AWS.DeviceFarm.ListOfferingTransactions: lotNextToken :: Lens' ListOfferingTransactions (Maybe Text)
- Network.AWS.DeviceFarm.ListOfferingTransactions: lotrsNextToken :: Lens' ListOfferingTransactionsResponse (Maybe Text)
- Network.AWS.DeviceFarm.ListOfferingTransactions: lotrsOfferingTransactions :: Lens' ListOfferingTransactionsResponse [OfferingTransaction]
- Network.AWS.DeviceFarm.ListOfferingTransactions: lotrsResponseStatus :: Lens' ListOfferingTransactionsResponse Int
- Network.AWS.DeviceFarm.ListOfferings: data ListOfferings
- Network.AWS.DeviceFarm.ListOfferings: data ListOfferingsResponse
- Network.AWS.DeviceFarm.ListOfferings: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListOfferings.ListOfferings
- Network.AWS.DeviceFarm.ListOfferings: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListOfferings.ListOfferingsResponse
- Network.AWS.DeviceFarm.ListOfferings: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.ListOfferings.ListOfferings
- Network.AWS.DeviceFarm.ListOfferings: instance Data.Data.Data Network.AWS.DeviceFarm.ListOfferings.ListOfferings
- Network.AWS.DeviceFarm.ListOfferings: instance Data.Data.Data Network.AWS.DeviceFarm.ListOfferings.ListOfferingsResponse
- Network.AWS.DeviceFarm.ListOfferings: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.ListOfferings.ListOfferings
- Network.AWS.DeviceFarm.ListOfferings: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListOfferings.ListOfferings
- Network.AWS.DeviceFarm.ListOfferings: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListOfferings.ListOfferingsResponse
- Network.AWS.DeviceFarm.ListOfferings: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListOfferings.ListOfferings
- Network.AWS.DeviceFarm.ListOfferings: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListOfferings.ListOfferingsResponse
- Network.AWS.DeviceFarm.ListOfferings: instance GHC.Read.Read Network.AWS.DeviceFarm.ListOfferings.ListOfferings
- Network.AWS.DeviceFarm.ListOfferings: instance GHC.Read.Read Network.AWS.DeviceFarm.ListOfferings.ListOfferingsResponse
- Network.AWS.DeviceFarm.ListOfferings: instance GHC.Show.Show Network.AWS.DeviceFarm.ListOfferings.ListOfferings
- Network.AWS.DeviceFarm.ListOfferings: instance GHC.Show.Show Network.AWS.DeviceFarm.ListOfferings.ListOfferingsResponse
- Network.AWS.DeviceFarm.ListOfferings: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.ListOfferings.ListOfferings
- Network.AWS.DeviceFarm.ListOfferings: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.ListOfferings.ListOfferings
- Network.AWS.DeviceFarm.ListOfferings: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.ListOfferings.ListOfferings
- Network.AWS.DeviceFarm.ListOfferings: instance Network.AWS.Pager.AWSPager Network.AWS.DeviceFarm.ListOfferings.ListOfferings
- Network.AWS.DeviceFarm.ListOfferings: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.ListOfferings.ListOfferings
- Network.AWS.DeviceFarm.ListOfferings: listOfferings :: ListOfferings
- Network.AWS.DeviceFarm.ListOfferings: listOfferingsResponse :: Int -> ListOfferingsResponse
- Network.AWS.DeviceFarm.ListOfferings: loNextToken :: Lens' ListOfferings (Maybe Text)
- Network.AWS.DeviceFarm.ListOfferings: lorsNextToken :: Lens' ListOfferingsResponse (Maybe Text)
- Network.AWS.DeviceFarm.ListOfferings: lorsOfferings :: Lens' ListOfferingsResponse [Offering]
- Network.AWS.DeviceFarm.ListOfferings: lorsResponseStatus :: Lens' ListOfferingsResponse Int
- Network.AWS.DeviceFarm.ListProjects: data ListProjects
- Network.AWS.DeviceFarm.ListProjects: data ListProjectsResponse
- Network.AWS.DeviceFarm.ListProjects: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListProjects.ListProjects
- Network.AWS.DeviceFarm.ListProjects: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListProjects.ListProjectsResponse
- Network.AWS.DeviceFarm.ListProjects: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.ListProjects.ListProjects
- Network.AWS.DeviceFarm.ListProjects: instance Data.Data.Data Network.AWS.DeviceFarm.ListProjects.ListProjects
- Network.AWS.DeviceFarm.ListProjects: instance Data.Data.Data Network.AWS.DeviceFarm.ListProjects.ListProjectsResponse
- Network.AWS.DeviceFarm.ListProjects: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.ListProjects.ListProjects
- Network.AWS.DeviceFarm.ListProjects: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListProjects.ListProjects
- Network.AWS.DeviceFarm.ListProjects: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListProjects.ListProjectsResponse
- Network.AWS.DeviceFarm.ListProjects: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListProjects.ListProjects
- Network.AWS.DeviceFarm.ListProjects: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListProjects.ListProjectsResponse
- Network.AWS.DeviceFarm.ListProjects: instance GHC.Read.Read Network.AWS.DeviceFarm.ListProjects.ListProjects
- Network.AWS.DeviceFarm.ListProjects: instance GHC.Read.Read Network.AWS.DeviceFarm.ListProjects.ListProjectsResponse
- Network.AWS.DeviceFarm.ListProjects: instance GHC.Show.Show Network.AWS.DeviceFarm.ListProjects.ListProjects
- Network.AWS.DeviceFarm.ListProjects: instance GHC.Show.Show Network.AWS.DeviceFarm.ListProjects.ListProjectsResponse
- Network.AWS.DeviceFarm.ListProjects: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.ListProjects.ListProjects
- Network.AWS.DeviceFarm.ListProjects: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.ListProjects.ListProjects
- Network.AWS.DeviceFarm.ListProjects: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.ListProjects.ListProjects
- Network.AWS.DeviceFarm.ListProjects: instance Network.AWS.Pager.AWSPager Network.AWS.DeviceFarm.ListProjects.ListProjects
- Network.AWS.DeviceFarm.ListProjects: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.ListProjects.ListProjects
- Network.AWS.DeviceFarm.ListProjects: listProjects :: ListProjects
- Network.AWS.DeviceFarm.ListProjects: listProjectsResponse :: Int -> ListProjectsResponse
- Network.AWS.DeviceFarm.ListProjects: lpArn :: Lens' ListProjects (Maybe Text)
- Network.AWS.DeviceFarm.ListProjects: lpNextToken :: Lens' ListProjects (Maybe Text)
- Network.AWS.DeviceFarm.ListProjects: lprsNextToken :: Lens' ListProjectsResponse (Maybe Text)
- Network.AWS.DeviceFarm.ListProjects: lprsProjects :: Lens' ListProjectsResponse [Project]
- Network.AWS.DeviceFarm.ListProjects: lprsResponseStatus :: Lens' ListProjectsResponse Int
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: data ListRemoteAccessSessions
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: data ListRemoteAccessSessionsResponse
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessions
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessionsResponse
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessions
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: instance Data.Data.Data Network.AWS.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessions
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: instance Data.Data.Data Network.AWS.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessionsResponse
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessions
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessions
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessionsResponse
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessions
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessionsResponse
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: instance GHC.Read.Read Network.AWS.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessions
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: instance GHC.Read.Read Network.AWS.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessionsResponse
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: instance GHC.Show.Show Network.AWS.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessions
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: instance GHC.Show.Show Network.AWS.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessionsResponse
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessions
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessions
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessions
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessions
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: listRemoteAccessSessions :: Text -> ListRemoteAccessSessions
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: listRemoteAccessSessionsResponse :: Int -> ListRemoteAccessSessionsResponse
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: lrasArn :: Lens' ListRemoteAccessSessions Text
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: lrasNextToken :: Lens' ListRemoteAccessSessions (Maybe Text)
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: lrasrsNextToken :: Lens' ListRemoteAccessSessionsResponse (Maybe Text)
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: lrasrsRemoteAccessSessions :: Lens' ListRemoteAccessSessionsResponse [RemoteAccessSession]
- Network.AWS.DeviceFarm.ListRemoteAccessSessions: lrasrsResponseStatus :: Lens' ListRemoteAccessSessionsResponse Int
- Network.AWS.DeviceFarm.ListRuns: data ListRuns
- Network.AWS.DeviceFarm.ListRuns: data ListRunsResponse
- Network.AWS.DeviceFarm.ListRuns: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListRuns.ListRuns
- Network.AWS.DeviceFarm.ListRuns: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListRuns.ListRunsResponse
- Network.AWS.DeviceFarm.ListRuns: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.ListRuns.ListRuns
- Network.AWS.DeviceFarm.ListRuns: instance Data.Data.Data Network.AWS.DeviceFarm.ListRuns.ListRuns
- Network.AWS.DeviceFarm.ListRuns: instance Data.Data.Data Network.AWS.DeviceFarm.ListRuns.ListRunsResponse
- Network.AWS.DeviceFarm.ListRuns: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.ListRuns.ListRuns
- Network.AWS.DeviceFarm.ListRuns: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListRuns.ListRuns
- Network.AWS.DeviceFarm.ListRuns: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListRuns.ListRunsResponse
- Network.AWS.DeviceFarm.ListRuns: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListRuns.ListRuns
- Network.AWS.DeviceFarm.ListRuns: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListRuns.ListRunsResponse
- Network.AWS.DeviceFarm.ListRuns: instance GHC.Read.Read Network.AWS.DeviceFarm.ListRuns.ListRuns
- Network.AWS.DeviceFarm.ListRuns: instance GHC.Read.Read Network.AWS.DeviceFarm.ListRuns.ListRunsResponse
- Network.AWS.DeviceFarm.ListRuns: instance GHC.Show.Show Network.AWS.DeviceFarm.ListRuns.ListRuns
- Network.AWS.DeviceFarm.ListRuns: instance GHC.Show.Show Network.AWS.DeviceFarm.ListRuns.ListRunsResponse
- Network.AWS.DeviceFarm.ListRuns: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.ListRuns.ListRuns
- Network.AWS.DeviceFarm.ListRuns: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.ListRuns.ListRuns
- Network.AWS.DeviceFarm.ListRuns: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.ListRuns.ListRuns
- Network.AWS.DeviceFarm.ListRuns: instance Network.AWS.Pager.AWSPager Network.AWS.DeviceFarm.ListRuns.ListRuns
- Network.AWS.DeviceFarm.ListRuns: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.ListRuns.ListRuns
- Network.AWS.DeviceFarm.ListRuns: listRuns :: Text -> ListRuns
- Network.AWS.DeviceFarm.ListRuns: listRunsResponse :: Int -> ListRunsResponse
- Network.AWS.DeviceFarm.ListRuns: lrArn :: Lens' ListRuns Text
- Network.AWS.DeviceFarm.ListRuns: lrNextToken :: Lens' ListRuns (Maybe Text)
- Network.AWS.DeviceFarm.ListRuns: lrrsNextToken :: Lens' ListRunsResponse (Maybe Text)
- Network.AWS.DeviceFarm.ListRuns: lrrsResponseStatus :: Lens' ListRunsResponse Int
- Network.AWS.DeviceFarm.ListRuns: lrrsRuns :: Lens' ListRunsResponse [Run]
- Network.AWS.DeviceFarm.ListSamples: data ListSamples
- Network.AWS.DeviceFarm.ListSamples: data ListSamplesResponse
- Network.AWS.DeviceFarm.ListSamples: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListSamples.ListSamples
- Network.AWS.DeviceFarm.ListSamples: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListSamples.ListSamplesResponse
- Network.AWS.DeviceFarm.ListSamples: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.ListSamples.ListSamples
- Network.AWS.DeviceFarm.ListSamples: instance Data.Data.Data Network.AWS.DeviceFarm.ListSamples.ListSamples
- Network.AWS.DeviceFarm.ListSamples: instance Data.Data.Data Network.AWS.DeviceFarm.ListSamples.ListSamplesResponse
- Network.AWS.DeviceFarm.ListSamples: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.ListSamples.ListSamples
- Network.AWS.DeviceFarm.ListSamples: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListSamples.ListSamples
- Network.AWS.DeviceFarm.ListSamples: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListSamples.ListSamplesResponse
- Network.AWS.DeviceFarm.ListSamples: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListSamples.ListSamples
- Network.AWS.DeviceFarm.ListSamples: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListSamples.ListSamplesResponse
- Network.AWS.DeviceFarm.ListSamples: instance GHC.Read.Read Network.AWS.DeviceFarm.ListSamples.ListSamples
- Network.AWS.DeviceFarm.ListSamples: instance GHC.Read.Read Network.AWS.DeviceFarm.ListSamples.ListSamplesResponse
- Network.AWS.DeviceFarm.ListSamples: instance GHC.Show.Show Network.AWS.DeviceFarm.ListSamples.ListSamples
- Network.AWS.DeviceFarm.ListSamples: instance GHC.Show.Show Network.AWS.DeviceFarm.ListSamples.ListSamplesResponse
- Network.AWS.DeviceFarm.ListSamples: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.ListSamples.ListSamples
- Network.AWS.DeviceFarm.ListSamples: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.ListSamples.ListSamples
- Network.AWS.DeviceFarm.ListSamples: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.ListSamples.ListSamples
- Network.AWS.DeviceFarm.ListSamples: instance Network.AWS.Pager.AWSPager Network.AWS.DeviceFarm.ListSamples.ListSamples
- Network.AWS.DeviceFarm.ListSamples: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.ListSamples.ListSamples
- Network.AWS.DeviceFarm.ListSamples: listSamples :: Text -> ListSamples
- Network.AWS.DeviceFarm.ListSamples: listSamplesResponse :: Int -> ListSamplesResponse
- Network.AWS.DeviceFarm.ListSamples: lrsNextToken :: Lens' ListSamplesResponse (Maybe Text)
- Network.AWS.DeviceFarm.ListSamples: lrsResponseStatus :: Lens' ListSamplesResponse Int
- Network.AWS.DeviceFarm.ListSamples: lrsSamples :: Lens' ListSamplesResponse [Sample]
- Network.AWS.DeviceFarm.ListSamples: lsArn :: Lens' ListSamples Text
- Network.AWS.DeviceFarm.ListSamples: lsNextToken :: Lens' ListSamples (Maybe Text)
- Network.AWS.DeviceFarm.ListSuites: data ListSuites
- Network.AWS.DeviceFarm.ListSuites: data ListSuitesResponse
- Network.AWS.DeviceFarm.ListSuites: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListSuites.ListSuites
- Network.AWS.DeviceFarm.ListSuites: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListSuites.ListSuitesResponse
- Network.AWS.DeviceFarm.ListSuites: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.ListSuites.ListSuites
- Network.AWS.DeviceFarm.ListSuites: instance Data.Data.Data Network.AWS.DeviceFarm.ListSuites.ListSuites
- Network.AWS.DeviceFarm.ListSuites: instance Data.Data.Data Network.AWS.DeviceFarm.ListSuites.ListSuitesResponse
- Network.AWS.DeviceFarm.ListSuites: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.ListSuites.ListSuites
- Network.AWS.DeviceFarm.ListSuites: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListSuites.ListSuites
- Network.AWS.DeviceFarm.ListSuites: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListSuites.ListSuitesResponse
- Network.AWS.DeviceFarm.ListSuites: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListSuites.ListSuites
- Network.AWS.DeviceFarm.ListSuites: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListSuites.ListSuitesResponse
- Network.AWS.DeviceFarm.ListSuites: instance GHC.Read.Read Network.AWS.DeviceFarm.ListSuites.ListSuites
- Network.AWS.DeviceFarm.ListSuites: instance GHC.Read.Read Network.AWS.DeviceFarm.ListSuites.ListSuitesResponse
- Network.AWS.DeviceFarm.ListSuites: instance GHC.Show.Show Network.AWS.DeviceFarm.ListSuites.ListSuites
- Network.AWS.DeviceFarm.ListSuites: instance GHC.Show.Show Network.AWS.DeviceFarm.ListSuites.ListSuitesResponse
- Network.AWS.DeviceFarm.ListSuites: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.ListSuites.ListSuites
- Network.AWS.DeviceFarm.ListSuites: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.ListSuites.ListSuites
- Network.AWS.DeviceFarm.ListSuites: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.ListSuites.ListSuites
- Network.AWS.DeviceFarm.ListSuites: instance Network.AWS.Pager.AWSPager Network.AWS.DeviceFarm.ListSuites.ListSuites
- Network.AWS.DeviceFarm.ListSuites: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.ListSuites.ListSuites
- Network.AWS.DeviceFarm.ListSuites: lArn :: Lens' ListSuites Text
- Network.AWS.DeviceFarm.ListSuites: lNextToken :: Lens' ListSuites (Maybe Text)
- Network.AWS.DeviceFarm.ListSuites: listSuites :: Text -> ListSuites
- Network.AWS.DeviceFarm.ListSuites: listSuitesResponse :: Int -> ListSuitesResponse
- Network.AWS.DeviceFarm.ListSuites: lsrsNextToken :: Lens' ListSuitesResponse (Maybe Text)
- Network.AWS.DeviceFarm.ListSuites: lsrsResponseStatus :: Lens' ListSuitesResponse Int
- Network.AWS.DeviceFarm.ListSuites: lsrsSuites :: Lens' ListSuitesResponse [Suite]
- Network.AWS.DeviceFarm.ListTests: data ListTests
- Network.AWS.DeviceFarm.ListTests: data ListTestsResponse
- Network.AWS.DeviceFarm.ListTests: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListTests.ListTests
- Network.AWS.DeviceFarm.ListTests: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListTests.ListTestsResponse
- Network.AWS.DeviceFarm.ListTests: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.ListTests.ListTests
- Network.AWS.DeviceFarm.ListTests: instance Data.Data.Data Network.AWS.DeviceFarm.ListTests.ListTests
- Network.AWS.DeviceFarm.ListTests: instance Data.Data.Data Network.AWS.DeviceFarm.ListTests.ListTestsResponse
- Network.AWS.DeviceFarm.ListTests: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.ListTests.ListTests
- Network.AWS.DeviceFarm.ListTests: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListTests.ListTests
- Network.AWS.DeviceFarm.ListTests: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListTests.ListTestsResponse
- Network.AWS.DeviceFarm.ListTests: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListTests.ListTests
- Network.AWS.DeviceFarm.ListTests: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListTests.ListTestsResponse
- Network.AWS.DeviceFarm.ListTests: instance GHC.Read.Read Network.AWS.DeviceFarm.ListTests.ListTests
- Network.AWS.DeviceFarm.ListTests: instance GHC.Read.Read Network.AWS.DeviceFarm.ListTests.ListTestsResponse
- Network.AWS.DeviceFarm.ListTests: instance GHC.Show.Show Network.AWS.DeviceFarm.ListTests.ListTests
- Network.AWS.DeviceFarm.ListTests: instance GHC.Show.Show Network.AWS.DeviceFarm.ListTests.ListTestsResponse
- Network.AWS.DeviceFarm.ListTests: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.ListTests.ListTests
- Network.AWS.DeviceFarm.ListTests: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.ListTests.ListTests
- Network.AWS.DeviceFarm.ListTests: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.ListTests.ListTests
- Network.AWS.DeviceFarm.ListTests: instance Network.AWS.Pager.AWSPager Network.AWS.DeviceFarm.ListTests.ListTests
- Network.AWS.DeviceFarm.ListTests: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.ListTests.ListTests
- Network.AWS.DeviceFarm.ListTests: listTests :: Text -> ListTests
- Network.AWS.DeviceFarm.ListTests: listTestsResponse :: Int -> ListTestsResponse
- Network.AWS.DeviceFarm.ListTests: ltArn :: Lens' ListTests Text
- Network.AWS.DeviceFarm.ListTests: ltNextToken :: Lens' ListTests (Maybe Text)
- Network.AWS.DeviceFarm.ListTests: ltrsNextToken :: Lens' ListTestsResponse (Maybe Text)
- Network.AWS.DeviceFarm.ListTests: ltrsResponseStatus :: Lens' ListTestsResponse Int
- Network.AWS.DeviceFarm.ListTests: ltrsTests :: Lens' ListTestsResponse [Test]
- Network.AWS.DeviceFarm.ListUniqueProblems: data ListUniqueProblems
- Network.AWS.DeviceFarm.ListUniqueProblems: data ListUniqueProblemsResponse
- Network.AWS.DeviceFarm.ListUniqueProblems: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListUniqueProblems.ListUniqueProblems
- Network.AWS.DeviceFarm.ListUniqueProblems: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListUniqueProblems.ListUniqueProblemsResponse
- Network.AWS.DeviceFarm.ListUniqueProblems: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.ListUniqueProblems.ListUniqueProblems
- Network.AWS.DeviceFarm.ListUniqueProblems: instance Data.Data.Data Network.AWS.DeviceFarm.ListUniqueProblems.ListUniqueProblems
- Network.AWS.DeviceFarm.ListUniqueProblems: instance Data.Data.Data Network.AWS.DeviceFarm.ListUniqueProblems.ListUniqueProblemsResponse
- Network.AWS.DeviceFarm.ListUniqueProblems: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.ListUniqueProblems.ListUniqueProblems
- Network.AWS.DeviceFarm.ListUniqueProblems: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListUniqueProblems.ListUniqueProblems
- Network.AWS.DeviceFarm.ListUniqueProblems: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListUniqueProblems.ListUniqueProblemsResponse
- Network.AWS.DeviceFarm.ListUniqueProblems: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListUniqueProblems.ListUniqueProblems
- Network.AWS.DeviceFarm.ListUniqueProblems: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListUniqueProblems.ListUniqueProblemsResponse
- Network.AWS.DeviceFarm.ListUniqueProblems: instance GHC.Read.Read Network.AWS.DeviceFarm.ListUniqueProblems.ListUniqueProblems
- Network.AWS.DeviceFarm.ListUniqueProblems: instance GHC.Read.Read Network.AWS.DeviceFarm.ListUniqueProblems.ListUniqueProblemsResponse
- Network.AWS.DeviceFarm.ListUniqueProblems: instance GHC.Show.Show Network.AWS.DeviceFarm.ListUniqueProblems.ListUniqueProblems
- Network.AWS.DeviceFarm.ListUniqueProblems: instance GHC.Show.Show Network.AWS.DeviceFarm.ListUniqueProblems.ListUniqueProblemsResponse
- Network.AWS.DeviceFarm.ListUniqueProblems: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.ListUniqueProblems.ListUniqueProblems
- Network.AWS.DeviceFarm.ListUniqueProblems: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.ListUniqueProblems.ListUniqueProblems
- Network.AWS.DeviceFarm.ListUniqueProblems: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.ListUniqueProblems.ListUniqueProblems
- Network.AWS.DeviceFarm.ListUniqueProblems: instance Network.AWS.Pager.AWSPager Network.AWS.DeviceFarm.ListUniqueProblems.ListUniqueProblems
- Network.AWS.DeviceFarm.ListUniqueProblems: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.ListUniqueProblems.ListUniqueProblems
- Network.AWS.DeviceFarm.ListUniqueProblems: listUniqueProblems :: Text -> ListUniqueProblems
- Network.AWS.DeviceFarm.ListUniqueProblems: listUniqueProblemsResponse :: Int -> ListUniqueProblemsResponse
- Network.AWS.DeviceFarm.ListUniqueProblems: lupArn :: Lens' ListUniqueProblems Text
- Network.AWS.DeviceFarm.ListUniqueProblems: lupNextToken :: Lens' ListUniqueProblems (Maybe Text)
- Network.AWS.DeviceFarm.ListUniqueProblems: luprsNextToken :: Lens' ListUniqueProblemsResponse (Maybe Text)
- Network.AWS.DeviceFarm.ListUniqueProblems: luprsResponseStatus :: Lens' ListUniqueProblemsResponse Int
- Network.AWS.DeviceFarm.ListUniqueProblems: luprsUniqueProblems :: Lens' ListUniqueProblemsResponse (HashMap ExecutionResult [UniqueProblem])
- Network.AWS.DeviceFarm.ListUploads: data ListUploads
- Network.AWS.DeviceFarm.ListUploads: data ListUploadsResponse
- Network.AWS.DeviceFarm.ListUploads: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListUploads.ListUploads
- Network.AWS.DeviceFarm.ListUploads: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListUploads.ListUploadsResponse
- Network.AWS.DeviceFarm.ListUploads: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.ListUploads.ListUploads
- Network.AWS.DeviceFarm.ListUploads: instance Data.Data.Data Network.AWS.DeviceFarm.ListUploads.ListUploads
- Network.AWS.DeviceFarm.ListUploads: instance Data.Data.Data Network.AWS.DeviceFarm.ListUploads.ListUploadsResponse
- Network.AWS.DeviceFarm.ListUploads: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.ListUploads.ListUploads
- Network.AWS.DeviceFarm.ListUploads: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListUploads.ListUploads
- Network.AWS.DeviceFarm.ListUploads: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListUploads.ListUploadsResponse
- Network.AWS.DeviceFarm.ListUploads: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListUploads.ListUploads
- Network.AWS.DeviceFarm.ListUploads: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListUploads.ListUploadsResponse
- Network.AWS.DeviceFarm.ListUploads: instance GHC.Read.Read Network.AWS.DeviceFarm.ListUploads.ListUploads
- Network.AWS.DeviceFarm.ListUploads: instance GHC.Read.Read Network.AWS.DeviceFarm.ListUploads.ListUploadsResponse
- Network.AWS.DeviceFarm.ListUploads: instance GHC.Show.Show Network.AWS.DeviceFarm.ListUploads.ListUploads
- Network.AWS.DeviceFarm.ListUploads: instance GHC.Show.Show Network.AWS.DeviceFarm.ListUploads.ListUploadsResponse
- Network.AWS.DeviceFarm.ListUploads: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.ListUploads.ListUploads
- Network.AWS.DeviceFarm.ListUploads: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.ListUploads.ListUploads
- Network.AWS.DeviceFarm.ListUploads: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.ListUploads.ListUploads
- Network.AWS.DeviceFarm.ListUploads: instance Network.AWS.Pager.AWSPager Network.AWS.DeviceFarm.ListUploads.ListUploads
- Network.AWS.DeviceFarm.ListUploads: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.ListUploads.ListUploads
- Network.AWS.DeviceFarm.ListUploads: listUploads :: Text -> ListUploads
- Network.AWS.DeviceFarm.ListUploads: listUploadsResponse :: Int -> ListUploadsResponse
- Network.AWS.DeviceFarm.ListUploads: luArn :: Lens' ListUploads Text
- Network.AWS.DeviceFarm.ListUploads: luNextToken :: Lens' ListUploads (Maybe Text)
- Network.AWS.DeviceFarm.ListUploads: lursNextToken :: Lens' ListUploadsResponse (Maybe Text)
- Network.AWS.DeviceFarm.ListUploads: lursResponseStatus :: Lens' ListUploadsResponse Int
- Network.AWS.DeviceFarm.ListUploads: lursUploads :: Lens' ListUploadsResponse [Upload]
- Network.AWS.DeviceFarm.ListVPCEConfigurations: data ListVPCEConfigurations
- Network.AWS.DeviceFarm.ListVPCEConfigurations: data ListVPCEConfigurationsResponse
- Network.AWS.DeviceFarm.ListVPCEConfigurations: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurations
- Network.AWS.DeviceFarm.ListVPCEConfigurations: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurationsResponse
- Network.AWS.DeviceFarm.ListVPCEConfigurations: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurations
- Network.AWS.DeviceFarm.ListVPCEConfigurations: instance Data.Data.Data Network.AWS.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurations
- Network.AWS.DeviceFarm.ListVPCEConfigurations: instance Data.Data.Data Network.AWS.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurationsResponse
- Network.AWS.DeviceFarm.ListVPCEConfigurations: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurations
- Network.AWS.DeviceFarm.ListVPCEConfigurations: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurations
- Network.AWS.DeviceFarm.ListVPCEConfigurations: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurationsResponse
- Network.AWS.DeviceFarm.ListVPCEConfigurations: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurations
- Network.AWS.DeviceFarm.ListVPCEConfigurations: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurationsResponse
- Network.AWS.DeviceFarm.ListVPCEConfigurations: instance GHC.Read.Read Network.AWS.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurations
- Network.AWS.DeviceFarm.ListVPCEConfigurations: instance GHC.Read.Read Network.AWS.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurationsResponse
- Network.AWS.DeviceFarm.ListVPCEConfigurations: instance GHC.Show.Show Network.AWS.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurations
- Network.AWS.DeviceFarm.ListVPCEConfigurations: instance GHC.Show.Show Network.AWS.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurationsResponse
- Network.AWS.DeviceFarm.ListVPCEConfigurations: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurations
- Network.AWS.DeviceFarm.ListVPCEConfigurations: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurations
- Network.AWS.DeviceFarm.ListVPCEConfigurations: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurations
- Network.AWS.DeviceFarm.ListVPCEConfigurations: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurations
- Network.AWS.DeviceFarm.ListVPCEConfigurations: listVPCEConfigurations :: ListVPCEConfigurations
- Network.AWS.DeviceFarm.ListVPCEConfigurations: listVPCEConfigurationsResponse :: Int -> ListVPCEConfigurationsResponse
- Network.AWS.DeviceFarm.ListVPCEConfigurations: lvecMaxResults :: Lens' ListVPCEConfigurations (Maybe Int)
- Network.AWS.DeviceFarm.ListVPCEConfigurations: lvecNextToken :: Lens' ListVPCEConfigurations (Maybe Text)
- Network.AWS.DeviceFarm.ListVPCEConfigurations: lvecrsNextToken :: Lens' ListVPCEConfigurationsResponse (Maybe Text)
- Network.AWS.DeviceFarm.ListVPCEConfigurations: lvecrsResponseStatus :: Lens' ListVPCEConfigurationsResponse Int
- Network.AWS.DeviceFarm.ListVPCEConfigurations: lvecrsVpceConfigurations :: Lens' ListVPCEConfigurationsResponse [VPCEConfiguration]
- Network.AWS.DeviceFarm.PurchaseOffering: data PurchaseOffering
- Network.AWS.DeviceFarm.PurchaseOffering: data PurchaseOfferingResponse
- Network.AWS.DeviceFarm.PurchaseOffering: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.PurchaseOffering.PurchaseOffering
- Network.AWS.DeviceFarm.PurchaseOffering: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.PurchaseOffering.PurchaseOfferingResponse
- Network.AWS.DeviceFarm.PurchaseOffering: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.PurchaseOffering.PurchaseOffering
- Network.AWS.DeviceFarm.PurchaseOffering: instance Data.Data.Data Network.AWS.DeviceFarm.PurchaseOffering.PurchaseOffering
- Network.AWS.DeviceFarm.PurchaseOffering: instance Data.Data.Data Network.AWS.DeviceFarm.PurchaseOffering.PurchaseOfferingResponse
- Network.AWS.DeviceFarm.PurchaseOffering: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.PurchaseOffering.PurchaseOffering
- Network.AWS.DeviceFarm.PurchaseOffering: instance GHC.Classes.Eq Network.AWS.DeviceFarm.PurchaseOffering.PurchaseOffering
- Network.AWS.DeviceFarm.PurchaseOffering: instance GHC.Classes.Eq Network.AWS.DeviceFarm.PurchaseOffering.PurchaseOfferingResponse
- Network.AWS.DeviceFarm.PurchaseOffering: instance GHC.Generics.Generic Network.AWS.DeviceFarm.PurchaseOffering.PurchaseOffering
- Network.AWS.DeviceFarm.PurchaseOffering: instance GHC.Generics.Generic Network.AWS.DeviceFarm.PurchaseOffering.PurchaseOfferingResponse
- Network.AWS.DeviceFarm.PurchaseOffering: instance GHC.Read.Read Network.AWS.DeviceFarm.PurchaseOffering.PurchaseOffering
- Network.AWS.DeviceFarm.PurchaseOffering: instance GHC.Read.Read Network.AWS.DeviceFarm.PurchaseOffering.PurchaseOfferingResponse
- Network.AWS.DeviceFarm.PurchaseOffering: instance GHC.Show.Show Network.AWS.DeviceFarm.PurchaseOffering.PurchaseOffering
- Network.AWS.DeviceFarm.PurchaseOffering: instance GHC.Show.Show Network.AWS.DeviceFarm.PurchaseOffering.PurchaseOfferingResponse
- Network.AWS.DeviceFarm.PurchaseOffering: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.PurchaseOffering.PurchaseOffering
- Network.AWS.DeviceFarm.PurchaseOffering: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.PurchaseOffering.PurchaseOffering
- Network.AWS.DeviceFarm.PurchaseOffering: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.PurchaseOffering.PurchaseOffering
- Network.AWS.DeviceFarm.PurchaseOffering: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.PurchaseOffering.PurchaseOffering
- Network.AWS.DeviceFarm.PurchaseOffering: poOfferingId :: Lens' PurchaseOffering (Maybe Text)
- Network.AWS.DeviceFarm.PurchaseOffering: poOfferingPromotionId :: Lens' PurchaseOffering (Maybe Text)
- Network.AWS.DeviceFarm.PurchaseOffering: poQuantity :: Lens' PurchaseOffering (Maybe Int)
- Network.AWS.DeviceFarm.PurchaseOffering: porsOfferingTransaction :: Lens' PurchaseOfferingResponse (Maybe OfferingTransaction)
- Network.AWS.DeviceFarm.PurchaseOffering: porsResponseStatus :: Lens' PurchaseOfferingResponse Int
- Network.AWS.DeviceFarm.PurchaseOffering: purchaseOffering :: PurchaseOffering
- Network.AWS.DeviceFarm.PurchaseOffering: purchaseOfferingResponse :: Int -> PurchaseOfferingResponse
- Network.AWS.DeviceFarm.RenewOffering: data RenewOffering
- Network.AWS.DeviceFarm.RenewOffering: data RenewOfferingResponse
- Network.AWS.DeviceFarm.RenewOffering: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.RenewOffering.RenewOffering
- Network.AWS.DeviceFarm.RenewOffering: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.RenewOffering.RenewOfferingResponse
- Network.AWS.DeviceFarm.RenewOffering: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.RenewOffering.RenewOffering
- Network.AWS.DeviceFarm.RenewOffering: instance Data.Data.Data Network.AWS.DeviceFarm.RenewOffering.RenewOffering
- Network.AWS.DeviceFarm.RenewOffering: instance Data.Data.Data Network.AWS.DeviceFarm.RenewOffering.RenewOfferingResponse
- Network.AWS.DeviceFarm.RenewOffering: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.RenewOffering.RenewOffering
- Network.AWS.DeviceFarm.RenewOffering: instance GHC.Classes.Eq Network.AWS.DeviceFarm.RenewOffering.RenewOffering
- Network.AWS.DeviceFarm.RenewOffering: instance GHC.Classes.Eq Network.AWS.DeviceFarm.RenewOffering.RenewOfferingResponse
- Network.AWS.DeviceFarm.RenewOffering: instance GHC.Generics.Generic Network.AWS.DeviceFarm.RenewOffering.RenewOffering
- Network.AWS.DeviceFarm.RenewOffering: instance GHC.Generics.Generic Network.AWS.DeviceFarm.RenewOffering.RenewOfferingResponse
- Network.AWS.DeviceFarm.RenewOffering: instance GHC.Read.Read Network.AWS.DeviceFarm.RenewOffering.RenewOffering
- Network.AWS.DeviceFarm.RenewOffering: instance GHC.Read.Read Network.AWS.DeviceFarm.RenewOffering.RenewOfferingResponse
- Network.AWS.DeviceFarm.RenewOffering: instance GHC.Show.Show Network.AWS.DeviceFarm.RenewOffering.RenewOffering
- Network.AWS.DeviceFarm.RenewOffering: instance GHC.Show.Show Network.AWS.DeviceFarm.RenewOffering.RenewOfferingResponse
- Network.AWS.DeviceFarm.RenewOffering: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.RenewOffering.RenewOffering
- Network.AWS.DeviceFarm.RenewOffering: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.RenewOffering.RenewOffering
- Network.AWS.DeviceFarm.RenewOffering: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.RenewOffering.RenewOffering
- Network.AWS.DeviceFarm.RenewOffering: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.RenewOffering.RenewOffering
- Network.AWS.DeviceFarm.RenewOffering: renewOffering :: RenewOffering
- Network.AWS.DeviceFarm.RenewOffering: renewOfferingResponse :: Int -> RenewOfferingResponse
- Network.AWS.DeviceFarm.RenewOffering: roOfferingId :: Lens' RenewOffering (Maybe Text)
- Network.AWS.DeviceFarm.RenewOffering: roQuantity :: Lens' RenewOffering (Maybe Int)
- Network.AWS.DeviceFarm.RenewOffering: rorsOfferingTransaction :: Lens' RenewOfferingResponse (Maybe OfferingTransaction)
- Network.AWS.DeviceFarm.RenewOffering: rorsResponseStatus :: Lens' RenewOfferingResponse Int
- Network.AWS.DeviceFarm.ScheduleRun: data ScheduleRun
- Network.AWS.DeviceFarm.ScheduleRun: data ScheduleRunResponse
- Network.AWS.DeviceFarm.ScheduleRun: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ScheduleRun.ScheduleRun
- Network.AWS.DeviceFarm.ScheduleRun: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.ScheduleRun.ScheduleRunResponse
- Network.AWS.DeviceFarm.ScheduleRun: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.ScheduleRun.ScheduleRun
- Network.AWS.DeviceFarm.ScheduleRun: instance Data.Data.Data Network.AWS.DeviceFarm.ScheduleRun.ScheduleRun
- Network.AWS.DeviceFarm.ScheduleRun: instance Data.Data.Data Network.AWS.DeviceFarm.ScheduleRun.ScheduleRunResponse
- Network.AWS.DeviceFarm.ScheduleRun: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.ScheduleRun.ScheduleRun
- Network.AWS.DeviceFarm.ScheduleRun: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ScheduleRun.ScheduleRun
- Network.AWS.DeviceFarm.ScheduleRun: instance GHC.Classes.Eq Network.AWS.DeviceFarm.ScheduleRun.ScheduleRunResponse
- Network.AWS.DeviceFarm.ScheduleRun: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ScheduleRun.ScheduleRun
- Network.AWS.DeviceFarm.ScheduleRun: instance GHC.Generics.Generic Network.AWS.DeviceFarm.ScheduleRun.ScheduleRunResponse
- Network.AWS.DeviceFarm.ScheduleRun: instance GHC.Read.Read Network.AWS.DeviceFarm.ScheduleRun.ScheduleRun
- Network.AWS.DeviceFarm.ScheduleRun: instance GHC.Read.Read Network.AWS.DeviceFarm.ScheduleRun.ScheduleRunResponse
- Network.AWS.DeviceFarm.ScheduleRun: instance GHC.Show.Show Network.AWS.DeviceFarm.ScheduleRun.ScheduleRun
- Network.AWS.DeviceFarm.ScheduleRun: instance GHC.Show.Show Network.AWS.DeviceFarm.ScheduleRun.ScheduleRunResponse
- Network.AWS.DeviceFarm.ScheduleRun: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.ScheduleRun.ScheduleRun
- Network.AWS.DeviceFarm.ScheduleRun: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.ScheduleRun.ScheduleRun
- Network.AWS.DeviceFarm.ScheduleRun: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.ScheduleRun.ScheduleRun
- Network.AWS.DeviceFarm.ScheduleRun: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.ScheduleRun.ScheduleRun
- Network.AWS.DeviceFarm.ScheduleRun: scheduleRun :: Text -> Text -> ScheduleRunTest -> ScheduleRun
- Network.AWS.DeviceFarm.ScheduleRun: scheduleRunResponse :: Int -> ScheduleRunResponse
- Network.AWS.DeviceFarm.ScheduleRun: srAppARN :: Lens' ScheduleRun (Maybe Text)
- Network.AWS.DeviceFarm.ScheduleRun: srConfiguration :: Lens' ScheduleRun (Maybe ScheduleRunConfiguration)
- Network.AWS.DeviceFarm.ScheduleRun: srDevicePoolARN :: Lens' ScheduleRun Text
- Network.AWS.DeviceFarm.ScheduleRun: srExecutionConfiguration :: Lens' ScheduleRun (Maybe ExecutionConfiguration)
- Network.AWS.DeviceFarm.ScheduleRun: srName :: Lens' ScheduleRun (Maybe Text)
- Network.AWS.DeviceFarm.ScheduleRun: srProjectARN :: Lens' ScheduleRun Text
- Network.AWS.DeviceFarm.ScheduleRun: srTest :: Lens' ScheduleRun ScheduleRunTest
- Network.AWS.DeviceFarm.ScheduleRun: srrsResponseStatus :: Lens' ScheduleRunResponse Int
- Network.AWS.DeviceFarm.ScheduleRun: srrsRun :: Lens' ScheduleRunResponse (Maybe Run)
- Network.AWS.DeviceFarm.StopRemoteAccessSession: data StopRemoteAccessSession
- Network.AWS.DeviceFarm.StopRemoteAccessSession: data StopRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.StopRemoteAccessSession: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSession
- Network.AWS.DeviceFarm.StopRemoteAccessSession: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.StopRemoteAccessSession: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSession
- Network.AWS.DeviceFarm.StopRemoteAccessSession: instance Data.Data.Data Network.AWS.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSession
- Network.AWS.DeviceFarm.StopRemoteAccessSession: instance Data.Data.Data Network.AWS.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.StopRemoteAccessSession: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSession
- Network.AWS.DeviceFarm.StopRemoteAccessSession: instance GHC.Classes.Eq Network.AWS.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSession
- Network.AWS.DeviceFarm.StopRemoteAccessSession: instance GHC.Classes.Eq Network.AWS.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.StopRemoteAccessSession: instance GHC.Generics.Generic Network.AWS.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSession
- Network.AWS.DeviceFarm.StopRemoteAccessSession: instance GHC.Generics.Generic Network.AWS.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.StopRemoteAccessSession: instance GHC.Read.Read Network.AWS.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSession
- Network.AWS.DeviceFarm.StopRemoteAccessSession: instance GHC.Read.Read Network.AWS.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.StopRemoteAccessSession: instance GHC.Show.Show Network.AWS.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSession
- Network.AWS.DeviceFarm.StopRemoteAccessSession: instance GHC.Show.Show Network.AWS.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.StopRemoteAccessSession: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSession
- Network.AWS.DeviceFarm.StopRemoteAccessSession: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSession
- Network.AWS.DeviceFarm.StopRemoteAccessSession: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSession
- Network.AWS.DeviceFarm.StopRemoteAccessSession: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSession
- Network.AWS.DeviceFarm.StopRemoteAccessSession: srasArn :: Lens' StopRemoteAccessSession Text
- Network.AWS.DeviceFarm.StopRemoteAccessSession: srasrsRemoteAccessSession :: Lens' StopRemoteAccessSessionResponse (Maybe RemoteAccessSession)
- Network.AWS.DeviceFarm.StopRemoteAccessSession: srasrsResponseStatus :: Lens' StopRemoteAccessSessionResponse Int
- Network.AWS.DeviceFarm.StopRemoteAccessSession: stopRemoteAccessSession :: Text -> StopRemoteAccessSession
- Network.AWS.DeviceFarm.StopRemoteAccessSession: stopRemoteAccessSessionResponse :: Int -> StopRemoteAccessSessionResponse
- Network.AWS.DeviceFarm.StopRun: data StopRun
- Network.AWS.DeviceFarm.StopRun: data StopRunResponse
- Network.AWS.DeviceFarm.StopRun: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.StopRun.StopRun
- Network.AWS.DeviceFarm.StopRun: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.StopRun.StopRunResponse
- Network.AWS.DeviceFarm.StopRun: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.StopRun.StopRun
- Network.AWS.DeviceFarm.StopRun: instance Data.Data.Data Network.AWS.DeviceFarm.StopRun.StopRun
- Network.AWS.DeviceFarm.StopRun: instance Data.Data.Data Network.AWS.DeviceFarm.StopRun.StopRunResponse
- Network.AWS.DeviceFarm.StopRun: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.StopRun.StopRun
- Network.AWS.DeviceFarm.StopRun: instance GHC.Classes.Eq Network.AWS.DeviceFarm.StopRun.StopRun
- Network.AWS.DeviceFarm.StopRun: instance GHC.Classes.Eq Network.AWS.DeviceFarm.StopRun.StopRunResponse
- Network.AWS.DeviceFarm.StopRun: instance GHC.Generics.Generic Network.AWS.DeviceFarm.StopRun.StopRun
- Network.AWS.DeviceFarm.StopRun: instance GHC.Generics.Generic Network.AWS.DeviceFarm.StopRun.StopRunResponse
- Network.AWS.DeviceFarm.StopRun: instance GHC.Read.Read Network.AWS.DeviceFarm.StopRun.StopRun
- Network.AWS.DeviceFarm.StopRun: instance GHC.Read.Read Network.AWS.DeviceFarm.StopRun.StopRunResponse
- Network.AWS.DeviceFarm.StopRun: instance GHC.Show.Show Network.AWS.DeviceFarm.StopRun.StopRun
- Network.AWS.DeviceFarm.StopRun: instance GHC.Show.Show Network.AWS.DeviceFarm.StopRun.StopRunResponse
- Network.AWS.DeviceFarm.StopRun: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.StopRun.StopRun
- Network.AWS.DeviceFarm.StopRun: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.StopRun.StopRun
- Network.AWS.DeviceFarm.StopRun: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.StopRun.StopRun
- Network.AWS.DeviceFarm.StopRun: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.StopRun.StopRun
- Network.AWS.DeviceFarm.StopRun: srArn :: Lens' StopRun Text
- Network.AWS.DeviceFarm.StopRun: srsResponseStatus :: Lens' StopRunResponse Int
- Network.AWS.DeviceFarm.StopRun: srsRun :: Lens' StopRunResponse (Maybe Run)
- Network.AWS.DeviceFarm.StopRun: stopRun :: Text -> StopRun
- Network.AWS.DeviceFarm.StopRun: stopRunResponse :: Int -> StopRunResponse
- Network.AWS.DeviceFarm.Types: ACFile :: ArtifactCategory
- Network.AWS.DeviceFarm.Types: ACLog :: ArtifactCategory
- Network.AWS.DeviceFarm.Types: ACScreenshot :: ArtifactCategory
- Network.AWS.DeviceFarm.Types: ARN :: DeviceAttribute
- Network.AWS.DeviceFarm.Types: Android :: DevicePlatform
- Network.AWS.DeviceFarm.Types: AndroidApp :: UploadType
- Network.AWS.DeviceFarm.Types: AppiumJavaJunit :: TestType
- Network.AWS.DeviceFarm.Types: AppiumJavaJunitTestPackage :: UploadType
- Network.AWS.DeviceFarm.Types: AppiumJavaOutput :: ArtifactType
- Network.AWS.DeviceFarm.Types: AppiumJavaTestng :: TestType
- Network.AWS.DeviceFarm.Types: AppiumJavaTestngTestPackage :: UploadType
- Network.AWS.DeviceFarm.Types: AppiumJavaXMLOutput :: ArtifactType
- Network.AWS.DeviceFarm.Types: AppiumPython :: TestType
- Network.AWS.DeviceFarm.Types: AppiumPythonOutput :: ArtifactType
- Network.AWS.DeviceFarm.Types: AppiumPythonTestPackage :: UploadType
- Network.AWS.DeviceFarm.Types: AppiumPythonXMLOutput :: ArtifactType
- Network.AWS.DeviceFarm.Types: AppiumServerOutput :: ArtifactType
- Network.AWS.DeviceFarm.Types: AppiumVersion :: DeviceAttribute
- Network.AWS.DeviceFarm.Types: AppiumWebJavaJunit :: TestType
- Network.AWS.DeviceFarm.Types: AppiumWebJavaJunitTestPackage :: UploadType
- Network.AWS.DeviceFarm.Types: AppiumWebJavaTestng :: TestType
- Network.AWS.DeviceFarm.Types: AppiumWebJavaTestngTestPackage :: UploadType
- Network.AWS.DeviceFarm.Types: AppiumWebPython :: TestType
- Network.AWS.DeviceFarm.Types: AppiumWebPythonTestPackage :: UploadType
- Network.AWS.DeviceFarm.Types: ApplicationCrashReport :: ArtifactType
- Network.AWS.DeviceFarm.Types: AutomationOutput :: ArtifactType
- Network.AWS.DeviceFarm.Types: BuiltinExplorer :: TestType
- Network.AWS.DeviceFarm.Types: BuiltinFuzz :: TestType
- Network.AWS.DeviceFarm.Types: CPU :: SampleType
- Network.AWS.DeviceFarm.Types: Calabash :: TestType
- Network.AWS.DeviceFarm.Types: CalabashJSONOutput :: ArtifactType
- Network.AWS.DeviceFarm.Types: CalabashJavaXMLOutput :: ArtifactType
- Network.AWS.DeviceFarm.Types: CalabashPrettyOutput :: ArtifactType
- Network.AWS.DeviceFarm.Types: CalabashStandardOutput :: ArtifactType
- Network.AWS.DeviceFarm.Types: CalabashTestPackage :: UploadType
- Network.AWS.DeviceFarm.Types: Completed :: ExecutionStatus
- Network.AWS.DeviceFarm.Types: Contains :: RuleOperator
- Network.AWS.DeviceFarm.Types: Curated :: NetworkProfileType
- Network.AWS.DeviceFarm.Types: CustomerArtifact :: ArtifactType
- Network.AWS.DeviceFarm.Types: CustomerArtifactLog :: ArtifactType
- Network.AWS.DeviceFarm.Types: DPTCurated :: DevicePoolType
- Network.AWS.DeviceFarm.Types: DPTPrivate :: DevicePoolType
- Network.AWS.DeviceFarm.Types: DeviceLog :: ArtifactType
- Network.AWS.DeviceFarm.Types: ERErrored :: ExecutionResult
- Network.AWS.DeviceFarm.Types: ERFailed :: ExecutionResult
- Network.AWS.DeviceFarm.Types: ERPassed :: ExecutionResult
- Network.AWS.DeviceFarm.Types: ERPending :: ExecutionResult
- Network.AWS.DeviceFarm.Types: ERSkipped :: ExecutionResult
- Network.AWS.DeviceFarm.Types: ERStopped :: ExecutionResult
- Network.AWS.DeviceFarm.Types: ERWarned :: ExecutionResult
- Network.AWS.DeviceFarm.Types: Equals :: RuleOperator
- Network.AWS.DeviceFarm.Types: ExerciserMonkeyOutput :: ArtifactType
- Network.AWS.DeviceFarm.Types: ExplorerEventLog :: ArtifactType
- Network.AWS.DeviceFarm.Types: ExplorerSummaryLog :: ArtifactType
- Network.AWS.DeviceFarm.Types: ExternalData :: UploadType
- Network.AWS.DeviceFarm.Types: FleetType :: DeviceAttribute
- Network.AWS.DeviceFarm.Types: FormFactor :: DeviceAttribute
- Network.AWS.DeviceFarm.Types: GreaterThan :: RuleOperator
- Network.AWS.DeviceFarm.Types: IN :: RuleOperator
- Network.AWS.DeviceFarm.Types: ISAvailable :: InstanceStatus
- Network.AWS.DeviceFarm.Types: ISInUse :: InstanceStatus
- Network.AWS.DeviceFarm.Types: ISNotAvailable :: InstanceStatus
- Network.AWS.DeviceFarm.Types: ISPreparing :: InstanceStatus
- Network.AWS.DeviceFarm.Types: InstanceARN :: DeviceAttribute
- Network.AWS.DeviceFarm.Types: InstanceLabels :: DeviceAttribute
- Network.AWS.DeviceFarm.Types: Instrumentation :: TestType
- Network.AWS.DeviceFarm.Types: InstrumentationOutput :: ArtifactType
- Network.AWS.DeviceFarm.Types: InstrumentationTestPackage :: UploadType
- Network.AWS.DeviceFarm.Types: Interactive :: InteractionMode
- Network.AWS.DeviceFarm.Types: Ios :: DevicePlatform
- Network.AWS.DeviceFarm.Types: IosApp :: UploadType
- Network.AWS.DeviceFarm.Types: LessThan :: RuleOperator
- Network.AWS.DeviceFarm.Types: Manufacturer :: DeviceAttribute
- Network.AWS.DeviceFarm.Types: Memory :: SampleType
- Network.AWS.DeviceFarm.Types: MessageLog :: ArtifactType
- Network.AWS.DeviceFarm.Types: Metered :: BillingMethod
- Network.AWS.DeviceFarm.Types: Monthly :: RecurringChargeFrequency
- Network.AWS.DeviceFarm.Types: NativeAvgDrawtime :: SampleType
- Network.AWS.DeviceFarm.Types: NativeFps :: SampleType
- Network.AWS.DeviceFarm.Types: NativeFrames :: SampleType
- Network.AWS.DeviceFarm.Types: NativeMaxDrawtime :: SampleType
- Network.AWS.DeviceFarm.Types: NativeMinDrawtime :: SampleType
- Network.AWS.DeviceFarm.Types: NoVideo :: InteractionMode
- Network.AWS.DeviceFarm.Types: NotIn :: RuleOperator
- Network.AWS.DeviceFarm.Types: OpenglAvgDrawtime :: SampleType
- Network.AWS.DeviceFarm.Types: OpenglFps :: SampleType
- Network.AWS.DeviceFarm.Types: OpenglFrames :: SampleType
- Network.AWS.DeviceFarm.Types: OpenglMaxDrawtime :: SampleType
- Network.AWS.DeviceFarm.Types: OpenglMinDrawtime :: SampleType
- Network.AWS.DeviceFarm.Types: ParsingFailed :: ExecutionResultCode
- Network.AWS.DeviceFarm.Types: Pending :: ExecutionStatus
- Network.AWS.DeviceFarm.Types: PendingConcurrency :: ExecutionStatus
- Network.AWS.DeviceFarm.Types: PendingDevice :: ExecutionStatus
- Network.AWS.DeviceFarm.Types: Phone :: DeviceFormFactor
- Network.AWS.DeviceFarm.Types: Platform :: DeviceAttribute
- Network.AWS.DeviceFarm.Types: Preparing :: ExecutionStatus
- Network.AWS.DeviceFarm.Types: Private :: NetworkProfileType
- Network.AWS.DeviceFarm.Types: Processing :: ExecutionStatus
- Network.AWS.DeviceFarm.Types: Purchase :: OfferingTransactionType
- Network.AWS.DeviceFarm.Types: RX :: SampleType
- Network.AWS.DeviceFarm.Types: Recurring :: OfferingType
- Network.AWS.DeviceFarm.Types: RemoteAccessEnabled :: DeviceAttribute
- Network.AWS.DeviceFarm.Types: RemoteAccessRecord :: TestType
- Network.AWS.DeviceFarm.Types: RemoteAccessReplay :: TestType
- Network.AWS.DeviceFarm.Types: RemoteDebugEnabled :: DeviceAttribute
- Network.AWS.DeviceFarm.Types: Renew :: OfferingTransactionType
- Network.AWS.DeviceFarm.Types: ResultLog :: ArtifactType
- Network.AWS.DeviceFarm.Types: Running :: ExecutionStatus
- Network.AWS.DeviceFarm.Types: RxRate :: SampleType
- Network.AWS.DeviceFarm.Types: Scheduling :: ExecutionStatus
- Network.AWS.DeviceFarm.Types: Screenshot :: ArtifactType
- Network.AWS.DeviceFarm.Types: ServiceLog :: ArtifactType
- Network.AWS.DeviceFarm.Types: Stopping :: ExecutionStatus
- Network.AWS.DeviceFarm.Types: System :: OfferingTransactionType
- Network.AWS.DeviceFarm.Types: TX :: SampleType
- Network.AWS.DeviceFarm.Types: Tablet :: DeviceFormFactor
- Network.AWS.DeviceFarm.Types: Threads :: SampleType
- Network.AWS.DeviceFarm.Types: TxRate :: SampleType
- Network.AWS.DeviceFarm.Types: USFailed :: UploadStatus
- Network.AWS.DeviceFarm.Types: USInitialized :: UploadStatus
- Network.AWS.DeviceFarm.Types: USProcessing :: UploadStatus
- Network.AWS.DeviceFarm.Types: USSucceeded :: UploadStatus
- Network.AWS.DeviceFarm.Types: Uiautomation :: TestType
- Network.AWS.DeviceFarm.Types: UiautomationTestPackage :: UploadType
- Network.AWS.DeviceFarm.Types: Uiautomator :: TestType
- Network.AWS.DeviceFarm.Types: UiautomatorTestPackage :: UploadType
- Network.AWS.DeviceFarm.Types: Unknown :: ArtifactType
- Network.AWS.DeviceFarm.Types: Unmetered :: BillingMethod
- Network.AWS.DeviceFarm.Types: Usd :: CurrencyCode
- Network.AWS.DeviceFarm.Types: VPCEndpointSetupFailed :: ExecutionResultCode
- Network.AWS.DeviceFarm.Types: Video :: ArtifactType
- Network.AWS.DeviceFarm.Types: VideoLog :: ArtifactType
- Network.AWS.DeviceFarm.Types: VideoOnly :: InteractionMode
- Network.AWS.DeviceFarm.Types: WebApp :: UploadType
- Network.AWS.DeviceFarm.Types: WebPerformanceProfile :: TestType
- Network.AWS.DeviceFarm.Types: WebkitLog :: ArtifactType
- Network.AWS.DeviceFarm.Types: Xctest :: TestType
- Network.AWS.DeviceFarm.Types: XctestLog :: ArtifactType
- Network.AWS.DeviceFarm.Types: XctestTestPackage :: UploadType
- Network.AWS.DeviceFarm.Types: XctestUi :: TestType
- Network.AWS.DeviceFarm.Types: XctestUiTestPackage :: UploadType
- Network.AWS.DeviceFarm.Types: _ArgumentException :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.DeviceFarm.Types: _IdempotencyException :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.DeviceFarm.Types: _InvalidOperationException :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.DeviceFarm.Types: _LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.DeviceFarm.Types: _NotEligibleException :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.DeviceFarm.Types: _NotFoundException :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.DeviceFarm.Types: _ServiceAccountException :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.DeviceFarm.Types: aArn :: Lens' Artifact (Maybe Text)
- Network.AWS.DeviceFarm.Types: aExtension :: Lens' Artifact (Maybe Text)
- Network.AWS.DeviceFarm.Types: aName :: Lens' Artifact (Maybe Text)
- Network.AWS.DeviceFarm.Types: aType :: Lens' Artifact (Maybe ArtifactType)
- Network.AWS.DeviceFarm.Types: aUrl :: Lens' Artifact (Maybe Text)
- Network.AWS.DeviceFarm.Types: accountSettings :: AccountSettings
- Network.AWS.DeviceFarm.Types: artifact :: Artifact
- Network.AWS.DeviceFarm.Types: asAwsAccountNumber :: Lens' AccountSettings (Maybe Text)
- Network.AWS.DeviceFarm.Types: asDefaultJobTimeoutMinutes :: Lens' AccountSettings (Maybe Int)
- Network.AWS.DeviceFarm.Types: asMaxJobTimeoutMinutes :: Lens' AccountSettings (Maybe Int)
- Network.AWS.DeviceFarm.Types: asMaxSlots :: Lens' AccountSettings (HashMap Text Int)
- Network.AWS.DeviceFarm.Types: asSkipAppResign :: Lens' AccountSettings (Maybe Bool)
- Network.AWS.DeviceFarm.Types: asTrialMinutes :: Lens' AccountSettings (Maybe TrialMinutes)
- Network.AWS.DeviceFarm.Types: asUnmeteredDevices :: Lens' AccountSettings (HashMap DevicePlatform Int)
- Network.AWS.DeviceFarm.Types: asUnmeteredRemoteAccessDevices :: Lens' AccountSettings (HashMap DevicePlatform Int)
- Network.AWS.DeviceFarm.Types: cErrored :: Lens' Counters (Maybe Int)
- Network.AWS.DeviceFarm.Types: cFailed :: Lens' Counters (Maybe Int)
- Network.AWS.DeviceFarm.Types: cPassed :: Lens' Counters (Maybe Int)
- Network.AWS.DeviceFarm.Types: cSkipped :: Lens' Counters (Maybe Int)
- Network.AWS.DeviceFarm.Types: cStopped :: Lens' Counters (Maybe Int)
- Network.AWS.DeviceFarm.Types: cTotal :: Lens' Counters (Maybe Int)
- Network.AWS.DeviceFarm.Types: cWarned :: Lens' Counters (Maybe Int)
- Network.AWS.DeviceFarm.Types: capAndroidPaths :: Lens' CustomerArtifactPaths [Text]
- Network.AWS.DeviceFarm.Types: capDeviceHostPaths :: Lens' CustomerArtifactPaths [Text]
- Network.AWS.DeviceFarm.Types: capIosPaths :: Lens' CustomerArtifactPaths [Text]
- Network.AWS.DeviceFarm.Types: counters :: Counters
- Network.AWS.DeviceFarm.Types: cpu :: CPU
- Network.AWS.DeviceFarm.Types: cpuArchitecture :: Lens' CPU (Maybe Text)
- Network.AWS.DeviceFarm.Types: cpuClock :: Lens' CPU (Maybe Double)
- Network.AWS.DeviceFarm.Types: cpuFrequency :: Lens' CPU (Maybe Text)
- Network.AWS.DeviceFarm.Types: crascBillingMethod :: Lens' CreateRemoteAccessSessionConfiguration (Maybe BillingMethod)
- Network.AWS.DeviceFarm.Types: createRemoteAccessSessionConfiguration :: CreateRemoteAccessSessionConfiguration
- Network.AWS.DeviceFarm.Types: customerArtifactPaths :: CustomerArtifactPaths
- Network.AWS.DeviceFarm.Types: dArn :: Lens' DevicePool (Maybe Text)
- Network.AWS.DeviceFarm.Types: dDescription :: Lens' DevicePool (Maybe Text)
- Network.AWS.DeviceFarm.Types: dName :: Lens' DevicePool (Maybe Text)
- Network.AWS.DeviceFarm.Types: dRules :: Lens' DevicePool [Rule]
- Network.AWS.DeviceFarm.Types: dType :: Lens' DevicePool (Maybe DevicePoolType)
- Network.AWS.DeviceFarm.Types: data AccountSettings
- Network.AWS.DeviceFarm.Types: data Artifact
- Network.AWS.DeviceFarm.Types: data ArtifactCategory
- Network.AWS.DeviceFarm.Types: data ArtifactType
- Network.AWS.DeviceFarm.Types: data BillingMethod
- Network.AWS.DeviceFarm.Types: data CPU
- Network.AWS.DeviceFarm.Types: data Counters
- Network.AWS.DeviceFarm.Types: data CreateRemoteAccessSessionConfiguration
- Network.AWS.DeviceFarm.Types: data CurrencyCode
- Network.AWS.DeviceFarm.Types: data CustomerArtifactPaths
- Network.AWS.DeviceFarm.Types: data Device
- Network.AWS.DeviceFarm.Types: data DeviceAttribute
- Network.AWS.DeviceFarm.Types: data DeviceFormFactor
- Network.AWS.DeviceFarm.Types: data DeviceInstance
- Network.AWS.DeviceFarm.Types: data DeviceMinutes
- Network.AWS.DeviceFarm.Types: data DevicePlatform
- Network.AWS.DeviceFarm.Types: data DevicePool
- Network.AWS.DeviceFarm.Types: data DevicePoolCompatibilityResult
- Network.AWS.DeviceFarm.Types: data DevicePoolType
- Network.AWS.DeviceFarm.Types: data ExecutionConfiguration
- Network.AWS.DeviceFarm.Types: data ExecutionResult
- Network.AWS.DeviceFarm.Types: data ExecutionResultCode
- Network.AWS.DeviceFarm.Types: data ExecutionStatus
- Network.AWS.DeviceFarm.Types: data IncompatibilityMessage
- Network.AWS.DeviceFarm.Types: data InstanceProfile
- Network.AWS.DeviceFarm.Types: data InstanceStatus
- Network.AWS.DeviceFarm.Types: data InteractionMode
- Network.AWS.DeviceFarm.Types: data Job
- Network.AWS.DeviceFarm.Types: data Location
- Network.AWS.DeviceFarm.Types: data MonetaryAmount
- Network.AWS.DeviceFarm.Types: data NetworkProfile
- Network.AWS.DeviceFarm.Types: data NetworkProfileType
- Network.AWS.DeviceFarm.Types: data Offering
- Network.AWS.DeviceFarm.Types: data OfferingPromotion
- Network.AWS.DeviceFarm.Types: data OfferingStatus
- Network.AWS.DeviceFarm.Types: data OfferingTransaction
- Network.AWS.DeviceFarm.Types: data OfferingTransactionType
- Network.AWS.DeviceFarm.Types: data OfferingType
- Network.AWS.DeviceFarm.Types: data Problem
- Network.AWS.DeviceFarm.Types: data ProblemDetail
- Network.AWS.DeviceFarm.Types: data Project
- Network.AWS.DeviceFarm.Types: data Radios
- Network.AWS.DeviceFarm.Types: data RecurringCharge
- Network.AWS.DeviceFarm.Types: data RecurringChargeFrequency
- Network.AWS.DeviceFarm.Types: data RemoteAccessSession
- Network.AWS.DeviceFarm.Types: data Resolution
- Network.AWS.DeviceFarm.Types: data Rule
- Network.AWS.DeviceFarm.Types: data RuleOperator
- Network.AWS.DeviceFarm.Types: data Run
- Network.AWS.DeviceFarm.Types: data Sample
- Network.AWS.DeviceFarm.Types: data SampleType
- Network.AWS.DeviceFarm.Types: data ScheduleRunConfiguration
- Network.AWS.DeviceFarm.Types: data ScheduleRunTest
- Network.AWS.DeviceFarm.Types: data Suite
- Network.AWS.DeviceFarm.Types: data Test
- Network.AWS.DeviceFarm.Types: data TestType
- Network.AWS.DeviceFarm.Types: data TrialMinutes
- Network.AWS.DeviceFarm.Types: data UniqueProblem
- Network.AWS.DeviceFarm.Types: data Upload
- Network.AWS.DeviceFarm.Types: data UploadStatus
- Network.AWS.DeviceFarm.Types: data UploadType
- Network.AWS.DeviceFarm.Types: data VPCEConfiguration
- Network.AWS.DeviceFarm.Types: devArn :: Lens' Device (Maybe Text)
- Network.AWS.DeviceFarm.Types: devCarrier :: Lens' Device (Maybe Text)
- Network.AWS.DeviceFarm.Types: devCpu :: Lens' Device (Maybe CPU)
- Network.AWS.DeviceFarm.Types: devFleetName :: Lens' Device (Maybe Text)
- Network.AWS.DeviceFarm.Types: devFleetType :: Lens' Device (Maybe Text)
- Network.AWS.DeviceFarm.Types: devFormFactor :: Lens' Device (Maybe DeviceFormFactor)
- Network.AWS.DeviceFarm.Types: devHeapSize :: Lens' Device (Maybe Integer)
- Network.AWS.DeviceFarm.Types: devImage :: Lens' Device (Maybe Text)
- Network.AWS.DeviceFarm.Types: devInstances :: Lens' Device [DeviceInstance]
- Network.AWS.DeviceFarm.Types: devManufacturer :: Lens' Device (Maybe Text)
- Network.AWS.DeviceFarm.Types: devMemory :: Lens' Device (Maybe Integer)
- Network.AWS.DeviceFarm.Types: devModel :: Lens' Device (Maybe Text)
- Network.AWS.DeviceFarm.Types: devModelId :: Lens' Device (Maybe Text)
- Network.AWS.DeviceFarm.Types: devName :: Lens' Device (Maybe Text)
- Network.AWS.DeviceFarm.Types: devOs :: Lens' Device (Maybe Text)
- Network.AWS.DeviceFarm.Types: devPlatform :: Lens' Device (Maybe DevicePlatform)
- Network.AWS.DeviceFarm.Types: devRadio :: Lens' Device (Maybe Text)
- Network.AWS.DeviceFarm.Types: devRemoteAccessEnabled :: Lens' Device (Maybe Bool)
- Network.AWS.DeviceFarm.Types: devRemoteDebugEnabled :: Lens' Device (Maybe Bool)
- Network.AWS.DeviceFarm.Types: devResolution :: Lens' Device (Maybe Resolution)
- Network.AWS.DeviceFarm.Types: device :: Device
- Network.AWS.DeviceFarm.Types: deviceFarm :: Service
- Network.AWS.DeviceFarm.Types: deviceInstance :: DeviceInstance
- Network.AWS.DeviceFarm.Types: deviceMinutes :: DeviceMinutes
- Network.AWS.DeviceFarm.Types: devicePool :: DevicePool
- Network.AWS.DeviceFarm.Types: devicePoolCompatibilityResult :: DevicePoolCompatibilityResult
- Network.AWS.DeviceFarm.Types: diArn :: Lens' DeviceInstance (Maybe Text)
- Network.AWS.DeviceFarm.Types: diDeviceARN :: Lens' DeviceInstance (Maybe Text)
- Network.AWS.DeviceFarm.Types: diInstanceProfile :: Lens' DeviceInstance (Maybe InstanceProfile)
- Network.AWS.DeviceFarm.Types: diLabels :: Lens' DeviceInstance [Text]
- Network.AWS.DeviceFarm.Types: diStatus :: Lens' DeviceInstance (Maybe InstanceStatus)
- Network.AWS.DeviceFarm.Types: diUdid :: Lens' DeviceInstance (Maybe Text)
- Network.AWS.DeviceFarm.Types: dmMetered :: Lens' DeviceMinutes (Maybe Double)
- Network.AWS.DeviceFarm.Types: dmTotal :: Lens' DeviceMinutes (Maybe Double)
- Network.AWS.DeviceFarm.Types: dmUnmetered :: Lens' DeviceMinutes (Maybe Double)
- Network.AWS.DeviceFarm.Types: dpcrCompatible :: Lens' DevicePoolCompatibilityResult (Maybe Bool)
- Network.AWS.DeviceFarm.Types: dpcrDevice :: Lens' DevicePoolCompatibilityResult (Maybe Device)
- Network.AWS.DeviceFarm.Types: dpcrIncompatibilityMessages :: Lens' DevicePoolCompatibilityResult [IncompatibilityMessage]
- Network.AWS.DeviceFarm.Types: ecAccountsCleanup :: Lens' ExecutionConfiguration (Maybe Bool)
- Network.AWS.DeviceFarm.Types: ecAppPackagesCleanup :: Lens' ExecutionConfiguration (Maybe Bool)
- Network.AWS.DeviceFarm.Types: ecJobTimeoutMinutes :: Lens' ExecutionConfiguration (Maybe Int)
- Network.AWS.DeviceFarm.Types: ecSkipAppResign :: Lens' ExecutionConfiguration (Maybe Bool)
- Network.AWS.DeviceFarm.Types: executionConfiguration :: ExecutionConfiguration
- Network.AWS.DeviceFarm.Types: imMessage :: Lens' IncompatibilityMessage (Maybe Text)
- Network.AWS.DeviceFarm.Types: imType :: Lens' IncompatibilityMessage (Maybe DeviceAttribute)
- Network.AWS.DeviceFarm.Types: incompatibilityMessage :: IncompatibilityMessage
- Network.AWS.DeviceFarm.Types: instanceProfile :: InstanceProfile
- Network.AWS.DeviceFarm.Types: ipArn :: Lens' InstanceProfile (Maybe Text)
- Network.AWS.DeviceFarm.Types: ipDescription :: Lens' InstanceProfile (Maybe Text)
- Network.AWS.DeviceFarm.Types: ipExcludeAppPackagesFromCleanup :: Lens' InstanceProfile [Text]
- Network.AWS.DeviceFarm.Types: ipName :: Lens' InstanceProfile (Maybe Text)
- Network.AWS.DeviceFarm.Types: ipPackageCleanup :: Lens' InstanceProfile (Maybe Bool)
- Network.AWS.DeviceFarm.Types: ipRebootAfterUse :: Lens' InstanceProfile (Maybe Bool)
- Network.AWS.DeviceFarm.Types: job :: Job
- Network.AWS.DeviceFarm.Types: jobArn :: Lens' Job (Maybe Text)
- Network.AWS.DeviceFarm.Types: jobCounters :: Lens' Job (Maybe Counters)
- Network.AWS.DeviceFarm.Types: jobCreated :: Lens' Job (Maybe UTCTime)
- Network.AWS.DeviceFarm.Types: jobDevice :: Lens' Job (Maybe Device)
- Network.AWS.DeviceFarm.Types: jobDeviceMinutes :: Lens' Job (Maybe DeviceMinutes)
- Network.AWS.DeviceFarm.Types: jobInstanceARN :: Lens' Job (Maybe Text)
- Network.AWS.DeviceFarm.Types: jobMessage :: Lens' Job (Maybe Text)
- Network.AWS.DeviceFarm.Types: jobName :: Lens' Job (Maybe Text)
- Network.AWS.DeviceFarm.Types: jobResult :: Lens' Job (Maybe ExecutionResult)
- Network.AWS.DeviceFarm.Types: jobStarted :: Lens' Job (Maybe UTCTime)
- Network.AWS.DeviceFarm.Types: jobStatus :: Lens' Job (Maybe ExecutionStatus)
- Network.AWS.DeviceFarm.Types: jobStopped :: Lens' Job (Maybe UTCTime)
- Network.AWS.DeviceFarm.Types: jobType :: Lens' Job (Maybe TestType)
- Network.AWS.DeviceFarm.Types: lLatitude :: Lens' Location Double
- Network.AWS.DeviceFarm.Types: lLongitude :: Lens' Location Double
- Network.AWS.DeviceFarm.Types: location :: Double -> Double -> Location
- Network.AWS.DeviceFarm.Types: maAmount :: Lens' MonetaryAmount (Maybe Double)
- Network.AWS.DeviceFarm.Types: maCurrencyCode :: Lens' MonetaryAmount (Maybe CurrencyCode)
- Network.AWS.DeviceFarm.Types: monetaryAmount :: MonetaryAmount
- Network.AWS.DeviceFarm.Types: networkProfile :: NetworkProfile
- Network.AWS.DeviceFarm.Types: npArn :: Lens' NetworkProfile (Maybe Text)
- Network.AWS.DeviceFarm.Types: npDescription :: Lens' NetworkProfile (Maybe Text)
- Network.AWS.DeviceFarm.Types: npDownlinkBandwidthBits :: Lens' NetworkProfile (Maybe Integer)
- Network.AWS.DeviceFarm.Types: npDownlinkDelayMs :: Lens' NetworkProfile (Maybe Integer)
- Network.AWS.DeviceFarm.Types: npDownlinkJitterMs :: Lens' NetworkProfile (Maybe Integer)
- Network.AWS.DeviceFarm.Types: npDownlinkLossPercent :: Lens' NetworkProfile (Maybe Natural)
- Network.AWS.DeviceFarm.Types: npName :: Lens' NetworkProfile (Maybe Text)
- Network.AWS.DeviceFarm.Types: npType :: Lens' NetworkProfile (Maybe NetworkProfileType)
- Network.AWS.DeviceFarm.Types: npUplinkBandwidthBits :: Lens' NetworkProfile (Maybe Integer)
- Network.AWS.DeviceFarm.Types: npUplinkDelayMs :: Lens' NetworkProfile (Maybe Integer)
- Network.AWS.DeviceFarm.Types: npUplinkJitterMs :: Lens' NetworkProfile (Maybe Integer)
- Network.AWS.DeviceFarm.Types: npUplinkLossPercent :: Lens' NetworkProfile (Maybe Natural)
- Network.AWS.DeviceFarm.Types: oDescription :: Lens' Offering (Maybe Text)
- Network.AWS.DeviceFarm.Types: oId :: Lens' Offering (Maybe Text)
- Network.AWS.DeviceFarm.Types: oPlatform :: Lens' Offering (Maybe DevicePlatform)
- Network.AWS.DeviceFarm.Types: oRecurringCharges :: Lens' Offering [RecurringCharge]
- Network.AWS.DeviceFarm.Types: oType :: Lens' Offering (Maybe OfferingType)
- Network.AWS.DeviceFarm.Types: offering :: Offering
- Network.AWS.DeviceFarm.Types: offeringPromotion :: OfferingPromotion
- Network.AWS.DeviceFarm.Types: offeringStatus :: OfferingStatus
- Network.AWS.DeviceFarm.Types: offeringTransaction :: OfferingTransaction
- Network.AWS.DeviceFarm.Types: opDescription :: Lens' OfferingPromotion (Maybe Text)
- Network.AWS.DeviceFarm.Types: opId :: Lens' OfferingPromotion (Maybe Text)
- Network.AWS.DeviceFarm.Types: osEffectiveOn :: Lens' OfferingStatus (Maybe UTCTime)
- Network.AWS.DeviceFarm.Types: osOffering :: Lens' OfferingStatus (Maybe Offering)
- Network.AWS.DeviceFarm.Types: osQuantity :: Lens' OfferingStatus (Maybe Int)
- Network.AWS.DeviceFarm.Types: osType :: Lens' OfferingStatus (Maybe OfferingTransactionType)
- Network.AWS.DeviceFarm.Types: otCost :: Lens' OfferingTransaction (Maybe MonetaryAmount)
- Network.AWS.DeviceFarm.Types: otCreatedOn :: Lens' OfferingTransaction (Maybe UTCTime)
- Network.AWS.DeviceFarm.Types: otOfferingPromotionId :: Lens' OfferingTransaction (Maybe Text)
- Network.AWS.DeviceFarm.Types: otOfferingStatus :: Lens' OfferingTransaction (Maybe OfferingStatus)
- Network.AWS.DeviceFarm.Types: otTransactionId :: Lens' OfferingTransaction (Maybe Text)
- Network.AWS.DeviceFarm.Types: pArn :: Lens' Project (Maybe Text)
- Network.AWS.DeviceFarm.Types: pCreated :: Lens' Project (Maybe UTCTime)
- Network.AWS.DeviceFarm.Types: pDefaultJobTimeoutMinutes :: Lens' Project (Maybe Int)
- Network.AWS.DeviceFarm.Types: pDevice :: Lens' Problem (Maybe Device)
- Network.AWS.DeviceFarm.Types: pJob :: Lens' Problem (Maybe ProblemDetail)
- Network.AWS.DeviceFarm.Types: pMessage :: Lens' Problem (Maybe Text)
- Network.AWS.DeviceFarm.Types: pName :: Lens' Project (Maybe Text)
- Network.AWS.DeviceFarm.Types: pResult :: Lens' Problem (Maybe ExecutionResult)
- Network.AWS.DeviceFarm.Types: pRun :: Lens' Problem (Maybe ProblemDetail)
- Network.AWS.DeviceFarm.Types: pSuite :: Lens' Problem (Maybe ProblemDetail)
- Network.AWS.DeviceFarm.Types: pTest :: Lens' Problem (Maybe ProblemDetail)
- Network.AWS.DeviceFarm.Types: pdArn :: Lens' ProblemDetail (Maybe Text)
- Network.AWS.DeviceFarm.Types: pdName :: Lens' ProblemDetail (Maybe Text)
- Network.AWS.DeviceFarm.Types: problem :: Problem
- Network.AWS.DeviceFarm.Types: problemDetail :: ProblemDetail
- Network.AWS.DeviceFarm.Types: project :: Project
- Network.AWS.DeviceFarm.Types: rAttribute :: Lens' Rule (Maybe DeviceAttribute)
- Network.AWS.DeviceFarm.Types: rBluetooth :: Lens' Radios (Maybe Bool)
- Network.AWS.DeviceFarm.Types: rGps :: Lens' Radios (Maybe Bool)
- Network.AWS.DeviceFarm.Types: rHeight :: Lens' Resolution (Maybe Int)
- Network.AWS.DeviceFarm.Types: rNfc :: Lens' Radios (Maybe Bool)
- Network.AWS.DeviceFarm.Types: rOperator :: Lens' Rule (Maybe RuleOperator)
- Network.AWS.DeviceFarm.Types: rValue :: Lens' Rule (Maybe Text)
- Network.AWS.DeviceFarm.Types: rWidth :: Lens' Resolution (Maybe Int)
- Network.AWS.DeviceFarm.Types: rWifi :: Lens' Radios (Maybe Bool)
- Network.AWS.DeviceFarm.Types: radios :: Radios
- Network.AWS.DeviceFarm.Types: rasArn :: Lens' RemoteAccessSession (Maybe Text)
- Network.AWS.DeviceFarm.Types: rasBillingMethod :: Lens' RemoteAccessSession (Maybe BillingMethod)
- Network.AWS.DeviceFarm.Types: rasClientId :: Lens' RemoteAccessSession (Maybe Text)
- Network.AWS.DeviceFarm.Types: rasCreated :: Lens' RemoteAccessSession (Maybe UTCTime)
- Network.AWS.DeviceFarm.Types: rasDevice :: Lens' RemoteAccessSession (Maybe Device)
- Network.AWS.DeviceFarm.Types: rasDeviceMinutes :: Lens' RemoteAccessSession (Maybe DeviceMinutes)
- Network.AWS.DeviceFarm.Types: rasDeviceUdid :: Lens' RemoteAccessSession (Maybe Text)
- Network.AWS.DeviceFarm.Types: rasEndpoint :: Lens' RemoteAccessSession (Maybe Text)
- Network.AWS.DeviceFarm.Types: rasHostAddress :: Lens' RemoteAccessSession (Maybe Text)
- Network.AWS.DeviceFarm.Types: rasInstanceARN :: Lens' RemoteAccessSession (Maybe Text)
- Network.AWS.DeviceFarm.Types: rasInteractionMode :: Lens' RemoteAccessSession (Maybe InteractionMode)
- Network.AWS.DeviceFarm.Types: rasMessage :: Lens' RemoteAccessSession (Maybe Text)
- Network.AWS.DeviceFarm.Types: rasName :: Lens' RemoteAccessSession (Maybe Text)
- Network.AWS.DeviceFarm.Types: rasRemoteDebugEnabled :: Lens' RemoteAccessSession (Maybe Bool)
- Network.AWS.DeviceFarm.Types: rasRemoteRecordAppARN :: Lens' RemoteAccessSession (Maybe Text)
- Network.AWS.DeviceFarm.Types: rasRemoteRecordEnabled :: Lens' RemoteAccessSession (Maybe Bool)
- Network.AWS.DeviceFarm.Types: rasResult :: Lens' RemoteAccessSession (Maybe ExecutionResult)
- Network.AWS.DeviceFarm.Types: rasSkipAppResign :: Lens' RemoteAccessSession (Maybe Bool)
- Network.AWS.DeviceFarm.Types: rasStarted :: Lens' RemoteAccessSession (Maybe UTCTime)
- Network.AWS.DeviceFarm.Types: rasStatus :: Lens' RemoteAccessSession (Maybe ExecutionStatus)
- Network.AWS.DeviceFarm.Types: rasStopped :: Lens' RemoteAccessSession (Maybe UTCTime)
- Network.AWS.DeviceFarm.Types: rcCost :: Lens' RecurringCharge (Maybe MonetaryAmount)
- Network.AWS.DeviceFarm.Types: rcFrequency :: Lens' RecurringCharge (Maybe RecurringChargeFrequency)
- Network.AWS.DeviceFarm.Types: recurringCharge :: RecurringCharge
- Network.AWS.DeviceFarm.Types: remoteAccessSession :: RemoteAccessSession
- Network.AWS.DeviceFarm.Types: resolution :: Resolution
- Network.AWS.DeviceFarm.Types: rule :: Rule
- Network.AWS.DeviceFarm.Types: run :: Run
- Network.AWS.DeviceFarm.Types: runAppUpload :: Lens' Run (Maybe Text)
- Network.AWS.DeviceFarm.Types: runArn :: Lens' Run (Maybe Text)
- Network.AWS.DeviceFarm.Types: runBillingMethod :: Lens' Run (Maybe BillingMethod)
- Network.AWS.DeviceFarm.Types: runCompletedJobs :: Lens' Run (Maybe Int)
- Network.AWS.DeviceFarm.Types: runCounters :: Lens' Run (Maybe Counters)
- Network.AWS.DeviceFarm.Types: runCreated :: Lens' Run (Maybe UTCTime)
- Network.AWS.DeviceFarm.Types: runCustomerArtifactPaths :: Lens' Run (Maybe CustomerArtifactPaths)
- Network.AWS.DeviceFarm.Types: runDeviceMinutes :: Lens' Run (Maybe DeviceMinutes)
- Network.AWS.DeviceFarm.Types: runDevicePoolARN :: Lens' Run (Maybe Text)
- Network.AWS.DeviceFarm.Types: runEventCount :: Lens' Run (Maybe Int)
- Network.AWS.DeviceFarm.Types: runJobTimeoutMinutes :: Lens' Run (Maybe Int)
- Network.AWS.DeviceFarm.Types: runLocale :: Lens' Run (Maybe Text)
- Network.AWS.DeviceFarm.Types: runLocation :: Lens' Run (Maybe Location)
- Network.AWS.DeviceFarm.Types: runMessage :: Lens' Run (Maybe Text)
- Network.AWS.DeviceFarm.Types: runName :: Lens' Run (Maybe Text)
- Network.AWS.DeviceFarm.Types: runNetworkProfile :: Lens' Run (Maybe NetworkProfile)
- Network.AWS.DeviceFarm.Types: runParsingResultURL :: Lens' Run (Maybe Text)
- Network.AWS.DeviceFarm.Types: runPlatform :: Lens' Run (Maybe DevicePlatform)
- Network.AWS.DeviceFarm.Types: runRadios :: Lens' Run (Maybe Radios)
- Network.AWS.DeviceFarm.Types: runResult :: Lens' Run (Maybe ExecutionResult)
- Network.AWS.DeviceFarm.Types: runResultCode :: Lens' Run (Maybe ExecutionResultCode)
- Network.AWS.DeviceFarm.Types: runSeed :: Lens' Run (Maybe Int)
- Network.AWS.DeviceFarm.Types: runSkipAppResign :: Lens' Run (Maybe Bool)
- Network.AWS.DeviceFarm.Types: runStarted :: Lens' Run (Maybe UTCTime)
- Network.AWS.DeviceFarm.Types: runStatus :: Lens' Run (Maybe ExecutionStatus)
- Network.AWS.DeviceFarm.Types: runStopped :: Lens' Run (Maybe UTCTime)
- Network.AWS.DeviceFarm.Types: runTotalJobs :: Lens' Run (Maybe Int)
- Network.AWS.DeviceFarm.Types: runType :: Lens' Run (Maybe TestType)
- Network.AWS.DeviceFarm.Types: runWebURL :: Lens' Run (Maybe Text)
- Network.AWS.DeviceFarm.Types: sArn :: Lens' Suite (Maybe Text)
- Network.AWS.DeviceFarm.Types: sCounters :: Lens' Suite (Maybe Counters)
- Network.AWS.DeviceFarm.Types: sCreated :: Lens' Suite (Maybe UTCTime)
- Network.AWS.DeviceFarm.Types: sDeviceMinutes :: Lens' Suite (Maybe DeviceMinutes)
- Network.AWS.DeviceFarm.Types: sMessage :: Lens' Suite (Maybe Text)
- Network.AWS.DeviceFarm.Types: sName :: Lens' Suite (Maybe Text)
- Network.AWS.DeviceFarm.Types: sResult :: Lens' Suite (Maybe ExecutionResult)
- Network.AWS.DeviceFarm.Types: sStarted :: Lens' Suite (Maybe UTCTime)
- Network.AWS.DeviceFarm.Types: sStatus :: Lens' Suite (Maybe ExecutionStatus)
- Network.AWS.DeviceFarm.Types: sStopped :: Lens' Suite (Maybe UTCTime)
- Network.AWS.DeviceFarm.Types: sType :: Lens' Suite (Maybe TestType)
- Network.AWS.DeviceFarm.Types: samArn :: Lens' Sample (Maybe Text)
- Network.AWS.DeviceFarm.Types: samType :: Lens' Sample (Maybe SampleType)
- Network.AWS.DeviceFarm.Types: samUrl :: Lens' Sample (Maybe Text)
- Network.AWS.DeviceFarm.Types: sample :: Sample
- Network.AWS.DeviceFarm.Types: scheduleRunConfiguration :: ScheduleRunConfiguration
- Network.AWS.DeviceFarm.Types: scheduleRunTest :: TestType -> ScheduleRunTest
- Network.AWS.DeviceFarm.Types: srcAuxiliaryApps :: Lens' ScheduleRunConfiguration [Text]
- Network.AWS.DeviceFarm.Types: srcBillingMethod :: Lens' ScheduleRunConfiguration (Maybe BillingMethod)
- Network.AWS.DeviceFarm.Types: srcCustomerArtifactPaths :: Lens' ScheduleRunConfiguration (Maybe CustomerArtifactPaths)
- Network.AWS.DeviceFarm.Types: srcExtraDataPackageARN :: Lens' ScheduleRunConfiguration (Maybe Text)
- Network.AWS.DeviceFarm.Types: srcLocale :: Lens' ScheduleRunConfiguration (Maybe Text)
- Network.AWS.DeviceFarm.Types: srcLocation :: Lens' ScheduleRunConfiguration (Maybe Location)
- Network.AWS.DeviceFarm.Types: srcNetworkProfileARN :: Lens' ScheduleRunConfiguration (Maybe Text)
- Network.AWS.DeviceFarm.Types: srcRadios :: Lens' ScheduleRunConfiguration (Maybe Radios)
- Network.AWS.DeviceFarm.Types: srcVpceConfigurationARNs :: Lens' ScheduleRunConfiguration [Text]
- Network.AWS.DeviceFarm.Types: srtFilter :: Lens' ScheduleRunTest (Maybe Text)
- Network.AWS.DeviceFarm.Types: srtParameters :: Lens' ScheduleRunTest (HashMap Text Text)
- Network.AWS.DeviceFarm.Types: srtTestPackageARN :: Lens' ScheduleRunTest (Maybe Text)
- Network.AWS.DeviceFarm.Types: srtType :: Lens' ScheduleRunTest TestType
- Network.AWS.DeviceFarm.Types: suite :: Suite
- Network.AWS.DeviceFarm.Types: tArn :: Lens' Test (Maybe Text)
- Network.AWS.DeviceFarm.Types: tCounters :: Lens' Test (Maybe Counters)
- Network.AWS.DeviceFarm.Types: tCreated :: Lens' Test (Maybe UTCTime)
- Network.AWS.DeviceFarm.Types: tDeviceMinutes :: Lens' Test (Maybe DeviceMinutes)
- Network.AWS.DeviceFarm.Types: tMessage :: Lens' Test (Maybe Text)
- Network.AWS.DeviceFarm.Types: tName :: Lens' Test (Maybe Text)
- Network.AWS.DeviceFarm.Types: tResult :: Lens' Test (Maybe ExecutionResult)
- Network.AWS.DeviceFarm.Types: tStarted :: Lens' Test (Maybe UTCTime)
- Network.AWS.DeviceFarm.Types: tStatus :: Lens' Test (Maybe ExecutionStatus)
- Network.AWS.DeviceFarm.Types: tStopped :: Lens' Test (Maybe UTCTime)
- Network.AWS.DeviceFarm.Types: tType :: Lens' Test (Maybe TestType)
- Network.AWS.DeviceFarm.Types: test :: Test
- Network.AWS.DeviceFarm.Types: tmRemaining :: Lens' TrialMinutes (Maybe Double)
- Network.AWS.DeviceFarm.Types: tmTotal :: Lens' TrialMinutes (Maybe Double)
- Network.AWS.DeviceFarm.Types: trialMinutes :: TrialMinutes
- Network.AWS.DeviceFarm.Types: uArn :: Lens' Upload (Maybe Text)
- Network.AWS.DeviceFarm.Types: uContentType :: Lens' Upload (Maybe Text)
- Network.AWS.DeviceFarm.Types: uCreated :: Lens' Upload (Maybe UTCTime)
- Network.AWS.DeviceFarm.Types: uMessage :: Lens' Upload (Maybe Text)
- Network.AWS.DeviceFarm.Types: uMetadata :: Lens' Upload (Maybe Text)
- Network.AWS.DeviceFarm.Types: uName :: Lens' Upload (Maybe Text)
- Network.AWS.DeviceFarm.Types: uStatus :: Lens' Upload (Maybe UploadStatus)
- Network.AWS.DeviceFarm.Types: uType :: Lens' Upload (Maybe UploadType)
- Network.AWS.DeviceFarm.Types: uUrl :: Lens' Upload (Maybe Text)
- Network.AWS.DeviceFarm.Types: uniqueProblem :: UniqueProblem
- Network.AWS.DeviceFarm.Types: upMessage :: Lens' UniqueProblem (Maybe Text)
- Network.AWS.DeviceFarm.Types: upProblems :: Lens' UniqueProblem [Problem]
- Network.AWS.DeviceFarm.Types: upload :: Upload
- Network.AWS.DeviceFarm.Types: vecArn :: Lens' VPCEConfiguration (Maybe Text)
- Network.AWS.DeviceFarm.Types: vecServiceDNSName :: Lens' VPCEConfiguration (Maybe Text)
- Network.AWS.DeviceFarm.Types: vecVpceConfigurationDescription :: Lens' VPCEConfiguration (Maybe Text)
- Network.AWS.DeviceFarm.Types: vecVpceConfigurationName :: Lens' VPCEConfiguration (Maybe Text)
- Network.AWS.DeviceFarm.Types: vecVpceServiceName :: Lens' VPCEConfiguration (Maybe Text)
- Network.AWS.DeviceFarm.Types: vpcEConfiguration :: VPCEConfiguration
- Network.AWS.DeviceFarm.UpdateDeviceInstance: data UpdateDeviceInstance
- Network.AWS.DeviceFarm.UpdateDeviceInstance: data UpdateDeviceInstanceResponse
- Network.AWS.DeviceFarm.UpdateDeviceInstance: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstance
- Network.AWS.DeviceFarm.UpdateDeviceInstance: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstanceResponse
- Network.AWS.DeviceFarm.UpdateDeviceInstance: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstance
- Network.AWS.DeviceFarm.UpdateDeviceInstance: instance Data.Data.Data Network.AWS.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstance
- Network.AWS.DeviceFarm.UpdateDeviceInstance: instance Data.Data.Data Network.AWS.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstanceResponse
- Network.AWS.DeviceFarm.UpdateDeviceInstance: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstance
- Network.AWS.DeviceFarm.UpdateDeviceInstance: instance GHC.Classes.Eq Network.AWS.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstance
- Network.AWS.DeviceFarm.UpdateDeviceInstance: instance GHC.Classes.Eq Network.AWS.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstanceResponse
- Network.AWS.DeviceFarm.UpdateDeviceInstance: instance GHC.Generics.Generic Network.AWS.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstance
- Network.AWS.DeviceFarm.UpdateDeviceInstance: instance GHC.Generics.Generic Network.AWS.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstanceResponse
- Network.AWS.DeviceFarm.UpdateDeviceInstance: instance GHC.Read.Read Network.AWS.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstance
- Network.AWS.DeviceFarm.UpdateDeviceInstance: instance GHC.Read.Read Network.AWS.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstanceResponse
- Network.AWS.DeviceFarm.UpdateDeviceInstance: instance GHC.Show.Show Network.AWS.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstance
- Network.AWS.DeviceFarm.UpdateDeviceInstance: instance GHC.Show.Show Network.AWS.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstanceResponse
- Network.AWS.DeviceFarm.UpdateDeviceInstance: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstance
- Network.AWS.DeviceFarm.UpdateDeviceInstance: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstance
- Network.AWS.DeviceFarm.UpdateDeviceInstance: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstance
- Network.AWS.DeviceFarm.UpdateDeviceInstance: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstance
- Network.AWS.DeviceFarm.UpdateDeviceInstance: udiArn :: Lens' UpdateDeviceInstance Text
- Network.AWS.DeviceFarm.UpdateDeviceInstance: udiLabels :: Lens' UpdateDeviceInstance [Text]
- Network.AWS.DeviceFarm.UpdateDeviceInstance: udiProfileARN :: Lens' UpdateDeviceInstance (Maybe Text)
- Network.AWS.DeviceFarm.UpdateDeviceInstance: udirsDeviceInstance :: Lens' UpdateDeviceInstanceResponse (Maybe DeviceInstance)
- Network.AWS.DeviceFarm.UpdateDeviceInstance: udirsResponseStatus :: Lens' UpdateDeviceInstanceResponse Int
- Network.AWS.DeviceFarm.UpdateDeviceInstance: updateDeviceInstance :: Text -> UpdateDeviceInstance
- Network.AWS.DeviceFarm.UpdateDeviceInstance: updateDeviceInstanceResponse :: Int -> UpdateDeviceInstanceResponse
- Network.AWS.DeviceFarm.UpdateDevicePool: data UpdateDevicePool
- Network.AWS.DeviceFarm.UpdateDevicePool: data UpdateDevicePoolResponse
- Network.AWS.DeviceFarm.UpdateDevicePool: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.UpdateDevicePool.UpdateDevicePool
- Network.AWS.DeviceFarm.UpdateDevicePool: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.UpdateDevicePool.UpdateDevicePoolResponse
- Network.AWS.DeviceFarm.UpdateDevicePool: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.UpdateDevicePool.UpdateDevicePool
- Network.AWS.DeviceFarm.UpdateDevicePool: instance Data.Data.Data Network.AWS.DeviceFarm.UpdateDevicePool.UpdateDevicePool
- Network.AWS.DeviceFarm.UpdateDevicePool: instance Data.Data.Data Network.AWS.DeviceFarm.UpdateDevicePool.UpdateDevicePoolResponse
- Network.AWS.DeviceFarm.UpdateDevicePool: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.UpdateDevicePool.UpdateDevicePool
- Network.AWS.DeviceFarm.UpdateDevicePool: instance GHC.Classes.Eq Network.AWS.DeviceFarm.UpdateDevicePool.UpdateDevicePool
- Network.AWS.DeviceFarm.UpdateDevicePool: instance GHC.Classes.Eq Network.AWS.DeviceFarm.UpdateDevicePool.UpdateDevicePoolResponse
- Network.AWS.DeviceFarm.UpdateDevicePool: instance GHC.Generics.Generic Network.AWS.DeviceFarm.UpdateDevicePool.UpdateDevicePool
- Network.AWS.DeviceFarm.UpdateDevicePool: instance GHC.Generics.Generic Network.AWS.DeviceFarm.UpdateDevicePool.UpdateDevicePoolResponse
- Network.AWS.DeviceFarm.UpdateDevicePool: instance GHC.Read.Read Network.AWS.DeviceFarm.UpdateDevicePool.UpdateDevicePool
- Network.AWS.DeviceFarm.UpdateDevicePool: instance GHC.Read.Read Network.AWS.DeviceFarm.UpdateDevicePool.UpdateDevicePoolResponse
- Network.AWS.DeviceFarm.UpdateDevicePool: instance GHC.Show.Show Network.AWS.DeviceFarm.UpdateDevicePool.UpdateDevicePool
- Network.AWS.DeviceFarm.UpdateDevicePool: instance GHC.Show.Show Network.AWS.DeviceFarm.UpdateDevicePool.UpdateDevicePoolResponse
- Network.AWS.DeviceFarm.UpdateDevicePool: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.UpdateDevicePool.UpdateDevicePool
- Network.AWS.DeviceFarm.UpdateDevicePool: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.UpdateDevicePool.UpdateDevicePool
- Network.AWS.DeviceFarm.UpdateDevicePool: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.UpdateDevicePool.UpdateDevicePool
- Network.AWS.DeviceFarm.UpdateDevicePool: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.UpdateDevicePool.UpdateDevicePool
- Network.AWS.DeviceFarm.UpdateDevicePool: udpArn :: Lens' UpdateDevicePool Text
- Network.AWS.DeviceFarm.UpdateDevicePool: udpDescription :: Lens' UpdateDevicePool (Maybe Text)
- Network.AWS.DeviceFarm.UpdateDevicePool: udpName :: Lens' UpdateDevicePool (Maybe Text)
- Network.AWS.DeviceFarm.UpdateDevicePool: udpRules :: Lens' UpdateDevicePool [Rule]
- Network.AWS.DeviceFarm.UpdateDevicePool: udprsDevicePool :: Lens' UpdateDevicePoolResponse (Maybe DevicePool)
- Network.AWS.DeviceFarm.UpdateDevicePool: udprsResponseStatus :: Lens' UpdateDevicePoolResponse Int
- Network.AWS.DeviceFarm.UpdateDevicePool: updateDevicePool :: Text -> UpdateDevicePool
- Network.AWS.DeviceFarm.UpdateDevicePool: updateDevicePoolResponse :: Int -> UpdateDevicePoolResponse
- Network.AWS.DeviceFarm.UpdateInstanceProfile: data UpdateInstanceProfile
- Network.AWS.DeviceFarm.UpdateInstanceProfile: data UpdateInstanceProfileResponse
- Network.AWS.DeviceFarm.UpdateInstanceProfile: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfile
- Network.AWS.DeviceFarm.UpdateInstanceProfile: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfileResponse
- Network.AWS.DeviceFarm.UpdateInstanceProfile: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfile
- Network.AWS.DeviceFarm.UpdateInstanceProfile: instance Data.Data.Data Network.AWS.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfile
- Network.AWS.DeviceFarm.UpdateInstanceProfile: instance Data.Data.Data Network.AWS.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfileResponse
- Network.AWS.DeviceFarm.UpdateInstanceProfile: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfile
- Network.AWS.DeviceFarm.UpdateInstanceProfile: instance GHC.Classes.Eq Network.AWS.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfile
- Network.AWS.DeviceFarm.UpdateInstanceProfile: instance GHC.Classes.Eq Network.AWS.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfileResponse
- Network.AWS.DeviceFarm.UpdateInstanceProfile: instance GHC.Generics.Generic Network.AWS.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfile
- Network.AWS.DeviceFarm.UpdateInstanceProfile: instance GHC.Generics.Generic Network.AWS.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfileResponse
- Network.AWS.DeviceFarm.UpdateInstanceProfile: instance GHC.Read.Read Network.AWS.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfile
- Network.AWS.DeviceFarm.UpdateInstanceProfile: instance GHC.Read.Read Network.AWS.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfileResponse
- Network.AWS.DeviceFarm.UpdateInstanceProfile: instance GHC.Show.Show Network.AWS.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfile
- Network.AWS.DeviceFarm.UpdateInstanceProfile: instance GHC.Show.Show Network.AWS.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfileResponse
- Network.AWS.DeviceFarm.UpdateInstanceProfile: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfile
- Network.AWS.DeviceFarm.UpdateInstanceProfile: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfile
- Network.AWS.DeviceFarm.UpdateInstanceProfile: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfile
- Network.AWS.DeviceFarm.UpdateInstanceProfile: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfile
- Network.AWS.DeviceFarm.UpdateInstanceProfile: uipArn :: Lens' UpdateInstanceProfile Text
- Network.AWS.DeviceFarm.UpdateInstanceProfile: uipDescription :: Lens' UpdateInstanceProfile (Maybe Text)
- Network.AWS.DeviceFarm.UpdateInstanceProfile: uipExcludeAppPackagesFromCleanup :: Lens' UpdateInstanceProfile [Text]
- Network.AWS.DeviceFarm.UpdateInstanceProfile: uipName :: Lens' UpdateInstanceProfile (Maybe Text)
- Network.AWS.DeviceFarm.UpdateInstanceProfile: uipPackageCleanup :: Lens' UpdateInstanceProfile (Maybe Bool)
- Network.AWS.DeviceFarm.UpdateInstanceProfile: uipRebootAfterUse :: Lens' UpdateInstanceProfile (Maybe Bool)
- Network.AWS.DeviceFarm.UpdateInstanceProfile: uiprsInstanceProfile :: Lens' UpdateInstanceProfileResponse (Maybe InstanceProfile)
- Network.AWS.DeviceFarm.UpdateInstanceProfile: uiprsResponseStatus :: Lens' UpdateInstanceProfileResponse Int
- Network.AWS.DeviceFarm.UpdateInstanceProfile: updateInstanceProfile :: Text -> UpdateInstanceProfile
- Network.AWS.DeviceFarm.UpdateInstanceProfile: updateInstanceProfileResponse :: Int -> UpdateInstanceProfileResponse
- Network.AWS.DeviceFarm.UpdateNetworkProfile: data UpdateNetworkProfile
- Network.AWS.DeviceFarm.UpdateNetworkProfile: data UpdateNetworkProfileResponse
- Network.AWS.DeviceFarm.UpdateNetworkProfile: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfile
- Network.AWS.DeviceFarm.UpdateNetworkProfile: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfileResponse
- Network.AWS.DeviceFarm.UpdateNetworkProfile: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfile
- Network.AWS.DeviceFarm.UpdateNetworkProfile: instance Data.Data.Data Network.AWS.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfile
- Network.AWS.DeviceFarm.UpdateNetworkProfile: instance Data.Data.Data Network.AWS.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfileResponse
- Network.AWS.DeviceFarm.UpdateNetworkProfile: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfile
- Network.AWS.DeviceFarm.UpdateNetworkProfile: instance GHC.Classes.Eq Network.AWS.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfile
- Network.AWS.DeviceFarm.UpdateNetworkProfile: instance GHC.Classes.Eq Network.AWS.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfileResponse
- Network.AWS.DeviceFarm.UpdateNetworkProfile: instance GHC.Generics.Generic Network.AWS.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfile
- Network.AWS.DeviceFarm.UpdateNetworkProfile: instance GHC.Generics.Generic Network.AWS.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfileResponse
- Network.AWS.DeviceFarm.UpdateNetworkProfile: instance GHC.Read.Read Network.AWS.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfile
- Network.AWS.DeviceFarm.UpdateNetworkProfile: instance GHC.Read.Read Network.AWS.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfileResponse
- Network.AWS.DeviceFarm.UpdateNetworkProfile: instance GHC.Show.Show Network.AWS.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfile
- Network.AWS.DeviceFarm.UpdateNetworkProfile: instance GHC.Show.Show Network.AWS.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfileResponse
- Network.AWS.DeviceFarm.UpdateNetworkProfile: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfile
- Network.AWS.DeviceFarm.UpdateNetworkProfile: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfile
- Network.AWS.DeviceFarm.UpdateNetworkProfile: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfile
- Network.AWS.DeviceFarm.UpdateNetworkProfile: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfile
- Network.AWS.DeviceFarm.UpdateNetworkProfile: unpArn :: Lens' UpdateNetworkProfile Text
- Network.AWS.DeviceFarm.UpdateNetworkProfile: unpDescription :: Lens' UpdateNetworkProfile (Maybe Text)
- Network.AWS.DeviceFarm.UpdateNetworkProfile: unpDownlinkBandwidthBits :: Lens' UpdateNetworkProfile (Maybe Integer)
- Network.AWS.DeviceFarm.UpdateNetworkProfile: unpDownlinkDelayMs :: Lens' UpdateNetworkProfile (Maybe Integer)
- Network.AWS.DeviceFarm.UpdateNetworkProfile: unpDownlinkJitterMs :: Lens' UpdateNetworkProfile (Maybe Integer)
- Network.AWS.DeviceFarm.UpdateNetworkProfile: unpDownlinkLossPercent :: Lens' UpdateNetworkProfile (Maybe Natural)
- Network.AWS.DeviceFarm.UpdateNetworkProfile: unpName :: Lens' UpdateNetworkProfile (Maybe Text)
- Network.AWS.DeviceFarm.UpdateNetworkProfile: unpType :: Lens' UpdateNetworkProfile (Maybe NetworkProfileType)
- Network.AWS.DeviceFarm.UpdateNetworkProfile: unpUplinkBandwidthBits :: Lens' UpdateNetworkProfile (Maybe Integer)
- Network.AWS.DeviceFarm.UpdateNetworkProfile: unpUplinkDelayMs :: Lens' UpdateNetworkProfile (Maybe Integer)
- Network.AWS.DeviceFarm.UpdateNetworkProfile: unpUplinkJitterMs :: Lens' UpdateNetworkProfile (Maybe Integer)
- Network.AWS.DeviceFarm.UpdateNetworkProfile: unpUplinkLossPercent :: Lens' UpdateNetworkProfile (Maybe Natural)
- Network.AWS.DeviceFarm.UpdateNetworkProfile: unprsNetworkProfile :: Lens' UpdateNetworkProfileResponse (Maybe NetworkProfile)
- Network.AWS.DeviceFarm.UpdateNetworkProfile: unprsResponseStatus :: Lens' UpdateNetworkProfileResponse Int
- Network.AWS.DeviceFarm.UpdateNetworkProfile: updateNetworkProfile :: Text -> UpdateNetworkProfile
- Network.AWS.DeviceFarm.UpdateNetworkProfile: updateNetworkProfileResponse :: Int -> UpdateNetworkProfileResponse
- Network.AWS.DeviceFarm.UpdateProject: data UpdateProject
- Network.AWS.DeviceFarm.UpdateProject: data UpdateProjectResponse
- Network.AWS.DeviceFarm.UpdateProject: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.UpdateProject.UpdateProject
- Network.AWS.DeviceFarm.UpdateProject: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.UpdateProject.UpdateProjectResponse
- Network.AWS.DeviceFarm.UpdateProject: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.UpdateProject.UpdateProject
- Network.AWS.DeviceFarm.UpdateProject: instance Data.Data.Data Network.AWS.DeviceFarm.UpdateProject.UpdateProject
- Network.AWS.DeviceFarm.UpdateProject: instance Data.Data.Data Network.AWS.DeviceFarm.UpdateProject.UpdateProjectResponse
- Network.AWS.DeviceFarm.UpdateProject: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.UpdateProject.UpdateProject
- Network.AWS.DeviceFarm.UpdateProject: instance GHC.Classes.Eq Network.AWS.DeviceFarm.UpdateProject.UpdateProject
- Network.AWS.DeviceFarm.UpdateProject: instance GHC.Classes.Eq Network.AWS.DeviceFarm.UpdateProject.UpdateProjectResponse
- Network.AWS.DeviceFarm.UpdateProject: instance GHC.Generics.Generic Network.AWS.DeviceFarm.UpdateProject.UpdateProject
- Network.AWS.DeviceFarm.UpdateProject: instance GHC.Generics.Generic Network.AWS.DeviceFarm.UpdateProject.UpdateProjectResponse
- Network.AWS.DeviceFarm.UpdateProject: instance GHC.Read.Read Network.AWS.DeviceFarm.UpdateProject.UpdateProject
- Network.AWS.DeviceFarm.UpdateProject: instance GHC.Read.Read Network.AWS.DeviceFarm.UpdateProject.UpdateProjectResponse
- Network.AWS.DeviceFarm.UpdateProject: instance GHC.Show.Show Network.AWS.DeviceFarm.UpdateProject.UpdateProject
- Network.AWS.DeviceFarm.UpdateProject: instance GHC.Show.Show Network.AWS.DeviceFarm.UpdateProject.UpdateProjectResponse
- Network.AWS.DeviceFarm.UpdateProject: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.UpdateProject.UpdateProject
- Network.AWS.DeviceFarm.UpdateProject: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.UpdateProject.UpdateProject
- Network.AWS.DeviceFarm.UpdateProject: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.UpdateProject.UpdateProject
- Network.AWS.DeviceFarm.UpdateProject: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.UpdateProject.UpdateProject
- Network.AWS.DeviceFarm.UpdateProject: upArn :: Lens' UpdateProject Text
- Network.AWS.DeviceFarm.UpdateProject: upDefaultJobTimeoutMinutes :: Lens' UpdateProject (Maybe Int)
- Network.AWS.DeviceFarm.UpdateProject: upName :: Lens' UpdateProject (Maybe Text)
- Network.AWS.DeviceFarm.UpdateProject: updateProject :: Text -> UpdateProject
- Network.AWS.DeviceFarm.UpdateProject: updateProjectResponse :: Int -> UpdateProjectResponse
- Network.AWS.DeviceFarm.UpdateProject: uprsProject :: Lens' UpdateProjectResponse (Maybe Project)
- Network.AWS.DeviceFarm.UpdateProject: uprsResponseStatus :: Lens' UpdateProjectResponse Int
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: data UpdateVPCEConfiguration
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: data UpdateVPCEConfigurationResponse
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfiguration
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: instance Control.DeepSeq.NFData Network.AWS.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfigurationResponse
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfiguration
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: instance Data.Data.Data Network.AWS.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfiguration
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: instance Data.Data.Data Network.AWS.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfigurationResponse
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: instance Data.Hashable.Class.Hashable Network.AWS.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfiguration
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: instance GHC.Classes.Eq Network.AWS.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfiguration
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: instance GHC.Classes.Eq Network.AWS.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfigurationResponse
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: instance GHC.Generics.Generic Network.AWS.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfiguration
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: instance GHC.Generics.Generic Network.AWS.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfigurationResponse
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: instance GHC.Read.Read Network.AWS.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfiguration
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: instance GHC.Read.Read Network.AWS.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfigurationResponse
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: instance GHC.Show.Show Network.AWS.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfiguration
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: instance GHC.Show.Show Network.AWS.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfigurationResponse
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfiguration
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: instance Network.AWS.Data.Path.ToPath Network.AWS.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfiguration
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: instance Network.AWS.Data.Query.ToQuery Network.AWS.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfiguration
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: instance Network.AWS.Types.AWSRequest Network.AWS.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfiguration
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: updateVPCEConfiguration :: Text -> UpdateVPCEConfiguration
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: updateVPCEConfigurationResponse :: Int -> UpdateVPCEConfigurationResponse
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: uvecArn :: Lens' UpdateVPCEConfiguration Text
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: uvecServiceDNSName :: Lens' UpdateVPCEConfiguration (Maybe Text)
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: uvecVpceConfigurationDescription :: Lens' UpdateVPCEConfiguration (Maybe Text)
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: uvecVpceConfigurationName :: Lens' UpdateVPCEConfiguration (Maybe Text)
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: uvecVpceServiceName :: Lens' UpdateVPCEConfiguration (Maybe Text)
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: uvecrsResponseStatus :: Lens' UpdateVPCEConfigurationResponse Int
- Network.AWS.DeviceFarm.UpdateVPCEConfiguration: uvecrsVpceConfiguration :: Lens' UpdateVPCEConfigurationResponse (Maybe VPCEConfiguration)
+ Amazonka.DeviceFarm: AccountSettings' :: Maybe Text -> Maybe Int -> Maybe Int -> Maybe (HashMap Text Int) -> Maybe Bool -> Maybe TrialMinutes -> Maybe (HashMap DevicePlatform Int) -> Maybe (HashMap DevicePlatform Int) -> AccountSettings
+ Amazonka.DeviceFarm: Artifact' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe ArtifactType -> Maybe Text -> Artifact
+ Amazonka.DeviceFarm: ArtifactCategory' :: Text -> ArtifactCategory
+ Amazonka.DeviceFarm: ArtifactType' :: Text -> ArtifactType
+ Amazonka.DeviceFarm: BillingMethod' :: Text -> BillingMethod
+ Amazonka.DeviceFarm: CPU' :: Maybe Text -> Maybe Double -> Maybe Text -> CPU
+ Amazonka.DeviceFarm: Counters' :: Maybe Int -> Maybe Int -> Maybe Int -> Maybe Int -> Maybe Int -> Maybe Int -> Maybe Int -> Counters
+ Amazonka.DeviceFarm: CreateDevicePool' :: Maybe Text -> Maybe Int -> Text -> Text -> [Rule] -> CreateDevicePool
+ Amazonka.DeviceFarm: CreateDevicePoolResponse' :: Maybe DevicePool -> Int -> CreateDevicePoolResponse
+ Amazonka.DeviceFarm: CreateInstanceProfile' :: Maybe Text -> Maybe [Text] -> Maybe Bool -> Maybe Bool -> Text -> CreateInstanceProfile
+ Amazonka.DeviceFarm: CreateInstanceProfileResponse' :: Maybe InstanceProfile -> Int -> CreateInstanceProfileResponse
+ Amazonka.DeviceFarm: CreateNetworkProfile' :: Maybe Text -> Maybe Integer -> Maybe Integer -> Maybe Integer -> Maybe Natural -> Maybe NetworkProfileType -> Maybe Integer -> Maybe Integer -> Maybe Integer -> Maybe Natural -> Text -> Text -> CreateNetworkProfile
+ Amazonka.DeviceFarm: CreateNetworkProfileResponse' :: Maybe NetworkProfile -> Int -> CreateNetworkProfileResponse
+ Amazonka.DeviceFarm: CreateProject' :: Maybe Int -> Maybe VpcConfig -> Text -> CreateProject
+ Amazonka.DeviceFarm: CreateProjectResponse' :: Maybe Project -> Int -> CreateProjectResponse
+ Amazonka.DeviceFarm: CreateRemoteAccessSession' :: Maybe Text -> Maybe CreateRemoteAccessSessionConfiguration -> Maybe Text -> Maybe InteractionMode -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe Bool -> Maybe Bool -> Maybe Text -> Text -> Text -> CreateRemoteAccessSession
+ Amazonka.DeviceFarm: CreateRemoteAccessSessionConfiguration' :: Maybe BillingMethod -> Maybe [Text] -> CreateRemoteAccessSessionConfiguration
+ Amazonka.DeviceFarm: CreateRemoteAccessSessionResponse' :: Maybe RemoteAccessSession -> Int -> CreateRemoteAccessSessionResponse
+ Amazonka.DeviceFarm: CreateTestGridProject' :: Maybe Text -> Maybe TestGridVpcConfig -> Text -> CreateTestGridProject
+ Amazonka.DeviceFarm: CreateTestGridProjectResponse' :: Maybe TestGridProject -> Int -> CreateTestGridProjectResponse
+ Amazonka.DeviceFarm: CreateTestGridUrl' :: Text -> Natural -> CreateTestGridUrl
+ Amazonka.DeviceFarm: CreateTestGridUrlResponse' :: Maybe POSIX -> Maybe (Sensitive Text) -> Int -> CreateTestGridUrlResponse
+ Amazonka.DeviceFarm: CreateUpload' :: Maybe Text -> Text -> Text -> UploadType -> CreateUpload
+ Amazonka.DeviceFarm: CreateUploadResponse' :: Maybe Upload -> Int -> CreateUploadResponse
+ Amazonka.DeviceFarm: CreateVPCEConfiguration' :: Maybe Text -> Text -> Text -> Text -> CreateVPCEConfiguration
+ Amazonka.DeviceFarm: CreateVPCEConfigurationResponse' :: Maybe VPCEConfiguration -> Int -> CreateVPCEConfigurationResponse
+ Amazonka.DeviceFarm: CurrencyCode' :: Text -> CurrencyCode
+ Amazonka.DeviceFarm: CustomerArtifactPaths' :: Maybe [Text] -> Maybe [Text] -> Maybe [Text] -> CustomerArtifactPaths
+ Amazonka.DeviceFarm: DeleteDevicePool' :: Text -> DeleteDevicePool
+ Amazonka.DeviceFarm: DeleteDevicePoolResponse' :: Int -> DeleteDevicePoolResponse
+ Amazonka.DeviceFarm: DeleteInstanceProfile' :: Text -> DeleteInstanceProfile
+ Amazonka.DeviceFarm: DeleteInstanceProfileResponse' :: Int -> DeleteInstanceProfileResponse
+ Amazonka.DeviceFarm: DeleteNetworkProfile' :: Text -> DeleteNetworkProfile
+ Amazonka.DeviceFarm: DeleteNetworkProfileResponse' :: Int -> DeleteNetworkProfileResponse
+ Amazonka.DeviceFarm: DeleteProject' :: Text -> DeleteProject
+ Amazonka.DeviceFarm: DeleteProjectResponse' :: Int -> DeleteProjectResponse
+ Amazonka.DeviceFarm: DeleteRemoteAccessSession' :: Text -> DeleteRemoteAccessSession
+ Amazonka.DeviceFarm: DeleteRemoteAccessSessionResponse' :: Int -> DeleteRemoteAccessSessionResponse
+ Amazonka.DeviceFarm: DeleteRun' :: Text -> DeleteRun
+ Amazonka.DeviceFarm: DeleteRunResponse' :: Int -> DeleteRunResponse
+ Amazonka.DeviceFarm: DeleteTestGridProject' :: Text -> DeleteTestGridProject
+ Amazonka.DeviceFarm: DeleteTestGridProjectResponse' :: Int -> DeleteTestGridProjectResponse
+ Amazonka.DeviceFarm: DeleteUpload' :: Text -> DeleteUpload
+ Amazonka.DeviceFarm: DeleteUploadResponse' :: Int -> DeleteUploadResponse
+ Amazonka.DeviceFarm: DeleteVPCEConfiguration' :: Text -> DeleteVPCEConfiguration
+ Amazonka.DeviceFarm: DeleteVPCEConfigurationResponse' :: Int -> DeleteVPCEConfigurationResponse
+ Amazonka.DeviceFarm: Device' :: Maybe Text -> Maybe DeviceAvailability -> Maybe Text -> Maybe CPU -> Maybe Text -> Maybe Text -> Maybe DeviceFormFactor -> Maybe Integer -> Maybe Text -> Maybe [DeviceInstance] -> Maybe Text -> Maybe Integer -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe DevicePlatform -> Maybe Text -> Maybe Bool -> Maybe Bool -> Maybe Resolution -> Device
+ Amazonka.DeviceFarm: DeviceAttribute' :: Text -> DeviceAttribute
+ Amazonka.DeviceFarm: DeviceAvailability' :: Text -> DeviceAvailability
+ Amazonka.DeviceFarm: DeviceFilter' :: DeviceFilterAttribute -> RuleOperator -> [Text] -> DeviceFilter
+ Amazonka.DeviceFarm: DeviceFilterAttribute' :: Text -> DeviceFilterAttribute
+ Amazonka.DeviceFarm: DeviceFormFactor' :: Text -> DeviceFormFactor
+ Amazonka.DeviceFarm: DeviceInstance' :: Maybe Text -> Maybe Text -> Maybe InstanceProfile -> Maybe [Text] -> Maybe InstanceStatus -> Maybe Text -> DeviceInstance
+ Amazonka.DeviceFarm: DeviceMinutes' :: Maybe Double -> Maybe Double -> Maybe Double -> DeviceMinutes
+ Amazonka.DeviceFarm: DevicePlatform' :: Text -> DevicePlatform
+ Amazonka.DeviceFarm: DevicePool' :: Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe [Rule] -> Maybe DevicePoolType -> DevicePool
+ Amazonka.DeviceFarm: DevicePoolCompatibilityResult' :: Maybe Bool -> Maybe Device -> Maybe [IncompatibilityMessage] -> DevicePoolCompatibilityResult
+ Amazonka.DeviceFarm: DevicePoolType' :: Text -> DevicePoolType
+ Amazonka.DeviceFarm: DeviceSelectionConfiguration' :: [DeviceFilter] -> Int -> DeviceSelectionConfiguration
+ Amazonka.DeviceFarm: DeviceSelectionResult' :: Maybe [DeviceFilter] -> Maybe Int -> Maybe Int -> DeviceSelectionResult
+ Amazonka.DeviceFarm: ExecutionConfiguration' :: Maybe Bool -> Maybe Bool -> Maybe Int -> Maybe Bool -> Maybe Bool -> ExecutionConfiguration
+ Amazonka.DeviceFarm: ExecutionResult' :: Text -> ExecutionResult
+ Amazonka.DeviceFarm: ExecutionResultCode' :: Text -> ExecutionResultCode
+ Amazonka.DeviceFarm: ExecutionStatus' :: Text -> ExecutionStatus
+ Amazonka.DeviceFarm: GetAccountSettings' :: GetAccountSettings
+ Amazonka.DeviceFarm: GetAccountSettingsResponse' :: Maybe AccountSettings -> Int -> GetAccountSettingsResponse
+ Amazonka.DeviceFarm: GetDevice' :: Text -> GetDevice
+ Amazonka.DeviceFarm: GetDeviceInstance' :: Text -> GetDeviceInstance
+ Amazonka.DeviceFarm: GetDeviceInstanceResponse' :: Maybe DeviceInstance -> Int -> GetDeviceInstanceResponse
+ Amazonka.DeviceFarm: GetDevicePool' :: Text -> GetDevicePool
+ Amazonka.DeviceFarm: GetDevicePoolCompatibility' :: Maybe Text -> Maybe ScheduleRunConfiguration -> Maybe ScheduleRunTest -> Maybe TestType -> Text -> GetDevicePoolCompatibility
+ Amazonka.DeviceFarm: GetDevicePoolCompatibilityResponse' :: Maybe [DevicePoolCompatibilityResult] -> Maybe [DevicePoolCompatibilityResult] -> Int -> GetDevicePoolCompatibilityResponse
+ Amazonka.DeviceFarm: GetDevicePoolResponse' :: Maybe DevicePool -> Int -> GetDevicePoolResponse
+ Amazonka.DeviceFarm: GetDeviceResponse' :: Maybe Device -> Int -> GetDeviceResponse
+ Amazonka.DeviceFarm: GetInstanceProfile' :: Text -> GetInstanceProfile
+ Amazonka.DeviceFarm: GetInstanceProfileResponse' :: Maybe InstanceProfile -> Int -> GetInstanceProfileResponse
+ Amazonka.DeviceFarm: GetJob' :: Text -> GetJob
+ Amazonka.DeviceFarm: GetJobResponse' :: Maybe Job -> Int -> GetJobResponse
+ Amazonka.DeviceFarm: GetNetworkProfile' :: Text -> GetNetworkProfile
+ Amazonka.DeviceFarm: GetNetworkProfileResponse' :: Maybe NetworkProfile -> Int -> GetNetworkProfileResponse
+ Amazonka.DeviceFarm: GetOfferingStatus' :: Maybe Text -> GetOfferingStatus
+ Amazonka.DeviceFarm: GetOfferingStatusResponse' :: Maybe (HashMap Text OfferingStatus) -> Maybe (HashMap Text OfferingStatus) -> Maybe Text -> Int -> GetOfferingStatusResponse
+ Amazonka.DeviceFarm: GetProject' :: Text -> GetProject
+ Amazonka.DeviceFarm: GetProjectResponse' :: Maybe Project -> Int -> GetProjectResponse
+ Amazonka.DeviceFarm: GetRemoteAccessSession' :: Text -> GetRemoteAccessSession
+ Amazonka.DeviceFarm: GetRemoteAccessSessionResponse' :: Maybe RemoteAccessSession -> Int -> GetRemoteAccessSessionResponse
+ Amazonka.DeviceFarm: GetRun' :: Text -> GetRun
+ Amazonka.DeviceFarm: GetRunResponse' :: Maybe Run -> Int -> GetRunResponse
+ Amazonka.DeviceFarm: GetSuite' :: Text -> GetSuite
+ Amazonka.DeviceFarm: GetSuiteResponse' :: Maybe Suite -> Int -> GetSuiteResponse
+ Amazonka.DeviceFarm: GetTest' :: Text -> GetTest
+ Amazonka.DeviceFarm: GetTestGridProject' :: Text -> GetTestGridProject
+ Amazonka.DeviceFarm: GetTestGridProjectResponse' :: Maybe TestGridProject -> Int -> GetTestGridProjectResponse
+ Amazonka.DeviceFarm: GetTestGridSession' :: Maybe Text -> Maybe Text -> Maybe Text -> GetTestGridSession
+ Amazonka.DeviceFarm: GetTestGridSessionResponse' :: Maybe TestGridSession -> Int -> GetTestGridSessionResponse
+ Amazonka.DeviceFarm: GetTestResponse' :: Maybe Test -> Int -> GetTestResponse
+ Amazonka.DeviceFarm: GetUpload' :: Text -> GetUpload
+ Amazonka.DeviceFarm: GetUploadResponse' :: Maybe Upload -> Int -> GetUploadResponse
+ Amazonka.DeviceFarm: GetVPCEConfiguration' :: Text -> GetVPCEConfiguration
+ Amazonka.DeviceFarm: GetVPCEConfigurationResponse' :: Maybe VPCEConfiguration -> Int -> GetVPCEConfigurationResponse
+ Amazonka.DeviceFarm: IncompatibilityMessage' :: Maybe Text -> Maybe DeviceAttribute -> IncompatibilityMessage
+ Amazonka.DeviceFarm: InstallToRemoteAccessSession' :: Text -> Text -> InstallToRemoteAccessSession
+ Amazonka.DeviceFarm: InstallToRemoteAccessSessionResponse' :: Maybe Upload -> Int -> InstallToRemoteAccessSessionResponse
+ Amazonka.DeviceFarm: InstanceProfile' :: Maybe Text -> Maybe Text -> Maybe [Text] -> Maybe Text -> Maybe Bool -> Maybe Bool -> InstanceProfile
+ Amazonka.DeviceFarm: InstanceStatus' :: Text -> InstanceStatus
+ Amazonka.DeviceFarm: InteractionMode' :: Text -> InteractionMode
+ Amazonka.DeviceFarm: Job' :: Maybe Text -> Maybe Counters -> Maybe POSIX -> Maybe Device -> Maybe DeviceMinutes -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe ExecutionResult -> Maybe POSIX -> Maybe ExecutionStatus -> Maybe POSIX -> Maybe TestType -> Maybe Bool -> Maybe Text -> Job
+ Amazonka.DeviceFarm: ListArtifacts' :: Maybe Text -> Text -> ArtifactCategory -> ListArtifacts
+ Amazonka.DeviceFarm: ListArtifactsResponse' :: Maybe [Artifact] -> Maybe Text -> Int -> ListArtifactsResponse
+ Amazonka.DeviceFarm: ListDeviceInstances' :: Maybe Int -> Maybe Text -> ListDeviceInstances
+ Amazonka.DeviceFarm: ListDeviceInstancesResponse' :: Maybe [DeviceInstance] -> Maybe Text -> Int -> ListDeviceInstancesResponse
+ Amazonka.DeviceFarm: ListDevicePools' :: Maybe Text -> Maybe DevicePoolType -> Text -> ListDevicePools
+ Amazonka.DeviceFarm: ListDevicePoolsResponse' :: Maybe [DevicePool] -> Maybe Text -> Int -> ListDevicePoolsResponse
+ Amazonka.DeviceFarm: ListDevices' :: Maybe Text -> Maybe [DeviceFilter] -> Maybe Text -> ListDevices
+ Amazonka.DeviceFarm: ListDevicesResponse' :: Maybe [Device] -> Maybe Text -> Int -> ListDevicesResponse
+ Amazonka.DeviceFarm: ListInstanceProfiles' :: Maybe Int -> Maybe Text -> ListInstanceProfiles
+ Amazonka.DeviceFarm: ListInstanceProfilesResponse' :: Maybe [InstanceProfile] -> Maybe Text -> Int -> ListInstanceProfilesResponse
+ Amazonka.DeviceFarm: ListJobs' :: Maybe Text -> Text -> ListJobs
+ Amazonka.DeviceFarm: ListJobsResponse' :: Maybe [Job] -> Maybe Text -> Int -> ListJobsResponse
+ Amazonka.DeviceFarm: ListNetworkProfiles' :: Maybe Text -> Maybe NetworkProfileType -> Text -> ListNetworkProfiles
+ Amazonka.DeviceFarm: ListNetworkProfilesResponse' :: Maybe [NetworkProfile] -> Maybe Text -> Int -> ListNetworkProfilesResponse
+ Amazonka.DeviceFarm: ListOfferingPromotions' :: Maybe Text -> ListOfferingPromotions
+ Amazonka.DeviceFarm: ListOfferingPromotionsResponse' :: Maybe Text -> Maybe [OfferingPromotion] -> Int -> ListOfferingPromotionsResponse
+ Amazonka.DeviceFarm: ListOfferingTransactions' :: Maybe Text -> ListOfferingTransactions
+ Amazonka.DeviceFarm: ListOfferingTransactionsResponse' :: Maybe Text -> Maybe [OfferingTransaction] -> Int -> ListOfferingTransactionsResponse
+ Amazonka.DeviceFarm: ListOfferings' :: Maybe Text -> ListOfferings
+ Amazonka.DeviceFarm: ListOfferingsResponse' :: Maybe Text -> Maybe [Offering] -> Int -> ListOfferingsResponse
+ Amazonka.DeviceFarm: ListProjects' :: Maybe Text -> Maybe Text -> ListProjects
+ Amazonka.DeviceFarm: ListProjectsResponse' :: Maybe Text -> Maybe [Project] -> Int -> ListProjectsResponse
+ Amazonka.DeviceFarm: ListRemoteAccessSessions' :: Maybe Text -> Text -> ListRemoteAccessSessions
+ Amazonka.DeviceFarm: ListRemoteAccessSessionsResponse' :: Maybe Text -> Maybe [RemoteAccessSession] -> Int -> ListRemoteAccessSessionsResponse
+ Amazonka.DeviceFarm: ListRuns' :: Maybe Text -> Text -> ListRuns
+ Amazonka.DeviceFarm: ListRunsResponse' :: Maybe Text -> Maybe [Run] -> Int -> ListRunsResponse
+ Amazonka.DeviceFarm: ListSamples' :: Maybe Text -> Text -> ListSamples
+ Amazonka.DeviceFarm: ListSamplesResponse' :: Maybe Text -> Maybe [Sample] -> Int -> ListSamplesResponse
+ Amazonka.DeviceFarm: ListSuites' :: Maybe Text -> Text -> ListSuites
+ Amazonka.DeviceFarm: ListSuitesResponse' :: Maybe Text -> Maybe [Suite] -> Int -> ListSuitesResponse
+ Amazonka.DeviceFarm: ListTagsForResource' :: Text -> ListTagsForResource
+ Amazonka.DeviceFarm: ListTagsForResourceResponse' :: Maybe [Tag] -> Int -> ListTagsForResourceResponse
+ Amazonka.DeviceFarm: ListTestGridProjects' :: Maybe Natural -> Maybe Text -> ListTestGridProjects
+ Amazonka.DeviceFarm: ListTestGridProjectsResponse' :: Maybe Text -> Maybe [TestGridProject] -> Int -> ListTestGridProjectsResponse
+ Amazonka.DeviceFarm: ListTestGridSessionActions' :: Maybe Natural -> Maybe Text -> Text -> ListTestGridSessionActions
+ Amazonka.DeviceFarm: ListTestGridSessionActionsResponse' :: Maybe [TestGridSessionAction] -> Maybe Text -> Int -> ListTestGridSessionActionsResponse
+ Amazonka.DeviceFarm: ListTestGridSessionArtifacts' :: Maybe Natural -> Maybe Text -> Maybe TestGridSessionArtifactCategory -> Text -> ListTestGridSessionArtifacts
+ Amazonka.DeviceFarm: ListTestGridSessionArtifactsResponse' :: Maybe [TestGridSessionArtifact] -> Maybe Text -> Int -> ListTestGridSessionArtifactsResponse
+ Amazonka.DeviceFarm: ListTestGridSessions' :: Maybe POSIX -> Maybe POSIX -> Maybe POSIX -> Maybe POSIX -> Maybe Natural -> Maybe Text -> Maybe TestGridSessionStatus -> Text -> ListTestGridSessions
+ Amazonka.DeviceFarm: ListTestGridSessionsResponse' :: Maybe Text -> Maybe [TestGridSession] -> Int -> ListTestGridSessionsResponse
+ Amazonka.DeviceFarm: ListTests' :: Maybe Text -> Text -> ListTests
+ Amazonka.DeviceFarm: ListTestsResponse' :: Maybe Text -> Maybe [Test] -> Int -> ListTestsResponse
+ Amazonka.DeviceFarm: ListUniqueProblems' :: Maybe Text -> Text -> ListUniqueProblems
+ Amazonka.DeviceFarm: ListUniqueProblemsResponse' :: Maybe Text -> Maybe (HashMap ExecutionResult [UniqueProblem]) -> Int -> ListUniqueProblemsResponse
+ Amazonka.DeviceFarm: ListUploads' :: Maybe Text -> Maybe UploadType -> Text -> ListUploads
+ Amazonka.DeviceFarm: ListUploadsResponse' :: Maybe Text -> Maybe [Upload] -> Int -> ListUploadsResponse
+ Amazonka.DeviceFarm: ListVPCEConfigurations' :: Maybe Int -> Maybe Text -> ListVPCEConfigurations
+ Amazonka.DeviceFarm: ListVPCEConfigurationsResponse' :: Maybe Text -> Maybe [VPCEConfiguration] -> Int -> ListVPCEConfigurationsResponse
+ Amazonka.DeviceFarm: Location' :: Double -> Double -> Location
+ Amazonka.DeviceFarm: MonetaryAmount' :: Maybe Double -> Maybe CurrencyCode -> MonetaryAmount
+ Amazonka.DeviceFarm: NetworkProfile' :: Maybe Text -> Maybe Text -> Maybe Integer -> Maybe Integer -> Maybe Integer -> Maybe Natural -> Maybe Text -> Maybe NetworkProfileType -> Maybe Integer -> Maybe Integer -> Maybe Integer -> Maybe Natural -> NetworkProfile
+ Amazonka.DeviceFarm: NetworkProfileType' :: Text -> NetworkProfileType
+ Amazonka.DeviceFarm: Offering' :: Maybe Text -> Maybe Text -> Maybe DevicePlatform -> Maybe [RecurringCharge] -> Maybe OfferingType -> Offering
+ Amazonka.DeviceFarm: OfferingPromotion' :: Maybe Text -> Maybe Text -> OfferingPromotion
+ Amazonka.DeviceFarm: OfferingStatus' :: Maybe POSIX -> Maybe Offering -> Maybe Int -> Maybe OfferingTransactionType -> OfferingStatus
+ Amazonka.DeviceFarm: OfferingTransaction' :: Maybe MonetaryAmount -> Maybe POSIX -> Maybe Text -> Maybe OfferingStatus -> Maybe Text -> OfferingTransaction
+ Amazonka.DeviceFarm: OfferingTransactionType' :: Text -> OfferingTransactionType
+ Amazonka.DeviceFarm: OfferingType' :: Text -> OfferingType
+ Amazonka.DeviceFarm: Problem' :: Maybe Device -> Maybe ProblemDetail -> Maybe Text -> Maybe ExecutionResult -> Maybe ProblemDetail -> Maybe ProblemDetail -> Maybe ProblemDetail -> Problem
+ Amazonka.DeviceFarm: ProblemDetail' :: Maybe Text -> Maybe Text -> ProblemDetail
+ Amazonka.DeviceFarm: Project' :: Maybe Text -> Maybe POSIX -> Maybe Int -> Maybe Text -> Maybe VpcConfig -> Project
+ Amazonka.DeviceFarm: PurchaseOffering' :: Maybe Text -> Text -> Int -> PurchaseOffering
+ Amazonka.DeviceFarm: PurchaseOfferingResponse' :: Maybe OfferingTransaction -> Int -> PurchaseOfferingResponse
+ Amazonka.DeviceFarm: Radios' :: Maybe Bool -> Maybe Bool -> Maybe Bool -> Maybe Bool -> Radios
+ Amazonka.DeviceFarm: RecurringCharge' :: Maybe MonetaryAmount -> Maybe RecurringChargeFrequency -> RecurringCharge
+ Amazonka.DeviceFarm: RecurringChargeFrequency' :: Text -> RecurringChargeFrequency
+ Amazonka.DeviceFarm: RemoteAccessSession' :: Maybe Text -> Maybe BillingMethod -> Maybe Text -> Maybe POSIX -> Maybe Device -> Maybe DeviceMinutes -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe InteractionMode -> Maybe Text -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe Bool -> Maybe ExecutionResult -> Maybe Bool -> Maybe POSIX -> Maybe ExecutionStatus -> Maybe POSIX -> Maybe VpcConfig -> RemoteAccessSession
+ Amazonka.DeviceFarm: RenewOffering' :: Text -> Int -> RenewOffering
+ Amazonka.DeviceFarm: RenewOfferingResponse' :: Maybe OfferingTransaction -> Int -> RenewOfferingResponse
+ Amazonka.DeviceFarm: Resolution' :: Maybe Int -> Maybe Int -> Resolution
+ Amazonka.DeviceFarm: Rule' :: Maybe DeviceAttribute -> Maybe RuleOperator -> Maybe Text -> Rule
+ Amazonka.DeviceFarm: RuleOperator' :: Text -> RuleOperator
+ Amazonka.DeviceFarm: Run' :: Maybe Text -> Maybe Text -> Maybe BillingMethod -> Maybe Int -> Maybe Counters -> Maybe POSIX -> Maybe CustomerArtifactPaths -> Maybe DeviceMinutes -> Maybe Text -> Maybe DeviceSelectionResult -> Maybe Int -> Maybe Int -> Maybe Text -> Maybe Location -> Maybe Text -> Maybe Text -> Maybe NetworkProfile -> Maybe Text -> Maybe DevicePlatform -> Maybe Radios -> Maybe ExecutionResult -> Maybe ExecutionResultCode -> Maybe Int -> Maybe Bool -> Maybe POSIX -> Maybe ExecutionStatus -> Maybe POSIX -> Maybe Text -> Maybe Int -> Maybe TestType -> Maybe VpcConfig -> Maybe Text -> Run
+ Amazonka.DeviceFarm: Sample' :: Maybe Text -> Maybe SampleType -> Maybe Text -> Sample
+ Amazonka.DeviceFarm: SampleType' :: Text -> SampleType
+ Amazonka.DeviceFarm: ScheduleRun' :: Maybe Text -> Maybe ScheduleRunConfiguration -> Maybe Text -> Maybe DeviceSelectionConfiguration -> Maybe ExecutionConfiguration -> Maybe Text -> Text -> ScheduleRunTest -> ScheduleRun
+ Amazonka.DeviceFarm: ScheduleRunConfiguration' :: Maybe [Text] -> Maybe BillingMethod -> Maybe CustomerArtifactPaths -> Maybe Text -> Maybe Text -> Maybe Location -> Maybe Text -> Maybe Radios -> Maybe [Text] -> ScheduleRunConfiguration
+ Amazonka.DeviceFarm: ScheduleRunResponse' :: Maybe Run -> Int -> ScheduleRunResponse
+ Amazonka.DeviceFarm: ScheduleRunTest' :: Maybe Text -> Maybe (HashMap Text Text) -> Maybe Text -> Maybe Text -> TestType -> ScheduleRunTest
+ Amazonka.DeviceFarm: StopJob' :: Text -> StopJob
+ Amazonka.DeviceFarm: StopJobResponse' :: Maybe Job -> Int -> StopJobResponse
+ Amazonka.DeviceFarm: StopRemoteAccessSession' :: Text -> StopRemoteAccessSession
+ Amazonka.DeviceFarm: StopRemoteAccessSessionResponse' :: Maybe RemoteAccessSession -> Int -> StopRemoteAccessSessionResponse
+ Amazonka.DeviceFarm: StopRun' :: Text -> StopRun
+ Amazonka.DeviceFarm: StopRunResponse' :: Maybe Run -> Int -> StopRunResponse
+ Amazonka.DeviceFarm: Suite' :: Maybe Text -> Maybe Counters -> Maybe POSIX -> Maybe DeviceMinutes -> Maybe Text -> Maybe Text -> Maybe ExecutionResult -> Maybe POSIX -> Maybe ExecutionStatus -> Maybe POSIX -> Maybe TestType -> Suite
+ Amazonka.DeviceFarm: Tag' :: Text -> Text -> Tag
+ Amazonka.DeviceFarm: TagResource' :: Text -> [Tag] -> TagResource
+ Amazonka.DeviceFarm: TagResourceResponse' :: Int -> TagResourceResponse
+ Amazonka.DeviceFarm: Test' :: Maybe Text -> Maybe Counters -> Maybe POSIX -> Maybe DeviceMinutes -> Maybe Text -> Maybe Text -> Maybe ExecutionResult -> Maybe POSIX -> Maybe ExecutionStatus -> Maybe POSIX -> Maybe TestType -> Test
+ Amazonka.DeviceFarm: TestGridProject' :: Maybe Text -> Maybe POSIX -> Maybe Text -> Maybe Text -> Maybe TestGridVpcConfig -> TestGridProject
+ Amazonka.DeviceFarm: TestGridSession' :: Maybe Text -> Maybe Double -> Maybe POSIX -> Maybe POSIX -> Maybe Text -> Maybe TestGridSessionStatus -> TestGridSession
+ Amazonka.DeviceFarm: TestGridSessionAction' :: Maybe Text -> Maybe Integer -> Maybe Text -> Maybe POSIX -> Maybe Text -> TestGridSessionAction
+ Amazonka.DeviceFarm: TestGridSessionArtifact' :: Maybe Text -> Maybe TestGridSessionArtifactType -> Maybe (Sensitive Text) -> TestGridSessionArtifact
+ Amazonka.DeviceFarm: TestGridSessionArtifactCategory' :: Text -> TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm: TestGridSessionArtifactType' :: Text -> TestGridSessionArtifactType
+ Amazonka.DeviceFarm: TestGridSessionStatus' :: Text -> TestGridSessionStatus
+ Amazonka.DeviceFarm: TestGridVpcConfig' :: NonEmpty Text -> NonEmpty Text -> Text -> TestGridVpcConfig
+ Amazonka.DeviceFarm: TestType' :: Text -> TestType
+ Amazonka.DeviceFarm: TrialMinutes' :: Maybe Double -> Maybe Double -> TrialMinutes
+ Amazonka.DeviceFarm: UniqueProblem' :: Maybe Text -> Maybe [Problem] -> UniqueProblem
+ Amazonka.DeviceFarm: UntagResource' :: Text -> [Text] -> UntagResource
+ Amazonka.DeviceFarm: UntagResourceResponse' :: Int -> UntagResourceResponse
+ Amazonka.DeviceFarm: UpdateDeviceInstance' :: Maybe [Text] -> Maybe Text -> Text -> UpdateDeviceInstance
+ Amazonka.DeviceFarm: UpdateDeviceInstanceResponse' :: Maybe DeviceInstance -> Int -> UpdateDeviceInstanceResponse
+ Amazonka.DeviceFarm: UpdateDevicePool' :: Maybe Bool -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe [Rule] -> Text -> UpdateDevicePool
+ Amazonka.DeviceFarm: UpdateDevicePoolResponse' :: Maybe DevicePool -> Int -> UpdateDevicePoolResponse
+ Amazonka.DeviceFarm: UpdateInstanceProfile' :: Maybe Text -> Maybe [Text] -> Maybe Text -> Maybe Bool -> Maybe Bool -> Text -> UpdateInstanceProfile
+ Amazonka.DeviceFarm: UpdateInstanceProfileResponse' :: Maybe InstanceProfile -> Int -> UpdateInstanceProfileResponse
+ Amazonka.DeviceFarm: UpdateNetworkProfile' :: Maybe Text -> Maybe Integer -> Maybe Integer -> Maybe Integer -> Maybe Natural -> Maybe Text -> Maybe NetworkProfileType -> Maybe Integer -> Maybe Integer -> Maybe Integer -> Maybe Natural -> Text -> UpdateNetworkProfile
+ Amazonka.DeviceFarm: UpdateNetworkProfileResponse' :: Maybe NetworkProfile -> Int -> UpdateNetworkProfileResponse
+ Amazonka.DeviceFarm: UpdateProject' :: Maybe Int -> Maybe Text -> Maybe VpcConfig -> Text -> UpdateProject
+ Amazonka.DeviceFarm: UpdateProjectResponse' :: Maybe Project -> Int -> UpdateProjectResponse
+ Amazonka.DeviceFarm: UpdateTestGridProject' :: Maybe Text -> Maybe Text -> Maybe TestGridVpcConfig -> Text -> UpdateTestGridProject
+ Amazonka.DeviceFarm: UpdateTestGridProjectResponse' :: Maybe TestGridProject -> Int -> UpdateTestGridProjectResponse
+ Amazonka.DeviceFarm: UpdateUpload' :: Maybe Text -> Maybe Bool -> Maybe Text -> Text -> UpdateUpload
+ Amazonka.DeviceFarm: UpdateUploadResponse' :: Maybe Upload -> Int -> UpdateUploadResponse
+ Amazonka.DeviceFarm: UpdateVPCEConfiguration' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Text -> UpdateVPCEConfiguration
+ Amazonka.DeviceFarm: UpdateVPCEConfigurationResponse' :: Maybe VPCEConfiguration -> Int -> UpdateVPCEConfigurationResponse
+ Amazonka.DeviceFarm: Upload' :: Maybe Text -> Maybe UploadCategory -> Maybe Text -> Maybe POSIX -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe UploadStatus -> Maybe UploadType -> Maybe (Sensitive Text) -> Upload
+ Amazonka.DeviceFarm: UploadCategory' :: Text -> UploadCategory
+ Amazonka.DeviceFarm: UploadStatus' :: Text -> UploadStatus
+ Amazonka.DeviceFarm: UploadType' :: Text -> UploadType
+ Amazonka.DeviceFarm: VPCEConfiguration' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> VPCEConfiguration
+ Amazonka.DeviceFarm: VpcConfig' :: NonEmpty Text -> NonEmpty Text -> Text -> VpcConfig
+ Amazonka.DeviceFarm: [fromArtifactCategory] :: ArtifactCategory -> Text
+ Amazonka.DeviceFarm: [fromArtifactType] :: ArtifactType -> Text
+ Amazonka.DeviceFarm: [fromBillingMethod] :: BillingMethod -> Text
+ Amazonka.DeviceFarm: [fromCurrencyCode] :: CurrencyCode -> Text
+ Amazonka.DeviceFarm: [fromDeviceAttribute] :: DeviceAttribute -> Text
+ Amazonka.DeviceFarm: [fromDeviceAvailability] :: DeviceAvailability -> Text
+ Amazonka.DeviceFarm: [fromDeviceFilterAttribute] :: DeviceFilterAttribute -> Text
+ Amazonka.DeviceFarm: [fromDeviceFormFactor] :: DeviceFormFactor -> Text
+ Amazonka.DeviceFarm: [fromDevicePlatform] :: DevicePlatform -> Text
+ Amazonka.DeviceFarm: [fromDevicePoolType] :: DevicePoolType -> Text
+ Amazonka.DeviceFarm: [fromExecutionResultCode] :: ExecutionResultCode -> Text
+ Amazonka.DeviceFarm: [fromExecutionResult] :: ExecutionResult -> Text
+ Amazonka.DeviceFarm: [fromExecutionStatus] :: ExecutionStatus -> Text
+ Amazonka.DeviceFarm: [fromInstanceStatus] :: InstanceStatus -> Text
+ Amazonka.DeviceFarm: [fromInteractionMode] :: InteractionMode -> Text
+ Amazonka.DeviceFarm: [fromNetworkProfileType] :: NetworkProfileType -> Text
+ Amazonka.DeviceFarm: [fromOfferingTransactionType] :: OfferingTransactionType -> Text
+ Amazonka.DeviceFarm: [fromOfferingType] :: OfferingType -> Text
+ Amazonka.DeviceFarm: [fromRecurringChargeFrequency] :: RecurringChargeFrequency -> Text
+ Amazonka.DeviceFarm: [fromRuleOperator] :: RuleOperator -> Text
+ Amazonka.DeviceFarm: [fromSampleType] :: SampleType -> Text
+ Amazonka.DeviceFarm: [fromTestGridSessionArtifactCategory] :: TestGridSessionArtifactCategory -> Text
+ Amazonka.DeviceFarm: [fromTestGridSessionArtifactType] :: TestGridSessionArtifactType -> Text
+ Amazonka.DeviceFarm: [fromTestGridSessionStatus] :: TestGridSessionStatus -> Text
+ Amazonka.DeviceFarm: [fromTestType] :: TestType -> Text
+ Amazonka.DeviceFarm: [fromUploadCategory] :: UploadCategory -> Text
+ Amazonka.DeviceFarm: [fromUploadStatus] :: UploadStatus -> Text
+ Amazonka.DeviceFarm: [fromUploadType] :: UploadType -> Text
+ Amazonka.DeviceFarm: _ArgumentException :: AsError a => Fold a ServiceError
+ Amazonka.DeviceFarm: _CannotDeleteException :: AsError a => Fold a ServiceError
+ Amazonka.DeviceFarm: _IdempotencyException :: AsError a => Fold a ServiceError
+ Amazonka.DeviceFarm: _InternalServiceException :: AsError a => Fold a ServiceError
+ Amazonka.DeviceFarm: _InvalidOperationException :: AsError a => Fold a ServiceError
+ Amazonka.DeviceFarm: _LimitExceededException :: AsError a => Fold a ServiceError
+ Amazonka.DeviceFarm: _NotEligibleException :: AsError a => Fold a ServiceError
+ Amazonka.DeviceFarm: _NotFoundException :: AsError a => Fold a ServiceError
+ Amazonka.DeviceFarm: _ServiceAccountException :: AsError a => Fold a ServiceError
+ Amazonka.DeviceFarm: _TagOperationException :: AsError a => Fold a ServiceError
+ Amazonka.DeviceFarm: _TagPolicyException :: AsError a => Fold a ServiceError
+ Amazonka.DeviceFarm: _TooManyTagsException :: AsError a => Fold a ServiceError
+ Amazonka.DeviceFarm: data AccountSettings
+ Amazonka.DeviceFarm: data Artifact
+ Amazonka.DeviceFarm: data CPU
+ Amazonka.DeviceFarm: data Counters
+ Amazonka.DeviceFarm: data CreateDevicePool
+ Amazonka.DeviceFarm: data CreateDevicePoolResponse
+ Amazonka.DeviceFarm: data CreateInstanceProfile
+ Amazonka.DeviceFarm: data CreateInstanceProfileResponse
+ Amazonka.DeviceFarm: data CreateNetworkProfile
+ Amazonka.DeviceFarm: data CreateNetworkProfileResponse
+ Amazonka.DeviceFarm: data CreateProject
+ Amazonka.DeviceFarm: data CreateProjectResponse
+ Amazonka.DeviceFarm: data CreateRemoteAccessSession
+ Amazonka.DeviceFarm: data CreateRemoteAccessSessionConfiguration
+ Amazonka.DeviceFarm: data CreateRemoteAccessSessionResponse
+ Amazonka.DeviceFarm: data CreateTestGridProject
+ Amazonka.DeviceFarm: data CreateTestGridProjectResponse
+ Amazonka.DeviceFarm: data CreateTestGridUrl
+ Amazonka.DeviceFarm: data CreateTestGridUrlResponse
+ Amazonka.DeviceFarm: data CreateUpload
+ Amazonka.DeviceFarm: data CreateUploadResponse
+ Amazonka.DeviceFarm: data CreateVPCEConfiguration
+ Amazonka.DeviceFarm: data CreateVPCEConfigurationResponse
+ Amazonka.DeviceFarm: data CustomerArtifactPaths
+ Amazonka.DeviceFarm: data DeleteDevicePool
+ Amazonka.DeviceFarm: data DeleteDevicePoolResponse
+ Amazonka.DeviceFarm: data DeleteInstanceProfile
+ Amazonka.DeviceFarm: data DeleteInstanceProfileResponse
+ Amazonka.DeviceFarm: data DeleteNetworkProfile
+ Amazonka.DeviceFarm: data DeleteNetworkProfileResponse
+ Amazonka.DeviceFarm: data DeleteProject
+ Amazonka.DeviceFarm: data DeleteProjectResponse
+ Amazonka.DeviceFarm: data DeleteRemoteAccessSession
+ Amazonka.DeviceFarm: data DeleteRemoteAccessSessionResponse
+ Amazonka.DeviceFarm: data DeleteRun
+ Amazonka.DeviceFarm: data DeleteRunResponse
+ Amazonka.DeviceFarm: data DeleteTestGridProject
+ Amazonka.DeviceFarm: data DeleteTestGridProjectResponse
+ Amazonka.DeviceFarm: data DeleteUpload
+ Amazonka.DeviceFarm: data DeleteUploadResponse
+ Amazonka.DeviceFarm: data DeleteVPCEConfiguration
+ Amazonka.DeviceFarm: data DeleteVPCEConfigurationResponse
+ Amazonka.DeviceFarm: data Device
+ Amazonka.DeviceFarm: data DeviceFilter
+ Amazonka.DeviceFarm: data DeviceInstance
+ Amazonka.DeviceFarm: data DeviceMinutes
+ Amazonka.DeviceFarm: data DevicePool
+ Amazonka.DeviceFarm: data DevicePoolCompatibilityResult
+ Amazonka.DeviceFarm: data DeviceSelectionConfiguration
+ Amazonka.DeviceFarm: data DeviceSelectionResult
+ Amazonka.DeviceFarm: data ExecutionConfiguration
+ Amazonka.DeviceFarm: data GetAccountSettings
+ Amazonka.DeviceFarm: data GetAccountSettingsResponse
+ Amazonka.DeviceFarm: data GetDevice
+ Amazonka.DeviceFarm: data GetDeviceInstance
+ Amazonka.DeviceFarm: data GetDeviceInstanceResponse
+ Amazonka.DeviceFarm: data GetDevicePool
+ Amazonka.DeviceFarm: data GetDevicePoolCompatibility
+ Amazonka.DeviceFarm: data GetDevicePoolCompatibilityResponse
+ Amazonka.DeviceFarm: data GetDevicePoolResponse
+ Amazonka.DeviceFarm: data GetDeviceResponse
+ Amazonka.DeviceFarm: data GetInstanceProfile
+ Amazonka.DeviceFarm: data GetInstanceProfileResponse
+ Amazonka.DeviceFarm: data GetJob
+ Amazonka.DeviceFarm: data GetJobResponse
+ Amazonka.DeviceFarm: data GetNetworkProfile
+ Amazonka.DeviceFarm: data GetNetworkProfileResponse
+ Amazonka.DeviceFarm: data GetOfferingStatus
+ Amazonka.DeviceFarm: data GetOfferingStatusResponse
+ Amazonka.DeviceFarm: data GetProject
+ Amazonka.DeviceFarm: data GetProjectResponse
+ Amazonka.DeviceFarm: data GetRemoteAccessSession
+ Amazonka.DeviceFarm: data GetRemoteAccessSessionResponse
+ Amazonka.DeviceFarm: data GetRun
+ Amazonka.DeviceFarm: data GetRunResponse
+ Amazonka.DeviceFarm: data GetSuite
+ Amazonka.DeviceFarm: data GetSuiteResponse
+ Amazonka.DeviceFarm: data GetTest
+ Amazonka.DeviceFarm: data GetTestGridProject
+ Amazonka.DeviceFarm: data GetTestGridProjectResponse
+ Amazonka.DeviceFarm: data GetTestGridSession
+ Amazonka.DeviceFarm: data GetTestGridSessionResponse
+ Amazonka.DeviceFarm: data GetTestResponse
+ Amazonka.DeviceFarm: data GetUpload
+ Amazonka.DeviceFarm: data GetUploadResponse
+ Amazonka.DeviceFarm: data GetVPCEConfiguration
+ Amazonka.DeviceFarm: data GetVPCEConfigurationResponse
+ Amazonka.DeviceFarm: data IncompatibilityMessage
+ Amazonka.DeviceFarm: data InstallToRemoteAccessSession
+ Amazonka.DeviceFarm: data InstallToRemoteAccessSessionResponse
+ Amazonka.DeviceFarm: data InstanceProfile
+ Amazonka.DeviceFarm: data Job
+ Amazonka.DeviceFarm: data ListArtifacts
+ Amazonka.DeviceFarm: data ListArtifactsResponse
+ Amazonka.DeviceFarm: data ListDeviceInstances
+ Amazonka.DeviceFarm: data ListDeviceInstancesResponse
+ Amazonka.DeviceFarm: data ListDevicePools
+ Amazonka.DeviceFarm: data ListDevicePoolsResponse
+ Amazonka.DeviceFarm: data ListDevices
+ Amazonka.DeviceFarm: data ListDevicesResponse
+ Amazonka.DeviceFarm: data ListInstanceProfiles
+ Amazonka.DeviceFarm: data ListInstanceProfilesResponse
+ Amazonka.DeviceFarm: data ListJobs
+ Amazonka.DeviceFarm: data ListJobsResponse
+ Amazonka.DeviceFarm: data ListNetworkProfiles
+ Amazonka.DeviceFarm: data ListNetworkProfilesResponse
+ Amazonka.DeviceFarm: data ListOfferingPromotions
+ Amazonka.DeviceFarm: data ListOfferingPromotionsResponse
+ Amazonka.DeviceFarm: data ListOfferingTransactions
+ Amazonka.DeviceFarm: data ListOfferingTransactionsResponse
+ Amazonka.DeviceFarm: data ListOfferings
+ Amazonka.DeviceFarm: data ListOfferingsResponse
+ Amazonka.DeviceFarm: data ListProjects
+ Amazonka.DeviceFarm: data ListProjectsResponse
+ Amazonka.DeviceFarm: data ListRemoteAccessSessions
+ Amazonka.DeviceFarm: data ListRemoteAccessSessionsResponse
+ Amazonka.DeviceFarm: data ListRuns
+ Amazonka.DeviceFarm: data ListRunsResponse
+ Amazonka.DeviceFarm: data ListSamples
+ Amazonka.DeviceFarm: data ListSamplesResponse
+ Amazonka.DeviceFarm: data ListSuites
+ Amazonka.DeviceFarm: data ListSuitesResponse
+ Amazonka.DeviceFarm: data ListTagsForResource
+ Amazonka.DeviceFarm: data ListTagsForResourceResponse
+ Amazonka.DeviceFarm: data ListTestGridProjects
+ Amazonka.DeviceFarm: data ListTestGridProjectsResponse
+ Amazonka.DeviceFarm: data ListTestGridSessionActions
+ Amazonka.DeviceFarm: data ListTestGridSessionActionsResponse
+ Amazonka.DeviceFarm: data ListTestGridSessionArtifacts
+ Amazonka.DeviceFarm: data ListTestGridSessionArtifactsResponse
+ Amazonka.DeviceFarm: data ListTestGridSessions
+ Amazonka.DeviceFarm: data ListTestGridSessionsResponse
+ Amazonka.DeviceFarm: data ListTests
+ Amazonka.DeviceFarm: data ListTestsResponse
+ Amazonka.DeviceFarm: data ListUniqueProblems
+ Amazonka.DeviceFarm: data ListUniqueProblemsResponse
+ Amazonka.DeviceFarm: data ListUploads
+ Amazonka.DeviceFarm: data ListUploadsResponse
+ Amazonka.DeviceFarm: data ListVPCEConfigurations
+ Amazonka.DeviceFarm: data ListVPCEConfigurationsResponse
+ Amazonka.DeviceFarm: data Location
+ Amazonka.DeviceFarm: data MonetaryAmount
+ Amazonka.DeviceFarm: data NetworkProfile
+ Amazonka.DeviceFarm: data Offering
+ Amazonka.DeviceFarm: data OfferingPromotion
+ Amazonka.DeviceFarm: data OfferingStatus
+ Amazonka.DeviceFarm: data OfferingTransaction
+ Amazonka.DeviceFarm: data Problem
+ Amazonka.DeviceFarm: data ProblemDetail
+ Amazonka.DeviceFarm: data Project
+ Amazonka.DeviceFarm: data PurchaseOffering
+ Amazonka.DeviceFarm: data PurchaseOfferingResponse
+ Amazonka.DeviceFarm: data Radios
+ Amazonka.DeviceFarm: data RecurringCharge
+ Amazonka.DeviceFarm: data RemoteAccessSession
+ Amazonka.DeviceFarm: data RenewOffering
+ Amazonka.DeviceFarm: data RenewOfferingResponse
+ Amazonka.DeviceFarm: data Resolution
+ Amazonka.DeviceFarm: data Rule
+ Amazonka.DeviceFarm: data Run
+ Amazonka.DeviceFarm: data Sample
+ Amazonka.DeviceFarm: data ScheduleRun
+ Amazonka.DeviceFarm: data ScheduleRunConfiguration
+ Amazonka.DeviceFarm: data ScheduleRunResponse
+ Amazonka.DeviceFarm: data ScheduleRunTest
+ Amazonka.DeviceFarm: data StopJob
+ Amazonka.DeviceFarm: data StopJobResponse
+ Amazonka.DeviceFarm: data StopRemoteAccessSession
+ Amazonka.DeviceFarm: data StopRemoteAccessSessionResponse
+ Amazonka.DeviceFarm: data StopRun
+ Amazonka.DeviceFarm: data StopRunResponse
+ Amazonka.DeviceFarm: data Suite
+ Amazonka.DeviceFarm: data Tag
+ Amazonka.DeviceFarm: data TagResource
+ Amazonka.DeviceFarm: data TagResourceResponse
+ Amazonka.DeviceFarm: data Test
+ Amazonka.DeviceFarm: data TestGridProject
+ Amazonka.DeviceFarm: data TestGridSession
+ Amazonka.DeviceFarm: data TestGridSessionAction
+ Amazonka.DeviceFarm: data TestGridSessionArtifact
+ Amazonka.DeviceFarm: data TestGridVpcConfig
+ Amazonka.DeviceFarm: data TrialMinutes
+ Amazonka.DeviceFarm: data UniqueProblem
+ Amazonka.DeviceFarm: data UntagResource
+ Amazonka.DeviceFarm: data UntagResourceResponse
+ Amazonka.DeviceFarm: data UpdateDeviceInstance
+ Amazonka.DeviceFarm: data UpdateDeviceInstanceResponse
+ Amazonka.DeviceFarm: data UpdateDevicePool
+ Amazonka.DeviceFarm: data UpdateDevicePoolResponse
+ Amazonka.DeviceFarm: data UpdateInstanceProfile
+ Amazonka.DeviceFarm: data UpdateInstanceProfileResponse
+ Amazonka.DeviceFarm: data UpdateNetworkProfile
+ Amazonka.DeviceFarm: data UpdateNetworkProfileResponse
+ Amazonka.DeviceFarm: data UpdateProject
+ Amazonka.DeviceFarm: data UpdateProjectResponse
+ Amazonka.DeviceFarm: data UpdateTestGridProject
+ Amazonka.DeviceFarm: data UpdateTestGridProjectResponse
+ Amazonka.DeviceFarm: data UpdateUpload
+ Amazonka.DeviceFarm: data UpdateUploadResponse
+ Amazonka.DeviceFarm: data UpdateVPCEConfiguration
+ Amazonka.DeviceFarm: data UpdateVPCEConfigurationResponse
+ Amazonka.DeviceFarm: data Upload
+ Amazonka.DeviceFarm: data VPCEConfiguration
+ Amazonka.DeviceFarm: data VpcConfig
+ Amazonka.DeviceFarm: defaultService :: Service
+ Amazonka.DeviceFarm: newAccountSettings :: AccountSettings
+ Amazonka.DeviceFarm: newArtifact :: Artifact
+ Amazonka.DeviceFarm: newCPU :: CPU
+ Amazonka.DeviceFarm: newCounters :: Counters
+ Amazonka.DeviceFarm: newCreateDevicePool :: Text -> Text -> CreateDevicePool
+ Amazonka.DeviceFarm: newCreateDevicePoolResponse :: Int -> CreateDevicePoolResponse
+ Amazonka.DeviceFarm: newCreateInstanceProfile :: Text -> CreateInstanceProfile
+ Amazonka.DeviceFarm: newCreateInstanceProfileResponse :: Int -> CreateInstanceProfileResponse
+ Amazonka.DeviceFarm: newCreateNetworkProfile :: Text -> Text -> CreateNetworkProfile
+ Amazonka.DeviceFarm: newCreateNetworkProfileResponse :: Int -> CreateNetworkProfileResponse
+ Amazonka.DeviceFarm: newCreateProject :: Text -> CreateProject
+ Amazonka.DeviceFarm: newCreateProjectResponse :: Int -> CreateProjectResponse
+ Amazonka.DeviceFarm: newCreateRemoteAccessSession :: Text -> Text -> CreateRemoteAccessSession
+ Amazonka.DeviceFarm: newCreateRemoteAccessSessionConfiguration :: CreateRemoteAccessSessionConfiguration
+ Amazonka.DeviceFarm: newCreateRemoteAccessSessionResponse :: Int -> CreateRemoteAccessSessionResponse
+ Amazonka.DeviceFarm: newCreateTestGridProject :: Text -> CreateTestGridProject
+ Amazonka.DeviceFarm: newCreateTestGridProjectResponse :: Int -> CreateTestGridProjectResponse
+ Amazonka.DeviceFarm: newCreateTestGridUrl :: Text -> Natural -> CreateTestGridUrl
+ Amazonka.DeviceFarm: newCreateTestGridUrlResponse :: Int -> CreateTestGridUrlResponse
+ Amazonka.DeviceFarm: newCreateUpload :: Text -> Text -> UploadType -> CreateUpload
+ Amazonka.DeviceFarm: newCreateUploadResponse :: Int -> CreateUploadResponse
+ Amazonka.DeviceFarm: newCreateVPCEConfiguration :: Text -> Text -> Text -> CreateVPCEConfiguration
+ Amazonka.DeviceFarm: newCreateVPCEConfigurationResponse :: Int -> CreateVPCEConfigurationResponse
+ Amazonka.DeviceFarm: newCustomerArtifactPaths :: CustomerArtifactPaths
+ Amazonka.DeviceFarm: newDeleteDevicePool :: Text -> DeleteDevicePool
+ Amazonka.DeviceFarm: newDeleteDevicePoolResponse :: Int -> DeleteDevicePoolResponse
+ Amazonka.DeviceFarm: newDeleteInstanceProfile :: Text -> DeleteInstanceProfile
+ Amazonka.DeviceFarm: newDeleteInstanceProfileResponse :: Int -> DeleteInstanceProfileResponse
+ Amazonka.DeviceFarm: newDeleteNetworkProfile :: Text -> DeleteNetworkProfile
+ Amazonka.DeviceFarm: newDeleteNetworkProfileResponse :: Int -> DeleteNetworkProfileResponse
+ Amazonka.DeviceFarm: newDeleteProject :: Text -> DeleteProject
+ Amazonka.DeviceFarm: newDeleteProjectResponse :: Int -> DeleteProjectResponse
+ Amazonka.DeviceFarm: newDeleteRemoteAccessSession :: Text -> DeleteRemoteAccessSession
+ Amazonka.DeviceFarm: newDeleteRemoteAccessSessionResponse :: Int -> DeleteRemoteAccessSessionResponse
+ Amazonka.DeviceFarm: newDeleteRun :: Text -> DeleteRun
+ Amazonka.DeviceFarm: newDeleteRunResponse :: Int -> DeleteRunResponse
+ Amazonka.DeviceFarm: newDeleteTestGridProject :: Text -> DeleteTestGridProject
+ Amazonka.DeviceFarm: newDeleteTestGridProjectResponse :: Int -> DeleteTestGridProjectResponse
+ Amazonka.DeviceFarm: newDeleteUpload :: Text -> DeleteUpload
+ Amazonka.DeviceFarm: newDeleteUploadResponse :: Int -> DeleteUploadResponse
+ Amazonka.DeviceFarm: newDeleteVPCEConfiguration :: Text -> DeleteVPCEConfiguration
+ Amazonka.DeviceFarm: newDeleteVPCEConfigurationResponse :: Int -> DeleteVPCEConfigurationResponse
+ Amazonka.DeviceFarm: newDevice :: Device
+ Amazonka.DeviceFarm: newDeviceFilter :: DeviceFilterAttribute -> RuleOperator -> DeviceFilter
+ Amazonka.DeviceFarm: newDeviceInstance :: DeviceInstance
+ Amazonka.DeviceFarm: newDeviceMinutes :: DeviceMinutes
+ Amazonka.DeviceFarm: newDevicePool :: DevicePool
+ Amazonka.DeviceFarm: newDevicePoolCompatibilityResult :: DevicePoolCompatibilityResult
+ Amazonka.DeviceFarm: newDeviceSelectionConfiguration :: Int -> DeviceSelectionConfiguration
+ Amazonka.DeviceFarm: newDeviceSelectionResult :: DeviceSelectionResult
+ Amazonka.DeviceFarm: newExecutionConfiguration :: ExecutionConfiguration
+ Amazonka.DeviceFarm: newGetAccountSettings :: GetAccountSettings
+ Amazonka.DeviceFarm: newGetAccountSettingsResponse :: Int -> GetAccountSettingsResponse
+ Amazonka.DeviceFarm: newGetDevice :: Text -> GetDevice
+ Amazonka.DeviceFarm: newGetDeviceInstance :: Text -> GetDeviceInstance
+ Amazonka.DeviceFarm: newGetDeviceInstanceResponse :: Int -> GetDeviceInstanceResponse
+ Amazonka.DeviceFarm: newGetDevicePool :: Text -> GetDevicePool
+ Amazonka.DeviceFarm: newGetDevicePoolCompatibility :: Text -> GetDevicePoolCompatibility
+ Amazonka.DeviceFarm: newGetDevicePoolCompatibilityResponse :: Int -> GetDevicePoolCompatibilityResponse
+ Amazonka.DeviceFarm: newGetDevicePoolResponse :: Int -> GetDevicePoolResponse
+ Amazonka.DeviceFarm: newGetDeviceResponse :: Int -> GetDeviceResponse
+ Amazonka.DeviceFarm: newGetInstanceProfile :: Text -> GetInstanceProfile
+ Amazonka.DeviceFarm: newGetInstanceProfileResponse :: Int -> GetInstanceProfileResponse
+ Amazonka.DeviceFarm: newGetJob :: Text -> GetJob
+ Amazonka.DeviceFarm: newGetJobResponse :: Int -> GetJobResponse
+ Amazonka.DeviceFarm: newGetNetworkProfile :: Text -> GetNetworkProfile
+ Amazonka.DeviceFarm: newGetNetworkProfileResponse :: Int -> GetNetworkProfileResponse
+ Amazonka.DeviceFarm: newGetOfferingStatus :: GetOfferingStatus
+ Amazonka.DeviceFarm: newGetOfferingStatusResponse :: Int -> GetOfferingStatusResponse
+ Amazonka.DeviceFarm: newGetProject :: Text -> GetProject
+ Amazonka.DeviceFarm: newGetProjectResponse :: Int -> GetProjectResponse
+ Amazonka.DeviceFarm: newGetRemoteAccessSession :: Text -> GetRemoteAccessSession
+ Amazonka.DeviceFarm: newGetRemoteAccessSessionResponse :: Int -> GetRemoteAccessSessionResponse
+ Amazonka.DeviceFarm: newGetRun :: Text -> GetRun
+ Amazonka.DeviceFarm: newGetRunResponse :: Int -> GetRunResponse
+ Amazonka.DeviceFarm: newGetSuite :: Text -> GetSuite
+ Amazonka.DeviceFarm: newGetSuiteResponse :: Int -> GetSuiteResponse
+ Amazonka.DeviceFarm: newGetTest :: Text -> GetTest
+ Amazonka.DeviceFarm: newGetTestGridProject :: Text -> GetTestGridProject
+ Amazonka.DeviceFarm: newGetTestGridProjectResponse :: Int -> GetTestGridProjectResponse
+ Amazonka.DeviceFarm: newGetTestGridSession :: GetTestGridSession
+ Amazonka.DeviceFarm: newGetTestGridSessionResponse :: Int -> GetTestGridSessionResponse
+ Amazonka.DeviceFarm: newGetTestResponse :: Int -> GetTestResponse
+ Amazonka.DeviceFarm: newGetUpload :: Text -> GetUpload
+ Amazonka.DeviceFarm: newGetUploadResponse :: Int -> GetUploadResponse
+ Amazonka.DeviceFarm: newGetVPCEConfiguration :: Text -> GetVPCEConfiguration
+ Amazonka.DeviceFarm: newGetVPCEConfigurationResponse :: Int -> GetVPCEConfigurationResponse
+ Amazonka.DeviceFarm: newIncompatibilityMessage :: IncompatibilityMessage
+ Amazonka.DeviceFarm: newInstallToRemoteAccessSession :: Text -> Text -> InstallToRemoteAccessSession
+ Amazonka.DeviceFarm: newInstallToRemoteAccessSessionResponse :: Int -> InstallToRemoteAccessSessionResponse
+ Amazonka.DeviceFarm: newInstanceProfile :: InstanceProfile
+ Amazonka.DeviceFarm: newJob :: Job
+ Amazonka.DeviceFarm: newListArtifacts :: Text -> ArtifactCategory -> ListArtifacts
+ Amazonka.DeviceFarm: newListArtifactsResponse :: Int -> ListArtifactsResponse
+ Amazonka.DeviceFarm: newListDeviceInstances :: ListDeviceInstances
+ Amazonka.DeviceFarm: newListDeviceInstancesResponse :: Int -> ListDeviceInstancesResponse
+ Amazonka.DeviceFarm: newListDevicePools :: Text -> ListDevicePools
+ Amazonka.DeviceFarm: newListDevicePoolsResponse :: Int -> ListDevicePoolsResponse
+ Amazonka.DeviceFarm: newListDevices :: ListDevices
+ Amazonka.DeviceFarm: newListDevicesResponse :: Int -> ListDevicesResponse
+ Amazonka.DeviceFarm: newListInstanceProfiles :: ListInstanceProfiles
+ Amazonka.DeviceFarm: newListInstanceProfilesResponse :: Int -> ListInstanceProfilesResponse
+ Amazonka.DeviceFarm: newListJobs :: Text -> ListJobs
+ Amazonka.DeviceFarm: newListJobsResponse :: Int -> ListJobsResponse
+ Amazonka.DeviceFarm: newListNetworkProfiles :: Text -> ListNetworkProfiles
+ Amazonka.DeviceFarm: newListNetworkProfilesResponse :: Int -> ListNetworkProfilesResponse
+ Amazonka.DeviceFarm: newListOfferingPromotions :: ListOfferingPromotions
+ Amazonka.DeviceFarm: newListOfferingPromotionsResponse :: Int -> ListOfferingPromotionsResponse
+ Amazonka.DeviceFarm: newListOfferingTransactions :: ListOfferingTransactions
+ Amazonka.DeviceFarm: newListOfferingTransactionsResponse :: Int -> ListOfferingTransactionsResponse
+ Amazonka.DeviceFarm: newListOfferings :: ListOfferings
+ Amazonka.DeviceFarm: newListOfferingsResponse :: Int -> ListOfferingsResponse
+ Amazonka.DeviceFarm: newListProjects :: ListProjects
+ Amazonka.DeviceFarm: newListProjectsResponse :: Int -> ListProjectsResponse
+ Amazonka.DeviceFarm: newListRemoteAccessSessions :: Text -> ListRemoteAccessSessions
+ Amazonka.DeviceFarm: newListRemoteAccessSessionsResponse :: Int -> ListRemoteAccessSessionsResponse
+ Amazonka.DeviceFarm: newListRuns :: Text -> ListRuns
+ Amazonka.DeviceFarm: newListRunsResponse :: Int -> ListRunsResponse
+ Amazonka.DeviceFarm: newListSamples :: Text -> ListSamples
+ Amazonka.DeviceFarm: newListSamplesResponse :: Int -> ListSamplesResponse
+ Amazonka.DeviceFarm: newListSuites :: Text -> ListSuites
+ Amazonka.DeviceFarm: newListSuitesResponse :: Int -> ListSuitesResponse
+ Amazonka.DeviceFarm: newListTagsForResource :: Text -> ListTagsForResource
+ Amazonka.DeviceFarm: newListTagsForResourceResponse :: Int -> ListTagsForResourceResponse
+ Amazonka.DeviceFarm: newListTestGridProjects :: ListTestGridProjects
+ Amazonka.DeviceFarm: newListTestGridProjectsResponse :: Int -> ListTestGridProjectsResponse
+ Amazonka.DeviceFarm: newListTestGridSessionActions :: Text -> ListTestGridSessionActions
+ Amazonka.DeviceFarm: newListTestGridSessionActionsResponse :: Int -> ListTestGridSessionActionsResponse
+ Amazonka.DeviceFarm: newListTestGridSessionArtifacts :: Text -> ListTestGridSessionArtifacts
+ Amazonka.DeviceFarm: newListTestGridSessionArtifactsResponse :: Int -> ListTestGridSessionArtifactsResponse
+ Amazonka.DeviceFarm: newListTestGridSessions :: Text -> ListTestGridSessions
+ Amazonka.DeviceFarm: newListTestGridSessionsResponse :: Int -> ListTestGridSessionsResponse
+ Amazonka.DeviceFarm: newListTests :: Text -> ListTests
+ Amazonka.DeviceFarm: newListTestsResponse :: Int -> ListTestsResponse
+ Amazonka.DeviceFarm: newListUniqueProblems :: Text -> ListUniqueProblems
+ Amazonka.DeviceFarm: newListUniqueProblemsResponse :: Int -> ListUniqueProblemsResponse
+ Amazonka.DeviceFarm: newListUploads :: Text -> ListUploads
+ Amazonka.DeviceFarm: newListUploadsResponse :: Int -> ListUploadsResponse
+ Amazonka.DeviceFarm: newListVPCEConfigurations :: ListVPCEConfigurations
+ Amazonka.DeviceFarm: newListVPCEConfigurationsResponse :: Int -> ListVPCEConfigurationsResponse
+ Amazonka.DeviceFarm: newLocation :: Double -> Double -> Location
+ Amazonka.DeviceFarm: newMonetaryAmount :: MonetaryAmount
+ Amazonka.DeviceFarm: newNetworkProfile :: NetworkProfile
+ Amazonka.DeviceFarm: newOffering :: Offering
+ Amazonka.DeviceFarm: newOfferingPromotion :: OfferingPromotion
+ Amazonka.DeviceFarm: newOfferingStatus :: OfferingStatus
+ Amazonka.DeviceFarm: newOfferingTransaction :: OfferingTransaction
+ Amazonka.DeviceFarm: newProblem :: Problem
+ Amazonka.DeviceFarm: newProblemDetail :: ProblemDetail
+ Amazonka.DeviceFarm: newProject :: Project
+ Amazonka.DeviceFarm: newPurchaseOffering :: Text -> Int -> PurchaseOffering
+ Amazonka.DeviceFarm: newPurchaseOfferingResponse :: Int -> PurchaseOfferingResponse
+ Amazonka.DeviceFarm: newRadios :: Radios
+ Amazonka.DeviceFarm: newRecurringCharge :: RecurringCharge
+ Amazonka.DeviceFarm: newRemoteAccessSession :: RemoteAccessSession
+ Amazonka.DeviceFarm: newRenewOffering :: Text -> Int -> RenewOffering
+ Amazonka.DeviceFarm: newRenewOfferingResponse :: Int -> RenewOfferingResponse
+ Amazonka.DeviceFarm: newResolution :: Resolution
+ Amazonka.DeviceFarm: newRule :: Rule
+ Amazonka.DeviceFarm: newRun :: Run
+ Amazonka.DeviceFarm: newSample :: Sample
+ Amazonka.DeviceFarm: newScheduleRun :: Text -> ScheduleRunTest -> ScheduleRun
+ Amazonka.DeviceFarm: newScheduleRunConfiguration :: ScheduleRunConfiguration
+ Amazonka.DeviceFarm: newScheduleRunResponse :: Int -> ScheduleRunResponse
+ Amazonka.DeviceFarm: newScheduleRunTest :: TestType -> ScheduleRunTest
+ Amazonka.DeviceFarm: newStopJob :: Text -> StopJob
+ Amazonka.DeviceFarm: newStopJobResponse :: Int -> StopJobResponse
+ Amazonka.DeviceFarm: newStopRemoteAccessSession :: Text -> StopRemoteAccessSession
+ Amazonka.DeviceFarm: newStopRemoteAccessSessionResponse :: Int -> StopRemoteAccessSessionResponse
+ Amazonka.DeviceFarm: newStopRun :: Text -> StopRun
+ Amazonka.DeviceFarm: newStopRunResponse :: Int -> StopRunResponse
+ Amazonka.DeviceFarm: newSuite :: Suite
+ Amazonka.DeviceFarm: newTag :: Text -> Text -> Tag
+ Amazonka.DeviceFarm: newTagResource :: Text -> TagResource
+ Amazonka.DeviceFarm: newTagResourceResponse :: Int -> TagResourceResponse
+ Amazonka.DeviceFarm: newTest :: Test
+ Amazonka.DeviceFarm: newTestGridProject :: TestGridProject
+ Amazonka.DeviceFarm: newTestGridSession :: TestGridSession
+ Amazonka.DeviceFarm: newTestGridSessionAction :: TestGridSessionAction
+ Amazonka.DeviceFarm: newTestGridSessionArtifact :: TestGridSessionArtifact
+ Amazonka.DeviceFarm: newTestGridVpcConfig :: NonEmpty Text -> NonEmpty Text -> Text -> TestGridVpcConfig
+ Amazonka.DeviceFarm: newTrialMinutes :: TrialMinutes
+ Amazonka.DeviceFarm: newUniqueProblem :: UniqueProblem
+ Amazonka.DeviceFarm: newUntagResource :: Text -> UntagResource
+ Amazonka.DeviceFarm: newUntagResourceResponse :: Int -> UntagResourceResponse
+ Amazonka.DeviceFarm: newUpdateDeviceInstance :: Text -> UpdateDeviceInstance
+ Amazonka.DeviceFarm: newUpdateDeviceInstanceResponse :: Int -> UpdateDeviceInstanceResponse
+ Amazonka.DeviceFarm: newUpdateDevicePool :: Text -> UpdateDevicePool
+ Amazonka.DeviceFarm: newUpdateDevicePoolResponse :: Int -> UpdateDevicePoolResponse
+ Amazonka.DeviceFarm: newUpdateInstanceProfile :: Text -> UpdateInstanceProfile
+ Amazonka.DeviceFarm: newUpdateInstanceProfileResponse :: Int -> UpdateInstanceProfileResponse
+ Amazonka.DeviceFarm: newUpdateNetworkProfile :: Text -> UpdateNetworkProfile
+ Amazonka.DeviceFarm: newUpdateNetworkProfileResponse :: Int -> UpdateNetworkProfileResponse
+ Amazonka.DeviceFarm: newUpdateProject :: Text -> UpdateProject
+ Amazonka.DeviceFarm: newUpdateProjectResponse :: Int -> UpdateProjectResponse
+ Amazonka.DeviceFarm: newUpdateTestGridProject :: Text -> UpdateTestGridProject
+ Amazonka.DeviceFarm: newUpdateTestGridProjectResponse :: Int -> UpdateTestGridProjectResponse
+ Amazonka.DeviceFarm: newUpdateUpload :: Text -> UpdateUpload
+ Amazonka.DeviceFarm: newUpdateUploadResponse :: Int -> UpdateUploadResponse
+ Amazonka.DeviceFarm: newUpdateVPCEConfiguration :: Text -> UpdateVPCEConfiguration
+ Amazonka.DeviceFarm: newUpdateVPCEConfigurationResponse :: Int -> UpdateVPCEConfigurationResponse
+ Amazonka.DeviceFarm: newUpload :: Upload
+ Amazonka.DeviceFarm: newVPCEConfiguration :: VPCEConfiguration
+ Amazonka.DeviceFarm: newVpcConfig :: NonEmpty Text -> NonEmpty Text -> Text -> VpcConfig
+ Amazonka.DeviceFarm: newtype ArtifactCategory
+ Amazonka.DeviceFarm: newtype ArtifactType
+ Amazonka.DeviceFarm: newtype BillingMethod
+ Amazonka.DeviceFarm: newtype CurrencyCode
+ Amazonka.DeviceFarm: newtype DeviceAttribute
+ Amazonka.DeviceFarm: newtype DeviceAvailability
+ Amazonka.DeviceFarm: newtype DeviceFilterAttribute
+ Amazonka.DeviceFarm: newtype DeviceFormFactor
+ Amazonka.DeviceFarm: newtype DevicePlatform
+ Amazonka.DeviceFarm: newtype DevicePoolType
+ Amazonka.DeviceFarm: newtype ExecutionResult
+ Amazonka.DeviceFarm: newtype ExecutionResultCode
+ Amazonka.DeviceFarm: newtype ExecutionStatus
+ Amazonka.DeviceFarm: newtype InstanceStatus
+ Amazonka.DeviceFarm: newtype InteractionMode
+ Amazonka.DeviceFarm: newtype NetworkProfileType
+ Amazonka.DeviceFarm: newtype OfferingTransactionType
+ Amazonka.DeviceFarm: newtype OfferingType
+ Amazonka.DeviceFarm: newtype RecurringChargeFrequency
+ Amazonka.DeviceFarm: newtype RuleOperator
+ Amazonka.DeviceFarm: newtype SampleType
+ Amazonka.DeviceFarm: newtype TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm: newtype TestGridSessionArtifactType
+ Amazonka.DeviceFarm: newtype TestGridSessionStatus
+ Amazonka.DeviceFarm: newtype TestType
+ Amazonka.DeviceFarm: newtype UploadCategory
+ Amazonka.DeviceFarm: newtype UploadStatus
+ Amazonka.DeviceFarm: newtype UploadType
+ Amazonka.DeviceFarm: pattern ArtifactCategory_FILE :: ArtifactCategory
+ Amazonka.DeviceFarm: pattern ArtifactCategory_LOG :: ArtifactCategory
+ Amazonka.DeviceFarm: pattern ArtifactCategory_SCREENSHOT :: ArtifactCategory
+ Amazonka.DeviceFarm: pattern ArtifactType_APPIUM_JAVA_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_APPIUM_JAVA_XML_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_APPIUM_PYTHON_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_APPIUM_PYTHON_XML_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_APPIUM_SERVER_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_APPLICATION_CRASH_REPORT :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_AUTOMATION_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_CALABASH_JAVA_XML_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_CALABASH_JSON_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_CALABASH_PRETTY_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_CALABASH_STANDARD_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_CUSTOMER_ARTIFACT :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_CUSTOMER_ARTIFACT_LOG :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_DEVICE_LOG :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_EXERCISER_MONKEY_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_EXPLORER_EVENT_LOG :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_EXPLORER_SUMMARY_LOG :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_INSTRUMENTATION_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_MESSAGE_LOG :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_RESULT_LOG :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_SCREENSHOT :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_SERVICE_LOG :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_TESTSPEC_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_UNKNOWN :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_VIDEO :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_VIDEO_LOG :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_WEBKIT_LOG :: ArtifactType
+ Amazonka.DeviceFarm: pattern ArtifactType_XCTEST_LOG :: ArtifactType
+ Amazonka.DeviceFarm: pattern BillingMethod_METERED :: BillingMethod
+ Amazonka.DeviceFarm: pattern BillingMethod_UNMETERED :: BillingMethod
+ Amazonka.DeviceFarm: pattern CurrencyCode_USD :: CurrencyCode
+ Amazonka.DeviceFarm: pattern DeviceAttribute_APPIUM_VERSION :: DeviceAttribute
+ Amazonka.DeviceFarm: pattern DeviceAttribute_ARN :: DeviceAttribute
+ Amazonka.DeviceFarm: pattern DeviceAttribute_AVAILABILITY :: DeviceAttribute
+ Amazonka.DeviceFarm: pattern DeviceAttribute_FLEET_TYPE :: DeviceAttribute
+ Amazonka.DeviceFarm: pattern DeviceAttribute_FORM_FACTOR :: DeviceAttribute
+ Amazonka.DeviceFarm: pattern DeviceAttribute_INSTANCE_ARN :: DeviceAttribute
+ Amazonka.DeviceFarm: pattern DeviceAttribute_INSTANCE_LABELS :: DeviceAttribute
+ Amazonka.DeviceFarm: pattern DeviceAttribute_MANUFACTURER :: DeviceAttribute
+ Amazonka.DeviceFarm: pattern DeviceAttribute_MODEL :: DeviceAttribute
+ Amazonka.DeviceFarm: pattern DeviceAttribute_OS_VERSION :: DeviceAttribute
+ Amazonka.DeviceFarm: pattern DeviceAttribute_PLATFORM :: DeviceAttribute
+ Amazonka.DeviceFarm: pattern DeviceAttribute_REMOTE_ACCESS_ENABLED :: DeviceAttribute
+ Amazonka.DeviceFarm: pattern DeviceAttribute_REMOTE_DEBUG_ENABLED :: DeviceAttribute
+ Amazonka.DeviceFarm: pattern DeviceAvailability_AVAILABLE :: DeviceAvailability
+ Amazonka.DeviceFarm: pattern DeviceAvailability_BUSY :: DeviceAvailability
+ Amazonka.DeviceFarm: pattern DeviceAvailability_HIGHLY_AVAILABLE :: DeviceAvailability
+ Amazonka.DeviceFarm: pattern DeviceAvailability_TEMPORARY_NOT_AVAILABLE :: DeviceAvailability
+ Amazonka.DeviceFarm: pattern DeviceFilterAttribute_ARN :: DeviceFilterAttribute
+ Amazonka.DeviceFarm: pattern DeviceFilterAttribute_AVAILABILITY :: DeviceFilterAttribute
+ Amazonka.DeviceFarm: pattern DeviceFilterAttribute_FLEET_TYPE :: DeviceFilterAttribute
+ Amazonka.DeviceFarm: pattern DeviceFilterAttribute_FORM_FACTOR :: DeviceFilterAttribute
+ Amazonka.DeviceFarm: pattern DeviceFilterAttribute_INSTANCE_ARN :: DeviceFilterAttribute
+ Amazonka.DeviceFarm: pattern DeviceFilterAttribute_INSTANCE_LABELS :: DeviceFilterAttribute
+ Amazonka.DeviceFarm: pattern DeviceFilterAttribute_MANUFACTURER :: DeviceFilterAttribute
+ Amazonka.DeviceFarm: pattern DeviceFilterAttribute_MODEL :: DeviceFilterAttribute
+ Amazonka.DeviceFarm: pattern DeviceFilterAttribute_OS_VERSION :: DeviceFilterAttribute
+ Amazonka.DeviceFarm: pattern DeviceFilterAttribute_PLATFORM :: DeviceFilterAttribute
+ Amazonka.DeviceFarm: pattern DeviceFilterAttribute_REMOTE_ACCESS_ENABLED :: DeviceFilterAttribute
+ Amazonka.DeviceFarm: pattern DeviceFilterAttribute_REMOTE_DEBUG_ENABLED :: DeviceFilterAttribute
+ Amazonka.DeviceFarm: pattern DeviceFormFactor_PHONE :: DeviceFormFactor
+ Amazonka.DeviceFarm: pattern DeviceFormFactor_TABLET :: DeviceFormFactor
+ Amazonka.DeviceFarm: pattern DevicePlatform_ANDROID :: DevicePlatform
+ Amazonka.DeviceFarm: pattern DevicePlatform_IOS :: DevicePlatform
+ Amazonka.DeviceFarm: pattern DevicePoolType_CURATED :: DevicePoolType
+ Amazonka.DeviceFarm: pattern DevicePoolType_PRIVATE :: DevicePoolType
+ Amazonka.DeviceFarm: pattern ExecutionResultCode_PARSING_FAILED :: ExecutionResultCode
+ Amazonka.DeviceFarm: pattern ExecutionResultCode_VPC_ENDPOINT_SETUP_FAILED :: ExecutionResultCode
+ Amazonka.DeviceFarm: pattern ExecutionResult_ERRORED :: ExecutionResult
+ Amazonka.DeviceFarm: pattern ExecutionResult_FAILED :: ExecutionResult
+ Amazonka.DeviceFarm: pattern ExecutionResult_PASSED :: ExecutionResult
+ Amazonka.DeviceFarm: pattern ExecutionResult_PENDING :: ExecutionResult
+ Amazonka.DeviceFarm: pattern ExecutionResult_SKIPPED :: ExecutionResult
+ Amazonka.DeviceFarm: pattern ExecutionResult_STOPPED :: ExecutionResult
+ Amazonka.DeviceFarm: pattern ExecutionResult_WARNED :: ExecutionResult
+ Amazonka.DeviceFarm: pattern ExecutionStatus_COMPLETED :: ExecutionStatus
+ Amazonka.DeviceFarm: pattern ExecutionStatus_PENDING :: ExecutionStatus
+ Amazonka.DeviceFarm: pattern ExecutionStatus_PENDING_CONCURRENCY :: ExecutionStatus
+ Amazonka.DeviceFarm: pattern ExecutionStatus_PENDING_DEVICE :: ExecutionStatus
+ Amazonka.DeviceFarm: pattern ExecutionStatus_PREPARING :: ExecutionStatus
+ Amazonka.DeviceFarm: pattern ExecutionStatus_PROCESSING :: ExecutionStatus
+ Amazonka.DeviceFarm: pattern ExecutionStatus_RUNNING :: ExecutionStatus
+ Amazonka.DeviceFarm: pattern ExecutionStatus_SCHEDULING :: ExecutionStatus
+ Amazonka.DeviceFarm: pattern ExecutionStatus_STOPPING :: ExecutionStatus
+ Amazonka.DeviceFarm: pattern InstanceStatus_AVAILABLE :: InstanceStatus
+ Amazonka.DeviceFarm: pattern InstanceStatus_IN_USE :: InstanceStatus
+ Amazonka.DeviceFarm: pattern InstanceStatus_NOT_AVAILABLE :: InstanceStatus
+ Amazonka.DeviceFarm: pattern InstanceStatus_PREPARING :: InstanceStatus
+ Amazonka.DeviceFarm: pattern InteractionMode_INTERACTIVE :: InteractionMode
+ Amazonka.DeviceFarm: pattern InteractionMode_NO_VIDEO :: InteractionMode
+ Amazonka.DeviceFarm: pattern InteractionMode_VIDEO_ONLY :: InteractionMode
+ Amazonka.DeviceFarm: pattern NetworkProfileType_CURATED :: NetworkProfileType
+ Amazonka.DeviceFarm: pattern NetworkProfileType_PRIVATE :: NetworkProfileType
+ Amazonka.DeviceFarm: pattern OfferingTransactionType_PURCHASE :: OfferingTransactionType
+ Amazonka.DeviceFarm: pattern OfferingTransactionType_RENEW :: OfferingTransactionType
+ Amazonka.DeviceFarm: pattern OfferingTransactionType_SYSTEM :: OfferingTransactionType
+ Amazonka.DeviceFarm: pattern OfferingType_RECURRING :: OfferingType
+ Amazonka.DeviceFarm: pattern RecurringChargeFrequency_MONTHLY :: RecurringChargeFrequency
+ Amazonka.DeviceFarm: pattern RuleOperator_CONTAINS :: RuleOperator
+ Amazonka.DeviceFarm: pattern RuleOperator_EQUALS :: RuleOperator
+ Amazonka.DeviceFarm: pattern RuleOperator_GREATER_THAN :: RuleOperator
+ Amazonka.DeviceFarm: pattern RuleOperator_GREATER_THAN_OR_EQUALS :: RuleOperator
+ Amazonka.DeviceFarm: pattern RuleOperator_IN :: RuleOperator
+ Amazonka.DeviceFarm: pattern RuleOperator_LESS_THAN :: RuleOperator
+ Amazonka.DeviceFarm: pattern RuleOperator_LESS_THAN_OR_EQUALS :: RuleOperator
+ Amazonka.DeviceFarm: pattern RuleOperator_NOT_IN :: RuleOperator
+ Amazonka.DeviceFarm: pattern SampleType_CPU :: SampleType
+ Amazonka.DeviceFarm: pattern SampleType_MEMORY :: SampleType
+ Amazonka.DeviceFarm: pattern SampleType_NATIVE_AVG_DRAWTIME :: SampleType
+ Amazonka.DeviceFarm: pattern SampleType_NATIVE_FPS :: SampleType
+ Amazonka.DeviceFarm: pattern SampleType_NATIVE_FRAMES :: SampleType
+ Amazonka.DeviceFarm: pattern SampleType_NATIVE_MAX_DRAWTIME :: SampleType
+ Amazonka.DeviceFarm: pattern SampleType_NATIVE_MIN_DRAWTIME :: SampleType
+ Amazonka.DeviceFarm: pattern SampleType_OPENGL_AVG_DRAWTIME :: SampleType
+ Amazonka.DeviceFarm: pattern SampleType_OPENGL_FPS :: SampleType
+ Amazonka.DeviceFarm: pattern SampleType_OPENGL_FRAMES :: SampleType
+ Amazonka.DeviceFarm: pattern SampleType_OPENGL_MAX_DRAWTIME :: SampleType
+ Amazonka.DeviceFarm: pattern SampleType_OPENGL_MIN_DRAWTIME :: SampleType
+ Amazonka.DeviceFarm: pattern SampleType_RX :: SampleType
+ Amazonka.DeviceFarm: pattern SampleType_RX_RATE :: SampleType
+ Amazonka.DeviceFarm: pattern SampleType_THREADS :: SampleType
+ Amazonka.DeviceFarm: pattern SampleType_TX :: SampleType
+ Amazonka.DeviceFarm: pattern SampleType_TX_RATE :: SampleType
+ Amazonka.DeviceFarm: pattern TestGridSessionArtifactCategory_LOG :: TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm: pattern TestGridSessionArtifactCategory_VIDEO :: TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm: pattern TestGridSessionArtifactType_SELENIUM_LOG :: TestGridSessionArtifactType
+ Amazonka.DeviceFarm: pattern TestGridSessionArtifactType_UNKNOWN :: TestGridSessionArtifactType
+ Amazonka.DeviceFarm: pattern TestGridSessionArtifactType_VIDEO :: TestGridSessionArtifactType
+ Amazonka.DeviceFarm: pattern TestGridSessionStatus_ACTIVE :: TestGridSessionStatus
+ Amazonka.DeviceFarm: pattern TestGridSessionStatus_CLOSED :: TestGridSessionStatus
+ Amazonka.DeviceFarm: pattern TestGridSessionStatus_ERRORED :: TestGridSessionStatus
+ Amazonka.DeviceFarm: pattern TestType_APPIUM_JAVA_JUNIT :: TestType
+ Amazonka.DeviceFarm: pattern TestType_APPIUM_JAVA_TESTNG :: TestType
+ Amazonka.DeviceFarm: pattern TestType_APPIUM_NODE :: TestType
+ Amazonka.DeviceFarm: pattern TestType_APPIUM_PYTHON :: TestType
+ Amazonka.DeviceFarm: pattern TestType_APPIUM_RUBY :: TestType
+ Amazonka.DeviceFarm: pattern TestType_APPIUM_WEB_JAVA_JUNIT :: TestType
+ Amazonka.DeviceFarm: pattern TestType_APPIUM_WEB_JAVA_TESTNG :: TestType
+ Amazonka.DeviceFarm: pattern TestType_APPIUM_WEB_NODE :: TestType
+ Amazonka.DeviceFarm: pattern TestType_APPIUM_WEB_PYTHON :: TestType
+ Amazonka.DeviceFarm: pattern TestType_APPIUM_WEB_RUBY :: TestType
+ Amazonka.DeviceFarm: pattern TestType_BUILTIN_EXPLORER :: TestType
+ Amazonka.DeviceFarm: pattern TestType_BUILTIN_FUZZ :: TestType
+ Amazonka.DeviceFarm: pattern TestType_CALABASH :: TestType
+ Amazonka.DeviceFarm: pattern TestType_INSTRUMENTATION :: TestType
+ Amazonka.DeviceFarm: pattern TestType_REMOTE_ACCESS_RECORD :: TestType
+ Amazonka.DeviceFarm: pattern TestType_REMOTE_ACCESS_REPLAY :: TestType
+ Amazonka.DeviceFarm: pattern TestType_UIAUTOMATION :: TestType
+ Amazonka.DeviceFarm: pattern TestType_UIAUTOMATOR :: TestType
+ Amazonka.DeviceFarm: pattern TestType_WEB_PERFORMANCE_PROFILE :: TestType
+ Amazonka.DeviceFarm: pattern TestType_XCTEST :: TestType
+ Amazonka.DeviceFarm: pattern TestType_XCTEST_UI :: TestType
+ Amazonka.DeviceFarm: pattern UploadCategory_CURATED :: UploadCategory
+ Amazonka.DeviceFarm: pattern UploadCategory_PRIVATE :: UploadCategory
+ Amazonka.DeviceFarm: pattern UploadStatus_FAILED :: UploadStatus
+ Amazonka.DeviceFarm: pattern UploadStatus_INITIALIZED :: UploadStatus
+ Amazonka.DeviceFarm: pattern UploadStatus_PROCESSING :: UploadStatus
+ Amazonka.DeviceFarm: pattern UploadStatus_SUCCEEDED :: UploadStatus
+ Amazonka.DeviceFarm: pattern UploadType_ANDROID_APP :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_APPIUM_JAVA_JUNIT_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_APPIUM_JAVA_JUNIT_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_APPIUM_JAVA_TESTNG_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_APPIUM_JAVA_TESTNG_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_APPIUM_NODE_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_APPIUM_NODE_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_APPIUM_PYTHON_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_APPIUM_PYTHON_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_APPIUM_RUBY_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_APPIUM_RUBY_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_APPIUM_WEB_JAVA_JUNIT_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_APPIUM_WEB_JAVA_TESTNG_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_APPIUM_WEB_NODE_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_APPIUM_WEB_NODE_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_APPIUM_WEB_PYTHON_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_APPIUM_WEB_PYTHON_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_APPIUM_WEB_RUBY_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_APPIUM_WEB_RUBY_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_CALABASH_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_EXTERNAL_DATA :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_INSTRUMENTATION_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_INSTRUMENTATION_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_IOS_APP :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_UIAUTOMATION_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_UIAUTOMATOR_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_WEB_APP :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_XCTEST_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_XCTEST_UI_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm: pattern UploadType_XCTEST_UI_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.CreateDevicePool: CreateDevicePool' :: Maybe Text -> Maybe Int -> Text -> Text -> [Rule] -> CreateDevicePool
+ Amazonka.DeviceFarm.CreateDevicePool: CreateDevicePoolResponse' :: Maybe DevicePool -> Int -> CreateDevicePoolResponse
+ Amazonka.DeviceFarm.CreateDevicePool: [$sel:description:CreateDevicePool'] :: CreateDevicePool -> Maybe Text
+ Amazonka.DeviceFarm.CreateDevicePool: [$sel:devicePool:CreateDevicePoolResponse'] :: CreateDevicePoolResponse -> Maybe DevicePool
+ Amazonka.DeviceFarm.CreateDevicePool: [$sel:httpStatus:CreateDevicePoolResponse'] :: CreateDevicePoolResponse -> Int
+ Amazonka.DeviceFarm.CreateDevicePool: [$sel:maxDevices:CreateDevicePool'] :: CreateDevicePool -> Maybe Int
+ Amazonka.DeviceFarm.CreateDevicePool: [$sel:name:CreateDevicePool'] :: CreateDevicePool -> Text
+ Amazonka.DeviceFarm.CreateDevicePool: [$sel:projectArn:CreateDevicePool'] :: CreateDevicePool -> Text
+ Amazonka.DeviceFarm.CreateDevicePool: [$sel:rules:CreateDevicePool'] :: CreateDevicePool -> [Rule]
+ Amazonka.DeviceFarm.CreateDevicePool: createDevicePoolResponse_devicePool :: Lens' CreateDevicePoolResponse (Maybe DevicePool)
+ Amazonka.DeviceFarm.CreateDevicePool: createDevicePoolResponse_httpStatus :: Lens' CreateDevicePoolResponse Int
+ Amazonka.DeviceFarm.CreateDevicePool: createDevicePool_description :: Lens' CreateDevicePool (Maybe Text)
+ Amazonka.DeviceFarm.CreateDevicePool: createDevicePool_maxDevices :: Lens' CreateDevicePool (Maybe Int)
+ Amazonka.DeviceFarm.CreateDevicePool: createDevicePool_name :: Lens' CreateDevicePool Text
+ Amazonka.DeviceFarm.CreateDevicePool: createDevicePool_projectArn :: Lens' CreateDevicePool Text
+ Amazonka.DeviceFarm.CreateDevicePool: createDevicePool_rules :: Lens' CreateDevicePool [Rule]
+ Amazonka.DeviceFarm.CreateDevicePool: data CreateDevicePool
+ Amazonka.DeviceFarm.CreateDevicePool: data CreateDevicePoolResponse
+ Amazonka.DeviceFarm.CreateDevicePool: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.CreateDevicePool.CreateDevicePool
+ Amazonka.DeviceFarm.CreateDevicePool: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.CreateDevicePool.CreateDevicePool
+ Amazonka.DeviceFarm.CreateDevicePool: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.CreateDevicePool.CreateDevicePool
+ Amazonka.DeviceFarm.CreateDevicePool: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.CreateDevicePool.CreateDevicePool
+ Amazonka.DeviceFarm.CreateDevicePool: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.CreateDevicePool.CreateDevicePool
+ Amazonka.DeviceFarm.CreateDevicePool: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.CreateDevicePool.CreateDevicePoolResponse
+ Amazonka.DeviceFarm.CreateDevicePool: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.CreateDevicePool.CreateDevicePool
+ Amazonka.DeviceFarm.CreateDevicePool: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.CreateDevicePool.CreateDevicePool
+ Amazonka.DeviceFarm.CreateDevicePool: instance GHC.Classes.Eq Amazonka.DeviceFarm.CreateDevicePool.CreateDevicePool
+ Amazonka.DeviceFarm.CreateDevicePool: instance GHC.Classes.Eq Amazonka.DeviceFarm.CreateDevicePool.CreateDevicePoolResponse
+ Amazonka.DeviceFarm.CreateDevicePool: instance GHC.Generics.Generic Amazonka.DeviceFarm.CreateDevicePool.CreateDevicePool
+ Amazonka.DeviceFarm.CreateDevicePool: instance GHC.Generics.Generic Amazonka.DeviceFarm.CreateDevicePool.CreateDevicePoolResponse
+ Amazonka.DeviceFarm.CreateDevicePool: instance GHC.Read.Read Amazonka.DeviceFarm.CreateDevicePool.CreateDevicePool
+ Amazonka.DeviceFarm.CreateDevicePool: instance GHC.Read.Read Amazonka.DeviceFarm.CreateDevicePool.CreateDevicePoolResponse
+ Amazonka.DeviceFarm.CreateDevicePool: instance GHC.Show.Show Amazonka.DeviceFarm.CreateDevicePool.CreateDevicePool
+ Amazonka.DeviceFarm.CreateDevicePool: instance GHC.Show.Show Amazonka.DeviceFarm.CreateDevicePool.CreateDevicePoolResponse
+ Amazonka.DeviceFarm.CreateDevicePool: newCreateDevicePool :: Text -> Text -> CreateDevicePool
+ Amazonka.DeviceFarm.CreateDevicePool: newCreateDevicePoolResponse :: Int -> CreateDevicePoolResponse
+ Amazonka.DeviceFarm.CreateInstanceProfile: CreateInstanceProfile' :: Maybe Text -> Maybe [Text] -> Maybe Bool -> Maybe Bool -> Text -> CreateInstanceProfile
+ Amazonka.DeviceFarm.CreateInstanceProfile: CreateInstanceProfileResponse' :: Maybe InstanceProfile -> Int -> CreateInstanceProfileResponse
+ Amazonka.DeviceFarm.CreateInstanceProfile: [$sel:description:CreateInstanceProfile'] :: CreateInstanceProfile -> Maybe Text
+ Amazonka.DeviceFarm.CreateInstanceProfile: [$sel:excludeAppPackagesFromCleanup:CreateInstanceProfile'] :: CreateInstanceProfile -> Maybe [Text]
+ Amazonka.DeviceFarm.CreateInstanceProfile: [$sel:httpStatus:CreateInstanceProfileResponse'] :: CreateInstanceProfileResponse -> Int
+ Amazonka.DeviceFarm.CreateInstanceProfile: [$sel:instanceProfile:CreateInstanceProfileResponse'] :: CreateInstanceProfileResponse -> Maybe InstanceProfile
+ Amazonka.DeviceFarm.CreateInstanceProfile: [$sel:name:CreateInstanceProfile'] :: CreateInstanceProfile -> Text
+ Amazonka.DeviceFarm.CreateInstanceProfile: [$sel:packageCleanup:CreateInstanceProfile'] :: CreateInstanceProfile -> Maybe Bool
+ Amazonka.DeviceFarm.CreateInstanceProfile: [$sel:rebootAfterUse:CreateInstanceProfile'] :: CreateInstanceProfile -> Maybe Bool
+ Amazonka.DeviceFarm.CreateInstanceProfile: createInstanceProfileResponse_httpStatus :: Lens' CreateInstanceProfileResponse Int
+ Amazonka.DeviceFarm.CreateInstanceProfile: createInstanceProfileResponse_instanceProfile :: Lens' CreateInstanceProfileResponse (Maybe InstanceProfile)
+ Amazonka.DeviceFarm.CreateInstanceProfile: createInstanceProfile_description :: Lens' CreateInstanceProfile (Maybe Text)
+ Amazonka.DeviceFarm.CreateInstanceProfile: createInstanceProfile_excludeAppPackagesFromCleanup :: Lens' CreateInstanceProfile (Maybe [Text])
+ Amazonka.DeviceFarm.CreateInstanceProfile: createInstanceProfile_name :: Lens' CreateInstanceProfile Text
+ Amazonka.DeviceFarm.CreateInstanceProfile: createInstanceProfile_packageCleanup :: Lens' CreateInstanceProfile (Maybe Bool)
+ Amazonka.DeviceFarm.CreateInstanceProfile: createInstanceProfile_rebootAfterUse :: Lens' CreateInstanceProfile (Maybe Bool)
+ Amazonka.DeviceFarm.CreateInstanceProfile: data CreateInstanceProfile
+ Amazonka.DeviceFarm.CreateInstanceProfile: data CreateInstanceProfileResponse
+ Amazonka.DeviceFarm.CreateInstanceProfile: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.CreateInstanceProfile.CreateInstanceProfile
+ Amazonka.DeviceFarm.CreateInstanceProfile: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.CreateInstanceProfile.CreateInstanceProfile
+ Amazonka.DeviceFarm.CreateInstanceProfile: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.CreateInstanceProfile.CreateInstanceProfile
+ Amazonka.DeviceFarm.CreateInstanceProfile: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.CreateInstanceProfile.CreateInstanceProfile
+ Amazonka.DeviceFarm.CreateInstanceProfile: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.CreateInstanceProfile.CreateInstanceProfile
+ Amazonka.DeviceFarm.CreateInstanceProfile: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.CreateInstanceProfile.CreateInstanceProfileResponse
+ Amazonka.DeviceFarm.CreateInstanceProfile: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.CreateInstanceProfile.CreateInstanceProfile
+ Amazonka.DeviceFarm.CreateInstanceProfile: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.CreateInstanceProfile.CreateInstanceProfile
+ Amazonka.DeviceFarm.CreateInstanceProfile: instance GHC.Classes.Eq Amazonka.DeviceFarm.CreateInstanceProfile.CreateInstanceProfile
+ Amazonka.DeviceFarm.CreateInstanceProfile: instance GHC.Classes.Eq Amazonka.DeviceFarm.CreateInstanceProfile.CreateInstanceProfileResponse
+ Amazonka.DeviceFarm.CreateInstanceProfile: instance GHC.Generics.Generic Amazonka.DeviceFarm.CreateInstanceProfile.CreateInstanceProfile
+ Amazonka.DeviceFarm.CreateInstanceProfile: instance GHC.Generics.Generic Amazonka.DeviceFarm.CreateInstanceProfile.CreateInstanceProfileResponse
+ Amazonka.DeviceFarm.CreateInstanceProfile: instance GHC.Read.Read Amazonka.DeviceFarm.CreateInstanceProfile.CreateInstanceProfile
+ Amazonka.DeviceFarm.CreateInstanceProfile: instance GHC.Read.Read Amazonka.DeviceFarm.CreateInstanceProfile.CreateInstanceProfileResponse
+ Amazonka.DeviceFarm.CreateInstanceProfile: instance GHC.Show.Show Amazonka.DeviceFarm.CreateInstanceProfile.CreateInstanceProfile
+ Amazonka.DeviceFarm.CreateInstanceProfile: instance GHC.Show.Show Amazonka.DeviceFarm.CreateInstanceProfile.CreateInstanceProfileResponse
+ Amazonka.DeviceFarm.CreateInstanceProfile: newCreateInstanceProfile :: Text -> CreateInstanceProfile
+ Amazonka.DeviceFarm.CreateInstanceProfile: newCreateInstanceProfileResponse :: Int -> CreateInstanceProfileResponse
+ Amazonka.DeviceFarm.CreateNetworkProfile: CreateNetworkProfile' :: Maybe Text -> Maybe Integer -> Maybe Integer -> Maybe Integer -> Maybe Natural -> Maybe NetworkProfileType -> Maybe Integer -> Maybe Integer -> Maybe Integer -> Maybe Natural -> Text -> Text -> CreateNetworkProfile
+ Amazonka.DeviceFarm.CreateNetworkProfile: CreateNetworkProfileResponse' :: Maybe NetworkProfile -> Int -> CreateNetworkProfileResponse
+ Amazonka.DeviceFarm.CreateNetworkProfile: [$sel:description:CreateNetworkProfile'] :: CreateNetworkProfile -> Maybe Text
+ Amazonka.DeviceFarm.CreateNetworkProfile: [$sel:downlinkBandwidthBits:CreateNetworkProfile'] :: CreateNetworkProfile -> Maybe Integer
+ Amazonka.DeviceFarm.CreateNetworkProfile: [$sel:downlinkDelayMs:CreateNetworkProfile'] :: CreateNetworkProfile -> Maybe Integer
+ Amazonka.DeviceFarm.CreateNetworkProfile: [$sel:downlinkJitterMs:CreateNetworkProfile'] :: CreateNetworkProfile -> Maybe Integer
+ Amazonka.DeviceFarm.CreateNetworkProfile: [$sel:downlinkLossPercent:CreateNetworkProfile'] :: CreateNetworkProfile -> Maybe Natural
+ Amazonka.DeviceFarm.CreateNetworkProfile: [$sel:httpStatus:CreateNetworkProfileResponse'] :: CreateNetworkProfileResponse -> Int
+ Amazonka.DeviceFarm.CreateNetworkProfile: [$sel:name:CreateNetworkProfile'] :: CreateNetworkProfile -> Text
+ Amazonka.DeviceFarm.CreateNetworkProfile: [$sel:networkProfile:CreateNetworkProfileResponse'] :: CreateNetworkProfileResponse -> Maybe NetworkProfile
+ Amazonka.DeviceFarm.CreateNetworkProfile: [$sel:projectArn:CreateNetworkProfile'] :: CreateNetworkProfile -> Text
+ Amazonka.DeviceFarm.CreateNetworkProfile: [$sel:type':CreateNetworkProfile'] :: CreateNetworkProfile -> Maybe NetworkProfileType
+ Amazonka.DeviceFarm.CreateNetworkProfile: [$sel:uplinkBandwidthBits:CreateNetworkProfile'] :: CreateNetworkProfile -> Maybe Integer
+ Amazonka.DeviceFarm.CreateNetworkProfile: [$sel:uplinkDelayMs:CreateNetworkProfile'] :: CreateNetworkProfile -> Maybe Integer
+ Amazonka.DeviceFarm.CreateNetworkProfile: [$sel:uplinkJitterMs:CreateNetworkProfile'] :: CreateNetworkProfile -> Maybe Integer
+ Amazonka.DeviceFarm.CreateNetworkProfile: [$sel:uplinkLossPercent:CreateNetworkProfile'] :: CreateNetworkProfile -> Maybe Natural
+ Amazonka.DeviceFarm.CreateNetworkProfile: createNetworkProfileResponse_httpStatus :: Lens' CreateNetworkProfileResponse Int
+ Amazonka.DeviceFarm.CreateNetworkProfile: createNetworkProfileResponse_networkProfile :: Lens' CreateNetworkProfileResponse (Maybe NetworkProfile)
+ Amazonka.DeviceFarm.CreateNetworkProfile: createNetworkProfile_description :: Lens' CreateNetworkProfile (Maybe Text)
+ Amazonka.DeviceFarm.CreateNetworkProfile: createNetworkProfile_downlinkBandwidthBits :: Lens' CreateNetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.CreateNetworkProfile: createNetworkProfile_downlinkDelayMs :: Lens' CreateNetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.CreateNetworkProfile: createNetworkProfile_downlinkJitterMs :: Lens' CreateNetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.CreateNetworkProfile: createNetworkProfile_downlinkLossPercent :: Lens' CreateNetworkProfile (Maybe Natural)
+ Amazonka.DeviceFarm.CreateNetworkProfile: createNetworkProfile_name :: Lens' CreateNetworkProfile Text
+ Amazonka.DeviceFarm.CreateNetworkProfile: createNetworkProfile_projectArn :: Lens' CreateNetworkProfile Text
+ Amazonka.DeviceFarm.CreateNetworkProfile: createNetworkProfile_type :: Lens' CreateNetworkProfile (Maybe NetworkProfileType)
+ Amazonka.DeviceFarm.CreateNetworkProfile: createNetworkProfile_uplinkBandwidthBits :: Lens' CreateNetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.CreateNetworkProfile: createNetworkProfile_uplinkDelayMs :: Lens' CreateNetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.CreateNetworkProfile: createNetworkProfile_uplinkJitterMs :: Lens' CreateNetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.CreateNetworkProfile: createNetworkProfile_uplinkLossPercent :: Lens' CreateNetworkProfile (Maybe Natural)
+ Amazonka.DeviceFarm.CreateNetworkProfile: data CreateNetworkProfile
+ Amazonka.DeviceFarm.CreateNetworkProfile: data CreateNetworkProfileResponse
+ Amazonka.DeviceFarm.CreateNetworkProfile: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.CreateNetworkProfile.CreateNetworkProfile
+ Amazonka.DeviceFarm.CreateNetworkProfile: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.CreateNetworkProfile.CreateNetworkProfile
+ Amazonka.DeviceFarm.CreateNetworkProfile: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.CreateNetworkProfile.CreateNetworkProfile
+ Amazonka.DeviceFarm.CreateNetworkProfile: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.CreateNetworkProfile.CreateNetworkProfile
+ Amazonka.DeviceFarm.CreateNetworkProfile: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.CreateNetworkProfile.CreateNetworkProfile
+ Amazonka.DeviceFarm.CreateNetworkProfile: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.CreateNetworkProfile.CreateNetworkProfileResponse
+ Amazonka.DeviceFarm.CreateNetworkProfile: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.CreateNetworkProfile.CreateNetworkProfile
+ Amazonka.DeviceFarm.CreateNetworkProfile: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.CreateNetworkProfile.CreateNetworkProfile
+ Amazonka.DeviceFarm.CreateNetworkProfile: instance GHC.Classes.Eq Amazonka.DeviceFarm.CreateNetworkProfile.CreateNetworkProfile
+ Amazonka.DeviceFarm.CreateNetworkProfile: instance GHC.Classes.Eq Amazonka.DeviceFarm.CreateNetworkProfile.CreateNetworkProfileResponse
+ Amazonka.DeviceFarm.CreateNetworkProfile: instance GHC.Generics.Generic Amazonka.DeviceFarm.CreateNetworkProfile.CreateNetworkProfile
+ Amazonka.DeviceFarm.CreateNetworkProfile: instance GHC.Generics.Generic Amazonka.DeviceFarm.CreateNetworkProfile.CreateNetworkProfileResponse
+ Amazonka.DeviceFarm.CreateNetworkProfile: instance GHC.Read.Read Amazonka.DeviceFarm.CreateNetworkProfile.CreateNetworkProfile
+ Amazonka.DeviceFarm.CreateNetworkProfile: instance GHC.Read.Read Amazonka.DeviceFarm.CreateNetworkProfile.CreateNetworkProfileResponse
+ Amazonka.DeviceFarm.CreateNetworkProfile: instance GHC.Show.Show Amazonka.DeviceFarm.CreateNetworkProfile.CreateNetworkProfile
+ Amazonka.DeviceFarm.CreateNetworkProfile: instance GHC.Show.Show Amazonka.DeviceFarm.CreateNetworkProfile.CreateNetworkProfileResponse
+ Amazonka.DeviceFarm.CreateNetworkProfile: newCreateNetworkProfile :: Text -> Text -> CreateNetworkProfile
+ Amazonka.DeviceFarm.CreateNetworkProfile: newCreateNetworkProfileResponse :: Int -> CreateNetworkProfileResponse
+ Amazonka.DeviceFarm.CreateProject: CreateProject' :: Maybe Int -> Maybe VpcConfig -> Text -> CreateProject
+ Amazonka.DeviceFarm.CreateProject: CreateProjectResponse' :: Maybe Project -> Int -> CreateProjectResponse
+ Amazonka.DeviceFarm.CreateProject: [$sel:defaultJobTimeoutMinutes:CreateProject'] :: CreateProject -> Maybe Int
+ Amazonka.DeviceFarm.CreateProject: [$sel:httpStatus:CreateProjectResponse'] :: CreateProjectResponse -> Int
+ Amazonka.DeviceFarm.CreateProject: [$sel:name:CreateProject'] :: CreateProject -> Text
+ Amazonka.DeviceFarm.CreateProject: [$sel:project:CreateProjectResponse'] :: CreateProjectResponse -> Maybe Project
+ Amazonka.DeviceFarm.CreateProject: [$sel:vpcConfig:CreateProject'] :: CreateProject -> Maybe VpcConfig
+ Amazonka.DeviceFarm.CreateProject: createProjectResponse_httpStatus :: Lens' CreateProjectResponse Int
+ Amazonka.DeviceFarm.CreateProject: createProjectResponse_project :: Lens' CreateProjectResponse (Maybe Project)
+ Amazonka.DeviceFarm.CreateProject: createProject_defaultJobTimeoutMinutes :: Lens' CreateProject (Maybe Int)
+ Amazonka.DeviceFarm.CreateProject: createProject_name :: Lens' CreateProject Text
+ Amazonka.DeviceFarm.CreateProject: createProject_vpcConfig :: Lens' CreateProject (Maybe VpcConfig)
+ Amazonka.DeviceFarm.CreateProject: data CreateProject
+ Amazonka.DeviceFarm.CreateProject: data CreateProjectResponse
+ Amazonka.DeviceFarm.CreateProject: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.CreateProject.CreateProject
+ Amazonka.DeviceFarm.CreateProject: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.CreateProject.CreateProject
+ Amazonka.DeviceFarm.CreateProject: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.CreateProject.CreateProject
+ Amazonka.DeviceFarm.CreateProject: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.CreateProject.CreateProject
+ Amazonka.DeviceFarm.CreateProject: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.CreateProject.CreateProject
+ Amazonka.DeviceFarm.CreateProject: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.CreateProject.CreateProjectResponse
+ Amazonka.DeviceFarm.CreateProject: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.CreateProject.CreateProject
+ Amazonka.DeviceFarm.CreateProject: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.CreateProject.CreateProject
+ Amazonka.DeviceFarm.CreateProject: instance GHC.Classes.Eq Amazonka.DeviceFarm.CreateProject.CreateProject
+ Amazonka.DeviceFarm.CreateProject: instance GHC.Classes.Eq Amazonka.DeviceFarm.CreateProject.CreateProjectResponse
+ Amazonka.DeviceFarm.CreateProject: instance GHC.Generics.Generic Amazonka.DeviceFarm.CreateProject.CreateProject
+ Amazonka.DeviceFarm.CreateProject: instance GHC.Generics.Generic Amazonka.DeviceFarm.CreateProject.CreateProjectResponse
+ Amazonka.DeviceFarm.CreateProject: instance GHC.Read.Read Amazonka.DeviceFarm.CreateProject.CreateProject
+ Amazonka.DeviceFarm.CreateProject: instance GHC.Read.Read Amazonka.DeviceFarm.CreateProject.CreateProjectResponse
+ Amazonka.DeviceFarm.CreateProject: instance GHC.Show.Show Amazonka.DeviceFarm.CreateProject.CreateProject
+ Amazonka.DeviceFarm.CreateProject: instance GHC.Show.Show Amazonka.DeviceFarm.CreateProject.CreateProjectResponse
+ Amazonka.DeviceFarm.CreateProject: newCreateProject :: Text -> CreateProject
+ Amazonka.DeviceFarm.CreateProject: newCreateProjectResponse :: Int -> CreateProjectResponse
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: CreateRemoteAccessSession' :: Maybe Text -> Maybe CreateRemoteAccessSessionConfiguration -> Maybe Text -> Maybe InteractionMode -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe Bool -> Maybe Bool -> Maybe Text -> Text -> Text -> CreateRemoteAccessSession
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: CreateRemoteAccessSessionResponse' :: Maybe RemoteAccessSession -> Int -> CreateRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: [$sel:clientId:CreateRemoteAccessSession'] :: CreateRemoteAccessSession -> Maybe Text
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: [$sel:configuration:CreateRemoteAccessSession'] :: CreateRemoteAccessSession -> Maybe CreateRemoteAccessSessionConfiguration
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: [$sel:deviceArn:CreateRemoteAccessSession'] :: CreateRemoteAccessSession -> Text
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: [$sel:httpStatus:CreateRemoteAccessSessionResponse'] :: CreateRemoteAccessSessionResponse -> Int
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: [$sel:instanceArn:CreateRemoteAccessSession'] :: CreateRemoteAccessSession -> Maybe Text
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: [$sel:interactionMode:CreateRemoteAccessSession'] :: CreateRemoteAccessSession -> Maybe InteractionMode
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: [$sel:name:CreateRemoteAccessSession'] :: CreateRemoteAccessSession -> Maybe Text
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: [$sel:projectArn:CreateRemoteAccessSession'] :: CreateRemoteAccessSession -> Text
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: [$sel:remoteAccessSession:CreateRemoteAccessSessionResponse'] :: CreateRemoteAccessSessionResponse -> Maybe RemoteAccessSession
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: [$sel:remoteDebugEnabled:CreateRemoteAccessSession'] :: CreateRemoteAccessSession -> Maybe Bool
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: [$sel:remoteRecordAppArn:CreateRemoteAccessSession'] :: CreateRemoteAccessSession -> Maybe Text
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: [$sel:remoteRecordEnabled:CreateRemoteAccessSession'] :: CreateRemoteAccessSession -> Maybe Bool
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: [$sel:skipAppResign:CreateRemoteAccessSession'] :: CreateRemoteAccessSession -> Maybe Bool
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: [$sel:sshPublicKey:CreateRemoteAccessSession'] :: CreateRemoteAccessSession -> Maybe Text
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: createRemoteAccessSessionResponse_httpStatus :: Lens' CreateRemoteAccessSessionResponse Int
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: createRemoteAccessSessionResponse_remoteAccessSession :: Lens' CreateRemoteAccessSessionResponse (Maybe RemoteAccessSession)
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: createRemoteAccessSession_clientId :: Lens' CreateRemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: createRemoteAccessSession_configuration :: Lens' CreateRemoteAccessSession (Maybe CreateRemoteAccessSessionConfiguration)
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: createRemoteAccessSession_deviceArn :: Lens' CreateRemoteAccessSession Text
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: createRemoteAccessSession_instanceArn :: Lens' CreateRemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: createRemoteAccessSession_interactionMode :: Lens' CreateRemoteAccessSession (Maybe InteractionMode)
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: createRemoteAccessSession_name :: Lens' CreateRemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: createRemoteAccessSession_projectArn :: Lens' CreateRemoteAccessSession Text
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: createRemoteAccessSession_remoteDebugEnabled :: Lens' CreateRemoteAccessSession (Maybe Bool)
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: createRemoteAccessSession_remoteRecordAppArn :: Lens' CreateRemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: createRemoteAccessSession_remoteRecordEnabled :: Lens' CreateRemoteAccessSession (Maybe Bool)
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: createRemoteAccessSession_skipAppResign :: Lens' CreateRemoteAccessSession (Maybe Bool)
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: createRemoteAccessSession_sshPublicKey :: Lens' CreateRemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: data CreateRemoteAccessSession
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: data CreateRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSession
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSession
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSession
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSession
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSession
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSession
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSession
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: instance GHC.Classes.Eq Amazonka.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSession
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: instance GHC.Classes.Eq Amazonka.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: instance GHC.Generics.Generic Amazonka.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSession
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: instance GHC.Generics.Generic Amazonka.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: instance GHC.Read.Read Amazonka.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSession
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: instance GHC.Read.Read Amazonka.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: instance GHC.Show.Show Amazonka.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSession
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: instance GHC.Show.Show Amazonka.DeviceFarm.CreateRemoteAccessSession.CreateRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: newCreateRemoteAccessSession :: Text -> Text -> CreateRemoteAccessSession
+ Amazonka.DeviceFarm.CreateRemoteAccessSession: newCreateRemoteAccessSessionResponse :: Int -> CreateRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.CreateTestGridProject: CreateTestGridProject' :: Maybe Text -> Maybe TestGridVpcConfig -> Text -> CreateTestGridProject
+ Amazonka.DeviceFarm.CreateTestGridProject: CreateTestGridProjectResponse' :: Maybe TestGridProject -> Int -> CreateTestGridProjectResponse
+ Amazonka.DeviceFarm.CreateTestGridProject: [$sel:description:CreateTestGridProject'] :: CreateTestGridProject -> Maybe Text
+ Amazonka.DeviceFarm.CreateTestGridProject: [$sel:httpStatus:CreateTestGridProjectResponse'] :: CreateTestGridProjectResponse -> Int
+ Amazonka.DeviceFarm.CreateTestGridProject: [$sel:name:CreateTestGridProject'] :: CreateTestGridProject -> Text
+ Amazonka.DeviceFarm.CreateTestGridProject: [$sel:testGridProject:CreateTestGridProjectResponse'] :: CreateTestGridProjectResponse -> Maybe TestGridProject
+ Amazonka.DeviceFarm.CreateTestGridProject: [$sel:vpcConfig:CreateTestGridProject'] :: CreateTestGridProject -> Maybe TestGridVpcConfig
+ Amazonka.DeviceFarm.CreateTestGridProject: createTestGridProjectResponse_httpStatus :: Lens' CreateTestGridProjectResponse Int
+ Amazonka.DeviceFarm.CreateTestGridProject: createTestGridProjectResponse_testGridProject :: Lens' CreateTestGridProjectResponse (Maybe TestGridProject)
+ Amazonka.DeviceFarm.CreateTestGridProject: createTestGridProject_description :: Lens' CreateTestGridProject (Maybe Text)
+ Amazonka.DeviceFarm.CreateTestGridProject: createTestGridProject_name :: Lens' CreateTestGridProject Text
+ Amazonka.DeviceFarm.CreateTestGridProject: createTestGridProject_vpcConfig :: Lens' CreateTestGridProject (Maybe TestGridVpcConfig)
+ Amazonka.DeviceFarm.CreateTestGridProject: data CreateTestGridProject
+ Amazonka.DeviceFarm.CreateTestGridProject: data CreateTestGridProjectResponse
+ Amazonka.DeviceFarm.CreateTestGridProject: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.CreateTestGridProject.CreateTestGridProject
+ Amazonka.DeviceFarm.CreateTestGridProject: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.CreateTestGridProject.CreateTestGridProject
+ Amazonka.DeviceFarm.CreateTestGridProject: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.CreateTestGridProject.CreateTestGridProject
+ Amazonka.DeviceFarm.CreateTestGridProject: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.CreateTestGridProject.CreateTestGridProject
+ Amazonka.DeviceFarm.CreateTestGridProject: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.CreateTestGridProject.CreateTestGridProject
+ Amazonka.DeviceFarm.CreateTestGridProject: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.CreateTestGridProject.CreateTestGridProjectResponse
+ Amazonka.DeviceFarm.CreateTestGridProject: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.CreateTestGridProject.CreateTestGridProject
+ Amazonka.DeviceFarm.CreateTestGridProject: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.CreateTestGridProject.CreateTestGridProject
+ Amazonka.DeviceFarm.CreateTestGridProject: instance GHC.Classes.Eq Amazonka.DeviceFarm.CreateTestGridProject.CreateTestGridProject
+ Amazonka.DeviceFarm.CreateTestGridProject: instance GHC.Classes.Eq Amazonka.DeviceFarm.CreateTestGridProject.CreateTestGridProjectResponse
+ Amazonka.DeviceFarm.CreateTestGridProject: instance GHC.Generics.Generic Amazonka.DeviceFarm.CreateTestGridProject.CreateTestGridProject
+ Amazonka.DeviceFarm.CreateTestGridProject: instance GHC.Generics.Generic Amazonka.DeviceFarm.CreateTestGridProject.CreateTestGridProjectResponse
+ Amazonka.DeviceFarm.CreateTestGridProject: instance GHC.Read.Read Amazonka.DeviceFarm.CreateTestGridProject.CreateTestGridProject
+ Amazonka.DeviceFarm.CreateTestGridProject: instance GHC.Read.Read Amazonka.DeviceFarm.CreateTestGridProject.CreateTestGridProjectResponse
+ Amazonka.DeviceFarm.CreateTestGridProject: instance GHC.Show.Show Amazonka.DeviceFarm.CreateTestGridProject.CreateTestGridProject
+ Amazonka.DeviceFarm.CreateTestGridProject: instance GHC.Show.Show Amazonka.DeviceFarm.CreateTestGridProject.CreateTestGridProjectResponse
+ Amazonka.DeviceFarm.CreateTestGridProject: newCreateTestGridProject :: Text -> CreateTestGridProject
+ Amazonka.DeviceFarm.CreateTestGridProject: newCreateTestGridProjectResponse :: Int -> CreateTestGridProjectResponse
+ Amazonka.DeviceFarm.CreateTestGridUrl: CreateTestGridUrl' :: Text -> Natural -> CreateTestGridUrl
+ Amazonka.DeviceFarm.CreateTestGridUrl: CreateTestGridUrlResponse' :: Maybe POSIX -> Maybe (Sensitive Text) -> Int -> CreateTestGridUrlResponse
+ Amazonka.DeviceFarm.CreateTestGridUrl: [$sel:expires:CreateTestGridUrlResponse'] :: CreateTestGridUrlResponse -> Maybe POSIX
+ Amazonka.DeviceFarm.CreateTestGridUrl: [$sel:expiresInSeconds:CreateTestGridUrl'] :: CreateTestGridUrl -> Natural
+ Amazonka.DeviceFarm.CreateTestGridUrl: [$sel:httpStatus:CreateTestGridUrlResponse'] :: CreateTestGridUrlResponse -> Int
+ Amazonka.DeviceFarm.CreateTestGridUrl: [$sel:projectArn:CreateTestGridUrl'] :: CreateTestGridUrl -> Text
+ Amazonka.DeviceFarm.CreateTestGridUrl: [$sel:url:CreateTestGridUrlResponse'] :: CreateTestGridUrlResponse -> Maybe (Sensitive Text)
+ Amazonka.DeviceFarm.CreateTestGridUrl: createTestGridUrlResponse_expires :: Lens' CreateTestGridUrlResponse (Maybe UTCTime)
+ Amazonka.DeviceFarm.CreateTestGridUrl: createTestGridUrlResponse_httpStatus :: Lens' CreateTestGridUrlResponse Int
+ Amazonka.DeviceFarm.CreateTestGridUrl: createTestGridUrlResponse_url :: Lens' CreateTestGridUrlResponse (Maybe Text)
+ Amazonka.DeviceFarm.CreateTestGridUrl: createTestGridUrl_expiresInSeconds :: Lens' CreateTestGridUrl Natural
+ Amazonka.DeviceFarm.CreateTestGridUrl: createTestGridUrl_projectArn :: Lens' CreateTestGridUrl Text
+ Amazonka.DeviceFarm.CreateTestGridUrl: data CreateTestGridUrl
+ Amazonka.DeviceFarm.CreateTestGridUrl: data CreateTestGridUrlResponse
+ Amazonka.DeviceFarm.CreateTestGridUrl: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.CreateTestGridUrl.CreateTestGridUrl
+ Amazonka.DeviceFarm.CreateTestGridUrl: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.CreateTestGridUrl.CreateTestGridUrl
+ Amazonka.DeviceFarm.CreateTestGridUrl: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.CreateTestGridUrl.CreateTestGridUrl
+ Amazonka.DeviceFarm.CreateTestGridUrl: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.CreateTestGridUrl.CreateTestGridUrl
+ Amazonka.DeviceFarm.CreateTestGridUrl: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.CreateTestGridUrl.CreateTestGridUrl
+ Amazonka.DeviceFarm.CreateTestGridUrl: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.CreateTestGridUrl.CreateTestGridUrlResponse
+ Amazonka.DeviceFarm.CreateTestGridUrl: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.CreateTestGridUrl.CreateTestGridUrl
+ Amazonka.DeviceFarm.CreateTestGridUrl: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.CreateTestGridUrl.CreateTestGridUrl
+ Amazonka.DeviceFarm.CreateTestGridUrl: instance GHC.Classes.Eq Amazonka.DeviceFarm.CreateTestGridUrl.CreateTestGridUrl
+ Amazonka.DeviceFarm.CreateTestGridUrl: instance GHC.Classes.Eq Amazonka.DeviceFarm.CreateTestGridUrl.CreateTestGridUrlResponse
+ Amazonka.DeviceFarm.CreateTestGridUrl: instance GHC.Generics.Generic Amazonka.DeviceFarm.CreateTestGridUrl.CreateTestGridUrl
+ Amazonka.DeviceFarm.CreateTestGridUrl: instance GHC.Generics.Generic Amazonka.DeviceFarm.CreateTestGridUrl.CreateTestGridUrlResponse
+ Amazonka.DeviceFarm.CreateTestGridUrl: instance GHC.Read.Read Amazonka.DeviceFarm.CreateTestGridUrl.CreateTestGridUrl
+ Amazonka.DeviceFarm.CreateTestGridUrl: instance GHC.Show.Show Amazonka.DeviceFarm.CreateTestGridUrl.CreateTestGridUrl
+ Amazonka.DeviceFarm.CreateTestGridUrl: instance GHC.Show.Show Amazonka.DeviceFarm.CreateTestGridUrl.CreateTestGridUrlResponse
+ Amazonka.DeviceFarm.CreateTestGridUrl: newCreateTestGridUrl :: Text -> Natural -> CreateTestGridUrl
+ Amazonka.DeviceFarm.CreateTestGridUrl: newCreateTestGridUrlResponse :: Int -> CreateTestGridUrlResponse
+ Amazonka.DeviceFarm.CreateUpload: CreateUpload' :: Maybe Text -> Text -> Text -> UploadType -> CreateUpload
+ Amazonka.DeviceFarm.CreateUpload: CreateUploadResponse' :: Maybe Upload -> Int -> CreateUploadResponse
+ Amazonka.DeviceFarm.CreateUpload: [$sel:contentType:CreateUpload'] :: CreateUpload -> Maybe Text
+ Amazonka.DeviceFarm.CreateUpload: [$sel:httpStatus:CreateUploadResponse'] :: CreateUploadResponse -> Int
+ Amazonka.DeviceFarm.CreateUpload: [$sel:name:CreateUpload'] :: CreateUpload -> Text
+ Amazonka.DeviceFarm.CreateUpload: [$sel:projectArn:CreateUpload'] :: CreateUpload -> Text
+ Amazonka.DeviceFarm.CreateUpload: [$sel:type':CreateUpload'] :: CreateUpload -> UploadType
+ Amazonka.DeviceFarm.CreateUpload: [$sel:upload:CreateUploadResponse'] :: CreateUploadResponse -> Maybe Upload
+ Amazonka.DeviceFarm.CreateUpload: createUploadResponse_httpStatus :: Lens' CreateUploadResponse Int
+ Amazonka.DeviceFarm.CreateUpload: createUploadResponse_upload :: Lens' CreateUploadResponse (Maybe Upload)
+ Amazonka.DeviceFarm.CreateUpload: createUpload_contentType :: Lens' CreateUpload (Maybe Text)
+ Amazonka.DeviceFarm.CreateUpload: createUpload_name :: Lens' CreateUpload Text
+ Amazonka.DeviceFarm.CreateUpload: createUpload_projectArn :: Lens' CreateUpload Text
+ Amazonka.DeviceFarm.CreateUpload: createUpload_type :: Lens' CreateUpload UploadType
+ Amazonka.DeviceFarm.CreateUpload: data CreateUpload
+ Amazonka.DeviceFarm.CreateUpload: data CreateUploadResponse
+ Amazonka.DeviceFarm.CreateUpload: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.CreateUpload.CreateUpload
+ Amazonka.DeviceFarm.CreateUpload: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.CreateUpload.CreateUpload
+ Amazonka.DeviceFarm.CreateUpload: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.CreateUpload.CreateUpload
+ Amazonka.DeviceFarm.CreateUpload: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.CreateUpload.CreateUpload
+ Amazonka.DeviceFarm.CreateUpload: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.CreateUpload.CreateUpload
+ Amazonka.DeviceFarm.CreateUpload: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.CreateUpload.CreateUploadResponse
+ Amazonka.DeviceFarm.CreateUpload: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.CreateUpload.CreateUpload
+ Amazonka.DeviceFarm.CreateUpload: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.CreateUpload.CreateUpload
+ Amazonka.DeviceFarm.CreateUpload: instance GHC.Classes.Eq Amazonka.DeviceFarm.CreateUpload.CreateUpload
+ Amazonka.DeviceFarm.CreateUpload: instance GHC.Classes.Eq Amazonka.DeviceFarm.CreateUpload.CreateUploadResponse
+ Amazonka.DeviceFarm.CreateUpload: instance GHC.Generics.Generic Amazonka.DeviceFarm.CreateUpload.CreateUpload
+ Amazonka.DeviceFarm.CreateUpload: instance GHC.Generics.Generic Amazonka.DeviceFarm.CreateUpload.CreateUploadResponse
+ Amazonka.DeviceFarm.CreateUpload: instance GHC.Read.Read Amazonka.DeviceFarm.CreateUpload.CreateUpload
+ Amazonka.DeviceFarm.CreateUpload: instance GHC.Show.Show Amazonka.DeviceFarm.CreateUpload.CreateUpload
+ Amazonka.DeviceFarm.CreateUpload: instance GHC.Show.Show Amazonka.DeviceFarm.CreateUpload.CreateUploadResponse
+ Amazonka.DeviceFarm.CreateUpload: newCreateUpload :: Text -> Text -> UploadType -> CreateUpload
+ Amazonka.DeviceFarm.CreateUpload: newCreateUploadResponse :: Int -> CreateUploadResponse
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: CreateVPCEConfiguration' :: Maybe Text -> Text -> Text -> Text -> CreateVPCEConfiguration
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: CreateVPCEConfigurationResponse' :: Maybe VPCEConfiguration -> Int -> CreateVPCEConfigurationResponse
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: [$sel:httpStatus:CreateVPCEConfigurationResponse'] :: CreateVPCEConfigurationResponse -> Int
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: [$sel:serviceDnsName:CreateVPCEConfiguration'] :: CreateVPCEConfiguration -> Text
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: [$sel:vpceConfiguration:CreateVPCEConfigurationResponse'] :: CreateVPCEConfigurationResponse -> Maybe VPCEConfiguration
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: [$sel:vpceConfigurationDescription:CreateVPCEConfiguration'] :: CreateVPCEConfiguration -> Maybe Text
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: [$sel:vpceConfigurationName:CreateVPCEConfiguration'] :: CreateVPCEConfiguration -> Text
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: [$sel:vpceServiceName:CreateVPCEConfiguration'] :: CreateVPCEConfiguration -> Text
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: createVPCEConfigurationResponse_httpStatus :: Lens' CreateVPCEConfigurationResponse Int
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: createVPCEConfigurationResponse_vpceConfiguration :: Lens' CreateVPCEConfigurationResponse (Maybe VPCEConfiguration)
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: createVPCEConfiguration_serviceDnsName :: Lens' CreateVPCEConfiguration Text
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: createVPCEConfiguration_vpceConfigurationDescription :: Lens' CreateVPCEConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: createVPCEConfiguration_vpceConfigurationName :: Lens' CreateVPCEConfiguration Text
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: createVPCEConfiguration_vpceServiceName :: Lens' CreateVPCEConfiguration Text
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: data CreateVPCEConfiguration
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: data CreateVPCEConfigurationResponse
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfiguration
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfiguration
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfiguration
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfiguration
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfiguration
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfigurationResponse
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfiguration
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfiguration
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: instance GHC.Classes.Eq Amazonka.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfiguration
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: instance GHC.Classes.Eq Amazonka.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfigurationResponse
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: instance GHC.Generics.Generic Amazonka.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfiguration
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: instance GHC.Generics.Generic Amazonka.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfigurationResponse
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: instance GHC.Read.Read Amazonka.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfiguration
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: instance GHC.Read.Read Amazonka.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfigurationResponse
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: instance GHC.Show.Show Amazonka.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfiguration
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: instance GHC.Show.Show Amazonka.DeviceFarm.CreateVPCEConfiguration.CreateVPCEConfigurationResponse
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: newCreateVPCEConfiguration :: Text -> Text -> Text -> CreateVPCEConfiguration
+ Amazonka.DeviceFarm.CreateVPCEConfiguration: newCreateVPCEConfigurationResponse :: Int -> CreateVPCEConfigurationResponse
+ Amazonka.DeviceFarm.DeleteDevicePool: DeleteDevicePool' :: Text -> DeleteDevicePool
+ Amazonka.DeviceFarm.DeleteDevicePool: DeleteDevicePoolResponse' :: Int -> DeleteDevicePoolResponse
+ Amazonka.DeviceFarm.DeleteDevicePool: [$sel:arn:DeleteDevicePool'] :: DeleteDevicePool -> Text
+ Amazonka.DeviceFarm.DeleteDevicePool: [$sel:httpStatus:DeleteDevicePoolResponse'] :: DeleteDevicePoolResponse -> Int
+ Amazonka.DeviceFarm.DeleteDevicePool: data DeleteDevicePool
+ Amazonka.DeviceFarm.DeleteDevicePool: data DeleteDevicePoolResponse
+ Amazonka.DeviceFarm.DeleteDevicePool: deleteDevicePoolResponse_httpStatus :: Lens' DeleteDevicePoolResponse Int
+ Amazonka.DeviceFarm.DeleteDevicePool: deleteDevicePool_arn :: Lens' DeleteDevicePool Text
+ Amazonka.DeviceFarm.DeleteDevicePool: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.DeleteDevicePool.DeleteDevicePool
+ Amazonka.DeviceFarm.DeleteDevicePool: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.DeleteDevicePool.DeleteDevicePool
+ Amazonka.DeviceFarm.DeleteDevicePool: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.DeleteDevicePool.DeleteDevicePool
+ Amazonka.DeviceFarm.DeleteDevicePool: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.DeleteDevicePool.DeleteDevicePool
+ Amazonka.DeviceFarm.DeleteDevicePool: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.DeleteDevicePool.DeleteDevicePool
+ Amazonka.DeviceFarm.DeleteDevicePool: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.DeleteDevicePool.DeleteDevicePoolResponse
+ Amazonka.DeviceFarm.DeleteDevicePool: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.DeleteDevicePool.DeleteDevicePool
+ Amazonka.DeviceFarm.DeleteDevicePool: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.DeleteDevicePool.DeleteDevicePool
+ Amazonka.DeviceFarm.DeleteDevicePool: instance GHC.Classes.Eq Amazonka.DeviceFarm.DeleteDevicePool.DeleteDevicePool
+ Amazonka.DeviceFarm.DeleteDevicePool: instance GHC.Classes.Eq Amazonka.DeviceFarm.DeleteDevicePool.DeleteDevicePoolResponse
+ Amazonka.DeviceFarm.DeleteDevicePool: instance GHC.Generics.Generic Amazonka.DeviceFarm.DeleteDevicePool.DeleteDevicePool
+ Amazonka.DeviceFarm.DeleteDevicePool: instance GHC.Generics.Generic Amazonka.DeviceFarm.DeleteDevicePool.DeleteDevicePoolResponse
+ Amazonka.DeviceFarm.DeleteDevicePool: instance GHC.Read.Read Amazonka.DeviceFarm.DeleteDevicePool.DeleteDevicePool
+ Amazonka.DeviceFarm.DeleteDevicePool: instance GHC.Read.Read Amazonka.DeviceFarm.DeleteDevicePool.DeleteDevicePoolResponse
+ Amazonka.DeviceFarm.DeleteDevicePool: instance GHC.Show.Show Amazonka.DeviceFarm.DeleteDevicePool.DeleteDevicePool
+ Amazonka.DeviceFarm.DeleteDevicePool: instance GHC.Show.Show Amazonka.DeviceFarm.DeleteDevicePool.DeleteDevicePoolResponse
+ Amazonka.DeviceFarm.DeleteDevicePool: newDeleteDevicePool :: Text -> DeleteDevicePool
+ Amazonka.DeviceFarm.DeleteDevicePool: newDeleteDevicePoolResponse :: Int -> DeleteDevicePoolResponse
+ Amazonka.DeviceFarm.DeleteInstanceProfile: DeleteInstanceProfile' :: Text -> DeleteInstanceProfile
+ Amazonka.DeviceFarm.DeleteInstanceProfile: DeleteInstanceProfileResponse' :: Int -> DeleteInstanceProfileResponse
+ Amazonka.DeviceFarm.DeleteInstanceProfile: [$sel:arn:DeleteInstanceProfile'] :: DeleteInstanceProfile -> Text
+ Amazonka.DeviceFarm.DeleteInstanceProfile: [$sel:httpStatus:DeleteInstanceProfileResponse'] :: DeleteInstanceProfileResponse -> Int
+ Amazonka.DeviceFarm.DeleteInstanceProfile: data DeleteInstanceProfile
+ Amazonka.DeviceFarm.DeleteInstanceProfile: data DeleteInstanceProfileResponse
+ Amazonka.DeviceFarm.DeleteInstanceProfile: deleteInstanceProfileResponse_httpStatus :: Lens' DeleteInstanceProfileResponse Int
+ Amazonka.DeviceFarm.DeleteInstanceProfile: deleteInstanceProfile_arn :: Lens' DeleteInstanceProfile Text
+ Amazonka.DeviceFarm.DeleteInstanceProfile: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfile
+ Amazonka.DeviceFarm.DeleteInstanceProfile: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfile
+ Amazonka.DeviceFarm.DeleteInstanceProfile: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfile
+ Amazonka.DeviceFarm.DeleteInstanceProfile: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfile
+ Amazonka.DeviceFarm.DeleteInstanceProfile: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfile
+ Amazonka.DeviceFarm.DeleteInstanceProfile: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfileResponse
+ Amazonka.DeviceFarm.DeleteInstanceProfile: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfile
+ Amazonka.DeviceFarm.DeleteInstanceProfile: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfile
+ Amazonka.DeviceFarm.DeleteInstanceProfile: instance GHC.Classes.Eq Amazonka.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfile
+ Amazonka.DeviceFarm.DeleteInstanceProfile: instance GHC.Classes.Eq Amazonka.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfileResponse
+ Amazonka.DeviceFarm.DeleteInstanceProfile: instance GHC.Generics.Generic Amazonka.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfile
+ Amazonka.DeviceFarm.DeleteInstanceProfile: instance GHC.Generics.Generic Amazonka.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfileResponse
+ Amazonka.DeviceFarm.DeleteInstanceProfile: instance GHC.Read.Read Amazonka.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfile
+ Amazonka.DeviceFarm.DeleteInstanceProfile: instance GHC.Read.Read Amazonka.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfileResponse
+ Amazonka.DeviceFarm.DeleteInstanceProfile: instance GHC.Show.Show Amazonka.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfile
+ Amazonka.DeviceFarm.DeleteInstanceProfile: instance GHC.Show.Show Amazonka.DeviceFarm.DeleteInstanceProfile.DeleteInstanceProfileResponse
+ Amazonka.DeviceFarm.DeleteInstanceProfile: newDeleteInstanceProfile :: Text -> DeleteInstanceProfile
+ Amazonka.DeviceFarm.DeleteInstanceProfile: newDeleteInstanceProfileResponse :: Int -> DeleteInstanceProfileResponse
+ Amazonka.DeviceFarm.DeleteNetworkProfile: DeleteNetworkProfile' :: Text -> DeleteNetworkProfile
+ Amazonka.DeviceFarm.DeleteNetworkProfile: DeleteNetworkProfileResponse' :: Int -> DeleteNetworkProfileResponse
+ Amazonka.DeviceFarm.DeleteNetworkProfile: [$sel:arn:DeleteNetworkProfile'] :: DeleteNetworkProfile -> Text
+ Amazonka.DeviceFarm.DeleteNetworkProfile: [$sel:httpStatus:DeleteNetworkProfileResponse'] :: DeleteNetworkProfileResponse -> Int
+ Amazonka.DeviceFarm.DeleteNetworkProfile: data DeleteNetworkProfile
+ Amazonka.DeviceFarm.DeleteNetworkProfile: data DeleteNetworkProfileResponse
+ Amazonka.DeviceFarm.DeleteNetworkProfile: deleteNetworkProfileResponse_httpStatus :: Lens' DeleteNetworkProfileResponse Int
+ Amazonka.DeviceFarm.DeleteNetworkProfile: deleteNetworkProfile_arn :: Lens' DeleteNetworkProfile Text
+ Amazonka.DeviceFarm.DeleteNetworkProfile: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfile
+ Amazonka.DeviceFarm.DeleteNetworkProfile: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfile
+ Amazonka.DeviceFarm.DeleteNetworkProfile: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfile
+ Amazonka.DeviceFarm.DeleteNetworkProfile: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfile
+ Amazonka.DeviceFarm.DeleteNetworkProfile: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfile
+ Amazonka.DeviceFarm.DeleteNetworkProfile: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfileResponse
+ Amazonka.DeviceFarm.DeleteNetworkProfile: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfile
+ Amazonka.DeviceFarm.DeleteNetworkProfile: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfile
+ Amazonka.DeviceFarm.DeleteNetworkProfile: instance GHC.Classes.Eq Amazonka.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfile
+ Amazonka.DeviceFarm.DeleteNetworkProfile: instance GHC.Classes.Eq Amazonka.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfileResponse
+ Amazonka.DeviceFarm.DeleteNetworkProfile: instance GHC.Generics.Generic Amazonka.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfile
+ Amazonka.DeviceFarm.DeleteNetworkProfile: instance GHC.Generics.Generic Amazonka.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfileResponse
+ Amazonka.DeviceFarm.DeleteNetworkProfile: instance GHC.Read.Read Amazonka.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfile
+ Amazonka.DeviceFarm.DeleteNetworkProfile: instance GHC.Read.Read Amazonka.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfileResponse
+ Amazonka.DeviceFarm.DeleteNetworkProfile: instance GHC.Show.Show Amazonka.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfile
+ Amazonka.DeviceFarm.DeleteNetworkProfile: instance GHC.Show.Show Amazonka.DeviceFarm.DeleteNetworkProfile.DeleteNetworkProfileResponse
+ Amazonka.DeviceFarm.DeleteNetworkProfile: newDeleteNetworkProfile :: Text -> DeleteNetworkProfile
+ Amazonka.DeviceFarm.DeleteNetworkProfile: newDeleteNetworkProfileResponse :: Int -> DeleteNetworkProfileResponse
+ Amazonka.DeviceFarm.DeleteProject: DeleteProject' :: Text -> DeleteProject
+ Amazonka.DeviceFarm.DeleteProject: DeleteProjectResponse' :: Int -> DeleteProjectResponse
+ Amazonka.DeviceFarm.DeleteProject: [$sel:arn:DeleteProject'] :: DeleteProject -> Text
+ Amazonka.DeviceFarm.DeleteProject: [$sel:httpStatus:DeleteProjectResponse'] :: DeleteProjectResponse -> Int
+ Amazonka.DeviceFarm.DeleteProject: data DeleteProject
+ Amazonka.DeviceFarm.DeleteProject: data DeleteProjectResponse
+ Amazonka.DeviceFarm.DeleteProject: deleteProjectResponse_httpStatus :: Lens' DeleteProjectResponse Int
+ Amazonka.DeviceFarm.DeleteProject: deleteProject_arn :: Lens' DeleteProject Text
+ Amazonka.DeviceFarm.DeleteProject: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.DeleteProject.DeleteProject
+ Amazonka.DeviceFarm.DeleteProject: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.DeleteProject.DeleteProject
+ Amazonka.DeviceFarm.DeleteProject: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.DeleteProject.DeleteProject
+ Amazonka.DeviceFarm.DeleteProject: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.DeleteProject.DeleteProject
+ Amazonka.DeviceFarm.DeleteProject: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.DeleteProject.DeleteProject
+ Amazonka.DeviceFarm.DeleteProject: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.DeleteProject.DeleteProjectResponse
+ Amazonka.DeviceFarm.DeleteProject: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.DeleteProject.DeleteProject
+ Amazonka.DeviceFarm.DeleteProject: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.DeleteProject.DeleteProject
+ Amazonka.DeviceFarm.DeleteProject: instance GHC.Classes.Eq Amazonka.DeviceFarm.DeleteProject.DeleteProject
+ Amazonka.DeviceFarm.DeleteProject: instance GHC.Classes.Eq Amazonka.DeviceFarm.DeleteProject.DeleteProjectResponse
+ Amazonka.DeviceFarm.DeleteProject: instance GHC.Generics.Generic Amazonka.DeviceFarm.DeleteProject.DeleteProject
+ Amazonka.DeviceFarm.DeleteProject: instance GHC.Generics.Generic Amazonka.DeviceFarm.DeleteProject.DeleteProjectResponse
+ Amazonka.DeviceFarm.DeleteProject: instance GHC.Read.Read Amazonka.DeviceFarm.DeleteProject.DeleteProject
+ Amazonka.DeviceFarm.DeleteProject: instance GHC.Read.Read Amazonka.DeviceFarm.DeleteProject.DeleteProjectResponse
+ Amazonka.DeviceFarm.DeleteProject: instance GHC.Show.Show Amazonka.DeviceFarm.DeleteProject.DeleteProject
+ Amazonka.DeviceFarm.DeleteProject: instance GHC.Show.Show Amazonka.DeviceFarm.DeleteProject.DeleteProjectResponse
+ Amazonka.DeviceFarm.DeleteProject: newDeleteProject :: Text -> DeleteProject
+ Amazonka.DeviceFarm.DeleteProject: newDeleteProjectResponse :: Int -> DeleteProjectResponse
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: DeleteRemoteAccessSession' :: Text -> DeleteRemoteAccessSession
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: DeleteRemoteAccessSessionResponse' :: Int -> DeleteRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: [$sel:arn:DeleteRemoteAccessSession'] :: DeleteRemoteAccessSession -> Text
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: [$sel:httpStatus:DeleteRemoteAccessSessionResponse'] :: DeleteRemoteAccessSessionResponse -> Int
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: data DeleteRemoteAccessSession
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: data DeleteRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: deleteRemoteAccessSessionResponse_httpStatus :: Lens' DeleteRemoteAccessSessionResponse Int
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: deleteRemoteAccessSession_arn :: Lens' DeleteRemoteAccessSession Text
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSession
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSession
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSession
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSession
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSession
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSession
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSession
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: instance GHC.Classes.Eq Amazonka.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSession
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: instance GHC.Classes.Eq Amazonka.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: instance GHC.Generics.Generic Amazonka.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSession
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: instance GHC.Generics.Generic Amazonka.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: instance GHC.Read.Read Amazonka.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSession
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: instance GHC.Read.Read Amazonka.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: instance GHC.Show.Show Amazonka.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSession
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: instance GHC.Show.Show Amazonka.DeviceFarm.DeleteRemoteAccessSession.DeleteRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: newDeleteRemoteAccessSession :: Text -> DeleteRemoteAccessSession
+ Amazonka.DeviceFarm.DeleteRemoteAccessSession: newDeleteRemoteAccessSessionResponse :: Int -> DeleteRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.DeleteRun: DeleteRun' :: Text -> DeleteRun
+ Amazonka.DeviceFarm.DeleteRun: DeleteRunResponse' :: Int -> DeleteRunResponse
+ Amazonka.DeviceFarm.DeleteRun: [$sel:arn:DeleteRun'] :: DeleteRun -> Text
+ Amazonka.DeviceFarm.DeleteRun: [$sel:httpStatus:DeleteRunResponse'] :: DeleteRunResponse -> Int
+ Amazonka.DeviceFarm.DeleteRun: data DeleteRun
+ Amazonka.DeviceFarm.DeleteRun: data DeleteRunResponse
+ Amazonka.DeviceFarm.DeleteRun: deleteRunResponse_httpStatus :: Lens' DeleteRunResponse Int
+ Amazonka.DeviceFarm.DeleteRun: deleteRun_arn :: Lens' DeleteRun Text
+ Amazonka.DeviceFarm.DeleteRun: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.DeleteRun.DeleteRun
+ Amazonka.DeviceFarm.DeleteRun: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.DeleteRun.DeleteRun
+ Amazonka.DeviceFarm.DeleteRun: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.DeleteRun.DeleteRun
+ Amazonka.DeviceFarm.DeleteRun: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.DeleteRun.DeleteRun
+ Amazonka.DeviceFarm.DeleteRun: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.DeleteRun.DeleteRun
+ Amazonka.DeviceFarm.DeleteRun: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.DeleteRun.DeleteRunResponse
+ Amazonka.DeviceFarm.DeleteRun: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.DeleteRun.DeleteRun
+ Amazonka.DeviceFarm.DeleteRun: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.DeleteRun.DeleteRun
+ Amazonka.DeviceFarm.DeleteRun: instance GHC.Classes.Eq Amazonka.DeviceFarm.DeleteRun.DeleteRun
+ Amazonka.DeviceFarm.DeleteRun: instance GHC.Classes.Eq Amazonka.DeviceFarm.DeleteRun.DeleteRunResponse
+ Amazonka.DeviceFarm.DeleteRun: instance GHC.Generics.Generic Amazonka.DeviceFarm.DeleteRun.DeleteRun
+ Amazonka.DeviceFarm.DeleteRun: instance GHC.Generics.Generic Amazonka.DeviceFarm.DeleteRun.DeleteRunResponse
+ Amazonka.DeviceFarm.DeleteRun: instance GHC.Read.Read Amazonka.DeviceFarm.DeleteRun.DeleteRun
+ Amazonka.DeviceFarm.DeleteRun: instance GHC.Read.Read Amazonka.DeviceFarm.DeleteRun.DeleteRunResponse
+ Amazonka.DeviceFarm.DeleteRun: instance GHC.Show.Show Amazonka.DeviceFarm.DeleteRun.DeleteRun
+ Amazonka.DeviceFarm.DeleteRun: instance GHC.Show.Show Amazonka.DeviceFarm.DeleteRun.DeleteRunResponse
+ Amazonka.DeviceFarm.DeleteRun: newDeleteRun :: Text -> DeleteRun
+ Amazonka.DeviceFarm.DeleteRun: newDeleteRunResponse :: Int -> DeleteRunResponse
+ Amazonka.DeviceFarm.DeleteTestGridProject: DeleteTestGridProject' :: Text -> DeleteTestGridProject
+ Amazonka.DeviceFarm.DeleteTestGridProject: DeleteTestGridProjectResponse' :: Int -> DeleteTestGridProjectResponse
+ Amazonka.DeviceFarm.DeleteTestGridProject: [$sel:httpStatus:DeleteTestGridProjectResponse'] :: DeleteTestGridProjectResponse -> Int
+ Amazonka.DeviceFarm.DeleteTestGridProject: [$sel:projectArn:DeleteTestGridProject'] :: DeleteTestGridProject -> Text
+ Amazonka.DeviceFarm.DeleteTestGridProject: data DeleteTestGridProject
+ Amazonka.DeviceFarm.DeleteTestGridProject: data DeleteTestGridProjectResponse
+ Amazonka.DeviceFarm.DeleteTestGridProject: deleteTestGridProjectResponse_httpStatus :: Lens' DeleteTestGridProjectResponse Int
+ Amazonka.DeviceFarm.DeleteTestGridProject: deleteTestGridProject_projectArn :: Lens' DeleteTestGridProject Text
+ Amazonka.DeviceFarm.DeleteTestGridProject: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.DeleteTestGridProject.DeleteTestGridProject
+ Amazonka.DeviceFarm.DeleteTestGridProject: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.DeleteTestGridProject.DeleteTestGridProject
+ Amazonka.DeviceFarm.DeleteTestGridProject: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.DeleteTestGridProject.DeleteTestGridProject
+ Amazonka.DeviceFarm.DeleteTestGridProject: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.DeleteTestGridProject.DeleteTestGridProject
+ Amazonka.DeviceFarm.DeleteTestGridProject: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.DeleteTestGridProject.DeleteTestGridProject
+ Amazonka.DeviceFarm.DeleteTestGridProject: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.DeleteTestGridProject.DeleteTestGridProjectResponse
+ Amazonka.DeviceFarm.DeleteTestGridProject: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.DeleteTestGridProject.DeleteTestGridProject
+ Amazonka.DeviceFarm.DeleteTestGridProject: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.DeleteTestGridProject.DeleteTestGridProject
+ Amazonka.DeviceFarm.DeleteTestGridProject: instance GHC.Classes.Eq Amazonka.DeviceFarm.DeleteTestGridProject.DeleteTestGridProject
+ Amazonka.DeviceFarm.DeleteTestGridProject: instance GHC.Classes.Eq Amazonka.DeviceFarm.DeleteTestGridProject.DeleteTestGridProjectResponse
+ Amazonka.DeviceFarm.DeleteTestGridProject: instance GHC.Generics.Generic Amazonka.DeviceFarm.DeleteTestGridProject.DeleteTestGridProject
+ Amazonka.DeviceFarm.DeleteTestGridProject: instance GHC.Generics.Generic Amazonka.DeviceFarm.DeleteTestGridProject.DeleteTestGridProjectResponse
+ Amazonka.DeviceFarm.DeleteTestGridProject: instance GHC.Read.Read Amazonka.DeviceFarm.DeleteTestGridProject.DeleteTestGridProject
+ Amazonka.DeviceFarm.DeleteTestGridProject: instance GHC.Read.Read Amazonka.DeviceFarm.DeleteTestGridProject.DeleteTestGridProjectResponse
+ Amazonka.DeviceFarm.DeleteTestGridProject: instance GHC.Show.Show Amazonka.DeviceFarm.DeleteTestGridProject.DeleteTestGridProject
+ Amazonka.DeviceFarm.DeleteTestGridProject: instance GHC.Show.Show Amazonka.DeviceFarm.DeleteTestGridProject.DeleteTestGridProjectResponse
+ Amazonka.DeviceFarm.DeleteTestGridProject: newDeleteTestGridProject :: Text -> DeleteTestGridProject
+ Amazonka.DeviceFarm.DeleteTestGridProject: newDeleteTestGridProjectResponse :: Int -> DeleteTestGridProjectResponse
+ Amazonka.DeviceFarm.DeleteUpload: DeleteUpload' :: Text -> DeleteUpload
+ Amazonka.DeviceFarm.DeleteUpload: DeleteUploadResponse' :: Int -> DeleteUploadResponse
+ Amazonka.DeviceFarm.DeleteUpload: [$sel:arn:DeleteUpload'] :: DeleteUpload -> Text
+ Amazonka.DeviceFarm.DeleteUpload: [$sel:httpStatus:DeleteUploadResponse'] :: DeleteUploadResponse -> Int
+ Amazonka.DeviceFarm.DeleteUpload: data DeleteUpload
+ Amazonka.DeviceFarm.DeleteUpload: data DeleteUploadResponse
+ Amazonka.DeviceFarm.DeleteUpload: deleteUploadResponse_httpStatus :: Lens' DeleteUploadResponse Int
+ Amazonka.DeviceFarm.DeleteUpload: deleteUpload_arn :: Lens' DeleteUpload Text
+ Amazonka.DeviceFarm.DeleteUpload: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.DeleteUpload.DeleteUpload
+ Amazonka.DeviceFarm.DeleteUpload: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.DeleteUpload.DeleteUpload
+ Amazonka.DeviceFarm.DeleteUpload: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.DeleteUpload.DeleteUpload
+ Amazonka.DeviceFarm.DeleteUpload: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.DeleteUpload.DeleteUpload
+ Amazonka.DeviceFarm.DeleteUpload: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.DeleteUpload.DeleteUpload
+ Amazonka.DeviceFarm.DeleteUpload: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.DeleteUpload.DeleteUploadResponse
+ Amazonka.DeviceFarm.DeleteUpload: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.DeleteUpload.DeleteUpload
+ Amazonka.DeviceFarm.DeleteUpload: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.DeleteUpload.DeleteUpload
+ Amazonka.DeviceFarm.DeleteUpload: instance GHC.Classes.Eq Amazonka.DeviceFarm.DeleteUpload.DeleteUpload
+ Amazonka.DeviceFarm.DeleteUpload: instance GHC.Classes.Eq Amazonka.DeviceFarm.DeleteUpload.DeleteUploadResponse
+ Amazonka.DeviceFarm.DeleteUpload: instance GHC.Generics.Generic Amazonka.DeviceFarm.DeleteUpload.DeleteUpload
+ Amazonka.DeviceFarm.DeleteUpload: instance GHC.Generics.Generic Amazonka.DeviceFarm.DeleteUpload.DeleteUploadResponse
+ Amazonka.DeviceFarm.DeleteUpload: instance GHC.Read.Read Amazonka.DeviceFarm.DeleteUpload.DeleteUpload
+ Amazonka.DeviceFarm.DeleteUpload: instance GHC.Read.Read Amazonka.DeviceFarm.DeleteUpload.DeleteUploadResponse
+ Amazonka.DeviceFarm.DeleteUpload: instance GHC.Show.Show Amazonka.DeviceFarm.DeleteUpload.DeleteUpload
+ Amazonka.DeviceFarm.DeleteUpload: instance GHC.Show.Show Amazonka.DeviceFarm.DeleteUpload.DeleteUploadResponse
+ Amazonka.DeviceFarm.DeleteUpload: newDeleteUpload :: Text -> DeleteUpload
+ Amazonka.DeviceFarm.DeleteUpload: newDeleteUploadResponse :: Int -> DeleteUploadResponse
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: DeleteVPCEConfiguration' :: Text -> DeleteVPCEConfiguration
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: DeleteVPCEConfigurationResponse' :: Int -> DeleteVPCEConfigurationResponse
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: [$sel:arn:DeleteVPCEConfiguration'] :: DeleteVPCEConfiguration -> Text
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: [$sel:httpStatus:DeleteVPCEConfigurationResponse'] :: DeleteVPCEConfigurationResponse -> Int
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: data DeleteVPCEConfiguration
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: data DeleteVPCEConfigurationResponse
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: deleteVPCEConfigurationResponse_httpStatus :: Lens' DeleteVPCEConfigurationResponse Int
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: deleteVPCEConfiguration_arn :: Lens' DeleteVPCEConfiguration Text
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfiguration
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfiguration
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfiguration
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfiguration
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfiguration
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfigurationResponse
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfiguration
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfiguration
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: instance GHC.Classes.Eq Amazonka.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfiguration
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: instance GHC.Classes.Eq Amazonka.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfigurationResponse
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: instance GHC.Generics.Generic Amazonka.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfiguration
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: instance GHC.Generics.Generic Amazonka.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfigurationResponse
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: instance GHC.Read.Read Amazonka.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfiguration
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: instance GHC.Read.Read Amazonka.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfigurationResponse
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: instance GHC.Show.Show Amazonka.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfiguration
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: instance GHC.Show.Show Amazonka.DeviceFarm.DeleteVPCEConfiguration.DeleteVPCEConfigurationResponse
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: newDeleteVPCEConfiguration :: Text -> DeleteVPCEConfiguration
+ Amazonka.DeviceFarm.DeleteVPCEConfiguration: newDeleteVPCEConfigurationResponse :: Int -> DeleteVPCEConfigurationResponse
+ Amazonka.DeviceFarm.GetAccountSettings: GetAccountSettings' :: GetAccountSettings
+ Amazonka.DeviceFarm.GetAccountSettings: GetAccountSettingsResponse' :: Maybe AccountSettings -> Int -> GetAccountSettingsResponse
+ Amazonka.DeviceFarm.GetAccountSettings: [$sel:accountSettings:GetAccountSettingsResponse'] :: GetAccountSettingsResponse -> Maybe AccountSettings
+ Amazonka.DeviceFarm.GetAccountSettings: [$sel:httpStatus:GetAccountSettingsResponse'] :: GetAccountSettingsResponse -> Int
+ Amazonka.DeviceFarm.GetAccountSettings: data GetAccountSettings
+ Amazonka.DeviceFarm.GetAccountSettings: data GetAccountSettingsResponse
+ Amazonka.DeviceFarm.GetAccountSettings: getAccountSettingsResponse_accountSettings :: Lens' GetAccountSettingsResponse (Maybe AccountSettings)
+ Amazonka.DeviceFarm.GetAccountSettings: getAccountSettingsResponse_httpStatus :: Lens' GetAccountSettingsResponse Int
+ Amazonka.DeviceFarm.GetAccountSettings: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.GetAccountSettings.GetAccountSettings
+ Amazonka.DeviceFarm.GetAccountSettings: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.GetAccountSettings.GetAccountSettings
+ Amazonka.DeviceFarm.GetAccountSettings: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.GetAccountSettings.GetAccountSettings
+ Amazonka.DeviceFarm.GetAccountSettings: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.GetAccountSettings.GetAccountSettings
+ Amazonka.DeviceFarm.GetAccountSettings: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetAccountSettings.GetAccountSettings
+ Amazonka.DeviceFarm.GetAccountSettings: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetAccountSettings.GetAccountSettingsResponse
+ Amazonka.DeviceFarm.GetAccountSettings: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.GetAccountSettings.GetAccountSettings
+ Amazonka.DeviceFarm.GetAccountSettings: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.GetAccountSettings.GetAccountSettings
+ Amazonka.DeviceFarm.GetAccountSettings: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetAccountSettings.GetAccountSettings
+ Amazonka.DeviceFarm.GetAccountSettings: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetAccountSettings.GetAccountSettingsResponse
+ Amazonka.DeviceFarm.GetAccountSettings: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetAccountSettings.GetAccountSettings
+ Amazonka.DeviceFarm.GetAccountSettings: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetAccountSettings.GetAccountSettingsResponse
+ Amazonka.DeviceFarm.GetAccountSettings: instance GHC.Read.Read Amazonka.DeviceFarm.GetAccountSettings.GetAccountSettings
+ Amazonka.DeviceFarm.GetAccountSettings: instance GHC.Read.Read Amazonka.DeviceFarm.GetAccountSettings.GetAccountSettingsResponse
+ Amazonka.DeviceFarm.GetAccountSettings: instance GHC.Show.Show Amazonka.DeviceFarm.GetAccountSettings.GetAccountSettings
+ Amazonka.DeviceFarm.GetAccountSettings: instance GHC.Show.Show Amazonka.DeviceFarm.GetAccountSettings.GetAccountSettingsResponse
+ Amazonka.DeviceFarm.GetAccountSettings: newGetAccountSettings :: GetAccountSettings
+ Amazonka.DeviceFarm.GetAccountSettings: newGetAccountSettingsResponse :: Int -> GetAccountSettingsResponse
+ Amazonka.DeviceFarm.GetDevice: GetDevice' :: Text -> GetDevice
+ Amazonka.DeviceFarm.GetDevice: GetDeviceResponse' :: Maybe Device -> Int -> GetDeviceResponse
+ Amazonka.DeviceFarm.GetDevice: [$sel:arn:GetDevice'] :: GetDevice -> Text
+ Amazonka.DeviceFarm.GetDevice: [$sel:device:GetDeviceResponse'] :: GetDeviceResponse -> Maybe Device
+ Amazonka.DeviceFarm.GetDevice: [$sel:httpStatus:GetDeviceResponse'] :: GetDeviceResponse -> Int
+ Amazonka.DeviceFarm.GetDevice: data GetDevice
+ Amazonka.DeviceFarm.GetDevice: data GetDeviceResponse
+ Amazonka.DeviceFarm.GetDevice: getDeviceResponse_device :: Lens' GetDeviceResponse (Maybe Device)
+ Amazonka.DeviceFarm.GetDevice: getDeviceResponse_httpStatus :: Lens' GetDeviceResponse Int
+ Amazonka.DeviceFarm.GetDevice: getDevice_arn :: Lens' GetDevice Text
+ Amazonka.DeviceFarm.GetDevice: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.GetDevice.GetDevice
+ Amazonka.DeviceFarm.GetDevice: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.GetDevice.GetDevice
+ Amazonka.DeviceFarm.GetDevice: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.GetDevice.GetDevice
+ Amazonka.DeviceFarm.GetDevice: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.GetDevice.GetDevice
+ Amazonka.DeviceFarm.GetDevice: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetDevice.GetDevice
+ Amazonka.DeviceFarm.GetDevice: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetDevice.GetDeviceResponse
+ Amazonka.DeviceFarm.GetDevice: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.GetDevice.GetDevice
+ Amazonka.DeviceFarm.GetDevice: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.GetDevice.GetDevice
+ Amazonka.DeviceFarm.GetDevice: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetDevice.GetDevice
+ Amazonka.DeviceFarm.GetDevice: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetDevice.GetDeviceResponse
+ Amazonka.DeviceFarm.GetDevice: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetDevice.GetDevice
+ Amazonka.DeviceFarm.GetDevice: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetDevice.GetDeviceResponse
+ Amazonka.DeviceFarm.GetDevice: instance GHC.Read.Read Amazonka.DeviceFarm.GetDevice.GetDevice
+ Amazonka.DeviceFarm.GetDevice: instance GHC.Read.Read Amazonka.DeviceFarm.GetDevice.GetDeviceResponse
+ Amazonka.DeviceFarm.GetDevice: instance GHC.Show.Show Amazonka.DeviceFarm.GetDevice.GetDevice
+ Amazonka.DeviceFarm.GetDevice: instance GHC.Show.Show Amazonka.DeviceFarm.GetDevice.GetDeviceResponse
+ Amazonka.DeviceFarm.GetDevice: newGetDevice :: Text -> GetDevice
+ Amazonka.DeviceFarm.GetDevice: newGetDeviceResponse :: Int -> GetDeviceResponse
+ Amazonka.DeviceFarm.GetDeviceInstance: GetDeviceInstance' :: Text -> GetDeviceInstance
+ Amazonka.DeviceFarm.GetDeviceInstance: GetDeviceInstanceResponse' :: Maybe DeviceInstance -> Int -> GetDeviceInstanceResponse
+ Amazonka.DeviceFarm.GetDeviceInstance: [$sel:arn:GetDeviceInstance'] :: GetDeviceInstance -> Text
+ Amazonka.DeviceFarm.GetDeviceInstance: [$sel:deviceInstance:GetDeviceInstanceResponse'] :: GetDeviceInstanceResponse -> Maybe DeviceInstance
+ Amazonka.DeviceFarm.GetDeviceInstance: [$sel:httpStatus:GetDeviceInstanceResponse'] :: GetDeviceInstanceResponse -> Int
+ Amazonka.DeviceFarm.GetDeviceInstance: data GetDeviceInstance
+ Amazonka.DeviceFarm.GetDeviceInstance: data GetDeviceInstanceResponse
+ Amazonka.DeviceFarm.GetDeviceInstance: getDeviceInstanceResponse_deviceInstance :: Lens' GetDeviceInstanceResponse (Maybe DeviceInstance)
+ Amazonka.DeviceFarm.GetDeviceInstance: getDeviceInstanceResponse_httpStatus :: Lens' GetDeviceInstanceResponse Int
+ Amazonka.DeviceFarm.GetDeviceInstance: getDeviceInstance_arn :: Lens' GetDeviceInstance Text
+ Amazonka.DeviceFarm.GetDeviceInstance: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.GetDeviceInstance.GetDeviceInstance
+ Amazonka.DeviceFarm.GetDeviceInstance: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.GetDeviceInstance.GetDeviceInstance
+ Amazonka.DeviceFarm.GetDeviceInstance: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.GetDeviceInstance.GetDeviceInstance
+ Amazonka.DeviceFarm.GetDeviceInstance: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.GetDeviceInstance.GetDeviceInstance
+ Amazonka.DeviceFarm.GetDeviceInstance: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetDeviceInstance.GetDeviceInstance
+ Amazonka.DeviceFarm.GetDeviceInstance: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetDeviceInstance.GetDeviceInstanceResponse
+ Amazonka.DeviceFarm.GetDeviceInstance: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.GetDeviceInstance.GetDeviceInstance
+ Amazonka.DeviceFarm.GetDeviceInstance: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.GetDeviceInstance.GetDeviceInstance
+ Amazonka.DeviceFarm.GetDeviceInstance: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetDeviceInstance.GetDeviceInstance
+ Amazonka.DeviceFarm.GetDeviceInstance: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetDeviceInstance.GetDeviceInstanceResponse
+ Amazonka.DeviceFarm.GetDeviceInstance: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetDeviceInstance.GetDeviceInstance
+ Amazonka.DeviceFarm.GetDeviceInstance: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetDeviceInstance.GetDeviceInstanceResponse
+ Amazonka.DeviceFarm.GetDeviceInstance: instance GHC.Read.Read Amazonka.DeviceFarm.GetDeviceInstance.GetDeviceInstance
+ Amazonka.DeviceFarm.GetDeviceInstance: instance GHC.Read.Read Amazonka.DeviceFarm.GetDeviceInstance.GetDeviceInstanceResponse
+ Amazonka.DeviceFarm.GetDeviceInstance: instance GHC.Show.Show Amazonka.DeviceFarm.GetDeviceInstance.GetDeviceInstance
+ Amazonka.DeviceFarm.GetDeviceInstance: instance GHC.Show.Show Amazonka.DeviceFarm.GetDeviceInstance.GetDeviceInstanceResponse
+ Amazonka.DeviceFarm.GetDeviceInstance: newGetDeviceInstance :: Text -> GetDeviceInstance
+ Amazonka.DeviceFarm.GetDeviceInstance: newGetDeviceInstanceResponse :: Int -> GetDeviceInstanceResponse
+ Amazonka.DeviceFarm.GetDevicePool: GetDevicePool' :: Text -> GetDevicePool
+ Amazonka.DeviceFarm.GetDevicePool: GetDevicePoolResponse' :: Maybe DevicePool -> Int -> GetDevicePoolResponse
+ Amazonka.DeviceFarm.GetDevicePool: [$sel:arn:GetDevicePool'] :: GetDevicePool -> Text
+ Amazonka.DeviceFarm.GetDevicePool: [$sel:devicePool:GetDevicePoolResponse'] :: GetDevicePoolResponse -> Maybe DevicePool
+ Amazonka.DeviceFarm.GetDevicePool: [$sel:httpStatus:GetDevicePoolResponse'] :: GetDevicePoolResponse -> Int
+ Amazonka.DeviceFarm.GetDevicePool: data GetDevicePool
+ Amazonka.DeviceFarm.GetDevicePool: data GetDevicePoolResponse
+ Amazonka.DeviceFarm.GetDevicePool: getDevicePoolResponse_devicePool :: Lens' GetDevicePoolResponse (Maybe DevicePool)
+ Amazonka.DeviceFarm.GetDevicePool: getDevicePoolResponse_httpStatus :: Lens' GetDevicePoolResponse Int
+ Amazonka.DeviceFarm.GetDevicePool: getDevicePool_arn :: Lens' GetDevicePool Text
+ Amazonka.DeviceFarm.GetDevicePool: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.GetDevicePool.GetDevicePool
+ Amazonka.DeviceFarm.GetDevicePool: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.GetDevicePool.GetDevicePool
+ Amazonka.DeviceFarm.GetDevicePool: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.GetDevicePool.GetDevicePool
+ Amazonka.DeviceFarm.GetDevicePool: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.GetDevicePool.GetDevicePool
+ Amazonka.DeviceFarm.GetDevicePool: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetDevicePool.GetDevicePool
+ Amazonka.DeviceFarm.GetDevicePool: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetDevicePool.GetDevicePoolResponse
+ Amazonka.DeviceFarm.GetDevicePool: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.GetDevicePool.GetDevicePool
+ Amazonka.DeviceFarm.GetDevicePool: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.GetDevicePool.GetDevicePool
+ Amazonka.DeviceFarm.GetDevicePool: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetDevicePool.GetDevicePool
+ Amazonka.DeviceFarm.GetDevicePool: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetDevicePool.GetDevicePoolResponse
+ Amazonka.DeviceFarm.GetDevicePool: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetDevicePool.GetDevicePool
+ Amazonka.DeviceFarm.GetDevicePool: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetDevicePool.GetDevicePoolResponse
+ Amazonka.DeviceFarm.GetDevicePool: instance GHC.Read.Read Amazonka.DeviceFarm.GetDevicePool.GetDevicePool
+ Amazonka.DeviceFarm.GetDevicePool: instance GHC.Read.Read Amazonka.DeviceFarm.GetDevicePool.GetDevicePoolResponse
+ Amazonka.DeviceFarm.GetDevicePool: instance GHC.Show.Show Amazonka.DeviceFarm.GetDevicePool.GetDevicePool
+ Amazonka.DeviceFarm.GetDevicePool: instance GHC.Show.Show Amazonka.DeviceFarm.GetDevicePool.GetDevicePoolResponse
+ Amazonka.DeviceFarm.GetDevicePool: newGetDevicePool :: Text -> GetDevicePool
+ Amazonka.DeviceFarm.GetDevicePool: newGetDevicePoolResponse :: Int -> GetDevicePoolResponse
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: GetDevicePoolCompatibility' :: Maybe Text -> Maybe ScheduleRunConfiguration -> Maybe ScheduleRunTest -> Maybe TestType -> Text -> GetDevicePoolCompatibility
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: GetDevicePoolCompatibilityResponse' :: Maybe [DevicePoolCompatibilityResult] -> Maybe [DevicePoolCompatibilityResult] -> Int -> GetDevicePoolCompatibilityResponse
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: [$sel:appArn:GetDevicePoolCompatibility'] :: GetDevicePoolCompatibility -> Maybe Text
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: [$sel:compatibleDevices:GetDevicePoolCompatibilityResponse'] :: GetDevicePoolCompatibilityResponse -> Maybe [DevicePoolCompatibilityResult]
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: [$sel:configuration:GetDevicePoolCompatibility'] :: GetDevicePoolCompatibility -> Maybe ScheduleRunConfiguration
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: [$sel:devicePoolArn:GetDevicePoolCompatibility'] :: GetDevicePoolCompatibility -> Text
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: [$sel:httpStatus:GetDevicePoolCompatibilityResponse'] :: GetDevicePoolCompatibilityResponse -> Int
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: [$sel:incompatibleDevices:GetDevicePoolCompatibilityResponse'] :: GetDevicePoolCompatibilityResponse -> Maybe [DevicePoolCompatibilityResult]
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: [$sel:test:GetDevicePoolCompatibility'] :: GetDevicePoolCompatibility -> Maybe ScheduleRunTest
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: [$sel:testType:GetDevicePoolCompatibility'] :: GetDevicePoolCompatibility -> Maybe TestType
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: data GetDevicePoolCompatibility
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: data GetDevicePoolCompatibilityResponse
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: getDevicePoolCompatibilityResponse_compatibleDevices :: Lens' GetDevicePoolCompatibilityResponse (Maybe [DevicePoolCompatibilityResult])
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: getDevicePoolCompatibilityResponse_httpStatus :: Lens' GetDevicePoolCompatibilityResponse Int
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: getDevicePoolCompatibilityResponse_incompatibleDevices :: Lens' GetDevicePoolCompatibilityResponse (Maybe [DevicePoolCompatibilityResult])
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: getDevicePoolCompatibility_appArn :: Lens' GetDevicePoolCompatibility (Maybe Text)
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: getDevicePoolCompatibility_configuration :: Lens' GetDevicePoolCompatibility (Maybe ScheduleRunConfiguration)
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: getDevicePoolCompatibility_devicePoolArn :: Lens' GetDevicePoolCompatibility Text
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: getDevicePoolCompatibility_test :: Lens' GetDevicePoolCompatibility (Maybe ScheduleRunTest)
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: getDevicePoolCompatibility_testType :: Lens' GetDevicePoolCompatibility (Maybe TestType)
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibility
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibility
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibility
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibility
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibility
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibilityResponse
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibility
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibility
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibility
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibilityResponse
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibility
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibilityResponse
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: instance GHC.Read.Read Amazonka.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibility
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: instance GHC.Read.Read Amazonka.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibilityResponse
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: instance GHC.Show.Show Amazonka.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibility
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: instance GHC.Show.Show Amazonka.DeviceFarm.GetDevicePoolCompatibility.GetDevicePoolCompatibilityResponse
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: newGetDevicePoolCompatibility :: Text -> GetDevicePoolCompatibility
+ Amazonka.DeviceFarm.GetDevicePoolCompatibility: newGetDevicePoolCompatibilityResponse :: Int -> GetDevicePoolCompatibilityResponse
+ Amazonka.DeviceFarm.GetInstanceProfile: GetInstanceProfile' :: Text -> GetInstanceProfile
+ Amazonka.DeviceFarm.GetInstanceProfile: GetInstanceProfileResponse' :: Maybe InstanceProfile -> Int -> GetInstanceProfileResponse
+ Amazonka.DeviceFarm.GetInstanceProfile: [$sel:arn:GetInstanceProfile'] :: GetInstanceProfile -> Text
+ Amazonka.DeviceFarm.GetInstanceProfile: [$sel:httpStatus:GetInstanceProfileResponse'] :: GetInstanceProfileResponse -> Int
+ Amazonka.DeviceFarm.GetInstanceProfile: [$sel:instanceProfile:GetInstanceProfileResponse'] :: GetInstanceProfileResponse -> Maybe InstanceProfile
+ Amazonka.DeviceFarm.GetInstanceProfile: data GetInstanceProfile
+ Amazonka.DeviceFarm.GetInstanceProfile: data GetInstanceProfileResponse
+ Amazonka.DeviceFarm.GetInstanceProfile: getInstanceProfileResponse_httpStatus :: Lens' GetInstanceProfileResponse Int
+ Amazonka.DeviceFarm.GetInstanceProfile: getInstanceProfileResponse_instanceProfile :: Lens' GetInstanceProfileResponse (Maybe InstanceProfile)
+ Amazonka.DeviceFarm.GetInstanceProfile: getInstanceProfile_arn :: Lens' GetInstanceProfile Text
+ Amazonka.DeviceFarm.GetInstanceProfile: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.GetInstanceProfile.GetInstanceProfile
+ Amazonka.DeviceFarm.GetInstanceProfile: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.GetInstanceProfile.GetInstanceProfile
+ Amazonka.DeviceFarm.GetInstanceProfile: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.GetInstanceProfile.GetInstanceProfile
+ Amazonka.DeviceFarm.GetInstanceProfile: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.GetInstanceProfile.GetInstanceProfile
+ Amazonka.DeviceFarm.GetInstanceProfile: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetInstanceProfile.GetInstanceProfile
+ Amazonka.DeviceFarm.GetInstanceProfile: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetInstanceProfile.GetInstanceProfileResponse
+ Amazonka.DeviceFarm.GetInstanceProfile: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.GetInstanceProfile.GetInstanceProfile
+ Amazonka.DeviceFarm.GetInstanceProfile: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.GetInstanceProfile.GetInstanceProfile
+ Amazonka.DeviceFarm.GetInstanceProfile: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetInstanceProfile.GetInstanceProfile
+ Amazonka.DeviceFarm.GetInstanceProfile: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetInstanceProfile.GetInstanceProfileResponse
+ Amazonka.DeviceFarm.GetInstanceProfile: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetInstanceProfile.GetInstanceProfile
+ Amazonka.DeviceFarm.GetInstanceProfile: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetInstanceProfile.GetInstanceProfileResponse
+ Amazonka.DeviceFarm.GetInstanceProfile: instance GHC.Read.Read Amazonka.DeviceFarm.GetInstanceProfile.GetInstanceProfile
+ Amazonka.DeviceFarm.GetInstanceProfile: instance GHC.Read.Read Amazonka.DeviceFarm.GetInstanceProfile.GetInstanceProfileResponse
+ Amazonka.DeviceFarm.GetInstanceProfile: instance GHC.Show.Show Amazonka.DeviceFarm.GetInstanceProfile.GetInstanceProfile
+ Amazonka.DeviceFarm.GetInstanceProfile: instance GHC.Show.Show Amazonka.DeviceFarm.GetInstanceProfile.GetInstanceProfileResponse
+ Amazonka.DeviceFarm.GetInstanceProfile: newGetInstanceProfile :: Text -> GetInstanceProfile
+ Amazonka.DeviceFarm.GetInstanceProfile: newGetInstanceProfileResponse :: Int -> GetInstanceProfileResponse
+ Amazonka.DeviceFarm.GetJob: GetJob' :: Text -> GetJob
+ Amazonka.DeviceFarm.GetJob: GetJobResponse' :: Maybe Job -> Int -> GetJobResponse
+ Amazonka.DeviceFarm.GetJob: [$sel:arn:GetJob'] :: GetJob -> Text
+ Amazonka.DeviceFarm.GetJob: [$sel:httpStatus:GetJobResponse'] :: GetJobResponse -> Int
+ Amazonka.DeviceFarm.GetJob: [$sel:job:GetJobResponse'] :: GetJobResponse -> Maybe Job
+ Amazonka.DeviceFarm.GetJob: data GetJob
+ Amazonka.DeviceFarm.GetJob: data GetJobResponse
+ Amazonka.DeviceFarm.GetJob: getJobResponse_httpStatus :: Lens' GetJobResponse Int
+ Amazonka.DeviceFarm.GetJob: getJobResponse_job :: Lens' GetJobResponse (Maybe Job)
+ Amazonka.DeviceFarm.GetJob: getJob_arn :: Lens' GetJob Text
+ Amazonka.DeviceFarm.GetJob: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.GetJob.GetJob
+ Amazonka.DeviceFarm.GetJob: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.GetJob.GetJob
+ Amazonka.DeviceFarm.GetJob: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.GetJob.GetJob
+ Amazonka.DeviceFarm.GetJob: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.GetJob.GetJob
+ Amazonka.DeviceFarm.GetJob: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetJob.GetJob
+ Amazonka.DeviceFarm.GetJob: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetJob.GetJobResponse
+ Amazonka.DeviceFarm.GetJob: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.GetJob.GetJob
+ Amazonka.DeviceFarm.GetJob: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.GetJob.GetJob
+ Amazonka.DeviceFarm.GetJob: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetJob.GetJob
+ Amazonka.DeviceFarm.GetJob: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetJob.GetJobResponse
+ Amazonka.DeviceFarm.GetJob: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetJob.GetJob
+ Amazonka.DeviceFarm.GetJob: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetJob.GetJobResponse
+ Amazonka.DeviceFarm.GetJob: instance GHC.Read.Read Amazonka.DeviceFarm.GetJob.GetJob
+ Amazonka.DeviceFarm.GetJob: instance GHC.Read.Read Amazonka.DeviceFarm.GetJob.GetJobResponse
+ Amazonka.DeviceFarm.GetJob: instance GHC.Show.Show Amazonka.DeviceFarm.GetJob.GetJob
+ Amazonka.DeviceFarm.GetJob: instance GHC.Show.Show Amazonka.DeviceFarm.GetJob.GetJobResponse
+ Amazonka.DeviceFarm.GetJob: newGetJob :: Text -> GetJob
+ Amazonka.DeviceFarm.GetJob: newGetJobResponse :: Int -> GetJobResponse
+ Amazonka.DeviceFarm.GetNetworkProfile: GetNetworkProfile' :: Text -> GetNetworkProfile
+ Amazonka.DeviceFarm.GetNetworkProfile: GetNetworkProfileResponse' :: Maybe NetworkProfile -> Int -> GetNetworkProfileResponse
+ Amazonka.DeviceFarm.GetNetworkProfile: [$sel:arn:GetNetworkProfile'] :: GetNetworkProfile -> Text
+ Amazonka.DeviceFarm.GetNetworkProfile: [$sel:httpStatus:GetNetworkProfileResponse'] :: GetNetworkProfileResponse -> Int
+ Amazonka.DeviceFarm.GetNetworkProfile: [$sel:networkProfile:GetNetworkProfileResponse'] :: GetNetworkProfileResponse -> Maybe NetworkProfile
+ Amazonka.DeviceFarm.GetNetworkProfile: data GetNetworkProfile
+ Amazonka.DeviceFarm.GetNetworkProfile: data GetNetworkProfileResponse
+ Amazonka.DeviceFarm.GetNetworkProfile: getNetworkProfileResponse_httpStatus :: Lens' GetNetworkProfileResponse Int
+ Amazonka.DeviceFarm.GetNetworkProfile: getNetworkProfileResponse_networkProfile :: Lens' GetNetworkProfileResponse (Maybe NetworkProfile)
+ Amazonka.DeviceFarm.GetNetworkProfile: getNetworkProfile_arn :: Lens' GetNetworkProfile Text
+ Amazonka.DeviceFarm.GetNetworkProfile: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.GetNetworkProfile.GetNetworkProfile
+ Amazonka.DeviceFarm.GetNetworkProfile: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.GetNetworkProfile.GetNetworkProfile
+ Amazonka.DeviceFarm.GetNetworkProfile: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.GetNetworkProfile.GetNetworkProfile
+ Amazonka.DeviceFarm.GetNetworkProfile: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.GetNetworkProfile.GetNetworkProfile
+ Amazonka.DeviceFarm.GetNetworkProfile: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetNetworkProfile.GetNetworkProfile
+ Amazonka.DeviceFarm.GetNetworkProfile: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetNetworkProfile.GetNetworkProfileResponse
+ Amazonka.DeviceFarm.GetNetworkProfile: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.GetNetworkProfile.GetNetworkProfile
+ Amazonka.DeviceFarm.GetNetworkProfile: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.GetNetworkProfile.GetNetworkProfile
+ Amazonka.DeviceFarm.GetNetworkProfile: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetNetworkProfile.GetNetworkProfile
+ Amazonka.DeviceFarm.GetNetworkProfile: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetNetworkProfile.GetNetworkProfileResponse
+ Amazonka.DeviceFarm.GetNetworkProfile: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetNetworkProfile.GetNetworkProfile
+ Amazonka.DeviceFarm.GetNetworkProfile: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetNetworkProfile.GetNetworkProfileResponse
+ Amazonka.DeviceFarm.GetNetworkProfile: instance GHC.Read.Read Amazonka.DeviceFarm.GetNetworkProfile.GetNetworkProfile
+ Amazonka.DeviceFarm.GetNetworkProfile: instance GHC.Read.Read Amazonka.DeviceFarm.GetNetworkProfile.GetNetworkProfileResponse
+ Amazonka.DeviceFarm.GetNetworkProfile: instance GHC.Show.Show Amazonka.DeviceFarm.GetNetworkProfile.GetNetworkProfile
+ Amazonka.DeviceFarm.GetNetworkProfile: instance GHC.Show.Show Amazonka.DeviceFarm.GetNetworkProfile.GetNetworkProfileResponse
+ Amazonka.DeviceFarm.GetNetworkProfile: newGetNetworkProfile :: Text -> GetNetworkProfile
+ Amazonka.DeviceFarm.GetNetworkProfile: newGetNetworkProfileResponse :: Int -> GetNetworkProfileResponse
+ Amazonka.DeviceFarm.GetOfferingStatus: GetOfferingStatus' :: Maybe Text -> GetOfferingStatus
+ Amazonka.DeviceFarm.GetOfferingStatus: GetOfferingStatusResponse' :: Maybe (HashMap Text OfferingStatus) -> Maybe (HashMap Text OfferingStatus) -> Maybe Text -> Int -> GetOfferingStatusResponse
+ Amazonka.DeviceFarm.GetOfferingStatus: [$sel:current:GetOfferingStatusResponse'] :: GetOfferingStatusResponse -> Maybe (HashMap Text OfferingStatus)
+ Amazonka.DeviceFarm.GetOfferingStatus: [$sel:httpStatus:GetOfferingStatusResponse'] :: GetOfferingStatusResponse -> Int
+ Amazonka.DeviceFarm.GetOfferingStatus: [$sel:nextPeriod:GetOfferingStatusResponse'] :: GetOfferingStatusResponse -> Maybe (HashMap Text OfferingStatus)
+ Amazonka.DeviceFarm.GetOfferingStatus: [$sel:nextToken:GetOfferingStatus'] :: GetOfferingStatus -> Maybe Text
+ Amazonka.DeviceFarm.GetOfferingStatus: [$sel:nextToken:GetOfferingStatusResponse'] :: GetOfferingStatusResponse -> Maybe Text
+ Amazonka.DeviceFarm.GetOfferingStatus: data GetOfferingStatus
+ Amazonka.DeviceFarm.GetOfferingStatus: data GetOfferingStatusResponse
+ Amazonka.DeviceFarm.GetOfferingStatus: getOfferingStatusResponse_current :: Lens' GetOfferingStatusResponse (Maybe (HashMap Text OfferingStatus))
+ Amazonka.DeviceFarm.GetOfferingStatus: getOfferingStatusResponse_httpStatus :: Lens' GetOfferingStatusResponse Int
+ Amazonka.DeviceFarm.GetOfferingStatus: getOfferingStatusResponse_nextPeriod :: Lens' GetOfferingStatusResponse (Maybe (HashMap Text OfferingStatus))
+ Amazonka.DeviceFarm.GetOfferingStatus: getOfferingStatusResponse_nextToken :: Lens' GetOfferingStatusResponse (Maybe Text)
+ Amazonka.DeviceFarm.GetOfferingStatus: getOfferingStatus_nextToken :: Lens' GetOfferingStatus (Maybe Text)
+ Amazonka.DeviceFarm.GetOfferingStatus: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.GetOfferingStatus.GetOfferingStatus
+ Amazonka.DeviceFarm.GetOfferingStatus: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.GetOfferingStatus.GetOfferingStatus
+ Amazonka.DeviceFarm.GetOfferingStatus: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.GetOfferingStatus.GetOfferingStatus
+ Amazonka.DeviceFarm.GetOfferingStatus: instance Amazonka.Pager.AWSPager Amazonka.DeviceFarm.GetOfferingStatus.GetOfferingStatus
+ Amazonka.DeviceFarm.GetOfferingStatus: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.GetOfferingStatus.GetOfferingStatus
+ Amazonka.DeviceFarm.GetOfferingStatus: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetOfferingStatus.GetOfferingStatus
+ Amazonka.DeviceFarm.GetOfferingStatus: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetOfferingStatus.GetOfferingStatusResponse
+ Amazonka.DeviceFarm.GetOfferingStatus: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.GetOfferingStatus.GetOfferingStatus
+ Amazonka.DeviceFarm.GetOfferingStatus: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.GetOfferingStatus.GetOfferingStatus
+ Amazonka.DeviceFarm.GetOfferingStatus: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetOfferingStatus.GetOfferingStatus
+ Amazonka.DeviceFarm.GetOfferingStatus: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetOfferingStatus.GetOfferingStatusResponse
+ Amazonka.DeviceFarm.GetOfferingStatus: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetOfferingStatus.GetOfferingStatus
+ Amazonka.DeviceFarm.GetOfferingStatus: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetOfferingStatus.GetOfferingStatusResponse
+ Amazonka.DeviceFarm.GetOfferingStatus: instance GHC.Read.Read Amazonka.DeviceFarm.GetOfferingStatus.GetOfferingStatus
+ Amazonka.DeviceFarm.GetOfferingStatus: instance GHC.Read.Read Amazonka.DeviceFarm.GetOfferingStatus.GetOfferingStatusResponse
+ Amazonka.DeviceFarm.GetOfferingStatus: instance GHC.Show.Show Amazonka.DeviceFarm.GetOfferingStatus.GetOfferingStatus
+ Amazonka.DeviceFarm.GetOfferingStatus: instance GHC.Show.Show Amazonka.DeviceFarm.GetOfferingStatus.GetOfferingStatusResponse
+ Amazonka.DeviceFarm.GetOfferingStatus: newGetOfferingStatus :: GetOfferingStatus
+ Amazonka.DeviceFarm.GetOfferingStatus: newGetOfferingStatusResponse :: Int -> GetOfferingStatusResponse
+ Amazonka.DeviceFarm.GetProject: GetProject' :: Text -> GetProject
+ Amazonka.DeviceFarm.GetProject: GetProjectResponse' :: Maybe Project -> Int -> GetProjectResponse
+ Amazonka.DeviceFarm.GetProject: [$sel:arn:GetProject'] :: GetProject -> Text
+ Amazonka.DeviceFarm.GetProject: [$sel:httpStatus:GetProjectResponse'] :: GetProjectResponse -> Int
+ Amazonka.DeviceFarm.GetProject: [$sel:project:GetProjectResponse'] :: GetProjectResponse -> Maybe Project
+ Amazonka.DeviceFarm.GetProject: data GetProject
+ Amazonka.DeviceFarm.GetProject: data GetProjectResponse
+ Amazonka.DeviceFarm.GetProject: getProjectResponse_httpStatus :: Lens' GetProjectResponse Int
+ Amazonka.DeviceFarm.GetProject: getProjectResponse_project :: Lens' GetProjectResponse (Maybe Project)
+ Amazonka.DeviceFarm.GetProject: getProject_arn :: Lens' GetProject Text
+ Amazonka.DeviceFarm.GetProject: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.GetProject.GetProject
+ Amazonka.DeviceFarm.GetProject: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.GetProject.GetProject
+ Amazonka.DeviceFarm.GetProject: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.GetProject.GetProject
+ Amazonka.DeviceFarm.GetProject: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.GetProject.GetProject
+ Amazonka.DeviceFarm.GetProject: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetProject.GetProject
+ Amazonka.DeviceFarm.GetProject: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetProject.GetProjectResponse
+ Amazonka.DeviceFarm.GetProject: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.GetProject.GetProject
+ Amazonka.DeviceFarm.GetProject: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.GetProject.GetProject
+ Amazonka.DeviceFarm.GetProject: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetProject.GetProject
+ Amazonka.DeviceFarm.GetProject: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetProject.GetProjectResponse
+ Amazonka.DeviceFarm.GetProject: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetProject.GetProject
+ Amazonka.DeviceFarm.GetProject: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetProject.GetProjectResponse
+ Amazonka.DeviceFarm.GetProject: instance GHC.Read.Read Amazonka.DeviceFarm.GetProject.GetProject
+ Amazonka.DeviceFarm.GetProject: instance GHC.Read.Read Amazonka.DeviceFarm.GetProject.GetProjectResponse
+ Amazonka.DeviceFarm.GetProject: instance GHC.Show.Show Amazonka.DeviceFarm.GetProject.GetProject
+ Amazonka.DeviceFarm.GetProject: instance GHC.Show.Show Amazonka.DeviceFarm.GetProject.GetProjectResponse
+ Amazonka.DeviceFarm.GetProject: newGetProject :: Text -> GetProject
+ Amazonka.DeviceFarm.GetProject: newGetProjectResponse :: Int -> GetProjectResponse
+ Amazonka.DeviceFarm.GetRemoteAccessSession: GetRemoteAccessSession' :: Text -> GetRemoteAccessSession
+ Amazonka.DeviceFarm.GetRemoteAccessSession: GetRemoteAccessSessionResponse' :: Maybe RemoteAccessSession -> Int -> GetRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.GetRemoteAccessSession: [$sel:arn:GetRemoteAccessSession'] :: GetRemoteAccessSession -> Text
+ Amazonka.DeviceFarm.GetRemoteAccessSession: [$sel:httpStatus:GetRemoteAccessSessionResponse'] :: GetRemoteAccessSessionResponse -> Int
+ Amazonka.DeviceFarm.GetRemoteAccessSession: [$sel:remoteAccessSession:GetRemoteAccessSessionResponse'] :: GetRemoteAccessSessionResponse -> Maybe RemoteAccessSession
+ Amazonka.DeviceFarm.GetRemoteAccessSession: data GetRemoteAccessSession
+ Amazonka.DeviceFarm.GetRemoteAccessSession: data GetRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.GetRemoteAccessSession: getRemoteAccessSessionResponse_httpStatus :: Lens' GetRemoteAccessSessionResponse Int
+ Amazonka.DeviceFarm.GetRemoteAccessSession: getRemoteAccessSessionResponse_remoteAccessSession :: Lens' GetRemoteAccessSessionResponse (Maybe RemoteAccessSession)
+ Amazonka.DeviceFarm.GetRemoteAccessSession: getRemoteAccessSession_arn :: Lens' GetRemoteAccessSession Text
+ Amazonka.DeviceFarm.GetRemoteAccessSession: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSession
+ Amazonka.DeviceFarm.GetRemoteAccessSession: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSession
+ Amazonka.DeviceFarm.GetRemoteAccessSession: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSession
+ Amazonka.DeviceFarm.GetRemoteAccessSession: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSession
+ Amazonka.DeviceFarm.GetRemoteAccessSession: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSession
+ Amazonka.DeviceFarm.GetRemoteAccessSession: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.GetRemoteAccessSession: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSession
+ Amazonka.DeviceFarm.GetRemoteAccessSession: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSession
+ Amazonka.DeviceFarm.GetRemoteAccessSession: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSession
+ Amazonka.DeviceFarm.GetRemoteAccessSession: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.GetRemoteAccessSession: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSession
+ Amazonka.DeviceFarm.GetRemoteAccessSession: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.GetRemoteAccessSession: instance GHC.Read.Read Amazonka.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSession
+ Amazonka.DeviceFarm.GetRemoteAccessSession: instance GHC.Read.Read Amazonka.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.GetRemoteAccessSession: instance GHC.Show.Show Amazonka.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSession
+ Amazonka.DeviceFarm.GetRemoteAccessSession: instance GHC.Show.Show Amazonka.DeviceFarm.GetRemoteAccessSession.GetRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.GetRemoteAccessSession: newGetRemoteAccessSession :: Text -> GetRemoteAccessSession
+ Amazonka.DeviceFarm.GetRemoteAccessSession: newGetRemoteAccessSessionResponse :: Int -> GetRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.GetRun: GetRun' :: Text -> GetRun
+ Amazonka.DeviceFarm.GetRun: GetRunResponse' :: Maybe Run -> Int -> GetRunResponse
+ Amazonka.DeviceFarm.GetRun: [$sel:arn:GetRun'] :: GetRun -> Text
+ Amazonka.DeviceFarm.GetRun: [$sel:httpStatus:GetRunResponse'] :: GetRunResponse -> Int
+ Amazonka.DeviceFarm.GetRun: [$sel:run:GetRunResponse'] :: GetRunResponse -> Maybe Run
+ Amazonka.DeviceFarm.GetRun: data GetRun
+ Amazonka.DeviceFarm.GetRun: data GetRunResponse
+ Amazonka.DeviceFarm.GetRun: getRunResponse_httpStatus :: Lens' GetRunResponse Int
+ Amazonka.DeviceFarm.GetRun: getRunResponse_run :: Lens' GetRunResponse (Maybe Run)
+ Amazonka.DeviceFarm.GetRun: getRun_arn :: Lens' GetRun Text
+ Amazonka.DeviceFarm.GetRun: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.GetRun.GetRun
+ Amazonka.DeviceFarm.GetRun: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.GetRun.GetRun
+ Amazonka.DeviceFarm.GetRun: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.GetRun.GetRun
+ Amazonka.DeviceFarm.GetRun: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.GetRun.GetRun
+ Amazonka.DeviceFarm.GetRun: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetRun.GetRun
+ Amazonka.DeviceFarm.GetRun: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetRun.GetRunResponse
+ Amazonka.DeviceFarm.GetRun: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.GetRun.GetRun
+ Amazonka.DeviceFarm.GetRun: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.GetRun.GetRun
+ Amazonka.DeviceFarm.GetRun: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetRun.GetRun
+ Amazonka.DeviceFarm.GetRun: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetRun.GetRunResponse
+ Amazonka.DeviceFarm.GetRun: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetRun.GetRun
+ Amazonka.DeviceFarm.GetRun: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetRun.GetRunResponse
+ Amazonka.DeviceFarm.GetRun: instance GHC.Read.Read Amazonka.DeviceFarm.GetRun.GetRun
+ Amazonka.DeviceFarm.GetRun: instance GHC.Read.Read Amazonka.DeviceFarm.GetRun.GetRunResponse
+ Amazonka.DeviceFarm.GetRun: instance GHC.Show.Show Amazonka.DeviceFarm.GetRun.GetRun
+ Amazonka.DeviceFarm.GetRun: instance GHC.Show.Show Amazonka.DeviceFarm.GetRun.GetRunResponse
+ Amazonka.DeviceFarm.GetRun: newGetRun :: Text -> GetRun
+ Amazonka.DeviceFarm.GetRun: newGetRunResponse :: Int -> GetRunResponse
+ Amazonka.DeviceFarm.GetSuite: GetSuite' :: Text -> GetSuite
+ Amazonka.DeviceFarm.GetSuite: GetSuiteResponse' :: Maybe Suite -> Int -> GetSuiteResponse
+ Amazonka.DeviceFarm.GetSuite: [$sel:arn:GetSuite'] :: GetSuite -> Text
+ Amazonka.DeviceFarm.GetSuite: [$sel:httpStatus:GetSuiteResponse'] :: GetSuiteResponse -> Int
+ Amazonka.DeviceFarm.GetSuite: [$sel:suite:GetSuiteResponse'] :: GetSuiteResponse -> Maybe Suite
+ Amazonka.DeviceFarm.GetSuite: data GetSuite
+ Amazonka.DeviceFarm.GetSuite: data GetSuiteResponse
+ Amazonka.DeviceFarm.GetSuite: getSuiteResponse_httpStatus :: Lens' GetSuiteResponse Int
+ Amazonka.DeviceFarm.GetSuite: getSuiteResponse_suite :: Lens' GetSuiteResponse (Maybe Suite)
+ Amazonka.DeviceFarm.GetSuite: getSuite_arn :: Lens' GetSuite Text
+ Amazonka.DeviceFarm.GetSuite: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.GetSuite.GetSuite
+ Amazonka.DeviceFarm.GetSuite: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.GetSuite.GetSuite
+ Amazonka.DeviceFarm.GetSuite: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.GetSuite.GetSuite
+ Amazonka.DeviceFarm.GetSuite: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.GetSuite.GetSuite
+ Amazonka.DeviceFarm.GetSuite: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetSuite.GetSuite
+ Amazonka.DeviceFarm.GetSuite: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetSuite.GetSuiteResponse
+ Amazonka.DeviceFarm.GetSuite: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.GetSuite.GetSuite
+ Amazonka.DeviceFarm.GetSuite: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.GetSuite.GetSuite
+ Amazonka.DeviceFarm.GetSuite: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetSuite.GetSuite
+ Amazonka.DeviceFarm.GetSuite: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetSuite.GetSuiteResponse
+ Amazonka.DeviceFarm.GetSuite: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetSuite.GetSuite
+ Amazonka.DeviceFarm.GetSuite: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetSuite.GetSuiteResponse
+ Amazonka.DeviceFarm.GetSuite: instance GHC.Read.Read Amazonka.DeviceFarm.GetSuite.GetSuite
+ Amazonka.DeviceFarm.GetSuite: instance GHC.Read.Read Amazonka.DeviceFarm.GetSuite.GetSuiteResponse
+ Amazonka.DeviceFarm.GetSuite: instance GHC.Show.Show Amazonka.DeviceFarm.GetSuite.GetSuite
+ Amazonka.DeviceFarm.GetSuite: instance GHC.Show.Show Amazonka.DeviceFarm.GetSuite.GetSuiteResponse
+ Amazonka.DeviceFarm.GetSuite: newGetSuite :: Text -> GetSuite
+ Amazonka.DeviceFarm.GetSuite: newGetSuiteResponse :: Int -> GetSuiteResponse
+ Amazonka.DeviceFarm.GetTest: GetTest' :: Text -> GetTest
+ Amazonka.DeviceFarm.GetTest: GetTestResponse' :: Maybe Test -> Int -> GetTestResponse
+ Amazonka.DeviceFarm.GetTest: [$sel:arn:GetTest'] :: GetTest -> Text
+ Amazonka.DeviceFarm.GetTest: [$sel:httpStatus:GetTestResponse'] :: GetTestResponse -> Int
+ Amazonka.DeviceFarm.GetTest: [$sel:test:GetTestResponse'] :: GetTestResponse -> Maybe Test
+ Amazonka.DeviceFarm.GetTest: data GetTest
+ Amazonka.DeviceFarm.GetTest: data GetTestResponse
+ Amazonka.DeviceFarm.GetTest: getTestResponse_httpStatus :: Lens' GetTestResponse Int
+ Amazonka.DeviceFarm.GetTest: getTestResponse_test :: Lens' GetTestResponse (Maybe Test)
+ Amazonka.DeviceFarm.GetTest: getTest_arn :: Lens' GetTest Text
+ Amazonka.DeviceFarm.GetTest: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.GetTest.GetTest
+ Amazonka.DeviceFarm.GetTest: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.GetTest.GetTest
+ Amazonka.DeviceFarm.GetTest: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.GetTest.GetTest
+ Amazonka.DeviceFarm.GetTest: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.GetTest.GetTest
+ Amazonka.DeviceFarm.GetTest: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetTest.GetTest
+ Amazonka.DeviceFarm.GetTest: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetTest.GetTestResponse
+ Amazonka.DeviceFarm.GetTest: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.GetTest.GetTest
+ Amazonka.DeviceFarm.GetTest: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.GetTest.GetTest
+ Amazonka.DeviceFarm.GetTest: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetTest.GetTest
+ Amazonka.DeviceFarm.GetTest: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetTest.GetTestResponse
+ Amazonka.DeviceFarm.GetTest: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetTest.GetTest
+ Amazonka.DeviceFarm.GetTest: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetTest.GetTestResponse
+ Amazonka.DeviceFarm.GetTest: instance GHC.Read.Read Amazonka.DeviceFarm.GetTest.GetTest
+ Amazonka.DeviceFarm.GetTest: instance GHC.Read.Read Amazonka.DeviceFarm.GetTest.GetTestResponse
+ Amazonka.DeviceFarm.GetTest: instance GHC.Show.Show Amazonka.DeviceFarm.GetTest.GetTest
+ Amazonka.DeviceFarm.GetTest: instance GHC.Show.Show Amazonka.DeviceFarm.GetTest.GetTestResponse
+ Amazonka.DeviceFarm.GetTest: newGetTest :: Text -> GetTest
+ Amazonka.DeviceFarm.GetTest: newGetTestResponse :: Int -> GetTestResponse
+ Amazonka.DeviceFarm.GetTestGridProject: GetTestGridProject' :: Text -> GetTestGridProject
+ Amazonka.DeviceFarm.GetTestGridProject: GetTestGridProjectResponse' :: Maybe TestGridProject -> Int -> GetTestGridProjectResponse
+ Amazonka.DeviceFarm.GetTestGridProject: [$sel:httpStatus:GetTestGridProjectResponse'] :: GetTestGridProjectResponse -> Int
+ Amazonka.DeviceFarm.GetTestGridProject: [$sel:projectArn:GetTestGridProject'] :: GetTestGridProject -> Text
+ Amazonka.DeviceFarm.GetTestGridProject: [$sel:testGridProject:GetTestGridProjectResponse'] :: GetTestGridProjectResponse -> Maybe TestGridProject
+ Amazonka.DeviceFarm.GetTestGridProject: data GetTestGridProject
+ Amazonka.DeviceFarm.GetTestGridProject: data GetTestGridProjectResponse
+ Amazonka.DeviceFarm.GetTestGridProject: getTestGridProjectResponse_httpStatus :: Lens' GetTestGridProjectResponse Int
+ Amazonka.DeviceFarm.GetTestGridProject: getTestGridProjectResponse_testGridProject :: Lens' GetTestGridProjectResponse (Maybe TestGridProject)
+ Amazonka.DeviceFarm.GetTestGridProject: getTestGridProject_projectArn :: Lens' GetTestGridProject Text
+ Amazonka.DeviceFarm.GetTestGridProject: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.GetTestGridProject.GetTestGridProject
+ Amazonka.DeviceFarm.GetTestGridProject: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.GetTestGridProject.GetTestGridProject
+ Amazonka.DeviceFarm.GetTestGridProject: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.GetTestGridProject.GetTestGridProject
+ Amazonka.DeviceFarm.GetTestGridProject: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.GetTestGridProject.GetTestGridProject
+ Amazonka.DeviceFarm.GetTestGridProject: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetTestGridProject.GetTestGridProject
+ Amazonka.DeviceFarm.GetTestGridProject: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetTestGridProject.GetTestGridProjectResponse
+ Amazonka.DeviceFarm.GetTestGridProject: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.GetTestGridProject.GetTestGridProject
+ Amazonka.DeviceFarm.GetTestGridProject: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.GetTestGridProject.GetTestGridProject
+ Amazonka.DeviceFarm.GetTestGridProject: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetTestGridProject.GetTestGridProject
+ Amazonka.DeviceFarm.GetTestGridProject: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetTestGridProject.GetTestGridProjectResponse
+ Amazonka.DeviceFarm.GetTestGridProject: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetTestGridProject.GetTestGridProject
+ Amazonka.DeviceFarm.GetTestGridProject: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetTestGridProject.GetTestGridProjectResponse
+ Amazonka.DeviceFarm.GetTestGridProject: instance GHC.Read.Read Amazonka.DeviceFarm.GetTestGridProject.GetTestGridProject
+ Amazonka.DeviceFarm.GetTestGridProject: instance GHC.Read.Read Amazonka.DeviceFarm.GetTestGridProject.GetTestGridProjectResponse
+ Amazonka.DeviceFarm.GetTestGridProject: instance GHC.Show.Show Amazonka.DeviceFarm.GetTestGridProject.GetTestGridProject
+ Amazonka.DeviceFarm.GetTestGridProject: instance GHC.Show.Show Amazonka.DeviceFarm.GetTestGridProject.GetTestGridProjectResponse
+ Amazonka.DeviceFarm.GetTestGridProject: newGetTestGridProject :: Text -> GetTestGridProject
+ Amazonka.DeviceFarm.GetTestGridProject: newGetTestGridProjectResponse :: Int -> GetTestGridProjectResponse
+ Amazonka.DeviceFarm.GetTestGridSession: GetTestGridSession' :: Maybe Text -> Maybe Text -> Maybe Text -> GetTestGridSession
+ Amazonka.DeviceFarm.GetTestGridSession: GetTestGridSessionResponse' :: Maybe TestGridSession -> Int -> GetTestGridSessionResponse
+ Amazonka.DeviceFarm.GetTestGridSession: [$sel:httpStatus:GetTestGridSessionResponse'] :: GetTestGridSessionResponse -> Int
+ Amazonka.DeviceFarm.GetTestGridSession: [$sel:projectArn:GetTestGridSession'] :: GetTestGridSession -> Maybe Text
+ Amazonka.DeviceFarm.GetTestGridSession: [$sel:sessionArn:GetTestGridSession'] :: GetTestGridSession -> Maybe Text
+ Amazonka.DeviceFarm.GetTestGridSession: [$sel:sessionId:GetTestGridSession'] :: GetTestGridSession -> Maybe Text
+ Amazonka.DeviceFarm.GetTestGridSession: [$sel:testGridSession:GetTestGridSessionResponse'] :: GetTestGridSessionResponse -> Maybe TestGridSession
+ Amazonka.DeviceFarm.GetTestGridSession: data GetTestGridSession
+ Amazonka.DeviceFarm.GetTestGridSession: data GetTestGridSessionResponse
+ Amazonka.DeviceFarm.GetTestGridSession: getTestGridSessionResponse_httpStatus :: Lens' GetTestGridSessionResponse Int
+ Amazonka.DeviceFarm.GetTestGridSession: getTestGridSessionResponse_testGridSession :: Lens' GetTestGridSessionResponse (Maybe TestGridSession)
+ Amazonka.DeviceFarm.GetTestGridSession: getTestGridSession_projectArn :: Lens' GetTestGridSession (Maybe Text)
+ Amazonka.DeviceFarm.GetTestGridSession: getTestGridSession_sessionArn :: Lens' GetTestGridSession (Maybe Text)
+ Amazonka.DeviceFarm.GetTestGridSession: getTestGridSession_sessionId :: Lens' GetTestGridSession (Maybe Text)
+ Amazonka.DeviceFarm.GetTestGridSession: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.GetTestGridSession.GetTestGridSession
+ Amazonka.DeviceFarm.GetTestGridSession: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.GetTestGridSession.GetTestGridSession
+ Amazonka.DeviceFarm.GetTestGridSession: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.GetTestGridSession.GetTestGridSession
+ Amazonka.DeviceFarm.GetTestGridSession: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.GetTestGridSession.GetTestGridSession
+ Amazonka.DeviceFarm.GetTestGridSession: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetTestGridSession.GetTestGridSession
+ Amazonka.DeviceFarm.GetTestGridSession: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetTestGridSession.GetTestGridSessionResponse
+ Amazonka.DeviceFarm.GetTestGridSession: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.GetTestGridSession.GetTestGridSession
+ Amazonka.DeviceFarm.GetTestGridSession: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.GetTestGridSession.GetTestGridSession
+ Amazonka.DeviceFarm.GetTestGridSession: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetTestGridSession.GetTestGridSession
+ Amazonka.DeviceFarm.GetTestGridSession: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetTestGridSession.GetTestGridSessionResponse
+ Amazonka.DeviceFarm.GetTestGridSession: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetTestGridSession.GetTestGridSession
+ Amazonka.DeviceFarm.GetTestGridSession: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetTestGridSession.GetTestGridSessionResponse
+ Amazonka.DeviceFarm.GetTestGridSession: instance GHC.Read.Read Amazonka.DeviceFarm.GetTestGridSession.GetTestGridSession
+ Amazonka.DeviceFarm.GetTestGridSession: instance GHC.Read.Read Amazonka.DeviceFarm.GetTestGridSession.GetTestGridSessionResponse
+ Amazonka.DeviceFarm.GetTestGridSession: instance GHC.Show.Show Amazonka.DeviceFarm.GetTestGridSession.GetTestGridSession
+ Amazonka.DeviceFarm.GetTestGridSession: instance GHC.Show.Show Amazonka.DeviceFarm.GetTestGridSession.GetTestGridSessionResponse
+ Amazonka.DeviceFarm.GetTestGridSession: newGetTestGridSession :: GetTestGridSession
+ Amazonka.DeviceFarm.GetTestGridSession: newGetTestGridSessionResponse :: Int -> GetTestGridSessionResponse
+ Amazonka.DeviceFarm.GetUpload: GetUpload' :: Text -> GetUpload
+ Amazonka.DeviceFarm.GetUpload: GetUploadResponse' :: Maybe Upload -> Int -> GetUploadResponse
+ Amazonka.DeviceFarm.GetUpload: [$sel:arn:GetUpload'] :: GetUpload -> Text
+ Amazonka.DeviceFarm.GetUpload: [$sel:httpStatus:GetUploadResponse'] :: GetUploadResponse -> Int
+ Amazonka.DeviceFarm.GetUpload: [$sel:upload:GetUploadResponse'] :: GetUploadResponse -> Maybe Upload
+ Amazonka.DeviceFarm.GetUpload: data GetUpload
+ Amazonka.DeviceFarm.GetUpload: data GetUploadResponse
+ Amazonka.DeviceFarm.GetUpload: getUploadResponse_httpStatus :: Lens' GetUploadResponse Int
+ Amazonka.DeviceFarm.GetUpload: getUploadResponse_upload :: Lens' GetUploadResponse (Maybe Upload)
+ Amazonka.DeviceFarm.GetUpload: getUpload_arn :: Lens' GetUpload Text
+ Amazonka.DeviceFarm.GetUpload: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.GetUpload.GetUpload
+ Amazonka.DeviceFarm.GetUpload: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.GetUpload.GetUpload
+ Amazonka.DeviceFarm.GetUpload: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.GetUpload.GetUpload
+ Amazonka.DeviceFarm.GetUpload: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.GetUpload.GetUpload
+ Amazonka.DeviceFarm.GetUpload: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetUpload.GetUpload
+ Amazonka.DeviceFarm.GetUpload: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetUpload.GetUploadResponse
+ Amazonka.DeviceFarm.GetUpload: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.GetUpload.GetUpload
+ Amazonka.DeviceFarm.GetUpload: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.GetUpload.GetUpload
+ Amazonka.DeviceFarm.GetUpload: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetUpload.GetUpload
+ Amazonka.DeviceFarm.GetUpload: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetUpload.GetUploadResponse
+ Amazonka.DeviceFarm.GetUpload: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetUpload.GetUpload
+ Amazonka.DeviceFarm.GetUpload: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetUpload.GetUploadResponse
+ Amazonka.DeviceFarm.GetUpload: instance GHC.Read.Read Amazonka.DeviceFarm.GetUpload.GetUpload
+ Amazonka.DeviceFarm.GetUpload: instance GHC.Show.Show Amazonka.DeviceFarm.GetUpload.GetUpload
+ Amazonka.DeviceFarm.GetUpload: instance GHC.Show.Show Amazonka.DeviceFarm.GetUpload.GetUploadResponse
+ Amazonka.DeviceFarm.GetUpload: newGetUpload :: Text -> GetUpload
+ Amazonka.DeviceFarm.GetUpload: newGetUploadResponse :: Int -> GetUploadResponse
+ Amazonka.DeviceFarm.GetVPCEConfiguration: GetVPCEConfiguration' :: Text -> GetVPCEConfiguration
+ Amazonka.DeviceFarm.GetVPCEConfiguration: GetVPCEConfigurationResponse' :: Maybe VPCEConfiguration -> Int -> GetVPCEConfigurationResponse
+ Amazonka.DeviceFarm.GetVPCEConfiguration: [$sel:arn:GetVPCEConfiguration'] :: GetVPCEConfiguration -> Text
+ Amazonka.DeviceFarm.GetVPCEConfiguration: [$sel:httpStatus:GetVPCEConfigurationResponse'] :: GetVPCEConfigurationResponse -> Int
+ Amazonka.DeviceFarm.GetVPCEConfiguration: [$sel:vpceConfiguration:GetVPCEConfigurationResponse'] :: GetVPCEConfigurationResponse -> Maybe VPCEConfiguration
+ Amazonka.DeviceFarm.GetVPCEConfiguration: data GetVPCEConfiguration
+ Amazonka.DeviceFarm.GetVPCEConfiguration: data GetVPCEConfigurationResponse
+ Amazonka.DeviceFarm.GetVPCEConfiguration: getVPCEConfigurationResponse_httpStatus :: Lens' GetVPCEConfigurationResponse Int
+ Amazonka.DeviceFarm.GetVPCEConfiguration: getVPCEConfigurationResponse_vpceConfiguration :: Lens' GetVPCEConfigurationResponse (Maybe VPCEConfiguration)
+ Amazonka.DeviceFarm.GetVPCEConfiguration: getVPCEConfiguration_arn :: Lens' GetVPCEConfiguration Text
+ Amazonka.DeviceFarm.GetVPCEConfiguration: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.GetVPCEConfiguration.GetVPCEConfiguration
+ Amazonka.DeviceFarm.GetVPCEConfiguration: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.GetVPCEConfiguration.GetVPCEConfiguration
+ Amazonka.DeviceFarm.GetVPCEConfiguration: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.GetVPCEConfiguration.GetVPCEConfiguration
+ Amazonka.DeviceFarm.GetVPCEConfiguration: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.GetVPCEConfiguration.GetVPCEConfiguration
+ Amazonka.DeviceFarm.GetVPCEConfiguration: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetVPCEConfiguration.GetVPCEConfiguration
+ Amazonka.DeviceFarm.GetVPCEConfiguration: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.GetVPCEConfiguration.GetVPCEConfigurationResponse
+ Amazonka.DeviceFarm.GetVPCEConfiguration: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.GetVPCEConfiguration.GetVPCEConfiguration
+ Amazonka.DeviceFarm.GetVPCEConfiguration: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.GetVPCEConfiguration.GetVPCEConfiguration
+ Amazonka.DeviceFarm.GetVPCEConfiguration: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetVPCEConfiguration.GetVPCEConfiguration
+ Amazonka.DeviceFarm.GetVPCEConfiguration: instance GHC.Classes.Eq Amazonka.DeviceFarm.GetVPCEConfiguration.GetVPCEConfigurationResponse
+ Amazonka.DeviceFarm.GetVPCEConfiguration: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetVPCEConfiguration.GetVPCEConfiguration
+ Amazonka.DeviceFarm.GetVPCEConfiguration: instance GHC.Generics.Generic Amazonka.DeviceFarm.GetVPCEConfiguration.GetVPCEConfigurationResponse
+ Amazonka.DeviceFarm.GetVPCEConfiguration: instance GHC.Read.Read Amazonka.DeviceFarm.GetVPCEConfiguration.GetVPCEConfiguration
+ Amazonka.DeviceFarm.GetVPCEConfiguration: instance GHC.Read.Read Amazonka.DeviceFarm.GetVPCEConfiguration.GetVPCEConfigurationResponse
+ Amazonka.DeviceFarm.GetVPCEConfiguration: instance GHC.Show.Show Amazonka.DeviceFarm.GetVPCEConfiguration.GetVPCEConfiguration
+ Amazonka.DeviceFarm.GetVPCEConfiguration: instance GHC.Show.Show Amazonka.DeviceFarm.GetVPCEConfiguration.GetVPCEConfigurationResponse
+ Amazonka.DeviceFarm.GetVPCEConfiguration: newGetVPCEConfiguration :: Text -> GetVPCEConfiguration
+ Amazonka.DeviceFarm.GetVPCEConfiguration: newGetVPCEConfigurationResponse :: Int -> GetVPCEConfigurationResponse
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: InstallToRemoteAccessSession' :: Text -> Text -> InstallToRemoteAccessSession
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: InstallToRemoteAccessSessionResponse' :: Maybe Upload -> Int -> InstallToRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: [$sel:appArn:InstallToRemoteAccessSession'] :: InstallToRemoteAccessSession -> Text
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: [$sel:appUpload:InstallToRemoteAccessSessionResponse'] :: InstallToRemoteAccessSessionResponse -> Maybe Upload
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: [$sel:httpStatus:InstallToRemoteAccessSessionResponse'] :: InstallToRemoteAccessSessionResponse -> Int
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: [$sel:remoteAccessSessionArn:InstallToRemoteAccessSession'] :: InstallToRemoteAccessSession -> Text
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: data InstallToRemoteAccessSession
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: data InstallToRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: installToRemoteAccessSessionResponse_appUpload :: Lens' InstallToRemoteAccessSessionResponse (Maybe Upload)
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: installToRemoteAccessSessionResponse_httpStatus :: Lens' InstallToRemoteAccessSessionResponse Int
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: installToRemoteAccessSession_appArn :: Lens' InstallToRemoteAccessSession Text
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: installToRemoteAccessSession_remoteAccessSessionArn :: Lens' InstallToRemoteAccessSession Text
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSession
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSession
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSession
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSession
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSession
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSession
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSession
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: instance GHC.Classes.Eq Amazonka.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSession
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: instance GHC.Classes.Eq Amazonka.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: instance GHC.Generics.Generic Amazonka.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSession
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: instance GHC.Generics.Generic Amazonka.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: instance GHC.Read.Read Amazonka.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSession
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: instance GHC.Show.Show Amazonka.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSession
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: instance GHC.Show.Show Amazonka.DeviceFarm.InstallToRemoteAccessSession.InstallToRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: newInstallToRemoteAccessSession :: Text -> Text -> InstallToRemoteAccessSession
+ Amazonka.DeviceFarm.InstallToRemoteAccessSession: newInstallToRemoteAccessSessionResponse :: Int -> InstallToRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.Lens: accountSettings_awsAccountNumber :: Lens' AccountSettings (Maybe Text)
+ Amazonka.DeviceFarm.Lens: accountSettings_defaultJobTimeoutMinutes :: Lens' AccountSettings (Maybe Int)
+ Amazonka.DeviceFarm.Lens: accountSettings_maxJobTimeoutMinutes :: Lens' AccountSettings (Maybe Int)
+ Amazonka.DeviceFarm.Lens: accountSettings_maxSlots :: Lens' AccountSettings (Maybe (HashMap Text Int))
+ Amazonka.DeviceFarm.Lens: accountSettings_skipAppResign :: Lens' AccountSettings (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: accountSettings_trialMinutes :: Lens' AccountSettings (Maybe TrialMinutes)
+ Amazonka.DeviceFarm.Lens: accountSettings_unmeteredDevices :: Lens' AccountSettings (Maybe (HashMap DevicePlatform Int))
+ Amazonka.DeviceFarm.Lens: accountSettings_unmeteredRemoteAccessDevices :: Lens' AccountSettings (Maybe (HashMap DevicePlatform Int))
+ Amazonka.DeviceFarm.Lens: artifact_arn :: Lens' Artifact (Maybe Text)
+ Amazonka.DeviceFarm.Lens: artifact_extension :: Lens' Artifact (Maybe Text)
+ Amazonka.DeviceFarm.Lens: artifact_name :: Lens' Artifact (Maybe Text)
+ Amazonka.DeviceFarm.Lens: artifact_type :: Lens' Artifact (Maybe ArtifactType)
+ Amazonka.DeviceFarm.Lens: artifact_url :: Lens' Artifact (Maybe Text)
+ Amazonka.DeviceFarm.Lens: counters_errored :: Lens' Counters (Maybe Int)
+ Amazonka.DeviceFarm.Lens: counters_failed :: Lens' Counters (Maybe Int)
+ Amazonka.DeviceFarm.Lens: counters_passed :: Lens' Counters (Maybe Int)
+ Amazonka.DeviceFarm.Lens: counters_skipped :: Lens' Counters (Maybe Int)
+ Amazonka.DeviceFarm.Lens: counters_stopped :: Lens' Counters (Maybe Int)
+ Amazonka.DeviceFarm.Lens: counters_total :: Lens' Counters (Maybe Int)
+ Amazonka.DeviceFarm.Lens: counters_warned :: Lens' Counters (Maybe Int)
+ Amazonka.DeviceFarm.Lens: cpu_architecture :: Lens' CPU (Maybe Text)
+ Amazonka.DeviceFarm.Lens: cpu_clock :: Lens' CPU (Maybe Double)
+ Amazonka.DeviceFarm.Lens: cpu_frequency :: Lens' CPU (Maybe Text)
+ Amazonka.DeviceFarm.Lens: createDevicePoolResponse_devicePool :: Lens' CreateDevicePoolResponse (Maybe DevicePool)
+ Amazonka.DeviceFarm.Lens: createDevicePoolResponse_httpStatus :: Lens' CreateDevicePoolResponse Int
+ Amazonka.DeviceFarm.Lens: createDevicePool_description :: Lens' CreateDevicePool (Maybe Text)
+ Amazonka.DeviceFarm.Lens: createDevicePool_maxDevices :: Lens' CreateDevicePool (Maybe Int)
+ Amazonka.DeviceFarm.Lens: createDevicePool_name :: Lens' CreateDevicePool Text
+ Amazonka.DeviceFarm.Lens: createDevicePool_projectArn :: Lens' CreateDevicePool Text
+ Amazonka.DeviceFarm.Lens: createDevicePool_rules :: Lens' CreateDevicePool [Rule]
+ Amazonka.DeviceFarm.Lens: createInstanceProfileResponse_httpStatus :: Lens' CreateInstanceProfileResponse Int
+ Amazonka.DeviceFarm.Lens: createInstanceProfileResponse_instanceProfile :: Lens' CreateInstanceProfileResponse (Maybe InstanceProfile)
+ Amazonka.DeviceFarm.Lens: createInstanceProfile_description :: Lens' CreateInstanceProfile (Maybe Text)
+ Amazonka.DeviceFarm.Lens: createInstanceProfile_excludeAppPackagesFromCleanup :: Lens' CreateInstanceProfile (Maybe [Text])
+ Amazonka.DeviceFarm.Lens: createInstanceProfile_name :: Lens' CreateInstanceProfile Text
+ Amazonka.DeviceFarm.Lens: createInstanceProfile_packageCleanup :: Lens' CreateInstanceProfile (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: createInstanceProfile_rebootAfterUse :: Lens' CreateInstanceProfile (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: createNetworkProfileResponse_httpStatus :: Lens' CreateNetworkProfileResponse Int
+ Amazonka.DeviceFarm.Lens: createNetworkProfileResponse_networkProfile :: Lens' CreateNetworkProfileResponse (Maybe NetworkProfile)
+ Amazonka.DeviceFarm.Lens: createNetworkProfile_description :: Lens' CreateNetworkProfile (Maybe Text)
+ Amazonka.DeviceFarm.Lens: createNetworkProfile_downlinkBandwidthBits :: Lens' CreateNetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Lens: createNetworkProfile_downlinkDelayMs :: Lens' CreateNetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Lens: createNetworkProfile_downlinkJitterMs :: Lens' CreateNetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Lens: createNetworkProfile_downlinkLossPercent :: Lens' CreateNetworkProfile (Maybe Natural)
+ Amazonka.DeviceFarm.Lens: createNetworkProfile_name :: Lens' CreateNetworkProfile Text
+ Amazonka.DeviceFarm.Lens: createNetworkProfile_projectArn :: Lens' CreateNetworkProfile Text
+ Amazonka.DeviceFarm.Lens: createNetworkProfile_type :: Lens' CreateNetworkProfile (Maybe NetworkProfileType)
+ Amazonka.DeviceFarm.Lens: createNetworkProfile_uplinkBandwidthBits :: Lens' CreateNetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Lens: createNetworkProfile_uplinkDelayMs :: Lens' CreateNetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Lens: createNetworkProfile_uplinkJitterMs :: Lens' CreateNetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Lens: createNetworkProfile_uplinkLossPercent :: Lens' CreateNetworkProfile (Maybe Natural)
+ Amazonka.DeviceFarm.Lens: createProjectResponse_httpStatus :: Lens' CreateProjectResponse Int
+ Amazonka.DeviceFarm.Lens: createProjectResponse_project :: Lens' CreateProjectResponse (Maybe Project)
+ Amazonka.DeviceFarm.Lens: createProject_defaultJobTimeoutMinutes :: Lens' CreateProject (Maybe Int)
+ Amazonka.DeviceFarm.Lens: createProject_name :: Lens' CreateProject Text
+ Amazonka.DeviceFarm.Lens: createProject_vpcConfig :: Lens' CreateProject (Maybe VpcConfig)
+ Amazonka.DeviceFarm.Lens: createRemoteAccessSessionConfiguration_billingMethod :: Lens' CreateRemoteAccessSessionConfiguration (Maybe BillingMethod)
+ Amazonka.DeviceFarm.Lens: createRemoteAccessSessionConfiguration_vpceConfigurationArns :: Lens' CreateRemoteAccessSessionConfiguration (Maybe [Text])
+ Amazonka.DeviceFarm.Lens: createRemoteAccessSessionResponse_httpStatus :: Lens' CreateRemoteAccessSessionResponse Int
+ Amazonka.DeviceFarm.Lens: createRemoteAccessSessionResponse_remoteAccessSession :: Lens' CreateRemoteAccessSessionResponse (Maybe RemoteAccessSession)
+ Amazonka.DeviceFarm.Lens: createRemoteAccessSession_clientId :: Lens' CreateRemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Lens: createRemoteAccessSession_configuration :: Lens' CreateRemoteAccessSession (Maybe CreateRemoteAccessSessionConfiguration)
+ Amazonka.DeviceFarm.Lens: createRemoteAccessSession_deviceArn :: Lens' CreateRemoteAccessSession Text
+ Amazonka.DeviceFarm.Lens: createRemoteAccessSession_instanceArn :: Lens' CreateRemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Lens: createRemoteAccessSession_interactionMode :: Lens' CreateRemoteAccessSession (Maybe InteractionMode)
+ Amazonka.DeviceFarm.Lens: createRemoteAccessSession_name :: Lens' CreateRemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Lens: createRemoteAccessSession_projectArn :: Lens' CreateRemoteAccessSession Text
+ Amazonka.DeviceFarm.Lens: createRemoteAccessSession_remoteDebugEnabled :: Lens' CreateRemoteAccessSession (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: createRemoteAccessSession_remoteRecordAppArn :: Lens' CreateRemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Lens: createRemoteAccessSession_remoteRecordEnabled :: Lens' CreateRemoteAccessSession (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: createRemoteAccessSession_skipAppResign :: Lens' CreateRemoteAccessSession (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: createRemoteAccessSession_sshPublicKey :: Lens' CreateRemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Lens: createTestGridProjectResponse_httpStatus :: Lens' CreateTestGridProjectResponse Int
+ Amazonka.DeviceFarm.Lens: createTestGridProjectResponse_testGridProject :: Lens' CreateTestGridProjectResponse (Maybe TestGridProject)
+ Amazonka.DeviceFarm.Lens: createTestGridProject_description :: Lens' CreateTestGridProject (Maybe Text)
+ Amazonka.DeviceFarm.Lens: createTestGridProject_name :: Lens' CreateTestGridProject Text
+ Amazonka.DeviceFarm.Lens: createTestGridProject_vpcConfig :: Lens' CreateTestGridProject (Maybe TestGridVpcConfig)
+ Amazonka.DeviceFarm.Lens: createTestGridUrlResponse_expires :: Lens' CreateTestGridUrlResponse (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: createTestGridUrlResponse_httpStatus :: Lens' CreateTestGridUrlResponse Int
+ Amazonka.DeviceFarm.Lens: createTestGridUrlResponse_url :: Lens' CreateTestGridUrlResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: createTestGridUrl_expiresInSeconds :: Lens' CreateTestGridUrl Natural
+ Amazonka.DeviceFarm.Lens: createTestGridUrl_projectArn :: Lens' CreateTestGridUrl Text
+ Amazonka.DeviceFarm.Lens: createUploadResponse_httpStatus :: Lens' CreateUploadResponse Int
+ Amazonka.DeviceFarm.Lens: createUploadResponse_upload :: Lens' CreateUploadResponse (Maybe Upload)
+ Amazonka.DeviceFarm.Lens: createUpload_contentType :: Lens' CreateUpload (Maybe Text)
+ Amazonka.DeviceFarm.Lens: createUpload_name :: Lens' CreateUpload Text
+ Amazonka.DeviceFarm.Lens: createUpload_projectArn :: Lens' CreateUpload Text
+ Amazonka.DeviceFarm.Lens: createUpload_type :: Lens' CreateUpload UploadType
+ Amazonka.DeviceFarm.Lens: createVPCEConfigurationResponse_httpStatus :: Lens' CreateVPCEConfigurationResponse Int
+ Amazonka.DeviceFarm.Lens: createVPCEConfigurationResponse_vpceConfiguration :: Lens' CreateVPCEConfigurationResponse (Maybe VPCEConfiguration)
+ Amazonka.DeviceFarm.Lens: createVPCEConfiguration_serviceDnsName :: Lens' CreateVPCEConfiguration Text
+ Amazonka.DeviceFarm.Lens: createVPCEConfiguration_vpceConfigurationDescription :: Lens' CreateVPCEConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Lens: createVPCEConfiguration_vpceConfigurationName :: Lens' CreateVPCEConfiguration Text
+ Amazonka.DeviceFarm.Lens: createVPCEConfiguration_vpceServiceName :: Lens' CreateVPCEConfiguration Text
+ Amazonka.DeviceFarm.Lens: customerArtifactPaths_androidPaths :: Lens' CustomerArtifactPaths (Maybe [Text])
+ Amazonka.DeviceFarm.Lens: customerArtifactPaths_deviceHostPaths :: Lens' CustomerArtifactPaths (Maybe [Text])
+ Amazonka.DeviceFarm.Lens: customerArtifactPaths_iosPaths :: Lens' CustomerArtifactPaths (Maybe [Text])
+ Amazonka.DeviceFarm.Lens: deleteDevicePoolResponse_httpStatus :: Lens' DeleteDevicePoolResponse Int
+ Amazonka.DeviceFarm.Lens: deleteDevicePool_arn :: Lens' DeleteDevicePool Text
+ Amazonka.DeviceFarm.Lens: deleteInstanceProfileResponse_httpStatus :: Lens' DeleteInstanceProfileResponse Int
+ Amazonka.DeviceFarm.Lens: deleteInstanceProfile_arn :: Lens' DeleteInstanceProfile Text
+ Amazonka.DeviceFarm.Lens: deleteNetworkProfileResponse_httpStatus :: Lens' DeleteNetworkProfileResponse Int
+ Amazonka.DeviceFarm.Lens: deleteNetworkProfile_arn :: Lens' DeleteNetworkProfile Text
+ Amazonka.DeviceFarm.Lens: deleteProjectResponse_httpStatus :: Lens' DeleteProjectResponse Int
+ Amazonka.DeviceFarm.Lens: deleteProject_arn :: Lens' DeleteProject Text
+ Amazonka.DeviceFarm.Lens: deleteRemoteAccessSessionResponse_httpStatus :: Lens' DeleteRemoteAccessSessionResponse Int
+ Amazonka.DeviceFarm.Lens: deleteRemoteAccessSession_arn :: Lens' DeleteRemoteAccessSession Text
+ Amazonka.DeviceFarm.Lens: deleteRunResponse_httpStatus :: Lens' DeleteRunResponse Int
+ Amazonka.DeviceFarm.Lens: deleteRun_arn :: Lens' DeleteRun Text
+ Amazonka.DeviceFarm.Lens: deleteTestGridProjectResponse_httpStatus :: Lens' DeleteTestGridProjectResponse Int
+ Amazonka.DeviceFarm.Lens: deleteTestGridProject_projectArn :: Lens' DeleteTestGridProject Text
+ Amazonka.DeviceFarm.Lens: deleteUploadResponse_httpStatus :: Lens' DeleteUploadResponse Int
+ Amazonka.DeviceFarm.Lens: deleteUpload_arn :: Lens' DeleteUpload Text
+ Amazonka.DeviceFarm.Lens: deleteVPCEConfigurationResponse_httpStatus :: Lens' DeleteVPCEConfigurationResponse Int
+ Amazonka.DeviceFarm.Lens: deleteVPCEConfiguration_arn :: Lens' DeleteVPCEConfiguration Text
+ Amazonka.DeviceFarm.Lens: deviceFilter_attribute :: Lens' DeviceFilter DeviceFilterAttribute
+ Amazonka.DeviceFarm.Lens: deviceFilter_operator :: Lens' DeviceFilter RuleOperator
+ Amazonka.DeviceFarm.Lens: deviceFilter_values :: Lens' DeviceFilter [Text]
+ Amazonka.DeviceFarm.Lens: deviceInstance_arn :: Lens' DeviceInstance (Maybe Text)
+ Amazonka.DeviceFarm.Lens: deviceInstance_deviceArn :: Lens' DeviceInstance (Maybe Text)
+ Amazonka.DeviceFarm.Lens: deviceInstance_instanceProfile :: Lens' DeviceInstance (Maybe InstanceProfile)
+ Amazonka.DeviceFarm.Lens: deviceInstance_labels :: Lens' DeviceInstance (Maybe [Text])
+ Amazonka.DeviceFarm.Lens: deviceInstance_status :: Lens' DeviceInstance (Maybe InstanceStatus)
+ Amazonka.DeviceFarm.Lens: deviceInstance_udid :: Lens' DeviceInstance (Maybe Text)
+ Amazonka.DeviceFarm.Lens: deviceMinutes_metered :: Lens' DeviceMinutes (Maybe Double)
+ Amazonka.DeviceFarm.Lens: deviceMinutes_total :: Lens' DeviceMinutes (Maybe Double)
+ Amazonka.DeviceFarm.Lens: deviceMinutes_unmetered :: Lens' DeviceMinutes (Maybe Double)
+ Amazonka.DeviceFarm.Lens: devicePoolCompatibilityResult_compatible :: Lens' DevicePoolCompatibilityResult (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: devicePoolCompatibilityResult_device :: Lens' DevicePoolCompatibilityResult (Maybe Device)
+ Amazonka.DeviceFarm.Lens: devicePoolCompatibilityResult_incompatibilityMessages :: Lens' DevicePoolCompatibilityResult (Maybe [IncompatibilityMessage])
+ Amazonka.DeviceFarm.Lens: devicePool_arn :: Lens' DevicePool (Maybe Text)
+ Amazonka.DeviceFarm.Lens: devicePool_description :: Lens' DevicePool (Maybe Text)
+ Amazonka.DeviceFarm.Lens: devicePool_maxDevices :: Lens' DevicePool (Maybe Int)
+ Amazonka.DeviceFarm.Lens: devicePool_name :: Lens' DevicePool (Maybe Text)
+ Amazonka.DeviceFarm.Lens: devicePool_rules :: Lens' DevicePool (Maybe [Rule])
+ Amazonka.DeviceFarm.Lens: devicePool_type :: Lens' DevicePool (Maybe DevicePoolType)
+ Amazonka.DeviceFarm.Lens: deviceSelectionConfiguration_filters :: Lens' DeviceSelectionConfiguration [DeviceFilter]
+ Amazonka.DeviceFarm.Lens: deviceSelectionConfiguration_maxDevices :: Lens' DeviceSelectionConfiguration Int
+ Amazonka.DeviceFarm.Lens: deviceSelectionResult_filters :: Lens' DeviceSelectionResult (Maybe [DeviceFilter])
+ Amazonka.DeviceFarm.Lens: deviceSelectionResult_matchedDevicesCount :: Lens' DeviceSelectionResult (Maybe Int)
+ Amazonka.DeviceFarm.Lens: deviceSelectionResult_maxDevices :: Lens' DeviceSelectionResult (Maybe Int)
+ Amazonka.DeviceFarm.Lens: device_arn :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Lens: device_availability :: Lens' Device (Maybe DeviceAvailability)
+ Amazonka.DeviceFarm.Lens: device_carrier :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Lens: device_cpu :: Lens' Device (Maybe CPU)
+ Amazonka.DeviceFarm.Lens: device_fleetName :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Lens: device_fleetType :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Lens: device_formFactor :: Lens' Device (Maybe DeviceFormFactor)
+ Amazonka.DeviceFarm.Lens: device_heapSize :: Lens' Device (Maybe Integer)
+ Amazonka.DeviceFarm.Lens: device_image :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Lens: device_instances :: Lens' Device (Maybe [DeviceInstance])
+ Amazonka.DeviceFarm.Lens: device_manufacturer :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Lens: device_memory :: Lens' Device (Maybe Integer)
+ Amazonka.DeviceFarm.Lens: device_model :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Lens: device_modelId :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Lens: device_name :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Lens: device_os :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Lens: device_platform :: Lens' Device (Maybe DevicePlatform)
+ Amazonka.DeviceFarm.Lens: device_radio :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Lens: device_remoteAccessEnabled :: Lens' Device (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: device_remoteDebugEnabled :: Lens' Device (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: device_resolution :: Lens' Device (Maybe Resolution)
+ Amazonka.DeviceFarm.Lens: executionConfiguration_accountsCleanup :: Lens' ExecutionConfiguration (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: executionConfiguration_appPackagesCleanup :: Lens' ExecutionConfiguration (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: executionConfiguration_jobTimeoutMinutes :: Lens' ExecutionConfiguration (Maybe Int)
+ Amazonka.DeviceFarm.Lens: executionConfiguration_skipAppResign :: Lens' ExecutionConfiguration (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: executionConfiguration_videoCapture :: Lens' ExecutionConfiguration (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: getAccountSettingsResponse_accountSettings :: Lens' GetAccountSettingsResponse (Maybe AccountSettings)
+ Amazonka.DeviceFarm.Lens: getAccountSettingsResponse_httpStatus :: Lens' GetAccountSettingsResponse Int
+ Amazonka.DeviceFarm.Lens: getDeviceInstanceResponse_deviceInstance :: Lens' GetDeviceInstanceResponse (Maybe DeviceInstance)
+ Amazonka.DeviceFarm.Lens: getDeviceInstanceResponse_httpStatus :: Lens' GetDeviceInstanceResponse Int
+ Amazonka.DeviceFarm.Lens: getDeviceInstance_arn :: Lens' GetDeviceInstance Text
+ Amazonka.DeviceFarm.Lens: getDevicePoolCompatibilityResponse_compatibleDevices :: Lens' GetDevicePoolCompatibilityResponse (Maybe [DevicePoolCompatibilityResult])
+ Amazonka.DeviceFarm.Lens: getDevicePoolCompatibilityResponse_httpStatus :: Lens' GetDevicePoolCompatibilityResponse Int
+ Amazonka.DeviceFarm.Lens: getDevicePoolCompatibilityResponse_incompatibleDevices :: Lens' GetDevicePoolCompatibilityResponse (Maybe [DevicePoolCompatibilityResult])
+ Amazonka.DeviceFarm.Lens: getDevicePoolCompatibility_appArn :: Lens' GetDevicePoolCompatibility (Maybe Text)
+ Amazonka.DeviceFarm.Lens: getDevicePoolCompatibility_configuration :: Lens' GetDevicePoolCompatibility (Maybe ScheduleRunConfiguration)
+ Amazonka.DeviceFarm.Lens: getDevicePoolCompatibility_devicePoolArn :: Lens' GetDevicePoolCompatibility Text
+ Amazonka.DeviceFarm.Lens: getDevicePoolCompatibility_test :: Lens' GetDevicePoolCompatibility (Maybe ScheduleRunTest)
+ Amazonka.DeviceFarm.Lens: getDevicePoolCompatibility_testType :: Lens' GetDevicePoolCompatibility (Maybe TestType)
+ Amazonka.DeviceFarm.Lens: getDevicePoolResponse_devicePool :: Lens' GetDevicePoolResponse (Maybe DevicePool)
+ Amazonka.DeviceFarm.Lens: getDevicePoolResponse_httpStatus :: Lens' GetDevicePoolResponse Int
+ Amazonka.DeviceFarm.Lens: getDevicePool_arn :: Lens' GetDevicePool Text
+ Amazonka.DeviceFarm.Lens: getDeviceResponse_device :: Lens' GetDeviceResponse (Maybe Device)
+ Amazonka.DeviceFarm.Lens: getDeviceResponse_httpStatus :: Lens' GetDeviceResponse Int
+ Amazonka.DeviceFarm.Lens: getDevice_arn :: Lens' GetDevice Text
+ Amazonka.DeviceFarm.Lens: getInstanceProfileResponse_httpStatus :: Lens' GetInstanceProfileResponse Int
+ Amazonka.DeviceFarm.Lens: getInstanceProfileResponse_instanceProfile :: Lens' GetInstanceProfileResponse (Maybe InstanceProfile)
+ Amazonka.DeviceFarm.Lens: getInstanceProfile_arn :: Lens' GetInstanceProfile Text
+ Amazonka.DeviceFarm.Lens: getJobResponse_httpStatus :: Lens' GetJobResponse Int
+ Amazonka.DeviceFarm.Lens: getJobResponse_job :: Lens' GetJobResponse (Maybe Job)
+ Amazonka.DeviceFarm.Lens: getJob_arn :: Lens' GetJob Text
+ Amazonka.DeviceFarm.Lens: getNetworkProfileResponse_httpStatus :: Lens' GetNetworkProfileResponse Int
+ Amazonka.DeviceFarm.Lens: getNetworkProfileResponse_networkProfile :: Lens' GetNetworkProfileResponse (Maybe NetworkProfile)
+ Amazonka.DeviceFarm.Lens: getNetworkProfile_arn :: Lens' GetNetworkProfile Text
+ Amazonka.DeviceFarm.Lens: getOfferingStatusResponse_current :: Lens' GetOfferingStatusResponse (Maybe (HashMap Text OfferingStatus))
+ Amazonka.DeviceFarm.Lens: getOfferingStatusResponse_httpStatus :: Lens' GetOfferingStatusResponse Int
+ Amazonka.DeviceFarm.Lens: getOfferingStatusResponse_nextPeriod :: Lens' GetOfferingStatusResponse (Maybe (HashMap Text OfferingStatus))
+ Amazonka.DeviceFarm.Lens: getOfferingStatusResponse_nextToken :: Lens' GetOfferingStatusResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: getOfferingStatus_nextToken :: Lens' GetOfferingStatus (Maybe Text)
+ Amazonka.DeviceFarm.Lens: getProjectResponse_httpStatus :: Lens' GetProjectResponse Int
+ Amazonka.DeviceFarm.Lens: getProjectResponse_project :: Lens' GetProjectResponse (Maybe Project)
+ Amazonka.DeviceFarm.Lens: getProject_arn :: Lens' GetProject Text
+ Amazonka.DeviceFarm.Lens: getRemoteAccessSessionResponse_httpStatus :: Lens' GetRemoteAccessSessionResponse Int
+ Amazonka.DeviceFarm.Lens: getRemoteAccessSessionResponse_remoteAccessSession :: Lens' GetRemoteAccessSessionResponse (Maybe RemoteAccessSession)
+ Amazonka.DeviceFarm.Lens: getRemoteAccessSession_arn :: Lens' GetRemoteAccessSession Text
+ Amazonka.DeviceFarm.Lens: getRunResponse_httpStatus :: Lens' GetRunResponse Int
+ Amazonka.DeviceFarm.Lens: getRunResponse_run :: Lens' GetRunResponse (Maybe Run)
+ Amazonka.DeviceFarm.Lens: getRun_arn :: Lens' GetRun Text
+ Amazonka.DeviceFarm.Lens: getSuiteResponse_httpStatus :: Lens' GetSuiteResponse Int
+ Amazonka.DeviceFarm.Lens: getSuiteResponse_suite :: Lens' GetSuiteResponse (Maybe Suite)
+ Amazonka.DeviceFarm.Lens: getSuite_arn :: Lens' GetSuite Text
+ Amazonka.DeviceFarm.Lens: getTestGridProjectResponse_httpStatus :: Lens' GetTestGridProjectResponse Int
+ Amazonka.DeviceFarm.Lens: getTestGridProjectResponse_testGridProject :: Lens' GetTestGridProjectResponse (Maybe TestGridProject)
+ Amazonka.DeviceFarm.Lens: getTestGridProject_projectArn :: Lens' GetTestGridProject Text
+ Amazonka.DeviceFarm.Lens: getTestGridSessionResponse_httpStatus :: Lens' GetTestGridSessionResponse Int
+ Amazonka.DeviceFarm.Lens: getTestGridSessionResponse_testGridSession :: Lens' GetTestGridSessionResponse (Maybe TestGridSession)
+ Amazonka.DeviceFarm.Lens: getTestGridSession_projectArn :: Lens' GetTestGridSession (Maybe Text)
+ Amazonka.DeviceFarm.Lens: getTestGridSession_sessionArn :: Lens' GetTestGridSession (Maybe Text)
+ Amazonka.DeviceFarm.Lens: getTestGridSession_sessionId :: Lens' GetTestGridSession (Maybe Text)
+ Amazonka.DeviceFarm.Lens: getTestResponse_httpStatus :: Lens' GetTestResponse Int
+ Amazonka.DeviceFarm.Lens: getTestResponse_test :: Lens' GetTestResponse (Maybe Test)
+ Amazonka.DeviceFarm.Lens: getTest_arn :: Lens' GetTest Text
+ Amazonka.DeviceFarm.Lens: getUploadResponse_httpStatus :: Lens' GetUploadResponse Int
+ Amazonka.DeviceFarm.Lens: getUploadResponse_upload :: Lens' GetUploadResponse (Maybe Upload)
+ Amazonka.DeviceFarm.Lens: getUpload_arn :: Lens' GetUpload Text
+ Amazonka.DeviceFarm.Lens: getVPCEConfigurationResponse_httpStatus :: Lens' GetVPCEConfigurationResponse Int
+ Amazonka.DeviceFarm.Lens: getVPCEConfigurationResponse_vpceConfiguration :: Lens' GetVPCEConfigurationResponse (Maybe VPCEConfiguration)
+ Amazonka.DeviceFarm.Lens: getVPCEConfiguration_arn :: Lens' GetVPCEConfiguration Text
+ Amazonka.DeviceFarm.Lens: incompatibilityMessage_message :: Lens' IncompatibilityMessage (Maybe Text)
+ Amazonka.DeviceFarm.Lens: incompatibilityMessage_type :: Lens' IncompatibilityMessage (Maybe DeviceAttribute)
+ Amazonka.DeviceFarm.Lens: installToRemoteAccessSessionResponse_appUpload :: Lens' InstallToRemoteAccessSessionResponse (Maybe Upload)
+ Amazonka.DeviceFarm.Lens: installToRemoteAccessSessionResponse_httpStatus :: Lens' InstallToRemoteAccessSessionResponse Int
+ Amazonka.DeviceFarm.Lens: installToRemoteAccessSession_appArn :: Lens' InstallToRemoteAccessSession Text
+ Amazonka.DeviceFarm.Lens: installToRemoteAccessSession_remoteAccessSessionArn :: Lens' InstallToRemoteAccessSession Text
+ Amazonka.DeviceFarm.Lens: instanceProfile_arn :: Lens' InstanceProfile (Maybe Text)
+ Amazonka.DeviceFarm.Lens: instanceProfile_description :: Lens' InstanceProfile (Maybe Text)
+ Amazonka.DeviceFarm.Lens: instanceProfile_excludeAppPackagesFromCleanup :: Lens' InstanceProfile (Maybe [Text])
+ Amazonka.DeviceFarm.Lens: instanceProfile_name :: Lens' InstanceProfile (Maybe Text)
+ Amazonka.DeviceFarm.Lens: instanceProfile_packageCleanup :: Lens' InstanceProfile (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: instanceProfile_rebootAfterUse :: Lens' InstanceProfile (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: job_arn :: Lens' Job (Maybe Text)
+ Amazonka.DeviceFarm.Lens: job_counters :: Lens' Job (Maybe Counters)
+ Amazonka.DeviceFarm.Lens: job_created :: Lens' Job (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: job_device :: Lens' Job (Maybe Device)
+ Amazonka.DeviceFarm.Lens: job_deviceMinutes :: Lens' Job (Maybe DeviceMinutes)
+ Amazonka.DeviceFarm.Lens: job_instanceArn :: Lens' Job (Maybe Text)
+ Amazonka.DeviceFarm.Lens: job_message :: Lens' Job (Maybe Text)
+ Amazonka.DeviceFarm.Lens: job_name :: Lens' Job (Maybe Text)
+ Amazonka.DeviceFarm.Lens: job_result :: Lens' Job (Maybe ExecutionResult)
+ Amazonka.DeviceFarm.Lens: job_started :: Lens' Job (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: job_status :: Lens' Job (Maybe ExecutionStatus)
+ Amazonka.DeviceFarm.Lens: job_stopped :: Lens' Job (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: job_type :: Lens' Job (Maybe TestType)
+ Amazonka.DeviceFarm.Lens: job_videoCapture :: Lens' Job (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: job_videoEndpoint :: Lens' Job (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listArtifactsResponse_artifacts :: Lens' ListArtifactsResponse (Maybe [Artifact])
+ Amazonka.DeviceFarm.Lens: listArtifactsResponse_httpStatus :: Lens' ListArtifactsResponse Int
+ Amazonka.DeviceFarm.Lens: listArtifactsResponse_nextToken :: Lens' ListArtifactsResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listArtifacts_arn :: Lens' ListArtifacts Text
+ Amazonka.DeviceFarm.Lens: listArtifacts_nextToken :: Lens' ListArtifacts (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listArtifacts_type :: Lens' ListArtifacts ArtifactCategory
+ Amazonka.DeviceFarm.Lens: listDeviceInstancesResponse_deviceInstances :: Lens' ListDeviceInstancesResponse (Maybe [DeviceInstance])
+ Amazonka.DeviceFarm.Lens: listDeviceInstancesResponse_httpStatus :: Lens' ListDeviceInstancesResponse Int
+ Amazonka.DeviceFarm.Lens: listDeviceInstancesResponse_nextToken :: Lens' ListDeviceInstancesResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listDeviceInstances_maxResults :: Lens' ListDeviceInstances (Maybe Int)
+ Amazonka.DeviceFarm.Lens: listDeviceInstances_nextToken :: Lens' ListDeviceInstances (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listDevicePoolsResponse_devicePools :: Lens' ListDevicePoolsResponse (Maybe [DevicePool])
+ Amazonka.DeviceFarm.Lens: listDevicePoolsResponse_httpStatus :: Lens' ListDevicePoolsResponse Int
+ Amazonka.DeviceFarm.Lens: listDevicePoolsResponse_nextToken :: Lens' ListDevicePoolsResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listDevicePools_arn :: Lens' ListDevicePools Text
+ Amazonka.DeviceFarm.Lens: listDevicePools_nextToken :: Lens' ListDevicePools (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listDevicePools_type :: Lens' ListDevicePools (Maybe DevicePoolType)
+ Amazonka.DeviceFarm.Lens: listDevicesResponse_devices :: Lens' ListDevicesResponse (Maybe [Device])
+ Amazonka.DeviceFarm.Lens: listDevicesResponse_httpStatus :: Lens' ListDevicesResponse Int
+ Amazonka.DeviceFarm.Lens: listDevicesResponse_nextToken :: Lens' ListDevicesResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listDevices_arn :: Lens' ListDevices (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listDevices_filters :: Lens' ListDevices (Maybe [DeviceFilter])
+ Amazonka.DeviceFarm.Lens: listDevices_nextToken :: Lens' ListDevices (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listInstanceProfilesResponse_httpStatus :: Lens' ListInstanceProfilesResponse Int
+ Amazonka.DeviceFarm.Lens: listInstanceProfilesResponse_instanceProfiles :: Lens' ListInstanceProfilesResponse (Maybe [InstanceProfile])
+ Amazonka.DeviceFarm.Lens: listInstanceProfilesResponse_nextToken :: Lens' ListInstanceProfilesResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listInstanceProfiles_maxResults :: Lens' ListInstanceProfiles (Maybe Int)
+ Amazonka.DeviceFarm.Lens: listInstanceProfiles_nextToken :: Lens' ListInstanceProfiles (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listJobsResponse_httpStatus :: Lens' ListJobsResponse Int
+ Amazonka.DeviceFarm.Lens: listJobsResponse_jobs :: Lens' ListJobsResponse (Maybe [Job])
+ Amazonka.DeviceFarm.Lens: listJobsResponse_nextToken :: Lens' ListJobsResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listJobs_arn :: Lens' ListJobs Text
+ Amazonka.DeviceFarm.Lens: listJobs_nextToken :: Lens' ListJobs (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listNetworkProfilesResponse_httpStatus :: Lens' ListNetworkProfilesResponse Int
+ Amazonka.DeviceFarm.Lens: listNetworkProfilesResponse_networkProfiles :: Lens' ListNetworkProfilesResponse (Maybe [NetworkProfile])
+ Amazonka.DeviceFarm.Lens: listNetworkProfilesResponse_nextToken :: Lens' ListNetworkProfilesResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listNetworkProfiles_arn :: Lens' ListNetworkProfiles Text
+ Amazonka.DeviceFarm.Lens: listNetworkProfiles_nextToken :: Lens' ListNetworkProfiles (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listNetworkProfiles_type :: Lens' ListNetworkProfiles (Maybe NetworkProfileType)
+ Amazonka.DeviceFarm.Lens: listOfferingPromotionsResponse_httpStatus :: Lens' ListOfferingPromotionsResponse Int
+ Amazonka.DeviceFarm.Lens: listOfferingPromotionsResponse_nextToken :: Lens' ListOfferingPromotionsResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listOfferingPromotionsResponse_offeringPromotions :: Lens' ListOfferingPromotionsResponse (Maybe [OfferingPromotion])
+ Amazonka.DeviceFarm.Lens: listOfferingPromotions_nextToken :: Lens' ListOfferingPromotions (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listOfferingTransactionsResponse_httpStatus :: Lens' ListOfferingTransactionsResponse Int
+ Amazonka.DeviceFarm.Lens: listOfferingTransactionsResponse_nextToken :: Lens' ListOfferingTransactionsResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listOfferingTransactionsResponse_offeringTransactions :: Lens' ListOfferingTransactionsResponse (Maybe [OfferingTransaction])
+ Amazonka.DeviceFarm.Lens: listOfferingTransactions_nextToken :: Lens' ListOfferingTransactions (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listOfferingsResponse_httpStatus :: Lens' ListOfferingsResponse Int
+ Amazonka.DeviceFarm.Lens: listOfferingsResponse_nextToken :: Lens' ListOfferingsResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listOfferingsResponse_offerings :: Lens' ListOfferingsResponse (Maybe [Offering])
+ Amazonka.DeviceFarm.Lens: listOfferings_nextToken :: Lens' ListOfferings (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listProjectsResponse_httpStatus :: Lens' ListProjectsResponse Int
+ Amazonka.DeviceFarm.Lens: listProjectsResponse_nextToken :: Lens' ListProjectsResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listProjectsResponse_projects :: Lens' ListProjectsResponse (Maybe [Project])
+ Amazonka.DeviceFarm.Lens: listProjects_arn :: Lens' ListProjects (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listProjects_nextToken :: Lens' ListProjects (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listRemoteAccessSessionsResponse_httpStatus :: Lens' ListRemoteAccessSessionsResponse Int
+ Amazonka.DeviceFarm.Lens: listRemoteAccessSessionsResponse_nextToken :: Lens' ListRemoteAccessSessionsResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listRemoteAccessSessionsResponse_remoteAccessSessions :: Lens' ListRemoteAccessSessionsResponse (Maybe [RemoteAccessSession])
+ Amazonka.DeviceFarm.Lens: listRemoteAccessSessions_arn :: Lens' ListRemoteAccessSessions Text
+ Amazonka.DeviceFarm.Lens: listRemoteAccessSessions_nextToken :: Lens' ListRemoteAccessSessions (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listRunsResponse_httpStatus :: Lens' ListRunsResponse Int
+ Amazonka.DeviceFarm.Lens: listRunsResponse_nextToken :: Lens' ListRunsResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listRunsResponse_runs :: Lens' ListRunsResponse (Maybe [Run])
+ Amazonka.DeviceFarm.Lens: listRuns_arn :: Lens' ListRuns Text
+ Amazonka.DeviceFarm.Lens: listRuns_nextToken :: Lens' ListRuns (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listSamplesResponse_httpStatus :: Lens' ListSamplesResponse Int
+ Amazonka.DeviceFarm.Lens: listSamplesResponse_nextToken :: Lens' ListSamplesResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listSamplesResponse_samples :: Lens' ListSamplesResponse (Maybe [Sample])
+ Amazonka.DeviceFarm.Lens: listSamples_arn :: Lens' ListSamples Text
+ Amazonka.DeviceFarm.Lens: listSamples_nextToken :: Lens' ListSamples (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listSuitesResponse_httpStatus :: Lens' ListSuitesResponse Int
+ Amazonka.DeviceFarm.Lens: listSuitesResponse_nextToken :: Lens' ListSuitesResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listSuitesResponse_suites :: Lens' ListSuitesResponse (Maybe [Suite])
+ Amazonka.DeviceFarm.Lens: listSuites_arn :: Lens' ListSuites Text
+ Amazonka.DeviceFarm.Lens: listSuites_nextToken :: Lens' ListSuites (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listTagsForResourceResponse_httpStatus :: Lens' ListTagsForResourceResponse Int
+ Amazonka.DeviceFarm.Lens: listTagsForResourceResponse_tags :: Lens' ListTagsForResourceResponse (Maybe [Tag])
+ Amazonka.DeviceFarm.Lens: listTagsForResource_resourceARN :: Lens' ListTagsForResource Text
+ Amazonka.DeviceFarm.Lens: listTestGridProjectsResponse_httpStatus :: Lens' ListTestGridProjectsResponse Int
+ Amazonka.DeviceFarm.Lens: listTestGridProjectsResponse_nextToken :: Lens' ListTestGridProjectsResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listTestGridProjectsResponse_testGridProjects :: Lens' ListTestGridProjectsResponse (Maybe [TestGridProject])
+ Amazonka.DeviceFarm.Lens: listTestGridProjects_maxResult :: Lens' ListTestGridProjects (Maybe Natural)
+ Amazonka.DeviceFarm.Lens: listTestGridProjects_nextToken :: Lens' ListTestGridProjects (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listTestGridSessionActionsResponse_actions :: Lens' ListTestGridSessionActionsResponse (Maybe [TestGridSessionAction])
+ Amazonka.DeviceFarm.Lens: listTestGridSessionActionsResponse_httpStatus :: Lens' ListTestGridSessionActionsResponse Int
+ Amazonka.DeviceFarm.Lens: listTestGridSessionActionsResponse_nextToken :: Lens' ListTestGridSessionActionsResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listTestGridSessionActions_maxResult :: Lens' ListTestGridSessionActions (Maybe Natural)
+ Amazonka.DeviceFarm.Lens: listTestGridSessionActions_nextToken :: Lens' ListTestGridSessionActions (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listTestGridSessionActions_sessionArn :: Lens' ListTestGridSessionActions Text
+ Amazonka.DeviceFarm.Lens: listTestGridSessionArtifactsResponse_artifacts :: Lens' ListTestGridSessionArtifactsResponse (Maybe [TestGridSessionArtifact])
+ Amazonka.DeviceFarm.Lens: listTestGridSessionArtifactsResponse_httpStatus :: Lens' ListTestGridSessionArtifactsResponse Int
+ Amazonka.DeviceFarm.Lens: listTestGridSessionArtifactsResponse_nextToken :: Lens' ListTestGridSessionArtifactsResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listTestGridSessionArtifacts_maxResult :: Lens' ListTestGridSessionArtifacts (Maybe Natural)
+ Amazonka.DeviceFarm.Lens: listTestGridSessionArtifacts_nextToken :: Lens' ListTestGridSessionArtifacts (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listTestGridSessionArtifacts_sessionArn :: Lens' ListTestGridSessionArtifacts Text
+ Amazonka.DeviceFarm.Lens: listTestGridSessionArtifacts_type :: Lens' ListTestGridSessionArtifacts (Maybe TestGridSessionArtifactCategory)
+ Amazonka.DeviceFarm.Lens: listTestGridSessionsResponse_httpStatus :: Lens' ListTestGridSessionsResponse Int
+ Amazonka.DeviceFarm.Lens: listTestGridSessionsResponse_nextToken :: Lens' ListTestGridSessionsResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listTestGridSessionsResponse_testGridSessions :: Lens' ListTestGridSessionsResponse (Maybe [TestGridSession])
+ Amazonka.DeviceFarm.Lens: listTestGridSessions_creationTimeAfter :: Lens' ListTestGridSessions (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: listTestGridSessions_creationTimeBefore :: Lens' ListTestGridSessions (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: listTestGridSessions_endTimeAfter :: Lens' ListTestGridSessions (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: listTestGridSessions_endTimeBefore :: Lens' ListTestGridSessions (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: listTestGridSessions_maxResult :: Lens' ListTestGridSessions (Maybe Natural)
+ Amazonka.DeviceFarm.Lens: listTestGridSessions_nextToken :: Lens' ListTestGridSessions (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listTestGridSessions_projectArn :: Lens' ListTestGridSessions Text
+ Amazonka.DeviceFarm.Lens: listTestGridSessions_status :: Lens' ListTestGridSessions (Maybe TestGridSessionStatus)
+ Amazonka.DeviceFarm.Lens: listTestsResponse_httpStatus :: Lens' ListTestsResponse Int
+ Amazonka.DeviceFarm.Lens: listTestsResponse_nextToken :: Lens' ListTestsResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listTestsResponse_tests :: Lens' ListTestsResponse (Maybe [Test])
+ Amazonka.DeviceFarm.Lens: listTests_arn :: Lens' ListTests Text
+ Amazonka.DeviceFarm.Lens: listTests_nextToken :: Lens' ListTests (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listUniqueProblemsResponse_httpStatus :: Lens' ListUniqueProblemsResponse Int
+ Amazonka.DeviceFarm.Lens: listUniqueProblemsResponse_nextToken :: Lens' ListUniqueProblemsResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listUniqueProblemsResponse_uniqueProblems :: Lens' ListUniqueProblemsResponse (Maybe (HashMap ExecutionResult [UniqueProblem]))
+ Amazonka.DeviceFarm.Lens: listUniqueProblems_arn :: Lens' ListUniqueProblems Text
+ Amazonka.DeviceFarm.Lens: listUniqueProblems_nextToken :: Lens' ListUniqueProblems (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listUploadsResponse_httpStatus :: Lens' ListUploadsResponse Int
+ Amazonka.DeviceFarm.Lens: listUploadsResponse_nextToken :: Lens' ListUploadsResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listUploadsResponse_uploads :: Lens' ListUploadsResponse (Maybe [Upload])
+ Amazonka.DeviceFarm.Lens: listUploads_arn :: Lens' ListUploads Text
+ Amazonka.DeviceFarm.Lens: listUploads_nextToken :: Lens' ListUploads (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listUploads_type :: Lens' ListUploads (Maybe UploadType)
+ Amazonka.DeviceFarm.Lens: listVPCEConfigurationsResponse_httpStatus :: Lens' ListVPCEConfigurationsResponse Int
+ Amazonka.DeviceFarm.Lens: listVPCEConfigurationsResponse_nextToken :: Lens' ListVPCEConfigurationsResponse (Maybe Text)
+ Amazonka.DeviceFarm.Lens: listVPCEConfigurationsResponse_vpceConfigurations :: Lens' ListVPCEConfigurationsResponse (Maybe [VPCEConfiguration])
+ Amazonka.DeviceFarm.Lens: listVPCEConfigurations_maxResults :: Lens' ListVPCEConfigurations (Maybe Int)
+ Amazonka.DeviceFarm.Lens: listVPCEConfigurations_nextToken :: Lens' ListVPCEConfigurations (Maybe Text)
+ Amazonka.DeviceFarm.Lens: location_latitude :: Lens' Location Double
+ Amazonka.DeviceFarm.Lens: location_longitude :: Lens' Location Double
+ Amazonka.DeviceFarm.Lens: monetaryAmount_amount :: Lens' MonetaryAmount (Maybe Double)
+ Amazonka.DeviceFarm.Lens: monetaryAmount_currencyCode :: Lens' MonetaryAmount (Maybe CurrencyCode)
+ Amazonka.DeviceFarm.Lens: networkProfile_arn :: Lens' NetworkProfile (Maybe Text)
+ Amazonka.DeviceFarm.Lens: networkProfile_description :: Lens' NetworkProfile (Maybe Text)
+ Amazonka.DeviceFarm.Lens: networkProfile_downlinkBandwidthBits :: Lens' NetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Lens: networkProfile_downlinkDelayMs :: Lens' NetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Lens: networkProfile_downlinkJitterMs :: Lens' NetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Lens: networkProfile_downlinkLossPercent :: Lens' NetworkProfile (Maybe Natural)
+ Amazonka.DeviceFarm.Lens: networkProfile_name :: Lens' NetworkProfile (Maybe Text)
+ Amazonka.DeviceFarm.Lens: networkProfile_type :: Lens' NetworkProfile (Maybe NetworkProfileType)
+ Amazonka.DeviceFarm.Lens: networkProfile_uplinkBandwidthBits :: Lens' NetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Lens: networkProfile_uplinkDelayMs :: Lens' NetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Lens: networkProfile_uplinkJitterMs :: Lens' NetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Lens: networkProfile_uplinkLossPercent :: Lens' NetworkProfile (Maybe Natural)
+ Amazonka.DeviceFarm.Lens: offeringPromotion_description :: Lens' OfferingPromotion (Maybe Text)
+ Amazonka.DeviceFarm.Lens: offeringPromotion_id :: Lens' OfferingPromotion (Maybe Text)
+ Amazonka.DeviceFarm.Lens: offeringStatus_effectiveOn :: Lens' OfferingStatus (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: offeringStatus_offering :: Lens' OfferingStatus (Maybe Offering)
+ Amazonka.DeviceFarm.Lens: offeringStatus_quantity :: Lens' OfferingStatus (Maybe Int)
+ Amazonka.DeviceFarm.Lens: offeringStatus_type :: Lens' OfferingStatus (Maybe OfferingTransactionType)
+ Amazonka.DeviceFarm.Lens: offeringTransaction_cost :: Lens' OfferingTransaction (Maybe MonetaryAmount)
+ Amazonka.DeviceFarm.Lens: offeringTransaction_createdOn :: Lens' OfferingTransaction (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: offeringTransaction_offeringPromotionId :: Lens' OfferingTransaction (Maybe Text)
+ Amazonka.DeviceFarm.Lens: offeringTransaction_offeringStatus :: Lens' OfferingTransaction (Maybe OfferingStatus)
+ Amazonka.DeviceFarm.Lens: offeringTransaction_transactionId :: Lens' OfferingTransaction (Maybe Text)
+ Amazonka.DeviceFarm.Lens: offering_description :: Lens' Offering (Maybe Text)
+ Amazonka.DeviceFarm.Lens: offering_id :: Lens' Offering (Maybe Text)
+ Amazonka.DeviceFarm.Lens: offering_platform :: Lens' Offering (Maybe DevicePlatform)
+ Amazonka.DeviceFarm.Lens: offering_recurringCharges :: Lens' Offering (Maybe [RecurringCharge])
+ Amazonka.DeviceFarm.Lens: offering_type :: Lens' Offering (Maybe OfferingType)
+ Amazonka.DeviceFarm.Lens: problemDetail_arn :: Lens' ProblemDetail (Maybe Text)
+ Amazonka.DeviceFarm.Lens: problemDetail_name :: Lens' ProblemDetail (Maybe Text)
+ Amazonka.DeviceFarm.Lens: problem_device :: Lens' Problem (Maybe Device)
+ Amazonka.DeviceFarm.Lens: problem_job :: Lens' Problem (Maybe ProblemDetail)
+ Amazonka.DeviceFarm.Lens: problem_message :: Lens' Problem (Maybe Text)
+ Amazonka.DeviceFarm.Lens: problem_result :: Lens' Problem (Maybe ExecutionResult)
+ Amazonka.DeviceFarm.Lens: problem_run :: Lens' Problem (Maybe ProblemDetail)
+ Amazonka.DeviceFarm.Lens: problem_suite :: Lens' Problem (Maybe ProblemDetail)
+ Amazonka.DeviceFarm.Lens: problem_test :: Lens' Problem (Maybe ProblemDetail)
+ Amazonka.DeviceFarm.Lens: project_arn :: Lens' Project (Maybe Text)
+ Amazonka.DeviceFarm.Lens: project_created :: Lens' Project (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: project_defaultJobTimeoutMinutes :: Lens' Project (Maybe Int)
+ Amazonka.DeviceFarm.Lens: project_name :: Lens' Project (Maybe Text)
+ Amazonka.DeviceFarm.Lens: project_vpcConfig :: Lens' Project (Maybe VpcConfig)
+ Amazonka.DeviceFarm.Lens: purchaseOfferingResponse_httpStatus :: Lens' PurchaseOfferingResponse Int
+ Amazonka.DeviceFarm.Lens: purchaseOfferingResponse_offeringTransaction :: Lens' PurchaseOfferingResponse (Maybe OfferingTransaction)
+ Amazonka.DeviceFarm.Lens: purchaseOffering_offeringId :: Lens' PurchaseOffering Text
+ Amazonka.DeviceFarm.Lens: purchaseOffering_offeringPromotionId :: Lens' PurchaseOffering (Maybe Text)
+ Amazonka.DeviceFarm.Lens: purchaseOffering_quantity :: Lens' PurchaseOffering Int
+ Amazonka.DeviceFarm.Lens: radios_bluetooth :: Lens' Radios (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: radios_gps :: Lens' Radios (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: radios_nfc :: Lens' Radios (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: radios_wifi :: Lens' Radios (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: recurringCharge_cost :: Lens' RecurringCharge (Maybe MonetaryAmount)
+ Amazonka.DeviceFarm.Lens: recurringCharge_frequency :: Lens' RecurringCharge (Maybe RecurringChargeFrequency)
+ Amazonka.DeviceFarm.Lens: remoteAccessSession_arn :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Lens: remoteAccessSession_billingMethod :: Lens' RemoteAccessSession (Maybe BillingMethod)
+ Amazonka.DeviceFarm.Lens: remoteAccessSession_clientId :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Lens: remoteAccessSession_created :: Lens' RemoteAccessSession (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: remoteAccessSession_device :: Lens' RemoteAccessSession (Maybe Device)
+ Amazonka.DeviceFarm.Lens: remoteAccessSession_deviceMinutes :: Lens' RemoteAccessSession (Maybe DeviceMinutes)
+ Amazonka.DeviceFarm.Lens: remoteAccessSession_deviceUdid :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Lens: remoteAccessSession_endpoint :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Lens: remoteAccessSession_hostAddress :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Lens: remoteAccessSession_instanceArn :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Lens: remoteAccessSession_interactionMode :: Lens' RemoteAccessSession (Maybe InteractionMode)
+ Amazonka.DeviceFarm.Lens: remoteAccessSession_message :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Lens: remoteAccessSession_name :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Lens: remoteAccessSession_remoteDebugEnabled :: Lens' RemoteAccessSession (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: remoteAccessSession_remoteRecordAppArn :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Lens: remoteAccessSession_remoteRecordEnabled :: Lens' RemoteAccessSession (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: remoteAccessSession_result :: Lens' RemoteAccessSession (Maybe ExecutionResult)
+ Amazonka.DeviceFarm.Lens: remoteAccessSession_skipAppResign :: Lens' RemoteAccessSession (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: remoteAccessSession_started :: Lens' RemoteAccessSession (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: remoteAccessSession_status :: Lens' RemoteAccessSession (Maybe ExecutionStatus)
+ Amazonka.DeviceFarm.Lens: remoteAccessSession_stopped :: Lens' RemoteAccessSession (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: remoteAccessSession_vpcConfig :: Lens' RemoteAccessSession (Maybe VpcConfig)
+ Amazonka.DeviceFarm.Lens: renewOfferingResponse_httpStatus :: Lens' RenewOfferingResponse Int
+ Amazonka.DeviceFarm.Lens: renewOfferingResponse_offeringTransaction :: Lens' RenewOfferingResponse (Maybe OfferingTransaction)
+ Amazonka.DeviceFarm.Lens: renewOffering_offeringId :: Lens' RenewOffering Text
+ Amazonka.DeviceFarm.Lens: renewOffering_quantity :: Lens' RenewOffering Int
+ Amazonka.DeviceFarm.Lens: resolution_height :: Lens' Resolution (Maybe Int)
+ Amazonka.DeviceFarm.Lens: resolution_width :: Lens' Resolution (Maybe Int)
+ Amazonka.DeviceFarm.Lens: rule_attribute :: Lens' Rule (Maybe DeviceAttribute)
+ Amazonka.DeviceFarm.Lens: rule_operator :: Lens' Rule (Maybe RuleOperator)
+ Amazonka.DeviceFarm.Lens: rule_value :: Lens' Rule (Maybe Text)
+ Amazonka.DeviceFarm.Lens: run_appUpload :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Lens: run_arn :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Lens: run_billingMethod :: Lens' Run (Maybe BillingMethod)
+ Amazonka.DeviceFarm.Lens: run_completedJobs :: Lens' Run (Maybe Int)
+ Amazonka.DeviceFarm.Lens: run_counters :: Lens' Run (Maybe Counters)
+ Amazonka.DeviceFarm.Lens: run_created :: Lens' Run (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: run_customerArtifactPaths :: Lens' Run (Maybe CustomerArtifactPaths)
+ Amazonka.DeviceFarm.Lens: run_deviceMinutes :: Lens' Run (Maybe DeviceMinutes)
+ Amazonka.DeviceFarm.Lens: run_devicePoolArn :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Lens: run_deviceSelectionResult :: Lens' Run (Maybe DeviceSelectionResult)
+ Amazonka.DeviceFarm.Lens: run_eventCount :: Lens' Run (Maybe Int)
+ Amazonka.DeviceFarm.Lens: run_jobTimeoutMinutes :: Lens' Run (Maybe Int)
+ Amazonka.DeviceFarm.Lens: run_locale :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Lens: run_location :: Lens' Run (Maybe Location)
+ Amazonka.DeviceFarm.Lens: run_message :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Lens: run_name :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Lens: run_networkProfile :: Lens' Run (Maybe NetworkProfile)
+ Amazonka.DeviceFarm.Lens: run_parsingResultUrl :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Lens: run_platform :: Lens' Run (Maybe DevicePlatform)
+ Amazonka.DeviceFarm.Lens: run_radios :: Lens' Run (Maybe Radios)
+ Amazonka.DeviceFarm.Lens: run_result :: Lens' Run (Maybe ExecutionResult)
+ Amazonka.DeviceFarm.Lens: run_resultCode :: Lens' Run (Maybe ExecutionResultCode)
+ Amazonka.DeviceFarm.Lens: run_seed :: Lens' Run (Maybe Int)
+ Amazonka.DeviceFarm.Lens: run_skipAppResign :: Lens' Run (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: run_started :: Lens' Run (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: run_status :: Lens' Run (Maybe ExecutionStatus)
+ Amazonka.DeviceFarm.Lens: run_stopped :: Lens' Run (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: run_testSpecArn :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Lens: run_totalJobs :: Lens' Run (Maybe Int)
+ Amazonka.DeviceFarm.Lens: run_type :: Lens' Run (Maybe TestType)
+ Amazonka.DeviceFarm.Lens: run_vpcConfig :: Lens' Run (Maybe VpcConfig)
+ Amazonka.DeviceFarm.Lens: run_webUrl :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Lens: sample_arn :: Lens' Sample (Maybe Text)
+ Amazonka.DeviceFarm.Lens: sample_type :: Lens' Sample (Maybe SampleType)
+ Amazonka.DeviceFarm.Lens: sample_url :: Lens' Sample (Maybe Text)
+ Amazonka.DeviceFarm.Lens: scheduleRunConfiguration_auxiliaryApps :: Lens' ScheduleRunConfiguration (Maybe [Text])
+ Amazonka.DeviceFarm.Lens: scheduleRunConfiguration_billingMethod :: Lens' ScheduleRunConfiguration (Maybe BillingMethod)
+ Amazonka.DeviceFarm.Lens: scheduleRunConfiguration_customerArtifactPaths :: Lens' ScheduleRunConfiguration (Maybe CustomerArtifactPaths)
+ Amazonka.DeviceFarm.Lens: scheduleRunConfiguration_extraDataPackageArn :: Lens' ScheduleRunConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Lens: scheduleRunConfiguration_locale :: Lens' ScheduleRunConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Lens: scheduleRunConfiguration_location :: Lens' ScheduleRunConfiguration (Maybe Location)
+ Amazonka.DeviceFarm.Lens: scheduleRunConfiguration_networkProfileArn :: Lens' ScheduleRunConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Lens: scheduleRunConfiguration_radios :: Lens' ScheduleRunConfiguration (Maybe Radios)
+ Amazonka.DeviceFarm.Lens: scheduleRunConfiguration_vpceConfigurationArns :: Lens' ScheduleRunConfiguration (Maybe [Text])
+ Amazonka.DeviceFarm.Lens: scheduleRunResponse_httpStatus :: Lens' ScheduleRunResponse Int
+ Amazonka.DeviceFarm.Lens: scheduleRunResponse_run :: Lens' ScheduleRunResponse (Maybe Run)
+ Amazonka.DeviceFarm.Lens: scheduleRunTest_filter :: Lens' ScheduleRunTest (Maybe Text)
+ Amazonka.DeviceFarm.Lens: scheduleRunTest_parameters :: Lens' ScheduleRunTest (Maybe (HashMap Text Text))
+ Amazonka.DeviceFarm.Lens: scheduleRunTest_testPackageArn :: Lens' ScheduleRunTest (Maybe Text)
+ Amazonka.DeviceFarm.Lens: scheduleRunTest_testSpecArn :: Lens' ScheduleRunTest (Maybe Text)
+ Amazonka.DeviceFarm.Lens: scheduleRunTest_type :: Lens' ScheduleRunTest TestType
+ Amazonka.DeviceFarm.Lens: scheduleRun_appArn :: Lens' ScheduleRun (Maybe Text)
+ Amazonka.DeviceFarm.Lens: scheduleRun_configuration :: Lens' ScheduleRun (Maybe ScheduleRunConfiguration)
+ Amazonka.DeviceFarm.Lens: scheduleRun_devicePoolArn :: Lens' ScheduleRun (Maybe Text)
+ Amazonka.DeviceFarm.Lens: scheduleRun_deviceSelectionConfiguration :: Lens' ScheduleRun (Maybe DeviceSelectionConfiguration)
+ Amazonka.DeviceFarm.Lens: scheduleRun_executionConfiguration :: Lens' ScheduleRun (Maybe ExecutionConfiguration)
+ Amazonka.DeviceFarm.Lens: scheduleRun_name :: Lens' ScheduleRun (Maybe Text)
+ Amazonka.DeviceFarm.Lens: scheduleRun_projectArn :: Lens' ScheduleRun Text
+ Amazonka.DeviceFarm.Lens: scheduleRun_test :: Lens' ScheduleRun ScheduleRunTest
+ Amazonka.DeviceFarm.Lens: stopJobResponse_httpStatus :: Lens' StopJobResponse Int
+ Amazonka.DeviceFarm.Lens: stopJobResponse_job :: Lens' StopJobResponse (Maybe Job)
+ Amazonka.DeviceFarm.Lens: stopJob_arn :: Lens' StopJob Text
+ Amazonka.DeviceFarm.Lens: stopRemoteAccessSessionResponse_httpStatus :: Lens' StopRemoteAccessSessionResponse Int
+ Amazonka.DeviceFarm.Lens: stopRemoteAccessSessionResponse_remoteAccessSession :: Lens' StopRemoteAccessSessionResponse (Maybe RemoteAccessSession)
+ Amazonka.DeviceFarm.Lens: stopRemoteAccessSession_arn :: Lens' StopRemoteAccessSession Text
+ Amazonka.DeviceFarm.Lens: stopRunResponse_httpStatus :: Lens' StopRunResponse Int
+ Amazonka.DeviceFarm.Lens: stopRunResponse_run :: Lens' StopRunResponse (Maybe Run)
+ Amazonka.DeviceFarm.Lens: stopRun_arn :: Lens' StopRun Text
+ Amazonka.DeviceFarm.Lens: suite_arn :: Lens' Suite (Maybe Text)
+ Amazonka.DeviceFarm.Lens: suite_counters :: Lens' Suite (Maybe Counters)
+ Amazonka.DeviceFarm.Lens: suite_created :: Lens' Suite (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: suite_deviceMinutes :: Lens' Suite (Maybe DeviceMinutes)
+ Amazonka.DeviceFarm.Lens: suite_message :: Lens' Suite (Maybe Text)
+ Amazonka.DeviceFarm.Lens: suite_name :: Lens' Suite (Maybe Text)
+ Amazonka.DeviceFarm.Lens: suite_result :: Lens' Suite (Maybe ExecutionResult)
+ Amazonka.DeviceFarm.Lens: suite_started :: Lens' Suite (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: suite_status :: Lens' Suite (Maybe ExecutionStatus)
+ Amazonka.DeviceFarm.Lens: suite_stopped :: Lens' Suite (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: suite_type :: Lens' Suite (Maybe TestType)
+ Amazonka.DeviceFarm.Lens: tagResourceResponse_httpStatus :: Lens' TagResourceResponse Int
+ Amazonka.DeviceFarm.Lens: tagResource_resourceARN :: Lens' TagResource Text
+ Amazonka.DeviceFarm.Lens: tagResource_tags :: Lens' TagResource [Tag]
+ Amazonka.DeviceFarm.Lens: tag_key :: Lens' Tag Text
+ Amazonka.DeviceFarm.Lens: tag_value :: Lens' Tag Text
+ Amazonka.DeviceFarm.Lens: testGridProject_arn :: Lens' TestGridProject (Maybe Text)
+ Amazonka.DeviceFarm.Lens: testGridProject_created :: Lens' TestGridProject (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: testGridProject_description :: Lens' TestGridProject (Maybe Text)
+ Amazonka.DeviceFarm.Lens: testGridProject_name :: Lens' TestGridProject (Maybe Text)
+ Amazonka.DeviceFarm.Lens: testGridProject_vpcConfig :: Lens' TestGridProject (Maybe TestGridVpcConfig)
+ Amazonka.DeviceFarm.Lens: testGridSessionAction_action :: Lens' TestGridSessionAction (Maybe Text)
+ Amazonka.DeviceFarm.Lens: testGridSessionAction_duration :: Lens' TestGridSessionAction (Maybe Integer)
+ Amazonka.DeviceFarm.Lens: testGridSessionAction_requestMethod :: Lens' TestGridSessionAction (Maybe Text)
+ Amazonka.DeviceFarm.Lens: testGridSessionAction_started :: Lens' TestGridSessionAction (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: testGridSessionAction_statusCode :: Lens' TestGridSessionAction (Maybe Text)
+ Amazonka.DeviceFarm.Lens: testGridSessionArtifact_filename :: Lens' TestGridSessionArtifact (Maybe Text)
+ Amazonka.DeviceFarm.Lens: testGridSessionArtifact_type :: Lens' TestGridSessionArtifact (Maybe TestGridSessionArtifactType)
+ Amazonka.DeviceFarm.Lens: testGridSessionArtifact_url :: Lens' TestGridSessionArtifact (Maybe Text)
+ Amazonka.DeviceFarm.Lens: testGridSession_arn :: Lens' TestGridSession (Maybe Text)
+ Amazonka.DeviceFarm.Lens: testGridSession_billingMinutes :: Lens' TestGridSession (Maybe Double)
+ Amazonka.DeviceFarm.Lens: testGridSession_created :: Lens' TestGridSession (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: testGridSession_ended :: Lens' TestGridSession (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: testGridSession_seleniumProperties :: Lens' TestGridSession (Maybe Text)
+ Amazonka.DeviceFarm.Lens: testGridSession_status :: Lens' TestGridSession (Maybe TestGridSessionStatus)
+ Amazonka.DeviceFarm.Lens: testGridVpcConfig_securityGroupIds :: Lens' TestGridVpcConfig (NonEmpty Text)
+ Amazonka.DeviceFarm.Lens: testGridVpcConfig_subnetIds :: Lens' TestGridVpcConfig (NonEmpty Text)
+ Amazonka.DeviceFarm.Lens: testGridVpcConfig_vpcId :: Lens' TestGridVpcConfig Text
+ Amazonka.DeviceFarm.Lens: test_arn :: Lens' Test (Maybe Text)
+ Amazonka.DeviceFarm.Lens: test_counters :: Lens' Test (Maybe Counters)
+ Amazonka.DeviceFarm.Lens: test_created :: Lens' Test (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: test_deviceMinutes :: Lens' Test (Maybe DeviceMinutes)
+ Amazonka.DeviceFarm.Lens: test_message :: Lens' Test (Maybe Text)
+ Amazonka.DeviceFarm.Lens: test_name :: Lens' Test (Maybe Text)
+ Amazonka.DeviceFarm.Lens: test_result :: Lens' Test (Maybe ExecutionResult)
+ Amazonka.DeviceFarm.Lens: test_started :: Lens' Test (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: test_status :: Lens' Test (Maybe ExecutionStatus)
+ Amazonka.DeviceFarm.Lens: test_stopped :: Lens' Test (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: test_type :: Lens' Test (Maybe TestType)
+ Amazonka.DeviceFarm.Lens: trialMinutes_remaining :: Lens' TrialMinutes (Maybe Double)
+ Amazonka.DeviceFarm.Lens: trialMinutes_total :: Lens' TrialMinutes (Maybe Double)
+ Amazonka.DeviceFarm.Lens: uniqueProblem_message :: Lens' UniqueProblem (Maybe Text)
+ Amazonka.DeviceFarm.Lens: uniqueProblem_problems :: Lens' UniqueProblem (Maybe [Problem])
+ Amazonka.DeviceFarm.Lens: untagResourceResponse_httpStatus :: Lens' UntagResourceResponse Int
+ Amazonka.DeviceFarm.Lens: untagResource_resourceARN :: Lens' UntagResource Text
+ Amazonka.DeviceFarm.Lens: untagResource_tagKeys :: Lens' UntagResource [Text]
+ Amazonka.DeviceFarm.Lens: updateDeviceInstanceResponse_deviceInstance :: Lens' UpdateDeviceInstanceResponse (Maybe DeviceInstance)
+ Amazonka.DeviceFarm.Lens: updateDeviceInstanceResponse_httpStatus :: Lens' UpdateDeviceInstanceResponse Int
+ Amazonka.DeviceFarm.Lens: updateDeviceInstance_arn :: Lens' UpdateDeviceInstance Text
+ Amazonka.DeviceFarm.Lens: updateDeviceInstance_labels :: Lens' UpdateDeviceInstance (Maybe [Text])
+ Amazonka.DeviceFarm.Lens: updateDeviceInstance_profileArn :: Lens' UpdateDeviceInstance (Maybe Text)
+ Amazonka.DeviceFarm.Lens: updateDevicePoolResponse_devicePool :: Lens' UpdateDevicePoolResponse (Maybe DevicePool)
+ Amazonka.DeviceFarm.Lens: updateDevicePoolResponse_httpStatus :: Lens' UpdateDevicePoolResponse Int
+ Amazonka.DeviceFarm.Lens: updateDevicePool_arn :: Lens' UpdateDevicePool Text
+ Amazonka.DeviceFarm.Lens: updateDevicePool_clearMaxDevices :: Lens' UpdateDevicePool (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: updateDevicePool_description :: Lens' UpdateDevicePool (Maybe Text)
+ Amazonka.DeviceFarm.Lens: updateDevicePool_maxDevices :: Lens' UpdateDevicePool (Maybe Int)
+ Amazonka.DeviceFarm.Lens: updateDevicePool_name :: Lens' UpdateDevicePool (Maybe Text)
+ Amazonka.DeviceFarm.Lens: updateDevicePool_rules :: Lens' UpdateDevicePool (Maybe [Rule])
+ Amazonka.DeviceFarm.Lens: updateInstanceProfileResponse_httpStatus :: Lens' UpdateInstanceProfileResponse Int
+ Amazonka.DeviceFarm.Lens: updateInstanceProfileResponse_instanceProfile :: Lens' UpdateInstanceProfileResponse (Maybe InstanceProfile)
+ Amazonka.DeviceFarm.Lens: updateInstanceProfile_arn :: Lens' UpdateInstanceProfile Text
+ Amazonka.DeviceFarm.Lens: updateInstanceProfile_description :: Lens' UpdateInstanceProfile (Maybe Text)
+ Amazonka.DeviceFarm.Lens: updateInstanceProfile_excludeAppPackagesFromCleanup :: Lens' UpdateInstanceProfile (Maybe [Text])
+ Amazonka.DeviceFarm.Lens: updateInstanceProfile_name :: Lens' UpdateInstanceProfile (Maybe Text)
+ Amazonka.DeviceFarm.Lens: updateInstanceProfile_packageCleanup :: Lens' UpdateInstanceProfile (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: updateInstanceProfile_rebootAfterUse :: Lens' UpdateInstanceProfile (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: updateNetworkProfileResponse_httpStatus :: Lens' UpdateNetworkProfileResponse Int
+ Amazonka.DeviceFarm.Lens: updateNetworkProfileResponse_networkProfile :: Lens' UpdateNetworkProfileResponse (Maybe NetworkProfile)
+ Amazonka.DeviceFarm.Lens: updateNetworkProfile_arn :: Lens' UpdateNetworkProfile Text
+ Amazonka.DeviceFarm.Lens: updateNetworkProfile_description :: Lens' UpdateNetworkProfile (Maybe Text)
+ Amazonka.DeviceFarm.Lens: updateNetworkProfile_downlinkBandwidthBits :: Lens' UpdateNetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Lens: updateNetworkProfile_downlinkDelayMs :: Lens' UpdateNetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Lens: updateNetworkProfile_downlinkJitterMs :: Lens' UpdateNetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Lens: updateNetworkProfile_downlinkLossPercent :: Lens' UpdateNetworkProfile (Maybe Natural)
+ Amazonka.DeviceFarm.Lens: updateNetworkProfile_name :: Lens' UpdateNetworkProfile (Maybe Text)
+ Amazonka.DeviceFarm.Lens: updateNetworkProfile_type :: Lens' UpdateNetworkProfile (Maybe NetworkProfileType)
+ Amazonka.DeviceFarm.Lens: updateNetworkProfile_uplinkBandwidthBits :: Lens' UpdateNetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Lens: updateNetworkProfile_uplinkDelayMs :: Lens' UpdateNetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Lens: updateNetworkProfile_uplinkJitterMs :: Lens' UpdateNetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Lens: updateNetworkProfile_uplinkLossPercent :: Lens' UpdateNetworkProfile (Maybe Natural)
+ Amazonka.DeviceFarm.Lens: updateProjectResponse_httpStatus :: Lens' UpdateProjectResponse Int
+ Amazonka.DeviceFarm.Lens: updateProjectResponse_project :: Lens' UpdateProjectResponse (Maybe Project)
+ Amazonka.DeviceFarm.Lens: updateProject_arn :: Lens' UpdateProject Text
+ Amazonka.DeviceFarm.Lens: updateProject_defaultJobTimeoutMinutes :: Lens' UpdateProject (Maybe Int)
+ Amazonka.DeviceFarm.Lens: updateProject_name :: Lens' UpdateProject (Maybe Text)
+ Amazonka.DeviceFarm.Lens: updateProject_vpcConfig :: Lens' UpdateProject (Maybe VpcConfig)
+ Amazonka.DeviceFarm.Lens: updateTestGridProjectResponse_httpStatus :: Lens' UpdateTestGridProjectResponse Int
+ Amazonka.DeviceFarm.Lens: updateTestGridProjectResponse_testGridProject :: Lens' UpdateTestGridProjectResponse (Maybe TestGridProject)
+ Amazonka.DeviceFarm.Lens: updateTestGridProject_description :: Lens' UpdateTestGridProject (Maybe Text)
+ Amazonka.DeviceFarm.Lens: updateTestGridProject_name :: Lens' UpdateTestGridProject (Maybe Text)
+ Amazonka.DeviceFarm.Lens: updateTestGridProject_projectArn :: Lens' UpdateTestGridProject Text
+ Amazonka.DeviceFarm.Lens: updateTestGridProject_vpcConfig :: Lens' UpdateTestGridProject (Maybe TestGridVpcConfig)
+ Amazonka.DeviceFarm.Lens: updateUploadResponse_httpStatus :: Lens' UpdateUploadResponse Int
+ Amazonka.DeviceFarm.Lens: updateUploadResponse_upload :: Lens' UpdateUploadResponse (Maybe Upload)
+ Amazonka.DeviceFarm.Lens: updateUpload_arn :: Lens' UpdateUpload Text
+ Amazonka.DeviceFarm.Lens: updateUpload_contentType :: Lens' UpdateUpload (Maybe Text)
+ Amazonka.DeviceFarm.Lens: updateUpload_editContent :: Lens' UpdateUpload (Maybe Bool)
+ Amazonka.DeviceFarm.Lens: updateUpload_name :: Lens' UpdateUpload (Maybe Text)
+ Amazonka.DeviceFarm.Lens: updateVPCEConfigurationResponse_httpStatus :: Lens' UpdateVPCEConfigurationResponse Int
+ Amazonka.DeviceFarm.Lens: updateVPCEConfigurationResponse_vpceConfiguration :: Lens' UpdateVPCEConfigurationResponse (Maybe VPCEConfiguration)
+ Amazonka.DeviceFarm.Lens: updateVPCEConfiguration_arn :: Lens' UpdateVPCEConfiguration Text
+ Amazonka.DeviceFarm.Lens: updateVPCEConfiguration_serviceDnsName :: Lens' UpdateVPCEConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Lens: updateVPCEConfiguration_vpceConfigurationDescription :: Lens' UpdateVPCEConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Lens: updateVPCEConfiguration_vpceConfigurationName :: Lens' UpdateVPCEConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Lens: updateVPCEConfiguration_vpceServiceName :: Lens' UpdateVPCEConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Lens: upload_arn :: Lens' Upload (Maybe Text)
+ Amazonka.DeviceFarm.Lens: upload_category :: Lens' Upload (Maybe UploadCategory)
+ Amazonka.DeviceFarm.Lens: upload_contentType :: Lens' Upload (Maybe Text)
+ Amazonka.DeviceFarm.Lens: upload_created :: Lens' Upload (Maybe UTCTime)
+ Amazonka.DeviceFarm.Lens: upload_message :: Lens' Upload (Maybe Text)
+ Amazonka.DeviceFarm.Lens: upload_metadata :: Lens' Upload (Maybe Text)
+ Amazonka.DeviceFarm.Lens: upload_name :: Lens' Upload (Maybe Text)
+ Amazonka.DeviceFarm.Lens: upload_status :: Lens' Upload (Maybe UploadStatus)
+ Amazonka.DeviceFarm.Lens: upload_type :: Lens' Upload (Maybe UploadType)
+ Amazonka.DeviceFarm.Lens: upload_url :: Lens' Upload (Maybe Text)
+ Amazonka.DeviceFarm.Lens: vPCEConfiguration_arn :: Lens' VPCEConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Lens: vPCEConfiguration_serviceDnsName :: Lens' VPCEConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Lens: vPCEConfiguration_vpceConfigurationDescription :: Lens' VPCEConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Lens: vPCEConfiguration_vpceConfigurationName :: Lens' VPCEConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Lens: vPCEConfiguration_vpceServiceName :: Lens' VPCEConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Lens: vpcConfig_securityGroupIds :: Lens' VpcConfig (NonEmpty Text)
+ Amazonka.DeviceFarm.Lens: vpcConfig_subnetIds :: Lens' VpcConfig (NonEmpty Text)
+ Amazonka.DeviceFarm.Lens: vpcConfig_vpcId :: Lens' VpcConfig Text
+ Amazonka.DeviceFarm.ListArtifacts: ListArtifacts' :: Maybe Text -> Text -> ArtifactCategory -> ListArtifacts
+ Amazonka.DeviceFarm.ListArtifacts: ListArtifactsResponse' :: Maybe [Artifact] -> Maybe Text -> Int -> ListArtifactsResponse
+ Amazonka.DeviceFarm.ListArtifacts: [$sel:arn:ListArtifacts'] :: ListArtifacts -> Text
+ Amazonka.DeviceFarm.ListArtifacts: [$sel:artifacts:ListArtifactsResponse'] :: ListArtifactsResponse -> Maybe [Artifact]
+ Amazonka.DeviceFarm.ListArtifacts: [$sel:httpStatus:ListArtifactsResponse'] :: ListArtifactsResponse -> Int
+ Amazonka.DeviceFarm.ListArtifacts: [$sel:nextToken:ListArtifacts'] :: ListArtifacts -> Maybe Text
+ Amazonka.DeviceFarm.ListArtifacts: [$sel:nextToken:ListArtifactsResponse'] :: ListArtifactsResponse -> Maybe Text
+ Amazonka.DeviceFarm.ListArtifacts: [$sel:type':ListArtifacts'] :: ListArtifacts -> ArtifactCategory
+ Amazonka.DeviceFarm.ListArtifacts: data ListArtifacts
+ Amazonka.DeviceFarm.ListArtifacts: data ListArtifactsResponse
+ Amazonka.DeviceFarm.ListArtifacts: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ListArtifacts.ListArtifacts
+ Amazonka.DeviceFarm.ListArtifacts: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ListArtifacts.ListArtifacts
+ Amazonka.DeviceFarm.ListArtifacts: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ListArtifacts.ListArtifacts
+ Amazonka.DeviceFarm.ListArtifacts: instance Amazonka.Pager.AWSPager Amazonka.DeviceFarm.ListArtifacts.ListArtifacts
+ Amazonka.DeviceFarm.ListArtifacts: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ListArtifacts.ListArtifacts
+ Amazonka.DeviceFarm.ListArtifacts: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListArtifacts.ListArtifacts
+ Amazonka.DeviceFarm.ListArtifacts: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListArtifacts.ListArtifactsResponse
+ Amazonka.DeviceFarm.ListArtifacts: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ListArtifacts.ListArtifacts
+ Amazonka.DeviceFarm.ListArtifacts: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ListArtifacts.ListArtifacts
+ Amazonka.DeviceFarm.ListArtifacts: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListArtifacts.ListArtifacts
+ Amazonka.DeviceFarm.ListArtifacts: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListArtifacts.ListArtifactsResponse
+ Amazonka.DeviceFarm.ListArtifacts: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListArtifacts.ListArtifacts
+ Amazonka.DeviceFarm.ListArtifacts: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListArtifacts.ListArtifactsResponse
+ Amazonka.DeviceFarm.ListArtifacts: instance GHC.Read.Read Amazonka.DeviceFarm.ListArtifacts.ListArtifacts
+ Amazonka.DeviceFarm.ListArtifacts: instance GHC.Read.Read Amazonka.DeviceFarm.ListArtifacts.ListArtifactsResponse
+ Amazonka.DeviceFarm.ListArtifacts: instance GHC.Show.Show Amazonka.DeviceFarm.ListArtifacts.ListArtifacts
+ Amazonka.DeviceFarm.ListArtifacts: instance GHC.Show.Show Amazonka.DeviceFarm.ListArtifacts.ListArtifactsResponse
+ Amazonka.DeviceFarm.ListArtifacts: listArtifactsResponse_artifacts :: Lens' ListArtifactsResponse (Maybe [Artifact])
+ Amazonka.DeviceFarm.ListArtifacts: listArtifactsResponse_httpStatus :: Lens' ListArtifactsResponse Int
+ Amazonka.DeviceFarm.ListArtifacts: listArtifactsResponse_nextToken :: Lens' ListArtifactsResponse (Maybe Text)
+ Amazonka.DeviceFarm.ListArtifacts: listArtifacts_arn :: Lens' ListArtifacts Text
+ Amazonka.DeviceFarm.ListArtifacts: listArtifacts_nextToken :: Lens' ListArtifacts (Maybe Text)
+ Amazonka.DeviceFarm.ListArtifacts: listArtifacts_type :: Lens' ListArtifacts ArtifactCategory
+ Amazonka.DeviceFarm.ListArtifacts: newListArtifacts :: Text -> ArtifactCategory -> ListArtifacts
+ Amazonka.DeviceFarm.ListArtifacts: newListArtifactsResponse :: Int -> ListArtifactsResponse
+ Amazonka.DeviceFarm.ListDeviceInstances: ListDeviceInstances' :: Maybe Int -> Maybe Text -> ListDeviceInstances
+ Amazonka.DeviceFarm.ListDeviceInstances: ListDeviceInstancesResponse' :: Maybe [DeviceInstance] -> Maybe Text -> Int -> ListDeviceInstancesResponse
+ Amazonka.DeviceFarm.ListDeviceInstances: [$sel:deviceInstances:ListDeviceInstancesResponse'] :: ListDeviceInstancesResponse -> Maybe [DeviceInstance]
+ Amazonka.DeviceFarm.ListDeviceInstances: [$sel:httpStatus:ListDeviceInstancesResponse'] :: ListDeviceInstancesResponse -> Int
+ Amazonka.DeviceFarm.ListDeviceInstances: [$sel:maxResults:ListDeviceInstances'] :: ListDeviceInstances -> Maybe Int
+ Amazonka.DeviceFarm.ListDeviceInstances: [$sel:nextToken:ListDeviceInstances'] :: ListDeviceInstances -> Maybe Text
+ Amazonka.DeviceFarm.ListDeviceInstances: [$sel:nextToken:ListDeviceInstancesResponse'] :: ListDeviceInstancesResponse -> Maybe Text
+ Amazonka.DeviceFarm.ListDeviceInstances: data ListDeviceInstances
+ Amazonka.DeviceFarm.ListDeviceInstances: data ListDeviceInstancesResponse
+ Amazonka.DeviceFarm.ListDeviceInstances: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ListDeviceInstances.ListDeviceInstances
+ Amazonka.DeviceFarm.ListDeviceInstances: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ListDeviceInstances.ListDeviceInstances
+ Amazonka.DeviceFarm.ListDeviceInstances: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ListDeviceInstances.ListDeviceInstances
+ Amazonka.DeviceFarm.ListDeviceInstances: instance Amazonka.Pager.AWSPager Amazonka.DeviceFarm.ListDeviceInstances.ListDeviceInstances
+ Amazonka.DeviceFarm.ListDeviceInstances: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ListDeviceInstances.ListDeviceInstances
+ Amazonka.DeviceFarm.ListDeviceInstances: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListDeviceInstances.ListDeviceInstances
+ Amazonka.DeviceFarm.ListDeviceInstances: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListDeviceInstances.ListDeviceInstancesResponse
+ Amazonka.DeviceFarm.ListDeviceInstances: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ListDeviceInstances.ListDeviceInstances
+ Amazonka.DeviceFarm.ListDeviceInstances: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ListDeviceInstances.ListDeviceInstances
+ Amazonka.DeviceFarm.ListDeviceInstances: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListDeviceInstances.ListDeviceInstances
+ Amazonka.DeviceFarm.ListDeviceInstances: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListDeviceInstances.ListDeviceInstancesResponse
+ Amazonka.DeviceFarm.ListDeviceInstances: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListDeviceInstances.ListDeviceInstances
+ Amazonka.DeviceFarm.ListDeviceInstances: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListDeviceInstances.ListDeviceInstancesResponse
+ Amazonka.DeviceFarm.ListDeviceInstances: instance GHC.Read.Read Amazonka.DeviceFarm.ListDeviceInstances.ListDeviceInstances
+ Amazonka.DeviceFarm.ListDeviceInstances: instance GHC.Read.Read Amazonka.DeviceFarm.ListDeviceInstances.ListDeviceInstancesResponse
+ Amazonka.DeviceFarm.ListDeviceInstances: instance GHC.Show.Show Amazonka.DeviceFarm.ListDeviceInstances.ListDeviceInstances
+ Amazonka.DeviceFarm.ListDeviceInstances: instance GHC.Show.Show Amazonka.DeviceFarm.ListDeviceInstances.ListDeviceInstancesResponse
+ Amazonka.DeviceFarm.ListDeviceInstances: listDeviceInstancesResponse_deviceInstances :: Lens' ListDeviceInstancesResponse (Maybe [DeviceInstance])
+ Amazonka.DeviceFarm.ListDeviceInstances: listDeviceInstancesResponse_httpStatus :: Lens' ListDeviceInstancesResponse Int
+ Amazonka.DeviceFarm.ListDeviceInstances: listDeviceInstancesResponse_nextToken :: Lens' ListDeviceInstancesResponse (Maybe Text)
+ Amazonka.DeviceFarm.ListDeviceInstances: listDeviceInstances_maxResults :: Lens' ListDeviceInstances (Maybe Int)
+ Amazonka.DeviceFarm.ListDeviceInstances: listDeviceInstances_nextToken :: Lens' ListDeviceInstances (Maybe Text)
+ Amazonka.DeviceFarm.ListDeviceInstances: newListDeviceInstances :: ListDeviceInstances
+ Amazonka.DeviceFarm.ListDeviceInstances: newListDeviceInstancesResponse :: Int -> ListDeviceInstancesResponse
+ Amazonka.DeviceFarm.ListDevicePools: ListDevicePools' :: Maybe Text -> Maybe DevicePoolType -> Text -> ListDevicePools
+ Amazonka.DeviceFarm.ListDevicePools: ListDevicePoolsResponse' :: Maybe [DevicePool] -> Maybe Text -> Int -> ListDevicePoolsResponse
+ Amazonka.DeviceFarm.ListDevicePools: [$sel:arn:ListDevicePools'] :: ListDevicePools -> Text
+ Amazonka.DeviceFarm.ListDevicePools: [$sel:devicePools:ListDevicePoolsResponse'] :: ListDevicePoolsResponse -> Maybe [DevicePool]
+ Amazonka.DeviceFarm.ListDevicePools: [$sel:httpStatus:ListDevicePoolsResponse'] :: ListDevicePoolsResponse -> Int
+ Amazonka.DeviceFarm.ListDevicePools: [$sel:nextToken:ListDevicePools'] :: ListDevicePools -> Maybe Text
+ Amazonka.DeviceFarm.ListDevicePools: [$sel:nextToken:ListDevicePoolsResponse'] :: ListDevicePoolsResponse -> Maybe Text
+ Amazonka.DeviceFarm.ListDevicePools: [$sel:type':ListDevicePools'] :: ListDevicePools -> Maybe DevicePoolType
+ Amazonka.DeviceFarm.ListDevicePools: data ListDevicePools
+ Amazonka.DeviceFarm.ListDevicePools: data ListDevicePoolsResponse
+ Amazonka.DeviceFarm.ListDevicePools: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ListDevicePools.ListDevicePools
+ Amazonka.DeviceFarm.ListDevicePools: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ListDevicePools.ListDevicePools
+ Amazonka.DeviceFarm.ListDevicePools: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ListDevicePools.ListDevicePools
+ Amazonka.DeviceFarm.ListDevicePools: instance Amazonka.Pager.AWSPager Amazonka.DeviceFarm.ListDevicePools.ListDevicePools
+ Amazonka.DeviceFarm.ListDevicePools: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ListDevicePools.ListDevicePools
+ Amazonka.DeviceFarm.ListDevicePools: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListDevicePools.ListDevicePools
+ Amazonka.DeviceFarm.ListDevicePools: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListDevicePools.ListDevicePoolsResponse
+ Amazonka.DeviceFarm.ListDevicePools: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ListDevicePools.ListDevicePools
+ Amazonka.DeviceFarm.ListDevicePools: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ListDevicePools.ListDevicePools
+ Amazonka.DeviceFarm.ListDevicePools: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListDevicePools.ListDevicePools
+ Amazonka.DeviceFarm.ListDevicePools: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListDevicePools.ListDevicePoolsResponse
+ Amazonka.DeviceFarm.ListDevicePools: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListDevicePools.ListDevicePools
+ Amazonka.DeviceFarm.ListDevicePools: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListDevicePools.ListDevicePoolsResponse
+ Amazonka.DeviceFarm.ListDevicePools: instance GHC.Read.Read Amazonka.DeviceFarm.ListDevicePools.ListDevicePools
+ Amazonka.DeviceFarm.ListDevicePools: instance GHC.Read.Read Amazonka.DeviceFarm.ListDevicePools.ListDevicePoolsResponse
+ Amazonka.DeviceFarm.ListDevicePools: instance GHC.Show.Show Amazonka.DeviceFarm.ListDevicePools.ListDevicePools
+ Amazonka.DeviceFarm.ListDevicePools: instance GHC.Show.Show Amazonka.DeviceFarm.ListDevicePools.ListDevicePoolsResponse
+ Amazonka.DeviceFarm.ListDevicePools: listDevicePoolsResponse_devicePools :: Lens' ListDevicePoolsResponse (Maybe [DevicePool])
+ Amazonka.DeviceFarm.ListDevicePools: listDevicePoolsResponse_httpStatus :: Lens' ListDevicePoolsResponse Int
+ Amazonka.DeviceFarm.ListDevicePools: listDevicePoolsResponse_nextToken :: Lens' ListDevicePoolsResponse (Maybe Text)
+ Amazonka.DeviceFarm.ListDevicePools: listDevicePools_arn :: Lens' ListDevicePools Text
+ Amazonka.DeviceFarm.ListDevicePools: listDevicePools_nextToken :: Lens' ListDevicePools (Maybe Text)
+ Amazonka.DeviceFarm.ListDevicePools: listDevicePools_type :: Lens' ListDevicePools (Maybe DevicePoolType)
+ Amazonka.DeviceFarm.ListDevicePools: newListDevicePools :: Text -> ListDevicePools
+ Amazonka.DeviceFarm.ListDevicePools: newListDevicePoolsResponse :: Int -> ListDevicePoolsResponse
+ Amazonka.DeviceFarm.ListDevices: ListDevices' :: Maybe Text -> Maybe [DeviceFilter] -> Maybe Text -> ListDevices
+ Amazonka.DeviceFarm.ListDevices: ListDevicesResponse' :: Maybe [Device] -> Maybe Text -> Int -> ListDevicesResponse
+ Amazonka.DeviceFarm.ListDevices: [$sel:arn:ListDevices'] :: ListDevices -> Maybe Text
+ Amazonka.DeviceFarm.ListDevices: [$sel:devices:ListDevicesResponse'] :: ListDevicesResponse -> Maybe [Device]
+ Amazonka.DeviceFarm.ListDevices: [$sel:filters:ListDevices'] :: ListDevices -> Maybe [DeviceFilter]
+ Amazonka.DeviceFarm.ListDevices: [$sel:httpStatus:ListDevicesResponse'] :: ListDevicesResponse -> Int
+ Amazonka.DeviceFarm.ListDevices: [$sel:nextToken:ListDevices'] :: ListDevices -> Maybe Text
+ Amazonka.DeviceFarm.ListDevices: [$sel:nextToken:ListDevicesResponse'] :: ListDevicesResponse -> Maybe Text
+ Amazonka.DeviceFarm.ListDevices: data ListDevices
+ Amazonka.DeviceFarm.ListDevices: data ListDevicesResponse
+ Amazonka.DeviceFarm.ListDevices: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ListDevices.ListDevices
+ Amazonka.DeviceFarm.ListDevices: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ListDevices.ListDevices
+ Amazonka.DeviceFarm.ListDevices: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ListDevices.ListDevices
+ Amazonka.DeviceFarm.ListDevices: instance Amazonka.Pager.AWSPager Amazonka.DeviceFarm.ListDevices.ListDevices
+ Amazonka.DeviceFarm.ListDevices: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ListDevices.ListDevices
+ Amazonka.DeviceFarm.ListDevices: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListDevices.ListDevices
+ Amazonka.DeviceFarm.ListDevices: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListDevices.ListDevicesResponse
+ Amazonka.DeviceFarm.ListDevices: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ListDevices.ListDevices
+ Amazonka.DeviceFarm.ListDevices: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ListDevices.ListDevices
+ Amazonka.DeviceFarm.ListDevices: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListDevices.ListDevices
+ Amazonka.DeviceFarm.ListDevices: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListDevices.ListDevicesResponse
+ Amazonka.DeviceFarm.ListDevices: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListDevices.ListDevices
+ Amazonka.DeviceFarm.ListDevices: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListDevices.ListDevicesResponse
+ Amazonka.DeviceFarm.ListDevices: instance GHC.Read.Read Amazonka.DeviceFarm.ListDevices.ListDevices
+ Amazonka.DeviceFarm.ListDevices: instance GHC.Read.Read Amazonka.DeviceFarm.ListDevices.ListDevicesResponse
+ Amazonka.DeviceFarm.ListDevices: instance GHC.Show.Show Amazonka.DeviceFarm.ListDevices.ListDevices
+ Amazonka.DeviceFarm.ListDevices: instance GHC.Show.Show Amazonka.DeviceFarm.ListDevices.ListDevicesResponse
+ Amazonka.DeviceFarm.ListDevices: listDevicesResponse_devices :: Lens' ListDevicesResponse (Maybe [Device])
+ Amazonka.DeviceFarm.ListDevices: listDevicesResponse_httpStatus :: Lens' ListDevicesResponse Int
+ Amazonka.DeviceFarm.ListDevices: listDevicesResponse_nextToken :: Lens' ListDevicesResponse (Maybe Text)
+ Amazonka.DeviceFarm.ListDevices: listDevices_arn :: Lens' ListDevices (Maybe Text)
+ Amazonka.DeviceFarm.ListDevices: listDevices_filters :: Lens' ListDevices (Maybe [DeviceFilter])
+ Amazonka.DeviceFarm.ListDevices: listDevices_nextToken :: Lens' ListDevices (Maybe Text)
+ Amazonka.DeviceFarm.ListDevices: newListDevices :: ListDevices
+ Amazonka.DeviceFarm.ListDevices: newListDevicesResponse :: Int -> ListDevicesResponse
+ Amazonka.DeviceFarm.ListInstanceProfiles: ListInstanceProfiles' :: Maybe Int -> Maybe Text -> ListInstanceProfiles
+ Amazonka.DeviceFarm.ListInstanceProfiles: ListInstanceProfilesResponse' :: Maybe [InstanceProfile] -> Maybe Text -> Int -> ListInstanceProfilesResponse
+ Amazonka.DeviceFarm.ListInstanceProfiles: [$sel:httpStatus:ListInstanceProfilesResponse'] :: ListInstanceProfilesResponse -> Int
+ Amazonka.DeviceFarm.ListInstanceProfiles: [$sel:instanceProfiles:ListInstanceProfilesResponse'] :: ListInstanceProfilesResponse -> Maybe [InstanceProfile]
+ Amazonka.DeviceFarm.ListInstanceProfiles: [$sel:maxResults:ListInstanceProfiles'] :: ListInstanceProfiles -> Maybe Int
+ Amazonka.DeviceFarm.ListInstanceProfiles: [$sel:nextToken:ListInstanceProfiles'] :: ListInstanceProfiles -> Maybe Text
+ Amazonka.DeviceFarm.ListInstanceProfiles: [$sel:nextToken:ListInstanceProfilesResponse'] :: ListInstanceProfilesResponse -> Maybe Text
+ Amazonka.DeviceFarm.ListInstanceProfiles: data ListInstanceProfiles
+ Amazonka.DeviceFarm.ListInstanceProfiles: data ListInstanceProfilesResponse
+ Amazonka.DeviceFarm.ListInstanceProfiles: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ListInstanceProfiles.ListInstanceProfiles
+ Amazonka.DeviceFarm.ListInstanceProfiles: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ListInstanceProfiles.ListInstanceProfiles
+ Amazonka.DeviceFarm.ListInstanceProfiles: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ListInstanceProfiles.ListInstanceProfiles
+ Amazonka.DeviceFarm.ListInstanceProfiles: instance Amazonka.Pager.AWSPager Amazonka.DeviceFarm.ListInstanceProfiles.ListInstanceProfiles
+ Amazonka.DeviceFarm.ListInstanceProfiles: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ListInstanceProfiles.ListInstanceProfiles
+ Amazonka.DeviceFarm.ListInstanceProfiles: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListInstanceProfiles.ListInstanceProfiles
+ Amazonka.DeviceFarm.ListInstanceProfiles: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListInstanceProfiles.ListInstanceProfilesResponse
+ Amazonka.DeviceFarm.ListInstanceProfiles: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ListInstanceProfiles.ListInstanceProfiles
+ Amazonka.DeviceFarm.ListInstanceProfiles: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ListInstanceProfiles.ListInstanceProfiles
+ Amazonka.DeviceFarm.ListInstanceProfiles: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListInstanceProfiles.ListInstanceProfiles
+ Amazonka.DeviceFarm.ListInstanceProfiles: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListInstanceProfiles.ListInstanceProfilesResponse
+ Amazonka.DeviceFarm.ListInstanceProfiles: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListInstanceProfiles.ListInstanceProfiles
+ Amazonka.DeviceFarm.ListInstanceProfiles: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListInstanceProfiles.ListInstanceProfilesResponse
+ Amazonka.DeviceFarm.ListInstanceProfiles: instance GHC.Read.Read Amazonka.DeviceFarm.ListInstanceProfiles.ListInstanceProfiles
+ Amazonka.DeviceFarm.ListInstanceProfiles: instance GHC.Read.Read Amazonka.DeviceFarm.ListInstanceProfiles.ListInstanceProfilesResponse
+ Amazonka.DeviceFarm.ListInstanceProfiles: instance GHC.Show.Show Amazonka.DeviceFarm.ListInstanceProfiles.ListInstanceProfiles
+ Amazonka.DeviceFarm.ListInstanceProfiles: instance GHC.Show.Show Amazonka.DeviceFarm.ListInstanceProfiles.ListInstanceProfilesResponse
+ Amazonka.DeviceFarm.ListInstanceProfiles: listInstanceProfilesResponse_httpStatus :: Lens' ListInstanceProfilesResponse Int
+ Amazonka.DeviceFarm.ListInstanceProfiles: listInstanceProfilesResponse_instanceProfiles :: Lens' ListInstanceProfilesResponse (Maybe [InstanceProfile])
+ Amazonka.DeviceFarm.ListInstanceProfiles: listInstanceProfilesResponse_nextToken :: Lens' ListInstanceProfilesResponse (Maybe Text)
+ Amazonka.DeviceFarm.ListInstanceProfiles: listInstanceProfiles_maxResults :: Lens' ListInstanceProfiles (Maybe Int)
+ Amazonka.DeviceFarm.ListInstanceProfiles: listInstanceProfiles_nextToken :: Lens' ListInstanceProfiles (Maybe Text)
+ Amazonka.DeviceFarm.ListInstanceProfiles: newListInstanceProfiles :: ListInstanceProfiles
+ Amazonka.DeviceFarm.ListInstanceProfiles: newListInstanceProfilesResponse :: Int -> ListInstanceProfilesResponse
+ Amazonka.DeviceFarm.ListJobs: ListJobs' :: Maybe Text -> Text -> ListJobs
+ Amazonka.DeviceFarm.ListJobs: ListJobsResponse' :: Maybe [Job] -> Maybe Text -> Int -> ListJobsResponse
+ Amazonka.DeviceFarm.ListJobs: [$sel:arn:ListJobs'] :: ListJobs -> Text
+ Amazonka.DeviceFarm.ListJobs: [$sel:httpStatus:ListJobsResponse'] :: ListJobsResponse -> Int
+ Amazonka.DeviceFarm.ListJobs: [$sel:jobs:ListJobsResponse'] :: ListJobsResponse -> Maybe [Job]
+ Amazonka.DeviceFarm.ListJobs: [$sel:nextToken:ListJobs'] :: ListJobs -> Maybe Text
+ Amazonka.DeviceFarm.ListJobs: [$sel:nextToken:ListJobsResponse'] :: ListJobsResponse -> Maybe Text
+ Amazonka.DeviceFarm.ListJobs: data ListJobs
+ Amazonka.DeviceFarm.ListJobs: data ListJobsResponse
+ Amazonka.DeviceFarm.ListJobs: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ListJobs.ListJobs
+ Amazonka.DeviceFarm.ListJobs: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ListJobs.ListJobs
+ Amazonka.DeviceFarm.ListJobs: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ListJobs.ListJobs
+ Amazonka.DeviceFarm.ListJobs: instance Amazonka.Pager.AWSPager Amazonka.DeviceFarm.ListJobs.ListJobs
+ Amazonka.DeviceFarm.ListJobs: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ListJobs.ListJobs
+ Amazonka.DeviceFarm.ListJobs: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListJobs.ListJobs
+ Amazonka.DeviceFarm.ListJobs: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListJobs.ListJobsResponse
+ Amazonka.DeviceFarm.ListJobs: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ListJobs.ListJobs
+ Amazonka.DeviceFarm.ListJobs: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ListJobs.ListJobs
+ Amazonka.DeviceFarm.ListJobs: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListJobs.ListJobs
+ Amazonka.DeviceFarm.ListJobs: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListJobs.ListJobsResponse
+ Amazonka.DeviceFarm.ListJobs: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListJobs.ListJobs
+ Amazonka.DeviceFarm.ListJobs: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListJobs.ListJobsResponse
+ Amazonka.DeviceFarm.ListJobs: instance GHC.Read.Read Amazonka.DeviceFarm.ListJobs.ListJobs
+ Amazonka.DeviceFarm.ListJobs: instance GHC.Read.Read Amazonka.DeviceFarm.ListJobs.ListJobsResponse
+ Amazonka.DeviceFarm.ListJobs: instance GHC.Show.Show Amazonka.DeviceFarm.ListJobs.ListJobs
+ Amazonka.DeviceFarm.ListJobs: instance GHC.Show.Show Amazonka.DeviceFarm.ListJobs.ListJobsResponse
+ Amazonka.DeviceFarm.ListJobs: listJobsResponse_httpStatus :: Lens' ListJobsResponse Int
+ Amazonka.DeviceFarm.ListJobs: listJobsResponse_jobs :: Lens' ListJobsResponse (Maybe [Job])
+ Amazonka.DeviceFarm.ListJobs: listJobsResponse_nextToken :: Lens' ListJobsResponse (Maybe Text)
+ Amazonka.DeviceFarm.ListJobs: listJobs_arn :: Lens' ListJobs Text
+ Amazonka.DeviceFarm.ListJobs: listJobs_nextToken :: Lens' ListJobs (Maybe Text)
+ Amazonka.DeviceFarm.ListJobs: newListJobs :: Text -> ListJobs
+ Amazonka.DeviceFarm.ListJobs: newListJobsResponse :: Int -> ListJobsResponse
+ Amazonka.DeviceFarm.ListNetworkProfiles: ListNetworkProfiles' :: Maybe Text -> Maybe NetworkProfileType -> Text -> ListNetworkProfiles
+ Amazonka.DeviceFarm.ListNetworkProfiles: ListNetworkProfilesResponse' :: Maybe [NetworkProfile] -> Maybe Text -> Int -> ListNetworkProfilesResponse
+ Amazonka.DeviceFarm.ListNetworkProfiles: [$sel:arn:ListNetworkProfiles'] :: ListNetworkProfiles -> Text
+ Amazonka.DeviceFarm.ListNetworkProfiles: [$sel:httpStatus:ListNetworkProfilesResponse'] :: ListNetworkProfilesResponse -> Int
+ Amazonka.DeviceFarm.ListNetworkProfiles: [$sel:networkProfiles:ListNetworkProfilesResponse'] :: ListNetworkProfilesResponse -> Maybe [NetworkProfile]
+ Amazonka.DeviceFarm.ListNetworkProfiles: [$sel:nextToken:ListNetworkProfiles'] :: ListNetworkProfiles -> Maybe Text
+ Amazonka.DeviceFarm.ListNetworkProfiles: [$sel:nextToken:ListNetworkProfilesResponse'] :: ListNetworkProfilesResponse -> Maybe Text
+ Amazonka.DeviceFarm.ListNetworkProfiles: [$sel:type':ListNetworkProfiles'] :: ListNetworkProfiles -> Maybe NetworkProfileType
+ Amazonka.DeviceFarm.ListNetworkProfiles: data ListNetworkProfiles
+ Amazonka.DeviceFarm.ListNetworkProfiles: data ListNetworkProfilesResponse
+ Amazonka.DeviceFarm.ListNetworkProfiles: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ListNetworkProfiles.ListNetworkProfiles
+ Amazonka.DeviceFarm.ListNetworkProfiles: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ListNetworkProfiles.ListNetworkProfiles
+ Amazonka.DeviceFarm.ListNetworkProfiles: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ListNetworkProfiles.ListNetworkProfiles
+ Amazonka.DeviceFarm.ListNetworkProfiles: instance Amazonka.Pager.AWSPager Amazonka.DeviceFarm.ListNetworkProfiles.ListNetworkProfiles
+ Amazonka.DeviceFarm.ListNetworkProfiles: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ListNetworkProfiles.ListNetworkProfiles
+ Amazonka.DeviceFarm.ListNetworkProfiles: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListNetworkProfiles.ListNetworkProfiles
+ Amazonka.DeviceFarm.ListNetworkProfiles: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListNetworkProfiles.ListNetworkProfilesResponse
+ Amazonka.DeviceFarm.ListNetworkProfiles: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ListNetworkProfiles.ListNetworkProfiles
+ Amazonka.DeviceFarm.ListNetworkProfiles: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ListNetworkProfiles.ListNetworkProfiles
+ Amazonka.DeviceFarm.ListNetworkProfiles: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListNetworkProfiles.ListNetworkProfiles
+ Amazonka.DeviceFarm.ListNetworkProfiles: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListNetworkProfiles.ListNetworkProfilesResponse
+ Amazonka.DeviceFarm.ListNetworkProfiles: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListNetworkProfiles.ListNetworkProfiles
+ Amazonka.DeviceFarm.ListNetworkProfiles: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListNetworkProfiles.ListNetworkProfilesResponse
+ Amazonka.DeviceFarm.ListNetworkProfiles: instance GHC.Read.Read Amazonka.DeviceFarm.ListNetworkProfiles.ListNetworkProfiles
+ Amazonka.DeviceFarm.ListNetworkProfiles: instance GHC.Read.Read Amazonka.DeviceFarm.ListNetworkProfiles.ListNetworkProfilesResponse
+ Amazonka.DeviceFarm.ListNetworkProfiles: instance GHC.Show.Show Amazonka.DeviceFarm.ListNetworkProfiles.ListNetworkProfiles
+ Amazonka.DeviceFarm.ListNetworkProfiles: instance GHC.Show.Show Amazonka.DeviceFarm.ListNetworkProfiles.ListNetworkProfilesResponse
+ Amazonka.DeviceFarm.ListNetworkProfiles: listNetworkProfilesResponse_httpStatus :: Lens' ListNetworkProfilesResponse Int
+ Amazonka.DeviceFarm.ListNetworkProfiles: listNetworkProfilesResponse_networkProfiles :: Lens' ListNetworkProfilesResponse (Maybe [NetworkProfile])
+ Amazonka.DeviceFarm.ListNetworkProfiles: listNetworkProfilesResponse_nextToken :: Lens' ListNetworkProfilesResponse (Maybe Text)
+ Amazonka.DeviceFarm.ListNetworkProfiles: listNetworkProfiles_arn :: Lens' ListNetworkProfiles Text
+ Amazonka.DeviceFarm.ListNetworkProfiles: listNetworkProfiles_nextToken :: Lens' ListNetworkProfiles (Maybe Text)
+ Amazonka.DeviceFarm.ListNetworkProfiles: listNetworkProfiles_type :: Lens' ListNetworkProfiles (Maybe NetworkProfileType)
+ Amazonka.DeviceFarm.ListNetworkProfiles: newListNetworkProfiles :: Text -> ListNetworkProfiles
+ Amazonka.DeviceFarm.ListNetworkProfiles: newListNetworkProfilesResponse :: Int -> ListNetworkProfilesResponse
+ Amazonka.DeviceFarm.ListOfferingPromotions: ListOfferingPromotions' :: Maybe Text -> ListOfferingPromotions
+ Amazonka.DeviceFarm.ListOfferingPromotions: ListOfferingPromotionsResponse' :: Maybe Text -> Maybe [OfferingPromotion] -> Int -> ListOfferingPromotionsResponse
+ Amazonka.DeviceFarm.ListOfferingPromotions: [$sel:httpStatus:ListOfferingPromotionsResponse'] :: ListOfferingPromotionsResponse -> Int
+ Amazonka.DeviceFarm.ListOfferingPromotions: [$sel:nextToken:ListOfferingPromotions'] :: ListOfferingPromotions -> Maybe Text
+ Amazonka.DeviceFarm.ListOfferingPromotions: [$sel:nextToken:ListOfferingPromotionsResponse'] :: ListOfferingPromotionsResponse -> Maybe Text
+ Amazonka.DeviceFarm.ListOfferingPromotions: [$sel:offeringPromotions:ListOfferingPromotionsResponse'] :: ListOfferingPromotionsResponse -> Maybe [OfferingPromotion]
+ Amazonka.DeviceFarm.ListOfferingPromotions: data ListOfferingPromotions
+ Amazonka.DeviceFarm.ListOfferingPromotions: data ListOfferingPromotionsResponse
+ Amazonka.DeviceFarm.ListOfferingPromotions: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ListOfferingPromotions.ListOfferingPromotions
+ Amazonka.DeviceFarm.ListOfferingPromotions: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ListOfferingPromotions.ListOfferingPromotions
+ Amazonka.DeviceFarm.ListOfferingPromotions: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ListOfferingPromotions.ListOfferingPromotions
+ Amazonka.DeviceFarm.ListOfferingPromotions: instance Amazonka.Pager.AWSPager Amazonka.DeviceFarm.ListOfferingPromotions.ListOfferingPromotions
+ Amazonka.DeviceFarm.ListOfferingPromotions: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ListOfferingPromotions.ListOfferingPromotions
+ Amazonka.DeviceFarm.ListOfferingPromotions: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListOfferingPromotions.ListOfferingPromotions
+ Amazonka.DeviceFarm.ListOfferingPromotions: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListOfferingPromotions.ListOfferingPromotionsResponse
+ Amazonka.DeviceFarm.ListOfferingPromotions: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ListOfferingPromotions.ListOfferingPromotions
+ Amazonka.DeviceFarm.ListOfferingPromotions: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ListOfferingPromotions.ListOfferingPromotions
+ Amazonka.DeviceFarm.ListOfferingPromotions: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListOfferingPromotions.ListOfferingPromotions
+ Amazonka.DeviceFarm.ListOfferingPromotions: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListOfferingPromotions.ListOfferingPromotionsResponse
+ Amazonka.DeviceFarm.ListOfferingPromotions: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListOfferingPromotions.ListOfferingPromotions
+ Amazonka.DeviceFarm.ListOfferingPromotions: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListOfferingPromotions.ListOfferingPromotionsResponse
+ Amazonka.DeviceFarm.ListOfferingPromotions: instance GHC.Read.Read Amazonka.DeviceFarm.ListOfferingPromotions.ListOfferingPromotions
+ Amazonka.DeviceFarm.ListOfferingPromotions: instance GHC.Read.Read Amazonka.DeviceFarm.ListOfferingPromotions.ListOfferingPromotionsResponse
+ Amazonka.DeviceFarm.ListOfferingPromotions: instance GHC.Show.Show Amazonka.DeviceFarm.ListOfferingPromotions.ListOfferingPromotions
+ Amazonka.DeviceFarm.ListOfferingPromotions: instance GHC.Show.Show Amazonka.DeviceFarm.ListOfferingPromotions.ListOfferingPromotionsResponse
+ Amazonka.DeviceFarm.ListOfferingPromotions: listOfferingPromotionsResponse_httpStatus :: Lens' ListOfferingPromotionsResponse Int
+ Amazonka.DeviceFarm.ListOfferingPromotions: listOfferingPromotionsResponse_nextToken :: Lens' ListOfferingPromotionsResponse (Maybe Text)
+ Amazonka.DeviceFarm.ListOfferingPromotions: listOfferingPromotionsResponse_offeringPromotions :: Lens' ListOfferingPromotionsResponse (Maybe [OfferingPromotion])
+ Amazonka.DeviceFarm.ListOfferingPromotions: listOfferingPromotions_nextToken :: Lens' ListOfferingPromotions (Maybe Text)
+ Amazonka.DeviceFarm.ListOfferingPromotions: newListOfferingPromotions :: ListOfferingPromotions
+ Amazonka.DeviceFarm.ListOfferingPromotions: newListOfferingPromotionsResponse :: Int -> ListOfferingPromotionsResponse
+ Amazonka.DeviceFarm.ListOfferingTransactions: ListOfferingTransactions' :: Maybe Text -> ListOfferingTransactions
+ Amazonka.DeviceFarm.ListOfferingTransactions: ListOfferingTransactionsResponse' :: Maybe Text -> Maybe [OfferingTransaction] -> Int -> ListOfferingTransactionsResponse
+ Amazonka.DeviceFarm.ListOfferingTransactions: [$sel:httpStatus:ListOfferingTransactionsResponse'] :: ListOfferingTransactionsResponse -> Int
+ Amazonka.DeviceFarm.ListOfferingTransactions: [$sel:nextToken:ListOfferingTransactions'] :: ListOfferingTransactions -> Maybe Text
+ Amazonka.DeviceFarm.ListOfferingTransactions: [$sel:nextToken:ListOfferingTransactionsResponse'] :: ListOfferingTransactionsResponse -> Maybe Text
+ Amazonka.DeviceFarm.ListOfferingTransactions: [$sel:offeringTransactions:ListOfferingTransactionsResponse'] :: ListOfferingTransactionsResponse -> Maybe [OfferingTransaction]
+ Amazonka.DeviceFarm.ListOfferingTransactions: data ListOfferingTransactions
+ Amazonka.DeviceFarm.ListOfferingTransactions: data ListOfferingTransactionsResponse
+ Amazonka.DeviceFarm.ListOfferingTransactions: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
+ Amazonka.DeviceFarm.ListOfferingTransactions: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
+ Amazonka.DeviceFarm.ListOfferingTransactions: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
+ Amazonka.DeviceFarm.ListOfferingTransactions: instance Amazonka.Pager.AWSPager Amazonka.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
+ Amazonka.DeviceFarm.ListOfferingTransactions: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
+ Amazonka.DeviceFarm.ListOfferingTransactions: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
+ Amazonka.DeviceFarm.ListOfferingTransactions: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListOfferingTransactions.ListOfferingTransactionsResponse
+ Amazonka.DeviceFarm.ListOfferingTransactions: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
+ Amazonka.DeviceFarm.ListOfferingTransactions: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
+ Amazonka.DeviceFarm.ListOfferingTransactions: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
+ Amazonka.DeviceFarm.ListOfferingTransactions: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListOfferingTransactions.ListOfferingTransactionsResponse
+ Amazonka.DeviceFarm.ListOfferingTransactions: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
+ Amazonka.DeviceFarm.ListOfferingTransactions: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListOfferingTransactions.ListOfferingTransactionsResponse
+ Amazonka.DeviceFarm.ListOfferingTransactions: instance GHC.Read.Read Amazonka.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
+ Amazonka.DeviceFarm.ListOfferingTransactions: instance GHC.Read.Read Amazonka.DeviceFarm.ListOfferingTransactions.ListOfferingTransactionsResponse
+ Amazonka.DeviceFarm.ListOfferingTransactions: instance GHC.Show.Show Amazonka.DeviceFarm.ListOfferingTransactions.ListOfferingTransactions
+ Amazonka.DeviceFarm.ListOfferingTransactions: instance GHC.Show.Show Amazonka.DeviceFarm.ListOfferingTransactions.ListOfferingTransactionsResponse
+ Amazonka.DeviceFarm.ListOfferingTransactions: listOfferingTransactionsResponse_httpStatus :: Lens' ListOfferingTransactionsResponse Int
+ Amazonka.DeviceFarm.ListOfferingTransactions: listOfferingTransactionsResponse_nextToken :: Lens' ListOfferingTransactionsResponse (Maybe Text)
+ Amazonka.DeviceFarm.ListOfferingTransactions: listOfferingTransactionsResponse_offeringTransactions :: Lens' ListOfferingTransactionsResponse (Maybe [OfferingTransaction])
+ Amazonka.DeviceFarm.ListOfferingTransactions: listOfferingTransactions_nextToken :: Lens' ListOfferingTransactions (Maybe Text)
+ Amazonka.DeviceFarm.ListOfferingTransactions: newListOfferingTransactions :: ListOfferingTransactions
+ Amazonka.DeviceFarm.ListOfferingTransactions: newListOfferingTransactionsResponse :: Int -> ListOfferingTransactionsResponse
+ Amazonka.DeviceFarm.ListOfferings: ListOfferings' :: Maybe Text -> ListOfferings
+ Amazonka.DeviceFarm.ListOfferings: ListOfferingsResponse' :: Maybe Text -> Maybe [Offering] -> Int -> ListOfferingsResponse
+ Amazonka.DeviceFarm.ListOfferings: [$sel:httpStatus:ListOfferingsResponse'] :: ListOfferingsResponse -> Int
+ Amazonka.DeviceFarm.ListOfferings: [$sel:nextToken:ListOfferings'] :: ListOfferings -> Maybe Text
+ Amazonka.DeviceFarm.ListOfferings: [$sel:nextToken:ListOfferingsResponse'] :: ListOfferingsResponse -> Maybe Text
+ Amazonka.DeviceFarm.ListOfferings: [$sel:offerings:ListOfferingsResponse'] :: ListOfferingsResponse -> Maybe [Offering]
+ Amazonka.DeviceFarm.ListOfferings: data ListOfferings
+ Amazonka.DeviceFarm.ListOfferings: data ListOfferingsResponse
+ Amazonka.DeviceFarm.ListOfferings: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ListOfferings.ListOfferings
+ Amazonka.DeviceFarm.ListOfferings: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ListOfferings.ListOfferings
+ Amazonka.DeviceFarm.ListOfferings: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ListOfferings.ListOfferings
+ Amazonka.DeviceFarm.ListOfferings: instance Amazonka.Pager.AWSPager Amazonka.DeviceFarm.ListOfferings.ListOfferings
+ Amazonka.DeviceFarm.ListOfferings: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ListOfferings.ListOfferings
+ Amazonka.DeviceFarm.ListOfferings: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListOfferings.ListOfferings
+ Amazonka.DeviceFarm.ListOfferings: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListOfferings.ListOfferingsResponse
+ Amazonka.DeviceFarm.ListOfferings: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ListOfferings.ListOfferings
+ Amazonka.DeviceFarm.ListOfferings: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ListOfferings.ListOfferings
+ Amazonka.DeviceFarm.ListOfferings: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListOfferings.ListOfferings
+ Amazonka.DeviceFarm.ListOfferings: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListOfferings.ListOfferingsResponse
+ Amazonka.DeviceFarm.ListOfferings: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListOfferings.ListOfferings
+ Amazonka.DeviceFarm.ListOfferings: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListOfferings.ListOfferingsResponse
+ Amazonka.DeviceFarm.ListOfferings: instance GHC.Read.Read Amazonka.DeviceFarm.ListOfferings.ListOfferings
+ Amazonka.DeviceFarm.ListOfferings: instance GHC.Read.Read Amazonka.DeviceFarm.ListOfferings.ListOfferingsResponse
+ Amazonka.DeviceFarm.ListOfferings: instance GHC.Show.Show Amazonka.DeviceFarm.ListOfferings.ListOfferings
+ Amazonka.DeviceFarm.ListOfferings: instance GHC.Show.Show Amazonka.DeviceFarm.ListOfferings.ListOfferingsResponse
+ Amazonka.DeviceFarm.ListOfferings: listOfferingsResponse_httpStatus :: Lens' ListOfferingsResponse Int
+ Amazonka.DeviceFarm.ListOfferings: listOfferingsResponse_nextToken :: Lens' ListOfferingsResponse (Maybe Text)
+ Amazonka.DeviceFarm.ListOfferings: listOfferingsResponse_offerings :: Lens' ListOfferingsResponse (Maybe [Offering])
+ Amazonka.DeviceFarm.ListOfferings: listOfferings_nextToken :: Lens' ListOfferings (Maybe Text)
+ Amazonka.DeviceFarm.ListOfferings: newListOfferings :: ListOfferings
+ Amazonka.DeviceFarm.ListOfferings: newListOfferingsResponse :: Int -> ListOfferingsResponse
+ Amazonka.DeviceFarm.ListProjects: ListProjects' :: Maybe Text -> Maybe Text -> ListProjects
+ Amazonka.DeviceFarm.ListProjects: ListProjectsResponse' :: Maybe Text -> Maybe [Project] -> Int -> ListProjectsResponse
+ Amazonka.DeviceFarm.ListProjects: [$sel:arn:ListProjects'] :: ListProjects -> Maybe Text
+ Amazonka.DeviceFarm.ListProjects: [$sel:httpStatus:ListProjectsResponse'] :: ListProjectsResponse -> Int
+ Amazonka.DeviceFarm.ListProjects: [$sel:nextToken:ListProjects'] :: ListProjects -> Maybe Text
+ Amazonka.DeviceFarm.ListProjects: [$sel:nextToken:ListProjectsResponse'] :: ListProjectsResponse -> Maybe Text
+ Amazonka.DeviceFarm.ListProjects: [$sel:projects:ListProjectsResponse'] :: ListProjectsResponse -> Maybe [Project]
+ Amazonka.DeviceFarm.ListProjects: data ListProjects
+ Amazonka.DeviceFarm.ListProjects: data ListProjectsResponse
+ Amazonka.DeviceFarm.ListProjects: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ListProjects.ListProjects
+ Amazonka.DeviceFarm.ListProjects: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ListProjects.ListProjects
+ Amazonka.DeviceFarm.ListProjects: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ListProjects.ListProjects
+ Amazonka.DeviceFarm.ListProjects: instance Amazonka.Pager.AWSPager Amazonka.DeviceFarm.ListProjects.ListProjects
+ Amazonka.DeviceFarm.ListProjects: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ListProjects.ListProjects
+ Amazonka.DeviceFarm.ListProjects: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListProjects.ListProjects
+ Amazonka.DeviceFarm.ListProjects: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListProjects.ListProjectsResponse
+ Amazonka.DeviceFarm.ListProjects: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ListProjects.ListProjects
+ Amazonka.DeviceFarm.ListProjects: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ListProjects.ListProjects
+ Amazonka.DeviceFarm.ListProjects: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListProjects.ListProjects
+ Amazonka.DeviceFarm.ListProjects: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListProjects.ListProjectsResponse
+ Amazonka.DeviceFarm.ListProjects: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListProjects.ListProjects
+ Amazonka.DeviceFarm.ListProjects: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListProjects.ListProjectsResponse
+ Amazonka.DeviceFarm.ListProjects: instance GHC.Read.Read Amazonka.DeviceFarm.ListProjects.ListProjects
+ Amazonka.DeviceFarm.ListProjects: instance GHC.Read.Read Amazonka.DeviceFarm.ListProjects.ListProjectsResponse
+ Amazonka.DeviceFarm.ListProjects: instance GHC.Show.Show Amazonka.DeviceFarm.ListProjects.ListProjects
+ Amazonka.DeviceFarm.ListProjects: instance GHC.Show.Show Amazonka.DeviceFarm.ListProjects.ListProjectsResponse
+ Amazonka.DeviceFarm.ListProjects: listProjectsResponse_httpStatus :: Lens' ListProjectsResponse Int
+ Amazonka.DeviceFarm.ListProjects: listProjectsResponse_nextToken :: Lens' ListProjectsResponse (Maybe Text)
+ Amazonka.DeviceFarm.ListProjects: listProjectsResponse_projects :: Lens' ListProjectsResponse (Maybe [Project])
+ Amazonka.DeviceFarm.ListProjects: listProjects_arn :: Lens' ListProjects (Maybe Text)
+ Amazonka.DeviceFarm.ListProjects: listProjects_nextToken :: Lens' ListProjects (Maybe Text)
+ Amazonka.DeviceFarm.ListProjects: newListProjects :: ListProjects
+ Amazonka.DeviceFarm.ListProjects: newListProjectsResponse :: Int -> ListProjectsResponse
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: ListRemoteAccessSessions' :: Maybe Text -> Text -> ListRemoteAccessSessions
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: ListRemoteAccessSessionsResponse' :: Maybe Text -> Maybe [RemoteAccessSession] -> Int -> ListRemoteAccessSessionsResponse
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: [$sel:arn:ListRemoteAccessSessions'] :: ListRemoteAccessSessions -> Text
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: [$sel:httpStatus:ListRemoteAccessSessionsResponse'] :: ListRemoteAccessSessionsResponse -> Int
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: [$sel:nextToken:ListRemoteAccessSessions'] :: ListRemoteAccessSessions -> Maybe Text
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: [$sel:nextToken:ListRemoteAccessSessionsResponse'] :: ListRemoteAccessSessionsResponse -> Maybe Text
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: [$sel:remoteAccessSessions:ListRemoteAccessSessionsResponse'] :: ListRemoteAccessSessionsResponse -> Maybe [RemoteAccessSession]
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: data ListRemoteAccessSessions
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: data ListRemoteAccessSessionsResponse
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessions
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessions
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessions
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: instance Amazonka.Pager.AWSPager Amazonka.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessions
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessions
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessions
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessionsResponse
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessions
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessions
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessions
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessionsResponse
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessions
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessionsResponse
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: instance GHC.Read.Read Amazonka.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessions
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: instance GHC.Read.Read Amazonka.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessionsResponse
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: instance GHC.Show.Show Amazonka.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessions
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: instance GHC.Show.Show Amazonka.DeviceFarm.ListRemoteAccessSessions.ListRemoteAccessSessionsResponse
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: listRemoteAccessSessionsResponse_httpStatus :: Lens' ListRemoteAccessSessionsResponse Int
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: listRemoteAccessSessionsResponse_nextToken :: Lens' ListRemoteAccessSessionsResponse (Maybe Text)
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: listRemoteAccessSessionsResponse_remoteAccessSessions :: Lens' ListRemoteAccessSessionsResponse (Maybe [RemoteAccessSession])
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: listRemoteAccessSessions_arn :: Lens' ListRemoteAccessSessions Text
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: listRemoteAccessSessions_nextToken :: Lens' ListRemoteAccessSessions (Maybe Text)
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: newListRemoteAccessSessions :: Text -> ListRemoteAccessSessions
+ Amazonka.DeviceFarm.ListRemoteAccessSessions: newListRemoteAccessSessionsResponse :: Int -> ListRemoteAccessSessionsResponse
+ Amazonka.DeviceFarm.ListRuns: ListRuns' :: Maybe Text -> Text -> ListRuns
+ Amazonka.DeviceFarm.ListRuns: ListRunsResponse' :: Maybe Text -> Maybe [Run] -> Int -> ListRunsResponse
+ Amazonka.DeviceFarm.ListRuns: [$sel:arn:ListRuns'] :: ListRuns -> Text
+ Amazonka.DeviceFarm.ListRuns: [$sel:httpStatus:ListRunsResponse'] :: ListRunsResponse -> Int
+ Amazonka.DeviceFarm.ListRuns: [$sel:nextToken:ListRuns'] :: ListRuns -> Maybe Text
+ Amazonka.DeviceFarm.ListRuns: [$sel:nextToken:ListRunsResponse'] :: ListRunsResponse -> Maybe Text
+ Amazonka.DeviceFarm.ListRuns: [$sel:runs:ListRunsResponse'] :: ListRunsResponse -> Maybe [Run]
+ Amazonka.DeviceFarm.ListRuns: data ListRuns
+ Amazonka.DeviceFarm.ListRuns: data ListRunsResponse
+ Amazonka.DeviceFarm.ListRuns: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ListRuns.ListRuns
+ Amazonka.DeviceFarm.ListRuns: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ListRuns.ListRuns
+ Amazonka.DeviceFarm.ListRuns: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ListRuns.ListRuns
+ Amazonka.DeviceFarm.ListRuns: instance Amazonka.Pager.AWSPager Amazonka.DeviceFarm.ListRuns.ListRuns
+ Amazonka.DeviceFarm.ListRuns: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ListRuns.ListRuns
+ Amazonka.DeviceFarm.ListRuns: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListRuns.ListRuns
+ Amazonka.DeviceFarm.ListRuns: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListRuns.ListRunsResponse
+ Amazonka.DeviceFarm.ListRuns: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ListRuns.ListRuns
+ Amazonka.DeviceFarm.ListRuns: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ListRuns.ListRuns
+ Amazonka.DeviceFarm.ListRuns: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListRuns.ListRuns
+ Amazonka.DeviceFarm.ListRuns: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListRuns.ListRunsResponse
+ Amazonka.DeviceFarm.ListRuns: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListRuns.ListRuns
+ Amazonka.DeviceFarm.ListRuns: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListRuns.ListRunsResponse
+ Amazonka.DeviceFarm.ListRuns: instance GHC.Read.Read Amazonka.DeviceFarm.ListRuns.ListRuns
+ Amazonka.DeviceFarm.ListRuns: instance GHC.Read.Read Amazonka.DeviceFarm.ListRuns.ListRunsResponse
+ Amazonka.DeviceFarm.ListRuns: instance GHC.Show.Show Amazonka.DeviceFarm.ListRuns.ListRuns
+ Amazonka.DeviceFarm.ListRuns: instance GHC.Show.Show Amazonka.DeviceFarm.ListRuns.ListRunsResponse
+ Amazonka.DeviceFarm.ListRuns: listRunsResponse_httpStatus :: Lens' ListRunsResponse Int
+ Amazonka.DeviceFarm.ListRuns: listRunsResponse_nextToken :: Lens' ListRunsResponse (Maybe Text)
+ Amazonka.DeviceFarm.ListRuns: listRunsResponse_runs :: Lens' ListRunsResponse (Maybe [Run])
+ Amazonka.DeviceFarm.ListRuns: listRuns_arn :: Lens' ListRuns Text
+ Amazonka.DeviceFarm.ListRuns: listRuns_nextToken :: Lens' ListRuns (Maybe Text)
+ Amazonka.DeviceFarm.ListRuns: newListRuns :: Text -> ListRuns
+ Amazonka.DeviceFarm.ListRuns: newListRunsResponse :: Int -> ListRunsResponse
+ Amazonka.DeviceFarm.ListSamples: ListSamples' :: Maybe Text -> Text -> ListSamples
+ Amazonka.DeviceFarm.ListSamples: ListSamplesResponse' :: Maybe Text -> Maybe [Sample] -> Int -> ListSamplesResponse
+ Amazonka.DeviceFarm.ListSamples: [$sel:arn:ListSamples'] :: ListSamples -> Text
+ Amazonka.DeviceFarm.ListSamples: [$sel:httpStatus:ListSamplesResponse'] :: ListSamplesResponse -> Int
+ Amazonka.DeviceFarm.ListSamples: [$sel:nextToken:ListSamples'] :: ListSamples -> Maybe Text
+ Amazonka.DeviceFarm.ListSamples: [$sel:nextToken:ListSamplesResponse'] :: ListSamplesResponse -> Maybe Text
+ Amazonka.DeviceFarm.ListSamples: [$sel:samples:ListSamplesResponse'] :: ListSamplesResponse -> Maybe [Sample]
+ Amazonka.DeviceFarm.ListSamples: data ListSamples
+ Amazonka.DeviceFarm.ListSamples: data ListSamplesResponse
+ Amazonka.DeviceFarm.ListSamples: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ListSamples.ListSamples
+ Amazonka.DeviceFarm.ListSamples: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ListSamples.ListSamples
+ Amazonka.DeviceFarm.ListSamples: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ListSamples.ListSamples
+ Amazonka.DeviceFarm.ListSamples: instance Amazonka.Pager.AWSPager Amazonka.DeviceFarm.ListSamples.ListSamples
+ Amazonka.DeviceFarm.ListSamples: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ListSamples.ListSamples
+ Amazonka.DeviceFarm.ListSamples: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListSamples.ListSamples
+ Amazonka.DeviceFarm.ListSamples: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListSamples.ListSamplesResponse
+ Amazonka.DeviceFarm.ListSamples: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ListSamples.ListSamples
+ Amazonka.DeviceFarm.ListSamples: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ListSamples.ListSamples
+ Amazonka.DeviceFarm.ListSamples: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListSamples.ListSamples
+ Amazonka.DeviceFarm.ListSamples: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListSamples.ListSamplesResponse
+ Amazonka.DeviceFarm.ListSamples: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListSamples.ListSamples
+ Amazonka.DeviceFarm.ListSamples: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListSamples.ListSamplesResponse
+ Amazonka.DeviceFarm.ListSamples: instance GHC.Read.Read Amazonka.DeviceFarm.ListSamples.ListSamples
+ Amazonka.DeviceFarm.ListSamples: instance GHC.Read.Read Amazonka.DeviceFarm.ListSamples.ListSamplesResponse
+ Amazonka.DeviceFarm.ListSamples: instance GHC.Show.Show Amazonka.DeviceFarm.ListSamples.ListSamples
+ Amazonka.DeviceFarm.ListSamples: instance GHC.Show.Show Amazonka.DeviceFarm.ListSamples.ListSamplesResponse
+ Amazonka.DeviceFarm.ListSamples: listSamplesResponse_httpStatus :: Lens' ListSamplesResponse Int
+ Amazonka.DeviceFarm.ListSamples: listSamplesResponse_nextToken :: Lens' ListSamplesResponse (Maybe Text)
+ Amazonka.DeviceFarm.ListSamples: listSamplesResponse_samples :: Lens' ListSamplesResponse (Maybe [Sample])
+ Amazonka.DeviceFarm.ListSamples: listSamples_arn :: Lens' ListSamples Text
+ Amazonka.DeviceFarm.ListSamples: listSamples_nextToken :: Lens' ListSamples (Maybe Text)
+ Amazonka.DeviceFarm.ListSamples: newListSamples :: Text -> ListSamples
+ Amazonka.DeviceFarm.ListSamples: newListSamplesResponse :: Int -> ListSamplesResponse
+ Amazonka.DeviceFarm.ListSuites: ListSuites' :: Maybe Text -> Text -> ListSuites
+ Amazonka.DeviceFarm.ListSuites: ListSuitesResponse' :: Maybe Text -> Maybe [Suite] -> Int -> ListSuitesResponse
+ Amazonka.DeviceFarm.ListSuites: [$sel:arn:ListSuites'] :: ListSuites -> Text
+ Amazonka.DeviceFarm.ListSuites: [$sel:httpStatus:ListSuitesResponse'] :: ListSuitesResponse -> Int
+ Amazonka.DeviceFarm.ListSuites: [$sel:nextToken:ListSuites'] :: ListSuites -> Maybe Text
+ Amazonka.DeviceFarm.ListSuites: [$sel:nextToken:ListSuitesResponse'] :: ListSuitesResponse -> Maybe Text
+ Amazonka.DeviceFarm.ListSuites: [$sel:suites:ListSuitesResponse'] :: ListSuitesResponse -> Maybe [Suite]
+ Amazonka.DeviceFarm.ListSuites: data ListSuites
+ Amazonka.DeviceFarm.ListSuites: data ListSuitesResponse
+ Amazonka.DeviceFarm.ListSuites: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ListSuites.ListSuites
+ Amazonka.DeviceFarm.ListSuites: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ListSuites.ListSuites
+ Amazonka.DeviceFarm.ListSuites: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ListSuites.ListSuites
+ Amazonka.DeviceFarm.ListSuites: instance Amazonka.Pager.AWSPager Amazonka.DeviceFarm.ListSuites.ListSuites
+ Amazonka.DeviceFarm.ListSuites: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ListSuites.ListSuites
+ Amazonka.DeviceFarm.ListSuites: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListSuites.ListSuites
+ Amazonka.DeviceFarm.ListSuites: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListSuites.ListSuitesResponse
+ Amazonka.DeviceFarm.ListSuites: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ListSuites.ListSuites
+ Amazonka.DeviceFarm.ListSuites: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ListSuites.ListSuites
+ Amazonka.DeviceFarm.ListSuites: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListSuites.ListSuites
+ Amazonka.DeviceFarm.ListSuites: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListSuites.ListSuitesResponse
+ Amazonka.DeviceFarm.ListSuites: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListSuites.ListSuites
+ Amazonka.DeviceFarm.ListSuites: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListSuites.ListSuitesResponse
+ Amazonka.DeviceFarm.ListSuites: instance GHC.Read.Read Amazonka.DeviceFarm.ListSuites.ListSuites
+ Amazonka.DeviceFarm.ListSuites: instance GHC.Read.Read Amazonka.DeviceFarm.ListSuites.ListSuitesResponse
+ Amazonka.DeviceFarm.ListSuites: instance GHC.Show.Show Amazonka.DeviceFarm.ListSuites.ListSuites
+ Amazonka.DeviceFarm.ListSuites: instance GHC.Show.Show Amazonka.DeviceFarm.ListSuites.ListSuitesResponse
+ Amazonka.DeviceFarm.ListSuites: listSuitesResponse_httpStatus :: Lens' ListSuitesResponse Int
+ Amazonka.DeviceFarm.ListSuites: listSuitesResponse_nextToken :: Lens' ListSuitesResponse (Maybe Text)
+ Amazonka.DeviceFarm.ListSuites: listSuitesResponse_suites :: Lens' ListSuitesResponse (Maybe [Suite])
+ Amazonka.DeviceFarm.ListSuites: listSuites_arn :: Lens' ListSuites Text
+ Amazonka.DeviceFarm.ListSuites: listSuites_nextToken :: Lens' ListSuites (Maybe Text)
+ Amazonka.DeviceFarm.ListSuites: newListSuites :: Text -> ListSuites
+ Amazonka.DeviceFarm.ListSuites: newListSuitesResponse :: Int -> ListSuitesResponse
+ Amazonka.DeviceFarm.ListTagsForResource: ListTagsForResource' :: Text -> ListTagsForResource
+ Amazonka.DeviceFarm.ListTagsForResource: ListTagsForResourceResponse' :: Maybe [Tag] -> Int -> ListTagsForResourceResponse
+ Amazonka.DeviceFarm.ListTagsForResource: [$sel:httpStatus:ListTagsForResourceResponse'] :: ListTagsForResourceResponse -> Int
+ Amazonka.DeviceFarm.ListTagsForResource: [$sel:resourceARN:ListTagsForResource'] :: ListTagsForResource -> Text
+ Amazonka.DeviceFarm.ListTagsForResource: [$sel:tags:ListTagsForResourceResponse'] :: ListTagsForResourceResponse -> Maybe [Tag]
+ Amazonka.DeviceFarm.ListTagsForResource: data ListTagsForResource
+ Amazonka.DeviceFarm.ListTagsForResource: data ListTagsForResourceResponse
+ Amazonka.DeviceFarm.ListTagsForResource: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ListTagsForResource.ListTagsForResource
+ Amazonka.DeviceFarm.ListTagsForResource: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ListTagsForResource.ListTagsForResource
+ Amazonka.DeviceFarm.ListTagsForResource: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ListTagsForResource.ListTagsForResource
+ Amazonka.DeviceFarm.ListTagsForResource: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ListTagsForResource.ListTagsForResource
+ Amazonka.DeviceFarm.ListTagsForResource: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListTagsForResource.ListTagsForResource
+ Amazonka.DeviceFarm.ListTagsForResource: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListTagsForResource.ListTagsForResourceResponse
+ Amazonka.DeviceFarm.ListTagsForResource: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ListTagsForResource.ListTagsForResource
+ Amazonka.DeviceFarm.ListTagsForResource: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ListTagsForResource.ListTagsForResource
+ Amazonka.DeviceFarm.ListTagsForResource: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListTagsForResource.ListTagsForResource
+ Amazonka.DeviceFarm.ListTagsForResource: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListTagsForResource.ListTagsForResourceResponse
+ Amazonka.DeviceFarm.ListTagsForResource: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListTagsForResource.ListTagsForResource
+ Amazonka.DeviceFarm.ListTagsForResource: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListTagsForResource.ListTagsForResourceResponse
+ Amazonka.DeviceFarm.ListTagsForResource: instance GHC.Read.Read Amazonka.DeviceFarm.ListTagsForResource.ListTagsForResource
+ Amazonka.DeviceFarm.ListTagsForResource: instance GHC.Read.Read Amazonka.DeviceFarm.ListTagsForResource.ListTagsForResourceResponse
+ Amazonka.DeviceFarm.ListTagsForResource: instance GHC.Show.Show Amazonka.DeviceFarm.ListTagsForResource.ListTagsForResource
+ Amazonka.DeviceFarm.ListTagsForResource: instance GHC.Show.Show Amazonka.DeviceFarm.ListTagsForResource.ListTagsForResourceResponse
+ Amazonka.DeviceFarm.ListTagsForResource: listTagsForResourceResponse_httpStatus :: Lens' ListTagsForResourceResponse Int
+ Amazonka.DeviceFarm.ListTagsForResource: listTagsForResourceResponse_tags :: Lens' ListTagsForResourceResponse (Maybe [Tag])
+ Amazonka.DeviceFarm.ListTagsForResource: listTagsForResource_resourceARN :: Lens' ListTagsForResource Text
+ Amazonka.DeviceFarm.ListTagsForResource: newListTagsForResource :: Text -> ListTagsForResource
+ Amazonka.DeviceFarm.ListTagsForResource: newListTagsForResourceResponse :: Int -> ListTagsForResourceResponse
+ Amazonka.DeviceFarm.ListTestGridProjects: ListTestGridProjects' :: Maybe Natural -> Maybe Text -> ListTestGridProjects
+ Amazonka.DeviceFarm.ListTestGridProjects: ListTestGridProjectsResponse' :: Maybe Text -> Maybe [TestGridProject] -> Int -> ListTestGridProjectsResponse
+ Amazonka.DeviceFarm.ListTestGridProjects: [$sel:httpStatus:ListTestGridProjectsResponse'] :: ListTestGridProjectsResponse -> Int
+ Amazonka.DeviceFarm.ListTestGridProjects: [$sel:maxResult:ListTestGridProjects'] :: ListTestGridProjects -> Maybe Natural
+ Amazonka.DeviceFarm.ListTestGridProjects: [$sel:nextToken:ListTestGridProjects'] :: ListTestGridProjects -> Maybe Text
+ Amazonka.DeviceFarm.ListTestGridProjects: [$sel:nextToken:ListTestGridProjectsResponse'] :: ListTestGridProjectsResponse -> Maybe Text
+ Amazonka.DeviceFarm.ListTestGridProjects: [$sel:testGridProjects:ListTestGridProjectsResponse'] :: ListTestGridProjectsResponse -> Maybe [TestGridProject]
+ Amazonka.DeviceFarm.ListTestGridProjects: data ListTestGridProjects
+ Amazonka.DeviceFarm.ListTestGridProjects: data ListTestGridProjectsResponse
+ Amazonka.DeviceFarm.ListTestGridProjects: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ListTestGridProjects.ListTestGridProjects
+ Amazonka.DeviceFarm.ListTestGridProjects: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ListTestGridProjects.ListTestGridProjects
+ Amazonka.DeviceFarm.ListTestGridProjects: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ListTestGridProjects.ListTestGridProjects
+ Amazonka.DeviceFarm.ListTestGridProjects: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ListTestGridProjects.ListTestGridProjects
+ Amazonka.DeviceFarm.ListTestGridProjects: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListTestGridProjects.ListTestGridProjects
+ Amazonka.DeviceFarm.ListTestGridProjects: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListTestGridProjects.ListTestGridProjectsResponse
+ Amazonka.DeviceFarm.ListTestGridProjects: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ListTestGridProjects.ListTestGridProjects
+ Amazonka.DeviceFarm.ListTestGridProjects: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ListTestGridProjects.ListTestGridProjects
+ Amazonka.DeviceFarm.ListTestGridProjects: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListTestGridProjects.ListTestGridProjects
+ Amazonka.DeviceFarm.ListTestGridProjects: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListTestGridProjects.ListTestGridProjectsResponse
+ Amazonka.DeviceFarm.ListTestGridProjects: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListTestGridProjects.ListTestGridProjects
+ Amazonka.DeviceFarm.ListTestGridProjects: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListTestGridProjects.ListTestGridProjectsResponse
+ Amazonka.DeviceFarm.ListTestGridProjects: instance GHC.Read.Read Amazonka.DeviceFarm.ListTestGridProjects.ListTestGridProjects
+ Amazonka.DeviceFarm.ListTestGridProjects: instance GHC.Read.Read Amazonka.DeviceFarm.ListTestGridProjects.ListTestGridProjectsResponse
+ Amazonka.DeviceFarm.ListTestGridProjects: instance GHC.Show.Show Amazonka.DeviceFarm.ListTestGridProjects.ListTestGridProjects
+ Amazonka.DeviceFarm.ListTestGridProjects: instance GHC.Show.Show Amazonka.DeviceFarm.ListTestGridProjects.ListTestGridProjectsResponse
+ Amazonka.DeviceFarm.ListTestGridProjects: listTestGridProjectsResponse_httpStatus :: Lens' ListTestGridProjectsResponse Int
+ Amazonka.DeviceFarm.ListTestGridProjects: listTestGridProjectsResponse_nextToken :: Lens' ListTestGridProjectsResponse (Maybe Text)
+ Amazonka.DeviceFarm.ListTestGridProjects: listTestGridProjectsResponse_testGridProjects :: Lens' ListTestGridProjectsResponse (Maybe [TestGridProject])
+ Amazonka.DeviceFarm.ListTestGridProjects: listTestGridProjects_maxResult :: Lens' ListTestGridProjects (Maybe Natural)
+ Amazonka.DeviceFarm.ListTestGridProjects: listTestGridProjects_nextToken :: Lens' ListTestGridProjects (Maybe Text)
+ Amazonka.DeviceFarm.ListTestGridProjects: newListTestGridProjects :: ListTestGridProjects
+ Amazonka.DeviceFarm.ListTestGridProjects: newListTestGridProjectsResponse :: Int -> ListTestGridProjectsResponse
+ Amazonka.DeviceFarm.ListTestGridSessionActions: ListTestGridSessionActions' :: Maybe Natural -> Maybe Text -> Text -> ListTestGridSessionActions
+ Amazonka.DeviceFarm.ListTestGridSessionActions: ListTestGridSessionActionsResponse' :: Maybe [TestGridSessionAction] -> Maybe Text -> Int -> ListTestGridSessionActionsResponse
+ Amazonka.DeviceFarm.ListTestGridSessionActions: [$sel:actions:ListTestGridSessionActionsResponse'] :: ListTestGridSessionActionsResponse -> Maybe [TestGridSessionAction]
+ Amazonka.DeviceFarm.ListTestGridSessionActions: [$sel:httpStatus:ListTestGridSessionActionsResponse'] :: ListTestGridSessionActionsResponse -> Int
+ Amazonka.DeviceFarm.ListTestGridSessionActions: [$sel:maxResult:ListTestGridSessionActions'] :: ListTestGridSessionActions -> Maybe Natural
+ Amazonka.DeviceFarm.ListTestGridSessionActions: [$sel:nextToken:ListTestGridSessionActions'] :: ListTestGridSessionActions -> Maybe Text
+ Amazonka.DeviceFarm.ListTestGridSessionActions: [$sel:nextToken:ListTestGridSessionActionsResponse'] :: ListTestGridSessionActionsResponse -> Maybe Text
+ Amazonka.DeviceFarm.ListTestGridSessionActions: [$sel:sessionArn:ListTestGridSessionActions'] :: ListTestGridSessionActions -> Text
+ Amazonka.DeviceFarm.ListTestGridSessionActions: data ListTestGridSessionActions
+ Amazonka.DeviceFarm.ListTestGridSessionActions: data ListTestGridSessionActionsResponse
+ Amazonka.DeviceFarm.ListTestGridSessionActions: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ListTestGridSessionActions.ListTestGridSessionActions
+ Amazonka.DeviceFarm.ListTestGridSessionActions: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ListTestGridSessionActions.ListTestGridSessionActions
+ Amazonka.DeviceFarm.ListTestGridSessionActions: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ListTestGridSessionActions.ListTestGridSessionActions
+ Amazonka.DeviceFarm.ListTestGridSessionActions: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ListTestGridSessionActions.ListTestGridSessionActions
+ Amazonka.DeviceFarm.ListTestGridSessionActions: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListTestGridSessionActions.ListTestGridSessionActions
+ Amazonka.DeviceFarm.ListTestGridSessionActions: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListTestGridSessionActions.ListTestGridSessionActionsResponse
+ Amazonka.DeviceFarm.ListTestGridSessionActions: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ListTestGridSessionActions.ListTestGridSessionActions
+ Amazonka.DeviceFarm.ListTestGridSessionActions: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ListTestGridSessionActions.ListTestGridSessionActions
+ Amazonka.DeviceFarm.ListTestGridSessionActions: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListTestGridSessionActions.ListTestGridSessionActions
+ Amazonka.DeviceFarm.ListTestGridSessionActions: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListTestGridSessionActions.ListTestGridSessionActionsResponse
+ Amazonka.DeviceFarm.ListTestGridSessionActions: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListTestGridSessionActions.ListTestGridSessionActions
+ Amazonka.DeviceFarm.ListTestGridSessionActions: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListTestGridSessionActions.ListTestGridSessionActionsResponse
+ Amazonka.DeviceFarm.ListTestGridSessionActions: instance GHC.Read.Read Amazonka.DeviceFarm.ListTestGridSessionActions.ListTestGridSessionActions
+ Amazonka.DeviceFarm.ListTestGridSessionActions: instance GHC.Read.Read Amazonka.DeviceFarm.ListTestGridSessionActions.ListTestGridSessionActionsResponse
+ Amazonka.DeviceFarm.ListTestGridSessionActions: instance GHC.Show.Show Amazonka.DeviceFarm.ListTestGridSessionActions.ListTestGridSessionActions
+ Amazonka.DeviceFarm.ListTestGridSessionActions: instance GHC.Show.Show Amazonka.DeviceFarm.ListTestGridSessionActions.ListTestGridSessionActionsResponse
+ Amazonka.DeviceFarm.ListTestGridSessionActions: listTestGridSessionActionsResponse_actions :: Lens' ListTestGridSessionActionsResponse (Maybe [TestGridSessionAction])
+ Amazonka.DeviceFarm.ListTestGridSessionActions: listTestGridSessionActionsResponse_httpStatus :: Lens' ListTestGridSessionActionsResponse Int
+ Amazonka.DeviceFarm.ListTestGridSessionActions: listTestGridSessionActionsResponse_nextToken :: Lens' ListTestGridSessionActionsResponse (Maybe Text)
+ Amazonka.DeviceFarm.ListTestGridSessionActions: listTestGridSessionActions_maxResult :: Lens' ListTestGridSessionActions (Maybe Natural)
+ Amazonka.DeviceFarm.ListTestGridSessionActions: listTestGridSessionActions_nextToken :: Lens' ListTestGridSessionActions (Maybe Text)
+ Amazonka.DeviceFarm.ListTestGridSessionActions: listTestGridSessionActions_sessionArn :: Lens' ListTestGridSessionActions Text
+ Amazonka.DeviceFarm.ListTestGridSessionActions: newListTestGridSessionActions :: Text -> ListTestGridSessionActions
+ Amazonka.DeviceFarm.ListTestGridSessionActions: newListTestGridSessionActionsResponse :: Int -> ListTestGridSessionActionsResponse
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: ListTestGridSessionArtifacts' :: Maybe Natural -> Maybe Text -> Maybe TestGridSessionArtifactCategory -> Text -> ListTestGridSessionArtifacts
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: ListTestGridSessionArtifactsResponse' :: Maybe [TestGridSessionArtifact] -> Maybe Text -> Int -> ListTestGridSessionArtifactsResponse
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: [$sel:artifacts:ListTestGridSessionArtifactsResponse'] :: ListTestGridSessionArtifactsResponse -> Maybe [TestGridSessionArtifact]
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: [$sel:httpStatus:ListTestGridSessionArtifactsResponse'] :: ListTestGridSessionArtifactsResponse -> Int
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: [$sel:maxResult:ListTestGridSessionArtifacts'] :: ListTestGridSessionArtifacts -> Maybe Natural
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: [$sel:nextToken:ListTestGridSessionArtifacts'] :: ListTestGridSessionArtifacts -> Maybe Text
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: [$sel:nextToken:ListTestGridSessionArtifactsResponse'] :: ListTestGridSessionArtifactsResponse -> Maybe Text
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: [$sel:sessionArn:ListTestGridSessionArtifacts'] :: ListTestGridSessionArtifacts -> Text
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: [$sel:type':ListTestGridSessionArtifacts'] :: ListTestGridSessionArtifacts -> Maybe TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: data ListTestGridSessionArtifacts
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: data ListTestGridSessionArtifactsResponse
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ListTestGridSessionArtifacts.ListTestGridSessionArtifacts
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ListTestGridSessionArtifacts.ListTestGridSessionArtifacts
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ListTestGridSessionArtifacts.ListTestGridSessionArtifacts
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ListTestGridSessionArtifacts.ListTestGridSessionArtifacts
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListTestGridSessionArtifacts.ListTestGridSessionArtifacts
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListTestGridSessionArtifacts.ListTestGridSessionArtifactsResponse
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ListTestGridSessionArtifacts.ListTestGridSessionArtifacts
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ListTestGridSessionArtifacts.ListTestGridSessionArtifacts
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListTestGridSessionArtifacts.ListTestGridSessionArtifacts
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListTestGridSessionArtifacts.ListTestGridSessionArtifactsResponse
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListTestGridSessionArtifacts.ListTestGridSessionArtifacts
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListTestGridSessionArtifacts.ListTestGridSessionArtifactsResponse
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: instance GHC.Read.Read Amazonka.DeviceFarm.ListTestGridSessionArtifacts.ListTestGridSessionArtifacts
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: instance GHC.Show.Show Amazonka.DeviceFarm.ListTestGridSessionArtifacts.ListTestGridSessionArtifacts
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: instance GHC.Show.Show Amazonka.DeviceFarm.ListTestGridSessionArtifacts.ListTestGridSessionArtifactsResponse
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: listTestGridSessionArtifactsResponse_artifacts :: Lens' ListTestGridSessionArtifactsResponse (Maybe [TestGridSessionArtifact])
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: listTestGridSessionArtifactsResponse_httpStatus :: Lens' ListTestGridSessionArtifactsResponse Int
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: listTestGridSessionArtifactsResponse_nextToken :: Lens' ListTestGridSessionArtifactsResponse (Maybe Text)
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: listTestGridSessionArtifacts_maxResult :: Lens' ListTestGridSessionArtifacts (Maybe Natural)
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: listTestGridSessionArtifacts_nextToken :: Lens' ListTestGridSessionArtifacts (Maybe Text)
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: listTestGridSessionArtifacts_sessionArn :: Lens' ListTestGridSessionArtifacts Text
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: listTestGridSessionArtifacts_type :: Lens' ListTestGridSessionArtifacts (Maybe TestGridSessionArtifactCategory)
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: newListTestGridSessionArtifacts :: Text -> ListTestGridSessionArtifacts
+ Amazonka.DeviceFarm.ListTestGridSessionArtifacts: newListTestGridSessionArtifactsResponse :: Int -> ListTestGridSessionArtifactsResponse
+ Amazonka.DeviceFarm.ListTestGridSessions: ListTestGridSessions' :: Maybe POSIX -> Maybe POSIX -> Maybe POSIX -> Maybe POSIX -> Maybe Natural -> Maybe Text -> Maybe TestGridSessionStatus -> Text -> ListTestGridSessions
+ Amazonka.DeviceFarm.ListTestGridSessions: ListTestGridSessionsResponse' :: Maybe Text -> Maybe [TestGridSession] -> Int -> ListTestGridSessionsResponse
+ Amazonka.DeviceFarm.ListTestGridSessions: [$sel:creationTimeAfter:ListTestGridSessions'] :: ListTestGridSessions -> Maybe POSIX
+ Amazonka.DeviceFarm.ListTestGridSessions: [$sel:creationTimeBefore:ListTestGridSessions'] :: ListTestGridSessions -> Maybe POSIX
+ Amazonka.DeviceFarm.ListTestGridSessions: [$sel:endTimeAfter:ListTestGridSessions'] :: ListTestGridSessions -> Maybe POSIX
+ Amazonka.DeviceFarm.ListTestGridSessions: [$sel:endTimeBefore:ListTestGridSessions'] :: ListTestGridSessions -> Maybe POSIX
+ Amazonka.DeviceFarm.ListTestGridSessions: [$sel:httpStatus:ListTestGridSessionsResponse'] :: ListTestGridSessionsResponse -> Int
+ Amazonka.DeviceFarm.ListTestGridSessions: [$sel:maxResult:ListTestGridSessions'] :: ListTestGridSessions -> Maybe Natural
+ Amazonka.DeviceFarm.ListTestGridSessions: [$sel:nextToken:ListTestGridSessions'] :: ListTestGridSessions -> Maybe Text
+ Amazonka.DeviceFarm.ListTestGridSessions: [$sel:nextToken:ListTestGridSessionsResponse'] :: ListTestGridSessionsResponse -> Maybe Text
+ Amazonka.DeviceFarm.ListTestGridSessions: [$sel:projectArn:ListTestGridSessions'] :: ListTestGridSessions -> Text
+ Amazonka.DeviceFarm.ListTestGridSessions: [$sel:status:ListTestGridSessions'] :: ListTestGridSessions -> Maybe TestGridSessionStatus
+ Amazonka.DeviceFarm.ListTestGridSessions: [$sel:testGridSessions:ListTestGridSessionsResponse'] :: ListTestGridSessionsResponse -> Maybe [TestGridSession]
+ Amazonka.DeviceFarm.ListTestGridSessions: data ListTestGridSessions
+ Amazonka.DeviceFarm.ListTestGridSessions: data ListTestGridSessionsResponse
+ Amazonka.DeviceFarm.ListTestGridSessions: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ListTestGridSessions.ListTestGridSessions
+ Amazonka.DeviceFarm.ListTestGridSessions: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ListTestGridSessions.ListTestGridSessions
+ Amazonka.DeviceFarm.ListTestGridSessions: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ListTestGridSessions.ListTestGridSessions
+ Amazonka.DeviceFarm.ListTestGridSessions: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ListTestGridSessions.ListTestGridSessions
+ Amazonka.DeviceFarm.ListTestGridSessions: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListTestGridSessions.ListTestGridSessions
+ Amazonka.DeviceFarm.ListTestGridSessions: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListTestGridSessions.ListTestGridSessionsResponse
+ Amazonka.DeviceFarm.ListTestGridSessions: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ListTestGridSessions.ListTestGridSessions
+ Amazonka.DeviceFarm.ListTestGridSessions: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ListTestGridSessions.ListTestGridSessions
+ Amazonka.DeviceFarm.ListTestGridSessions: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListTestGridSessions.ListTestGridSessions
+ Amazonka.DeviceFarm.ListTestGridSessions: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListTestGridSessions.ListTestGridSessionsResponse
+ Amazonka.DeviceFarm.ListTestGridSessions: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListTestGridSessions.ListTestGridSessions
+ Amazonka.DeviceFarm.ListTestGridSessions: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListTestGridSessions.ListTestGridSessionsResponse
+ Amazonka.DeviceFarm.ListTestGridSessions: instance GHC.Read.Read Amazonka.DeviceFarm.ListTestGridSessions.ListTestGridSessions
+ Amazonka.DeviceFarm.ListTestGridSessions: instance GHC.Read.Read Amazonka.DeviceFarm.ListTestGridSessions.ListTestGridSessionsResponse
+ Amazonka.DeviceFarm.ListTestGridSessions: instance GHC.Show.Show Amazonka.DeviceFarm.ListTestGridSessions.ListTestGridSessions
+ Amazonka.DeviceFarm.ListTestGridSessions: instance GHC.Show.Show Amazonka.DeviceFarm.ListTestGridSessions.ListTestGridSessionsResponse
+ Amazonka.DeviceFarm.ListTestGridSessions: listTestGridSessionsResponse_httpStatus :: Lens' ListTestGridSessionsResponse Int
+ Amazonka.DeviceFarm.ListTestGridSessions: listTestGridSessionsResponse_nextToken :: Lens' ListTestGridSessionsResponse (Maybe Text)
+ Amazonka.DeviceFarm.ListTestGridSessions: listTestGridSessionsResponse_testGridSessions :: Lens' ListTestGridSessionsResponse (Maybe [TestGridSession])
+ Amazonka.DeviceFarm.ListTestGridSessions: listTestGridSessions_creationTimeAfter :: Lens' ListTestGridSessions (Maybe UTCTime)
+ Amazonka.DeviceFarm.ListTestGridSessions: listTestGridSessions_creationTimeBefore :: Lens' ListTestGridSessions (Maybe UTCTime)
+ Amazonka.DeviceFarm.ListTestGridSessions: listTestGridSessions_endTimeAfter :: Lens' ListTestGridSessions (Maybe UTCTime)
+ Amazonka.DeviceFarm.ListTestGridSessions: listTestGridSessions_endTimeBefore :: Lens' ListTestGridSessions (Maybe UTCTime)
+ Amazonka.DeviceFarm.ListTestGridSessions: listTestGridSessions_maxResult :: Lens' ListTestGridSessions (Maybe Natural)
+ Amazonka.DeviceFarm.ListTestGridSessions: listTestGridSessions_nextToken :: Lens' ListTestGridSessions (Maybe Text)
+ Amazonka.DeviceFarm.ListTestGridSessions: listTestGridSessions_projectArn :: Lens' ListTestGridSessions Text
+ Amazonka.DeviceFarm.ListTestGridSessions: listTestGridSessions_status :: Lens' ListTestGridSessions (Maybe TestGridSessionStatus)
+ Amazonka.DeviceFarm.ListTestGridSessions: newListTestGridSessions :: Text -> ListTestGridSessions
+ Amazonka.DeviceFarm.ListTestGridSessions: newListTestGridSessionsResponse :: Int -> ListTestGridSessionsResponse
+ Amazonka.DeviceFarm.ListTests: ListTests' :: Maybe Text -> Text -> ListTests
+ Amazonka.DeviceFarm.ListTests: ListTestsResponse' :: Maybe Text -> Maybe [Test] -> Int -> ListTestsResponse
+ Amazonka.DeviceFarm.ListTests: [$sel:arn:ListTests'] :: ListTests -> Text
+ Amazonka.DeviceFarm.ListTests: [$sel:httpStatus:ListTestsResponse'] :: ListTestsResponse -> Int
+ Amazonka.DeviceFarm.ListTests: [$sel:nextToken:ListTests'] :: ListTests -> Maybe Text
+ Amazonka.DeviceFarm.ListTests: [$sel:nextToken:ListTestsResponse'] :: ListTestsResponse -> Maybe Text
+ Amazonka.DeviceFarm.ListTests: [$sel:tests:ListTestsResponse'] :: ListTestsResponse -> Maybe [Test]
+ Amazonka.DeviceFarm.ListTests: data ListTests
+ Amazonka.DeviceFarm.ListTests: data ListTestsResponse
+ Amazonka.DeviceFarm.ListTests: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ListTests.ListTests
+ Amazonka.DeviceFarm.ListTests: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ListTests.ListTests
+ Amazonka.DeviceFarm.ListTests: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ListTests.ListTests
+ Amazonka.DeviceFarm.ListTests: instance Amazonka.Pager.AWSPager Amazonka.DeviceFarm.ListTests.ListTests
+ Amazonka.DeviceFarm.ListTests: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ListTests.ListTests
+ Amazonka.DeviceFarm.ListTests: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListTests.ListTests
+ Amazonka.DeviceFarm.ListTests: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListTests.ListTestsResponse
+ Amazonka.DeviceFarm.ListTests: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ListTests.ListTests
+ Amazonka.DeviceFarm.ListTests: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ListTests.ListTests
+ Amazonka.DeviceFarm.ListTests: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListTests.ListTests
+ Amazonka.DeviceFarm.ListTests: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListTests.ListTestsResponse
+ Amazonka.DeviceFarm.ListTests: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListTests.ListTests
+ Amazonka.DeviceFarm.ListTests: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListTests.ListTestsResponse
+ Amazonka.DeviceFarm.ListTests: instance GHC.Read.Read Amazonka.DeviceFarm.ListTests.ListTests
+ Amazonka.DeviceFarm.ListTests: instance GHC.Read.Read Amazonka.DeviceFarm.ListTests.ListTestsResponse
+ Amazonka.DeviceFarm.ListTests: instance GHC.Show.Show Amazonka.DeviceFarm.ListTests.ListTests
+ Amazonka.DeviceFarm.ListTests: instance GHC.Show.Show Amazonka.DeviceFarm.ListTests.ListTestsResponse
+ Amazonka.DeviceFarm.ListTests: listTestsResponse_httpStatus :: Lens' ListTestsResponse Int
+ Amazonka.DeviceFarm.ListTests: listTestsResponse_nextToken :: Lens' ListTestsResponse (Maybe Text)
+ Amazonka.DeviceFarm.ListTests: listTestsResponse_tests :: Lens' ListTestsResponse (Maybe [Test])
+ Amazonka.DeviceFarm.ListTests: listTests_arn :: Lens' ListTests Text
+ Amazonka.DeviceFarm.ListTests: listTests_nextToken :: Lens' ListTests (Maybe Text)
+ Amazonka.DeviceFarm.ListTests: newListTests :: Text -> ListTests
+ Amazonka.DeviceFarm.ListTests: newListTestsResponse :: Int -> ListTestsResponse
+ Amazonka.DeviceFarm.ListUniqueProblems: ListUniqueProblems' :: Maybe Text -> Text -> ListUniqueProblems
+ Amazonka.DeviceFarm.ListUniqueProblems: ListUniqueProblemsResponse' :: Maybe Text -> Maybe (HashMap ExecutionResult [UniqueProblem]) -> Int -> ListUniqueProblemsResponse
+ Amazonka.DeviceFarm.ListUniqueProblems: [$sel:arn:ListUniqueProblems'] :: ListUniqueProblems -> Text
+ Amazonka.DeviceFarm.ListUniqueProblems: [$sel:httpStatus:ListUniqueProblemsResponse'] :: ListUniqueProblemsResponse -> Int
+ Amazonka.DeviceFarm.ListUniqueProblems: [$sel:nextToken:ListUniqueProblems'] :: ListUniqueProblems -> Maybe Text
+ Amazonka.DeviceFarm.ListUniqueProblems: [$sel:nextToken:ListUniqueProblemsResponse'] :: ListUniqueProblemsResponse -> Maybe Text
+ Amazonka.DeviceFarm.ListUniqueProblems: [$sel:uniqueProblems:ListUniqueProblemsResponse'] :: ListUniqueProblemsResponse -> Maybe (HashMap ExecutionResult [UniqueProblem])
+ Amazonka.DeviceFarm.ListUniqueProblems: data ListUniqueProblems
+ Amazonka.DeviceFarm.ListUniqueProblems: data ListUniqueProblemsResponse
+ Amazonka.DeviceFarm.ListUniqueProblems: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ListUniqueProblems.ListUniqueProblems
+ Amazonka.DeviceFarm.ListUniqueProblems: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ListUniqueProblems.ListUniqueProblems
+ Amazonka.DeviceFarm.ListUniqueProblems: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ListUniqueProblems.ListUniqueProblems
+ Amazonka.DeviceFarm.ListUniqueProblems: instance Amazonka.Pager.AWSPager Amazonka.DeviceFarm.ListUniqueProblems.ListUniqueProblems
+ Amazonka.DeviceFarm.ListUniqueProblems: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ListUniqueProblems.ListUniqueProblems
+ Amazonka.DeviceFarm.ListUniqueProblems: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListUniqueProblems.ListUniqueProblems
+ Amazonka.DeviceFarm.ListUniqueProblems: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListUniqueProblems.ListUniqueProblemsResponse
+ Amazonka.DeviceFarm.ListUniqueProblems: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ListUniqueProblems.ListUniqueProblems
+ Amazonka.DeviceFarm.ListUniqueProblems: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ListUniqueProblems.ListUniqueProblems
+ Amazonka.DeviceFarm.ListUniqueProblems: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListUniqueProblems.ListUniqueProblems
+ Amazonka.DeviceFarm.ListUniqueProblems: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListUniqueProblems.ListUniqueProblemsResponse
+ Amazonka.DeviceFarm.ListUniqueProblems: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListUniqueProblems.ListUniqueProblems
+ Amazonka.DeviceFarm.ListUniqueProblems: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListUniqueProblems.ListUniqueProblemsResponse
+ Amazonka.DeviceFarm.ListUniqueProblems: instance GHC.Read.Read Amazonka.DeviceFarm.ListUniqueProblems.ListUniqueProblems
+ Amazonka.DeviceFarm.ListUniqueProblems: instance GHC.Read.Read Amazonka.DeviceFarm.ListUniqueProblems.ListUniqueProblemsResponse
+ Amazonka.DeviceFarm.ListUniqueProblems: instance GHC.Show.Show Amazonka.DeviceFarm.ListUniqueProblems.ListUniqueProblems
+ Amazonka.DeviceFarm.ListUniqueProblems: instance GHC.Show.Show Amazonka.DeviceFarm.ListUniqueProblems.ListUniqueProblemsResponse
+ Amazonka.DeviceFarm.ListUniqueProblems: listUniqueProblemsResponse_httpStatus :: Lens' ListUniqueProblemsResponse Int
+ Amazonka.DeviceFarm.ListUniqueProblems: listUniqueProblemsResponse_nextToken :: Lens' ListUniqueProblemsResponse (Maybe Text)
+ Amazonka.DeviceFarm.ListUniqueProblems: listUniqueProblemsResponse_uniqueProblems :: Lens' ListUniqueProblemsResponse (Maybe (HashMap ExecutionResult [UniqueProblem]))
+ Amazonka.DeviceFarm.ListUniqueProblems: listUniqueProblems_arn :: Lens' ListUniqueProblems Text
+ Amazonka.DeviceFarm.ListUniqueProblems: listUniqueProblems_nextToken :: Lens' ListUniqueProblems (Maybe Text)
+ Amazonka.DeviceFarm.ListUniqueProblems: newListUniqueProblems :: Text -> ListUniqueProblems
+ Amazonka.DeviceFarm.ListUniqueProblems: newListUniqueProblemsResponse :: Int -> ListUniqueProblemsResponse
+ Amazonka.DeviceFarm.ListUploads: ListUploads' :: Maybe Text -> Maybe UploadType -> Text -> ListUploads
+ Amazonka.DeviceFarm.ListUploads: ListUploadsResponse' :: Maybe Text -> Maybe [Upload] -> Int -> ListUploadsResponse
+ Amazonka.DeviceFarm.ListUploads: [$sel:arn:ListUploads'] :: ListUploads -> Text
+ Amazonka.DeviceFarm.ListUploads: [$sel:httpStatus:ListUploadsResponse'] :: ListUploadsResponse -> Int
+ Amazonka.DeviceFarm.ListUploads: [$sel:nextToken:ListUploads'] :: ListUploads -> Maybe Text
+ Amazonka.DeviceFarm.ListUploads: [$sel:nextToken:ListUploadsResponse'] :: ListUploadsResponse -> Maybe Text
+ Amazonka.DeviceFarm.ListUploads: [$sel:type':ListUploads'] :: ListUploads -> Maybe UploadType
+ Amazonka.DeviceFarm.ListUploads: [$sel:uploads:ListUploadsResponse'] :: ListUploadsResponse -> Maybe [Upload]
+ Amazonka.DeviceFarm.ListUploads: data ListUploads
+ Amazonka.DeviceFarm.ListUploads: data ListUploadsResponse
+ Amazonka.DeviceFarm.ListUploads: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ListUploads.ListUploads
+ Amazonka.DeviceFarm.ListUploads: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ListUploads.ListUploads
+ Amazonka.DeviceFarm.ListUploads: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ListUploads.ListUploads
+ Amazonka.DeviceFarm.ListUploads: instance Amazonka.Pager.AWSPager Amazonka.DeviceFarm.ListUploads.ListUploads
+ Amazonka.DeviceFarm.ListUploads: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ListUploads.ListUploads
+ Amazonka.DeviceFarm.ListUploads: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListUploads.ListUploads
+ Amazonka.DeviceFarm.ListUploads: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListUploads.ListUploadsResponse
+ Amazonka.DeviceFarm.ListUploads: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ListUploads.ListUploads
+ Amazonka.DeviceFarm.ListUploads: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ListUploads.ListUploads
+ Amazonka.DeviceFarm.ListUploads: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListUploads.ListUploads
+ Amazonka.DeviceFarm.ListUploads: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListUploads.ListUploadsResponse
+ Amazonka.DeviceFarm.ListUploads: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListUploads.ListUploads
+ Amazonka.DeviceFarm.ListUploads: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListUploads.ListUploadsResponse
+ Amazonka.DeviceFarm.ListUploads: instance GHC.Read.Read Amazonka.DeviceFarm.ListUploads.ListUploads
+ Amazonka.DeviceFarm.ListUploads: instance GHC.Show.Show Amazonka.DeviceFarm.ListUploads.ListUploads
+ Amazonka.DeviceFarm.ListUploads: instance GHC.Show.Show Amazonka.DeviceFarm.ListUploads.ListUploadsResponse
+ Amazonka.DeviceFarm.ListUploads: listUploadsResponse_httpStatus :: Lens' ListUploadsResponse Int
+ Amazonka.DeviceFarm.ListUploads: listUploadsResponse_nextToken :: Lens' ListUploadsResponse (Maybe Text)
+ Amazonka.DeviceFarm.ListUploads: listUploadsResponse_uploads :: Lens' ListUploadsResponse (Maybe [Upload])
+ Amazonka.DeviceFarm.ListUploads: listUploads_arn :: Lens' ListUploads Text
+ Amazonka.DeviceFarm.ListUploads: listUploads_nextToken :: Lens' ListUploads (Maybe Text)
+ Amazonka.DeviceFarm.ListUploads: listUploads_type :: Lens' ListUploads (Maybe UploadType)
+ Amazonka.DeviceFarm.ListUploads: newListUploads :: Text -> ListUploads
+ Amazonka.DeviceFarm.ListUploads: newListUploadsResponse :: Int -> ListUploadsResponse
+ Amazonka.DeviceFarm.ListVPCEConfigurations: ListVPCEConfigurations' :: Maybe Int -> Maybe Text -> ListVPCEConfigurations
+ Amazonka.DeviceFarm.ListVPCEConfigurations: ListVPCEConfigurationsResponse' :: Maybe Text -> Maybe [VPCEConfiguration] -> Int -> ListVPCEConfigurationsResponse
+ Amazonka.DeviceFarm.ListVPCEConfigurations: [$sel:httpStatus:ListVPCEConfigurationsResponse'] :: ListVPCEConfigurationsResponse -> Int
+ Amazonka.DeviceFarm.ListVPCEConfigurations: [$sel:maxResults:ListVPCEConfigurations'] :: ListVPCEConfigurations -> Maybe Int
+ Amazonka.DeviceFarm.ListVPCEConfigurations: [$sel:nextToken:ListVPCEConfigurations'] :: ListVPCEConfigurations -> Maybe Text
+ Amazonka.DeviceFarm.ListVPCEConfigurations: [$sel:nextToken:ListVPCEConfigurationsResponse'] :: ListVPCEConfigurationsResponse -> Maybe Text
+ Amazonka.DeviceFarm.ListVPCEConfigurations: [$sel:vpceConfigurations:ListVPCEConfigurationsResponse'] :: ListVPCEConfigurationsResponse -> Maybe [VPCEConfiguration]
+ Amazonka.DeviceFarm.ListVPCEConfigurations: data ListVPCEConfigurations
+ Amazonka.DeviceFarm.ListVPCEConfigurations: data ListVPCEConfigurationsResponse
+ Amazonka.DeviceFarm.ListVPCEConfigurations: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurations
+ Amazonka.DeviceFarm.ListVPCEConfigurations: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurations
+ Amazonka.DeviceFarm.ListVPCEConfigurations: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurations
+ Amazonka.DeviceFarm.ListVPCEConfigurations: instance Amazonka.Pager.AWSPager Amazonka.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurations
+ Amazonka.DeviceFarm.ListVPCEConfigurations: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurations
+ Amazonka.DeviceFarm.ListVPCEConfigurations: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurations
+ Amazonka.DeviceFarm.ListVPCEConfigurations: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurationsResponse
+ Amazonka.DeviceFarm.ListVPCEConfigurations: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurations
+ Amazonka.DeviceFarm.ListVPCEConfigurations: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurations
+ Amazonka.DeviceFarm.ListVPCEConfigurations: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurations
+ Amazonka.DeviceFarm.ListVPCEConfigurations: instance GHC.Classes.Eq Amazonka.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurationsResponse
+ Amazonka.DeviceFarm.ListVPCEConfigurations: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurations
+ Amazonka.DeviceFarm.ListVPCEConfigurations: instance GHC.Generics.Generic Amazonka.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurationsResponse
+ Amazonka.DeviceFarm.ListVPCEConfigurations: instance GHC.Read.Read Amazonka.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurations
+ Amazonka.DeviceFarm.ListVPCEConfigurations: instance GHC.Read.Read Amazonka.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurationsResponse
+ Amazonka.DeviceFarm.ListVPCEConfigurations: instance GHC.Show.Show Amazonka.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurations
+ Amazonka.DeviceFarm.ListVPCEConfigurations: instance GHC.Show.Show Amazonka.DeviceFarm.ListVPCEConfigurations.ListVPCEConfigurationsResponse
+ Amazonka.DeviceFarm.ListVPCEConfigurations: listVPCEConfigurationsResponse_httpStatus :: Lens' ListVPCEConfigurationsResponse Int
+ Amazonka.DeviceFarm.ListVPCEConfigurations: listVPCEConfigurationsResponse_nextToken :: Lens' ListVPCEConfigurationsResponse (Maybe Text)
+ Amazonka.DeviceFarm.ListVPCEConfigurations: listVPCEConfigurationsResponse_vpceConfigurations :: Lens' ListVPCEConfigurationsResponse (Maybe [VPCEConfiguration])
+ Amazonka.DeviceFarm.ListVPCEConfigurations: listVPCEConfigurations_maxResults :: Lens' ListVPCEConfigurations (Maybe Int)
+ Amazonka.DeviceFarm.ListVPCEConfigurations: listVPCEConfigurations_nextToken :: Lens' ListVPCEConfigurations (Maybe Text)
+ Amazonka.DeviceFarm.ListVPCEConfigurations: newListVPCEConfigurations :: ListVPCEConfigurations
+ Amazonka.DeviceFarm.ListVPCEConfigurations: newListVPCEConfigurationsResponse :: Int -> ListVPCEConfigurationsResponse
+ Amazonka.DeviceFarm.PurchaseOffering: PurchaseOffering' :: Maybe Text -> Text -> Int -> PurchaseOffering
+ Amazonka.DeviceFarm.PurchaseOffering: PurchaseOfferingResponse' :: Maybe OfferingTransaction -> Int -> PurchaseOfferingResponse
+ Amazonka.DeviceFarm.PurchaseOffering: [$sel:httpStatus:PurchaseOfferingResponse'] :: PurchaseOfferingResponse -> Int
+ Amazonka.DeviceFarm.PurchaseOffering: [$sel:offeringId:PurchaseOffering'] :: PurchaseOffering -> Text
+ Amazonka.DeviceFarm.PurchaseOffering: [$sel:offeringPromotionId:PurchaseOffering'] :: PurchaseOffering -> Maybe Text
+ Amazonka.DeviceFarm.PurchaseOffering: [$sel:offeringTransaction:PurchaseOfferingResponse'] :: PurchaseOfferingResponse -> Maybe OfferingTransaction
+ Amazonka.DeviceFarm.PurchaseOffering: [$sel:quantity:PurchaseOffering'] :: PurchaseOffering -> Int
+ Amazonka.DeviceFarm.PurchaseOffering: data PurchaseOffering
+ Amazonka.DeviceFarm.PurchaseOffering: data PurchaseOfferingResponse
+ Amazonka.DeviceFarm.PurchaseOffering: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.PurchaseOffering.PurchaseOffering
+ Amazonka.DeviceFarm.PurchaseOffering: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.PurchaseOffering.PurchaseOffering
+ Amazonka.DeviceFarm.PurchaseOffering: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.PurchaseOffering.PurchaseOffering
+ Amazonka.DeviceFarm.PurchaseOffering: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.PurchaseOffering.PurchaseOffering
+ Amazonka.DeviceFarm.PurchaseOffering: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.PurchaseOffering.PurchaseOffering
+ Amazonka.DeviceFarm.PurchaseOffering: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.PurchaseOffering.PurchaseOfferingResponse
+ Amazonka.DeviceFarm.PurchaseOffering: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.PurchaseOffering.PurchaseOffering
+ Amazonka.DeviceFarm.PurchaseOffering: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.PurchaseOffering.PurchaseOffering
+ Amazonka.DeviceFarm.PurchaseOffering: instance GHC.Classes.Eq Amazonka.DeviceFarm.PurchaseOffering.PurchaseOffering
+ Amazonka.DeviceFarm.PurchaseOffering: instance GHC.Classes.Eq Amazonka.DeviceFarm.PurchaseOffering.PurchaseOfferingResponse
+ Amazonka.DeviceFarm.PurchaseOffering: instance GHC.Generics.Generic Amazonka.DeviceFarm.PurchaseOffering.PurchaseOffering
+ Amazonka.DeviceFarm.PurchaseOffering: instance GHC.Generics.Generic Amazonka.DeviceFarm.PurchaseOffering.PurchaseOfferingResponse
+ Amazonka.DeviceFarm.PurchaseOffering: instance GHC.Read.Read Amazonka.DeviceFarm.PurchaseOffering.PurchaseOffering
+ Amazonka.DeviceFarm.PurchaseOffering: instance GHC.Read.Read Amazonka.DeviceFarm.PurchaseOffering.PurchaseOfferingResponse
+ Amazonka.DeviceFarm.PurchaseOffering: instance GHC.Show.Show Amazonka.DeviceFarm.PurchaseOffering.PurchaseOffering
+ Amazonka.DeviceFarm.PurchaseOffering: instance GHC.Show.Show Amazonka.DeviceFarm.PurchaseOffering.PurchaseOfferingResponse
+ Amazonka.DeviceFarm.PurchaseOffering: newPurchaseOffering :: Text -> Int -> PurchaseOffering
+ Amazonka.DeviceFarm.PurchaseOffering: newPurchaseOfferingResponse :: Int -> PurchaseOfferingResponse
+ Amazonka.DeviceFarm.PurchaseOffering: purchaseOfferingResponse_httpStatus :: Lens' PurchaseOfferingResponse Int
+ Amazonka.DeviceFarm.PurchaseOffering: purchaseOfferingResponse_offeringTransaction :: Lens' PurchaseOfferingResponse (Maybe OfferingTransaction)
+ Amazonka.DeviceFarm.PurchaseOffering: purchaseOffering_offeringId :: Lens' PurchaseOffering Text
+ Amazonka.DeviceFarm.PurchaseOffering: purchaseOffering_offeringPromotionId :: Lens' PurchaseOffering (Maybe Text)
+ Amazonka.DeviceFarm.PurchaseOffering: purchaseOffering_quantity :: Lens' PurchaseOffering Int
+ Amazonka.DeviceFarm.RenewOffering: RenewOffering' :: Text -> Int -> RenewOffering
+ Amazonka.DeviceFarm.RenewOffering: RenewOfferingResponse' :: Maybe OfferingTransaction -> Int -> RenewOfferingResponse
+ Amazonka.DeviceFarm.RenewOffering: [$sel:httpStatus:RenewOfferingResponse'] :: RenewOfferingResponse -> Int
+ Amazonka.DeviceFarm.RenewOffering: [$sel:offeringId:RenewOffering'] :: RenewOffering -> Text
+ Amazonka.DeviceFarm.RenewOffering: [$sel:offeringTransaction:RenewOfferingResponse'] :: RenewOfferingResponse -> Maybe OfferingTransaction
+ Amazonka.DeviceFarm.RenewOffering: [$sel:quantity:RenewOffering'] :: RenewOffering -> Int
+ Amazonka.DeviceFarm.RenewOffering: data RenewOffering
+ Amazonka.DeviceFarm.RenewOffering: data RenewOfferingResponse
+ Amazonka.DeviceFarm.RenewOffering: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.RenewOffering.RenewOffering
+ Amazonka.DeviceFarm.RenewOffering: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.RenewOffering.RenewOffering
+ Amazonka.DeviceFarm.RenewOffering: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.RenewOffering.RenewOffering
+ Amazonka.DeviceFarm.RenewOffering: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.RenewOffering.RenewOffering
+ Amazonka.DeviceFarm.RenewOffering: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.RenewOffering.RenewOffering
+ Amazonka.DeviceFarm.RenewOffering: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.RenewOffering.RenewOfferingResponse
+ Amazonka.DeviceFarm.RenewOffering: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.RenewOffering.RenewOffering
+ Amazonka.DeviceFarm.RenewOffering: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.RenewOffering.RenewOffering
+ Amazonka.DeviceFarm.RenewOffering: instance GHC.Classes.Eq Amazonka.DeviceFarm.RenewOffering.RenewOffering
+ Amazonka.DeviceFarm.RenewOffering: instance GHC.Classes.Eq Amazonka.DeviceFarm.RenewOffering.RenewOfferingResponse
+ Amazonka.DeviceFarm.RenewOffering: instance GHC.Generics.Generic Amazonka.DeviceFarm.RenewOffering.RenewOffering
+ Amazonka.DeviceFarm.RenewOffering: instance GHC.Generics.Generic Amazonka.DeviceFarm.RenewOffering.RenewOfferingResponse
+ Amazonka.DeviceFarm.RenewOffering: instance GHC.Read.Read Amazonka.DeviceFarm.RenewOffering.RenewOffering
+ Amazonka.DeviceFarm.RenewOffering: instance GHC.Read.Read Amazonka.DeviceFarm.RenewOffering.RenewOfferingResponse
+ Amazonka.DeviceFarm.RenewOffering: instance GHC.Show.Show Amazonka.DeviceFarm.RenewOffering.RenewOffering
+ Amazonka.DeviceFarm.RenewOffering: instance GHC.Show.Show Amazonka.DeviceFarm.RenewOffering.RenewOfferingResponse
+ Amazonka.DeviceFarm.RenewOffering: newRenewOffering :: Text -> Int -> RenewOffering
+ Amazonka.DeviceFarm.RenewOffering: newRenewOfferingResponse :: Int -> RenewOfferingResponse
+ Amazonka.DeviceFarm.RenewOffering: renewOfferingResponse_httpStatus :: Lens' RenewOfferingResponse Int
+ Amazonka.DeviceFarm.RenewOffering: renewOfferingResponse_offeringTransaction :: Lens' RenewOfferingResponse (Maybe OfferingTransaction)
+ Amazonka.DeviceFarm.RenewOffering: renewOffering_offeringId :: Lens' RenewOffering Text
+ Amazonka.DeviceFarm.RenewOffering: renewOffering_quantity :: Lens' RenewOffering Int
+ Amazonka.DeviceFarm.ScheduleRun: ScheduleRun' :: Maybe Text -> Maybe ScheduleRunConfiguration -> Maybe Text -> Maybe DeviceSelectionConfiguration -> Maybe ExecutionConfiguration -> Maybe Text -> Text -> ScheduleRunTest -> ScheduleRun
+ Amazonka.DeviceFarm.ScheduleRun: ScheduleRunResponse' :: Maybe Run -> Int -> ScheduleRunResponse
+ Amazonka.DeviceFarm.ScheduleRun: [$sel:appArn:ScheduleRun'] :: ScheduleRun -> Maybe Text
+ Amazonka.DeviceFarm.ScheduleRun: [$sel:configuration:ScheduleRun'] :: ScheduleRun -> Maybe ScheduleRunConfiguration
+ Amazonka.DeviceFarm.ScheduleRun: [$sel:devicePoolArn:ScheduleRun'] :: ScheduleRun -> Maybe Text
+ Amazonka.DeviceFarm.ScheduleRun: [$sel:deviceSelectionConfiguration:ScheduleRun'] :: ScheduleRun -> Maybe DeviceSelectionConfiguration
+ Amazonka.DeviceFarm.ScheduleRun: [$sel:executionConfiguration:ScheduleRun'] :: ScheduleRun -> Maybe ExecutionConfiguration
+ Amazonka.DeviceFarm.ScheduleRun: [$sel:httpStatus:ScheduleRunResponse'] :: ScheduleRunResponse -> Int
+ Amazonka.DeviceFarm.ScheduleRun: [$sel:name:ScheduleRun'] :: ScheduleRun -> Maybe Text
+ Amazonka.DeviceFarm.ScheduleRun: [$sel:projectArn:ScheduleRun'] :: ScheduleRun -> Text
+ Amazonka.DeviceFarm.ScheduleRun: [$sel:run:ScheduleRunResponse'] :: ScheduleRunResponse -> Maybe Run
+ Amazonka.DeviceFarm.ScheduleRun: [$sel:test:ScheduleRun'] :: ScheduleRun -> ScheduleRunTest
+ Amazonka.DeviceFarm.ScheduleRun: data ScheduleRun
+ Amazonka.DeviceFarm.ScheduleRun: data ScheduleRunResponse
+ Amazonka.DeviceFarm.ScheduleRun: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.ScheduleRun.ScheduleRun
+ Amazonka.DeviceFarm.ScheduleRun: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.ScheduleRun.ScheduleRun
+ Amazonka.DeviceFarm.ScheduleRun: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.ScheduleRun.ScheduleRun
+ Amazonka.DeviceFarm.ScheduleRun: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.ScheduleRun.ScheduleRun
+ Amazonka.DeviceFarm.ScheduleRun: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ScheduleRun.ScheduleRun
+ Amazonka.DeviceFarm.ScheduleRun: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.ScheduleRun.ScheduleRunResponse
+ Amazonka.DeviceFarm.ScheduleRun: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.ScheduleRun.ScheduleRun
+ Amazonka.DeviceFarm.ScheduleRun: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.ScheduleRun.ScheduleRun
+ Amazonka.DeviceFarm.ScheduleRun: instance GHC.Classes.Eq Amazonka.DeviceFarm.ScheduleRun.ScheduleRun
+ Amazonka.DeviceFarm.ScheduleRun: instance GHC.Classes.Eq Amazonka.DeviceFarm.ScheduleRun.ScheduleRunResponse
+ Amazonka.DeviceFarm.ScheduleRun: instance GHC.Generics.Generic Amazonka.DeviceFarm.ScheduleRun.ScheduleRun
+ Amazonka.DeviceFarm.ScheduleRun: instance GHC.Generics.Generic Amazonka.DeviceFarm.ScheduleRun.ScheduleRunResponse
+ Amazonka.DeviceFarm.ScheduleRun: instance GHC.Read.Read Amazonka.DeviceFarm.ScheduleRun.ScheduleRun
+ Amazonka.DeviceFarm.ScheduleRun: instance GHC.Read.Read Amazonka.DeviceFarm.ScheduleRun.ScheduleRunResponse
+ Amazonka.DeviceFarm.ScheduleRun: instance GHC.Show.Show Amazonka.DeviceFarm.ScheduleRun.ScheduleRun
+ Amazonka.DeviceFarm.ScheduleRun: instance GHC.Show.Show Amazonka.DeviceFarm.ScheduleRun.ScheduleRunResponse
+ Amazonka.DeviceFarm.ScheduleRun: newScheduleRun :: Text -> ScheduleRunTest -> ScheduleRun
+ Amazonka.DeviceFarm.ScheduleRun: newScheduleRunResponse :: Int -> ScheduleRunResponse
+ Amazonka.DeviceFarm.ScheduleRun: scheduleRunResponse_httpStatus :: Lens' ScheduleRunResponse Int
+ Amazonka.DeviceFarm.ScheduleRun: scheduleRunResponse_run :: Lens' ScheduleRunResponse (Maybe Run)
+ Amazonka.DeviceFarm.ScheduleRun: scheduleRun_appArn :: Lens' ScheduleRun (Maybe Text)
+ Amazonka.DeviceFarm.ScheduleRun: scheduleRun_configuration :: Lens' ScheduleRun (Maybe ScheduleRunConfiguration)
+ Amazonka.DeviceFarm.ScheduleRun: scheduleRun_devicePoolArn :: Lens' ScheduleRun (Maybe Text)
+ Amazonka.DeviceFarm.ScheduleRun: scheduleRun_deviceSelectionConfiguration :: Lens' ScheduleRun (Maybe DeviceSelectionConfiguration)
+ Amazonka.DeviceFarm.ScheduleRun: scheduleRun_executionConfiguration :: Lens' ScheduleRun (Maybe ExecutionConfiguration)
+ Amazonka.DeviceFarm.ScheduleRun: scheduleRun_name :: Lens' ScheduleRun (Maybe Text)
+ Amazonka.DeviceFarm.ScheduleRun: scheduleRun_projectArn :: Lens' ScheduleRun Text
+ Amazonka.DeviceFarm.ScheduleRun: scheduleRun_test :: Lens' ScheduleRun ScheduleRunTest
+ Amazonka.DeviceFarm.StopJob: StopJob' :: Text -> StopJob
+ Amazonka.DeviceFarm.StopJob: StopJobResponse' :: Maybe Job -> Int -> StopJobResponse
+ Amazonka.DeviceFarm.StopJob: [$sel:arn:StopJob'] :: StopJob -> Text
+ Amazonka.DeviceFarm.StopJob: [$sel:httpStatus:StopJobResponse'] :: StopJobResponse -> Int
+ Amazonka.DeviceFarm.StopJob: [$sel:job:StopJobResponse'] :: StopJobResponse -> Maybe Job
+ Amazonka.DeviceFarm.StopJob: data StopJob
+ Amazonka.DeviceFarm.StopJob: data StopJobResponse
+ Amazonka.DeviceFarm.StopJob: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.StopJob.StopJob
+ Amazonka.DeviceFarm.StopJob: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.StopJob.StopJob
+ Amazonka.DeviceFarm.StopJob: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.StopJob.StopJob
+ Amazonka.DeviceFarm.StopJob: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.StopJob.StopJob
+ Amazonka.DeviceFarm.StopJob: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.StopJob.StopJob
+ Amazonka.DeviceFarm.StopJob: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.StopJob.StopJobResponse
+ Amazonka.DeviceFarm.StopJob: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.StopJob.StopJob
+ Amazonka.DeviceFarm.StopJob: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.StopJob.StopJob
+ Amazonka.DeviceFarm.StopJob: instance GHC.Classes.Eq Amazonka.DeviceFarm.StopJob.StopJob
+ Amazonka.DeviceFarm.StopJob: instance GHC.Classes.Eq Amazonka.DeviceFarm.StopJob.StopJobResponse
+ Amazonka.DeviceFarm.StopJob: instance GHC.Generics.Generic Amazonka.DeviceFarm.StopJob.StopJob
+ Amazonka.DeviceFarm.StopJob: instance GHC.Generics.Generic Amazonka.DeviceFarm.StopJob.StopJobResponse
+ Amazonka.DeviceFarm.StopJob: instance GHC.Read.Read Amazonka.DeviceFarm.StopJob.StopJob
+ Amazonka.DeviceFarm.StopJob: instance GHC.Read.Read Amazonka.DeviceFarm.StopJob.StopJobResponse
+ Amazonka.DeviceFarm.StopJob: instance GHC.Show.Show Amazonka.DeviceFarm.StopJob.StopJob
+ Amazonka.DeviceFarm.StopJob: instance GHC.Show.Show Amazonka.DeviceFarm.StopJob.StopJobResponse
+ Amazonka.DeviceFarm.StopJob: newStopJob :: Text -> StopJob
+ Amazonka.DeviceFarm.StopJob: newStopJobResponse :: Int -> StopJobResponse
+ Amazonka.DeviceFarm.StopJob: stopJobResponse_httpStatus :: Lens' StopJobResponse Int
+ Amazonka.DeviceFarm.StopJob: stopJobResponse_job :: Lens' StopJobResponse (Maybe Job)
+ Amazonka.DeviceFarm.StopJob: stopJob_arn :: Lens' StopJob Text
+ Amazonka.DeviceFarm.StopRemoteAccessSession: StopRemoteAccessSession' :: Text -> StopRemoteAccessSession
+ Amazonka.DeviceFarm.StopRemoteAccessSession: StopRemoteAccessSessionResponse' :: Maybe RemoteAccessSession -> Int -> StopRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.StopRemoteAccessSession: [$sel:arn:StopRemoteAccessSession'] :: StopRemoteAccessSession -> Text
+ Amazonka.DeviceFarm.StopRemoteAccessSession: [$sel:httpStatus:StopRemoteAccessSessionResponse'] :: StopRemoteAccessSessionResponse -> Int
+ Amazonka.DeviceFarm.StopRemoteAccessSession: [$sel:remoteAccessSession:StopRemoteAccessSessionResponse'] :: StopRemoteAccessSessionResponse -> Maybe RemoteAccessSession
+ Amazonka.DeviceFarm.StopRemoteAccessSession: data StopRemoteAccessSession
+ Amazonka.DeviceFarm.StopRemoteAccessSession: data StopRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.StopRemoteAccessSession: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSession
+ Amazonka.DeviceFarm.StopRemoteAccessSession: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSession
+ Amazonka.DeviceFarm.StopRemoteAccessSession: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSession
+ Amazonka.DeviceFarm.StopRemoteAccessSession: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSession
+ Amazonka.DeviceFarm.StopRemoteAccessSession: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSession
+ Amazonka.DeviceFarm.StopRemoteAccessSession: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.StopRemoteAccessSession: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSession
+ Amazonka.DeviceFarm.StopRemoteAccessSession: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSession
+ Amazonka.DeviceFarm.StopRemoteAccessSession: instance GHC.Classes.Eq Amazonka.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSession
+ Amazonka.DeviceFarm.StopRemoteAccessSession: instance GHC.Classes.Eq Amazonka.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.StopRemoteAccessSession: instance GHC.Generics.Generic Amazonka.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSession
+ Amazonka.DeviceFarm.StopRemoteAccessSession: instance GHC.Generics.Generic Amazonka.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.StopRemoteAccessSession: instance GHC.Read.Read Amazonka.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSession
+ Amazonka.DeviceFarm.StopRemoteAccessSession: instance GHC.Read.Read Amazonka.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.StopRemoteAccessSession: instance GHC.Show.Show Amazonka.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSession
+ Amazonka.DeviceFarm.StopRemoteAccessSession: instance GHC.Show.Show Amazonka.DeviceFarm.StopRemoteAccessSession.StopRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.StopRemoteAccessSession: newStopRemoteAccessSession :: Text -> StopRemoteAccessSession
+ Amazonka.DeviceFarm.StopRemoteAccessSession: newStopRemoteAccessSessionResponse :: Int -> StopRemoteAccessSessionResponse
+ Amazonka.DeviceFarm.StopRemoteAccessSession: stopRemoteAccessSessionResponse_httpStatus :: Lens' StopRemoteAccessSessionResponse Int
+ Amazonka.DeviceFarm.StopRemoteAccessSession: stopRemoteAccessSessionResponse_remoteAccessSession :: Lens' StopRemoteAccessSessionResponse (Maybe RemoteAccessSession)
+ Amazonka.DeviceFarm.StopRemoteAccessSession: stopRemoteAccessSession_arn :: Lens' StopRemoteAccessSession Text
+ Amazonka.DeviceFarm.StopRun: StopRun' :: Text -> StopRun
+ Amazonka.DeviceFarm.StopRun: StopRunResponse' :: Maybe Run -> Int -> StopRunResponse
+ Amazonka.DeviceFarm.StopRun: [$sel:arn:StopRun'] :: StopRun -> Text
+ Amazonka.DeviceFarm.StopRun: [$sel:httpStatus:StopRunResponse'] :: StopRunResponse -> Int
+ Amazonka.DeviceFarm.StopRun: [$sel:run:StopRunResponse'] :: StopRunResponse -> Maybe Run
+ Amazonka.DeviceFarm.StopRun: data StopRun
+ Amazonka.DeviceFarm.StopRun: data StopRunResponse
+ Amazonka.DeviceFarm.StopRun: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.StopRun.StopRun
+ Amazonka.DeviceFarm.StopRun: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.StopRun.StopRun
+ Amazonka.DeviceFarm.StopRun: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.StopRun.StopRun
+ Amazonka.DeviceFarm.StopRun: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.StopRun.StopRun
+ Amazonka.DeviceFarm.StopRun: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.StopRun.StopRun
+ Amazonka.DeviceFarm.StopRun: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.StopRun.StopRunResponse
+ Amazonka.DeviceFarm.StopRun: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.StopRun.StopRun
+ Amazonka.DeviceFarm.StopRun: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.StopRun.StopRun
+ Amazonka.DeviceFarm.StopRun: instance GHC.Classes.Eq Amazonka.DeviceFarm.StopRun.StopRun
+ Amazonka.DeviceFarm.StopRun: instance GHC.Classes.Eq Amazonka.DeviceFarm.StopRun.StopRunResponse
+ Amazonka.DeviceFarm.StopRun: instance GHC.Generics.Generic Amazonka.DeviceFarm.StopRun.StopRun
+ Amazonka.DeviceFarm.StopRun: instance GHC.Generics.Generic Amazonka.DeviceFarm.StopRun.StopRunResponse
+ Amazonka.DeviceFarm.StopRun: instance GHC.Read.Read Amazonka.DeviceFarm.StopRun.StopRun
+ Amazonka.DeviceFarm.StopRun: instance GHC.Read.Read Amazonka.DeviceFarm.StopRun.StopRunResponse
+ Amazonka.DeviceFarm.StopRun: instance GHC.Show.Show Amazonka.DeviceFarm.StopRun.StopRun
+ Amazonka.DeviceFarm.StopRun: instance GHC.Show.Show Amazonka.DeviceFarm.StopRun.StopRunResponse
+ Amazonka.DeviceFarm.StopRun: newStopRun :: Text -> StopRun
+ Amazonka.DeviceFarm.StopRun: newStopRunResponse :: Int -> StopRunResponse
+ Amazonka.DeviceFarm.StopRun: stopRunResponse_httpStatus :: Lens' StopRunResponse Int
+ Amazonka.DeviceFarm.StopRun: stopRunResponse_run :: Lens' StopRunResponse (Maybe Run)
+ Amazonka.DeviceFarm.StopRun: stopRun_arn :: Lens' StopRun Text
+ Amazonka.DeviceFarm.TagResource: TagResource' :: Text -> [Tag] -> TagResource
+ Amazonka.DeviceFarm.TagResource: TagResourceResponse' :: Int -> TagResourceResponse
+ Amazonka.DeviceFarm.TagResource: [$sel:httpStatus:TagResourceResponse'] :: TagResourceResponse -> Int
+ Amazonka.DeviceFarm.TagResource: [$sel:resourceARN:TagResource'] :: TagResource -> Text
+ Amazonka.DeviceFarm.TagResource: [$sel:tags:TagResource'] :: TagResource -> [Tag]
+ Amazonka.DeviceFarm.TagResource: data TagResource
+ Amazonka.DeviceFarm.TagResource: data TagResourceResponse
+ Amazonka.DeviceFarm.TagResource: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.TagResource.TagResource
+ Amazonka.DeviceFarm.TagResource: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.TagResource.TagResource
+ Amazonka.DeviceFarm.TagResource: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.TagResource.TagResource
+ Amazonka.DeviceFarm.TagResource: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.TagResource.TagResource
+ Amazonka.DeviceFarm.TagResource: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.TagResource.TagResource
+ Amazonka.DeviceFarm.TagResource: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.TagResource.TagResourceResponse
+ Amazonka.DeviceFarm.TagResource: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.TagResource.TagResource
+ Amazonka.DeviceFarm.TagResource: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.TagResource.TagResource
+ Amazonka.DeviceFarm.TagResource: instance GHC.Classes.Eq Amazonka.DeviceFarm.TagResource.TagResource
+ Amazonka.DeviceFarm.TagResource: instance GHC.Classes.Eq Amazonka.DeviceFarm.TagResource.TagResourceResponse
+ Amazonka.DeviceFarm.TagResource: instance GHC.Generics.Generic Amazonka.DeviceFarm.TagResource.TagResource
+ Amazonka.DeviceFarm.TagResource: instance GHC.Generics.Generic Amazonka.DeviceFarm.TagResource.TagResourceResponse
+ Amazonka.DeviceFarm.TagResource: instance GHC.Read.Read Amazonka.DeviceFarm.TagResource.TagResource
+ Amazonka.DeviceFarm.TagResource: instance GHC.Read.Read Amazonka.DeviceFarm.TagResource.TagResourceResponse
+ Amazonka.DeviceFarm.TagResource: instance GHC.Show.Show Amazonka.DeviceFarm.TagResource.TagResource
+ Amazonka.DeviceFarm.TagResource: instance GHC.Show.Show Amazonka.DeviceFarm.TagResource.TagResourceResponse
+ Amazonka.DeviceFarm.TagResource: newTagResource :: Text -> TagResource
+ Amazonka.DeviceFarm.TagResource: newTagResourceResponse :: Int -> TagResourceResponse
+ Amazonka.DeviceFarm.TagResource: tagResourceResponse_httpStatus :: Lens' TagResourceResponse Int
+ Amazonka.DeviceFarm.TagResource: tagResource_resourceARN :: Lens' TagResource Text
+ Amazonka.DeviceFarm.TagResource: tagResource_tags :: Lens' TagResource [Tag]
+ Amazonka.DeviceFarm.Types: AccountSettings' :: Maybe Text -> Maybe Int -> Maybe Int -> Maybe (HashMap Text Int) -> Maybe Bool -> Maybe TrialMinutes -> Maybe (HashMap DevicePlatform Int) -> Maybe (HashMap DevicePlatform Int) -> AccountSettings
+ Amazonka.DeviceFarm.Types: Artifact' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe ArtifactType -> Maybe Text -> Artifact
+ Amazonka.DeviceFarm.Types: ArtifactCategory' :: Text -> ArtifactCategory
+ Amazonka.DeviceFarm.Types: ArtifactType' :: Text -> ArtifactType
+ Amazonka.DeviceFarm.Types: BillingMethod' :: Text -> BillingMethod
+ Amazonka.DeviceFarm.Types: CPU' :: Maybe Text -> Maybe Double -> Maybe Text -> CPU
+ Amazonka.DeviceFarm.Types: Counters' :: Maybe Int -> Maybe Int -> Maybe Int -> Maybe Int -> Maybe Int -> Maybe Int -> Maybe Int -> Counters
+ Amazonka.DeviceFarm.Types: CreateRemoteAccessSessionConfiguration' :: Maybe BillingMethod -> Maybe [Text] -> CreateRemoteAccessSessionConfiguration
+ Amazonka.DeviceFarm.Types: CurrencyCode' :: Text -> CurrencyCode
+ Amazonka.DeviceFarm.Types: CustomerArtifactPaths' :: Maybe [Text] -> Maybe [Text] -> Maybe [Text] -> CustomerArtifactPaths
+ Amazonka.DeviceFarm.Types: Device' :: Maybe Text -> Maybe DeviceAvailability -> Maybe Text -> Maybe CPU -> Maybe Text -> Maybe Text -> Maybe DeviceFormFactor -> Maybe Integer -> Maybe Text -> Maybe [DeviceInstance] -> Maybe Text -> Maybe Integer -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe DevicePlatform -> Maybe Text -> Maybe Bool -> Maybe Bool -> Maybe Resolution -> Device
+ Amazonka.DeviceFarm.Types: DeviceAttribute' :: Text -> DeviceAttribute
+ Amazonka.DeviceFarm.Types: DeviceAvailability' :: Text -> DeviceAvailability
+ Amazonka.DeviceFarm.Types: DeviceFilter' :: DeviceFilterAttribute -> RuleOperator -> [Text] -> DeviceFilter
+ Amazonka.DeviceFarm.Types: DeviceFilterAttribute' :: Text -> DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types: DeviceFormFactor' :: Text -> DeviceFormFactor
+ Amazonka.DeviceFarm.Types: DeviceInstance' :: Maybe Text -> Maybe Text -> Maybe InstanceProfile -> Maybe [Text] -> Maybe InstanceStatus -> Maybe Text -> DeviceInstance
+ Amazonka.DeviceFarm.Types: DeviceMinutes' :: Maybe Double -> Maybe Double -> Maybe Double -> DeviceMinutes
+ Amazonka.DeviceFarm.Types: DevicePlatform' :: Text -> DevicePlatform
+ Amazonka.DeviceFarm.Types: DevicePool' :: Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe [Rule] -> Maybe DevicePoolType -> DevicePool
+ Amazonka.DeviceFarm.Types: DevicePoolCompatibilityResult' :: Maybe Bool -> Maybe Device -> Maybe [IncompatibilityMessage] -> DevicePoolCompatibilityResult
+ Amazonka.DeviceFarm.Types: DevicePoolType' :: Text -> DevicePoolType
+ Amazonka.DeviceFarm.Types: DeviceSelectionConfiguration' :: [DeviceFilter] -> Int -> DeviceSelectionConfiguration
+ Amazonka.DeviceFarm.Types: DeviceSelectionResult' :: Maybe [DeviceFilter] -> Maybe Int -> Maybe Int -> DeviceSelectionResult
+ Amazonka.DeviceFarm.Types: ExecutionConfiguration' :: Maybe Bool -> Maybe Bool -> Maybe Int -> Maybe Bool -> Maybe Bool -> ExecutionConfiguration
+ Amazonka.DeviceFarm.Types: ExecutionResult' :: Text -> ExecutionResult
+ Amazonka.DeviceFarm.Types: ExecutionResultCode' :: Text -> ExecutionResultCode
+ Amazonka.DeviceFarm.Types: ExecutionStatus' :: Text -> ExecutionStatus
+ Amazonka.DeviceFarm.Types: IncompatibilityMessage' :: Maybe Text -> Maybe DeviceAttribute -> IncompatibilityMessage
+ Amazonka.DeviceFarm.Types: InstanceProfile' :: Maybe Text -> Maybe Text -> Maybe [Text] -> Maybe Text -> Maybe Bool -> Maybe Bool -> InstanceProfile
+ Amazonka.DeviceFarm.Types: InstanceStatus' :: Text -> InstanceStatus
+ Amazonka.DeviceFarm.Types: InteractionMode' :: Text -> InteractionMode
+ Amazonka.DeviceFarm.Types: Job' :: Maybe Text -> Maybe Counters -> Maybe POSIX -> Maybe Device -> Maybe DeviceMinutes -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe ExecutionResult -> Maybe POSIX -> Maybe ExecutionStatus -> Maybe POSIX -> Maybe TestType -> Maybe Bool -> Maybe Text -> Job
+ Amazonka.DeviceFarm.Types: Location' :: Double -> Double -> Location
+ Amazonka.DeviceFarm.Types: MonetaryAmount' :: Maybe Double -> Maybe CurrencyCode -> MonetaryAmount
+ Amazonka.DeviceFarm.Types: NetworkProfile' :: Maybe Text -> Maybe Text -> Maybe Integer -> Maybe Integer -> Maybe Integer -> Maybe Natural -> Maybe Text -> Maybe NetworkProfileType -> Maybe Integer -> Maybe Integer -> Maybe Integer -> Maybe Natural -> NetworkProfile
+ Amazonka.DeviceFarm.Types: NetworkProfileType' :: Text -> NetworkProfileType
+ Amazonka.DeviceFarm.Types: Offering' :: Maybe Text -> Maybe Text -> Maybe DevicePlatform -> Maybe [RecurringCharge] -> Maybe OfferingType -> Offering
+ Amazonka.DeviceFarm.Types: OfferingPromotion' :: Maybe Text -> Maybe Text -> OfferingPromotion
+ Amazonka.DeviceFarm.Types: OfferingStatus' :: Maybe POSIX -> Maybe Offering -> Maybe Int -> Maybe OfferingTransactionType -> OfferingStatus
+ Amazonka.DeviceFarm.Types: OfferingTransaction' :: Maybe MonetaryAmount -> Maybe POSIX -> Maybe Text -> Maybe OfferingStatus -> Maybe Text -> OfferingTransaction
+ Amazonka.DeviceFarm.Types: OfferingTransactionType' :: Text -> OfferingTransactionType
+ Amazonka.DeviceFarm.Types: OfferingType' :: Text -> OfferingType
+ Amazonka.DeviceFarm.Types: Problem' :: Maybe Device -> Maybe ProblemDetail -> Maybe Text -> Maybe ExecutionResult -> Maybe ProblemDetail -> Maybe ProblemDetail -> Maybe ProblemDetail -> Problem
+ Amazonka.DeviceFarm.Types: ProblemDetail' :: Maybe Text -> Maybe Text -> ProblemDetail
+ Amazonka.DeviceFarm.Types: Project' :: Maybe Text -> Maybe POSIX -> Maybe Int -> Maybe Text -> Maybe VpcConfig -> Project
+ Amazonka.DeviceFarm.Types: Radios' :: Maybe Bool -> Maybe Bool -> Maybe Bool -> Maybe Bool -> Radios
+ Amazonka.DeviceFarm.Types: RecurringCharge' :: Maybe MonetaryAmount -> Maybe RecurringChargeFrequency -> RecurringCharge
+ Amazonka.DeviceFarm.Types: RecurringChargeFrequency' :: Text -> RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types: RemoteAccessSession' :: Maybe Text -> Maybe BillingMethod -> Maybe Text -> Maybe POSIX -> Maybe Device -> Maybe DeviceMinutes -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe InteractionMode -> Maybe Text -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe Bool -> Maybe ExecutionResult -> Maybe Bool -> Maybe POSIX -> Maybe ExecutionStatus -> Maybe POSIX -> Maybe VpcConfig -> RemoteAccessSession
+ Amazonka.DeviceFarm.Types: Resolution' :: Maybe Int -> Maybe Int -> Resolution
+ Amazonka.DeviceFarm.Types: Rule' :: Maybe DeviceAttribute -> Maybe RuleOperator -> Maybe Text -> Rule
+ Amazonka.DeviceFarm.Types: RuleOperator' :: Text -> RuleOperator
+ Amazonka.DeviceFarm.Types: Run' :: Maybe Text -> Maybe Text -> Maybe BillingMethod -> Maybe Int -> Maybe Counters -> Maybe POSIX -> Maybe CustomerArtifactPaths -> Maybe DeviceMinutes -> Maybe Text -> Maybe DeviceSelectionResult -> Maybe Int -> Maybe Int -> Maybe Text -> Maybe Location -> Maybe Text -> Maybe Text -> Maybe NetworkProfile -> Maybe Text -> Maybe DevicePlatform -> Maybe Radios -> Maybe ExecutionResult -> Maybe ExecutionResultCode -> Maybe Int -> Maybe Bool -> Maybe POSIX -> Maybe ExecutionStatus -> Maybe POSIX -> Maybe Text -> Maybe Int -> Maybe TestType -> Maybe VpcConfig -> Maybe Text -> Run
+ Amazonka.DeviceFarm.Types: Sample' :: Maybe Text -> Maybe SampleType -> Maybe Text -> Sample
+ Amazonka.DeviceFarm.Types: SampleType' :: Text -> SampleType
+ Amazonka.DeviceFarm.Types: ScheduleRunConfiguration' :: Maybe [Text] -> Maybe BillingMethod -> Maybe CustomerArtifactPaths -> Maybe Text -> Maybe Text -> Maybe Location -> Maybe Text -> Maybe Radios -> Maybe [Text] -> ScheduleRunConfiguration
+ Amazonka.DeviceFarm.Types: ScheduleRunTest' :: Maybe Text -> Maybe (HashMap Text Text) -> Maybe Text -> Maybe Text -> TestType -> ScheduleRunTest
+ Amazonka.DeviceFarm.Types: Suite' :: Maybe Text -> Maybe Counters -> Maybe POSIX -> Maybe DeviceMinutes -> Maybe Text -> Maybe Text -> Maybe ExecutionResult -> Maybe POSIX -> Maybe ExecutionStatus -> Maybe POSIX -> Maybe TestType -> Suite
+ Amazonka.DeviceFarm.Types: Tag' :: Text -> Text -> Tag
+ Amazonka.DeviceFarm.Types: Test' :: Maybe Text -> Maybe Counters -> Maybe POSIX -> Maybe DeviceMinutes -> Maybe Text -> Maybe Text -> Maybe ExecutionResult -> Maybe POSIX -> Maybe ExecutionStatus -> Maybe POSIX -> Maybe TestType -> Test
+ Amazonka.DeviceFarm.Types: TestGridProject' :: Maybe Text -> Maybe POSIX -> Maybe Text -> Maybe Text -> Maybe TestGridVpcConfig -> TestGridProject
+ Amazonka.DeviceFarm.Types: TestGridSession' :: Maybe Text -> Maybe Double -> Maybe POSIX -> Maybe POSIX -> Maybe Text -> Maybe TestGridSessionStatus -> TestGridSession
+ Amazonka.DeviceFarm.Types: TestGridSessionAction' :: Maybe Text -> Maybe Integer -> Maybe Text -> Maybe POSIX -> Maybe Text -> TestGridSessionAction
+ Amazonka.DeviceFarm.Types: TestGridSessionArtifact' :: Maybe Text -> Maybe TestGridSessionArtifactType -> Maybe (Sensitive Text) -> TestGridSessionArtifact
+ Amazonka.DeviceFarm.Types: TestGridSessionArtifactCategory' :: Text -> TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types: TestGridSessionArtifactType' :: Text -> TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types: TestGridSessionStatus' :: Text -> TestGridSessionStatus
+ Amazonka.DeviceFarm.Types: TestGridVpcConfig' :: NonEmpty Text -> NonEmpty Text -> Text -> TestGridVpcConfig
+ Amazonka.DeviceFarm.Types: TestType' :: Text -> TestType
+ Amazonka.DeviceFarm.Types: TrialMinutes' :: Maybe Double -> Maybe Double -> TrialMinutes
+ Amazonka.DeviceFarm.Types: UniqueProblem' :: Maybe Text -> Maybe [Problem] -> UniqueProblem
+ Amazonka.DeviceFarm.Types: Upload' :: Maybe Text -> Maybe UploadCategory -> Maybe Text -> Maybe POSIX -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe UploadStatus -> Maybe UploadType -> Maybe (Sensitive Text) -> Upload
+ Amazonka.DeviceFarm.Types: UploadCategory' :: Text -> UploadCategory
+ Amazonka.DeviceFarm.Types: UploadStatus' :: Text -> UploadStatus
+ Amazonka.DeviceFarm.Types: UploadType' :: Text -> UploadType
+ Amazonka.DeviceFarm.Types: VPCEConfiguration' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> VPCEConfiguration
+ Amazonka.DeviceFarm.Types: VpcConfig' :: NonEmpty Text -> NonEmpty Text -> Text -> VpcConfig
+ Amazonka.DeviceFarm.Types: [$sel:accountsCleanup:ExecutionConfiguration'] :: ExecutionConfiguration -> Maybe Bool
+ Amazonka.DeviceFarm.Types: [$sel:action:TestGridSessionAction'] :: TestGridSessionAction -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:amount:MonetaryAmount'] :: MonetaryAmount -> Maybe Double
+ Amazonka.DeviceFarm.Types: [$sel:androidPaths:CustomerArtifactPaths'] :: CustomerArtifactPaths -> Maybe [Text]
+ Amazonka.DeviceFarm.Types: [$sel:appPackagesCleanup:ExecutionConfiguration'] :: ExecutionConfiguration -> Maybe Bool
+ Amazonka.DeviceFarm.Types: [$sel:appUpload:Run'] :: Run -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:architecture:CPU'] :: CPU -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:arn:Artifact'] :: Artifact -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:arn:Device'] :: Device -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:arn:DeviceInstance'] :: DeviceInstance -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:arn:DevicePool'] :: DevicePool -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:arn:InstanceProfile'] :: InstanceProfile -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:arn:Job'] :: Job -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:arn:NetworkProfile'] :: NetworkProfile -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:arn:ProblemDetail'] :: ProblemDetail -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:arn:Project'] :: Project -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:arn:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:arn:Run'] :: Run -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:arn:Sample'] :: Sample -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:arn:Suite'] :: Suite -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:arn:Test'] :: Test -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:arn:TestGridProject'] :: TestGridProject -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:arn:TestGridSession'] :: TestGridSession -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:arn:Upload'] :: Upload -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:arn:VPCEConfiguration'] :: VPCEConfiguration -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:attribute:DeviceFilter'] :: DeviceFilter -> DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types: [$sel:attribute:Rule'] :: Rule -> Maybe DeviceAttribute
+ Amazonka.DeviceFarm.Types: [$sel:auxiliaryApps:ScheduleRunConfiguration'] :: ScheduleRunConfiguration -> Maybe [Text]
+ Amazonka.DeviceFarm.Types: [$sel:availability:Device'] :: Device -> Maybe DeviceAvailability
+ Amazonka.DeviceFarm.Types: [$sel:awsAccountNumber:AccountSettings'] :: AccountSettings -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:billingMethod:CreateRemoteAccessSessionConfiguration'] :: CreateRemoteAccessSessionConfiguration -> Maybe BillingMethod
+ Amazonka.DeviceFarm.Types: [$sel:billingMethod:RemoteAccessSession'] :: RemoteAccessSession -> Maybe BillingMethod
+ Amazonka.DeviceFarm.Types: [$sel:billingMethod:Run'] :: Run -> Maybe BillingMethod
+ Amazonka.DeviceFarm.Types: [$sel:billingMethod:ScheduleRunConfiguration'] :: ScheduleRunConfiguration -> Maybe BillingMethod
+ Amazonka.DeviceFarm.Types: [$sel:billingMinutes:TestGridSession'] :: TestGridSession -> Maybe Double
+ Amazonka.DeviceFarm.Types: [$sel:bluetooth:Radios'] :: Radios -> Maybe Bool
+ Amazonka.DeviceFarm.Types: [$sel:carrier:Device'] :: Device -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:category:Upload'] :: Upload -> Maybe UploadCategory
+ Amazonka.DeviceFarm.Types: [$sel:clientId:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:clock:CPU'] :: CPU -> Maybe Double
+ Amazonka.DeviceFarm.Types: [$sel:compatible:DevicePoolCompatibilityResult'] :: DevicePoolCompatibilityResult -> Maybe Bool
+ Amazonka.DeviceFarm.Types: [$sel:completedJobs:Run'] :: Run -> Maybe Int
+ Amazonka.DeviceFarm.Types: [$sel:contentType:Upload'] :: Upload -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:cost:OfferingTransaction'] :: OfferingTransaction -> Maybe MonetaryAmount
+ Amazonka.DeviceFarm.Types: [$sel:cost:RecurringCharge'] :: RecurringCharge -> Maybe MonetaryAmount
+ Amazonka.DeviceFarm.Types: [$sel:counters:Job'] :: Job -> Maybe Counters
+ Amazonka.DeviceFarm.Types: [$sel:counters:Run'] :: Run -> Maybe Counters
+ Amazonka.DeviceFarm.Types: [$sel:counters:Suite'] :: Suite -> Maybe Counters
+ Amazonka.DeviceFarm.Types: [$sel:counters:Test'] :: Test -> Maybe Counters
+ Amazonka.DeviceFarm.Types: [$sel:cpu:Device'] :: Device -> Maybe CPU
+ Amazonka.DeviceFarm.Types: [$sel:created:Job'] :: Job -> Maybe POSIX
+ Amazonka.DeviceFarm.Types: [$sel:created:Project'] :: Project -> Maybe POSIX
+ Amazonka.DeviceFarm.Types: [$sel:created:RemoteAccessSession'] :: RemoteAccessSession -> Maybe POSIX
+ Amazonka.DeviceFarm.Types: [$sel:created:Run'] :: Run -> Maybe POSIX
+ Amazonka.DeviceFarm.Types: [$sel:created:Suite'] :: Suite -> Maybe POSIX
+ Amazonka.DeviceFarm.Types: [$sel:created:Test'] :: Test -> Maybe POSIX
+ Amazonka.DeviceFarm.Types: [$sel:created:TestGridProject'] :: TestGridProject -> Maybe POSIX
+ Amazonka.DeviceFarm.Types: [$sel:created:TestGridSession'] :: TestGridSession -> Maybe POSIX
+ Amazonka.DeviceFarm.Types: [$sel:created:Upload'] :: Upload -> Maybe POSIX
+ Amazonka.DeviceFarm.Types: [$sel:createdOn:OfferingTransaction'] :: OfferingTransaction -> Maybe POSIX
+ Amazonka.DeviceFarm.Types: [$sel:currencyCode:MonetaryAmount'] :: MonetaryAmount -> Maybe CurrencyCode
+ Amazonka.DeviceFarm.Types: [$sel:customerArtifactPaths:Run'] :: Run -> Maybe CustomerArtifactPaths
+ Amazonka.DeviceFarm.Types: [$sel:customerArtifactPaths:ScheduleRunConfiguration'] :: ScheduleRunConfiguration -> Maybe CustomerArtifactPaths
+ Amazonka.DeviceFarm.Types: [$sel:defaultJobTimeoutMinutes:AccountSettings'] :: AccountSettings -> Maybe Int
+ Amazonka.DeviceFarm.Types: [$sel:defaultJobTimeoutMinutes:Project'] :: Project -> Maybe Int
+ Amazonka.DeviceFarm.Types: [$sel:description:DevicePool'] :: DevicePool -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:description:InstanceProfile'] :: InstanceProfile -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:description:NetworkProfile'] :: NetworkProfile -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:description:Offering'] :: Offering -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:description:OfferingPromotion'] :: OfferingPromotion -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:description:TestGridProject'] :: TestGridProject -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:device:DevicePoolCompatibilityResult'] :: DevicePoolCompatibilityResult -> Maybe Device
+ Amazonka.DeviceFarm.Types: [$sel:device:Job'] :: Job -> Maybe Device
+ Amazonka.DeviceFarm.Types: [$sel:device:Problem'] :: Problem -> Maybe Device
+ Amazonka.DeviceFarm.Types: [$sel:device:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Device
+ Amazonka.DeviceFarm.Types: [$sel:deviceArn:DeviceInstance'] :: DeviceInstance -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:deviceHostPaths:CustomerArtifactPaths'] :: CustomerArtifactPaths -> Maybe [Text]
+ Amazonka.DeviceFarm.Types: [$sel:deviceMinutes:Job'] :: Job -> Maybe DeviceMinutes
+ Amazonka.DeviceFarm.Types: [$sel:deviceMinutes:RemoteAccessSession'] :: RemoteAccessSession -> Maybe DeviceMinutes
+ Amazonka.DeviceFarm.Types: [$sel:deviceMinutes:Run'] :: Run -> Maybe DeviceMinutes
+ Amazonka.DeviceFarm.Types: [$sel:deviceMinutes:Suite'] :: Suite -> Maybe DeviceMinutes
+ Amazonka.DeviceFarm.Types: [$sel:deviceMinutes:Test'] :: Test -> Maybe DeviceMinutes
+ Amazonka.DeviceFarm.Types: [$sel:devicePoolArn:Run'] :: Run -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:deviceSelectionResult:Run'] :: Run -> Maybe DeviceSelectionResult
+ Amazonka.DeviceFarm.Types: [$sel:deviceUdid:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:downlinkBandwidthBits:NetworkProfile'] :: NetworkProfile -> Maybe Integer
+ Amazonka.DeviceFarm.Types: [$sel:downlinkDelayMs:NetworkProfile'] :: NetworkProfile -> Maybe Integer
+ Amazonka.DeviceFarm.Types: [$sel:downlinkJitterMs:NetworkProfile'] :: NetworkProfile -> Maybe Integer
+ Amazonka.DeviceFarm.Types: [$sel:downlinkLossPercent:NetworkProfile'] :: NetworkProfile -> Maybe Natural
+ Amazonka.DeviceFarm.Types: [$sel:duration:TestGridSessionAction'] :: TestGridSessionAction -> Maybe Integer
+ Amazonka.DeviceFarm.Types: [$sel:effectiveOn:OfferingStatus'] :: OfferingStatus -> Maybe POSIX
+ Amazonka.DeviceFarm.Types: [$sel:ended:TestGridSession'] :: TestGridSession -> Maybe POSIX
+ Amazonka.DeviceFarm.Types: [$sel:endpoint:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:errored:Counters'] :: Counters -> Maybe Int
+ Amazonka.DeviceFarm.Types: [$sel:eventCount:Run'] :: Run -> Maybe Int
+ Amazonka.DeviceFarm.Types: [$sel:excludeAppPackagesFromCleanup:InstanceProfile'] :: InstanceProfile -> Maybe [Text]
+ Amazonka.DeviceFarm.Types: [$sel:extension:Artifact'] :: Artifact -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:extraDataPackageArn:ScheduleRunConfiguration'] :: ScheduleRunConfiguration -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:failed:Counters'] :: Counters -> Maybe Int
+ Amazonka.DeviceFarm.Types: [$sel:filename:TestGridSessionArtifact'] :: TestGridSessionArtifact -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:filter':ScheduleRunTest'] :: ScheduleRunTest -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:filters:DeviceSelectionConfiguration'] :: DeviceSelectionConfiguration -> [DeviceFilter]
+ Amazonka.DeviceFarm.Types: [$sel:filters:DeviceSelectionResult'] :: DeviceSelectionResult -> Maybe [DeviceFilter]
+ Amazonka.DeviceFarm.Types: [$sel:fleetName:Device'] :: Device -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:fleetType:Device'] :: Device -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:formFactor:Device'] :: Device -> Maybe DeviceFormFactor
+ Amazonka.DeviceFarm.Types: [$sel:frequency:CPU'] :: CPU -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:frequency:RecurringCharge'] :: RecurringCharge -> Maybe RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types: [$sel:gps:Radios'] :: Radios -> Maybe Bool
+ Amazonka.DeviceFarm.Types: [$sel:heapSize:Device'] :: Device -> Maybe Integer
+ Amazonka.DeviceFarm.Types: [$sel:height:Resolution'] :: Resolution -> Maybe Int
+ Amazonka.DeviceFarm.Types: [$sel:hostAddress:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:id:Offering'] :: Offering -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:id:OfferingPromotion'] :: OfferingPromotion -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:image:Device'] :: Device -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:incompatibilityMessages:DevicePoolCompatibilityResult'] :: DevicePoolCompatibilityResult -> Maybe [IncompatibilityMessage]
+ Amazonka.DeviceFarm.Types: [$sel:instanceArn:Job'] :: Job -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:instanceArn:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:instanceProfile:DeviceInstance'] :: DeviceInstance -> Maybe InstanceProfile
+ Amazonka.DeviceFarm.Types: [$sel:instances:Device'] :: Device -> Maybe [DeviceInstance]
+ Amazonka.DeviceFarm.Types: [$sel:interactionMode:RemoteAccessSession'] :: RemoteAccessSession -> Maybe InteractionMode
+ Amazonka.DeviceFarm.Types: [$sel:iosPaths:CustomerArtifactPaths'] :: CustomerArtifactPaths -> Maybe [Text]
+ Amazonka.DeviceFarm.Types: [$sel:job:Problem'] :: Problem -> Maybe ProblemDetail
+ Amazonka.DeviceFarm.Types: [$sel:jobTimeoutMinutes:ExecutionConfiguration'] :: ExecutionConfiguration -> Maybe Int
+ Amazonka.DeviceFarm.Types: [$sel:jobTimeoutMinutes:Run'] :: Run -> Maybe Int
+ Amazonka.DeviceFarm.Types: [$sel:key:Tag'] :: Tag -> Text
+ Amazonka.DeviceFarm.Types: [$sel:labels:DeviceInstance'] :: DeviceInstance -> Maybe [Text]
+ Amazonka.DeviceFarm.Types: [$sel:latitude:Location'] :: Location -> Double
+ Amazonka.DeviceFarm.Types: [$sel:locale:Run'] :: Run -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:locale:ScheduleRunConfiguration'] :: ScheduleRunConfiguration -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:location:Run'] :: Run -> Maybe Location
+ Amazonka.DeviceFarm.Types: [$sel:location:ScheduleRunConfiguration'] :: ScheduleRunConfiguration -> Maybe Location
+ Amazonka.DeviceFarm.Types: [$sel:longitude:Location'] :: Location -> Double
+ Amazonka.DeviceFarm.Types: [$sel:manufacturer:Device'] :: Device -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:matchedDevicesCount:DeviceSelectionResult'] :: DeviceSelectionResult -> Maybe Int
+ Amazonka.DeviceFarm.Types: [$sel:maxDevices:DevicePool'] :: DevicePool -> Maybe Int
+ Amazonka.DeviceFarm.Types: [$sel:maxDevices:DeviceSelectionConfiguration'] :: DeviceSelectionConfiguration -> Int
+ Amazonka.DeviceFarm.Types: [$sel:maxDevices:DeviceSelectionResult'] :: DeviceSelectionResult -> Maybe Int
+ Amazonka.DeviceFarm.Types: [$sel:maxJobTimeoutMinutes:AccountSettings'] :: AccountSettings -> Maybe Int
+ Amazonka.DeviceFarm.Types: [$sel:maxSlots:AccountSettings'] :: AccountSettings -> Maybe (HashMap Text Int)
+ Amazonka.DeviceFarm.Types: [$sel:memory:Device'] :: Device -> Maybe Integer
+ Amazonka.DeviceFarm.Types: [$sel:message:IncompatibilityMessage'] :: IncompatibilityMessage -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:message:Job'] :: Job -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:message:Problem'] :: Problem -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:message:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:message:Run'] :: Run -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:message:Suite'] :: Suite -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:message:Test'] :: Test -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:message:UniqueProblem'] :: UniqueProblem -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:message:Upload'] :: Upload -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:metadata:Upload'] :: Upload -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:metered:DeviceMinutes'] :: DeviceMinutes -> Maybe Double
+ Amazonka.DeviceFarm.Types: [$sel:model:Device'] :: Device -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:modelId:Device'] :: Device -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:name:Artifact'] :: Artifact -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:name:Device'] :: Device -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:name:DevicePool'] :: DevicePool -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:name:InstanceProfile'] :: InstanceProfile -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:name:Job'] :: Job -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:name:NetworkProfile'] :: NetworkProfile -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:name:ProblemDetail'] :: ProblemDetail -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:name:Project'] :: Project -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:name:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:name:Run'] :: Run -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:name:Suite'] :: Suite -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:name:Test'] :: Test -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:name:TestGridProject'] :: TestGridProject -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:name:Upload'] :: Upload -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:networkProfile:Run'] :: Run -> Maybe NetworkProfile
+ Amazonka.DeviceFarm.Types: [$sel:networkProfileArn:ScheduleRunConfiguration'] :: ScheduleRunConfiguration -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:nfc:Radios'] :: Radios -> Maybe Bool
+ Amazonka.DeviceFarm.Types: [$sel:offering:OfferingStatus'] :: OfferingStatus -> Maybe Offering
+ Amazonka.DeviceFarm.Types: [$sel:offeringPromotionId:OfferingTransaction'] :: OfferingTransaction -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:offeringStatus:OfferingTransaction'] :: OfferingTransaction -> Maybe OfferingStatus
+ Amazonka.DeviceFarm.Types: [$sel:operator:DeviceFilter'] :: DeviceFilter -> RuleOperator
+ Amazonka.DeviceFarm.Types: [$sel:operator:Rule'] :: Rule -> Maybe RuleOperator
+ Amazonka.DeviceFarm.Types: [$sel:os:Device'] :: Device -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:packageCleanup:InstanceProfile'] :: InstanceProfile -> Maybe Bool
+ Amazonka.DeviceFarm.Types: [$sel:parameters:ScheduleRunTest'] :: ScheduleRunTest -> Maybe (HashMap Text Text)
+ Amazonka.DeviceFarm.Types: [$sel:parsingResultUrl:Run'] :: Run -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:passed:Counters'] :: Counters -> Maybe Int
+ Amazonka.DeviceFarm.Types: [$sel:platform:Device'] :: Device -> Maybe DevicePlatform
+ Amazonka.DeviceFarm.Types: [$sel:platform:Offering'] :: Offering -> Maybe DevicePlatform
+ Amazonka.DeviceFarm.Types: [$sel:platform:Run'] :: Run -> Maybe DevicePlatform
+ Amazonka.DeviceFarm.Types: [$sel:problems:UniqueProblem'] :: UniqueProblem -> Maybe [Problem]
+ Amazonka.DeviceFarm.Types: [$sel:quantity:OfferingStatus'] :: OfferingStatus -> Maybe Int
+ Amazonka.DeviceFarm.Types: [$sel:radio:Device'] :: Device -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:radios:Run'] :: Run -> Maybe Radios
+ Amazonka.DeviceFarm.Types: [$sel:radios:ScheduleRunConfiguration'] :: ScheduleRunConfiguration -> Maybe Radios
+ Amazonka.DeviceFarm.Types: [$sel:rebootAfterUse:InstanceProfile'] :: InstanceProfile -> Maybe Bool
+ Amazonka.DeviceFarm.Types: [$sel:recurringCharges:Offering'] :: Offering -> Maybe [RecurringCharge]
+ Amazonka.DeviceFarm.Types: [$sel:remaining:TrialMinutes'] :: TrialMinutes -> Maybe Double
+ Amazonka.DeviceFarm.Types: [$sel:remoteAccessEnabled:Device'] :: Device -> Maybe Bool
+ Amazonka.DeviceFarm.Types: [$sel:remoteDebugEnabled:Device'] :: Device -> Maybe Bool
+ Amazonka.DeviceFarm.Types: [$sel:remoteDebugEnabled:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Bool
+ Amazonka.DeviceFarm.Types: [$sel:remoteRecordAppArn:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:remoteRecordEnabled:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Bool
+ Amazonka.DeviceFarm.Types: [$sel:requestMethod:TestGridSessionAction'] :: TestGridSessionAction -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:resolution:Device'] :: Device -> Maybe Resolution
+ Amazonka.DeviceFarm.Types: [$sel:result:Job'] :: Job -> Maybe ExecutionResult
+ Amazonka.DeviceFarm.Types: [$sel:result:Problem'] :: Problem -> Maybe ExecutionResult
+ Amazonka.DeviceFarm.Types: [$sel:result:RemoteAccessSession'] :: RemoteAccessSession -> Maybe ExecutionResult
+ Amazonka.DeviceFarm.Types: [$sel:result:Run'] :: Run -> Maybe ExecutionResult
+ Amazonka.DeviceFarm.Types: [$sel:result:Suite'] :: Suite -> Maybe ExecutionResult
+ Amazonka.DeviceFarm.Types: [$sel:result:Test'] :: Test -> Maybe ExecutionResult
+ Amazonka.DeviceFarm.Types: [$sel:resultCode:Run'] :: Run -> Maybe ExecutionResultCode
+ Amazonka.DeviceFarm.Types: [$sel:rules:DevicePool'] :: DevicePool -> Maybe [Rule]
+ Amazonka.DeviceFarm.Types: [$sel:run:Problem'] :: Problem -> Maybe ProblemDetail
+ Amazonka.DeviceFarm.Types: [$sel:securityGroupIds:TestGridVpcConfig'] :: TestGridVpcConfig -> NonEmpty Text
+ Amazonka.DeviceFarm.Types: [$sel:securityGroupIds:VpcConfig'] :: VpcConfig -> NonEmpty Text
+ Amazonka.DeviceFarm.Types: [$sel:seed:Run'] :: Run -> Maybe Int
+ Amazonka.DeviceFarm.Types: [$sel:seleniumProperties:TestGridSession'] :: TestGridSession -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:serviceDnsName:VPCEConfiguration'] :: VPCEConfiguration -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:skipAppResign:AccountSettings'] :: AccountSettings -> Maybe Bool
+ Amazonka.DeviceFarm.Types: [$sel:skipAppResign:ExecutionConfiguration'] :: ExecutionConfiguration -> Maybe Bool
+ Amazonka.DeviceFarm.Types: [$sel:skipAppResign:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Bool
+ Amazonka.DeviceFarm.Types: [$sel:skipAppResign:Run'] :: Run -> Maybe Bool
+ Amazonka.DeviceFarm.Types: [$sel:skipped:Counters'] :: Counters -> Maybe Int
+ Amazonka.DeviceFarm.Types: [$sel:started:Job'] :: Job -> Maybe POSIX
+ Amazonka.DeviceFarm.Types: [$sel:started:RemoteAccessSession'] :: RemoteAccessSession -> Maybe POSIX
+ Amazonka.DeviceFarm.Types: [$sel:started:Run'] :: Run -> Maybe POSIX
+ Amazonka.DeviceFarm.Types: [$sel:started:Suite'] :: Suite -> Maybe POSIX
+ Amazonka.DeviceFarm.Types: [$sel:started:Test'] :: Test -> Maybe POSIX
+ Amazonka.DeviceFarm.Types: [$sel:started:TestGridSessionAction'] :: TestGridSessionAction -> Maybe POSIX
+ Amazonka.DeviceFarm.Types: [$sel:status:DeviceInstance'] :: DeviceInstance -> Maybe InstanceStatus
+ Amazonka.DeviceFarm.Types: [$sel:status:Job'] :: Job -> Maybe ExecutionStatus
+ Amazonka.DeviceFarm.Types: [$sel:status:RemoteAccessSession'] :: RemoteAccessSession -> Maybe ExecutionStatus
+ Amazonka.DeviceFarm.Types: [$sel:status:Run'] :: Run -> Maybe ExecutionStatus
+ Amazonka.DeviceFarm.Types: [$sel:status:Suite'] :: Suite -> Maybe ExecutionStatus
+ Amazonka.DeviceFarm.Types: [$sel:status:Test'] :: Test -> Maybe ExecutionStatus
+ Amazonka.DeviceFarm.Types: [$sel:status:TestGridSession'] :: TestGridSession -> Maybe TestGridSessionStatus
+ Amazonka.DeviceFarm.Types: [$sel:status:Upload'] :: Upload -> Maybe UploadStatus
+ Amazonka.DeviceFarm.Types: [$sel:statusCode:TestGridSessionAction'] :: TestGridSessionAction -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:stopped:Counters'] :: Counters -> Maybe Int
+ Amazonka.DeviceFarm.Types: [$sel:stopped:Job'] :: Job -> Maybe POSIX
+ Amazonka.DeviceFarm.Types: [$sel:stopped:RemoteAccessSession'] :: RemoteAccessSession -> Maybe POSIX
+ Amazonka.DeviceFarm.Types: [$sel:stopped:Run'] :: Run -> Maybe POSIX
+ Amazonka.DeviceFarm.Types: [$sel:stopped:Suite'] :: Suite -> Maybe POSIX
+ Amazonka.DeviceFarm.Types: [$sel:stopped:Test'] :: Test -> Maybe POSIX
+ Amazonka.DeviceFarm.Types: [$sel:subnetIds:TestGridVpcConfig'] :: TestGridVpcConfig -> NonEmpty Text
+ Amazonka.DeviceFarm.Types: [$sel:subnetIds:VpcConfig'] :: VpcConfig -> NonEmpty Text
+ Amazonka.DeviceFarm.Types: [$sel:suite:Problem'] :: Problem -> Maybe ProblemDetail
+ Amazonka.DeviceFarm.Types: [$sel:test:Problem'] :: Problem -> Maybe ProblemDetail
+ Amazonka.DeviceFarm.Types: [$sel:testPackageArn:ScheduleRunTest'] :: ScheduleRunTest -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:testSpecArn:Run'] :: Run -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:testSpecArn:ScheduleRunTest'] :: ScheduleRunTest -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:total:Counters'] :: Counters -> Maybe Int
+ Amazonka.DeviceFarm.Types: [$sel:total:DeviceMinutes'] :: DeviceMinutes -> Maybe Double
+ Amazonka.DeviceFarm.Types: [$sel:total:TrialMinutes'] :: TrialMinutes -> Maybe Double
+ Amazonka.DeviceFarm.Types: [$sel:totalJobs:Run'] :: Run -> Maybe Int
+ Amazonka.DeviceFarm.Types: [$sel:transactionId:OfferingTransaction'] :: OfferingTransaction -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:trialMinutes:AccountSettings'] :: AccountSettings -> Maybe TrialMinutes
+ Amazonka.DeviceFarm.Types: [$sel:type':Artifact'] :: Artifact -> Maybe ArtifactType
+ Amazonka.DeviceFarm.Types: [$sel:type':DevicePool'] :: DevicePool -> Maybe DevicePoolType
+ Amazonka.DeviceFarm.Types: [$sel:type':IncompatibilityMessage'] :: IncompatibilityMessage -> Maybe DeviceAttribute
+ Amazonka.DeviceFarm.Types: [$sel:type':Job'] :: Job -> Maybe TestType
+ Amazonka.DeviceFarm.Types: [$sel:type':NetworkProfile'] :: NetworkProfile -> Maybe NetworkProfileType
+ Amazonka.DeviceFarm.Types: [$sel:type':Offering'] :: Offering -> Maybe OfferingType
+ Amazonka.DeviceFarm.Types: [$sel:type':OfferingStatus'] :: OfferingStatus -> Maybe OfferingTransactionType
+ Amazonka.DeviceFarm.Types: [$sel:type':Run'] :: Run -> Maybe TestType
+ Amazonka.DeviceFarm.Types: [$sel:type':Sample'] :: Sample -> Maybe SampleType
+ Amazonka.DeviceFarm.Types: [$sel:type':ScheduleRunTest'] :: ScheduleRunTest -> TestType
+ Amazonka.DeviceFarm.Types: [$sel:type':Suite'] :: Suite -> Maybe TestType
+ Amazonka.DeviceFarm.Types: [$sel:type':Test'] :: Test -> Maybe TestType
+ Amazonka.DeviceFarm.Types: [$sel:type':TestGridSessionArtifact'] :: TestGridSessionArtifact -> Maybe TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types: [$sel:type':Upload'] :: Upload -> Maybe UploadType
+ Amazonka.DeviceFarm.Types: [$sel:udid:DeviceInstance'] :: DeviceInstance -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:unmetered:DeviceMinutes'] :: DeviceMinutes -> Maybe Double
+ Amazonka.DeviceFarm.Types: [$sel:unmeteredDevices:AccountSettings'] :: AccountSettings -> Maybe (HashMap DevicePlatform Int)
+ Amazonka.DeviceFarm.Types: [$sel:unmeteredRemoteAccessDevices:AccountSettings'] :: AccountSettings -> Maybe (HashMap DevicePlatform Int)
+ Amazonka.DeviceFarm.Types: [$sel:uplinkBandwidthBits:NetworkProfile'] :: NetworkProfile -> Maybe Integer
+ Amazonka.DeviceFarm.Types: [$sel:uplinkDelayMs:NetworkProfile'] :: NetworkProfile -> Maybe Integer
+ Amazonka.DeviceFarm.Types: [$sel:uplinkJitterMs:NetworkProfile'] :: NetworkProfile -> Maybe Integer
+ Amazonka.DeviceFarm.Types: [$sel:uplinkLossPercent:NetworkProfile'] :: NetworkProfile -> Maybe Natural
+ Amazonka.DeviceFarm.Types: [$sel:url:Artifact'] :: Artifact -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:url:Sample'] :: Sample -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:url:TestGridSessionArtifact'] :: TestGridSessionArtifact -> Maybe (Sensitive Text)
+ Amazonka.DeviceFarm.Types: [$sel:url:Upload'] :: Upload -> Maybe (Sensitive Text)
+ Amazonka.DeviceFarm.Types: [$sel:value:Rule'] :: Rule -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:value:Tag'] :: Tag -> Text
+ Amazonka.DeviceFarm.Types: [$sel:values:DeviceFilter'] :: DeviceFilter -> [Text]
+ Amazonka.DeviceFarm.Types: [$sel:videoCapture:ExecutionConfiguration'] :: ExecutionConfiguration -> Maybe Bool
+ Amazonka.DeviceFarm.Types: [$sel:videoCapture:Job'] :: Job -> Maybe Bool
+ Amazonka.DeviceFarm.Types: [$sel:videoEndpoint:Job'] :: Job -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:vpcConfig:Project'] :: Project -> Maybe VpcConfig
+ Amazonka.DeviceFarm.Types: [$sel:vpcConfig:RemoteAccessSession'] :: RemoteAccessSession -> Maybe VpcConfig
+ Amazonka.DeviceFarm.Types: [$sel:vpcConfig:Run'] :: Run -> Maybe VpcConfig
+ Amazonka.DeviceFarm.Types: [$sel:vpcConfig:TestGridProject'] :: TestGridProject -> Maybe TestGridVpcConfig
+ Amazonka.DeviceFarm.Types: [$sel:vpcId:TestGridVpcConfig'] :: TestGridVpcConfig -> Text
+ Amazonka.DeviceFarm.Types: [$sel:vpcId:VpcConfig'] :: VpcConfig -> Text
+ Amazonka.DeviceFarm.Types: [$sel:vpceConfigurationArns:CreateRemoteAccessSessionConfiguration'] :: CreateRemoteAccessSessionConfiguration -> Maybe [Text]
+ Amazonka.DeviceFarm.Types: [$sel:vpceConfigurationArns:ScheduleRunConfiguration'] :: ScheduleRunConfiguration -> Maybe [Text]
+ Amazonka.DeviceFarm.Types: [$sel:vpceConfigurationDescription:VPCEConfiguration'] :: VPCEConfiguration -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:vpceConfigurationName:VPCEConfiguration'] :: VPCEConfiguration -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:vpceServiceName:VPCEConfiguration'] :: VPCEConfiguration -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:warned:Counters'] :: Counters -> Maybe Int
+ Amazonka.DeviceFarm.Types: [$sel:webUrl:Run'] :: Run -> Maybe Text
+ Amazonka.DeviceFarm.Types: [$sel:width:Resolution'] :: Resolution -> Maybe Int
+ Amazonka.DeviceFarm.Types: [$sel:wifi:Radios'] :: Radios -> Maybe Bool
+ Amazonka.DeviceFarm.Types: [fromArtifactCategory] :: ArtifactCategory -> Text
+ Amazonka.DeviceFarm.Types: [fromArtifactType] :: ArtifactType -> Text
+ Amazonka.DeviceFarm.Types: [fromBillingMethod] :: BillingMethod -> Text
+ Amazonka.DeviceFarm.Types: [fromCurrencyCode] :: CurrencyCode -> Text
+ Amazonka.DeviceFarm.Types: [fromDeviceAttribute] :: DeviceAttribute -> Text
+ Amazonka.DeviceFarm.Types: [fromDeviceAvailability] :: DeviceAvailability -> Text
+ Amazonka.DeviceFarm.Types: [fromDeviceFilterAttribute] :: DeviceFilterAttribute -> Text
+ Amazonka.DeviceFarm.Types: [fromDeviceFormFactor] :: DeviceFormFactor -> Text
+ Amazonka.DeviceFarm.Types: [fromDevicePlatform] :: DevicePlatform -> Text
+ Amazonka.DeviceFarm.Types: [fromDevicePoolType] :: DevicePoolType -> Text
+ Amazonka.DeviceFarm.Types: [fromExecutionResultCode] :: ExecutionResultCode -> Text
+ Amazonka.DeviceFarm.Types: [fromExecutionResult] :: ExecutionResult -> Text
+ Amazonka.DeviceFarm.Types: [fromExecutionStatus] :: ExecutionStatus -> Text
+ Amazonka.DeviceFarm.Types: [fromInstanceStatus] :: InstanceStatus -> Text
+ Amazonka.DeviceFarm.Types: [fromInteractionMode] :: InteractionMode -> Text
+ Amazonka.DeviceFarm.Types: [fromNetworkProfileType] :: NetworkProfileType -> Text
+ Amazonka.DeviceFarm.Types: [fromOfferingTransactionType] :: OfferingTransactionType -> Text
+ Amazonka.DeviceFarm.Types: [fromOfferingType] :: OfferingType -> Text
+ Amazonka.DeviceFarm.Types: [fromRecurringChargeFrequency] :: RecurringChargeFrequency -> Text
+ Amazonka.DeviceFarm.Types: [fromRuleOperator] :: RuleOperator -> Text
+ Amazonka.DeviceFarm.Types: [fromSampleType] :: SampleType -> Text
+ Amazonka.DeviceFarm.Types: [fromTestGridSessionArtifactCategory] :: TestGridSessionArtifactCategory -> Text
+ Amazonka.DeviceFarm.Types: [fromTestGridSessionArtifactType] :: TestGridSessionArtifactType -> Text
+ Amazonka.DeviceFarm.Types: [fromTestGridSessionStatus] :: TestGridSessionStatus -> Text
+ Amazonka.DeviceFarm.Types: [fromTestType] :: TestType -> Text
+ Amazonka.DeviceFarm.Types: [fromUploadCategory] :: UploadCategory -> Text
+ Amazonka.DeviceFarm.Types: [fromUploadStatus] :: UploadStatus -> Text
+ Amazonka.DeviceFarm.Types: [fromUploadType] :: UploadType -> Text
+ Amazonka.DeviceFarm.Types: _ArgumentException :: AsError a => Fold a ServiceError
+ Amazonka.DeviceFarm.Types: _CannotDeleteException :: AsError a => Fold a ServiceError
+ Amazonka.DeviceFarm.Types: _IdempotencyException :: AsError a => Fold a ServiceError
+ Amazonka.DeviceFarm.Types: _InternalServiceException :: AsError a => Fold a ServiceError
+ Amazonka.DeviceFarm.Types: _InvalidOperationException :: AsError a => Fold a ServiceError
+ Amazonka.DeviceFarm.Types: _LimitExceededException :: AsError a => Fold a ServiceError
+ Amazonka.DeviceFarm.Types: _NotEligibleException :: AsError a => Fold a ServiceError
+ Amazonka.DeviceFarm.Types: _NotFoundException :: AsError a => Fold a ServiceError
+ Amazonka.DeviceFarm.Types: _ServiceAccountException :: AsError a => Fold a ServiceError
+ Amazonka.DeviceFarm.Types: _TagOperationException :: AsError a => Fold a ServiceError
+ Amazonka.DeviceFarm.Types: _TagPolicyException :: AsError a => Fold a ServiceError
+ Amazonka.DeviceFarm.Types: _TooManyTagsException :: AsError a => Fold a ServiceError
+ Amazonka.DeviceFarm.Types: accountSettings_awsAccountNumber :: Lens' AccountSettings (Maybe Text)
+ Amazonka.DeviceFarm.Types: accountSettings_defaultJobTimeoutMinutes :: Lens' AccountSettings (Maybe Int)
+ Amazonka.DeviceFarm.Types: accountSettings_maxJobTimeoutMinutes :: Lens' AccountSettings (Maybe Int)
+ Amazonka.DeviceFarm.Types: accountSettings_maxSlots :: Lens' AccountSettings (Maybe (HashMap Text Int))
+ Amazonka.DeviceFarm.Types: accountSettings_skipAppResign :: Lens' AccountSettings (Maybe Bool)
+ Amazonka.DeviceFarm.Types: accountSettings_trialMinutes :: Lens' AccountSettings (Maybe TrialMinutes)
+ Amazonka.DeviceFarm.Types: accountSettings_unmeteredDevices :: Lens' AccountSettings (Maybe (HashMap DevicePlatform Int))
+ Amazonka.DeviceFarm.Types: accountSettings_unmeteredRemoteAccessDevices :: Lens' AccountSettings (Maybe (HashMap DevicePlatform Int))
+ Amazonka.DeviceFarm.Types: artifact_arn :: Lens' Artifact (Maybe Text)
+ Amazonka.DeviceFarm.Types: artifact_extension :: Lens' Artifact (Maybe Text)
+ Amazonka.DeviceFarm.Types: artifact_name :: Lens' Artifact (Maybe Text)
+ Amazonka.DeviceFarm.Types: artifact_type :: Lens' Artifact (Maybe ArtifactType)
+ Amazonka.DeviceFarm.Types: artifact_url :: Lens' Artifact (Maybe Text)
+ Amazonka.DeviceFarm.Types: counters_errored :: Lens' Counters (Maybe Int)
+ Amazonka.DeviceFarm.Types: counters_failed :: Lens' Counters (Maybe Int)
+ Amazonka.DeviceFarm.Types: counters_passed :: Lens' Counters (Maybe Int)
+ Amazonka.DeviceFarm.Types: counters_skipped :: Lens' Counters (Maybe Int)
+ Amazonka.DeviceFarm.Types: counters_stopped :: Lens' Counters (Maybe Int)
+ Amazonka.DeviceFarm.Types: counters_total :: Lens' Counters (Maybe Int)
+ Amazonka.DeviceFarm.Types: counters_warned :: Lens' Counters (Maybe Int)
+ Amazonka.DeviceFarm.Types: cpu_architecture :: Lens' CPU (Maybe Text)
+ Amazonka.DeviceFarm.Types: cpu_clock :: Lens' CPU (Maybe Double)
+ Amazonka.DeviceFarm.Types: cpu_frequency :: Lens' CPU (Maybe Text)
+ Amazonka.DeviceFarm.Types: createRemoteAccessSessionConfiguration_billingMethod :: Lens' CreateRemoteAccessSessionConfiguration (Maybe BillingMethod)
+ Amazonka.DeviceFarm.Types: createRemoteAccessSessionConfiguration_vpceConfigurationArns :: Lens' CreateRemoteAccessSessionConfiguration (Maybe [Text])
+ Amazonka.DeviceFarm.Types: customerArtifactPaths_androidPaths :: Lens' CustomerArtifactPaths (Maybe [Text])
+ Amazonka.DeviceFarm.Types: customerArtifactPaths_deviceHostPaths :: Lens' CustomerArtifactPaths (Maybe [Text])
+ Amazonka.DeviceFarm.Types: customerArtifactPaths_iosPaths :: Lens' CustomerArtifactPaths (Maybe [Text])
+ Amazonka.DeviceFarm.Types: data AccountSettings
+ Amazonka.DeviceFarm.Types: data Artifact
+ Amazonka.DeviceFarm.Types: data CPU
+ Amazonka.DeviceFarm.Types: data Counters
+ Amazonka.DeviceFarm.Types: data CreateRemoteAccessSessionConfiguration
+ Amazonka.DeviceFarm.Types: data CustomerArtifactPaths
+ Amazonka.DeviceFarm.Types: data Device
+ Amazonka.DeviceFarm.Types: data DeviceFilter
+ Amazonka.DeviceFarm.Types: data DeviceInstance
+ Amazonka.DeviceFarm.Types: data DeviceMinutes
+ Amazonka.DeviceFarm.Types: data DevicePool
+ Amazonka.DeviceFarm.Types: data DevicePoolCompatibilityResult
+ Amazonka.DeviceFarm.Types: data DeviceSelectionConfiguration
+ Amazonka.DeviceFarm.Types: data DeviceSelectionResult
+ Amazonka.DeviceFarm.Types: data ExecutionConfiguration
+ Amazonka.DeviceFarm.Types: data IncompatibilityMessage
+ Amazonka.DeviceFarm.Types: data InstanceProfile
+ Amazonka.DeviceFarm.Types: data Job
+ Amazonka.DeviceFarm.Types: data Location
+ Amazonka.DeviceFarm.Types: data MonetaryAmount
+ Amazonka.DeviceFarm.Types: data NetworkProfile
+ Amazonka.DeviceFarm.Types: data Offering
+ Amazonka.DeviceFarm.Types: data OfferingPromotion
+ Amazonka.DeviceFarm.Types: data OfferingStatus
+ Amazonka.DeviceFarm.Types: data OfferingTransaction
+ Amazonka.DeviceFarm.Types: data Problem
+ Amazonka.DeviceFarm.Types: data ProblemDetail
+ Amazonka.DeviceFarm.Types: data Project
+ Amazonka.DeviceFarm.Types: data Radios
+ Amazonka.DeviceFarm.Types: data RecurringCharge
+ Amazonka.DeviceFarm.Types: data RemoteAccessSession
+ Amazonka.DeviceFarm.Types: data Resolution
+ Amazonka.DeviceFarm.Types: data Rule
+ Amazonka.DeviceFarm.Types: data Run
+ Amazonka.DeviceFarm.Types: data Sample
+ Amazonka.DeviceFarm.Types: data ScheduleRunConfiguration
+ Amazonka.DeviceFarm.Types: data ScheduleRunTest
+ Amazonka.DeviceFarm.Types: data Suite
+ Amazonka.DeviceFarm.Types: data Tag
+ Amazonka.DeviceFarm.Types: data Test
+ Amazonka.DeviceFarm.Types: data TestGridProject
+ Amazonka.DeviceFarm.Types: data TestGridSession
+ Amazonka.DeviceFarm.Types: data TestGridSessionAction
+ Amazonka.DeviceFarm.Types: data TestGridSessionArtifact
+ Amazonka.DeviceFarm.Types: data TestGridVpcConfig
+ Amazonka.DeviceFarm.Types: data TrialMinutes
+ Amazonka.DeviceFarm.Types: data UniqueProblem
+ Amazonka.DeviceFarm.Types: data Upload
+ Amazonka.DeviceFarm.Types: data VPCEConfiguration
+ Amazonka.DeviceFarm.Types: data VpcConfig
+ Amazonka.DeviceFarm.Types: defaultService :: Service
+ Amazonka.DeviceFarm.Types: deviceFilter_attribute :: Lens' DeviceFilter DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types: deviceFilter_operator :: Lens' DeviceFilter RuleOperator
+ Amazonka.DeviceFarm.Types: deviceFilter_values :: Lens' DeviceFilter [Text]
+ Amazonka.DeviceFarm.Types: deviceInstance_arn :: Lens' DeviceInstance (Maybe Text)
+ Amazonka.DeviceFarm.Types: deviceInstance_deviceArn :: Lens' DeviceInstance (Maybe Text)
+ Amazonka.DeviceFarm.Types: deviceInstance_instanceProfile :: Lens' DeviceInstance (Maybe InstanceProfile)
+ Amazonka.DeviceFarm.Types: deviceInstance_labels :: Lens' DeviceInstance (Maybe [Text])
+ Amazonka.DeviceFarm.Types: deviceInstance_status :: Lens' DeviceInstance (Maybe InstanceStatus)
+ Amazonka.DeviceFarm.Types: deviceInstance_udid :: Lens' DeviceInstance (Maybe Text)
+ Amazonka.DeviceFarm.Types: deviceMinutes_metered :: Lens' DeviceMinutes (Maybe Double)
+ Amazonka.DeviceFarm.Types: deviceMinutes_total :: Lens' DeviceMinutes (Maybe Double)
+ Amazonka.DeviceFarm.Types: deviceMinutes_unmetered :: Lens' DeviceMinutes (Maybe Double)
+ Amazonka.DeviceFarm.Types: devicePoolCompatibilityResult_compatible :: Lens' DevicePoolCompatibilityResult (Maybe Bool)
+ Amazonka.DeviceFarm.Types: devicePoolCompatibilityResult_device :: Lens' DevicePoolCompatibilityResult (Maybe Device)
+ Amazonka.DeviceFarm.Types: devicePoolCompatibilityResult_incompatibilityMessages :: Lens' DevicePoolCompatibilityResult (Maybe [IncompatibilityMessage])
+ Amazonka.DeviceFarm.Types: devicePool_arn :: Lens' DevicePool (Maybe Text)
+ Amazonka.DeviceFarm.Types: devicePool_description :: Lens' DevicePool (Maybe Text)
+ Amazonka.DeviceFarm.Types: devicePool_maxDevices :: Lens' DevicePool (Maybe Int)
+ Amazonka.DeviceFarm.Types: devicePool_name :: Lens' DevicePool (Maybe Text)
+ Amazonka.DeviceFarm.Types: devicePool_rules :: Lens' DevicePool (Maybe [Rule])
+ Amazonka.DeviceFarm.Types: devicePool_type :: Lens' DevicePool (Maybe DevicePoolType)
+ Amazonka.DeviceFarm.Types: deviceSelectionConfiguration_filters :: Lens' DeviceSelectionConfiguration [DeviceFilter]
+ Amazonka.DeviceFarm.Types: deviceSelectionConfiguration_maxDevices :: Lens' DeviceSelectionConfiguration Int
+ Amazonka.DeviceFarm.Types: deviceSelectionResult_filters :: Lens' DeviceSelectionResult (Maybe [DeviceFilter])
+ Amazonka.DeviceFarm.Types: deviceSelectionResult_matchedDevicesCount :: Lens' DeviceSelectionResult (Maybe Int)
+ Amazonka.DeviceFarm.Types: deviceSelectionResult_maxDevices :: Lens' DeviceSelectionResult (Maybe Int)
+ Amazonka.DeviceFarm.Types: device_arn :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Types: device_availability :: Lens' Device (Maybe DeviceAvailability)
+ Amazonka.DeviceFarm.Types: device_carrier :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Types: device_cpu :: Lens' Device (Maybe CPU)
+ Amazonka.DeviceFarm.Types: device_fleetName :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Types: device_fleetType :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Types: device_formFactor :: Lens' Device (Maybe DeviceFormFactor)
+ Amazonka.DeviceFarm.Types: device_heapSize :: Lens' Device (Maybe Integer)
+ Amazonka.DeviceFarm.Types: device_image :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Types: device_instances :: Lens' Device (Maybe [DeviceInstance])
+ Amazonka.DeviceFarm.Types: device_manufacturer :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Types: device_memory :: Lens' Device (Maybe Integer)
+ Amazonka.DeviceFarm.Types: device_model :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Types: device_modelId :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Types: device_name :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Types: device_os :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Types: device_platform :: Lens' Device (Maybe DevicePlatform)
+ Amazonka.DeviceFarm.Types: device_radio :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Types: device_remoteAccessEnabled :: Lens' Device (Maybe Bool)
+ Amazonka.DeviceFarm.Types: device_remoteDebugEnabled :: Lens' Device (Maybe Bool)
+ Amazonka.DeviceFarm.Types: device_resolution :: Lens' Device (Maybe Resolution)
+ Amazonka.DeviceFarm.Types: executionConfiguration_accountsCleanup :: Lens' ExecutionConfiguration (Maybe Bool)
+ Amazonka.DeviceFarm.Types: executionConfiguration_appPackagesCleanup :: Lens' ExecutionConfiguration (Maybe Bool)
+ Amazonka.DeviceFarm.Types: executionConfiguration_jobTimeoutMinutes :: Lens' ExecutionConfiguration (Maybe Int)
+ Amazonka.DeviceFarm.Types: executionConfiguration_skipAppResign :: Lens' ExecutionConfiguration (Maybe Bool)
+ Amazonka.DeviceFarm.Types: executionConfiguration_videoCapture :: Lens' ExecutionConfiguration (Maybe Bool)
+ Amazonka.DeviceFarm.Types: incompatibilityMessage_message :: Lens' IncompatibilityMessage (Maybe Text)
+ Amazonka.DeviceFarm.Types: incompatibilityMessage_type :: Lens' IncompatibilityMessage (Maybe DeviceAttribute)
+ Amazonka.DeviceFarm.Types: instanceProfile_arn :: Lens' InstanceProfile (Maybe Text)
+ Amazonka.DeviceFarm.Types: instanceProfile_description :: Lens' InstanceProfile (Maybe Text)
+ Amazonka.DeviceFarm.Types: instanceProfile_excludeAppPackagesFromCleanup :: Lens' InstanceProfile (Maybe [Text])
+ Amazonka.DeviceFarm.Types: instanceProfile_name :: Lens' InstanceProfile (Maybe Text)
+ Amazonka.DeviceFarm.Types: instanceProfile_packageCleanup :: Lens' InstanceProfile (Maybe Bool)
+ Amazonka.DeviceFarm.Types: instanceProfile_rebootAfterUse :: Lens' InstanceProfile (Maybe Bool)
+ Amazonka.DeviceFarm.Types: job_arn :: Lens' Job (Maybe Text)
+ Amazonka.DeviceFarm.Types: job_counters :: Lens' Job (Maybe Counters)
+ Amazonka.DeviceFarm.Types: job_created :: Lens' Job (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types: job_device :: Lens' Job (Maybe Device)
+ Amazonka.DeviceFarm.Types: job_deviceMinutes :: Lens' Job (Maybe DeviceMinutes)
+ Amazonka.DeviceFarm.Types: job_instanceArn :: Lens' Job (Maybe Text)
+ Amazonka.DeviceFarm.Types: job_message :: Lens' Job (Maybe Text)
+ Amazonka.DeviceFarm.Types: job_name :: Lens' Job (Maybe Text)
+ Amazonka.DeviceFarm.Types: job_result :: Lens' Job (Maybe ExecutionResult)
+ Amazonka.DeviceFarm.Types: job_started :: Lens' Job (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types: job_status :: Lens' Job (Maybe ExecutionStatus)
+ Amazonka.DeviceFarm.Types: job_stopped :: Lens' Job (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types: job_type :: Lens' Job (Maybe TestType)
+ Amazonka.DeviceFarm.Types: job_videoCapture :: Lens' Job (Maybe Bool)
+ Amazonka.DeviceFarm.Types: job_videoEndpoint :: Lens' Job (Maybe Text)
+ Amazonka.DeviceFarm.Types: location_latitude :: Lens' Location Double
+ Amazonka.DeviceFarm.Types: location_longitude :: Lens' Location Double
+ Amazonka.DeviceFarm.Types: monetaryAmount_amount :: Lens' MonetaryAmount (Maybe Double)
+ Amazonka.DeviceFarm.Types: monetaryAmount_currencyCode :: Lens' MonetaryAmount (Maybe CurrencyCode)
+ Amazonka.DeviceFarm.Types: networkProfile_arn :: Lens' NetworkProfile (Maybe Text)
+ Amazonka.DeviceFarm.Types: networkProfile_description :: Lens' NetworkProfile (Maybe Text)
+ Amazonka.DeviceFarm.Types: networkProfile_downlinkBandwidthBits :: Lens' NetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Types: networkProfile_downlinkDelayMs :: Lens' NetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Types: networkProfile_downlinkJitterMs :: Lens' NetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Types: networkProfile_downlinkLossPercent :: Lens' NetworkProfile (Maybe Natural)
+ Amazonka.DeviceFarm.Types: networkProfile_name :: Lens' NetworkProfile (Maybe Text)
+ Amazonka.DeviceFarm.Types: networkProfile_type :: Lens' NetworkProfile (Maybe NetworkProfileType)
+ Amazonka.DeviceFarm.Types: networkProfile_uplinkBandwidthBits :: Lens' NetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Types: networkProfile_uplinkDelayMs :: Lens' NetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Types: networkProfile_uplinkJitterMs :: Lens' NetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Types: networkProfile_uplinkLossPercent :: Lens' NetworkProfile (Maybe Natural)
+ Amazonka.DeviceFarm.Types: newAccountSettings :: AccountSettings
+ Amazonka.DeviceFarm.Types: newArtifact :: Artifact
+ Amazonka.DeviceFarm.Types: newCPU :: CPU
+ Amazonka.DeviceFarm.Types: newCounters :: Counters
+ Amazonka.DeviceFarm.Types: newCreateRemoteAccessSessionConfiguration :: CreateRemoteAccessSessionConfiguration
+ Amazonka.DeviceFarm.Types: newCustomerArtifactPaths :: CustomerArtifactPaths
+ Amazonka.DeviceFarm.Types: newDevice :: Device
+ Amazonka.DeviceFarm.Types: newDeviceFilter :: DeviceFilterAttribute -> RuleOperator -> DeviceFilter
+ Amazonka.DeviceFarm.Types: newDeviceInstance :: DeviceInstance
+ Amazonka.DeviceFarm.Types: newDeviceMinutes :: DeviceMinutes
+ Amazonka.DeviceFarm.Types: newDevicePool :: DevicePool
+ Amazonka.DeviceFarm.Types: newDevicePoolCompatibilityResult :: DevicePoolCompatibilityResult
+ Amazonka.DeviceFarm.Types: newDeviceSelectionConfiguration :: Int -> DeviceSelectionConfiguration
+ Amazonka.DeviceFarm.Types: newDeviceSelectionResult :: DeviceSelectionResult
+ Amazonka.DeviceFarm.Types: newExecutionConfiguration :: ExecutionConfiguration
+ Amazonka.DeviceFarm.Types: newIncompatibilityMessage :: IncompatibilityMessage
+ Amazonka.DeviceFarm.Types: newInstanceProfile :: InstanceProfile
+ Amazonka.DeviceFarm.Types: newJob :: Job
+ Amazonka.DeviceFarm.Types: newLocation :: Double -> Double -> Location
+ Amazonka.DeviceFarm.Types: newMonetaryAmount :: MonetaryAmount
+ Amazonka.DeviceFarm.Types: newNetworkProfile :: NetworkProfile
+ Amazonka.DeviceFarm.Types: newOffering :: Offering
+ Amazonka.DeviceFarm.Types: newOfferingPromotion :: OfferingPromotion
+ Amazonka.DeviceFarm.Types: newOfferingStatus :: OfferingStatus
+ Amazonka.DeviceFarm.Types: newOfferingTransaction :: OfferingTransaction
+ Amazonka.DeviceFarm.Types: newProblem :: Problem
+ Amazonka.DeviceFarm.Types: newProblemDetail :: ProblemDetail
+ Amazonka.DeviceFarm.Types: newProject :: Project
+ Amazonka.DeviceFarm.Types: newRadios :: Radios
+ Amazonka.DeviceFarm.Types: newRecurringCharge :: RecurringCharge
+ Amazonka.DeviceFarm.Types: newRemoteAccessSession :: RemoteAccessSession
+ Amazonka.DeviceFarm.Types: newResolution :: Resolution
+ Amazonka.DeviceFarm.Types: newRule :: Rule
+ Amazonka.DeviceFarm.Types: newRun :: Run
+ Amazonka.DeviceFarm.Types: newSample :: Sample
+ Amazonka.DeviceFarm.Types: newScheduleRunConfiguration :: ScheduleRunConfiguration
+ Amazonka.DeviceFarm.Types: newScheduleRunTest :: TestType -> ScheduleRunTest
+ Amazonka.DeviceFarm.Types: newSuite :: Suite
+ Amazonka.DeviceFarm.Types: newTag :: Text -> Text -> Tag
+ Amazonka.DeviceFarm.Types: newTest :: Test
+ Amazonka.DeviceFarm.Types: newTestGridProject :: TestGridProject
+ Amazonka.DeviceFarm.Types: newTestGridSession :: TestGridSession
+ Amazonka.DeviceFarm.Types: newTestGridSessionAction :: TestGridSessionAction
+ Amazonka.DeviceFarm.Types: newTestGridSessionArtifact :: TestGridSessionArtifact
+ Amazonka.DeviceFarm.Types: newTestGridVpcConfig :: NonEmpty Text -> NonEmpty Text -> Text -> TestGridVpcConfig
+ Amazonka.DeviceFarm.Types: newTrialMinutes :: TrialMinutes
+ Amazonka.DeviceFarm.Types: newUniqueProblem :: UniqueProblem
+ Amazonka.DeviceFarm.Types: newUpload :: Upload
+ Amazonka.DeviceFarm.Types: newVPCEConfiguration :: VPCEConfiguration
+ Amazonka.DeviceFarm.Types: newVpcConfig :: NonEmpty Text -> NonEmpty Text -> Text -> VpcConfig
+ Amazonka.DeviceFarm.Types: newtype ArtifactCategory
+ Amazonka.DeviceFarm.Types: newtype ArtifactType
+ Amazonka.DeviceFarm.Types: newtype BillingMethod
+ Amazonka.DeviceFarm.Types: newtype CurrencyCode
+ Amazonka.DeviceFarm.Types: newtype DeviceAttribute
+ Amazonka.DeviceFarm.Types: newtype DeviceAvailability
+ Amazonka.DeviceFarm.Types: newtype DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types: newtype DeviceFormFactor
+ Amazonka.DeviceFarm.Types: newtype DevicePlatform
+ Amazonka.DeviceFarm.Types: newtype DevicePoolType
+ Amazonka.DeviceFarm.Types: newtype ExecutionResult
+ Amazonka.DeviceFarm.Types: newtype ExecutionResultCode
+ Amazonka.DeviceFarm.Types: newtype ExecutionStatus
+ Amazonka.DeviceFarm.Types: newtype InstanceStatus
+ Amazonka.DeviceFarm.Types: newtype InteractionMode
+ Amazonka.DeviceFarm.Types: newtype NetworkProfileType
+ Amazonka.DeviceFarm.Types: newtype OfferingTransactionType
+ Amazonka.DeviceFarm.Types: newtype OfferingType
+ Amazonka.DeviceFarm.Types: newtype RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types: newtype RuleOperator
+ Amazonka.DeviceFarm.Types: newtype SampleType
+ Amazonka.DeviceFarm.Types: newtype TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types: newtype TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types: newtype TestGridSessionStatus
+ Amazonka.DeviceFarm.Types: newtype TestType
+ Amazonka.DeviceFarm.Types: newtype UploadCategory
+ Amazonka.DeviceFarm.Types: newtype UploadStatus
+ Amazonka.DeviceFarm.Types: newtype UploadType
+ Amazonka.DeviceFarm.Types: offeringPromotion_description :: Lens' OfferingPromotion (Maybe Text)
+ Amazonka.DeviceFarm.Types: offeringPromotion_id :: Lens' OfferingPromotion (Maybe Text)
+ Amazonka.DeviceFarm.Types: offeringStatus_effectiveOn :: Lens' OfferingStatus (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types: offeringStatus_offering :: Lens' OfferingStatus (Maybe Offering)
+ Amazonka.DeviceFarm.Types: offeringStatus_quantity :: Lens' OfferingStatus (Maybe Int)
+ Amazonka.DeviceFarm.Types: offeringStatus_type :: Lens' OfferingStatus (Maybe OfferingTransactionType)
+ Amazonka.DeviceFarm.Types: offeringTransaction_cost :: Lens' OfferingTransaction (Maybe MonetaryAmount)
+ Amazonka.DeviceFarm.Types: offeringTransaction_createdOn :: Lens' OfferingTransaction (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types: offeringTransaction_offeringPromotionId :: Lens' OfferingTransaction (Maybe Text)
+ Amazonka.DeviceFarm.Types: offeringTransaction_offeringStatus :: Lens' OfferingTransaction (Maybe OfferingStatus)
+ Amazonka.DeviceFarm.Types: offeringTransaction_transactionId :: Lens' OfferingTransaction (Maybe Text)
+ Amazonka.DeviceFarm.Types: offering_description :: Lens' Offering (Maybe Text)
+ Amazonka.DeviceFarm.Types: offering_id :: Lens' Offering (Maybe Text)
+ Amazonka.DeviceFarm.Types: offering_platform :: Lens' Offering (Maybe DevicePlatform)
+ Amazonka.DeviceFarm.Types: offering_recurringCharges :: Lens' Offering (Maybe [RecurringCharge])
+ Amazonka.DeviceFarm.Types: offering_type :: Lens' Offering (Maybe OfferingType)
+ Amazonka.DeviceFarm.Types: pattern ArtifactCategory_FILE :: ArtifactCategory
+ Amazonka.DeviceFarm.Types: pattern ArtifactCategory_LOG :: ArtifactCategory
+ Amazonka.DeviceFarm.Types: pattern ArtifactCategory_SCREENSHOT :: ArtifactCategory
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_APPIUM_JAVA_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_APPIUM_JAVA_XML_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_APPIUM_PYTHON_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_APPIUM_PYTHON_XML_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_APPIUM_SERVER_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_APPLICATION_CRASH_REPORT :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_AUTOMATION_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_CALABASH_JAVA_XML_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_CALABASH_JSON_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_CALABASH_PRETTY_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_CALABASH_STANDARD_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_CUSTOMER_ARTIFACT :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_CUSTOMER_ARTIFACT_LOG :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_DEVICE_LOG :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_EXERCISER_MONKEY_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_EXPLORER_EVENT_LOG :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_EXPLORER_SUMMARY_LOG :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_INSTRUMENTATION_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_MESSAGE_LOG :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_RESULT_LOG :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_SCREENSHOT :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_SERVICE_LOG :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_TESTSPEC_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_UNKNOWN :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_VIDEO :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_VIDEO_LOG :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_WEBKIT_LOG :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern ArtifactType_XCTEST_LOG :: ArtifactType
+ Amazonka.DeviceFarm.Types: pattern BillingMethod_METERED :: BillingMethod
+ Amazonka.DeviceFarm.Types: pattern BillingMethod_UNMETERED :: BillingMethod
+ Amazonka.DeviceFarm.Types: pattern CurrencyCode_USD :: CurrencyCode
+ Amazonka.DeviceFarm.Types: pattern DeviceAttribute_APPIUM_VERSION :: DeviceAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceAttribute_ARN :: DeviceAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceAttribute_AVAILABILITY :: DeviceAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceAttribute_FLEET_TYPE :: DeviceAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceAttribute_FORM_FACTOR :: DeviceAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceAttribute_INSTANCE_ARN :: DeviceAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceAttribute_INSTANCE_LABELS :: DeviceAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceAttribute_MANUFACTURER :: DeviceAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceAttribute_MODEL :: DeviceAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceAttribute_OS_VERSION :: DeviceAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceAttribute_PLATFORM :: DeviceAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceAttribute_REMOTE_ACCESS_ENABLED :: DeviceAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceAttribute_REMOTE_DEBUG_ENABLED :: DeviceAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceAvailability_AVAILABLE :: DeviceAvailability
+ Amazonka.DeviceFarm.Types: pattern DeviceAvailability_BUSY :: DeviceAvailability
+ Amazonka.DeviceFarm.Types: pattern DeviceAvailability_HIGHLY_AVAILABLE :: DeviceAvailability
+ Amazonka.DeviceFarm.Types: pattern DeviceAvailability_TEMPORARY_NOT_AVAILABLE :: DeviceAvailability
+ Amazonka.DeviceFarm.Types: pattern DeviceFilterAttribute_ARN :: DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceFilterAttribute_AVAILABILITY :: DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceFilterAttribute_FLEET_TYPE :: DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceFilterAttribute_FORM_FACTOR :: DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceFilterAttribute_INSTANCE_ARN :: DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceFilterAttribute_INSTANCE_LABELS :: DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceFilterAttribute_MANUFACTURER :: DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceFilterAttribute_MODEL :: DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceFilterAttribute_OS_VERSION :: DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceFilterAttribute_PLATFORM :: DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceFilterAttribute_REMOTE_ACCESS_ENABLED :: DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceFilterAttribute_REMOTE_DEBUG_ENABLED :: DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types: pattern DeviceFormFactor_PHONE :: DeviceFormFactor
+ Amazonka.DeviceFarm.Types: pattern DeviceFormFactor_TABLET :: DeviceFormFactor
+ Amazonka.DeviceFarm.Types: pattern DevicePlatform_ANDROID :: DevicePlatform
+ Amazonka.DeviceFarm.Types: pattern DevicePlatform_IOS :: DevicePlatform
+ Amazonka.DeviceFarm.Types: pattern DevicePoolType_CURATED :: DevicePoolType
+ Amazonka.DeviceFarm.Types: pattern DevicePoolType_PRIVATE :: DevicePoolType
+ Amazonka.DeviceFarm.Types: pattern ExecutionResultCode_PARSING_FAILED :: ExecutionResultCode
+ Amazonka.DeviceFarm.Types: pattern ExecutionResultCode_VPC_ENDPOINT_SETUP_FAILED :: ExecutionResultCode
+ Amazonka.DeviceFarm.Types: pattern ExecutionResult_ERRORED :: ExecutionResult
+ Amazonka.DeviceFarm.Types: pattern ExecutionResult_FAILED :: ExecutionResult
+ Amazonka.DeviceFarm.Types: pattern ExecutionResult_PASSED :: ExecutionResult
+ Amazonka.DeviceFarm.Types: pattern ExecutionResult_PENDING :: ExecutionResult
+ Amazonka.DeviceFarm.Types: pattern ExecutionResult_SKIPPED :: ExecutionResult
+ Amazonka.DeviceFarm.Types: pattern ExecutionResult_STOPPED :: ExecutionResult
+ Amazonka.DeviceFarm.Types: pattern ExecutionResult_WARNED :: ExecutionResult
+ Amazonka.DeviceFarm.Types: pattern ExecutionStatus_COMPLETED :: ExecutionStatus
+ Amazonka.DeviceFarm.Types: pattern ExecutionStatus_PENDING :: ExecutionStatus
+ Amazonka.DeviceFarm.Types: pattern ExecutionStatus_PENDING_CONCURRENCY :: ExecutionStatus
+ Amazonka.DeviceFarm.Types: pattern ExecutionStatus_PENDING_DEVICE :: ExecutionStatus
+ Amazonka.DeviceFarm.Types: pattern ExecutionStatus_PREPARING :: ExecutionStatus
+ Amazonka.DeviceFarm.Types: pattern ExecutionStatus_PROCESSING :: ExecutionStatus
+ Amazonka.DeviceFarm.Types: pattern ExecutionStatus_RUNNING :: ExecutionStatus
+ Amazonka.DeviceFarm.Types: pattern ExecutionStatus_SCHEDULING :: ExecutionStatus
+ Amazonka.DeviceFarm.Types: pattern ExecutionStatus_STOPPING :: ExecutionStatus
+ Amazonka.DeviceFarm.Types: pattern InstanceStatus_AVAILABLE :: InstanceStatus
+ Amazonka.DeviceFarm.Types: pattern InstanceStatus_IN_USE :: InstanceStatus
+ Amazonka.DeviceFarm.Types: pattern InstanceStatus_NOT_AVAILABLE :: InstanceStatus
+ Amazonka.DeviceFarm.Types: pattern InstanceStatus_PREPARING :: InstanceStatus
+ Amazonka.DeviceFarm.Types: pattern InteractionMode_INTERACTIVE :: InteractionMode
+ Amazonka.DeviceFarm.Types: pattern InteractionMode_NO_VIDEO :: InteractionMode
+ Amazonka.DeviceFarm.Types: pattern InteractionMode_VIDEO_ONLY :: InteractionMode
+ Amazonka.DeviceFarm.Types: pattern NetworkProfileType_CURATED :: NetworkProfileType
+ Amazonka.DeviceFarm.Types: pattern NetworkProfileType_PRIVATE :: NetworkProfileType
+ Amazonka.DeviceFarm.Types: pattern OfferingTransactionType_PURCHASE :: OfferingTransactionType
+ Amazonka.DeviceFarm.Types: pattern OfferingTransactionType_RENEW :: OfferingTransactionType
+ Amazonka.DeviceFarm.Types: pattern OfferingTransactionType_SYSTEM :: OfferingTransactionType
+ Amazonka.DeviceFarm.Types: pattern OfferingType_RECURRING :: OfferingType
+ Amazonka.DeviceFarm.Types: pattern RecurringChargeFrequency_MONTHLY :: RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types: pattern RuleOperator_CONTAINS :: RuleOperator
+ Amazonka.DeviceFarm.Types: pattern RuleOperator_EQUALS :: RuleOperator
+ Amazonka.DeviceFarm.Types: pattern RuleOperator_GREATER_THAN :: RuleOperator
+ Amazonka.DeviceFarm.Types: pattern RuleOperator_GREATER_THAN_OR_EQUALS :: RuleOperator
+ Amazonka.DeviceFarm.Types: pattern RuleOperator_IN :: RuleOperator
+ Amazonka.DeviceFarm.Types: pattern RuleOperator_LESS_THAN :: RuleOperator
+ Amazonka.DeviceFarm.Types: pattern RuleOperator_LESS_THAN_OR_EQUALS :: RuleOperator
+ Amazonka.DeviceFarm.Types: pattern RuleOperator_NOT_IN :: RuleOperator
+ Amazonka.DeviceFarm.Types: pattern SampleType_CPU :: SampleType
+ Amazonka.DeviceFarm.Types: pattern SampleType_MEMORY :: SampleType
+ Amazonka.DeviceFarm.Types: pattern SampleType_NATIVE_AVG_DRAWTIME :: SampleType
+ Amazonka.DeviceFarm.Types: pattern SampleType_NATIVE_FPS :: SampleType
+ Amazonka.DeviceFarm.Types: pattern SampleType_NATIVE_FRAMES :: SampleType
+ Amazonka.DeviceFarm.Types: pattern SampleType_NATIVE_MAX_DRAWTIME :: SampleType
+ Amazonka.DeviceFarm.Types: pattern SampleType_NATIVE_MIN_DRAWTIME :: SampleType
+ Amazonka.DeviceFarm.Types: pattern SampleType_OPENGL_AVG_DRAWTIME :: SampleType
+ Amazonka.DeviceFarm.Types: pattern SampleType_OPENGL_FPS :: SampleType
+ Amazonka.DeviceFarm.Types: pattern SampleType_OPENGL_FRAMES :: SampleType
+ Amazonka.DeviceFarm.Types: pattern SampleType_OPENGL_MAX_DRAWTIME :: SampleType
+ Amazonka.DeviceFarm.Types: pattern SampleType_OPENGL_MIN_DRAWTIME :: SampleType
+ Amazonka.DeviceFarm.Types: pattern SampleType_RX :: SampleType
+ Amazonka.DeviceFarm.Types: pattern SampleType_RX_RATE :: SampleType
+ Amazonka.DeviceFarm.Types: pattern SampleType_THREADS :: SampleType
+ Amazonka.DeviceFarm.Types: pattern SampleType_TX :: SampleType
+ Amazonka.DeviceFarm.Types: pattern SampleType_TX_RATE :: SampleType
+ Amazonka.DeviceFarm.Types: pattern TestGridSessionArtifactCategory_LOG :: TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types: pattern TestGridSessionArtifactCategory_VIDEO :: TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types: pattern TestGridSessionArtifactType_SELENIUM_LOG :: TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types: pattern TestGridSessionArtifactType_UNKNOWN :: TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types: pattern TestGridSessionArtifactType_VIDEO :: TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types: pattern TestGridSessionStatus_ACTIVE :: TestGridSessionStatus
+ Amazonka.DeviceFarm.Types: pattern TestGridSessionStatus_CLOSED :: TestGridSessionStatus
+ Amazonka.DeviceFarm.Types: pattern TestGridSessionStatus_ERRORED :: TestGridSessionStatus
+ Amazonka.DeviceFarm.Types: pattern TestType_APPIUM_JAVA_JUNIT :: TestType
+ Amazonka.DeviceFarm.Types: pattern TestType_APPIUM_JAVA_TESTNG :: TestType
+ Amazonka.DeviceFarm.Types: pattern TestType_APPIUM_NODE :: TestType
+ Amazonka.DeviceFarm.Types: pattern TestType_APPIUM_PYTHON :: TestType
+ Amazonka.DeviceFarm.Types: pattern TestType_APPIUM_RUBY :: TestType
+ Amazonka.DeviceFarm.Types: pattern TestType_APPIUM_WEB_JAVA_JUNIT :: TestType
+ Amazonka.DeviceFarm.Types: pattern TestType_APPIUM_WEB_JAVA_TESTNG :: TestType
+ Amazonka.DeviceFarm.Types: pattern TestType_APPIUM_WEB_NODE :: TestType
+ Amazonka.DeviceFarm.Types: pattern TestType_APPIUM_WEB_PYTHON :: TestType
+ Amazonka.DeviceFarm.Types: pattern TestType_APPIUM_WEB_RUBY :: TestType
+ Amazonka.DeviceFarm.Types: pattern TestType_BUILTIN_EXPLORER :: TestType
+ Amazonka.DeviceFarm.Types: pattern TestType_BUILTIN_FUZZ :: TestType
+ Amazonka.DeviceFarm.Types: pattern TestType_CALABASH :: TestType
+ Amazonka.DeviceFarm.Types: pattern TestType_INSTRUMENTATION :: TestType
+ Amazonka.DeviceFarm.Types: pattern TestType_REMOTE_ACCESS_RECORD :: TestType
+ Amazonka.DeviceFarm.Types: pattern TestType_REMOTE_ACCESS_REPLAY :: TestType
+ Amazonka.DeviceFarm.Types: pattern TestType_UIAUTOMATION :: TestType
+ Amazonka.DeviceFarm.Types: pattern TestType_UIAUTOMATOR :: TestType
+ Amazonka.DeviceFarm.Types: pattern TestType_WEB_PERFORMANCE_PROFILE :: TestType
+ Amazonka.DeviceFarm.Types: pattern TestType_XCTEST :: TestType
+ Amazonka.DeviceFarm.Types: pattern TestType_XCTEST_UI :: TestType
+ Amazonka.DeviceFarm.Types: pattern UploadCategory_CURATED :: UploadCategory
+ Amazonka.DeviceFarm.Types: pattern UploadCategory_PRIVATE :: UploadCategory
+ Amazonka.DeviceFarm.Types: pattern UploadStatus_FAILED :: UploadStatus
+ Amazonka.DeviceFarm.Types: pattern UploadStatus_INITIALIZED :: UploadStatus
+ Amazonka.DeviceFarm.Types: pattern UploadStatus_PROCESSING :: UploadStatus
+ Amazonka.DeviceFarm.Types: pattern UploadStatus_SUCCEEDED :: UploadStatus
+ Amazonka.DeviceFarm.Types: pattern UploadType_ANDROID_APP :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_APPIUM_JAVA_JUNIT_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_APPIUM_JAVA_JUNIT_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_APPIUM_JAVA_TESTNG_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_APPIUM_JAVA_TESTNG_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_APPIUM_NODE_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_APPIUM_NODE_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_APPIUM_PYTHON_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_APPIUM_PYTHON_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_APPIUM_RUBY_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_APPIUM_RUBY_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_APPIUM_WEB_JAVA_JUNIT_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_APPIUM_WEB_JAVA_TESTNG_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_APPIUM_WEB_NODE_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_APPIUM_WEB_NODE_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_APPIUM_WEB_PYTHON_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_APPIUM_WEB_PYTHON_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_APPIUM_WEB_RUBY_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_APPIUM_WEB_RUBY_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_CALABASH_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_EXTERNAL_DATA :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_INSTRUMENTATION_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_INSTRUMENTATION_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_IOS_APP :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_UIAUTOMATION_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_UIAUTOMATOR_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_WEB_APP :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_XCTEST_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_XCTEST_UI_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types: pattern UploadType_XCTEST_UI_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.Types: problemDetail_arn :: Lens' ProblemDetail (Maybe Text)
+ Amazonka.DeviceFarm.Types: problemDetail_name :: Lens' ProblemDetail (Maybe Text)
+ Amazonka.DeviceFarm.Types: problem_device :: Lens' Problem (Maybe Device)
+ Amazonka.DeviceFarm.Types: problem_job :: Lens' Problem (Maybe ProblemDetail)
+ Amazonka.DeviceFarm.Types: problem_message :: Lens' Problem (Maybe Text)
+ Amazonka.DeviceFarm.Types: problem_result :: Lens' Problem (Maybe ExecutionResult)
+ Amazonka.DeviceFarm.Types: problem_run :: Lens' Problem (Maybe ProblemDetail)
+ Amazonka.DeviceFarm.Types: problem_suite :: Lens' Problem (Maybe ProblemDetail)
+ Amazonka.DeviceFarm.Types: problem_test :: Lens' Problem (Maybe ProblemDetail)
+ Amazonka.DeviceFarm.Types: project_arn :: Lens' Project (Maybe Text)
+ Amazonka.DeviceFarm.Types: project_created :: Lens' Project (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types: project_defaultJobTimeoutMinutes :: Lens' Project (Maybe Int)
+ Amazonka.DeviceFarm.Types: project_name :: Lens' Project (Maybe Text)
+ Amazonka.DeviceFarm.Types: project_vpcConfig :: Lens' Project (Maybe VpcConfig)
+ Amazonka.DeviceFarm.Types: radios_bluetooth :: Lens' Radios (Maybe Bool)
+ Amazonka.DeviceFarm.Types: radios_gps :: Lens' Radios (Maybe Bool)
+ Amazonka.DeviceFarm.Types: radios_nfc :: Lens' Radios (Maybe Bool)
+ Amazonka.DeviceFarm.Types: radios_wifi :: Lens' Radios (Maybe Bool)
+ Amazonka.DeviceFarm.Types: recurringCharge_cost :: Lens' RecurringCharge (Maybe MonetaryAmount)
+ Amazonka.DeviceFarm.Types: recurringCharge_frequency :: Lens' RecurringCharge (Maybe RecurringChargeFrequency)
+ Amazonka.DeviceFarm.Types: remoteAccessSession_arn :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Types: remoteAccessSession_billingMethod :: Lens' RemoteAccessSession (Maybe BillingMethod)
+ Amazonka.DeviceFarm.Types: remoteAccessSession_clientId :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Types: remoteAccessSession_created :: Lens' RemoteAccessSession (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types: remoteAccessSession_device :: Lens' RemoteAccessSession (Maybe Device)
+ Amazonka.DeviceFarm.Types: remoteAccessSession_deviceMinutes :: Lens' RemoteAccessSession (Maybe DeviceMinutes)
+ Amazonka.DeviceFarm.Types: remoteAccessSession_deviceUdid :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Types: remoteAccessSession_endpoint :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Types: remoteAccessSession_hostAddress :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Types: remoteAccessSession_instanceArn :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Types: remoteAccessSession_interactionMode :: Lens' RemoteAccessSession (Maybe InteractionMode)
+ Amazonka.DeviceFarm.Types: remoteAccessSession_message :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Types: remoteAccessSession_name :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Types: remoteAccessSession_remoteDebugEnabled :: Lens' RemoteAccessSession (Maybe Bool)
+ Amazonka.DeviceFarm.Types: remoteAccessSession_remoteRecordAppArn :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Types: remoteAccessSession_remoteRecordEnabled :: Lens' RemoteAccessSession (Maybe Bool)
+ Amazonka.DeviceFarm.Types: remoteAccessSession_result :: Lens' RemoteAccessSession (Maybe ExecutionResult)
+ Amazonka.DeviceFarm.Types: remoteAccessSession_skipAppResign :: Lens' RemoteAccessSession (Maybe Bool)
+ Amazonka.DeviceFarm.Types: remoteAccessSession_started :: Lens' RemoteAccessSession (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types: remoteAccessSession_status :: Lens' RemoteAccessSession (Maybe ExecutionStatus)
+ Amazonka.DeviceFarm.Types: remoteAccessSession_stopped :: Lens' RemoteAccessSession (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types: remoteAccessSession_vpcConfig :: Lens' RemoteAccessSession (Maybe VpcConfig)
+ Amazonka.DeviceFarm.Types: resolution_height :: Lens' Resolution (Maybe Int)
+ Amazonka.DeviceFarm.Types: resolution_width :: Lens' Resolution (Maybe Int)
+ Amazonka.DeviceFarm.Types: rule_attribute :: Lens' Rule (Maybe DeviceAttribute)
+ Amazonka.DeviceFarm.Types: rule_operator :: Lens' Rule (Maybe RuleOperator)
+ Amazonka.DeviceFarm.Types: rule_value :: Lens' Rule (Maybe Text)
+ Amazonka.DeviceFarm.Types: run_appUpload :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Types: run_arn :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Types: run_billingMethod :: Lens' Run (Maybe BillingMethod)
+ Amazonka.DeviceFarm.Types: run_completedJobs :: Lens' Run (Maybe Int)
+ Amazonka.DeviceFarm.Types: run_counters :: Lens' Run (Maybe Counters)
+ Amazonka.DeviceFarm.Types: run_created :: Lens' Run (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types: run_customerArtifactPaths :: Lens' Run (Maybe CustomerArtifactPaths)
+ Amazonka.DeviceFarm.Types: run_deviceMinutes :: Lens' Run (Maybe DeviceMinutes)
+ Amazonka.DeviceFarm.Types: run_devicePoolArn :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Types: run_deviceSelectionResult :: Lens' Run (Maybe DeviceSelectionResult)
+ Amazonka.DeviceFarm.Types: run_eventCount :: Lens' Run (Maybe Int)
+ Amazonka.DeviceFarm.Types: run_jobTimeoutMinutes :: Lens' Run (Maybe Int)
+ Amazonka.DeviceFarm.Types: run_locale :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Types: run_location :: Lens' Run (Maybe Location)
+ Amazonka.DeviceFarm.Types: run_message :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Types: run_name :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Types: run_networkProfile :: Lens' Run (Maybe NetworkProfile)
+ Amazonka.DeviceFarm.Types: run_parsingResultUrl :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Types: run_platform :: Lens' Run (Maybe DevicePlatform)
+ Amazonka.DeviceFarm.Types: run_radios :: Lens' Run (Maybe Radios)
+ Amazonka.DeviceFarm.Types: run_result :: Lens' Run (Maybe ExecutionResult)
+ Amazonka.DeviceFarm.Types: run_resultCode :: Lens' Run (Maybe ExecutionResultCode)
+ Amazonka.DeviceFarm.Types: run_seed :: Lens' Run (Maybe Int)
+ Amazonka.DeviceFarm.Types: run_skipAppResign :: Lens' Run (Maybe Bool)
+ Amazonka.DeviceFarm.Types: run_started :: Lens' Run (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types: run_status :: Lens' Run (Maybe ExecutionStatus)
+ Amazonka.DeviceFarm.Types: run_stopped :: Lens' Run (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types: run_testSpecArn :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Types: run_totalJobs :: Lens' Run (Maybe Int)
+ Amazonka.DeviceFarm.Types: run_type :: Lens' Run (Maybe TestType)
+ Amazonka.DeviceFarm.Types: run_vpcConfig :: Lens' Run (Maybe VpcConfig)
+ Amazonka.DeviceFarm.Types: run_webUrl :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Types: sample_arn :: Lens' Sample (Maybe Text)
+ Amazonka.DeviceFarm.Types: sample_type :: Lens' Sample (Maybe SampleType)
+ Amazonka.DeviceFarm.Types: sample_url :: Lens' Sample (Maybe Text)
+ Amazonka.DeviceFarm.Types: scheduleRunConfiguration_auxiliaryApps :: Lens' ScheduleRunConfiguration (Maybe [Text])
+ Amazonka.DeviceFarm.Types: scheduleRunConfiguration_billingMethod :: Lens' ScheduleRunConfiguration (Maybe BillingMethod)
+ Amazonka.DeviceFarm.Types: scheduleRunConfiguration_customerArtifactPaths :: Lens' ScheduleRunConfiguration (Maybe CustomerArtifactPaths)
+ Amazonka.DeviceFarm.Types: scheduleRunConfiguration_extraDataPackageArn :: Lens' ScheduleRunConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Types: scheduleRunConfiguration_locale :: Lens' ScheduleRunConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Types: scheduleRunConfiguration_location :: Lens' ScheduleRunConfiguration (Maybe Location)
+ Amazonka.DeviceFarm.Types: scheduleRunConfiguration_networkProfileArn :: Lens' ScheduleRunConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Types: scheduleRunConfiguration_radios :: Lens' ScheduleRunConfiguration (Maybe Radios)
+ Amazonka.DeviceFarm.Types: scheduleRunConfiguration_vpceConfigurationArns :: Lens' ScheduleRunConfiguration (Maybe [Text])
+ Amazonka.DeviceFarm.Types: scheduleRunTest_filter :: Lens' ScheduleRunTest (Maybe Text)
+ Amazonka.DeviceFarm.Types: scheduleRunTest_parameters :: Lens' ScheduleRunTest (Maybe (HashMap Text Text))
+ Amazonka.DeviceFarm.Types: scheduleRunTest_testPackageArn :: Lens' ScheduleRunTest (Maybe Text)
+ Amazonka.DeviceFarm.Types: scheduleRunTest_testSpecArn :: Lens' ScheduleRunTest (Maybe Text)
+ Amazonka.DeviceFarm.Types: scheduleRunTest_type :: Lens' ScheduleRunTest TestType
+ Amazonka.DeviceFarm.Types: suite_arn :: Lens' Suite (Maybe Text)
+ Amazonka.DeviceFarm.Types: suite_counters :: Lens' Suite (Maybe Counters)
+ Amazonka.DeviceFarm.Types: suite_created :: Lens' Suite (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types: suite_deviceMinutes :: Lens' Suite (Maybe DeviceMinutes)
+ Amazonka.DeviceFarm.Types: suite_message :: Lens' Suite (Maybe Text)
+ Amazonka.DeviceFarm.Types: suite_name :: Lens' Suite (Maybe Text)
+ Amazonka.DeviceFarm.Types: suite_result :: Lens' Suite (Maybe ExecutionResult)
+ Amazonka.DeviceFarm.Types: suite_started :: Lens' Suite (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types: suite_status :: Lens' Suite (Maybe ExecutionStatus)
+ Amazonka.DeviceFarm.Types: suite_stopped :: Lens' Suite (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types: suite_type :: Lens' Suite (Maybe TestType)
+ Amazonka.DeviceFarm.Types: tag_key :: Lens' Tag Text
+ Amazonka.DeviceFarm.Types: tag_value :: Lens' Tag Text
+ Amazonka.DeviceFarm.Types: testGridProject_arn :: Lens' TestGridProject (Maybe Text)
+ Amazonka.DeviceFarm.Types: testGridProject_created :: Lens' TestGridProject (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types: testGridProject_description :: Lens' TestGridProject (Maybe Text)
+ Amazonka.DeviceFarm.Types: testGridProject_name :: Lens' TestGridProject (Maybe Text)
+ Amazonka.DeviceFarm.Types: testGridProject_vpcConfig :: Lens' TestGridProject (Maybe TestGridVpcConfig)
+ Amazonka.DeviceFarm.Types: testGridSessionAction_action :: Lens' TestGridSessionAction (Maybe Text)
+ Amazonka.DeviceFarm.Types: testGridSessionAction_duration :: Lens' TestGridSessionAction (Maybe Integer)
+ Amazonka.DeviceFarm.Types: testGridSessionAction_requestMethod :: Lens' TestGridSessionAction (Maybe Text)
+ Amazonka.DeviceFarm.Types: testGridSessionAction_started :: Lens' TestGridSessionAction (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types: testGridSessionAction_statusCode :: Lens' TestGridSessionAction (Maybe Text)
+ Amazonka.DeviceFarm.Types: testGridSessionArtifact_filename :: Lens' TestGridSessionArtifact (Maybe Text)
+ Amazonka.DeviceFarm.Types: testGridSessionArtifact_type :: Lens' TestGridSessionArtifact (Maybe TestGridSessionArtifactType)
+ Amazonka.DeviceFarm.Types: testGridSessionArtifact_url :: Lens' TestGridSessionArtifact (Maybe Text)
+ Amazonka.DeviceFarm.Types: testGridSession_arn :: Lens' TestGridSession (Maybe Text)
+ Amazonka.DeviceFarm.Types: testGridSession_billingMinutes :: Lens' TestGridSession (Maybe Double)
+ Amazonka.DeviceFarm.Types: testGridSession_created :: Lens' TestGridSession (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types: testGridSession_ended :: Lens' TestGridSession (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types: testGridSession_seleniumProperties :: Lens' TestGridSession (Maybe Text)
+ Amazonka.DeviceFarm.Types: testGridSession_status :: Lens' TestGridSession (Maybe TestGridSessionStatus)
+ Amazonka.DeviceFarm.Types: testGridVpcConfig_securityGroupIds :: Lens' TestGridVpcConfig (NonEmpty Text)
+ Amazonka.DeviceFarm.Types: testGridVpcConfig_subnetIds :: Lens' TestGridVpcConfig (NonEmpty Text)
+ Amazonka.DeviceFarm.Types: testGridVpcConfig_vpcId :: Lens' TestGridVpcConfig Text
+ Amazonka.DeviceFarm.Types: test_arn :: Lens' Test (Maybe Text)
+ Amazonka.DeviceFarm.Types: test_counters :: Lens' Test (Maybe Counters)
+ Amazonka.DeviceFarm.Types: test_created :: Lens' Test (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types: test_deviceMinutes :: Lens' Test (Maybe DeviceMinutes)
+ Amazonka.DeviceFarm.Types: test_message :: Lens' Test (Maybe Text)
+ Amazonka.DeviceFarm.Types: test_name :: Lens' Test (Maybe Text)
+ Amazonka.DeviceFarm.Types: test_result :: Lens' Test (Maybe ExecutionResult)
+ Amazonka.DeviceFarm.Types: test_started :: Lens' Test (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types: test_status :: Lens' Test (Maybe ExecutionStatus)
+ Amazonka.DeviceFarm.Types: test_stopped :: Lens' Test (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types: test_type :: Lens' Test (Maybe TestType)
+ Amazonka.DeviceFarm.Types: trialMinutes_remaining :: Lens' TrialMinutes (Maybe Double)
+ Amazonka.DeviceFarm.Types: trialMinutes_total :: Lens' TrialMinutes (Maybe Double)
+ Amazonka.DeviceFarm.Types: uniqueProblem_message :: Lens' UniqueProblem (Maybe Text)
+ Amazonka.DeviceFarm.Types: uniqueProblem_problems :: Lens' UniqueProblem (Maybe [Problem])
+ Amazonka.DeviceFarm.Types: upload_arn :: Lens' Upload (Maybe Text)
+ Amazonka.DeviceFarm.Types: upload_category :: Lens' Upload (Maybe UploadCategory)
+ Amazonka.DeviceFarm.Types: upload_contentType :: Lens' Upload (Maybe Text)
+ Amazonka.DeviceFarm.Types: upload_created :: Lens' Upload (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types: upload_message :: Lens' Upload (Maybe Text)
+ Amazonka.DeviceFarm.Types: upload_metadata :: Lens' Upload (Maybe Text)
+ Amazonka.DeviceFarm.Types: upload_name :: Lens' Upload (Maybe Text)
+ Amazonka.DeviceFarm.Types: upload_status :: Lens' Upload (Maybe UploadStatus)
+ Amazonka.DeviceFarm.Types: upload_type :: Lens' Upload (Maybe UploadType)
+ Amazonka.DeviceFarm.Types: upload_url :: Lens' Upload (Maybe Text)
+ Amazonka.DeviceFarm.Types: vPCEConfiguration_arn :: Lens' VPCEConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Types: vPCEConfiguration_serviceDnsName :: Lens' VPCEConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Types: vPCEConfiguration_vpceConfigurationDescription :: Lens' VPCEConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Types: vPCEConfiguration_vpceConfigurationName :: Lens' VPCEConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Types: vPCEConfiguration_vpceServiceName :: Lens' VPCEConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Types: vpcConfig_securityGroupIds :: Lens' VpcConfig (NonEmpty Text)
+ Amazonka.DeviceFarm.Types: vpcConfig_subnetIds :: Lens' VpcConfig (NonEmpty Text)
+ Amazonka.DeviceFarm.Types: vpcConfig_vpcId :: Lens' VpcConfig Text
+ Amazonka.DeviceFarm.Types.AccountSettings: AccountSettings' :: Maybe Text -> Maybe Int -> Maybe Int -> Maybe (HashMap Text Int) -> Maybe Bool -> Maybe TrialMinutes -> Maybe (HashMap DevicePlatform Int) -> Maybe (HashMap DevicePlatform Int) -> AccountSettings
+ Amazonka.DeviceFarm.Types.AccountSettings: [$sel:awsAccountNumber:AccountSettings'] :: AccountSettings -> Maybe Text
+ Amazonka.DeviceFarm.Types.AccountSettings: [$sel:defaultJobTimeoutMinutes:AccountSettings'] :: AccountSettings -> Maybe Int
+ Amazonka.DeviceFarm.Types.AccountSettings: [$sel:maxJobTimeoutMinutes:AccountSettings'] :: AccountSettings -> Maybe Int
+ Amazonka.DeviceFarm.Types.AccountSettings: [$sel:maxSlots:AccountSettings'] :: AccountSettings -> Maybe (HashMap Text Int)
+ Amazonka.DeviceFarm.Types.AccountSettings: [$sel:skipAppResign:AccountSettings'] :: AccountSettings -> Maybe Bool
+ Amazonka.DeviceFarm.Types.AccountSettings: [$sel:trialMinutes:AccountSettings'] :: AccountSettings -> Maybe TrialMinutes
+ Amazonka.DeviceFarm.Types.AccountSettings: [$sel:unmeteredDevices:AccountSettings'] :: AccountSettings -> Maybe (HashMap DevicePlatform Int)
+ Amazonka.DeviceFarm.Types.AccountSettings: [$sel:unmeteredRemoteAccessDevices:AccountSettings'] :: AccountSettings -> Maybe (HashMap DevicePlatform Int)
+ Amazonka.DeviceFarm.Types.AccountSettings: accountSettings_awsAccountNumber :: Lens' AccountSettings (Maybe Text)
+ Amazonka.DeviceFarm.Types.AccountSettings: accountSettings_defaultJobTimeoutMinutes :: Lens' AccountSettings (Maybe Int)
+ Amazonka.DeviceFarm.Types.AccountSettings: accountSettings_maxJobTimeoutMinutes :: Lens' AccountSettings (Maybe Int)
+ Amazonka.DeviceFarm.Types.AccountSettings: accountSettings_maxSlots :: Lens' AccountSettings (Maybe (HashMap Text Int))
+ Amazonka.DeviceFarm.Types.AccountSettings: accountSettings_skipAppResign :: Lens' AccountSettings (Maybe Bool)
+ Amazonka.DeviceFarm.Types.AccountSettings: accountSettings_trialMinutes :: Lens' AccountSettings (Maybe TrialMinutes)
+ Amazonka.DeviceFarm.Types.AccountSettings: accountSettings_unmeteredDevices :: Lens' AccountSettings (Maybe (HashMap DevicePlatform Int))
+ Amazonka.DeviceFarm.Types.AccountSettings: accountSettings_unmeteredRemoteAccessDevices :: Lens' AccountSettings (Maybe (HashMap DevicePlatform Int))
+ Amazonka.DeviceFarm.Types.AccountSettings: data AccountSettings
+ Amazonka.DeviceFarm.Types.AccountSettings: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.AccountSettings.AccountSettings
+ Amazonka.DeviceFarm.Types.AccountSettings: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.AccountSettings.AccountSettings
+ Amazonka.DeviceFarm.Types.AccountSettings: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.AccountSettings.AccountSettings
+ Amazonka.DeviceFarm.Types.AccountSettings: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.AccountSettings.AccountSettings
+ Amazonka.DeviceFarm.Types.AccountSettings: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.AccountSettings.AccountSettings
+ Amazonka.DeviceFarm.Types.AccountSettings: instance GHC.Read.Read Amazonka.DeviceFarm.Types.AccountSettings.AccountSettings
+ Amazonka.DeviceFarm.Types.AccountSettings: instance GHC.Show.Show Amazonka.DeviceFarm.Types.AccountSettings.AccountSettings
+ Amazonka.DeviceFarm.Types.AccountSettings: newAccountSettings :: AccountSettings
+ Amazonka.DeviceFarm.Types.Artifact: Artifact' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe ArtifactType -> Maybe Text -> Artifact
+ Amazonka.DeviceFarm.Types.Artifact: [$sel:arn:Artifact'] :: Artifact -> Maybe Text
+ Amazonka.DeviceFarm.Types.Artifact: [$sel:extension:Artifact'] :: Artifact -> Maybe Text
+ Amazonka.DeviceFarm.Types.Artifact: [$sel:name:Artifact'] :: Artifact -> Maybe Text
+ Amazonka.DeviceFarm.Types.Artifact: [$sel:type':Artifact'] :: Artifact -> Maybe ArtifactType
+ Amazonka.DeviceFarm.Types.Artifact: [$sel:url:Artifact'] :: Artifact -> Maybe Text
+ Amazonka.DeviceFarm.Types.Artifact: artifact_arn :: Lens' Artifact (Maybe Text)
+ Amazonka.DeviceFarm.Types.Artifact: artifact_extension :: Lens' Artifact (Maybe Text)
+ Amazonka.DeviceFarm.Types.Artifact: artifact_name :: Lens' Artifact (Maybe Text)
+ Amazonka.DeviceFarm.Types.Artifact: artifact_type :: Lens' Artifact (Maybe ArtifactType)
+ Amazonka.DeviceFarm.Types.Artifact: artifact_url :: Lens' Artifact (Maybe Text)
+ Amazonka.DeviceFarm.Types.Artifact: data Artifact
+ Amazonka.DeviceFarm.Types.Artifact: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.Artifact.Artifact
+ Amazonka.DeviceFarm.Types.Artifact: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.Artifact.Artifact
+ Amazonka.DeviceFarm.Types.Artifact: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.Artifact.Artifact
+ Amazonka.DeviceFarm.Types.Artifact: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.Artifact.Artifact
+ Amazonka.DeviceFarm.Types.Artifact: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.Artifact.Artifact
+ Amazonka.DeviceFarm.Types.Artifact: instance GHC.Read.Read Amazonka.DeviceFarm.Types.Artifact.Artifact
+ Amazonka.DeviceFarm.Types.Artifact: instance GHC.Show.Show Amazonka.DeviceFarm.Types.Artifact.Artifact
+ Amazonka.DeviceFarm.Types.Artifact: newArtifact :: Artifact
+ Amazonka.DeviceFarm.Types.ArtifactCategory: ArtifactCategory' :: Text -> ArtifactCategory
+ Amazonka.DeviceFarm.Types.ArtifactCategory: [fromArtifactCategory] :: ArtifactCategory -> Text
+ Amazonka.DeviceFarm.Types.ArtifactCategory: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.ArtifactCategory.ArtifactCategory
+ Amazonka.DeviceFarm.Types.ArtifactCategory: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.ArtifactCategory.ArtifactCategory
+ Amazonka.DeviceFarm.Types.ArtifactCategory: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.ArtifactCategory.ArtifactCategory
+ Amazonka.DeviceFarm.Types.ArtifactCategory: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.ArtifactCategory.ArtifactCategory
+ Amazonka.DeviceFarm.Types.ArtifactCategory: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.ArtifactCategory.ArtifactCategory
+ Amazonka.DeviceFarm.Types.ArtifactCategory: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.ArtifactCategory.ArtifactCategory
+ Amazonka.DeviceFarm.Types.ArtifactCategory: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.ArtifactCategory.ArtifactCategory
+ Amazonka.DeviceFarm.Types.ArtifactCategory: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.ArtifactCategory.ArtifactCategory
+ Amazonka.DeviceFarm.Types.ArtifactCategory: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.ArtifactCategory.ArtifactCategory
+ Amazonka.DeviceFarm.Types.ArtifactCategory: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.ArtifactCategory.ArtifactCategory
+ Amazonka.DeviceFarm.Types.ArtifactCategory: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.ArtifactCategory.ArtifactCategory
+ Amazonka.DeviceFarm.Types.ArtifactCategory: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.ArtifactCategory.ArtifactCategory
+ Amazonka.DeviceFarm.Types.ArtifactCategory: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.ArtifactCategory.ArtifactCategory
+ Amazonka.DeviceFarm.Types.ArtifactCategory: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.ArtifactCategory.ArtifactCategory
+ Amazonka.DeviceFarm.Types.ArtifactCategory: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.ArtifactCategory.ArtifactCategory
+ Amazonka.DeviceFarm.Types.ArtifactCategory: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.ArtifactCategory.ArtifactCategory
+ Amazonka.DeviceFarm.Types.ArtifactCategory: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.ArtifactCategory.ArtifactCategory
+ Amazonka.DeviceFarm.Types.ArtifactCategory: instance GHC.Read.Read Amazonka.DeviceFarm.Types.ArtifactCategory.ArtifactCategory
+ Amazonka.DeviceFarm.Types.ArtifactCategory: instance GHC.Show.Show Amazonka.DeviceFarm.Types.ArtifactCategory.ArtifactCategory
+ Amazonka.DeviceFarm.Types.ArtifactCategory: newtype ArtifactCategory
+ Amazonka.DeviceFarm.Types.ArtifactCategory: pattern ArtifactCategory_FILE :: ArtifactCategory
+ Amazonka.DeviceFarm.Types.ArtifactCategory: pattern ArtifactCategory_LOG :: ArtifactCategory
+ Amazonka.DeviceFarm.Types.ArtifactCategory: pattern ArtifactCategory_SCREENSHOT :: ArtifactCategory
+ Amazonka.DeviceFarm.Types.ArtifactType: ArtifactType' :: Text -> ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: [fromArtifactType] :: ArtifactType -> Text
+ Amazonka.DeviceFarm.Types.ArtifactType: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.ArtifactType.ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.ArtifactType.ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.ArtifactType.ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.ArtifactType.ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.ArtifactType.ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.ArtifactType.ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.ArtifactType.ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.ArtifactType.ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.ArtifactType.ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.ArtifactType.ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.ArtifactType.ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.ArtifactType.ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.ArtifactType.ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.ArtifactType.ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.ArtifactType.ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.ArtifactType.ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.ArtifactType.ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: instance GHC.Read.Read Amazonka.DeviceFarm.Types.ArtifactType.ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: instance GHC.Show.Show Amazonka.DeviceFarm.Types.ArtifactType.ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: newtype ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_APPIUM_JAVA_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_APPIUM_JAVA_XML_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_APPIUM_PYTHON_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_APPIUM_PYTHON_XML_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_APPIUM_SERVER_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_APPLICATION_CRASH_REPORT :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_AUTOMATION_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_CALABASH_JAVA_XML_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_CALABASH_JSON_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_CALABASH_PRETTY_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_CALABASH_STANDARD_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_CUSTOMER_ARTIFACT :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_CUSTOMER_ARTIFACT_LOG :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_DEVICE_LOG :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_EXERCISER_MONKEY_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_EXPLORER_EVENT_LOG :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_EXPLORER_SUMMARY_LOG :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_INSTRUMENTATION_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_MESSAGE_LOG :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_RESULT_LOG :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_SCREENSHOT :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_SERVICE_LOG :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_TESTSPEC_OUTPUT :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_UNKNOWN :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_VIDEO :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_VIDEO_LOG :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_WEBKIT_LOG :: ArtifactType
+ Amazonka.DeviceFarm.Types.ArtifactType: pattern ArtifactType_XCTEST_LOG :: ArtifactType
+ Amazonka.DeviceFarm.Types.BillingMethod: BillingMethod' :: Text -> BillingMethod
+ Amazonka.DeviceFarm.Types.BillingMethod: [fromBillingMethod] :: BillingMethod -> Text
+ Amazonka.DeviceFarm.Types.BillingMethod: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.BillingMethod.BillingMethod
+ Amazonka.DeviceFarm.Types.BillingMethod: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.BillingMethod.BillingMethod
+ Amazonka.DeviceFarm.Types.BillingMethod: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.BillingMethod.BillingMethod
+ Amazonka.DeviceFarm.Types.BillingMethod: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.BillingMethod.BillingMethod
+ Amazonka.DeviceFarm.Types.BillingMethod: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.BillingMethod.BillingMethod
+ Amazonka.DeviceFarm.Types.BillingMethod: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.BillingMethod.BillingMethod
+ Amazonka.DeviceFarm.Types.BillingMethod: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.BillingMethod.BillingMethod
+ Amazonka.DeviceFarm.Types.BillingMethod: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.BillingMethod.BillingMethod
+ Amazonka.DeviceFarm.Types.BillingMethod: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.BillingMethod.BillingMethod
+ Amazonka.DeviceFarm.Types.BillingMethod: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.BillingMethod.BillingMethod
+ Amazonka.DeviceFarm.Types.BillingMethod: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.BillingMethod.BillingMethod
+ Amazonka.DeviceFarm.Types.BillingMethod: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.BillingMethod.BillingMethod
+ Amazonka.DeviceFarm.Types.BillingMethod: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.BillingMethod.BillingMethod
+ Amazonka.DeviceFarm.Types.BillingMethod: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.BillingMethod.BillingMethod
+ Amazonka.DeviceFarm.Types.BillingMethod: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.BillingMethod.BillingMethod
+ Amazonka.DeviceFarm.Types.BillingMethod: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.BillingMethod.BillingMethod
+ Amazonka.DeviceFarm.Types.BillingMethod: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.BillingMethod.BillingMethod
+ Amazonka.DeviceFarm.Types.BillingMethod: instance GHC.Read.Read Amazonka.DeviceFarm.Types.BillingMethod.BillingMethod
+ Amazonka.DeviceFarm.Types.BillingMethod: instance GHC.Show.Show Amazonka.DeviceFarm.Types.BillingMethod.BillingMethod
+ Amazonka.DeviceFarm.Types.BillingMethod: newtype BillingMethod
+ Amazonka.DeviceFarm.Types.BillingMethod: pattern BillingMethod_METERED :: BillingMethod
+ Amazonka.DeviceFarm.Types.BillingMethod: pattern BillingMethod_UNMETERED :: BillingMethod
+ Amazonka.DeviceFarm.Types.CPU: CPU' :: Maybe Text -> Maybe Double -> Maybe Text -> CPU
+ Amazonka.DeviceFarm.Types.CPU: [$sel:architecture:CPU'] :: CPU -> Maybe Text
+ Amazonka.DeviceFarm.Types.CPU: [$sel:clock:CPU'] :: CPU -> Maybe Double
+ Amazonka.DeviceFarm.Types.CPU: [$sel:frequency:CPU'] :: CPU -> Maybe Text
+ Amazonka.DeviceFarm.Types.CPU: cpu_architecture :: Lens' CPU (Maybe Text)
+ Amazonka.DeviceFarm.Types.CPU: cpu_clock :: Lens' CPU (Maybe Double)
+ Amazonka.DeviceFarm.Types.CPU: cpu_frequency :: Lens' CPU (Maybe Text)
+ Amazonka.DeviceFarm.Types.CPU: data CPU
+ Amazonka.DeviceFarm.Types.CPU: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.CPU.CPU
+ Amazonka.DeviceFarm.Types.CPU: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.CPU.CPU
+ Amazonka.DeviceFarm.Types.CPU: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.CPU.CPU
+ Amazonka.DeviceFarm.Types.CPU: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.CPU.CPU
+ Amazonka.DeviceFarm.Types.CPU: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.CPU.CPU
+ Amazonka.DeviceFarm.Types.CPU: instance GHC.Read.Read Amazonka.DeviceFarm.Types.CPU.CPU
+ Amazonka.DeviceFarm.Types.CPU: instance GHC.Show.Show Amazonka.DeviceFarm.Types.CPU.CPU
+ Amazonka.DeviceFarm.Types.CPU: newCPU :: CPU
+ Amazonka.DeviceFarm.Types.Counters: Counters' :: Maybe Int -> Maybe Int -> Maybe Int -> Maybe Int -> Maybe Int -> Maybe Int -> Maybe Int -> Counters
+ Amazonka.DeviceFarm.Types.Counters: [$sel:errored:Counters'] :: Counters -> Maybe Int
+ Amazonka.DeviceFarm.Types.Counters: [$sel:failed:Counters'] :: Counters -> Maybe Int
+ Amazonka.DeviceFarm.Types.Counters: [$sel:passed:Counters'] :: Counters -> Maybe Int
+ Amazonka.DeviceFarm.Types.Counters: [$sel:skipped:Counters'] :: Counters -> Maybe Int
+ Amazonka.DeviceFarm.Types.Counters: [$sel:stopped:Counters'] :: Counters -> Maybe Int
+ Amazonka.DeviceFarm.Types.Counters: [$sel:total:Counters'] :: Counters -> Maybe Int
+ Amazonka.DeviceFarm.Types.Counters: [$sel:warned:Counters'] :: Counters -> Maybe Int
+ Amazonka.DeviceFarm.Types.Counters: counters_errored :: Lens' Counters (Maybe Int)
+ Amazonka.DeviceFarm.Types.Counters: counters_failed :: Lens' Counters (Maybe Int)
+ Amazonka.DeviceFarm.Types.Counters: counters_passed :: Lens' Counters (Maybe Int)
+ Amazonka.DeviceFarm.Types.Counters: counters_skipped :: Lens' Counters (Maybe Int)
+ Amazonka.DeviceFarm.Types.Counters: counters_stopped :: Lens' Counters (Maybe Int)
+ Amazonka.DeviceFarm.Types.Counters: counters_total :: Lens' Counters (Maybe Int)
+ Amazonka.DeviceFarm.Types.Counters: counters_warned :: Lens' Counters (Maybe Int)
+ Amazonka.DeviceFarm.Types.Counters: data Counters
+ Amazonka.DeviceFarm.Types.Counters: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.Counters.Counters
+ Amazonka.DeviceFarm.Types.Counters: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.Counters.Counters
+ Amazonka.DeviceFarm.Types.Counters: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.Counters.Counters
+ Amazonka.DeviceFarm.Types.Counters: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.Counters.Counters
+ Amazonka.DeviceFarm.Types.Counters: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.Counters.Counters
+ Amazonka.DeviceFarm.Types.Counters: instance GHC.Read.Read Amazonka.DeviceFarm.Types.Counters.Counters
+ Amazonka.DeviceFarm.Types.Counters: instance GHC.Show.Show Amazonka.DeviceFarm.Types.Counters.Counters
+ Amazonka.DeviceFarm.Types.Counters: newCounters :: Counters
+ Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration: CreateRemoteAccessSessionConfiguration' :: Maybe BillingMethod -> Maybe [Text] -> CreateRemoteAccessSessionConfiguration
+ Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration: [$sel:billingMethod:CreateRemoteAccessSessionConfiguration'] :: CreateRemoteAccessSessionConfiguration -> Maybe BillingMethod
+ Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration: [$sel:vpceConfigurationArns:CreateRemoteAccessSessionConfiguration'] :: CreateRemoteAccessSessionConfiguration -> Maybe [Text]
+ Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration: createRemoteAccessSessionConfiguration_billingMethod :: Lens' CreateRemoteAccessSessionConfiguration (Maybe BillingMethod)
+ Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration: createRemoteAccessSessionConfiguration_vpceConfigurationArns :: Lens' CreateRemoteAccessSessionConfiguration (Maybe [Text])
+ Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration: data CreateRemoteAccessSessionConfiguration
+ Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration.CreateRemoteAccessSessionConfiguration
+ Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration.CreateRemoteAccessSessionConfiguration
+ Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration.CreateRemoteAccessSessionConfiguration
+ Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration.CreateRemoteAccessSessionConfiguration
+ Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration.CreateRemoteAccessSessionConfiguration
+ Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration: instance GHC.Read.Read Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration.CreateRemoteAccessSessionConfiguration
+ Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration: instance GHC.Show.Show Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration.CreateRemoteAccessSessionConfiguration
+ Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration: newCreateRemoteAccessSessionConfiguration :: CreateRemoteAccessSessionConfiguration
+ Amazonka.DeviceFarm.Types.CurrencyCode: CurrencyCode' :: Text -> CurrencyCode
+ Amazonka.DeviceFarm.Types.CurrencyCode: [fromCurrencyCode] :: CurrencyCode -> Text
+ Amazonka.DeviceFarm.Types.CurrencyCode: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.CurrencyCode.CurrencyCode
+ Amazonka.DeviceFarm.Types.CurrencyCode: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.CurrencyCode.CurrencyCode
+ Amazonka.DeviceFarm.Types.CurrencyCode: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.CurrencyCode.CurrencyCode
+ Amazonka.DeviceFarm.Types.CurrencyCode: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.CurrencyCode.CurrencyCode
+ Amazonka.DeviceFarm.Types.CurrencyCode: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.CurrencyCode.CurrencyCode
+ Amazonka.DeviceFarm.Types.CurrencyCode: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.CurrencyCode.CurrencyCode
+ Amazonka.DeviceFarm.Types.CurrencyCode: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.CurrencyCode.CurrencyCode
+ Amazonka.DeviceFarm.Types.CurrencyCode: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.CurrencyCode.CurrencyCode
+ Amazonka.DeviceFarm.Types.CurrencyCode: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.CurrencyCode.CurrencyCode
+ Amazonka.DeviceFarm.Types.CurrencyCode: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.CurrencyCode.CurrencyCode
+ Amazonka.DeviceFarm.Types.CurrencyCode: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.CurrencyCode.CurrencyCode
+ Amazonka.DeviceFarm.Types.CurrencyCode: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.CurrencyCode.CurrencyCode
+ Amazonka.DeviceFarm.Types.CurrencyCode: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.CurrencyCode.CurrencyCode
+ Amazonka.DeviceFarm.Types.CurrencyCode: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.CurrencyCode.CurrencyCode
+ Amazonka.DeviceFarm.Types.CurrencyCode: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.CurrencyCode.CurrencyCode
+ Amazonka.DeviceFarm.Types.CurrencyCode: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.CurrencyCode.CurrencyCode
+ Amazonka.DeviceFarm.Types.CurrencyCode: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.CurrencyCode.CurrencyCode
+ Amazonka.DeviceFarm.Types.CurrencyCode: instance GHC.Read.Read Amazonka.DeviceFarm.Types.CurrencyCode.CurrencyCode
+ Amazonka.DeviceFarm.Types.CurrencyCode: instance GHC.Show.Show Amazonka.DeviceFarm.Types.CurrencyCode.CurrencyCode
+ Amazonka.DeviceFarm.Types.CurrencyCode: newtype CurrencyCode
+ Amazonka.DeviceFarm.Types.CurrencyCode: pattern CurrencyCode_USD :: CurrencyCode
+ Amazonka.DeviceFarm.Types.CustomerArtifactPaths: CustomerArtifactPaths' :: Maybe [Text] -> Maybe [Text] -> Maybe [Text] -> CustomerArtifactPaths
+ Amazonka.DeviceFarm.Types.CustomerArtifactPaths: [$sel:androidPaths:CustomerArtifactPaths'] :: CustomerArtifactPaths -> Maybe [Text]
+ Amazonka.DeviceFarm.Types.CustomerArtifactPaths: [$sel:deviceHostPaths:CustomerArtifactPaths'] :: CustomerArtifactPaths -> Maybe [Text]
+ Amazonka.DeviceFarm.Types.CustomerArtifactPaths: [$sel:iosPaths:CustomerArtifactPaths'] :: CustomerArtifactPaths -> Maybe [Text]
+ Amazonka.DeviceFarm.Types.CustomerArtifactPaths: customerArtifactPaths_androidPaths :: Lens' CustomerArtifactPaths (Maybe [Text])
+ Amazonka.DeviceFarm.Types.CustomerArtifactPaths: customerArtifactPaths_deviceHostPaths :: Lens' CustomerArtifactPaths (Maybe [Text])
+ Amazonka.DeviceFarm.Types.CustomerArtifactPaths: customerArtifactPaths_iosPaths :: Lens' CustomerArtifactPaths (Maybe [Text])
+ Amazonka.DeviceFarm.Types.CustomerArtifactPaths: data CustomerArtifactPaths
+ Amazonka.DeviceFarm.Types.CustomerArtifactPaths: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.CustomerArtifactPaths.CustomerArtifactPaths
+ Amazonka.DeviceFarm.Types.CustomerArtifactPaths: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.CustomerArtifactPaths.CustomerArtifactPaths
+ Amazonka.DeviceFarm.Types.CustomerArtifactPaths: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.CustomerArtifactPaths.CustomerArtifactPaths
+ Amazonka.DeviceFarm.Types.CustomerArtifactPaths: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.CustomerArtifactPaths.CustomerArtifactPaths
+ Amazonka.DeviceFarm.Types.CustomerArtifactPaths: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.CustomerArtifactPaths.CustomerArtifactPaths
+ Amazonka.DeviceFarm.Types.CustomerArtifactPaths: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.CustomerArtifactPaths.CustomerArtifactPaths
+ Amazonka.DeviceFarm.Types.CustomerArtifactPaths: instance GHC.Read.Read Amazonka.DeviceFarm.Types.CustomerArtifactPaths.CustomerArtifactPaths
+ Amazonka.DeviceFarm.Types.CustomerArtifactPaths: instance GHC.Show.Show Amazonka.DeviceFarm.Types.CustomerArtifactPaths.CustomerArtifactPaths
+ Amazonka.DeviceFarm.Types.CustomerArtifactPaths: newCustomerArtifactPaths :: CustomerArtifactPaths
+ Amazonka.DeviceFarm.Types.Device: Device' :: Maybe Text -> Maybe DeviceAvailability -> Maybe Text -> Maybe CPU -> Maybe Text -> Maybe Text -> Maybe DeviceFormFactor -> Maybe Integer -> Maybe Text -> Maybe [DeviceInstance] -> Maybe Text -> Maybe Integer -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe DevicePlatform -> Maybe Text -> Maybe Bool -> Maybe Bool -> Maybe Resolution -> Device
+ Amazonka.DeviceFarm.Types.Device: [$sel:arn:Device'] :: Device -> Maybe Text
+ Amazonka.DeviceFarm.Types.Device: [$sel:availability:Device'] :: Device -> Maybe DeviceAvailability
+ Amazonka.DeviceFarm.Types.Device: [$sel:carrier:Device'] :: Device -> Maybe Text
+ Amazonka.DeviceFarm.Types.Device: [$sel:cpu:Device'] :: Device -> Maybe CPU
+ Amazonka.DeviceFarm.Types.Device: [$sel:fleetName:Device'] :: Device -> Maybe Text
+ Amazonka.DeviceFarm.Types.Device: [$sel:fleetType:Device'] :: Device -> Maybe Text
+ Amazonka.DeviceFarm.Types.Device: [$sel:formFactor:Device'] :: Device -> Maybe DeviceFormFactor
+ Amazonka.DeviceFarm.Types.Device: [$sel:heapSize:Device'] :: Device -> Maybe Integer
+ Amazonka.DeviceFarm.Types.Device: [$sel:image:Device'] :: Device -> Maybe Text
+ Amazonka.DeviceFarm.Types.Device: [$sel:instances:Device'] :: Device -> Maybe [DeviceInstance]
+ Amazonka.DeviceFarm.Types.Device: [$sel:manufacturer:Device'] :: Device -> Maybe Text
+ Amazonka.DeviceFarm.Types.Device: [$sel:memory:Device'] :: Device -> Maybe Integer
+ Amazonka.DeviceFarm.Types.Device: [$sel:model:Device'] :: Device -> Maybe Text
+ Amazonka.DeviceFarm.Types.Device: [$sel:modelId:Device'] :: Device -> Maybe Text
+ Amazonka.DeviceFarm.Types.Device: [$sel:name:Device'] :: Device -> Maybe Text
+ Amazonka.DeviceFarm.Types.Device: [$sel:os:Device'] :: Device -> Maybe Text
+ Amazonka.DeviceFarm.Types.Device: [$sel:platform:Device'] :: Device -> Maybe DevicePlatform
+ Amazonka.DeviceFarm.Types.Device: [$sel:radio:Device'] :: Device -> Maybe Text
+ Amazonka.DeviceFarm.Types.Device: [$sel:remoteAccessEnabled:Device'] :: Device -> Maybe Bool
+ Amazonka.DeviceFarm.Types.Device: [$sel:remoteDebugEnabled:Device'] :: Device -> Maybe Bool
+ Amazonka.DeviceFarm.Types.Device: [$sel:resolution:Device'] :: Device -> Maybe Resolution
+ Amazonka.DeviceFarm.Types.Device: data Device
+ Amazonka.DeviceFarm.Types.Device: device_arn :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Types.Device: device_availability :: Lens' Device (Maybe DeviceAvailability)
+ Amazonka.DeviceFarm.Types.Device: device_carrier :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Types.Device: device_cpu :: Lens' Device (Maybe CPU)
+ Amazonka.DeviceFarm.Types.Device: device_fleetName :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Types.Device: device_fleetType :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Types.Device: device_formFactor :: Lens' Device (Maybe DeviceFormFactor)
+ Amazonka.DeviceFarm.Types.Device: device_heapSize :: Lens' Device (Maybe Integer)
+ Amazonka.DeviceFarm.Types.Device: device_image :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Types.Device: device_instances :: Lens' Device (Maybe [DeviceInstance])
+ Amazonka.DeviceFarm.Types.Device: device_manufacturer :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Types.Device: device_memory :: Lens' Device (Maybe Integer)
+ Amazonka.DeviceFarm.Types.Device: device_model :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Types.Device: device_modelId :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Types.Device: device_name :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Types.Device: device_os :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Types.Device: device_platform :: Lens' Device (Maybe DevicePlatform)
+ Amazonka.DeviceFarm.Types.Device: device_radio :: Lens' Device (Maybe Text)
+ Amazonka.DeviceFarm.Types.Device: device_remoteAccessEnabled :: Lens' Device (Maybe Bool)
+ Amazonka.DeviceFarm.Types.Device: device_remoteDebugEnabled :: Lens' Device (Maybe Bool)
+ Amazonka.DeviceFarm.Types.Device: device_resolution :: Lens' Device (Maybe Resolution)
+ Amazonka.DeviceFarm.Types.Device: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.Device.Device
+ Amazonka.DeviceFarm.Types.Device: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.Device.Device
+ Amazonka.DeviceFarm.Types.Device: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.Device.Device
+ Amazonka.DeviceFarm.Types.Device: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.Device.Device
+ Amazonka.DeviceFarm.Types.Device: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.Device.Device
+ Amazonka.DeviceFarm.Types.Device: instance GHC.Read.Read Amazonka.DeviceFarm.Types.Device.Device
+ Amazonka.DeviceFarm.Types.Device: instance GHC.Show.Show Amazonka.DeviceFarm.Types.Device.Device
+ Amazonka.DeviceFarm.Types.Device: newDevice :: Device
+ Amazonka.DeviceFarm.Types.DeviceAttribute: DeviceAttribute' :: Text -> DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: [fromDeviceAttribute] :: DeviceAttribute -> Text
+ Amazonka.DeviceFarm.Types.DeviceAttribute: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.DeviceAttribute.DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.DeviceAttribute.DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.DeviceAttribute.DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.DeviceAttribute.DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.DeviceAttribute.DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.DeviceAttribute.DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.DeviceAttribute.DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.DeviceAttribute.DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.DeviceAttribute.DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.DeviceAttribute.DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.DeviceAttribute.DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.DeviceAttribute.DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.DeviceAttribute.DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.DeviceAttribute.DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.DeviceAttribute.DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.DeviceAttribute.DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.DeviceAttribute.DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: instance GHC.Read.Read Amazonka.DeviceFarm.Types.DeviceAttribute.DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: instance GHC.Show.Show Amazonka.DeviceFarm.Types.DeviceAttribute.DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: newtype DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: pattern DeviceAttribute_APPIUM_VERSION :: DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: pattern DeviceAttribute_ARN :: DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: pattern DeviceAttribute_AVAILABILITY :: DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: pattern DeviceAttribute_FLEET_TYPE :: DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: pattern DeviceAttribute_FORM_FACTOR :: DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: pattern DeviceAttribute_INSTANCE_ARN :: DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: pattern DeviceAttribute_INSTANCE_LABELS :: DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: pattern DeviceAttribute_MANUFACTURER :: DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: pattern DeviceAttribute_MODEL :: DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: pattern DeviceAttribute_OS_VERSION :: DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: pattern DeviceAttribute_PLATFORM :: DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: pattern DeviceAttribute_REMOTE_ACCESS_ENABLED :: DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAttribute: pattern DeviceAttribute_REMOTE_DEBUG_ENABLED :: DeviceAttribute
+ Amazonka.DeviceFarm.Types.DeviceAvailability: DeviceAvailability' :: Text -> DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceAvailability: [fromDeviceAvailability] :: DeviceAvailability -> Text
+ Amazonka.DeviceFarm.Types.DeviceAvailability: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.DeviceAvailability.DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceAvailability: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.DeviceAvailability.DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceAvailability: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.DeviceAvailability.DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceAvailability: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.DeviceAvailability.DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceAvailability: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.DeviceAvailability.DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceAvailability: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.DeviceAvailability.DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceAvailability: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.DeviceAvailability.DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceAvailability: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.DeviceAvailability.DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceAvailability: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.DeviceAvailability.DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceAvailability: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.DeviceAvailability.DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceAvailability: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.DeviceAvailability.DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceAvailability: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.DeviceAvailability.DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceAvailability: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.DeviceAvailability.DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceAvailability: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.DeviceAvailability.DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceAvailability: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.DeviceAvailability.DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceAvailability: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.DeviceAvailability.DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceAvailability: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.DeviceAvailability.DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceAvailability: instance GHC.Read.Read Amazonka.DeviceFarm.Types.DeviceAvailability.DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceAvailability: instance GHC.Show.Show Amazonka.DeviceFarm.Types.DeviceAvailability.DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceAvailability: newtype DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceAvailability: pattern DeviceAvailability_AVAILABLE :: DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceAvailability: pattern DeviceAvailability_BUSY :: DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceAvailability: pattern DeviceAvailability_HIGHLY_AVAILABLE :: DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceAvailability: pattern DeviceAvailability_TEMPORARY_NOT_AVAILABLE :: DeviceAvailability
+ Amazonka.DeviceFarm.Types.DeviceFilter: DeviceFilter' :: DeviceFilterAttribute -> RuleOperator -> [Text] -> DeviceFilter
+ Amazonka.DeviceFarm.Types.DeviceFilter: [$sel:attribute:DeviceFilter'] :: DeviceFilter -> DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilter: [$sel:operator:DeviceFilter'] :: DeviceFilter -> RuleOperator
+ Amazonka.DeviceFarm.Types.DeviceFilter: [$sel:values:DeviceFilter'] :: DeviceFilter -> [Text]
+ Amazonka.DeviceFarm.Types.DeviceFilter: data DeviceFilter
+ Amazonka.DeviceFarm.Types.DeviceFilter: deviceFilter_attribute :: Lens' DeviceFilter DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilter: deviceFilter_operator :: Lens' DeviceFilter RuleOperator
+ Amazonka.DeviceFarm.Types.DeviceFilter: deviceFilter_values :: Lens' DeviceFilter [Text]
+ Amazonka.DeviceFarm.Types.DeviceFilter: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.DeviceFilter.DeviceFilter
+ Amazonka.DeviceFarm.Types.DeviceFilter: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.DeviceFilter.DeviceFilter
+ Amazonka.DeviceFarm.Types.DeviceFilter: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.DeviceFilter.DeviceFilter
+ Amazonka.DeviceFarm.Types.DeviceFilter: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.DeviceFilter.DeviceFilter
+ Amazonka.DeviceFarm.Types.DeviceFilter: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.DeviceFilter.DeviceFilter
+ Amazonka.DeviceFarm.Types.DeviceFilter: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.DeviceFilter.DeviceFilter
+ Amazonka.DeviceFarm.Types.DeviceFilter: instance GHC.Read.Read Amazonka.DeviceFarm.Types.DeviceFilter.DeviceFilter
+ Amazonka.DeviceFarm.Types.DeviceFilter: instance GHC.Show.Show Amazonka.DeviceFarm.Types.DeviceFilter.DeviceFilter
+ Amazonka.DeviceFarm.Types.DeviceFilter: newDeviceFilter :: DeviceFilterAttribute -> RuleOperator -> DeviceFilter
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: DeviceFilterAttribute' :: Text -> DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: [fromDeviceFilterAttribute] :: DeviceFilterAttribute -> Text
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.DeviceFilterAttribute.DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.DeviceFilterAttribute.DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.DeviceFilterAttribute.DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.DeviceFilterAttribute.DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.DeviceFilterAttribute.DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.DeviceFilterAttribute.DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.DeviceFilterAttribute.DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.DeviceFilterAttribute.DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.DeviceFilterAttribute.DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.DeviceFilterAttribute.DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.DeviceFilterAttribute.DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.DeviceFilterAttribute.DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.DeviceFilterAttribute.DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.DeviceFilterAttribute.DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.DeviceFilterAttribute.DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.DeviceFilterAttribute.DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.DeviceFilterAttribute.DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: instance GHC.Read.Read Amazonka.DeviceFarm.Types.DeviceFilterAttribute.DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: instance GHC.Show.Show Amazonka.DeviceFarm.Types.DeviceFilterAttribute.DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: newtype DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: pattern DeviceFilterAttribute_ARN :: DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: pattern DeviceFilterAttribute_AVAILABILITY :: DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: pattern DeviceFilterAttribute_FLEET_TYPE :: DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: pattern DeviceFilterAttribute_FORM_FACTOR :: DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: pattern DeviceFilterAttribute_INSTANCE_ARN :: DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: pattern DeviceFilterAttribute_INSTANCE_LABELS :: DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: pattern DeviceFilterAttribute_MANUFACTURER :: DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: pattern DeviceFilterAttribute_MODEL :: DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: pattern DeviceFilterAttribute_OS_VERSION :: DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: pattern DeviceFilterAttribute_PLATFORM :: DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: pattern DeviceFilterAttribute_REMOTE_ACCESS_ENABLED :: DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFilterAttribute: pattern DeviceFilterAttribute_REMOTE_DEBUG_ENABLED :: DeviceFilterAttribute
+ Amazonka.DeviceFarm.Types.DeviceFormFactor: DeviceFormFactor' :: Text -> DeviceFormFactor
+ Amazonka.DeviceFarm.Types.DeviceFormFactor: [fromDeviceFormFactor] :: DeviceFormFactor -> Text
+ Amazonka.DeviceFarm.Types.DeviceFormFactor: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.DeviceFormFactor.DeviceFormFactor
+ Amazonka.DeviceFarm.Types.DeviceFormFactor: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.DeviceFormFactor.DeviceFormFactor
+ Amazonka.DeviceFarm.Types.DeviceFormFactor: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.DeviceFormFactor.DeviceFormFactor
+ Amazonka.DeviceFarm.Types.DeviceFormFactor: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.DeviceFormFactor.DeviceFormFactor
+ Amazonka.DeviceFarm.Types.DeviceFormFactor: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.DeviceFormFactor.DeviceFormFactor
+ Amazonka.DeviceFarm.Types.DeviceFormFactor: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.DeviceFormFactor.DeviceFormFactor
+ Amazonka.DeviceFarm.Types.DeviceFormFactor: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.DeviceFormFactor.DeviceFormFactor
+ Amazonka.DeviceFarm.Types.DeviceFormFactor: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.DeviceFormFactor.DeviceFormFactor
+ Amazonka.DeviceFarm.Types.DeviceFormFactor: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.DeviceFormFactor.DeviceFormFactor
+ Amazonka.DeviceFarm.Types.DeviceFormFactor: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.DeviceFormFactor.DeviceFormFactor
+ Amazonka.DeviceFarm.Types.DeviceFormFactor: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.DeviceFormFactor.DeviceFormFactor
+ Amazonka.DeviceFarm.Types.DeviceFormFactor: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.DeviceFormFactor.DeviceFormFactor
+ Amazonka.DeviceFarm.Types.DeviceFormFactor: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.DeviceFormFactor.DeviceFormFactor
+ Amazonka.DeviceFarm.Types.DeviceFormFactor: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.DeviceFormFactor.DeviceFormFactor
+ Amazonka.DeviceFarm.Types.DeviceFormFactor: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.DeviceFormFactor.DeviceFormFactor
+ Amazonka.DeviceFarm.Types.DeviceFormFactor: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.DeviceFormFactor.DeviceFormFactor
+ Amazonka.DeviceFarm.Types.DeviceFormFactor: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.DeviceFormFactor.DeviceFormFactor
+ Amazonka.DeviceFarm.Types.DeviceFormFactor: instance GHC.Read.Read Amazonka.DeviceFarm.Types.DeviceFormFactor.DeviceFormFactor
+ Amazonka.DeviceFarm.Types.DeviceFormFactor: instance GHC.Show.Show Amazonka.DeviceFarm.Types.DeviceFormFactor.DeviceFormFactor
+ Amazonka.DeviceFarm.Types.DeviceFormFactor: newtype DeviceFormFactor
+ Amazonka.DeviceFarm.Types.DeviceFormFactor: pattern DeviceFormFactor_PHONE :: DeviceFormFactor
+ Amazonka.DeviceFarm.Types.DeviceFormFactor: pattern DeviceFormFactor_TABLET :: DeviceFormFactor
+ Amazonka.DeviceFarm.Types.DeviceInstance: DeviceInstance' :: Maybe Text -> Maybe Text -> Maybe InstanceProfile -> Maybe [Text] -> Maybe InstanceStatus -> Maybe Text -> DeviceInstance
+ Amazonka.DeviceFarm.Types.DeviceInstance: [$sel:arn:DeviceInstance'] :: DeviceInstance -> Maybe Text
+ Amazonka.DeviceFarm.Types.DeviceInstance: [$sel:deviceArn:DeviceInstance'] :: DeviceInstance -> Maybe Text
+ Amazonka.DeviceFarm.Types.DeviceInstance: [$sel:instanceProfile:DeviceInstance'] :: DeviceInstance -> Maybe InstanceProfile
+ Amazonka.DeviceFarm.Types.DeviceInstance: [$sel:labels:DeviceInstance'] :: DeviceInstance -> Maybe [Text]
+ Amazonka.DeviceFarm.Types.DeviceInstance: [$sel:status:DeviceInstance'] :: DeviceInstance -> Maybe InstanceStatus
+ Amazonka.DeviceFarm.Types.DeviceInstance: [$sel:udid:DeviceInstance'] :: DeviceInstance -> Maybe Text
+ Amazonka.DeviceFarm.Types.DeviceInstance: data DeviceInstance
+ Amazonka.DeviceFarm.Types.DeviceInstance: deviceInstance_arn :: Lens' DeviceInstance (Maybe Text)
+ Amazonka.DeviceFarm.Types.DeviceInstance: deviceInstance_deviceArn :: Lens' DeviceInstance (Maybe Text)
+ Amazonka.DeviceFarm.Types.DeviceInstance: deviceInstance_instanceProfile :: Lens' DeviceInstance (Maybe InstanceProfile)
+ Amazonka.DeviceFarm.Types.DeviceInstance: deviceInstance_labels :: Lens' DeviceInstance (Maybe [Text])
+ Amazonka.DeviceFarm.Types.DeviceInstance: deviceInstance_status :: Lens' DeviceInstance (Maybe InstanceStatus)
+ Amazonka.DeviceFarm.Types.DeviceInstance: deviceInstance_udid :: Lens' DeviceInstance (Maybe Text)
+ Amazonka.DeviceFarm.Types.DeviceInstance: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.DeviceInstance.DeviceInstance
+ Amazonka.DeviceFarm.Types.DeviceInstance: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.DeviceInstance.DeviceInstance
+ Amazonka.DeviceFarm.Types.DeviceInstance: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.DeviceInstance.DeviceInstance
+ Amazonka.DeviceFarm.Types.DeviceInstance: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.DeviceInstance.DeviceInstance
+ Amazonka.DeviceFarm.Types.DeviceInstance: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.DeviceInstance.DeviceInstance
+ Amazonka.DeviceFarm.Types.DeviceInstance: instance GHC.Read.Read Amazonka.DeviceFarm.Types.DeviceInstance.DeviceInstance
+ Amazonka.DeviceFarm.Types.DeviceInstance: instance GHC.Show.Show Amazonka.DeviceFarm.Types.DeviceInstance.DeviceInstance
+ Amazonka.DeviceFarm.Types.DeviceInstance: newDeviceInstance :: DeviceInstance
+ Amazonka.DeviceFarm.Types.DeviceMinutes: DeviceMinutes' :: Maybe Double -> Maybe Double -> Maybe Double -> DeviceMinutes
+ Amazonka.DeviceFarm.Types.DeviceMinutes: [$sel:metered:DeviceMinutes'] :: DeviceMinutes -> Maybe Double
+ Amazonka.DeviceFarm.Types.DeviceMinutes: [$sel:total:DeviceMinutes'] :: DeviceMinutes -> Maybe Double
+ Amazonka.DeviceFarm.Types.DeviceMinutes: [$sel:unmetered:DeviceMinutes'] :: DeviceMinutes -> Maybe Double
+ Amazonka.DeviceFarm.Types.DeviceMinutes: data DeviceMinutes
+ Amazonka.DeviceFarm.Types.DeviceMinutes: deviceMinutes_metered :: Lens' DeviceMinutes (Maybe Double)
+ Amazonka.DeviceFarm.Types.DeviceMinutes: deviceMinutes_total :: Lens' DeviceMinutes (Maybe Double)
+ Amazonka.DeviceFarm.Types.DeviceMinutes: deviceMinutes_unmetered :: Lens' DeviceMinutes (Maybe Double)
+ Amazonka.DeviceFarm.Types.DeviceMinutes: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.DeviceMinutes.DeviceMinutes
+ Amazonka.DeviceFarm.Types.DeviceMinutes: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.DeviceMinutes.DeviceMinutes
+ Amazonka.DeviceFarm.Types.DeviceMinutes: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.DeviceMinutes.DeviceMinutes
+ Amazonka.DeviceFarm.Types.DeviceMinutes: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.DeviceMinutes.DeviceMinutes
+ Amazonka.DeviceFarm.Types.DeviceMinutes: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.DeviceMinutes.DeviceMinutes
+ Amazonka.DeviceFarm.Types.DeviceMinutes: instance GHC.Read.Read Amazonka.DeviceFarm.Types.DeviceMinutes.DeviceMinutes
+ Amazonka.DeviceFarm.Types.DeviceMinutes: instance GHC.Show.Show Amazonka.DeviceFarm.Types.DeviceMinutes.DeviceMinutes
+ Amazonka.DeviceFarm.Types.DeviceMinutes: newDeviceMinutes :: DeviceMinutes
+ Amazonka.DeviceFarm.Types.DevicePlatform: DevicePlatform' :: Text -> DevicePlatform
+ Amazonka.DeviceFarm.Types.DevicePlatform: [fromDevicePlatform] :: DevicePlatform -> Text
+ Amazonka.DeviceFarm.Types.DevicePlatform: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.DevicePlatform.DevicePlatform
+ Amazonka.DeviceFarm.Types.DevicePlatform: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.DevicePlatform.DevicePlatform
+ Amazonka.DeviceFarm.Types.DevicePlatform: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.DevicePlatform.DevicePlatform
+ Amazonka.DeviceFarm.Types.DevicePlatform: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.DevicePlatform.DevicePlatform
+ Amazonka.DeviceFarm.Types.DevicePlatform: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.DevicePlatform.DevicePlatform
+ Amazonka.DeviceFarm.Types.DevicePlatform: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.DevicePlatform.DevicePlatform
+ Amazonka.DeviceFarm.Types.DevicePlatform: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.DevicePlatform.DevicePlatform
+ Amazonka.DeviceFarm.Types.DevicePlatform: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.DevicePlatform.DevicePlatform
+ Amazonka.DeviceFarm.Types.DevicePlatform: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.DevicePlatform.DevicePlatform
+ Amazonka.DeviceFarm.Types.DevicePlatform: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.DevicePlatform.DevicePlatform
+ Amazonka.DeviceFarm.Types.DevicePlatform: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.DevicePlatform.DevicePlatform
+ Amazonka.DeviceFarm.Types.DevicePlatform: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.DevicePlatform.DevicePlatform
+ Amazonka.DeviceFarm.Types.DevicePlatform: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.DevicePlatform.DevicePlatform
+ Amazonka.DeviceFarm.Types.DevicePlatform: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.DevicePlatform.DevicePlatform
+ Amazonka.DeviceFarm.Types.DevicePlatform: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.DevicePlatform.DevicePlatform
+ Amazonka.DeviceFarm.Types.DevicePlatform: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.DevicePlatform.DevicePlatform
+ Amazonka.DeviceFarm.Types.DevicePlatform: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.DevicePlatform.DevicePlatform
+ Amazonka.DeviceFarm.Types.DevicePlatform: instance GHC.Read.Read Amazonka.DeviceFarm.Types.DevicePlatform.DevicePlatform
+ Amazonka.DeviceFarm.Types.DevicePlatform: instance GHC.Show.Show Amazonka.DeviceFarm.Types.DevicePlatform.DevicePlatform
+ Amazonka.DeviceFarm.Types.DevicePlatform: newtype DevicePlatform
+ Amazonka.DeviceFarm.Types.DevicePlatform: pattern DevicePlatform_ANDROID :: DevicePlatform
+ Amazonka.DeviceFarm.Types.DevicePlatform: pattern DevicePlatform_IOS :: DevicePlatform
+ Amazonka.DeviceFarm.Types.DevicePool: DevicePool' :: Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe [Rule] -> Maybe DevicePoolType -> DevicePool
+ Amazonka.DeviceFarm.Types.DevicePool: [$sel:arn:DevicePool'] :: DevicePool -> Maybe Text
+ Amazonka.DeviceFarm.Types.DevicePool: [$sel:description:DevicePool'] :: DevicePool -> Maybe Text
+ Amazonka.DeviceFarm.Types.DevicePool: [$sel:maxDevices:DevicePool'] :: DevicePool -> Maybe Int
+ Amazonka.DeviceFarm.Types.DevicePool: [$sel:name:DevicePool'] :: DevicePool -> Maybe Text
+ Amazonka.DeviceFarm.Types.DevicePool: [$sel:rules:DevicePool'] :: DevicePool -> Maybe [Rule]
+ Amazonka.DeviceFarm.Types.DevicePool: [$sel:type':DevicePool'] :: DevicePool -> Maybe DevicePoolType
+ Amazonka.DeviceFarm.Types.DevicePool: data DevicePool
+ Amazonka.DeviceFarm.Types.DevicePool: devicePool_arn :: Lens' DevicePool (Maybe Text)
+ Amazonka.DeviceFarm.Types.DevicePool: devicePool_description :: Lens' DevicePool (Maybe Text)
+ Amazonka.DeviceFarm.Types.DevicePool: devicePool_maxDevices :: Lens' DevicePool (Maybe Int)
+ Amazonka.DeviceFarm.Types.DevicePool: devicePool_name :: Lens' DevicePool (Maybe Text)
+ Amazonka.DeviceFarm.Types.DevicePool: devicePool_rules :: Lens' DevicePool (Maybe [Rule])
+ Amazonka.DeviceFarm.Types.DevicePool: devicePool_type :: Lens' DevicePool (Maybe DevicePoolType)
+ Amazonka.DeviceFarm.Types.DevicePool: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.DevicePool.DevicePool
+ Amazonka.DeviceFarm.Types.DevicePool: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.DevicePool.DevicePool
+ Amazonka.DeviceFarm.Types.DevicePool: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.DevicePool.DevicePool
+ Amazonka.DeviceFarm.Types.DevicePool: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.DevicePool.DevicePool
+ Amazonka.DeviceFarm.Types.DevicePool: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.DevicePool.DevicePool
+ Amazonka.DeviceFarm.Types.DevicePool: instance GHC.Read.Read Amazonka.DeviceFarm.Types.DevicePool.DevicePool
+ Amazonka.DeviceFarm.Types.DevicePool: instance GHC.Show.Show Amazonka.DeviceFarm.Types.DevicePool.DevicePool
+ Amazonka.DeviceFarm.Types.DevicePool: newDevicePool :: DevicePool
+ Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult: DevicePoolCompatibilityResult' :: Maybe Bool -> Maybe Device -> Maybe [IncompatibilityMessage] -> DevicePoolCompatibilityResult
+ Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult: [$sel:compatible:DevicePoolCompatibilityResult'] :: DevicePoolCompatibilityResult -> Maybe Bool
+ Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult: [$sel:device:DevicePoolCompatibilityResult'] :: DevicePoolCompatibilityResult -> Maybe Device
+ Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult: [$sel:incompatibilityMessages:DevicePoolCompatibilityResult'] :: DevicePoolCompatibilityResult -> Maybe [IncompatibilityMessage]
+ Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult: data DevicePoolCompatibilityResult
+ Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult: devicePoolCompatibilityResult_compatible :: Lens' DevicePoolCompatibilityResult (Maybe Bool)
+ Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult: devicePoolCompatibilityResult_device :: Lens' DevicePoolCompatibilityResult (Maybe Device)
+ Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult: devicePoolCompatibilityResult_incompatibilityMessages :: Lens' DevicePoolCompatibilityResult (Maybe [IncompatibilityMessage])
+ Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult.DevicePoolCompatibilityResult
+ Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult.DevicePoolCompatibilityResult
+ Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult.DevicePoolCompatibilityResult
+ Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult.DevicePoolCompatibilityResult
+ Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult.DevicePoolCompatibilityResult
+ Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult: instance GHC.Read.Read Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult.DevicePoolCompatibilityResult
+ Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult: instance GHC.Show.Show Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult.DevicePoolCompatibilityResult
+ Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult: newDevicePoolCompatibilityResult :: DevicePoolCompatibilityResult
+ Amazonka.DeviceFarm.Types.DevicePoolType: DevicePoolType' :: Text -> DevicePoolType
+ Amazonka.DeviceFarm.Types.DevicePoolType: [fromDevicePoolType] :: DevicePoolType -> Text
+ Amazonka.DeviceFarm.Types.DevicePoolType: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.DevicePoolType.DevicePoolType
+ Amazonka.DeviceFarm.Types.DevicePoolType: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.DevicePoolType.DevicePoolType
+ Amazonka.DeviceFarm.Types.DevicePoolType: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.DevicePoolType.DevicePoolType
+ Amazonka.DeviceFarm.Types.DevicePoolType: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.DevicePoolType.DevicePoolType
+ Amazonka.DeviceFarm.Types.DevicePoolType: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.DevicePoolType.DevicePoolType
+ Amazonka.DeviceFarm.Types.DevicePoolType: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.DevicePoolType.DevicePoolType
+ Amazonka.DeviceFarm.Types.DevicePoolType: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.DevicePoolType.DevicePoolType
+ Amazonka.DeviceFarm.Types.DevicePoolType: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.DevicePoolType.DevicePoolType
+ Amazonka.DeviceFarm.Types.DevicePoolType: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.DevicePoolType.DevicePoolType
+ Amazonka.DeviceFarm.Types.DevicePoolType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.DevicePoolType.DevicePoolType
+ Amazonka.DeviceFarm.Types.DevicePoolType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.DevicePoolType.DevicePoolType
+ Amazonka.DeviceFarm.Types.DevicePoolType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.DevicePoolType.DevicePoolType
+ Amazonka.DeviceFarm.Types.DevicePoolType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.DevicePoolType.DevicePoolType
+ Amazonka.DeviceFarm.Types.DevicePoolType: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.DevicePoolType.DevicePoolType
+ Amazonka.DeviceFarm.Types.DevicePoolType: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.DevicePoolType.DevicePoolType
+ Amazonka.DeviceFarm.Types.DevicePoolType: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.DevicePoolType.DevicePoolType
+ Amazonka.DeviceFarm.Types.DevicePoolType: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.DevicePoolType.DevicePoolType
+ Amazonka.DeviceFarm.Types.DevicePoolType: instance GHC.Read.Read Amazonka.DeviceFarm.Types.DevicePoolType.DevicePoolType
+ Amazonka.DeviceFarm.Types.DevicePoolType: instance GHC.Show.Show Amazonka.DeviceFarm.Types.DevicePoolType.DevicePoolType
+ Amazonka.DeviceFarm.Types.DevicePoolType: newtype DevicePoolType
+ Amazonka.DeviceFarm.Types.DevicePoolType: pattern DevicePoolType_CURATED :: DevicePoolType
+ Amazonka.DeviceFarm.Types.DevicePoolType: pattern DevicePoolType_PRIVATE :: DevicePoolType
+ Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration: DeviceSelectionConfiguration' :: [DeviceFilter] -> Int -> DeviceSelectionConfiguration
+ Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration: [$sel:filters:DeviceSelectionConfiguration'] :: DeviceSelectionConfiguration -> [DeviceFilter]
+ Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration: [$sel:maxDevices:DeviceSelectionConfiguration'] :: DeviceSelectionConfiguration -> Int
+ Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration: data DeviceSelectionConfiguration
+ Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration: deviceSelectionConfiguration_filters :: Lens' DeviceSelectionConfiguration [DeviceFilter]
+ Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration: deviceSelectionConfiguration_maxDevices :: Lens' DeviceSelectionConfiguration Int
+ Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration.DeviceSelectionConfiguration
+ Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration.DeviceSelectionConfiguration
+ Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration.DeviceSelectionConfiguration
+ Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration.DeviceSelectionConfiguration
+ Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration.DeviceSelectionConfiguration
+ Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration: instance GHC.Read.Read Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration.DeviceSelectionConfiguration
+ Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration: instance GHC.Show.Show Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration.DeviceSelectionConfiguration
+ Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration: newDeviceSelectionConfiguration :: Int -> DeviceSelectionConfiguration
+ Amazonka.DeviceFarm.Types.DeviceSelectionResult: DeviceSelectionResult' :: Maybe [DeviceFilter] -> Maybe Int -> Maybe Int -> DeviceSelectionResult
+ Amazonka.DeviceFarm.Types.DeviceSelectionResult: [$sel:filters:DeviceSelectionResult'] :: DeviceSelectionResult -> Maybe [DeviceFilter]
+ Amazonka.DeviceFarm.Types.DeviceSelectionResult: [$sel:matchedDevicesCount:DeviceSelectionResult'] :: DeviceSelectionResult -> Maybe Int
+ Amazonka.DeviceFarm.Types.DeviceSelectionResult: [$sel:maxDevices:DeviceSelectionResult'] :: DeviceSelectionResult -> Maybe Int
+ Amazonka.DeviceFarm.Types.DeviceSelectionResult: data DeviceSelectionResult
+ Amazonka.DeviceFarm.Types.DeviceSelectionResult: deviceSelectionResult_filters :: Lens' DeviceSelectionResult (Maybe [DeviceFilter])
+ Amazonka.DeviceFarm.Types.DeviceSelectionResult: deviceSelectionResult_matchedDevicesCount :: Lens' DeviceSelectionResult (Maybe Int)
+ Amazonka.DeviceFarm.Types.DeviceSelectionResult: deviceSelectionResult_maxDevices :: Lens' DeviceSelectionResult (Maybe Int)
+ Amazonka.DeviceFarm.Types.DeviceSelectionResult: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.DeviceSelectionResult.DeviceSelectionResult
+ Amazonka.DeviceFarm.Types.DeviceSelectionResult: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.DeviceSelectionResult.DeviceSelectionResult
+ Amazonka.DeviceFarm.Types.DeviceSelectionResult: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.DeviceSelectionResult.DeviceSelectionResult
+ Amazonka.DeviceFarm.Types.DeviceSelectionResult: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.DeviceSelectionResult.DeviceSelectionResult
+ Amazonka.DeviceFarm.Types.DeviceSelectionResult: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.DeviceSelectionResult.DeviceSelectionResult
+ Amazonka.DeviceFarm.Types.DeviceSelectionResult: instance GHC.Read.Read Amazonka.DeviceFarm.Types.DeviceSelectionResult.DeviceSelectionResult
+ Amazonka.DeviceFarm.Types.DeviceSelectionResult: instance GHC.Show.Show Amazonka.DeviceFarm.Types.DeviceSelectionResult.DeviceSelectionResult
+ Amazonka.DeviceFarm.Types.DeviceSelectionResult: newDeviceSelectionResult :: DeviceSelectionResult
+ Amazonka.DeviceFarm.Types.ExecutionConfiguration: ExecutionConfiguration' :: Maybe Bool -> Maybe Bool -> Maybe Int -> Maybe Bool -> Maybe Bool -> ExecutionConfiguration
+ Amazonka.DeviceFarm.Types.ExecutionConfiguration: [$sel:accountsCleanup:ExecutionConfiguration'] :: ExecutionConfiguration -> Maybe Bool
+ Amazonka.DeviceFarm.Types.ExecutionConfiguration: [$sel:appPackagesCleanup:ExecutionConfiguration'] :: ExecutionConfiguration -> Maybe Bool
+ Amazonka.DeviceFarm.Types.ExecutionConfiguration: [$sel:jobTimeoutMinutes:ExecutionConfiguration'] :: ExecutionConfiguration -> Maybe Int
+ Amazonka.DeviceFarm.Types.ExecutionConfiguration: [$sel:skipAppResign:ExecutionConfiguration'] :: ExecutionConfiguration -> Maybe Bool
+ Amazonka.DeviceFarm.Types.ExecutionConfiguration: [$sel:videoCapture:ExecutionConfiguration'] :: ExecutionConfiguration -> Maybe Bool
+ Amazonka.DeviceFarm.Types.ExecutionConfiguration: data ExecutionConfiguration
+ Amazonka.DeviceFarm.Types.ExecutionConfiguration: executionConfiguration_accountsCleanup :: Lens' ExecutionConfiguration (Maybe Bool)
+ Amazonka.DeviceFarm.Types.ExecutionConfiguration: executionConfiguration_appPackagesCleanup :: Lens' ExecutionConfiguration (Maybe Bool)
+ Amazonka.DeviceFarm.Types.ExecutionConfiguration: executionConfiguration_jobTimeoutMinutes :: Lens' ExecutionConfiguration (Maybe Int)
+ Amazonka.DeviceFarm.Types.ExecutionConfiguration: executionConfiguration_skipAppResign :: Lens' ExecutionConfiguration (Maybe Bool)
+ Amazonka.DeviceFarm.Types.ExecutionConfiguration: executionConfiguration_videoCapture :: Lens' ExecutionConfiguration (Maybe Bool)
+ Amazonka.DeviceFarm.Types.ExecutionConfiguration: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.ExecutionConfiguration.ExecutionConfiguration
+ Amazonka.DeviceFarm.Types.ExecutionConfiguration: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.ExecutionConfiguration.ExecutionConfiguration
+ Amazonka.DeviceFarm.Types.ExecutionConfiguration: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.ExecutionConfiguration.ExecutionConfiguration
+ Amazonka.DeviceFarm.Types.ExecutionConfiguration: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.ExecutionConfiguration.ExecutionConfiguration
+ Amazonka.DeviceFarm.Types.ExecutionConfiguration: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.ExecutionConfiguration.ExecutionConfiguration
+ Amazonka.DeviceFarm.Types.ExecutionConfiguration: instance GHC.Read.Read Amazonka.DeviceFarm.Types.ExecutionConfiguration.ExecutionConfiguration
+ Amazonka.DeviceFarm.Types.ExecutionConfiguration: instance GHC.Show.Show Amazonka.DeviceFarm.Types.ExecutionConfiguration.ExecutionConfiguration
+ Amazonka.DeviceFarm.Types.ExecutionConfiguration: newExecutionConfiguration :: ExecutionConfiguration
+ Amazonka.DeviceFarm.Types.ExecutionResult: ExecutionResult' :: Text -> ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: [fromExecutionResult] :: ExecutionResult -> Text
+ Amazonka.DeviceFarm.Types.ExecutionResult: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.ExecutionResult.ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.ExecutionResult.ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.ExecutionResult.ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.ExecutionResult.ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.ExecutionResult.ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.ExecutionResult.ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.ExecutionResult.ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.ExecutionResult.ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.ExecutionResult.ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.ExecutionResult.ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.ExecutionResult.ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.ExecutionResult.ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.ExecutionResult.ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.ExecutionResult.ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.ExecutionResult.ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.ExecutionResult.ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.ExecutionResult.ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: instance GHC.Read.Read Amazonka.DeviceFarm.Types.ExecutionResult.ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: instance GHC.Show.Show Amazonka.DeviceFarm.Types.ExecutionResult.ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: newtype ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: pattern ExecutionResult_ERRORED :: ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: pattern ExecutionResult_FAILED :: ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: pattern ExecutionResult_PASSED :: ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: pattern ExecutionResult_PENDING :: ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: pattern ExecutionResult_SKIPPED :: ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: pattern ExecutionResult_STOPPED :: ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResult: pattern ExecutionResult_WARNED :: ExecutionResult
+ Amazonka.DeviceFarm.Types.ExecutionResultCode: ExecutionResultCode' :: Text -> ExecutionResultCode
+ Amazonka.DeviceFarm.Types.ExecutionResultCode: [fromExecutionResultCode] :: ExecutionResultCode -> Text
+ Amazonka.DeviceFarm.Types.ExecutionResultCode: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.ExecutionResultCode.ExecutionResultCode
+ Amazonka.DeviceFarm.Types.ExecutionResultCode: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.ExecutionResultCode.ExecutionResultCode
+ Amazonka.DeviceFarm.Types.ExecutionResultCode: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.ExecutionResultCode.ExecutionResultCode
+ Amazonka.DeviceFarm.Types.ExecutionResultCode: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.ExecutionResultCode.ExecutionResultCode
+ Amazonka.DeviceFarm.Types.ExecutionResultCode: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.ExecutionResultCode.ExecutionResultCode
+ Amazonka.DeviceFarm.Types.ExecutionResultCode: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.ExecutionResultCode.ExecutionResultCode
+ Amazonka.DeviceFarm.Types.ExecutionResultCode: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.ExecutionResultCode.ExecutionResultCode
+ Amazonka.DeviceFarm.Types.ExecutionResultCode: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.ExecutionResultCode.ExecutionResultCode
+ Amazonka.DeviceFarm.Types.ExecutionResultCode: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.ExecutionResultCode.ExecutionResultCode
+ Amazonka.DeviceFarm.Types.ExecutionResultCode: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.ExecutionResultCode.ExecutionResultCode
+ Amazonka.DeviceFarm.Types.ExecutionResultCode: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.ExecutionResultCode.ExecutionResultCode
+ Amazonka.DeviceFarm.Types.ExecutionResultCode: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.ExecutionResultCode.ExecutionResultCode
+ Amazonka.DeviceFarm.Types.ExecutionResultCode: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.ExecutionResultCode.ExecutionResultCode
+ Amazonka.DeviceFarm.Types.ExecutionResultCode: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.ExecutionResultCode.ExecutionResultCode
+ Amazonka.DeviceFarm.Types.ExecutionResultCode: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.ExecutionResultCode.ExecutionResultCode
+ Amazonka.DeviceFarm.Types.ExecutionResultCode: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.ExecutionResultCode.ExecutionResultCode
+ Amazonka.DeviceFarm.Types.ExecutionResultCode: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.ExecutionResultCode.ExecutionResultCode
+ Amazonka.DeviceFarm.Types.ExecutionResultCode: instance GHC.Read.Read Amazonka.DeviceFarm.Types.ExecutionResultCode.ExecutionResultCode
+ Amazonka.DeviceFarm.Types.ExecutionResultCode: instance GHC.Show.Show Amazonka.DeviceFarm.Types.ExecutionResultCode.ExecutionResultCode
+ Amazonka.DeviceFarm.Types.ExecutionResultCode: newtype ExecutionResultCode
+ Amazonka.DeviceFarm.Types.ExecutionResultCode: pattern ExecutionResultCode_PARSING_FAILED :: ExecutionResultCode
+ Amazonka.DeviceFarm.Types.ExecutionResultCode: pattern ExecutionResultCode_VPC_ENDPOINT_SETUP_FAILED :: ExecutionResultCode
+ Amazonka.DeviceFarm.Types.ExecutionStatus: ExecutionStatus' :: Text -> ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: [fromExecutionStatus] :: ExecutionStatus -> Text
+ Amazonka.DeviceFarm.Types.ExecutionStatus: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.ExecutionStatus.ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.ExecutionStatus.ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.ExecutionStatus.ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.ExecutionStatus.ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.ExecutionStatus.ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.ExecutionStatus.ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.ExecutionStatus.ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.ExecutionStatus.ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.ExecutionStatus.ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.ExecutionStatus.ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.ExecutionStatus.ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.ExecutionStatus.ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.ExecutionStatus.ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.ExecutionStatus.ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.ExecutionStatus.ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.ExecutionStatus.ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.ExecutionStatus.ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: instance GHC.Read.Read Amazonka.DeviceFarm.Types.ExecutionStatus.ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: instance GHC.Show.Show Amazonka.DeviceFarm.Types.ExecutionStatus.ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: newtype ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: pattern ExecutionStatus_COMPLETED :: ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: pattern ExecutionStatus_PENDING :: ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: pattern ExecutionStatus_PENDING_CONCURRENCY :: ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: pattern ExecutionStatus_PENDING_DEVICE :: ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: pattern ExecutionStatus_PREPARING :: ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: pattern ExecutionStatus_PROCESSING :: ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: pattern ExecutionStatus_RUNNING :: ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: pattern ExecutionStatus_SCHEDULING :: ExecutionStatus
+ Amazonka.DeviceFarm.Types.ExecutionStatus: pattern ExecutionStatus_STOPPING :: ExecutionStatus
+ Amazonka.DeviceFarm.Types.IncompatibilityMessage: IncompatibilityMessage' :: Maybe Text -> Maybe DeviceAttribute -> IncompatibilityMessage
+ Amazonka.DeviceFarm.Types.IncompatibilityMessage: [$sel:message:IncompatibilityMessage'] :: IncompatibilityMessage -> Maybe Text
+ Amazonka.DeviceFarm.Types.IncompatibilityMessage: [$sel:type':IncompatibilityMessage'] :: IncompatibilityMessage -> Maybe DeviceAttribute
+ Amazonka.DeviceFarm.Types.IncompatibilityMessage: data IncompatibilityMessage
+ Amazonka.DeviceFarm.Types.IncompatibilityMessage: incompatibilityMessage_message :: Lens' IncompatibilityMessage (Maybe Text)
+ Amazonka.DeviceFarm.Types.IncompatibilityMessage: incompatibilityMessage_type :: Lens' IncompatibilityMessage (Maybe DeviceAttribute)
+ Amazonka.DeviceFarm.Types.IncompatibilityMessage: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.IncompatibilityMessage.IncompatibilityMessage
+ Amazonka.DeviceFarm.Types.IncompatibilityMessage: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.IncompatibilityMessage.IncompatibilityMessage
+ Amazonka.DeviceFarm.Types.IncompatibilityMessage: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.IncompatibilityMessage.IncompatibilityMessage
+ Amazonka.DeviceFarm.Types.IncompatibilityMessage: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.IncompatibilityMessage.IncompatibilityMessage
+ Amazonka.DeviceFarm.Types.IncompatibilityMessage: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.IncompatibilityMessage.IncompatibilityMessage
+ Amazonka.DeviceFarm.Types.IncompatibilityMessage: instance GHC.Read.Read Amazonka.DeviceFarm.Types.IncompatibilityMessage.IncompatibilityMessage
+ Amazonka.DeviceFarm.Types.IncompatibilityMessage: instance GHC.Show.Show Amazonka.DeviceFarm.Types.IncompatibilityMessage.IncompatibilityMessage
+ Amazonka.DeviceFarm.Types.IncompatibilityMessage: newIncompatibilityMessage :: IncompatibilityMessage
+ Amazonka.DeviceFarm.Types.InstanceProfile: InstanceProfile' :: Maybe Text -> Maybe Text -> Maybe [Text] -> Maybe Text -> Maybe Bool -> Maybe Bool -> InstanceProfile
+ Amazonka.DeviceFarm.Types.InstanceProfile: [$sel:arn:InstanceProfile'] :: InstanceProfile -> Maybe Text
+ Amazonka.DeviceFarm.Types.InstanceProfile: [$sel:description:InstanceProfile'] :: InstanceProfile -> Maybe Text
+ Amazonka.DeviceFarm.Types.InstanceProfile: [$sel:excludeAppPackagesFromCleanup:InstanceProfile'] :: InstanceProfile -> Maybe [Text]
+ Amazonka.DeviceFarm.Types.InstanceProfile: [$sel:name:InstanceProfile'] :: InstanceProfile -> Maybe Text
+ Amazonka.DeviceFarm.Types.InstanceProfile: [$sel:packageCleanup:InstanceProfile'] :: InstanceProfile -> Maybe Bool
+ Amazonka.DeviceFarm.Types.InstanceProfile: [$sel:rebootAfterUse:InstanceProfile'] :: InstanceProfile -> Maybe Bool
+ Amazonka.DeviceFarm.Types.InstanceProfile: data InstanceProfile
+ Amazonka.DeviceFarm.Types.InstanceProfile: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.InstanceProfile.InstanceProfile
+ Amazonka.DeviceFarm.Types.InstanceProfile: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.InstanceProfile.InstanceProfile
+ Amazonka.DeviceFarm.Types.InstanceProfile: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.InstanceProfile.InstanceProfile
+ Amazonka.DeviceFarm.Types.InstanceProfile: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.InstanceProfile.InstanceProfile
+ Amazonka.DeviceFarm.Types.InstanceProfile: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.InstanceProfile.InstanceProfile
+ Amazonka.DeviceFarm.Types.InstanceProfile: instance GHC.Read.Read Amazonka.DeviceFarm.Types.InstanceProfile.InstanceProfile
+ Amazonka.DeviceFarm.Types.InstanceProfile: instance GHC.Show.Show Amazonka.DeviceFarm.Types.InstanceProfile.InstanceProfile
+ Amazonka.DeviceFarm.Types.InstanceProfile: instanceProfile_arn :: Lens' InstanceProfile (Maybe Text)
+ Amazonka.DeviceFarm.Types.InstanceProfile: instanceProfile_description :: Lens' InstanceProfile (Maybe Text)
+ Amazonka.DeviceFarm.Types.InstanceProfile: instanceProfile_excludeAppPackagesFromCleanup :: Lens' InstanceProfile (Maybe [Text])
+ Amazonka.DeviceFarm.Types.InstanceProfile: instanceProfile_name :: Lens' InstanceProfile (Maybe Text)
+ Amazonka.DeviceFarm.Types.InstanceProfile: instanceProfile_packageCleanup :: Lens' InstanceProfile (Maybe Bool)
+ Amazonka.DeviceFarm.Types.InstanceProfile: instanceProfile_rebootAfterUse :: Lens' InstanceProfile (Maybe Bool)
+ Amazonka.DeviceFarm.Types.InstanceProfile: newInstanceProfile :: InstanceProfile
+ Amazonka.DeviceFarm.Types.InstanceStatus: InstanceStatus' :: Text -> InstanceStatus
+ Amazonka.DeviceFarm.Types.InstanceStatus: [fromInstanceStatus] :: InstanceStatus -> Text
+ Amazonka.DeviceFarm.Types.InstanceStatus: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.InstanceStatus.InstanceStatus
+ Amazonka.DeviceFarm.Types.InstanceStatus: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.InstanceStatus.InstanceStatus
+ Amazonka.DeviceFarm.Types.InstanceStatus: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.InstanceStatus.InstanceStatus
+ Amazonka.DeviceFarm.Types.InstanceStatus: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.InstanceStatus.InstanceStatus
+ Amazonka.DeviceFarm.Types.InstanceStatus: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.InstanceStatus.InstanceStatus
+ Amazonka.DeviceFarm.Types.InstanceStatus: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.InstanceStatus.InstanceStatus
+ Amazonka.DeviceFarm.Types.InstanceStatus: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.InstanceStatus.InstanceStatus
+ Amazonka.DeviceFarm.Types.InstanceStatus: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.InstanceStatus.InstanceStatus
+ Amazonka.DeviceFarm.Types.InstanceStatus: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.InstanceStatus.InstanceStatus
+ Amazonka.DeviceFarm.Types.InstanceStatus: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.InstanceStatus.InstanceStatus
+ Amazonka.DeviceFarm.Types.InstanceStatus: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.InstanceStatus.InstanceStatus
+ Amazonka.DeviceFarm.Types.InstanceStatus: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.InstanceStatus.InstanceStatus
+ Amazonka.DeviceFarm.Types.InstanceStatus: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.InstanceStatus.InstanceStatus
+ Amazonka.DeviceFarm.Types.InstanceStatus: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.InstanceStatus.InstanceStatus
+ Amazonka.DeviceFarm.Types.InstanceStatus: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.InstanceStatus.InstanceStatus
+ Amazonka.DeviceFarm.Types.InstanceStatus: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.InstanceStatus.InstanceStatus
+ Amazonka.DeviceFarm.Types.InstanceStatus: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.InstanceStatus.InstanceStatus
+ Amazonka.DeviceFarm.Types.InstanceStatus: instance GHC.Read.Read Amazonka.DeviceFarm.Types.InstanceStatus.InstanceStatus
+ Amazonka.DeviceFarm.Types.InstanceStatus: instance GHC.Show.Show Amazonka.DeviceFarm.Types.InstanceStatus.InstanceStatus
+ Amazonka.DeviceFarm.Types.InstanceStatus: newtype InstanceStatus
+ Amazonka.DeviceFarm.Types.InstanceStatus: pattern InstanceStatus_AVAILABLE :: InstanceStatus
+ Amazonka.DeviceFarm.Types.InstanceStatus: pattern InstanceStatus_IN_USE :: InstanceStatus
+ Amazonka.DeviceFarm.Types.InstanceStatus: pattern InstanceStatus_NOT_AVAILABLE :: InstanceStatus
+ Amazonka.DeviceFarm.Types.InstanceStatus: pattern InstanceStatus_PREPARING :: InstanceStatus
+ Amazonka.DeviceFarm.Types.InteractionMode: InteractionMode' :: Text -> InteractionMode
+ Amazonka.DeviceFarm.Types.InteractionMode: [fromInteractionMode] :: InteractionMode -> Text
+ Amazonka.DeviceFarm.Types.InteractionMode: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.InteractionMode.InteractionMode
+ Amazonka.DeviceFarm.Types.InteractionMode: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.InteractionMode.InteractionMode
+ Amazonka.DeviceFarm.Types.InteractionMode: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.InteractionMode.InteractionMode
+ Amazonka.DeviceFarm.Types.InteractionMode: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.InteractionMode.InteractionMode
+ Amazonka.DeviceFarm.Types.InteractionMode: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.InteractionMode.InteractionMode
+ Amazonka.DeviceFarm.Types.InteractionMode: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.InteractionMode.InteractionMode
+ Amazonka.DeviceFarm.Types.InteractionMode: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.InteractionMode.InteractionMode
+ Amazonka.DeviceFarm.Types.InteractionMode: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.InteractionMode.InteractionMode
+ Amazonka.DeviceFarm.Types.InteractionMode: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.InteractionMode.InteractionMode
+ Amazonka.DeviceFarm.Types.InteractionMode: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.InteractionMode.InteractionMode
+ Amazonka.DeviceFarm.Types.InteractionMode: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.InteractionMode.InteractionMode
+ Amazonka.DeviceFarm.Types.InteractionMode: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.InteractionMode.InteractionMode
+ Amazonka.DeviceFarm.Types.InteractionMode: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.InteractionMode.InteractionMode
+ Amazonka.DeviceFarm.Types.InteractionMode: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.InteractionMode.InteractionMode
+ Amazonka.DeviceFarm.Types.InteractionMode: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.InteractionMode.InteractionMode
+ Amazonka.DeviceFarm.Types.InteractionMode: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.InteractionMode.InteractionMode
+ Amazonka.DeviceFarm.Types.InteractionMode: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.InteractionMode.InteractionMode
+ Amazonka.DeviceFarm.Types.InteractionMode: instance GHC.Read.Read Amazonka.DeviceFarm.Types.InteractionMode.InteractionMode
+ Amazonka.DeviceFarm.Types.InteractionMode: instance GHC.Show.Show Amazonka.DeviceFarm.Types.InteractionMode.InteractionMode
+ Amazonka.DeviceFarm.Types.InteractionMode: newtype InteractionMode
+ Amazonka.DeviceFarm.Types.InteractionMode: pattern InteractionMode_INTERACTIVE :: InteractionMode
+ Amazonka.DeviceFarm.Types.InteractionMode: pattern InteractionMode_NO_VIDEO :: InteractionMode
+ Amazonka.DeviceFarm.Types.InteractionMode: pattern InteractionMode_VIDEO_ONLY :: InteractionMode
+ Amazonka.DeviceFarm.Types.Job: Job' :: Maybe Text -> Maybe Counters -> Maybe POSIX -> Maybe Device -> Maybe DeviceMinutes -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe ExecutionResult -> Maybe POSIX -> Maybe ExecutionStatus -> Maybe POSIX -> Maybe TestType -> Maybe Bool -> Maybe Text -> Job
+ Amazonka.DeviceFarm.Types.Job: [$sel:arn:Job'] :: Job -> Maybe Text
+ Amazonka.DeviceFarm.Types.Job: [$sel:counters:Job'] :: Job -> Maybe Counters
+ Amazonka.DeviceFarm.Types.Job: [$sel:created:Job'] :: Job -> Maybe POSIX
+ Amazonka.DeviceFarm.Types.Job: [$sel:device:Job'] :: Job -> Maybe Device
+ Amazonka.DeviceFarm.Types.Job: [$sel:deviceMinutes:Job'] :: Job -> Maybe DeviceMinutes
+ Amazonka.DeviceFarm.Types.Job: [$sel:instanceArn:Job'] :: Job -> Maybe Text
+ Amazonka.DeviceFarm.Types.Job: [$sel:message:Job'] :: Job -> Maybe Text
+ Amazonka.DeviceFarm.Types.Job: [$sel:name:Job'] :: Job -> Maybe Text
+ Amazonka.DeviceFarm.Types.Job: [$sel:result:Job'] :: Job -> Maybe ExecutionResult
+ Amazonka.DeviceFarm.Types.Job: [$sel:started:Job'] :: Job -> Maybe POSIX
+ Amazonka.DeviceFarm.Types.Job: [$sel:status:Job'] :: Job -> Maybe ExecutionStatus
+ Amazonka.DeviceFarm.Types.Job: [$sel:stopped:Job'] :: Job -> Maybe POSIX
+ Amazonka.DeviceFarm.Types.Job: [$sel:type':Job'] :: Job -> Maybe TestType
+ Amazonka.DeviceFarm.Types.Job: [$sel:videoCapture:Job'] :: Job -> Maybe Bool
+ Amazonka.DeviceFarm.Types.Job: [$sel:videoEndpoint:Job'] :: Job -> Maybe Text
+ Amazonka.DeviceFarm.Types.Job: data Job
+ Amazonka.DeviceFarm.Types.Job: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.Job.Job
+ Amazonka.DeviceFarm.Types.Job: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.Job.Job
+ Amazonka.DeviceFarm.Types.Job: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.Job.Job
+ Amazonka.DeviceFarm.Types.Job: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.Job.Job
+ Amazonka.DeviceFarm.Types.Job: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.Job.Job
+ Amazonka.DeviceFarm.Types.Job: instance GHC.Read.Read Amazonka.DeviceFarm.Types.Job.Job
+ Amazonka.DeviceFarm.Types.Job: instance GHC.Show.Show Amazonka.DeviceFarm.Types.Job.Job
+ Amazonka.DeviceFarm.Types.Job: job_arn :: Lens' Job (Maybe Text)
+ Amazonka.DeviceFarm.Types.Job: job_counters :: Lens' Job (Maybe Counters)
+ Amazonka.DeviceFarm.Types.Job: job_created :: Lens' Job (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types.Job: job_device :: Lens' Job (Maybe Device)
+ Amazonka.DeviceFarm.Types.Job: job_deviceMinutes :: Lens' Job (Maybe DeviceMinutes)
+ Amazonka.DeviceFarm.Types.Job: job_instanceArn :: Lens' Job (Maybe Text)
+ Amazonka.DeviceFarm.Types.Job: job_message :: Lens' Job (Maybe Text)
+ Amazonka.DeviceFarm.Types.Job: job_name :: Lens' Job (Maybe Text)
+ Amazonka.DeviceFarm.Types.Job: job_result :: Lens' Job (Maybe ExecutionResult)
+ Amazonka.DeviceFarm.Types.Job: job_started :: Lens' Job (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types.Job: job_status :: Lens' Job (Maybe ExecutionStatus)
+ Amazonka.DeviceFarm.Types.Job: job_stopped :: Lens' Job (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types.Job: job_type :: Lens' Job (Maybe TestType)
+ Amazonka.DeviceFarm.Types.Job: job_videoCapture :: Lens' Job (Maybe Bool)
+ Amazonka.DeviceFarm.Types.Job: job_videoEndpoint :: Lens' Job (Maybe Text)
+ Amazonka.DeviceFarm.Types.Job: newJob :: Job
+ Amazonka.DeviceFarm.Types.Location: Location' :: Double -> Double -> Location
+ Amazonka.DeviceFarm.Types.Location: [$sel:latitude:Location'] :: Location -> Double
+ Amazonka.DeviceFarm.Types.Location: [$sel:longitude:Location'] :: Location -> Double
+ Amazonka.DeviceFarm.Types.Location: data Location
+ Amazonka.DeviceFarm.Types.Location: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.Location.Location
+ Amazonka.DeviceFarm.Types.Location: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.Location.Location
+ Amazonka.DeviceFarm.Types.Location: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.Location.Location
+ Amazonka.DeviceFarm.Types.Location: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.Location.Location
+ Amazonka.DeviceFarm.Types.Location: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.Location.Location
+ Amazonka.DeviceFarm.Types.Location: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.Location.Location
+ Amazonka.DeviceFarm.Types.Location: instance GHC.Read.Read Amazonka.DeviceFarm.Types.Location.Location
+ Amazonka.DeviceFarm.Types.Location: instance GHC.Show.Show Amazonka.DeviceFarm.Types.Location.Location
+ Amazonka.DeviceFarm.Types.Location: location_latitude :: Lens' Location Double
+ Amazonka.DeviceFarm.Types.Location: location_longitude :: Lens' Location Double
+ Amazonka.DeviceFarm.Types.Location: newLocation :: Double -> Double -> Location
+ Amazonka.DeviceFarm.Types.MonetaryAmount: MonetaryAmount' :: Maybe Double -> Maybe CurrencyCode -> MonetaryAmount
+ Amazonka.DeviceFarm.Types.MonetaryAmount: [$sel:amount:MonetaryAmount'] :: MonetaryAmount -> Maybe Double
+ Amazonka.DeviceFarm.Types.MonetaryAmount: [$sel:currencyCode:MonetaryAmount'] :: MonetaryAmount -> Maybe CurrencyCode
+ Amazonka.DeviceFarm.Types.MonetaryAmount: data MonetaryAmount
+ Amazonka.DeviceFarm.Types.MonetaryAmount: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.MonetaryAmount.MonetaryAmount
+ Amazonka.DeviceFarm.Types.MonetaryAmount: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.MonetaryAmount.MonetaryAmount
+ Amazonka.DeviceFarm.Types.MonetaryAmount: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.MonetaryAmount.MonetaryAmount
+ Amazonka.DeviceFarm.Types.MonetaryAmount: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.MonetaryAmount.MonetaryAmount
+ Amazonka.DeviceFarm.Types.MonetaryAmount: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.MonetaryAmount.MonetaryAmount
+ Amazonka.DeviceFarm.Types.MonetaryAmount: instance GHC.Read.Read Amazonka.DeviceFarm.Types.MonetaryAmount.MonetaryAmount
+ Amazonka.DeviceFarm.Types.MonetaryAmount: instance GHC.Show.Show Amazonka.DeviceFarm.Types.MonetaryAmount.MonetaryAmount
+ Amazonka.DeviceFarm.Types.MonetaryAmount: monetaryAmount_amount :: Lens' MonetaryAmount (Maybe Double)
+ Amazonka.DeviceFarm.Types.MonetaryAmount: monetaryAmount_currencyCode :: Lens' MonetaryAmount (Maybe CurrencyCode)
+ Amazonka.DeviceFarm.Types.MonetaryAmount: newMonetaryAmount :: MonetaryAmount
+ Amazonka.DeviceFarm.Types.NetworkProfile: NetworkProfile' :: Maybe Text -> Maybe Text -> Maybe Integer -> Maybe Integer -> Maybe Integer -> Maybe Natural -> Maybe Text -> Maybe NetworkProfileType -> Maybe Integer -> Maybe Integer -> Maybe Integer -> Maybe Natural -> NetworkProfile
+ Amazonka.DeviceFarm.Types.NetworkProfile: [$sel:arn:NetworkProfile'] :: NetworkProfile -> Maybe Text
+ Amazonka.DeviceFarm.Types.NetworkProfile: [$sel:description:NetworkProfile'] :: NetworkProfile -> Maybe Text
+ Amazonka.DeviceFarm.Types.NetworkProfile: [$sel:downlinkBandwidthBits:NetworkProfile'] :: NetworkProfile -> Maybe Integer
+ Amazonka.DeviceFarm.Types.NetworkProfile: [$sel:downlinkDelayMs:NetworkProfile'] :: NetworkProfile -> Maybe Integer
+ Amazonka.DeviceFarm.Types.NetworkProfile: [$sel:downlinkJitterMs:NetworkProfile'] :: NetworkProfile -> Maybe Integer
+ Amazonka.DeviceFarm.Types.NetworkProfile: [$sel:downlinkLossPercent:NetworkProfile'] :: NetworkProfile -> Maybe Natural
+ Amazonka.DeviceFarm.Types.NetworkProfile: [$sel:name:NetworkProfile'] :: NetworkProfile -> Maybe Text
+ Amazonka.DeviceFarm.Types.NetworkProfile: [$sel:type':NetworkProfile'] :: NetworkProfile -> Maybe NetworkProfileType
+ Amazonka.DeviceFarm.Types.NetworkProfile: [$sel:uplinkBandwidthBits:NetworkProfile'] :: NetworkProfile -> Maybe Integer
+ Amazonka.DeviceFarm.Types.NetworkProfile: [$sel:uplinkDelayMs:NetworkProfile'] :: NetworkProfile -> Maybe Integer
+ Amazonka.DeviceFarm.Types.NetworkProfile: [$sel:uplinkJitterMs:NetworkProfile'] :: NetworkProfile -> Maybe Integer
+ Amazonka.DeviceFarm.Types.NetworkProfile: [$sel:uplinkLossPercent:NetworkProfile'] :: NetworkProfile -> Maybe Natural
+ Amazonka.DeviceFarm.Types.NetworkProfile: data NetworkProfile
+ Amazonka.DeviceFarm.Types.NetworkProfile: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.NetworkProfile.NetworkProfile
+ Amazonka.DeviceFarm.Types.NetworkProfile: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.NetworkProfile.NetworkProfile
+ Amazonka.DeviceFarm.Types.NetworkProfile: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.NetworkProfile.NetworkProfile
+ Amazonka.DeviceFarm.Types.NetworkProfile: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.NetworkProfile.NetworkProfile
+ Amazonka.DeviceFarm.Types.NetworkProfile: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.NetworkProfile.NetworkProfile
+ Amazonka.DeviceFarm.Types.NetworkProfile: instance GHC.Read.Read Amazonka.DeviceFarm.Types.NetworkProfile.NetworkProfile
+ Amazonka.DeviceFarm.Types.NetworkProfile: instance GHC.Show.Show Amazonka.DeviceFarm.Types.NetworkProfile.NetworkProfile
+ Amazonka.DeviceFarm.Types.NetworkProfile: networkProfile_arn :: Lens' NetworkProfile (Maybe Text)
+ Amazonka.DeviceFarm.Types.NetworkProfile: networkProfile_description :: Lens' NetworkProfile (Maybe Text)
+ Amazonka.DeviceFarm.Types.NetworkProfile: networkProfile_downlinkBandwidthBits :: Lens' NetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Types.NetworkProfile: networkProfile_downlinkDelayMs :: Lens' NetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Types.NetworkProfile: networkProfile_downlinkJitterMs :: Lens' NetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Types.NetworkProfile: networkProfile_downlinkLossPercent :: Lens' NetworkProfile (Maybe Natural)
+ Amazonka.DeviceFarm.Types.NetworkProfile: networkProfile_name :: Lens' NetworkProfile (Maybe Text)
+ Amazonka.DeviceFarm.Types.NetworkProfile: networkProfile_type :: Lens' NetworkProfile (Maybe NetworkProfileType)
+ Amazonka.DeviceFarm.Types.NetworkProfile: networkProfile_uplinkBandwidthBits :: Lens' NetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Types.NetworkProfile: networkProfile_uplinkDelayMs :: Lens' NetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Types.NetworkProfile: networkProfile_uplinkJitterMs :: Lens' NetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.Types.NetworkProfile: networkProfile_uplinkLossPercent :: Lens' NetworkProfile (Maybe Natural)
+ Amazonka.DeviceFarm.Types.NetworkProfile: newNetworkProfile :: NetworkProfile
+ Amazonka.DeviceFarm.Types.NetworkProfileType: NetworkProfileType' :: Text -> NetworkProfileType
+ Amazonka.DeviceFarm.Types.NetworkProfileType: [fromNetworkProfileType] :: NetworkProfileType -> Text
+ Amazonka.DeviceFarm.Types.NetworkProfileType: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.NetworkProfileType.NetworkProfileType
+ Amazonka.DeviceFarm.Types.NetworkProfileType: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.NetworkProfileType.NetworkProfileType
+ Amazonka.DeviceFarm.Types.NetworkProfileType: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.NetworkProfileType.NetworkProfileType
+ Amazonka.DeviceFarm.Types.NetworkProfileType: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.NetworkProfileType.NetworkProfileType
+ Amazonka.DeviceFarm.Types.NetworkProfileType: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.NetworkProfileType.NetworkProfileType
+ Amazonka.DeviceFarm.Types.NetworkProfileType: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.NetworkProfileType.NetworkProfileType
+ Amazonka.DeviceFarm.Types.NetworkProfileType: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.NetworkProfileType.NetworkProfileType
+ Amazonka.DeviceFarm.Types.NetworkProfileType: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.NetworkProfileType.NetworkProfileType
+ Amazonka.DeviceFarm.Types.NetworkProfileType: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.NetworkProfileType.NetworkProfileType
+ Amazonka.DeviceFarm.Types.NetworkProfileType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.NetworkProfileType.NetworkProfileType
+ Amazonka.DeviceFarm.Types.NetworkProfileType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.NetworkProfileType.NetworkProfileType
+ Amazonka.DeviceFarm.Types.NetworkProfileType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.NetworkProfileType.NetworkProfileType
+ Amazonka.DeviceFarm.Types.NetworkProfileType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.NetworkProfileType.NetworkProfileType
+ Amazonka.DeviceFarm.Types.NetworkProfileType: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.NetworkProfileType.NetworkProfileType
+ Amazonka.DeviceFarm.Types.NetworkProfileType: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.NetworkProfileType.NetworkProfileType
+ Amazonka.DeviceFarm.Types.NetworkProfileType: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.NetworkProfileType.NetworkProfileType
+ Amazonka.DeviceFarm.Types.NetworkProfileType: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.NetworkProfileType.NetworkProfileType
+ Amazonka.DeviceFarm.Types.NetworkProfileType: instance GHC.Read.Read Amazonka.DeviceFarm.Types.NetworkProfileType.NetworkProfileType
+ Amazonka.DeviceFarm.Types.NetworkProfileType: instance GHC.Show.Show Amazonka.DeviceFarm.Types.NetworkProfileType.NetworkProfileType
+ Amazonka.DeviceFarm.Types.NetworkProfileType: newtype NetworkProfileType
+ Amazonka.DeviceFarm.Types.NetworkProfileType: pattern NetworkProfileType_CURATED :: NetworkProfileType
+ Amazonka.DeviceFarm.Types.NetworkProfileType: pattern NetworkProfileType_PRIVATE :: NetworkProfileType
+ Amazonka.DeviceFarm.Types.Offering: Offering' :: Maybe Text -> Maybe Text -> Maybe DevicePlatform -> Maybe [RecurringCharge] -> Maybe OfferingType -> Offering
+ Amazonka.DeviceFarm.Types.Offering: [$sel:description:Offering'] :: Offering -> Maybe Text
+ Amazonka.DeviceFarm.Types.Offering: [$sel:id:Offering'] :: Offering -> Maybe Text
+ Amazonka.DeviceFarm.Types.Offering: [$sel:platform:Offering'] :: Offering -> Maybe DevicePlatform
+ Amazonka.DeviceFarm.Types.Offering: [$sel:recurringCharges:Offering'] :: Offering -> Maybe [RecurringCharge]
+ Amazonka.DeviceFarm.Types.Offering: [$sel:type':Offering'] :: Offering -> Maybe OfferingType
+ Amazonka.DeviceFarm.Types.Offering: data Offering
+ Amazonka.DeviceFarm.Types.Offering: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.Offering.Offering
+ Amazonka.DeviceFarm.Types.Offering: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.Offering.Offering
+ Amazonka.DeviceFarm.Types.Offering: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.Offering.Offering
+ Amazonka.DeviceFarm.Types.Offering: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.Offering.Offering
+ Amazonka.DeviceFarm.Types.Offering: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.Offering.Offering
+ Amazonka.DeviceFarm.Types.Offering: instance GHC.Read.Read Amazonka.DeviceFarm.Types.Offering.Offering
+ Amazonka.DeviceFarm.Types.Offering: instance GHC.Show.Show Amazonka.DeviceFarm.Types.Offering.Offering
+ Amazonka.DeviceFarm.Types.Offering: newOffering :: Offering
+ Amazonka.DeviceFarm.Types.Offering: offering_description :: Lens' Offering (Maybe Text)
+ Amazonka.DeviceFarm.Types.Offering: offering_id :: Lens' Offering (Maybe Text)
+ Amazonka.DeviceFarm.Types.Offering: offering_platform :: Lens' Offering (Maybe DevicePlatform)
+ Amazonka.DeviceFarm.Types.Offering: offering_recurringCharges :: Lens' Offering (Maybe [RecurringCharge])
+ Amazonka.DeviceFarm.Types.Offering: offering_type :: Lens' Offering (Maybe OfferingType)
+ Amazonka.DeviceFarm.Types.OfferingPromotion: OfferingPromotion' :: Maybe Text -> Maybe Text -> OfferingPromotion
+ Amazonka.DeviceFarm.Types.OfferingPromotion: [$sel:description:OfferingPromotion'] :: OfferingPromotion -> Maybe Text
+ Amazonka.DeviceFarm.Types.OfferingPromotion: [$sel:id:OfferingPromotion'] :: OfferingPromotion -> Maybe Text
+ Amazonka.DeviceFarm.Types.OfferingPromotion: data OfferingPromotion
+ Amazonka.DeviceFarm.Types.OfferingPromotion: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.OfferingPromotion.OfferingPromotion
+ Amazonka.DeviceFarm.Types.OfferingPromotion: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.OfferingPromotion.OfferingPromotion
+ Amazonka.DeviceFarm.Types.OfferingPromotion: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.OfferingPromotion.OfferingPromotion
+ Amazonka.DeviceFarm.Types.OfferingPromotion: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.OfferingPromotion.OfferingPromotion
+ Amazonka.DeviceFarm.Types.OfferingPromotion: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.OfferingPromotion.OfferingPromotion
+ Amazonka.DeviceFarm.Types.OfferingPromotion: instance GHC.Read.Read Amazonka.DeviceFarm.Types.OfferingPromotion.OfferingPromotion
+ Amazonka.DeviceFarm.Types.OfferingPromotion: instance GHC.Show.Show Amazonka.DeviceFarm.Types.OfferingPromotion.OfferingPromotion
+ Amazonka.DeviceFarm.Types.OfferingPromotion: newOfferingPromotion :: OfferingPromotion
+ Amazonka.DeviceFarm.Types.OfferingPromotion: offeringPromotion_description :: Lens' OfferingPromotion (Maybe Text)
+ Amazonka.DeviceFarm.Types.OfferingPromotion: offeringPromotion_id :: Lens' OfferingPromotion (Maybe Text)
+ Amazonka.DeviceFarm.Types.OfferingStatus: OfferingStatus' :: Maybe POSIX -> Maybe Offering -> Maybe Int -> Maybe OfferingTransactionType -> OfferingStatus
+ Amazonka.DeviceFarm.Types.OfferingStatus: [$sel:effectiveOn:OfferingStatus'] :: OfferingStatus -> Maybe POSIX
+ Amazonka.DeviceFarm.Types.OfferingStatus: [$sel:offering:OfferingStatus'] :: OfferingStatus -> Maybe Offering
+ Amazonka.DeviceFarm.Types.OfferingStatus: [$sel:quantity:OfferingStatus'] :: OfferingStatus -> Maybe Int
+ Amazonka.DeviceFarm.Types.OfferingStatus: [$sel:type':OfferingStatus'] :: OfferingStatus -> Maybe OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingStatus: data OfferingStatus
+ Amazonka.DeviceFarm.Types.OfferingStatus: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.OfferingStatus.OfferingStatus
+ Amazonka.DeviceFarm.Types.OfferingStatus: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.OfferingStatus.OfferingStatus
+ Amazonka.DeviceFarm.Types.OfferingStatus: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.OfferingStatus.OfferingStatus
+ Amazonka.DeviceFarm.Types.OfferingStatus: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.OfferingStatus.OfferingStatus
+ Amazonka.DeviceFarm.Types.OfferingStatus: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.OfferingStatus.OfferingStatus
+ Amazonka.DeviceFarm.Types.OfferingStatus: instance GHC.Read.Read Amazonka.DeviceFarm.Types.OfferingStatus.OfferingStatus
+ Amazonka.DeviceFarm.Types.OfferingStatus: instance GHC.Show.Show Amazonka.DeviceFarm.Types.OfferingStatus.OfferingStatus
+ Amazonka.DeviceFarm.Types.OfferingStatus: newOfferingStatus :: OfferingStatus
+ Amazonka.DeviceFarm.Types.OfferingStatus: offeringStatus_effectiveOn :: Lens' OfferingStatus (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types.OfferingStatus: offeringStatus_offering :: Lens' OfferingStatus (Maybe Offering)
+ Amazonka.DeviceFarm.Types.OfferingStatus: offeringStatus_quantity :: Lens' OfferingStatus (Maybe Int)
+ Amazonka.DeviceFarm.Types.OfferingStatus: offeringStatus_type :: Lens' OfferingStatus (Maybe OfferingTransactionType)
+ Amazonka.DeviceFarm.Types.OfferingTransaction: OfferingTransaction' :: Maybe MonetaryAmount -> Maybe POSIX -> Maybe Text -> Maybe OfferingStatus -> Maybe Text -> OfferingTransaction
+ Amazonka.DeviceFarm.Types.OfferingTransaction: [$sel:cost:OfferingTransaction'] :: OfferingTransaction -> Maybe MonetaryAmount
+ Amazonka.DeviceFarm.Types.OfferingTransaction: [$sel:createdOn:OfferingTransaction'] :: OfferingTransaction -> Maybe POSIX
+ Amazonka.DeviceFarm.Types.OfferingTransaction: [$sel:offeringPromotionId:OfferingTransaction'] :: OfferingTransaction -> Maybe Text
+ Amazonka.DeviceFarm.Types.OfferingTransaction: [$sel:offeringStatus:OfferingTransaction'] :: OfferingTransaction -> Maybe OfferingStatus
+ Amazonka.DeviceFarm.Types.OfferingTransaction: [$sel:transactionId:OfferingTransaction'] :: OfferingTransaction -> Maybe Text
+ Amazonka.DeviceFarm.Types.OfferingTransaction: data OfferingTransaction
+ Amazonka.DeviceFarm.Types.OfferingTransaction: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.OfferingTransaction.OfferingTransaction
+ Amazonka.DeviceFarm.Types.OfferingTransaction: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.OfferingTransaction.OfferingTransaction
+ Amazonka.DeviceFarm.Types.OfferingTransaction: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.OfferingTransaction.OfferingTransaction
+ Amazonka.DeviceFarm.Types.OfferingTransaction: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.OfferingTransaction.OfferingTransaction
+ Amazonka.DeviceFarm.Types.OfferingTransaction: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.OfferingTransaction.OfferingTransaction
+ Amazonka.DeviceFarm.Types.OfferingTransaction: instance GHC.Read.Read Amazonka.DeviceFarm.Types.OfferingTransaction.OfferingTransaction
+ Amazonka.DeviceFarm.Types.OfferingTransaction: instance GHC.Show.Show Amazonka.DeviceFarm.Types.OfferingTransaction.OfferingTransaction
+ Amazonka.DeviceFarm.Types.OfferingTransaction: newOfferingTransaction :: OfferingTransaction
+ Amazonka.DeviceFarm.Types.OfferingTransaction: offeringTransaction_cost :: Lens' OfferingTransaction (Maybe MonetaryAmount)
+ Amazonka.DeviceFarm.Types.OfferingTransaction: offeringTransaction_createdOn :: Lens' OfferingTransaction (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types.OfferingTransaction: offeringTransaction_offeringPromotionId :: Lens' OfferingTransaction (Maybe Text)
+ Amazonka.DeviceFarm.Types.OfferingTransaction: offeringTransaction_offeringStatus :: Lens' OfferingTransaction (Maybe OfferingStatus)
+ Amazonka.DeviceFarm.Types.OfferingTransaction: offeringTransaction_transactionId :: Lens' OfferingTransaction (Maybe Text)
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: OfferingTransactionType' :: Text -> OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: [fromOfferingTransactionType] :: OfferingTransactionType -> Text
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.OfferingTransactionType.OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.OfferingTransactionType.OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.OfferingTransactionType.OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.OfferingTransactionType.OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.OfferingTransactionType.OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.OfferingTransactionType.OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.OfferingTransactionType.OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.OfferingTransactionType.OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.OfferingTransactionType.OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.OfferingTransactionType.OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.OfferingTransactionType.OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.OfferingTransactionType.OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.OfferingTransactionType.OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.OfferingTransactionType.OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.OfferingTransactionType.OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.OfferingTransactionType.OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.OfferingTransactionType.OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: instance GHC.Read.Read Amazonka.DeviceFarm.Types.OfferingTransactionType.OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: instance GHC.Show.Show Amazonka.DeviceFarm.Types.OfferingTransactionType.OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: newtype OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: pattern OfferingTransactionType_PURCHASE :: OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: pattern OfferingTransactionType_RENEW :: OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingTransactionType: pattern OfferingTransactionType_SYSTEM :: OfferingTransactionType
+ Amazonka.DeviceFarm.Types.OfferingType: OfferingType' :: Text -> OfferingType
+ Amazonka.DeviceFarm.Types.OfferingType: [fromOfferingType] :: OfferingType -> Text
+ Amazonka.DeviceFarm.Types.OfferingType: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.OfferingType.OfferingType
+ Amazonka.DeviceFarm.Types.OfferingType: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.OfferingType.OfferingType
+ Amazonka.DeviceFarm.Types.OfferingType: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.OfferingType.OfferingType
+ Amazonka.DeviceFarm.Types.OfferingType: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.OfferingType.OfferingType
+ Amazonka.DeviceFarm.Types.OfferingType: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.OfferingType.OfferingType
+ Amazonka.DeviceFarm.Types.OfferingType: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.OfferingType.OfferingType
+ Amazonka.DeviceFarm.Types.OfferingType: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.OfferingType.OfferingType
+ Amazonka.DeviceFarm.Types.OfferingType: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.OfferingType.OfferingType
+ Amazonka.DeviceFarm.Types.OfferingType: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.OfferingType.OfferingType
+ Amazonka.DeviceFarm.Types.OfferingType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.OfferingType.OfferingType
+ Amazonka.DeviceFarm.Types.OfferingType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.OfferingType.OfferingType
+ Amazonka.DeviceFarm.Types.OfferingType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.OfferingType.OfferingType
+ Amazonka.DeviceFarm.Types.OfferingType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.OfferingType.OfferingType
+ Amazonka.DeviceFarm.Types.OfferingType: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.OfferingType.OfferingType
+ Amazonka.DeviceFarm.Types.OfferingType: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.OfferingType.OfferingType
+ Amazonka.DeviceFarm.Types.OfferingType: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.OfferingType.OfferingType
+ Amazonka.DeviceFarm.Types.OfferingType: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.OfferingType.OfferingType
+ Amazonka.DeviceFarm.Types.OfferingType: instance GHC.Read.Read Amazonka.DeviceFarm.Types.OfferingType.OfferingType
+ Amazonka.DeviceFarm.Types.OfferingType: instance GHC.Show.Show Amazonka.DeviceFarm.Types.OfferingType.OfferingType
+ Amazonka.DeviceFarm.Types.OfferingType: newtype OfferingType
+ Amazonka.DeviceFarm.Types.OfferingType: pattern OfferingType_RECURRING :: OfferingType
+ Amazonka.DeviceFarm.Types.Problem: Problem' :: Maybe Device -> Maybe ProblemDetail -> Maybe Text -> Maybe ExecutionResult -> Maybe ProblemDetail -> Maybe ProblemDetail -> Maybe ProblemDetail -> Problem
+ Amazonka.DeviceFarm.Types.Problem: [$sel:device:Problem'] :: Problem -> Maybe Device
+ Amazonka.DeviceFarm.Types.Problem: [$sel:job:Problem'] :: Problem -> Maybe ProblemDetail
+ Amazonka.DeviceFarm.Types.Problem: [$sel:message:Problem'] :: Problem -> Maybe Text
+ Amazonka.DeviceFarm.Types.Problem: [$sel:result:Problem'] :: Problem -> Maybe ExecutionResult
+ Amazonka.DeviceFarm.Types.Problem: [$sel:run:Problem'] :: Problem -> Maybe ProblemDetail
+ Amazonka.DeviceFarm.Types.Problem: [$sel:suite:Problem'] :: Problem -> Maybe ProblemDetail
+ Amazonka.DeviceFarm.Types.Problem: [$sel:test:Problem'] :: Problem -> Maybe ProblemDetail
+ Amazonka.DeviceFarm.Types.Problem: data Problem
+ Amazonka.DeviceFarm.Types.Problem: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.Problem.Problem
+ Amazonka.DeviceFarm.Types.Problem: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.Problem.Problem
+ Amazonka.DeviceFarm.Types.Problem: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.Problem.Problem
+ Amazonka.DeviceFarm.Types.Problem: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.Problem.Problem
+ Amazonka.DeviceFarm.Types.Problem: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.Problem.Problem
+ Amazonka.DeviceFarm.Types.Problem: instance GHC.Read.Read Amazonka.DeviceFarm.Types.Problem.Problem
+ Amazonka.DeviceFarm.Types.Problem: instance GHC.Show.Show Amazonka.DeviceFarm.Types.Problem.Problem
+ Amazonka.DeviceFarm.Types.Problem: newProblem :: Problem
+ Amazonka.DeviceFarm.Types.Problem: problem_device :: Lens' Problem (Maybe Device)
+ Amazonka.DeviceFarm.Types.Problem: problem_job :: Lens' Problem (Maybe ProblemDetail)
+ Amazonka.DeviceFarm.Types.Problem: problem_message :: Lens' Problem (Maybe Text)
+ Amazonka.DeviceFarm.Types.Problem: problem_result :: Lens' Problem (Maybe ExecutionResult)
+ Amazonka.DeviceFarm.Types.Problem: problem_run :: Lens' Problem (Maybe ProblemDetail)
+ Amazonka.DeviceFarm.Types.Problem: problem_suite :: Lens' Problem (Maybe ProblemDetail)
+ Amazonka.DeviceFarm.Types.Problem: problem_test :: Lens' Problem (Maybe ProblemDetail)
+ Amazonka.DeviceFarm.Types.ProblemDetail: ProblemDetail' :: Maybe Text -> Maybe Text -> ProblemDetail
+ Amazonka.DeviceFarm.Types.ProblemDetail: [$sel:arn:ProblemDetail'] :: ProblemDetail -> Maybe Text
+ Amazonka.DeviceFarm.Types.ProblemDetail: [$sel:name:ProblemDetail'] :: ProblemDetail -> Maybe Text
+ Amazonka.DeviceFarm.Types.ProblemDetail: data ProblemDetail
+ Amazonka.DeviceFarm.Types.ProblemDetail: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.ProblemDetail.ProblemDetail
+ Amazonka.DeviceFarm.Types.ProblemDetail: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.ProblemDetail.ProblemDetail
+ Amazonka.DeviceFarm.Types.ProblemDetail: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.ProblemDetail.ProblemDetail
+ Amazonka.DeviceFarm.Types.ProblemDetail: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.ProblemDetail.ProblemDetail
+ Amazonka.DeviceFarm.Types.ProblemDetail: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.ProblemDetail.ProblemDetail
+ Amazonka.DeviceFarm.Types.ProblemDetail: instance GHC.Read.Read Amazonka.DeviceFarm.Types.ProblemDetail.ProblemDetail
+ Amazonka.DeviceFarm.Types.ProblemDetail: instance GHC.Show.Show Amazonka.DeviceFarm.Types.ProblemDetail.ProblemDetail
+ Amazonka.DeviceFarm.Types.ProblemDetail: newProblemDetail :: ProblemDetail
+ Amazonka.DeviceFarm.Types.ProblemDetail: problemDetail_arn :: Lens' ProblemDetail (Maybe Text)
+ Amazonka.DeviceFarm.Types.ProblemDetail: problemDetail_name :: Lens' ProblemDetail (Maybe Text)
+ Amazonka.DeviceFarm.Types.Project: Project' :: Maybe Text -> Maybe POSIX -> Maybe Int -> Maybe Text -> Maybe VpcConfig -> Project
+ Amazonka.DeviceFarm.Types.Project: [$sel:arn:Project'] :: Project -> Maybe Text
+ Amazonka.DeviceFarm.Types.Project: [$sel:created:Project'] :: Project -> Maybe POSIX
+ Amazonka.DeviceFarm.Types.Project: [$sel:defaultJobTimeoutMinutes:Project'] :: Project -> Maybe Int
+ Amazonka.DeviceFarm.Types.Project: [$sel:name:Project'] :: Project -> Maybe Text
+ Amazonka.DeviceFarm.Types.Project: [$sel:vpcConfig:Project'] :: Project -> Maybe VpcConfig
+ Amazonka.DeviceFarm.Types.Project: data Project
+ Amazonka.DeviceFarm.Types.Project: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.Project.Project
+ Amazonka.DeviceFarm.Types.Project: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.Project.Project
+ Amazonka.DeviceFarm.Types.Project: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.Project.Project
+ Amazonka.DeviceFarm.Types.Project: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.Project.Project
+ Amazonka.DeviceFarm.Types.Project: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.Project.Project
+ Amazonka.DeviceFarm.Types.Project: instance GHC.Read.Read Amazonka.DeviceFarm.Types.Project.Project
+ Amazonka.DeviceFarm.Types.Project: instance GHC.Show.Show Amazonka.DeviceFarm.Types.Project.Project
+ Amazonka.DeviceFarm.Types.Project: newProject :: Project
+ Amazonka.DeviceFarm.Types.Project: project_arn :: Lens' Project (Maybe Text)
+ Amazonka.DeviceFarm.Types.Project: project_created :: Lens' Project (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types.Project: project_defaultJobTimeoutMinutes :: Lens' Project (Maybe Int)
+ Amazonka.DeviceFarm.Types.Project: project_name :: Lens' Project (Maybe Text)
+ Amazonka.DeviceFarm.Types.Project: project_vpcConfig :: Lens' Project (Maybe VpcConfig)
+ Amazonka.DeviceFarm.Types.Radios: Radios' :: Maybe Bool -> Maybe Bool -> Maybe Bool -> Maybe Bool -> Radios
+ Amazonka.DeviceFarm.Types.Radios: [$sel:bluetooth:Radios'] :: Radios -> Maybe Bool
+ Amazonka.DeviceFarm.Types.Radios: [$sel:gps:Radios'] :: Radios -> Maybe Bool
+ Amazonka.DeviceFarm.Types.Radios: [$sel:nfc:Radios'] :: Radios -> Maybe Bool
+ Amazonka.DeviceFarm.Types.Radios: [$sel:wifi:Radios'] :: Radios -> Maybe Bool
+ Amazonka.DeviceFarm.Types.Radios: data Radios
+ Amazonka.DeviceFarm.Types.Radios: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.Radios.Radios
+ Amazonka.DeviceFarm.Types.Radios: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.Radios.Radios
+ Amazonka.DeviceFarm.Types.Radios: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.Radios.Radios
+ Amazonka.DeviceFarm.Types.Radios: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.Radios.Radios
+ Amazonka.DeviceFarm.Types.Radios: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.Radios.Radios
+ Amazonka.DeviceFarm.Types.Radios: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.Radios.Radios
+ Amazonka.DeviceFarm.Types.Radios: instance GHC.Read.Read Amazonka.DeviceFarm.Types.Radios.Radios
+ Amazonka.DeviceFarm.Types.Radios: instance GHC.Show.Show Amazonka.DeviceFarm.Types.Radios.Radios
+ Amazonka.DeviceFarm.Types.Radios: newRadios :: Radios
+ Amazonka.DeviceFarm.Types.Radios: radios_bluetooth :: Lens' Radios (Maybe Bool)
+ Amazonka.DeviceFarm.Types.Radios: radios_gps :: Lens' Radios (Maybe Bool)
+ Amazonka.DeviceFarm.Types.Radios: radios_nfc :: Lens' Radios (Maybe Bool)
+ Amazonka.DeviceFarm.Types.Radios: radios_wifi :: Lens' Radios (Maybe Bool)
+ Amazonka.DeviceFarm.Types.RecurringCharge: RecurringCharge' :: Maybe MonetaryAmount -> Maybe RecurringChargeFrequency -> RecurringCharge
+ Amazonka.DeviceFarm.Types.RecurringCharge: [$sel:cost:RecurringCharge'] :: RecurringCharge -> Maybe MonetaryAmount
+ Amazonka.DeviceFarm.Types.RecurringCharge: [$sel:frequency:RecurringCharge'] :: RecurringCharge -> Maybe RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types.RecurringCharge: data RecurringCharge
+ Amazonka.DeviceFarm.Types.RecurringCharge: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.RecurringCharge.RecurringCharge
+ Amazonka.DeviceFarm.Types.RecurringCharge: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.RecurringCharge.RecurringCharge
+ Amazonka.DeviceFarm.Types.RecurringCharge: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.RecurringCharge.RecurringCharge
+ Amazonka.DeviceFarm.Types.RecurringCharge: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.RecurringCharge.RecurringCharge
+ Amazonka.DeviceFarm.Types.RecurringCharge: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.RecurringCharge.RecurringCharge
+ Amazonka.DeviceFarm.Types.RecurringCharge: instance GHC.Read.Read Amazonka.DeviceFarm.Types.RecurringCharge.RecurringCharge
+ Amazonka.DeviceFarm.Types.RecurringCharge: instance GHC.Show.Show Amazonka.DeviceFarm.Types.RecurringCharge.RecurringCharge
+ Amazonka.DeviceFarm.Types.RecurringCharge: newRecurringCharge :: RecurringCharge
+ Amazonka.DeviceFarm.Types.RecurringCharge: recurringCharge_cost :: Lens' RecurringCharge (Maybe MonetaryAmount)
+ Amazonka.DeviceFarm.Types.RecurringCharge: recurringCharge_frequency :: Lens' RecurringCharge (Maybe RecurringChargeFrequency)
+ Amazonka.DeviceFarm.Types.RecurringChargeFrequency: RecurringChargeFrequency' :: Text -> RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types.RecurringChargeFrequency: [fromRecurringChargeFrequency] :: RecurringChargeFrequency -> Text
+ Amazonka.DeviceFarm.Types.RecurringChargeFrequency: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.RecurringChargeFrequency.RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types.RecurringChargeFrequency: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.RecurringChargeFrequency.RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types.RecurringChargeFrequency: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.RecurringChargeFrequency.RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types.RecurringChargeFrequency: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.RecurringChargeFrequency.RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types.RecurringChargeFrequency: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.RecurringChargeFrequency.RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types.RecurringChargeFrequency: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.RecurringChargeFrequency.RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types.RecurringChargeFrequency: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.RecurringChargeFrequency.RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types.RecurringChargeFrequency: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.RecurringChargeFrequency.RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types.RecurringChargeFrequency: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.RecurringChargeFrequency.RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types.RecurringChargeFrequency: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.RecurringChargeFrequency.RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types.RecurringChargeFrequency: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.RecurringChargeFrequency.RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types.RecurringChargeFrequency: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.RecurringChargeFrequency.RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types.RecurringChargeFrequency: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.RecurringChargeFrequency.RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types.RecurringChargeFrequency: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.RecurringChargeFrequency.RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types.RecurringChargeFrequency: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.RecurringChargeFrequency.RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types.RecurringChargeFrequency: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.RecurringChargeFrequency.RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types.RecurringChargeFrequency: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.RecurringChargeFrequency.RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types.RecurringChargeFrequency: instance GHC.Read.Read Amazonka.DeviceFarm.Types.RecurringChargeFrequency.RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types.RecurringChargeFrequency: instance GHC.Show.Show Amazonka.DeviceFarm.Types.RecurringChargeFrequency.RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types.RecurringChargeFrequency: newtype RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types.RecurringChargeFrequency: pattern RecurringChargeFrequency_MONTHLY :: RecurringChargeFrequency
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: RemoteAccessSession' :: Maybe Text -> Maybe BillingMethod -> Maybe Text -> Maybe POSIX -> Maybe Device -> Maybe DeviceMinutes -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe InteractionMode -> Maybe Text -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe Bool -> Maybe ExecutionResult -> Maybe Bool -> Maybe POSIX -> Maybe ExecutionStatus -> Maybe POSIX -> Maybe VpcConfig -> RemoteAccessSession
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: [$sel:arn:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Text
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: [$sel:billingMethod:RemoteAccessSession'] :: RemoteAccessSession -> Maybe BillingMethod
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: [$sel:clientId:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Text
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: [$sel:created:RemoteAccessSession'] :: RemoteAccessSession -> Maybe POSIX
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: [$sel:device:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Device
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: [$sel:deviceMinutes:RemoteAccessSession'] :: RemoteAccessSession -> Maybe DeviceMinutes
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: [$sel:deviceUdid:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Text
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: [$sel:endpoint:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Text
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: [$sel:hostAddress:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Text
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: [$sel:instanceArn:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Text
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: [$sel:interactionMode:RemoteAccessSession'] :: RemoteAccessSession -> Maybe InteractionMode
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: [$sel:message:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Text
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: [$sel:name:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Text
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: [$sel:remoteDebugEnabled:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Bool
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: [$sel:remoteRecordAppArn:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Text
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: [$sel:remoteRecordEnabled:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Bool
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: [$sel:result:RemoteAccessSession'] :: RemoteAccessSession -> Maybe ExecutionResult
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: [$sel:skipAppResign:RemoteAccessSession'] :: RemoteAccessSession -> Maybe Bool
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: [$sel:started:RemoteAccessSession'] :: RemoteAccessSession -> Maybe POSIX
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: [$sel:status:RemoteAccessSession'] :: RemoteAccessSession -> Maybe ExecutionStatus
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: [$sel:stopped:RemoteAccessSession'] :: RemoteAccessSession -> Maybe POSIX
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: [$sel:vpcConfig:RemoteAccessSession'] :: RemoteAccessSession -> Maybe VpcConfig
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: data RemoteAccessSession
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.RemoteAccessSession.RemoteAccessSession
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.RemoteAccessSession.RemoteAccessSession
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.RemoteAccessSession.RemoteAccessSession
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.RemoteAccessSession.RemoteAccessSession
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.RemoteAccessSession.RemoteAccessSession
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: instance GHC.Read.Read Amazonka.DeviceFarm.Types.RemoteAccessSession.RemoteAccessSession
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: instance GHC.Show.Show Amazonka.DeviceFarm.Types.RemoteAccessSession.RemoteAccessSession
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: newRemoteAccessSession :: RemoteAccessSession
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: remoteAccessSession_arn :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: remoteAccessSession_billingMethod :: Lens' RemoteAccessSession (Maybe BillingMethod)
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: remoteAccessSession_clientId :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: remoteAccessSession_created :: Lens' RemoteAccessSession (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: remoteAccessSession_device :: Lens' RemoteAccessSession (Maybe Device)
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: remoteAccessSession_deviceMinutes :: Lens' RemoteAccessSession (Maybe DeviceMinutes)
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: remoteAccessSession_deviceUdid :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: remoteAccessSession_endpoint :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: remoteAccessSession_hostAddress :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: remoteAccessSession_instanceArn :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: remoteAccessSession_interactionMode :: Lens' RemoteAccessSession (Maybe InteractionMode)
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: remoteAccessSession_message :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: remoteAccessSession_name :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: remoteAccessSession_remoteDebugEnabled :: Lens' RemoteAccessSession (Maybe Bool)
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: remoteAccessSession_remoteRecordAppArn :: Lens' RemoteAccessSession (Maybe Text)
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: remoteAccessSession_remoteRecordEnabled :: Lens' RemoteAccessSession (Maybe Bool)
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: remoteAccessSession_result :: Lens' RemoteAccessSession (Maybe ExecutionResult)
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: remoteAccessSession_skipAppResign :: Lens' RemoteAccessSession (Maybe Bool)
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: remoteAccessSession_started :: Lens' RemoteAccessSession (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: remoteAccessSession_status :: Lens' RemoteAccessSession (Maybe ExecutionStatus)
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: remoteAccessSession_stopped :: Lens' RemoteAccessSession (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types.RemoteAccessSession: remoteAccessSession_vpcConfig :: Lens' RemoteAccessSession (Maybe VpcConfig)
+ Amazonka.DeviceFarm.Types.Resolution: Resolution' :: Maybe Int -> Maybe Int -> Resolution
+ Amazonka.DeviceFarm.Types.Resolution: [$sel:height:Resolution'] :: Resolution -> Maybe Int
+ Amazonka.DeviceFarm.Types.Resolution: [$sel:width:Resolution'] :: Resolution -> Maybe Int
+ Amazonka.DeviceFarm.Types.Resolution: data Resolution
+ Amazonka.DeviceFarm.Types.Resolution: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.Resolution.Resolution
+ Amazonka.DeviceFarm.Types.Resolution: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.Resolution.Resolution
+ Amazonka.DeviceFarm.Types.Resolution: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.Resolution.Resolution
+ Amazonka.DeviceFarm.Types.Resolution: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.Resolution.Resolution
+ Amazonka.DeviceFarm.Types.Resolution: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.Resolution.Resolution
+ Amazonka.DeviceFarm.Types.Resolution: instance GHC.Read.Read Amazonka.DeviceFarm.Types.Resolution.Resolution
+ Amazonka.DeviceFarm.Types.Resolution: instance GHC.Show.Show Amazonka.DeviceFarm.Types.Resolution.Resolution
+ Amazonka.DeviceFarm.Types.Resolution: newResolution :: Resolution
+ Amazonka.DeviceFarm.Types.Resolution: resolution_height :: Lens' Resolution (Maybe Int)
+ Amazonka.DeviceFarm.Types.Resolution: resolution_width :: Lens' Resolution (Maybe Int)
+ Amazonka.DeviceFarm.Types.Rule: Rule' :: Maybe DeviceAttribute -> Maybe RuleOperator -> Maybe Text -> Rule
+ Amazonka.DeviceFarm.Types.Rule: [$sel:attribute:Rule'] :: Rule -> Maybe DeviceAttribute
+ Amazonka.DeviceFarm.Types.Rule: [$sel:operator:Rule'] :: Rule -> Maybe RuleOperator
+ Amazonka.DeviceFarm.Types.Rule: [$sel:value:Rule'] :: Rule -> Maybe Text
+ Amazonka.DeviceFarm.Types.Rule: data Rule
+ Amazonka.DeviceFarm.Types.Rule: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.Rule.Rule
+ Amazonka.DeviceFarm.Types.Rule: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.Rule.Rule
+ Amazonka.DeviceFarm.Types.Rule: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.Rule.Rule
+ Amazonka.DeviceFarm.Types.Rule: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.Rule.Rule
+ Amazonka.DeviceFarm.Types.Rule: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.Rule.Rule
+ Amazonka.DeviceFarm.Types.Rule: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.Rule.Rule
+ Amazonka.DeviceFarm.Types.Rule: instance GHC.Read.Read Amazonka.DeviceFarm.Types.Rule.Rule
+ Amazonka.DeviceFarm.Types.Rule: instance GHC.Show.Show Amazonka.DeviceFarm.Types.Rule.Rule
+ Amazonka.DeviceFarm.Types.Rule: newRule :: Rule
+ Amazonka.DeviceFarm.Types.Rule: rule_attribute :: Lens' Rule (Maybe DeviceAttribute)
+ Amazonka.DeviceFarm.Types.Rule: rule_operator :: Lens' Rule (Maybe RuleOperator)
+ Amazonka.DeviceFarm.Types.Rule: rule_value :: Lens' Rule (Maybe Text)
+ Amazonka.DeviceFarm.Types.RuleOperator: RuleOperator' :: Text -> RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: [fromRuleOperator] :: RuleOperator -> Text
+ Amazonka.DeviceFarm.Types.RuleOperator: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.RuleOperator.RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.RuleOperator.RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.RuleOperator.RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.RuleOperator.RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.RuleOperator.RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.RuleOperator.RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.RuleOperator.RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.RuleOperator.RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.RuleOperator.RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.RuleOperator.RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.RuleOperator.RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.RuleOperator.RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.RuleOperator.RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.RuleOperator.RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.RuleOperator.RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.RuleOperator.RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.RuleOperator.RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: instance GHC.Read.Read Amazonka.DeviceFarm.Types.RuleOperator.RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: instance GHC.Show.Show Amazonka.DeviceFarm.Types.RuleOperator.RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: newtype RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: pattern RuleOperator_CONTAINS :: RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: pattern RuleOperator_EQUALS :: RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: pattern RuleOperator_GREATER_THAN :: RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: pattern RuleOperator_GREATER_THAN_OR_EQUALS :: RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: pattern RuleOperator_IN :: RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: pattern RuleOperator_LESS_THAN :: RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: pattern RuleOperator_LESS_THAN_OR_EQUALS :: RuleOperator
+ Amazonka.DeviceFarm.Types.RuleOperator: pattern RuleOperator_NOT_IN :: RuleOperator
+ Amazonka.DeviceFarm.Types.Run: Run' :: Maybe Text -> Maybe Text -> Maybe BillingMethod -> Maybe Int -> Maybe Counters -> Maybe POSIX -> Maybe CustomerArtifactPaths -> Maybe DeviceMinutes -> Maybe Text -> Maybe DeviceSelectionResult -> Maybe Int -> Maybe Int -> Maybe Text -> Maybe Location -> Maybe Text -> Maybe Text -> Maybe NetworkProfile -> Maybe Text -> Maybe DevicePlatform -> Maybe Radios -> Maybe ExecutionResult -> Maybe ExecutionResultCode -> Maybe Int -> Maybe Bool -> Maybe POSIX -> Maybe ExecutionStatus -> Maybe POSIX -> Maybe Text -> Maybe Int -> Maybe TestType -> Maybe VpcConfig -> Maybe Text -> Run
+ Amazonka.DeviceFarm.Types.Run: [$sel:appUpload:Run'] :: Run -> Maybe Text
+ Amazonka.DeviceFarm.Types.Run: [$sel:arn:Run'] :: Run -> Maybe Text
+ Amazonka.DeviceFarm.Types.Run: [$sel:billingMethod:Run'] :: Run -> Maybe BillingMethod
+ Amazonka.DeviceFarm.Types.Run: [$sel:completedJobs:Run'] :: Run -> Maybe Int
+ Amazonka.DeviceFarm.Types.Run: [$sel:counters:Run'] :: Run -> Maybe Counters
+ Amazonka.DeviceFarm.Types.Run: [$sel:created:Run'] :: Run -> Maybe POSIX
+ Amazonka.DeviceFarm.Types.Run: [$sel:customerArtifactPaths:Run'] :: Run -> Maybe CustomerArtifactPaths
+ Amazonka.DeviceFarm.Types.Run: [$sel:deviceMinutes:Run'] :: Run -> Maybe DeviceMinutes
+ Amazonka.DeviceFarm.Types.Run: [$sel:devicePoolArn:Run'] :: Run -> Maybe Text
+ Amazonka.DeviceFarm.Types.Run: [$sel:deviceSelectionResult:Run'] :: Run -> Maybe DeviceSelectionResult
+ Amazonka.DeviceFarm.Types.Run: [$sel:eventCount:Run'] :: Run -> Maybe Int
+ Amazonka.DeviceFarm.Types.Run: [$sel:jobTimeoutMinutes:Run'] :: Run -> Maybe Int
+ Amazonka.DeviceFarm.Types.Run: [$sel:locale:Run'] :: Run -> Maybe Text
+ Amazonka.DeviceFarm.Types.Run: [$sel:location:Run'] :: Run -> Maybe Location
+ Amazonka.DeviceFarm.Types.Run: [$sel:message:Run'] :: Run -> Maybe Text
+ Amazonka.DeviceFarm.Types.Run: [$sel:name:Run'] :: Run -> Maybe Text
+ Amazonka.DeviceFarm.Types.Run: [$sel:networkProfile:Run'] :: Run -> Maybe NetworkProfile
+ Amazonka.DeviceFarm.Types.Run: [$sel:parsingResultUrl:Run'] :: Run -> Maybe Text
+ Amazonka.DeviceFarm.Types.Run: [$sel:platform:Run'] :: Run -> Maybe DevicePlatform
+ Amazonka.DeviceFarm.Types.Run: [$sel:radios:Run'] :: Run -> Maybe Radios
+ Amazonka.DeviceFarm.Types.Run: [$sel:result:Run'] :: Run -> Maybe ExecutionResult
+ Amazonka.DeviceFarm.Types.Run: [$sel:resultCode:Run'] :: Run -> Maybe ExecutionResultCode
+ Amazonka.DeviceFarm.Types.Run: [$sel:seed:Run'] :: Run -> Maybe Int
+ Amazonka.DeviceFarm.Types.Run: [$sel:skipAppResign:Run'] :: Run -> Maybe Bool
+ Amazonka.DeviceFarm.Types.Run: [$sel:started:Run'] :: Run -> Maybe POSIX
+ Amazonka.DeviceFarm.Types.Run: [$sel:status:Run'] :: Run -> Maybe ExecutionStatus
+ Amazonka.DeviceFarm.Types.Run: [$sel:stopped:Run'] :: Run -> Maybe POSIX
+ Amazonka.DeviceFarm.Types.Run: [$sel:testSpecArn:Run'] :: Run -> Maybe Text
+ Amazonka.DeviceFarm.Types.Run: [$sel:totalJobs:Run'] :: Run -> Maybe Int
+ Amazonka.DeviceFarm.Types.Run: [$sel:type':Run'] :: Run -> Maybe TestType
+ Amazonka.DeviceFarm.Types.Run: [$sel:vpcConfig:Run'] :: Run -> Maybe VpcConfig
+ Amazonka.DeviceFarm.Types.Run: [$sel:webUrl:Run'] :: Run -> Maybe Text
+ Amazonka.DeviceFarm.Types.Run: data Run
+ Amazonka.DeviceFarm.Types.Run: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.Run.Run
+ Amazonka.DeviceFarm.Types.Run: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.Run.Run
+ Amazonka.DeviceFarm.Types.Run: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.Run.Run
+ Amazonka.DeviceFarm.Types.Run: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.Run.Run
+ Amazonka.DeviceFarm.Types.Run: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.Run.Run
+ Amazonka.DeviceFarm.Types.Run: instance GHC.Read.Read Amazonka.DeviceFarm.Types.Run.Run
+ Amazonka.DeviceFarm.Types.Run: instance GHC.Show.Show Amazonka.DeviceFarm.Types.Run.Run
+ Amazonka.DeviceFarm.Types.Run: newRun :: Run
+ Amazonka.DeviceFarm.Types.Run: run_appUpload :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Types.Run: run_arn :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Types.Run: run_billingMethod :: Lens' Run (Maybe BillingMethod)
+ Amazonka.DeviceFarm.Types.Run: run_completedJobs :: Lens' Run (Maybe Int)
+ Amazonka.DeviceFarm.Types.Run: run_counters :: Lens' Run (Maybe Counters)
+ Amazonka.DeviceFarm.Types.Run: run_created :: Lens' Run (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types.Run: run_customerArtifactPaths :: Lens' Run (Maybe CustomerArtifactPaths)
+ Amazonka.DeviceFarm.Types.Run: run_deviceMinutes :: Lens' Run (Maybe DeviceMinutes)
+ Amazonka.DeviceFarm.Types.Run: run_devicePoolArn :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Types.Run: run_deviceSelectionResult :: Lens' Run (Maybe DeviceSelectionResult)
+ Amazonka.DeviceFarm.Types.Run: run_eventCount :: Lens' Run (Maybe Int)
+ Amazonka.DeviceFarm.Types.Run: run_jobTimeoutMinutes :: Lens' Run (Maybe Int)
+ Amazonka.DeviceFarm.Types.Run: run_locale :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Types.Run: run_location :: Lens' Run (Maybe Location)
+ Amazonka.DeviceFarm.Types.Run: run_message :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Types.Run: run_name :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Types.Run: run_networkProfile :: Lens' Run (Maybe NetworkProfile)
+ Amazonka.DeviceFarm.Types.Run: run_parsingResultUrl :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Types.Run: run_platform :: Lens' Run (Maybe DevicePlatform)
+ Amazonka.DeviceFarm.Types.Run: run_radios :: Lens' Run (Maybe Radios)
+ Amazonka.DeviceFarm.Types.Run: run_result :: Lens' Run (Maybe ExecutionResult)
+ Amazonka.DeviceFarm.Types.Run: run_resultCode :: Lens' Run (Maybe ExecutionResultCode)
+ Amazonka.DeviceFarm.Types.Run: run_seed :: Lens' Run (Maybe Int)
+ Amazonka.DeviceFarm.Types.Run: run_skipAppResign :: Lens' Run (Maybe Bool)
+ Amazonka.DeviceFarm.Types.Run: run_started :: Lens' Run (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types.Run: run_status :: Lens' Run (Maybe ExecutionStatus)
+ Amazonka.DeviceFarm.Types.Run: run_stopped :: Lens' Run (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types.Run: run_testSpecArn :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Types.Run: run_totalJobs :: Lens' Run (Maybe Int)
+ Amazonka.DeviceFarm.Types.Run: run_type :: Lens' Run (Maybe TestType)
+ Amazonka.DeviceFarm.Types.Run: run_vpcConfig :: Lens' Run (Maybe VpcConfig)
+ Amazonka.DeviceFarm.Types.Run: run_webUrl :: Lens' Run (Maybe Text)
+ Amazonka.DeviceFarm.Types.Sample: Sample' :: Maybe Text -> Maybe SampleType -> Maybe Text -> Sample
+ Amazonka.DeviceFarm.Types.Sample: [$sel:arn:Sample'] :: Sample -> Maybe Text
+ Amazonka.DeviceFarm.Types.Sample: [$sel:type':Sample'] :: Sample -> Maybe SampleType
+ Amazonka.DeviceFarm.Types.Sample: [$sel:url:Sample'] :: Sample -> Maybe Text
+ Amazonka.DeviceFarm.Types.Sample: data Sample
+ Amazonka.DeviceFarm.Types.Sample: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.Sample.Sample
+ Amazonka.DeviceFarm.Types.Sample: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.Sample.Sample
+ Amazonka.DeviceFarm.Types.Sample: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.Sample.Sample
+ Amazonka.DeviceFarm.Types.Sample: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.Sample.Sample
+ Amazonka.DeviceFarm.Types.Sample: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.Sample.Sample
+ Amazonka.DeviceFarm.Types.Sample: instance GHC.Read.Read Amazonka.DeviceFarm.Types.Sample.Sample
+ Amazonka.DeviceFarm.Types.Sample: instance GHC.Show.Show Amazonka.DeviceFarm.Types.Sample.Sample
+ Amazonka.DeviceFarm.Types.Sample: newSample :: Sample
+ Amazonka.DeviceFarm.Types.Sample: sample_arn :: Lens' Sample (Maybe Text)
+ Amazonka.DeviceFarm.Types.Sample: sample_type :: Lens' Sample (Maybe SampleType)
+ Amazonka.DeviceFarm.Types.Sample: sample_url :: Lens' Sample (Maybe Text)
+ Amazonka.DeviceFarm.Types.SampleType: SampleType' :: Text -> SampleType
+ Amazonka.DeviceFarm.Types.SampleType: [fromSampleType] :: SampleType -> Text
+ Amazonka.DeviceFarm.Types.SampleType: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.SampleType.SampleType
+ Amazonka.DeviceFarm.Types.SampleType: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.SampleType.SampleType
+ Amazonka.DeviceFarm.Types.SampleType: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.SampleType.SampleType
+ Amazonka.DeviceFarm.Types.SampleType: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.SampleType.SampleType
+ Amazonka.DeviceFarm.Types.SampleType: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.SampleType.SampleType
+ Amazonka.DeviceFarm.Types.SampleType: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.SampleType.SampleType
+ Amazonka.DeviceFarm.Types.SampleType: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.SampleType.SampleType
+ Amazonka.DeviceFarm.Types.SampleType: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.SampleType.SampleType
+ Amazonka.DeviceFarm.Types.SampleType: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.SampleType.SampleType
+ Amazonka.DeviceFarm.Types.SampleType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.SampleType.SampleType
+ Amazonka.DeviceFarm.Types.SampleType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.SampleType.SampleType
+ Amazonka.DeviceFarm.Types.SampleType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.SampleType.SampleType
+ Amazonka.DeviceFarm.Types.SampleType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.SampleType.SampleType
+ Amazonka.DeviceFarm.Types.SampleType: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.SampleType.SampleType
+ Amazonka.DeviceFarm.Types.SampleType: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.SampleType.SampleType
+ Amazonka.DeviceFarm.Types.SampleType: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.SampleType.SampleType
+ Amazonka.DeviceFarm.Types.SampleType: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.SampleType.SampleType
+ Amazonka.DeviceFarm.Types.SampleType: instance GHC.Read.Read Amazonka.DeviceFarm.Types.SampleType.SampleType
+ Amazonka.DeviceFarm.Types.SampleType: instance GHC.Show.Show Amazonka.DeviceFarm.Types.SampleType.SampleType
+ Amazonka.DeviceFarm.Types.SampleType: newtype SampleType
+ Amazonka.DeviceFarm.Types.SampleType: pattern SampleType_CPU :: SampleType
+ Amazonka.DeviceFarm.Types.SampleType: pattern SampleType_MEMORY :: SampleType
+ Amazonka.DeviceFarm.Types.SampleType: pattern SampleType_NATIVE_AVG_DRAWTIME :: SampleType
+ Amazonka.DeviceFarm.Types.SampleType: pattern SampleType_NATIVE_FPS :: SampleType
+ Amazonka.DeviceFarm.Types.SampleType: pattern SampleType_NATIVE_FRAMES :: SampleType
+ Amazonka.DeviceFarm.Types.SampleType: pattern SampleType_NATIVE_MAX_DRAWTIME :: SampleType
+ Amazonka.DeviceFarm.Types.SampleType: pattern SampleType_NATIVE_MIN_DRAWTIME :: SampleType
+ Amazonka.DeviceFarm.Types.SampleType: pattern SampleType_OPENGL_AVG_DRAWTIME :: SampleType
+ Amazonka.DeviceFarm.Types.SampleType: pattern SampleType_OPENGL_FPS :: SampleType
+ Amazonka.DeviceFarm.Types.SampleType: pattern SampleType_OPENGL_FRAMES :: SampleType
+ Amazonka.DeviceFarm.Types.SampleType: pattern SampleType_OPENGL_MAX_DRAWTIME :: SampleType
+ Amazonka.DeviceFarm.Types.SampleType: pattern SampleType_OPENGL_MIN_DRAWTIME :: SampleType
+ Amazonka.DeviceFarm.Types.SampleType: pattern SampleType_RX :: SampleType
+ Amazonka.DeviceFarm.Types.SampleType: pattern SampleType_RX_RATE :: SampleType
+ Amazonka.DeviceFarm.Types.SampleType: pattern SampleType_THREADS :: SampleType
+ Amazonka.DeviceFarm.Types.SampleType: pattern SampleType_TX :: SampleType
+ Amazonka.DeviceFarm.Types.SampleType: pattern SampleType_TX_RATE :: SampleType
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: ScheduleRunConfiguration' :: Maybe [Text] -> Maybe BillingMethod -> Maybe CustomerArtifactPaths -> Maybe Text -> Maybe Text -> Maybe Location -> Maybe Text -> Maybe Radios -> Maybe [Text] -> ScheduleRunConfiguration
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: [$sel:auxiliaryApps:ScheduleRunConfiguration'] :: ScheduleRunConfiguration -> Maybe [Text]
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: [$sel:billingMethod:ScheduleRunConfiguration'] :: ScheduleRunConfiguration -> Maybe BillingMethod
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: [$sel:customerArtifactPaths:ScheduleRunConfiguration'] :: ScheduleRunConfiguration -> Maybe CustomerArtifactPaths
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: [$sel:extraDataPackageArn:ScheduleRunConfiguration'] :: ScheduleRunConfiguration -> Maybe Text
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: [$sel:locale:ScheduleRunConfiguration'] :: ScheduleRunConfiguration -> Maybe Text
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: [$sel:location:ScheduleRunConfiguration'] :: ScheduleRunConfiguration -> Maybe Location
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: [$sel:networkProfileArn:ScheduleRunConfiguration'] :: ScheduleRunConfiguration -> Maybe Text
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: [$sel:radios:ScheduleRunConfiguration'] :: ScheduleRunConfiguration -> Maybe Radios
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: [$sel:vpceConfigurationArns:ScheduleRunConfiguration'] :: ScheduleRunConfiguration -> Maybe [Text]
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: data ScheduleRunConfiguration
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.ScheduleRunConfiguration.ScheduleRunConfiguration
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.ScheduleRunConfiguration.ScheduleRunConfiguration
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.ScheduleRunConfiguration.ScheduleRunConfiguration
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.ScheduleRunConfiguration.ScheduleRunConfiguration
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.ScheduleRunConfiguration.ScheduleRunConfiguration
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: instance GHC.Read.Read Amazonka.DeviceFarm.Types.ScheduleRunConfiguration.ScheduleRunConfiguration
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: instance GHC.Show.Show Amazonka.DeviceFarm.Types.ScheduleRunConfiguration.ScheduleRunConfiguration
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: newScheduleRunConfiguration :: ScheduleRunConfiguration
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: scheduleRunConfiguration_auxiliaryApps :: Lens' ScheduleRunConfiguration (Maybe [Text])
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: scheduleRunConfiguration_billingMethod :: Lens' ScheduleRunConfiguration (Maybe BillingMethod)
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: scheduleRunConfiguration_customerArtifactPaths :: Lens' ScheduleRunConfiguration (Maybe CustomerArtifactPaths)
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: scheduleRunConfiguration_extraDataPackageArn :: Lens' ScheduleRunConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: scheduleRunConfiguration_locale :: Lens' ScheduleRunConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: scheduleRunConfiguration_location :: Lens' ScheduleRunConfiguration (Maybe Location)
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: scheduleRunConfiguration_networkProfileArn :: Lens' ScheduleRunConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: scheduleRunConfiguration_radios :: Lens' ScheduleRunConfiguration (Maybe Radios)
+ Amazonka.DeviceFarm.Types.ScheduleRunConfiguration: scheduleRunConfiguration_vpceConfigurationArns :: Lens' ScheduleRunConfiguration (Maybe [Text])
+ Amazonka.DeviceFarm.Types.ScheduleRunTest: ScheduleRunTest' :: Maybe Text -> Maybe (HashMap Text Text) -> Maybe Text -> Maybe Text -> TestType -> ScheduleRunTest
+ Amazonka.DeviceFarm.Types.ScheduleRunTest: [$sel:filter':ScheduleRunTest'] :: ScheduleRunTest -> Maybe Text
+ Amazonka.DeviceFarm.Types.ScheduleRunTest: [$sel:parameters:ScheduleRunTest'] :: ScheduleRunTest -> Maybe (HashMap Text Text)
+ Amazonka.DeviceFarm.Types.ScheduleRunTest: [$sel:testPackageArn:ScheduleRunTest'] :: ScheduleRunTest -> Maybe Text
+ Amazonka.DeviceFarm.Types.ScheduleRunTest: [$sel:testSpecArn:ScheduleRunTest'] :: ScheduleRunTest -> Maybe Text
+ Amazonka.DeviceFarm.Types.ScheduleRunTest: [$sel:type':ScheduleRunTest'] :: ScheduleRunTest -> TestType
+ Amazonka.DeviceFarm.Types.ScheduleRunTest: data ScheduleRunTest
+ Amazonka.DeviceFarm.Types.ScheduleRunTest: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.ScheduleRunTest.ScheduleRunTest
+ Amazonka.DeviceFarm.Types.ScheduleRunTest: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.ScheduleRunTest.ScheduleRunTest
+ Amazonka.DeviceFarm.Types.ScheduleRunTest: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.ScheduleRunTest.ScheduleRunTest
+ Amazonka.DeviceFarm.Types.ScheduleRunTest: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.ScheduleRunTest.ScheduleRunTest
+ Amazonka.DeviceFarm.Types.ScheduleRunTest: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.ScheduleRunTest.ScheduleRunTest
+ Amazonka.DeviceFarm.Types.ScheduleRunTest: instance GHC.Read.Read Amazonka.DeviceFarm.Types.ScheduleRunTest.ScheduleRunTest
+ Amazonka.DeviceFarm.Types.ScheduleRunTest: instance GHC.Show.Show Amazonka.DeviceFarm.Types.ScheduleRunTest.ScheduleRunTest
+ Amazonka.DeviceFarm.Types.ScheduleRunTest: newScheduleRunTest :: TestType -> ScheduleRunTest
+ Amazonka.DeviceFarm.Types.ScheduleRunTest: scheduleRunTest_filter :: Lens' ScheduleRunTest (Maybe Text)
+ Amazonka.DeviceFarm.Types.ScheduleRunTest: scheduleRunTest_parameters :: Lens' ScheduleRunTest (Maybe (HashMap Text Text))
+ Amazonka.DeviceFarm.Types.ScheduleRunTest: scheduleRunTest_testPackageArn :: Lens' ScheduleRunTest (Maybe Text)
+ Amazonka.DeviceFarm.Types.ScheduleRunTest: scheduleRunTest_testSpecArn :: Lens' ScheduleRunTest (Maybe Text)
+ Amazonka.DeviceFarm.Types.ScheduleRunTest: scheduleRunTest_type :: Lens' ScheduleRunTest TestType
+ Amazonka.DeviceFarm.Types.Suite: Suite' :: Maybe Text -> Maybe Counters -> Maybe POSIX -> Maybe DeviceMinutes -> Maybe Text -> Maybe Text -> Maybe ExecutionResult -> Maybe POSIX -> Maybe ExecutionStatus -> Maybe POSIX -> Maybe TestType -> Suite
+ Amazonka.DeviceFarm.Types.Suite: [$sel:arn:Suite'] :: Suite -> Maybe Text
+ Amazonka.DeviceFarm.Types.Suite: [$sel:counters:Suite'] :: Suite -> Maybe Counters
+ Amazonka.DeviceFarm.Types.Suite: [$sel:created:Suite'] :: Suite -> Maybe POSIX
+ Amazonka.DeviceFarm.Types.Suite: [$sel:deviceMinutes:Suite'] :: Suite -> Maybe DeviceMinutes
+ Amazonka.DeviceFarm.Types.Suite: [$sel:message:Suite'] :: Suite -> Maybe Text
+ Amazonka.DeviceFarm.Types.Suite: [$sel:name:Suite'] :: Suite -> Maybe Text
+ Amazonka.DeviceFarm.Types.Suite: [$sel:result:Suite'] :: Suite -> Maybe ExecutionResult
+ Amazonka.DeviceFarm.Types.Suite: [$sel:started:Suite'] :: Suite -> Maybe POSIX
+ Amazonka.DeviceFarm.Types.Suite: [$sel:status:Suite'] :: Suite -> Maybe ExecutionStatus
+ Amazonka.DeviceFarm.Types.Suite: [$sel:stopped:Suite'] :: Suite -> Maybe POSIX
+ Amazonka.DeviceFarm.Types.Suite: [$sel:type':Suite'] :: Suite -> Maybe TestType
+ Amazonka.DeviceFarm.Types.Suite: data Suite
+ Amazonka.DeviceFarm.Types.Suite: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.Suite.Suite
+ Amazonka.DeviceFarm.Types.Suite: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.Suite.Suite
+ Amazonka.DeviceFarm.Types.Suite: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.Suite.Suite
+ Amazonka.DeviceFarm.Types.Suite: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.Suite.Suite
+ Amazonka.DeviceFarm.Types.Suite: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.Suite.Suite
+ Amazonka.DeviceFarm.Types.Suite: instance GHC.Read.Read Amazonka.DeviceFarm.Types.Suite.Suite
+ Amazonka.DeviceFarm.Types.Suite: instance GHC.Show.Show Amazonka.DeviceFarm.Types.Suite.Suite
+ Amazonka.DeviceFarm.Types.Suite: newSuite :: Suite
+ Amazonka.DeviceFarm.Types.Suite: suite_arn :: Lens' Suite (Maybe Text)
+ Amazonka.DeviceFarm.Types.Suite: suite_counters :: Lens' Suite (Maybe Counters)
+ Amazonka.DeviceFarm.Types.Suite: suite_created :: Lens' Suite (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types.Suite: suite_deviceMinutes :: Lens' Suite (Maybe DeviceMinutes)
+ Amazonka.DeviceFarm.Types.Suite: suite_message :: Lens' Suite (Maybe Text)
+ Amazonka.DeviceFarm.Types.Suite: suite_name :: Lens' Suite (Maybe Text)
+ Amazonka.DeviceFarm.Types.Suite: suite_result :: Lens' Suite (Maybe ExecutionResult)
+ Amazonka.DeviceFarm.Types.Suite: suite_started :: Lens' Suite (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types.Suite: suite_status :: Lens' Suite (Maybe ExecutionStatus)
+ Amazonka.DeviceFarm.Types.Suite: suite_stopped :: Lens' Suite (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types.Suite: suite_type :: Lens' Suite (Maybe TestType)
+ Amazonka.DeviceFarm.Types.Tag: Tag' :: Text -> Text -> Tag
+ Amazonka.DeviceFarm.Types.Tag: [$sel:key:Tag'] :: Tag -> Text
+ Amazonka.DeviceFarm.Types.Tag: [$sel:value:Tag'] :: Tag -> Text
+ Amazonka.DeviceFarm.Types.Tag: data Tag
+ Amazonka.DeviceFarm.Types.Tag: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.Tag.Tag
+ Amazonka.DeviceFarm.Types.Tag: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.Tag.Tag
+ Amazonka.DeviceFarm.Types.Tag: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.Tag.Tag
+ Amazonka.DeviceFarm.Types.Tag: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.Tag.Tag
+ Amazonka.DeviceFarm.Types.Tag: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.Tag.Tag
+ Amazonka.DeviceFarm.Types.Tag: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.Tag.Tag
+ Amazonka.DeviceFarm.Types.Tag: instance GHC.Read.Read Amazonka.DeviceFarm.Types.Tag.Tag
+ Amazonka.DeviceFarm.Types.Tag: instance GHC.Show.Show Amazonka.DeviceFarm.Types.Tag.Tag
+ Amazonka.DeviceFarm.Types.Tag: newTag :: Text -> Text -> Tag
+ Amazonka.DeviceFarm.Types.Tag: tag_key :: Lens' Tag Text
+ Amazonka.DeviceFarm.Types.Tag: tag_value :: Lens' Tag Text
+ Amazonka.DeviceFarm.Types.Test: Test' :: Maybe Text -> Maybe Counters -> Maybe POSIX -> Maybe DeviceMinutes -> Maybe Text -> Maybe Text -> Maybe ExecutionResult -> Maybe POSIX -> Maybe ExecutionStatus -> Maybe POSIX -> Maybe TestType -> Test
+ Amazonka.DeviceFarm.Types.Test: [$sel:arn:Test'] :: Test -> Maybe Text
+ Amazonka.DeviceFarm.Types.Test: [$sel:counters:Test'] :: Test -> Maybe Counters
+ Amazonka.DeviceFarm.Types.Test: [$sel:created:Test'] :: Test -> Maybe POSIX
+ Amazonka.DeviceFarm.Types.Test: [$sel:deviceMinutes:Test'] :: Test -> Maybe DeviceMinutes
+ Amazonka.DeviceFarm.Types.Test: [$sel:message:Test'] :: Test -> Maybe Text
+ Amazonka.DeviceFarm.Types.Test: [$sel:name:Test'] :: Test -> Maybe Text
+ Amazonka.DeviceFarm.Types.Test: [$sel:result:Test'] :: Test -> Maybe ExecutionResult
+ Amazonka.DeviceFarm.Types.Test: [$sel:started:Test'] :: Test -> Maybe POSIX
+ Amazonka.DeviceFarm.Types.Test: [$sel:status:Test'] :: Test -> Maybe ExecutionStatus
+ Amazonka.DeviceFarm.Types.Test: [$sel:stopped:Test'] :: Test -> Maybe POSIX
+ Amazonka.DeviceFarm.Types.Test: [$sel:type':Test'] :: Test -> Maybe TestType
+ Amazonka.DeviceFarm.Types.Test: data Test
+ Amazonka.DeviceFarm.Types.Test: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.Test.Test
+ Amazonka.DeviceFarm.Types.Test: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.Test.Test
+ Amazonka.DeviceFarm.Types.Test: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.Test.Test
+ Amazonka.DeviceFarm.Types.Test: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.Test.Test
+ Amazonka.DeviceFarm.Types.Test: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.Test.Test
+ Amazonka.DeviceFarm.Types.Test: instance GHC.Read.Read Amazonka.DeviceFarm.Types.Test.Test
+ Amazonka.DeviceFarm.Types.Test: instance GHC.Show.Show Amazonka.DeviceFarm.Types.Test.Test
+ Amazonka.DeviceFarm.Types.Test: newTest :: Test
+ Amazonka.DeviceFarm.Types.Test: test_arn :: Lens' Test (Maybe Text)
+ Amazonka.DeviceFarm.Types.Test: test_counters :: Lens' Test (Maybe Counters)
+ Amazonka.DeviceFarm.Types.Test: test_created :: Lens' Test (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types.Test: test_deviceMinutes :: Lens' Test (Maybe DeviceMinutes)
+ Amazonka.DeviceFarm.Types.Test: test_message :: Lens' Test (Maybe Text)
+ Amazonka.DeviceFarm.Types.Test: test_name :: Lens' Test (Maybe Text)
+ Amazonka.DeviceFarm.Types.Test: test_result :: Lens' Test (Maybe ExecutionResult)
+ Amazonka.DeviceFarm.Types.Test: test_started :: Lens' Test (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types.Test: test_status :: Lens' Test (Maybe ExecutionStatus)
+ Amazonka.DeviceFarm.Types.Test: test_stopped :: Lens' Test (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types.Test: test_type :: Lens' Test (Maybe TestType)
+ Amazonka.DeviceFarm.Types.TestGridProject: TestGridProject' :: Maybe Text -> Maybe POSIX -> Maybe Text -> Maybe Text -> Maybe TestGridVpcConfig -> TestGridProject
+ Amazonka.DeviceFarm.Types.TestGridProject: [$sel:arn:TestGridProject'] :: TestGridProject -> Maybe Text
+ Amazonka.DeviceFarm.Types.TestGridProject: [$sel:created:TestGridProject'] :: TestGridProject -> Maybe POSIX
+ Amazonka.DeviceFarm.Types.TestGridProject: [$sel:description:TestGridProject'] :: TestGridProject -> Maybe Text
+ Amazonka.DeviceFarm.Types.TestGridProject: [$sel:name:TestGridProject'] :: TestGridProject -> Maybe Text
+ Amazonka.DeviceFarm.Types.TestGridProject: [$sel:vpcConfig:TestGridProject'] :: TestGridProject -> Maybe TestGridVpcConfig
+ Amazonka.DeviceFarm.Types.TestGridProject: data TestGridProject
+ Amazonka.DeviceFarm.Types.TestGridProject: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.TestGridProject.TestGridProject
+ Amazonka.DeviceFarm.Types.TestGridProject: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.TestGridProject.TestGridProject
+ Amazonka.DeviceFarm.Types.TestGridProject: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.TestGridProject.TestGridProject
+ Amazonka.DeviceFarm.Types.TestGridProject: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.TestGridProject.TestGridProject
+ Amazonka.DeviceFarm.Types.TestGridProject: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.TestGridProject.TestGridProject
+ Amazonka.DeviceFarm.Types.TestGridProject: instance GHC.Read.Read Amazonka.DeviceFarm.Types.TestGridProject.TestGridProject
+ Amazonka.DeviceFarm.Types.TestGridProject: instance GHC.Show.Show Amazonka.DeviceFarm.Types.TestGridProject.TestGridProject
+ Amazonka.DeviceFarm.Types.TestGridProject: newTestGridProject :: TestGridProject
+ Amazonka.DeviceFarm.Types.TestGridProject: testGridProject_arn :: Lens' TestGridProject (Maybe Text)
+ Amazonka.DeviceFarm.Types.TestGridProject: testGridProject_created :: Lens' TestGridProject (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types.TestGridProject: testGridProject_description :: Lens' TestGridProject (Maybe Text)
+ Amazonka.DeviceFarm.Types.TestGridProject: testGridProject_name :: Lens' TestGridProject (Maybe Text)
+ Amazonka.DeviceFarm.Types.TestGridProject: testGridProject_vpcConfig :: Lens' TestGridProject (Maybe TestGridVpcConfig)
+ Amazonka.DeviceFarm.Types.TestGridSession: TestGridSession' :: Maybe Text -> Maybe Double -> Maybe POSIX -> Maybe POSIX -> Maybe Text -> Maybe TestGridSessionStatus -> TestGridSession
+ Amazonka.DeviceFarm.Types.TestGridSession: [$sel:arn:TestGridSession'] :: TestGridSession -> Maybe Text
+ Amazonka.DeviceFarm.Types.TestGridSession: [$sel:billingMinutes:TestGridSession'] :: TestGridSession -> Maybe Double
+ Amazonka.DeviceFarm.Types.TestGridSession: [$sel:created:TestGridSession'] :: TestGridSession -> Maybe POSIX
+ Amazonka.DeviceFarm.Types.TestGridSession: [$sel:ended:TestGridSession'] :: TestGridSession -> Maybe POSIX
+ Amazonka.DeviceFarm.Types.TestGridSession: [$sel:seleniumProperties:TestGridSession'] :: TestGridSession -> Maybe Text
+ Amazonka.DeviceFarm.Types.TestGridSession: [$sel:status:TestGridSession'] :: TestGridSession -> Maybe TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridSession: data TestGridSession
+ Amazonka.DeviceFarm.Types.TestGridSession: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.TestGridSession.TestGridSession
+ Amazonka.DeviceFarm.Types.TestGridSession: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.TestGridSession.TestGridSession
+ Amazonka.DeviceFarm.Types.TestGridSession: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.TestGridSession.TestGridSession
+ Amazonka.DeviceFarm.Types.TestGridSession: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.TestGridSession.TestGridSession
+ Amazonka.DeviceFarm.Types.TestGridSession: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.TestGridSession.TestGridSession
+ Amazonka.DeviceFarm.Types.TestGridSession: instance GHC.Read.Read Amazonka.DeviceFarm.Types.TestGridSession.TestGridSession
+ Amazonka.DeviceFarm.Types.TestGridSession: instance GHC.Show.Show Amazonka.DeviceFarm.Types.TestGridSession.TestGridSession
+ Amazonka.DeviceFarm.Types.TestGridSession: newTestGridSession :: TestGridSession
+ Amazonka.DeviceFarm.Types.TestGridSession: testGridSession_arn :: Lens' TestGridSession (Maybe Text)
+ Amazonka.DeviceFarm.Types.TestGridSession: testGridSession_billingMinutes :: Lens' TestGridSession (Maybe Double)
+ Amazonka.DeviceFarm.Types.TestGridSession: testGridSession_created :: Lens' TestGridSession (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types.TestGridSession: testGridSession_ended :: Lens' TestGridSession (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types.TestGridSession: testGridSession_seleniumProperties :: Lens' TestGridSession (Maybe Text)
+ Amazonka.DeviceFarm.Types.TestGridSession: testGridSession_status :: Lens' TestGridSession (Maybe TestGridSessionStatus)
+ Amazonka.DeviceFarm.Types.TestGridSessionAction: TestGridSessionAction' :: Maybe Text -> Maybe Integer -> Maybe Text -> Maybe POSIX -> Maybe Text -> TestGridSessionAction
+ Amazonka.DeviceFarm.Types.TestGridSessionAction: [$sel:action:TestGridSessionAction'] :: TestGridSessionAction -> Maybe Text
+ Amazonka.DeviceFarm.Types.TestGridSessionAction: [$sel:duration:TestGridSessionAction'] :: TestGridSessionAction -> Maybe Integer
+ Amazonka.DeviceFarm.Types.TestGridSessionAction: [$sel:requestMethod:TestGridSessionAction'] :: TestGridSessionAction -> Maybe Text
+ Amazonka.DeviceFarm.Types.TestGridSessionAction: [$sel:started:TestGridSessionAction'] :: TestGridSessionAction -> Maybe POSIX
+ Amazonka.DeviceFarm.Types.TestGridSessionAction: [$sel:statusCode:TestGridSessionAction'] :: TestGridSessionAction -> Maybe Text
+ Amazonka.DeviceFarm.Types.TestGridSessionAction: data TestGridSessionAction
+ Amazonka.DeviceFarm.Types.TestGridSessionAction: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.TestGridSessionAction.TestGridSessionAction
+ Amazonka.DeviceFarm.Types.TestGridSessionAction: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.TestGridSessionAction.TestGridSessionAction
+ Amazonka.DeviceFarm.Types.TestGridSessionAction: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.TestGridSessionAction.TestGridSessionAction
+ Amazonka.DeviceFarm.Types.TestGridSessionAction: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.TestGridSessionAction.TestGridSessionAction
+ Amazonka.DeviceFarm.Types.TestGridSessionAction: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.TestGridSessionAction.TestGridSessionAction
+ Amazonka.DeviceFarm.Types.TestGridSessionAction: instance GHC.Read.Read Amazonka.DeviceFarm.Types.TestGridSessionAction.TestGridSessionAction
+ Amazonka.DeviceFarm.Types.TestGridSessionAction: instance GHC.Show.Show Amazonka.DeviceFarm.Types.TestGridSessionAction.TestGridSessionAction
+ Amazonka.DeviceFarm.Types.TestGridSessionAction: newTestGridSessionAction :: TestGridSessionAction
+ Amazonka.DeviceFarm.Types.TestGridSessionAction: testGridSessionAction_action :: Lens' TestGridSessionAction (Maybe Text)
+ Amazonka.DeviceFarm.Types.TestGridSessionAction: testGridSessionAction_duration :: Lens' TestGridSessionAction (Maybe Integer)
+ Amazonka.DeviceFarm.Types.TestGridSessionAction: testGridSessionAction_requestMethod :: Lens' TestGridSessionAction (Maybe Text)
+ Amazonka.DeviceFarm.Types.TestGridSessionAction: testGridSessionAction_started :: Lens' TestGridSessionAction (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types.TestGridSessionAction: testGridSessionAction_statusCode :: Lens' TestGridSessionAction (Maybe Text)
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifact: TestGridSessionArtifact' :: Maybe Text -> Maybe TestGridSessionArtifactType -> Maybe (Sensitive Text) -> TestGridSessionArtifact
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifact: [$sel:filename:TestGridSessionArtifact'] :: TestGridSessionArtifact -> Maybe Text
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifact: [$sel:type':TestGridSessionArtifact'] :: TestGridSessionArtifact -> Maybe TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifact: [$sel:url:TestGridSessionArtifact'] :: TestGridSessionArtifact -> Maybe (Sensitive Text)
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifact: data TestGridSessionArtifact
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifact: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.TestGridSessionArtifact.TestGridSessionArtifact
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifact: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.TestGridSessionArtifact.TestGridSessionArtifact
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifact: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.TestGridSessionArtifact.TestGridSessionArtifact
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifact: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.TestGridSessionArtifact.TestGridSessionArtifact
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifact: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.TestGridSessionArtifact.TestGridSessionArtifact
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifact: instance GHC.Show.Show Amazonka.DeviceFarm.Types.TestGridSessionArtifact.TestGridSessionArtifact
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifact: newTestGridSessionArtifact :: TestGridSessionArtifact
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifact: testGridSessionArtifact_filename :: Lens' TestGridSessionArtifact (Maybe Text)
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifact: testGridSessionArtifact_type :: Lens' TestGridSessionArtifact (Maybe TestGridSessionArtifactType)
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifact: testGridSessionArtifact_url :: Lens' TestGridSessionArtifact (Maybe Text)
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory: TestGridSessionArtifactCategory' :: Text -> TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory: [fromTestGridSessionArtifactCategory] :: TestGridSessionArtifactCategory -> Text
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory.TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory.TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory.TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory.TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory.TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory.TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory.TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory.TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory.TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory.TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory.TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory.TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory.TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory.TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory.TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory.TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory.TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory: instance GHC.Read.Read Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory.TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory: instance GHC.Show.Show Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory.TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory: newtype TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory: pattern TestGridSessionArtifactCategory_LOG :: TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory: pattern TestGridSessionArtifactCategory_VIDEO :: TestGridSessionArtifactCategory
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: TestGridSessionArtifactType' :: Text -> TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: [fromTestGridSessionArtifactType] :: TestGridSessionArtifactType -> Text
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.TestGridSessionArtifactType.TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.TestGridSessionArtifactType.TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.TestGridSessionArtifactType.TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.TestGridSessionArtifactType.TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.TestGridSessionArtifactType.TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.TestGridSessionArtifactType.TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.TestGridSessionArtifactType.TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.TestGridSessionArtifactType.TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.TestGridSessionArtifactType.TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.TestGridSessionArtifactType.TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.TestGridSessionArtifactType.TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.TestGridSessionArtifactType.TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.TestGridSessionArtifactType.TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.TestGridSessionArtifactType.TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.TestGridSessionArtifactType.TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.TestGridSessionArtifactType.TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.TestGridSessionArtifactType.TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: instance GHC.Read.Read Amazonka.DeviceFarm.Types.TestGridSessionArtifactType.TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: instance GHC.Show.Show Amazonka.DeviceFarm.Types.TestGridSessionArtifactType.TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: newtype TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: pattern TestGridSessionArtifactType_SELENIUM_LOG :: TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: pattern TestGridSessionArtifactType_UNKNOWN :: TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionArtifactType: pattern TestGridSessionArtifactType_VIDEO :: TestGridSessionArtifactType
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: TestGridSessionStatus' :: Text -> TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: [fromTestGridSessionStatus] :: TestGridSessionStatus -> Text
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.TestGridSessionStatus.TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.TestGridSessionStatus.TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.TestGridSessionStatus.TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.TestGridSessionStatus.TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.TestGridSessionStatus.TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.TestGridSessionStatus.TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.TestGridSessionStatus.TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.TestGridSessionStatus.TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.TestGridSessionStatus.TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.TestGridSessionStatus.TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.TestGridSessionStatus.TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.TestGridSessionStatus.TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.TestGridSessionStatus.TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.TestGridSessionStatus.TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.TestGridSessionStatus.TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.TestGridSessionStatus.TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.TestGridSessionStatus.TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: instance GHC.Read.Read Amazonka.DeviceFarm.Types.TestGridSessionStatus.TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: instance GHC.Show.Show Amazonka.DeviceFarm.Types.TestGridSessionStatus.TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: newtype TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: pattern TestGridSessionStatus_ACTIVE :: TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: pattern TestGridSessionStatus_CLOSED :: TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridSessionStatus: pattern TestGridSessionStatus_ERRORED :: TestGridSessionStatus
+ Amazonka.DeviceFarm.Types.TestGridVpcConfig: TestGridVpcConfig' :: NonEmpty Text -> NonEmpty Text -> Text -> TestGridVpcConfig
+ Amazonka.DeviceFarm.Types.TestGridVpcConfig: [$sel:securityGroupIds:TestGridVpcConfig'] :: TestGridVpcConfig -> NonEmpty Text
+ Amazonka.DeviceFarm.Types.TestGridVpcConfig: [$sel:subnetIds:TestGridVpcConfig'] :: TestGridVpcConfig -> NonEmpty Text
+ Amazonka.DeviceFarm.Types.TestGridVpcConfig: [$sel:vpcId:TestGridVpcConfig'] :: TestGridVpcConfig -> Text
+ Amazonka.DeviceFarm.Types.TestGridVpcConfig: data TestGridVpcConfig
+ Amazonka.DeviceFarm.Types.TestGridVpcConfig: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.TestGridVpcConfig.TestGridVpcConfig
+ Amazonka.DeviceFarm.Types.TestGridVpcConfig: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.TestGridVpcConfig.TestGridVpcConfig
+ Amazonka.DeviceFarm.Types.TestGridVpcConfig: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.TestGridVpcConfig.TestGridVpcConfig
+ Amazonka.DeviceFarm.Types.TestGridVpcConfig: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.TestGridVpcConfig.TestGridVpcConfig
+ Amazonka.DeviceFarm.Types.TestGridVpcConfig: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.TestGridVpcConfig.TestGridVpcConfig
+ Amazonka.DeviceFarm.Types.TestGridVpcConfig: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.TestGridVpcConfig.TestGridVpcConfig
+ Amazonka.DeviceFarm.Types.TestGridVpcConfig: instance GHC.Read.Read Amazonka.DeviceFarm.Types.TestGridVpcConfig.TestGridVpcConfig
+ Amazonka.DeviceFarm.Types.TestGridVpcConfig: instance GHC.Show.Show Amazonka.DeviceFarm.Types.TestGridVpcConfig.TestGridVpcConfig
+ Amazonka.DeviceFarm.Types.TestGridVpcConfig: newTestGridVpcConfig :: NonEmpty Text -> NonEmpty Text -> Text -> TestGridVpcConfig
+ Amazonka.DeviceFarm.Types.TestGridVpcConfig: testGridVpcConfig_securityGroupIds :: Lens' TestGridVpcConfig (NonEmpty Text)
+ Amazonka.DeviceFarm.Types.TestGridVpcConfig: testGridVpcConfig_subnetIds :: Lens' TestGridVpcConfig (NonEmpty Text)
+ Amazonka.DeviceFarm.Types.TestGridVpcConfig: testGridVpcConfig_vpcId :: Lens' TestGridVpcConfig Text
+ Amazonka.DeviceFarm.Types.TestType: TestType' :: Text -> TestType
+ Amazonka.DeviceFarm.Types.TestType: [fromTestType] :: TestType -> Text
+ Amazonka.DeviceFarm.Types.TestType: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.TestType.TestType
+ Amazonka.DeviceFarm.Types.TestType: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.TestType.TestType
+ Amazonka.DeviceFarm.Types.TestType: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.TestType.TestType
+ Amazonka.DeviceFarm.Types.TestType: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.TestType.TestType
+ Amazonka.DeviceFarm.Types.TestType: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.TestType.TestType
+ Amazonka.DeviceFarm.Types.TestType: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.TestType.TestType
+ Amazonka.DeviceFarm.Types.TestType: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.TestType.TestType
+ Amazonka.DeviceFarm.Types.TestType: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.TestType.TestType
+ Amazonka.DeviceFarm.Types.TestType: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.TestType.TestType
+ Amazonka.DeviceFarm.Types.TestType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.TestType.TestType
+ Amazonka.DeviceFarm.Types.TestType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.TestType.TestType
+ Amazonka.DeviceFarm.Types.TestType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.TestType.TestType
+ Amazonka.DeviceFarm.Types.TestType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.TestType.TestType
+ Amazonka.DeviceFarm.Types.TestType: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.TestType.TestType
+ Amazonka.DeviceFarm.Types.TestType: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.TestType.TestType
+ Amazonka.DeviceFarm.Types.TestType: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.TestType.TestType
+ Amazonka.DeviceFarm.Types.TestType: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.TestType.TestType
+ Amazonka.DeviceFarm.Types.TestType: instance GHC.Read.Read Amazonka.DeviceFarm.Types.TestType.TestType
+ Amazonka.DeviceFarm.Types.TestType: instance GHC.Show.Show Amazonka.DeviceFarm.Types.TestType.TestType
+ Amazonka.DeviceFarm.Types.TestType: newtype TestType
+ Amazonka.DeviceFarm.Types.TestType: pattern TestType_APPIUM_JAVA_JUNIT :: TestType
+ Amazonka.DeviceFarm.Types.TestType: pattern TestType_APPIUM_JAVA_TESTNG :: TestType
+ Amazonka.DeviceFarm.Types.TestType: pattern TestType_APPIUM_NODE :: TestType
+ Amazonka.DeviceFarm.Types.TestType: pattern TestType_APPIUM_PYTHON :: TestType
+ Amazonka.DeviceFarm.Types.TestType: pattern TestType_APPIUM_RUBY :: TestType
+ Amazonka.DeviceFarm.Types.TestType: pattern TestType_APPIUM_WEB_JAVA_JUNIT :: TestType
+ Amazonka.DeviceFarm.Types.TestType: pattern TestType_APPIUM_WEB_JAVA_TESTNG :: TestType
+ Amazonka.DeviceFarm.Types.TestType: pattern TestType_APPIUM_WEB_NODE :: TestType
+ Amazonka.DeviceFarm.Types.TestType: pattern TestType_APPIUM_WEB_PYTHON :: TestType
+ Amazonka.DeviceFarm.Types.TestType: pattern TestType_APPIUM_WEB_RUBY :: TestType
+ Amazonka.DeviceFarm.Types.TestType: pattern TestType_BUILTIN_EXPLORER :: TestType
+ Amazonka.DeviceFarm.Types.TestType: pattern TestType_BUILTIN_FUZZ :: TestType
+ Amazonka.DeviceFarm.Types.TestType: pattern TestType_CALABASH :: TestType
+ Amazonka.DeviceFarm.Types.TestType: pattern TestType_INSTRUMENTATION :: TestType
+ Amazonka.DeviceFarm.Types.TestType: pattern TestType_REMOTE_ACCESS_RECORD :: TestType
+ Amazonka.DeviceFarm.Types.TestType: pattern TestType_REMOTE_ACCESS_REPLAY :: TestType
+ Amazonka.DeviceFarm.Types.TestType: pattern TestType_UIAUTOMATION :: TestType
+ Amazonka.DeviceFarm.Types.TestType: pattern TestType_UIAUTOMATOR :: TestType
+ Amazonka.DeviceFarm.Types.TestType: pattern TestType_WEB_PERFORMANCE_PROFILE :: TestType
+ Amazonka.DeviceFarm.Types.TestType: pattern TestType_XCTEST :: TestType
+ Amazonka.DeviceFarm.Types.TestType: pattern TestType_XCTEST_UI :: TestType
+ Amazonka.DeviceFarm.Types.TrialMinutes: TrialMinutes' :: Maybe Double -> Maybe Double -> TrialMinutes
+ Amazonka.DeviceFarm.Types.TrialMinutes: [$sel:remaining:TrialMinutes'] :: TrialMinutes -> Maybe Double
+ Amazonka.DeviceFarm.Types.TrialMinutes: [$sel:total:TrialMinutes'] :: TrialMinutes -> Maybe Double
+ Amazonka.DeviceFarm.Types.TrialMinutes: data TrialMinutes
+ Amazonka.DeviceFarm.Types.TrialMinutes: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.TrialMinutes.TrialMinutes
+ Amazonka.DeviceFarm.Types.TrialMinutes: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.TrialMinutes.TrialMinutes
+ Amazonka.DeviceFarm.Types.TrialMinutes: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.TrialMinutes.TrialMinutes
+ Amazonka.DeviceFarm.Types.TrialMinutes: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.TrialMinutes.TrialMinutes
+ Amazonka.DeviceFarm.Types.TrialMinutes: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.TrialMinutes.TrialMinutes
+ Amazonka.DeviceFarm.Types.TrialMinutes: instance GHC.Read.Read Amazonka.DeviceFarm.Types.TrialMinutes.TrialMinutes
+ Amazonka.DeviceFarm.Types.TrialMinutes: instance GHC.Show.Show Amazonka.DeviceFarm.Types.TrialMinutes.TrialMinutes
+ Amazonka.DeviceFarm.Types.TrialMinutes: newTrialMinutes :: TrialMinutes
+ Amazonka.DeviceFarm.Types.TrialMinutes: trialMinutes_remaining :: Lens' TrialMinutes (Maybe Double)
+ Amazonka.DeviceFarm.Types.TrialMinutes: trialMinutes_total :: Lens' TrialMinutes (Maybe Double)
+ Amazonka.DeviceFarm.Types.UniqueProblem: UniqueProblem' :: Maybe Text -> Maybe [Problem] -> UniqueProblem
+ Amazonka.DeviceFarm.Types.UniqueProblem: [$sel:message:UniqueProblem'] :: UniqueProblem -> Maybe Text
+ Amazonka.DeviceFarm.Types.UniqueProblem: [$sel:problems:UniqueProblem'] :: UniqueProblem -> Maybe [Problem]
+ Amazonka.DeviceFarm.Types.UniqueProblem: data UniqueProblem
+ Amazonka.DeviceFarm.Types.UniqueProblem: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.UniqueProblem.UniqueProblem
+ Amazonka.DeviceFarm.Types.UniqueProblem: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.UniqueProblem.UniqueProblem
+ Amazonka.DeviceFarm.Types.UniqueProblem: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.UniqueProblem.UniqueProblem
+ Amazonka.DeviceFarm.Types.UniqueProblem: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.UniqueProblem.UniqueProblem
+ Amazonka.DeviceFarm.Types.UniqueProblem: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.UniqueProblem.UniqueProblem
+ Amazonka.DeviceFarm.Types.UniqueProblem: instance GHC.Read.Read Amazonka.DeviceFarm.Types.UniqueProblem.UniqueProblem
+ Amazonka.DeviceFarm.Types.UniqueProblem: instance GHC.Show.Show Amazonka.DeviceFarm.Types.UniqueProblem.UniqueProblem
+ Amazonka.DeviceFarm.Types.UniqueProblem: newUniqueProblem :: UniqueProblem
+ Amazonka.DeviceFarm.Types.UniqueProblem: uniqueProblem_message :: Lens' UniqueProblem (Maybe Text)
+ Amazonka.DeviceFarm.Types.UniqueProblem: uniqueProblem_problems :: Lens' UniqueProblem (Maybe [Problem])
+ Amazonka.DeviceFarm.Types.Upload: Upload' :: Maybe Text -> Maybe UploadCategory -> Maybe Text -> Maybe POSIX -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe UploadStatus -> Maybe UploadType -> Maybe (Sensitive Text) -> Upload
+ Amazonka.DeviceFarm.Types.Upload: [$sel:arn:Upload'] :: Upload -> Maybe Text
+ Amazonka.DeviceFarm.Types.Upload: [$sel:category:Upload'] :: Upload -> Maybe UploadCategory
+ Amazonka.DeviceFarm.Types.Upload: [$sel:contentType:Upload'] :: Upload -> Maybe Text
+ Amazonka.DeviceFarm.Types.Upload: [$sel:created:Upload'] :: Upload -> Maybe POSIX
+ Amazonka.DeviceFarm.Types.Upload: [$sel:message:Upload'] :: Upload -> Maybe Text
+ Amazonka.DeviceFarm.Types.Upload: [$sel:metadata:Upload'] :: Upload -> Maybe Text
+ Amazonka.DeviceFarm.Types.Upload: [$sel:name:Upload'] :: Upload -> Maybe Text
+ Amazonka.DeviceFarm.Types.Upload: [$sel:status:Upload'] :: Upload -> Maybe UploadStatus
+ Amazonka.DeviceFarm.Types.Upload: [$sel:type':Upload'] :: Upload -> Maybe UploadType
+ Amazonka.DeviceFarm.Types.Upload: [$sel:url:Upload'] :: Upload -> Maybe (Sensitive Text)
+ Amazonka.DeviceFarm.Types.Upload: data Upload
+ Amazonka.DeviceFarm.Types.Upload: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.Upload.Upload
+ Amazonka.DeviceFarm.Types.Upload: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.Upload.Upload
+ Amazonka.DeviceFarm.Types.Upload: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.Upload.Upload
+ Amazonka.DeviceFarm.Types.Upload: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.Upload.Upload
+ Amazonka.DeviceFarm.Types.Upload: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.Upload.Upload
+ Amazonka.DeviceFarm.Types.Upload: instance GHC.Show.Show Amazonka.DeviceFarm.Types.Upload.Upload
+ Amazonka.DeviceFarm.Types.Upload: newUpload :: Upload
+ Amazonka.DeviceFarm.Types.Upload: upload_arn :: Lens' Upload (Maybe Text)
+ Amazonka.DeviceFarm.Types.Upload: upload_category :: Lens' Upload (Maybe UploadCategory)
+ Amazonka.DeviceFarm.Types.Upload: upload_contentType :: Lens' Upload (Maybe Text)
+ Amazonka.DeviceFarm.Types.Upload: upload_created :: Lens' Upload (Maybe UTCTime)
+ Amazonka.DeviceFarm.Types.Upload: upload_message :: Lens' Upload (Maybe Text)
+ Amazonka.DeviceFarm.Types.Upload: upload_metadata :: Lens' Upload (Maybe Text)
+ Amazonka.DeviceFarm.Types.Upload: upload_name :: Lens' Upload (Maybe Text)
+ Amazonka.DeviceFarm.Types.Upload: upload_status :: Lens' Upload (Maybe UploadStatus)
+ Amazonka.DeviceFarm.Types.Upload: upload_type :: Lens' Upload (Maybe UploadType)
+ Amazonka.DeviceFarm.Types.Upload: upload_url :: Lens' Upload (Maybe Text)
+ Amazonka.DeviceFarm.Types.UploadCategory: UploadCategory' :: Text -> UploadCategory
+ Amazonka.DeviceFarm.Types.UploadCategory: [fromUploadCategory] :: UploadCategory -> Text
+ Amazonka.DeviceFarm.Types.UploadCategory: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.UploadCategory.UploadCategory
+ Amazonka.DeviceFarm.Types.UploadCategory: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.UploadCategory.UploadCategory
+ Amazonka.DeviceFarm.Types.UploadCategory: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.UploadCategory.UploadCategory
+ Amazonka.DeviceFarm.Types.UploadCategory: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.UploadCategory.UploadCategory
+ Amazonka.DeviceFarm.Types.UploadCategory: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.UploadCategory.UploadCategory
+ Amazonka.DeviceFarm.Types.UploadCategory: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.UploadCategory.UploadCategory
+ Amazonka.DeviceFarm.Types.UploadCategory: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.UploadCategory.UploadCategory
+ Amazonka.DeviceFarm.Types.UploadCategory: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.UploadCategory.UploadCategory
+ Amazonka.DeviceFarm.Types.UploadCategory: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.UploadCategory.UploadCategory
+ Amazonka.DeviceFarm.Types.UploadCategory: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.UploadCategory.UploadCategory
+ Amazonka.DeviceFarm.Types.UploadCategory: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.UploadCategory.UploadCategory
+ Amazonka.DeviceFarm.Types.UploadCategory: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.UploadCategory.UploadCategory
+ Amazonka.DeviceFarm.Types.UploadCategory: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.UploadCategory.UploadCategory
+ Amazonka.DeviceFarm.Types.UploadCategory: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.UploadCategory.UploadCategory
+ Amazonka.DeviceFarm.Types.UploadCategory: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.UploadCategory.UploadCategory
+ Amazonka.DeviceFarm.Types.UploadCategory: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.UploadCategory.UploadCategory
+ Amazonka.DeviceFarm.Types.UploadCategory: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.UploadCategory.UploadCategory
+ Amazonka.DeviceFarm.Types.UploadCategory: instance GHC.Read.Read Amazonka.DeviceFarm.Types.UploadCategory.UploadCategory
+ Amazonka.DeviceFarm.Types.UploadCategory: instance GHC.Show.Show Amazonka.DeviceFarm.Types.UploadCategory.UploadCategory
+ Amazonka.DeviceFarm.Types.UploadCategory: newtype UploadCategory
+ Amazonka.DeviceFarm.Types.UploadCategory: pattern UploadCategory_CURATED :: UploadCategory
+ Amazonka.DeviceFarm.Types.UploadCategory: pattern UploadCategory_PRIVATE :: UploadCategory
+ Amazonka.DeviceFarm.Types.UploadStatus: UploadStatus' :: Text -> UploadStatus
+ Amazonka.DeviceFarm.Types.UploadStatus: [fromUploadStatus] :: UploadStatus -> Text
+ Amazonka.DeviceFarm.Types.UploadStatus: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.UploadStatus.UploadStatus
+ Amazonka.DeviceFarm.Types.UploadStatus: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.UploadStatus.UploadStatus
+ Amazonka.DeviceFarm.Types.UploadStatus: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.UploadStatus.UploadStatus
+ Amazonka.DeviceFarm.Types.UploadStatus: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.UploadStatus.UploadStatus
+ Amazonka.DeviceFarm.Types.UploadStatus: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.UploadStatus.UploadStatus
+ Amazonka.DeviceFarm.Types.UploadStatus: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.UploadStatus.UploadStatus
+ Amazonka.DeviceFarm.Types.UploadStatus: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.UploadStatus.UploadStatus
+ Amazonka.DeviceFarm.Types.UploadStatus: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.UploadStatus.UploadStatus
+ Amazonka.DeviceFarm.Types.UploadStatus: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.UploadStatus.UploadStatus
+ Amazonka.DeviceFarm.Types.UploadStatus: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.UploadStatus.UploadStatus
+ Amazonka.DeviceFarm.Types.UploadStatus: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.UploadStatus.UploadStatus
+ Amazonka.DeviceFarm.Types.UploadStatus: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.UploadStatus.UploadStatus
+ Amazonka.DeviceFarm.Types.UploadStatus: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.UploadStatus.UploadStatus
+ Amazonka.DeviceFarm.Types.UploadStatus: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.UploadStatus.UploadStatus
+ Amazonka.DeviceFarm.Types.UploadStatus: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.UploadStatus.UploadStatus
+ Amazonka.DeviceFarm.Types.UploadStatus: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.UploadStatus.UploadStatus
+ Amazonka.DeviceFarm.Types.UploadStatus: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.UploadStatus.UploadStatus
+ Amazonka.DeviceFarm.Types.UploadStatus: instance GHC.Read.Read Amazonka.DeviceFarm.Types.UploadStatus.UploadStatus
+ Amazonka.DeviceFarm.Types.UploadStatus: instance GHC.Show.Show Amazonka.DeviceFarm.Types.UploadStatus.UploadStatus
+ Amazonka.DeviceFarm.Types.UploadStatus: newtype UploadStatus
+ Amazonka.DeviceFarm.Types.UploadStatus: pattern UploadStatus_FAILED :: UploadStatus
+ Amazonka.DeviceFarm.Types.UploadStatus: pattern UploadStatus_INITIALIZED :: UploadStatus
+ Amazonka.DeviceFarm.Types.UploadStatus: pattern UploadStatus_PROCESSING :: UploadStatus
+ Amazonka.DeviceFarm.Types.UploadStatus: pattern UploadStatus_SUCCEEDED :: UploadStatus
+ Amazonka.DeviceFarm.Types.UploadType: UploadType' :: Text -> UploadType
+ Amazonka.DeviceFarm.Types.UploadType: [fromUploadType] :: UploadType -> Text
+ Amazonka.DeviceFarm.Types.UploadType: instance Amazonka.Data.ByteString.ToByteString Amazonka.DeviceFarm.Types.UploadType.UploadType
+ Amazonka.DeviceFarm.Types.UploadType: instance Amazonka.Data.Headers.ToHeader Amazonka.DeviceFarm.Types.UploadType.UploadType
+ Amazonka.DeviceFarm.Types.UploadType: instance Amazonka.Data.Log.ToLog Amazonka.DeviceFarm.Types.UploadType.UploadType
+ Amazonka.DeviceFarm.Types.UploadType: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.Types.UploadType.UploadType
+ Amazonka.DeviceFarm.Types.UploadType: instance Amazonka.Data.Text.FromText Amazonka.DeviceFarm.Types.UploadType.UploadType
+ Amazonka.DeviceFarm.Types.UploadType: instance Amazonka.Data.Text.ToText Amazonka.DeviceFarm.Types.UploadType.UploadType
+ Amazonka.DeviceFarm.Types.UploadType: instance Amazonka.Data.XML.FromXML Amazonka.DeviceFarm.Types.UploadType.UploadType
+ Amazonka.DeviceFarm.Types.UploadType: instance Amazonka.Data.XML.ToXML Amazonka.DeviceFarm.Types.UploadType.UploadType
+ Amazonka.DeviceFarm.Types.UploadType: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.UploadType.UploadType
+ Amazonka.DeviceFarm.Types.UploadType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.UploadType.UploadType
+ Amazonka.DeviceFarm.Types.UploadType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DeviceFarm.Types.UploadType.UploadType
+ Amazonka.DeviceFarm.Types.UploadType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.UploadType.UploadType
+ Amazonka.DeviceFarm.Types.UploadType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DeviceFarm.Types.UploadType.UploadType
+ Amazonka.DeviceFarm.Types.UploadType: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.UploadType.UploadType
+ Amazonka.DeviceFarm.Types.UploadType: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.UploadType.UploadType
+ Amazonka.DeviceFarm.Types.UploadType: instance GHC.Classes.Ord Amazonka.DeviceFarm.Types.UploadType.UploadType
+ Amazonka.DeviceFarm.Types.UploadType: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.UploadType.UploadType
+ Amazonka.DeviceFarm.Types.UploadType: instance GHC.Read.Read Amazonka.DeviceFarm.Types.UploadType.UploadType
+ Amazonka.DeviceFarm.Types.UploadType: instance GHC.Show.Show Amazonka.DeviceFarm.Types.UploadType.UploadType
+ Amazonka.DeviceFarm.Types.UploadType: newtype UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_ANDROID_APP :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_APPIUM_JAVA_JUNIT_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_APPIUM_JAVA_JUNIT_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_APPIUM_JAVA_TESTNG_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_APPIUM_JAVA_TESTNG_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_APPIUM_NODE_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_APPIUM_NODE_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_APPIUM_PYTHON_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_APPIUM_PYTHON_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_APPIUM_RUBY_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_APPIUM_RUBY_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_APPIUM_WEB_JAVA_JUNIT_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_APPIUM_WEB_JAVA_TESTNG_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_APPIUM_WEB_NODE_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_APPIUM_WEB_NODE_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_APPIUM_WEB_PYTHON_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_APPIUM_WEB_PYTHON_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_APPIUM_WEB_RUBY_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_APPIUM_WEB_RUBY_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_CALABASH_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_EXTERNAL_DATA :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_INSTRUMENTATION_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_INSTRUMENTATION_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_IOS_APP :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_UIAUTOMATION_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_UIAUTOMATOR_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_WEB_APP :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_XCTEST_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_XCTEST_UI_TEST_PACKAGE :: UploadType
+ Amazonka.DeviceFarm.Types.UploadType: pattern UploadType_XCTEST_UI_TEST_SPEC :: UploadType
+ Amazonka.DeviceFarm.Types.VPCEConfiguration: VPCEConfiguration' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> VPCEConfiguration
+ Amazonka.DeviceFarm.Types.VPCEConfiguration: [$sel:arn:VPCEConfiguration'] :: VPCEConfiguration -> Maybe Text
+ Amazonka.DeviceFarm.Types.VPCEConfiguration: [$sel:serviceDnsName:VPCEConfiguration'] :: VPCEConfiguration -> Maybe Text
+ Amazonka.DeviceFarm.Types.VPCEConfiguration: [$sel:vpceConfigurationDescription:VPCEConfiguration'] :: VPCEConfiguration -> Maybe Text
+ Amazonka.DeviceFarm.Types.VPCEConfiguration: [$sel:vpceConfigurationName:VPCEConfiguration'] :: VPCEConfiguration -> Maybe Text
+ Amazonka.DeviceFarm.Types.VPCEConfiguration: [$sel:vpceServiceName:VPCEConfiguration'] :: VPCEConfiguration -> Maybe Text
+ Amazonka.DeviceFarm.Types.VPCEConfiguration: data VPCEConfiguration
+ Amazonka.DeviceFarm.Types.VPCEConfiguration: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.VPCEConfiguration.VPCEConfiguration
+ Amazonka.DeviceFarm.Types.VPCEConfiguration: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.VPCEConfiguration.VPCEConfiguration
+ Amazonka.DeviceFarm.Types.VPCEConfiguration: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.VPCEConfiguration.VPCEConfiguration
+ Amazonka.DeviceFarm.Types.VPCEConfiguration: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.VPCEConfiguration.VPCEConfiguration
+ Amazonka.DeviceFarm.Types.VPCEConfiguration: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.VPCEConfiguration.VPCEConfiguration
+ Amazonka.DeviceFarm.Types.VPCEConfiguration: instance GHC.Read.Read Amazonka.DeviceFarm.Types.VPCEConfiguration.VPCEConfiguration
+ Amazonka.DeviceFarm.Types.VPCEConfiguration: instance GHC.Show.Show Amazonka.DeviceFarm.Types.VPCEConfiguration.VPCEConfiguration
+ Amazonka.DeviceFarm.Types.VPCEConfiguration: newVPCEConfiguration :: VPCEConfiguration
+ Amazonka.DeviceFarm.Types.VPCEConfiguration: vPCEConfiguration_arn :: Lens' VPCEConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Types.VPCEConfiguration: vPCEConfiguration_serviceDnsName :: Lens' VPCEConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Types.VPCEConfiguration: vPCEConfiguration_vpceConfigurationDescription :: Lens' VPCEConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Types.VPCEConfiguration: vPCEConfiguration_vpceConfigurationName :: Lens' VPCEConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Types.VPCEConfiguration: vPCEConfiguration_vpceServiceName :: Lens' VPCEConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.Types.VpcConfig: VpcConfig' :: NonEmpty Text -> NonEmpty Text -> Text -> VpcConfig
+ Amazonka.DeviceFarm.Types.VpcConfig: [$sel:securityGroupIds:VpcConfig'] :: VpcConfig -> NonEmpty Text
+ Amazonka.DeviceFarm.Types.VpcConfig: [$sel:subnetIds:VpcConfig'] :: VpcConfig -> NonEmpty Text
+ Amazonka.DeviceFarm.Types.VpcConfig: [$sel:vpcId:VpcConfig'] :: VpcConfig -> Text
+ Amazonka.DeviceFarm.Types.VpcConfig: data VpcConfig
+ Amazonka.DeviceFarm.Types.VpcConfig: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.Types.VpcConfig.VpcConfig
+ Amazonka.DeviceFarm.Types.VpcConfig: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DeviceFarm.Types.VpcConfig.VpcConfig
+ Amazonka.DeviceFarm.Types.VpcConfig: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.Types.VpcConfig.VpcConfig
+ Amazonka.DeviceFarm.Types.VpcConfig: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.Types.VpcConfig.VpcConfig
+ Amazonka.DeviceFarm.Types.VpcConfig: instance GHC.Classes.Eq Amazonka.DeviceFarm.Types.VpcConfig.VpcConfig
+ Amazonka.DeviceFarm.Types.VpcConfig: instance GHC.Generics.Generic Amazonka.DeviceFarm.Types.VpcConfig.VpcConfig
+ Amazonka.DeviceFarm.Types.VpcConfig: instance GHC.Read.Read Amazonka.DeviceFarm.Types.VpcConfig.VpcConfig
+ Amazonka.DeviceFarm.Types.VpcConfig: instance GHC.Show.Show Amazonka.DeviceFarm.Types.VpcConfig.VpcConfig
+ Amazonka.DeviceFarm.Types.VpcConfig: newVpcConfig :: NonEmpty Text -> NonEmpty Text -> Text -> VpcConfig
+ Amazonka.DeviceFarm.Types.VpcConfig: vpcConfig_securityGroupIds :: Lens' VpcConfig (NonEmpty Text)
+ Amazonka.DeviceFarm.Types.VpcConfig: vpcConfig_subnetIds :: Lens' VpcConfig (NonEmpty Text)
+ Amazonka.DeviceFarm.Types.VpcConfig: vpcConfig_vpcId :: Lens' VpcConfig Text
+ Amazonka.DeviceFarm.UntagResource: UntagResource' :: Text -> [Text] -> UntagResource
+ Amazonka.DeviceFarm.UntagResource: UntagResourceResponse' :: Int -> UntagResourceResponse
+ Amazonka.DeviceFarm.UntagResource: [$sel:httpStatus:UntagResourceResponse'] :: UntagResourceResponse -> Int
+ Amazonka.DeviceFarm.UntagResource: [$sel:resourceARN:UntagResource'] :: UntagResource -> Text
+ Amazonka.DeviceFarm.UntagResource: [$sel:tagKeys:UntagResource'] :: UntagResource -> [Text]
+ Amazonka.DeviceFarm.UntagResource: data UntagResource
+ Amazonka.DeviceFarm.UntagResource: data UntagResourceResponse
+ Amazonka.DeviceFarm.UntagResource: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.UntagResource.UntagResource
+ Amazonka.DeviceFarm.UntagResource: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.UntagResource.UntagResource
+ Amazonka.DeviceFarm.UntagResource: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.UntagResource.UntagResource
+ Amazonka.DeviceFarm.UntagResource: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.UntagResource.UntagResource
+ Amazonka.DeviceFarm.UntagResource: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.UntagResource.UntagResource
+ Amazonka.DeviceFarm.UntagResource: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.UntagResource.UntagResourceResponse
+ Amazonka.DeviceFarm.UntagResource: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.UntagResource.UntagResource
+ Amazonka.DeviceFarm.UntagResource: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.UntagResource.UntagResource
+ Amazonka.DeviceFarm.UntagResource: instance GHC.Classes.Eq Amazonka.DeviceFarm.UntagResource.UntagResource
+ Amazonka.DeviceFarm.UntagResource: instance GHC.Classes.Eq Amazonka.DeviceFarm.UntagResource.UntagResourceResponse
+ Amazonka.DeviceFarm.UntagResource: instance GHC.Generics.Generic Amazonka.DeviceFarm.UntagResource.UntagResource
+ Amazonka.DeviceFarm.UntagResource: instance GHC.Generics.Generic Amazonka.DeviceFarm.UntagResource.UntagResourceResponse
+ Amazonka.DeviceFarm.UntagResource: instance GHC.Read.Read Amazonka.DeviceFarm.UntagResource.UntagResource
+ Amazonka.DeviceFarm.UntagResource: instance GHC.Read.Read Amazonka.DeviceFarm.UntagResource.UntagResourceResponse
+ Amazonka.DeviceFarm.UntagResource: instance GHC.Show.Show Amazonka.DeviceFarm.UntagResource.UntagResource
+ Amazonka.DeviceFarm.UntagResource: instance GHC.Show.Show Amazonka.DeviceFarm.UntagResource.UntagResourceResponse
+ Amazonka.DeviceFarm.UntagResource: newUntagResource :: Text -> UntagResource
+ Amazonka.DeviceFarm.UntagResource: newUntagResourceResponse :: Int -> UntagResourceResponse
+ Amazonka.DeviceFarm.UntagResource: untagResourceResponse_httpStatus :: Lens' UntagResourceResponse Int
+ Amazonka.DeviceFarm.UntagResource: untagResource_resourceARN :: Lens' UntagResource Text
+ Amazonka.DeviceFarm.UntagResource: untagResource_tagKeys :: Lens' UntagResource [Text]
+ Amazonka.DeviceFarm.UpdateDeviceInstance: UpdateDeviceInstance' :: Maybe [Text] -> Maybe Text -> Text -> UpdateDeviceInstance
+ Amazonka.DeviceFarm.UpdateDeviceInstance: UpdateDeviceInstanceResponse' :: Maybe DeviceInstance -> Int -> UpdateDeviceInstanceResponse
+ Amazonka.DeviceFarm.UpdateDeviceInstance: [$sel:arn:UpdateDeviceInstance'] :: UpdateDeviceInstance -> Text
+ Amazonka.DeviceFarm.UpdateDeviceInstance: [$sel:deviceInstance:UpdateDeviceInstanceResponse'] :: UpdateDeviceInstanceResponse -> Maybe DeviceInstance
+ Amazonka.DeviceFarm.UpdateDeviceInstance: [$sel:httpStatus:UpdateDeviceInstanceResponse'] :: UpdateDeviceInstanceResponse -> Int
+ Amazonka.DeviceFarm.UpdateDeviceInstance: [$sel:labels:UpdateDeviceInstance'] :: UpdateDeviceInstance -> Maybe [Text]
+ Amazonka.DeviceFarm.UpdateDeviceInstance: [$sel:profileArn:UpdateDeviceInstance'] :: UpdateDeviceInstance -> Maybe Text
+ Amazonka.DeviceFarm.UpdateDeviceInstance: data UpdateDeviceInstance
+ Amazonka.DeviceFarm.UpdateDeviceInstance: data UpdateDeviceInstanceResponse
+ Amazonka.DeviceFarm.UpdateDeviceInstance: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstance
+ Amazonka.DeviceFarm.UpdateDeviceInstance: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstance
+ Amazonka.DeviceFarm.UpdateDeviceInstance: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstance
+ Amazonka.DeviceFarm.UpdateDeviceInstance: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstance
+ Amazonka.DeviceFarm.UpdateDeviceInstance: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstance
+ Amazonka.DeviceFarm.UpdateDeviceInstance: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstanceResponse
+ Amazonka.DeviceFarm.UpdateDeviceInstance: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstance
+ Amazonka.DeviceFarm.UpdateDeviceInstance: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstance
+ Amazonka.DeviceFarm.UpdateDeviceInstance: instance GHC.Classes.Eq Amazonka.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstance
+ Amazonka.DeviceFarm.UpdateDeviceInstance: instance GHC.Classes.Eq Amazonka.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstanceResponse
+ Amazonka.DeviceFarm.UpdateDeviceInstance: instance GHC.Generics.Generic Amazonka.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstance
+ Amazonka.DeviceFarm.UpdateDeviceInstance: instance GHC.Generics.Generic Amazonka.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstanceResponse
+ Amazonka.DeviceFarm.UpdateDeviceInstance: instance GHC.Read.Read Amazonka.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstance
+ Amazonka.DeviceFarm.UpdateDeviceInstance: instance GHC.Read.Read Amazonka.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstanceResponse
+ Amazonka.DeviceFarm.UpdateDeviceInstance: instance GHC.Show.Show Amazonka.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstance
+ Amazonka.DeviceFarm.UpdateDeviceInstance: instance GHC.Show.Show Amazonka.DeviceFarm.UpdateDeviceInstance.UpdateDeviceInstanceResponse
+ Amazonka.DeviceFarm.UpdateDeviceInstance: newUpdateDeviceInstance :: Text -> UpdateDeviceInstance
+ Amazonka.DeviceFarm.UpdateDeviceInstance: newUpdateDeviceInstanceResponse :: Int -> UpdateDeviceInstanceResponse
+ Amazonka.DeviceFarm.UpdateDeviceInstance: updateDeviceInstanceResponse_deviceInstance :: Lens' UpdateDeviceInstanceResponse (Maybe DeviceInstance)
+ Amazonka.DeviceFarm.UpdateDeviceInstance: updateDeviceInstanceResponse_httpStatus :: Lens' UpdateDeviceInstanceResponse Int
+ Amazonka.DeviceFarm.UpdateDeviceInstance: updateDeviceInstance_arn :: Lens' UpdateDeviceInstance Text
+ Amazonka.DeviceFarm.UpdateDeviceInstance: updateDeviceInstance_labels :: Lens' UpdateDeviceInstance (Maybe [Text])
+ Amazonka.DeviceFarm.UpdateDeviceInstance: updateDeviceInstance_profileArn :: Lens' UpdateDeviceInstance (Maybe Text)
+ Amazonka.DeviceFarm.UpdateDevicePool: UpdateDevicePool' :: Maybe Bool -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe [Rule] -> Text -> UpdateDevicePool
+ Amazonka.DeviceFarm.UpdateDevicePool: UpdateDevicePoolResponse' :: Maybe DevicePool -> Int -> UpdateDevicePoolResponse
+ Amazonka.DeviceFarm.UpdateDevicePool: [$sel:arn:UpdateDevicePool'] :: UpdateDevicePool -> Text
+ Amazonka.DeviceFarm.UpdateDevicePool: [$sel:clearMaxDevices:UpdateDevicePool'] :: UpdateDevicePool -> Maybe Bool
+ Amazonka.DeviceFarm.UpdateDevicePool: [$sel:description:UpdateDevicePool'] :: UpdateDevicePool -> Maybe Text
+ Amazonka.DeviceFarm.UpdateDevicePool: [$sel:devicePool:UpdateDevicePoolResponse'] :: UpdateDevicePoolResponse -> Maybe DevicePool
+ Amazonka.DeviceFarm.UpdateDevicePool: [$sel:httpStatus:UpdateDevicePoolResponse'] :: UpdateDevicePoolResponse -> Int
+ Amazonka.DeviceFarm.UpdateDevicePool: [$sel:maxDevices:UpdateDevicePool'] :: UpdateDevicePool -> Maybe Int
+ Amazonka.DeviceFarm.UpdateDevicePool: [$sel:name:UpdateDevicePool'] :: UpdateDevicePool -> Maybe Text
+ Amazonka.DeviceFarm.UpdateDevicePool: [$sel:rules:UpdateDevicePool'] :: UpdateDevicePool -> Maybe [Rule]
+ Amazonka.DeviceFarm.UpdateDevicePool: data UpdateDevicePool
+ Amazonka.DeviceFarm.UpdateDevicePool: data UpdateDevicePoolResponse
+ Amazonka.DeviceFarm.UpdateDevicePool: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.UpdateDevicePool.UpdateDevicePool
+ Amazonka.DeviceFarm.UpdateDevicePool: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.UpdateDevicePool.UpdateDevicePool
+ Amazonka.DeviceFarm.UpdateDevicePool: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.UpdateDevicePool.UpdateDevicePool
+ Amazonka.DeviceFarm.UpdateDevicePool: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.UpdateDevicePool.UpdateDevicePool
+ Amazonka.DeviceFarm.UpdateDevicePool: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.UpdateDevicePool.UpdateDevicePool
+ Amazonka.DeviceFarm.UpdateDevicePool: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.UpdateDevicePool.UpdateDevicePoolResponse
+ Amazonka.DeviceFarm.UpdateDevicePool: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.UpdateDevicePool.UpdateDevicePool
+ Amazonka.DeviceFarm.UpdateDevicePool: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.UpdateDevicePool.UpdateDevicePool
+ Amazonka.DeviceFarm.UpdateDevicePool: instance GHC.Classes.Eq Amazonka.DeviceFarm.UpdateDevicePool.UpdateDevicePool
+ Amazonka.DeviceFarm.UpdateDevicePool: instance GHC.Classes.Eq Amazonka.DeviceFarm.UpdateDevicePool.UpdateDevicePoolResponse
+ Amazonka.DeviceFarm.UpdateDevicePool: instance GHC.Generics.Generic Amazonka.DeviceFarm.UpdateDevicePool.UpdateDevicePool
+ Amazonka.DeviceFarm.UpdateDevicePool: instance GHC.Generics.Generic Amazonka.DeviceFarm.UpdateDevicePool.UpdateDevicePoolResponse
+ Amazonka.DeviceFarm.UpdateDevicePool: instance GHC.Read.Read Amazonka.DeviceFarm.UpdateDevicePool.UpdateDevicePool
+ Amazonka.DeviceFarm.UpdateDevicePool: instance GHC.Read.Read Amazonka.DeviceFarm.UpdateDevicePool.UpdateDevicePoolResponse
+ Amazonka.DeviceFarm.UpdateDevicePool: instance GHC.Show.Show Amazonka.DeviceFarm.UpdateDevicePool.UpdateDevicePool
+ Amazonka.DeviceFarm.UpdateDevicePool: instance GHC.Show.Show Amazonka.DeviceFarm.UpdateDevicePool.UpdateDevicePoolResponse
+ Amazonka.DeviceFarm.UpdateDevicePool: newUpdateDevicePool :: Text -> UpdateDevicePool
+ Amazonka.DeviceFarm.UpdateDevicePool: newUpdateDevicePoolResponse :: Int -> UpdateDevicePoolResponse
+ Amazonka.DeviceFarm.UpdateDevicePool: updateDevicePoolResponse_devicePool :: Lens' UpdateDevicePoolResponse (Maybe DevicePool)
+ Amazonka.DeviceFarm.UpdateDevicePool: updateDevicePoolResponse_httpStatus :: Lens' UpdateDevicePoolResponse Int
+ Amazonka.DeviceFarm.UpdateDevicePool: updateDevicePool_arn :: Lens' UpdateDevicePool Text
+ Amazonka.DeviceFarm.UpdateDevicePool: updateDevicePool_clearMaxDevices :: Lens' UpdateDevicePool (Maybe Bool)
+ Amazonka.DeviceFarm.UpdateDevicePool: updateDevicePool_description :: Lens' UpdateDevicePool (Maybe Text)
+ Amazonka.DeviceFarm.UpdateDevicePool: updateDevicePool_maxDevices :: Lens' UpdateDevicePool (Maybe Int)
+ Amazonka.DeviceFarm.UpdateDevicePool: updateDevicePool_name :: Lens' UpdateDevicePool (Maybe Text)
+ Amazonka.DeviceFarm.UpdateDevicePool: updateDevicePool_rules :: Lens' UpdateDevicePool (Maybe [Rule])
+ Amazonka.DeviceFarm.UpdateInstanceProfile: UpdateInstanceProfile' :: Maybe Text -> Maybe [Text] -> Maybe Text -> Maybe Bool -> Maybe Bool -> Text -> UpdateInstanceProfile
+ Amazonka.DeviceFarm.UpdateInstanceProfile: UpdateInstanceProfileResponse' :: Maybe InstanceProfile -> Int -> UpdateInstanceProfileResponse
+ Amazonka.DeviceFarm.UpdateInstanceProfile: [$sel:arn:UpdateInstanceProfile'] :: UpdateInstanceProfile -> Text
+ Amazonka.DeviceFarm.UpdateInstanceProfile: [$sel:description:UpdateInstanceProfile'] :: UpdateInstanceProfile -> Maybe Text
+ Amazonka.DeviceFarm.UpdateInstanceProfile: [$sel:excludeAppPackagesFromCleanup:UpdateInstanceProfile'] :: UpdateInstanceProfile -> Maybe [Text]
+ Amazonka.DeviceFarm.UpdateInstanceProfile: [$sel:httpStatus:UpdateInstanceProfileResponse'] :: UpdateInstanceProfileResponse -> Int
+ Amazonka.DeviceFarm.UpdateInstanceProfile: [$sel:instanceProfile:UpdateInstanceProfileResponse'] :: UpdateInstanceProfileResponse -> Maybe InstanceProfile
+ Amazonka.DeviceFarm.UpdateInstanceProfile: [$sel:name:UpdateInstanceProfile'] :: UpdateInstanceProfile -> Maybe Text
+ Amazonka.DeviceFarm.UpdateInstanceProfile: [$sel:packageCleanup:UpdateInstanceProfile'] :: UpdateInstanceProfile -> Maybe Bool
+ Amazonka.DeviceFarm.UpdateInstanceProfile: [$sel:rebootAfterUse:UpdateInstanceProfile'] :: UpdateInstanceProfile -> Maybe Bool
+ Amazonka.DeviceFarm.UpdateInstanceProfile: data UpdateInstanceProfile
+ Amazonka.DeviceFarm.UpdateInstanceProfile: data UpdateInstanceProfileResponse
+ Amazonka.DeviceFarm.UpdateInstanceProfile: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfile
+ Amazonka.DeviceFarm.UpdateInstanceProfile: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfile
+ Amazonka.DeviceFarm.UpdateInstanceProfile: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfile
+ Amazonka.DeviceFarm.UpdateInstanceProfile: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfile
+ Amazonka.DeviceFarm.UpdateInstanceProfile: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfile
+ Amazonka.DeviceFarm.UpdateInstanceProfile: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfileResponse
+ Amazonka.DeviceFarm.UpdateInstanceProfile: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfile
+ Amazonka.DeviceFarm.UpdateInstanceProfile: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfile
+ Amazonka.DeviceFarm.UpdateInstanceProfile: instance GHC.Classes.Eq Amazonka.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfile
+ Amazonka.DeviceFarm.UpdateInstanceProfile: instance GHC.Classes.Eq Amazonka.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfileResponse
+ Amazonka.DeviceFarm.UpdateInstanceProfile: instance GHC.Generics.Generic Amazonka.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfile
+ Amazonka.DeviceFarm.UpdateInstanceProfile: instance GHC.Generics.Generic Amazonka.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfileResponse
+ Amazonka.DeviceFarm.UpdateInstanceProfile: instance GHC.Read.Read Amazonka.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfile
+ Amazonka.DeviceFarm.UpdateInstanceProfile: instance GHC.Read.Read Amazonka.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfileResponse
+ Amazonka.DeviceFarm.UpdateInstanceProfile: instance GHC.Show.Show Amazonka.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfile
+ Amazonka.DeviceFarm.UpdateInstanceProfile: instance GHC.Show.Show Amazonka.DeviceFarm.UpdateInstanceProfile.UpdateInstanceProfileResponse
+ Amazonka.DeviceFarm.UpdateInstanceProfile: newUpdateInstanceProfile :: Text -> UpdateInstanceProfile
+ Amazonka.DeviceFarm.UpdateInstanceProfile: newUpdateInstanceProfileResponse :: Int -> UpdateInstanceProfileResponse
+ Amazonka.DeviceFarm.UpdateInstanceProfile: updateInstanceProfileResponse_httpStatus :: Lens' UpdateInstanceProfileResponse Int
+ Amazonka.DeviceFarm.UpdateInstanceProfile: updateInstanceProfileResponse_instanceProfile :: Lens' UpdateInstanceProfileResponse (Maybe InstanceProfile)
+ Amazonka.DeviceFarm.UpdateInstanceProfile: updateInstanceProfile_arn :: Lens' UpdateInstanceProfile Text
+ Amazonka.DeviceFarm.UpdateInstanceProfile: updateInstanceProfile_description :: Lens' UpdateInstanceProfile (Maybe Text)
+ Amazonka.DeviceFarm.UpdateInstanceProfile: updateInstanceProfile_excludeAppPackagesFromCleanup :: Lens' UpdateInstanceProfile (Maybe [Text])
+ Amazonka.DeviceFarm.UpdateInstanceProfile: updateInstanceProfile_name :: Lens' UpdateInstanceProfile (Maybe Text)
+ Amazonka.DeviceFarm.UpdateInstanceProfile: updateInstanceProfile_packageCleanup :: Lens' UpdateInstanceProfile (Maybe Bool)
+ Amazonka.DeviceFarm.UpdateInstanceProfile: updateInstanceProfile_rebootAfterUse :: Lens' UpdateInstanceProfile (Maybe Bool)
+ Amazonka.DeviceFarm.UpdateNetworkProfile: UpdateNetworkProfile' :: Maybe Text -> Maybe Integer -> Maybe Integer -> Maybe Integer -> Maybe Natural -> Maybe Text -> Maybe NetworkProfileType -> Maybe Integer -> Maybe Integer -> Maybe Integer -> Maybe Natural -> Text -> UpdateNetworkProfile
+ Amazonka.DeviceFarm.UpdateNetworkProfile: UpdateNetworkProfileResponse' :: Maybe NetworkProfile -> Int -> UpdateNetworkProfileResponse
+ Amazonka.DeviceFarm.UpdateNetworkProfile: [$sel:arn:UpdateNetworkProfile'] :: UpdateNetworkProfile -> Text
+ Amazonka.DeviceFarm.UpdateNetworkProfile: [$sel:description:UpdateNetworkProfile'] :: UpdateNetworkProfile -> Maybe Text
+ Amazonka.DeviceFarm.UpdateNetworkProfile: [$sel:downlinkBandwidthBits:UpdateNetworkProfile'] :: UpdateNetworkProfile -> Maybe Integer
+ Amazonka.DeviceFarm.UpdateNetworkProfile: [$sel:downlinkDelayMs:UpdateNetworkProfile'] :: UpdateNetworkProfile -> Maybe Integer
+ Amazonka.DeviceFarm.UpdateNetworkProfile: [$sel:downlinkJitterMs:UpdateNetworkProfile'] :: UpdateNetworkProfile -> Maybe Integer
+ Amazonka.DeviceFarm.UpdateNetworkProfile: [$sel:downlinkLossPercent:UpdateNetworkProfile'] :: UpdateNetworkProfile -> Maybe Natural
+ Amazonka.DeviceFarm.UpdateNetworkProfile: [$sel:httpStatus:UpdateNetworkProfileResponse'] :: UpdateNetworkProfileResponse -> Int
+ Amazonka.DeviceFarm.UpdateNetworkProfile: [$sel:name:UpdateNetworkProfile'] :: UpdateNetworkProfile -> Maybe Text
+ Amazonka.DeviceFarm.UpdateNetworkProfile: [$sel:networkProfile:UpdateNetworkProfileResponse'] :: UpdateNetworkProfileResponse -> Maybe NetworkProfile
+ Amazonka.DeviceFarm.UpdateNetworkProfile: [$sel:type':UpdateNetworkProfile'] :: UpdateNetworkProfile -> Maybe NetworkProfileType
+ Amazonka.DeviceFarm.UpdateNetworkProfile: [$sel:uplinkBandwidthBits:UpdateNetworkProfile'] :: UpdateNetworkProfile -> Maybe Integer
+ Amazonka.DeviceFarm.UpdateNetworkProfile: [$sel:uplinkDelayMs:UpdateNetworkProfile'] :: UpdateNetworkProfile -> Maybe Integer
+ Amazonka.DeviceFarm.UpdateNetworkProfile: [$sel:uplinkJitterMs:UpdateNetworkProfile'] :: UpdateNetworkProfile -> Maybe Integer
+ Amazonka.DeviceFarm.UpdateNetworkProfile: [$sel:uplinkLossPercent:UpdateNetworkProfile'] :: UpdateNetworkProfile -> Maybe Natural
+ Amazonka.DeviceFarm.UpdateNetworkProfile: data UpdateNetworkProfile
+ Amazonka.DeviceFarm.UpdateNetworkProfile: data UpdateNetworkProfileResponse
+ Amazonka.DeviceFarm.UpdateNetworkProfile: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfile
+ Amazonka.DeviceFarm.UpdateNetworkProfile: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfile
+ Amazonka.DeviceFarm.UpdateNetworkProfile: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfile
+ Amazonka.DeviceFarm.UpdateNetworkProfile: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfile
+ Amazonka.DeviceFarm.UpdateNetworkProfile: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfile
+ Amazonka.DeviceFarm.UpdateNetworkProfile: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfileResponse
+ Amazonka.DeviceFarm.UpdateNetworkProfile: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfile
+ Amazonka.DeviceFarm.UpdateNetworkProfile: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfile
+ Amazonka.DeviceFarm.UpdateNetworkProfile: instance GHC.Classes.Eq Amazonka.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfile
+ Amazonka.DeviceFarm.UpdateNetworkProfile: instance GHC.Classes.Eq Amazonka.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfileResponse
+ Amazonka.DeviceFarm.UpdateNetworkProfile: instance GHC.Generics.Generic Amazonka.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfile
+ Amazonka.DeviceFarm.UpdateNetworkProfile: instance GHC.Generics.Generic Amazonka.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfileResponse
+ Amazonka.DeviceFarm.UpdateNetworkProfile: instance GHC.Read.Read Amazonka.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfile
+ Amazonka.DeviceFarm.UpdateNetworkProfile: instance GHC.Read.Read Amazonka.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfileResponse
+ Amazonka.DeviceFarm.UpdateNetworkProfile: instance GHC.Show.Show Amazonka.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfile
+ Amazonka.DeviceFarm.UpdateNetworkProfile: instance GHC.Show.Show Amazonka.DeviceFarm.UpdateNetworkProfile.UpdateNetworkProfileResponse
+ Amazonka.DeviceFarm.UpdateNetworkProfile: newUpdateNetworkProfile :: Text -> UpdateNetworkProfile
+ Amazonka.DeviceFarm.UpdateNetworkProfile: newUpdateNetworkProfileResponse :: Int -> UpdateNetworkProfileResponse
+ Amazonka.DeviceFarm.UpdateNetworkProfile: updateNetworkProfileResponse_httpStatus :: Lens' UpdateNetworkProfileResponse Int
+ Amazonka.DeviceFarm.UpdateNetworkProfile: updateNetworkProfileResponse_networkProfile :: Lens' UpdateNetworkProfileResponse (Maybe NetworkProfile)
+ Amazonka.DeviceFarm.UpdateNetworkProfile: updateNetworkProfile_arn :: Lens' UpdateNetworkProfile Text
+ Amazonka.DeviceFarm.UpdateNetworkProfile: updateNetworkProfile_description :: Lens' UpdateNetworkProfile (Maybe Text)
+ Amazonka.DeviceFarm.UpdateNetworkProfile: updateNetworkProfile_downlinkBandwidthBits :: Lens' UpdateNetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.UpdateNetworkProfile: updateNetworkProfile_downlinkDelayMs :: Lens' UpdateNetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.UpdateNetworkProfile: updateNetworkProfile_downlinkJitterMs :: Lens' UpdateNetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.UpdateNetworkProfile: updateNetworkProfile_downlinkLossPercent :: Lens' UpdateNetworkProfile (Maybe Natural)
+ Amazonka.DeviceFarm.UpdateNetworkProfile: updateNetworkProfile_name :: Lens' UpdateNetworkProfile (Maybe Text)
+ Amazonka.DeviceFarm.UpdateNetworkProfile: updateNetworkProfile_type :: Lens' UpdateNetworkProfile (Maybe NetworkProfileType)
+ Amazonka.DeviceFarm.UpdateNetworkProfile: updateNetworkProfile_uplinkBandwidthBits :: Lens' UpdateNetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.UpdateNetworkProfile: updateNetworkProfile_uplinkDelayMs :: Lens' UpdateNetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.UpdateNetworkProfile: updateNetworkProfile_uplinkJitterMs :: Lens' UpdateNetworkProfile (Maybe Integer)
+ Amazonka.DeviceFarm.UpdateNetworkProfile: updateNetworkProfile_uplinkLossPercent :: Lens' UpdateNetworkProfile (Maybe Natural)
+ Amazonka.DeviceFarm.UpdateProject: UpdateProject' :: Maybe Int -> Maybe Text -> Maybe VpcConfig -> Text -> UpdateProject
+ Amazonka.DeviceFarm.UpdateProject: UpdateProjectResponse' :: Maybe Project -> Int -> UpdateProjectResponse
+ Amazonka.DeviceFarm.UpdateProject: [$sel:arn:UpdateProject'] :: UpdateProject -> Text
+ Amazonka.DeviceFarm.UpdateProject: [$sel:defaultJobTimeoutMinutes:UpdateProject'] :: UpdateProject -> Maybe Int
+ Amazonka.DeviceFarm.UpdateProject: [$sel:httpStatus:UpdateProjectResponse'] :: UpdateProjectResponse -> Int
+ Amazonka.DeviceFarm.UpdateProject: [$sel:name:UpdateProject'] :: UpdateProject -> Maybe Text
+ Amazonka.DeviceFarm.UpdateProject: [$sel:project:UpdateProjectResponse'] :: UpdateProjectResponse -> Maybe Project
+ Amazonka.DeviceFarm.UpdateProject: [$sel:vpcConfig:UpdateProject'] :: UpdateProject -> Maybe VpcConfig
+ Amazonka.DeviceFarm.UpdateProject: data UpdateProject
+ Amazonka.DeviceFarm.UpdateProject: data UpdateProjectResponse
+ Amazonka.DeviceFarm.UpdateProject: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.UpdateProject.UpdateProject
+ Amazonka.DeviceFarm.UpdateProject: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.UpdateProject.UpdateProject
+ Amazonka.DeviceFarm.UpdateProject: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.UpdateProject.UpdateProject
+ Amazonka.DeviceFarm.UpdateProject: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.UpdateProject.UpdateProject
+ Amazonka.DeviceFarm.UpdateProject: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.UpdateProject.UpdateProject
+ Amazonka.DeviceFarm.UpdateProject: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.UpdateProject.UpdateProjectResponse
+ Amazonka.DeviceFarm.UpdateProject: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.UpdateProject.UpdateProject
+ Amazonka.DeviceFarm.UpdateProject: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.UpdateProject.UpdateProject
+ Amazonka.DeviceFarm.UpdateProject: instance GHC.Classes.Eq Amazonka.DeviceFarm.UpdateProject.UpdateProject
+ Amazonka.DeviceFarm.UpdateProject: instance GHC.Classes.Eq Amazonka.DeviceFarm.UpdateProject.UpdateProjectResponse
+ Amazonka.DeviceFarm.UpdateProject: instance GHC.Generics.Generic Amazonka.DeviceFarm.UpdateProject.UpdateProject
+ Amazonka.DeviceFarm.UpdateProject: instance GHC.Generics.Generic Amazonka.DeviceFarm.UpdateProject.UpdateProjectResponse
+ Amazonka.DeviceFarm.UpdateProject: instance GHC.Read.Read Amazonka.DeviceFarm.UpdateProject.UpdateProject
+ Amazonka.DeviceFarm.UpdateProject: instance GHC.Read.Read Amazonka.DeviceFarm.UpdateProject.UpdateProjectResponse
+ Amazonka.DeviceFarm.UpdateProject: instance GHC.Show.Show Amazonka.DeviceFarm.UpdateProject.UpdateProject
+ Amazonka.DeviceFarm.UpdateProject: instance GHC.Show.Show Amazonka.DeviceFarm.UpdateProject.UpdateProjectResponse
+ Amazonka.DeviceFarm.UpdateProject: newUpdateProject :: Text -> UpdateProject
+ Amazonka.DeviceFarm.UpdateProject: newUpdateProjectResponse :: Int -> UpdateProjectResponse
+ Amazonka.DeviceFarm.UpdateProject: updateProjectResponse_httpStatus :: Lens' UpdateProjectResponse Int
+ Amazonka.DeviceFarm.UpdateProject: updateProjectResponse_project :: Lens' UpdateProjectResponse (Maybe Project)
+ Amazonka.DeviceFarm.UpdateProject: updateProject_arn :: Lens' UpdateProject Text
+ Amazonka.DeviceFarm.UpdateProject: updateProject_defaultJobTimeoutMinutes :: Lens' UpdateProject (Maybe Int)
+ Amazonka.DeviceFarm.UpdateProject: updateProject_name :: Lens' UpdateProject (Maybe Text)
+ Amazonka.DeviceFarm.UpdateProject: updateProject_vpcConfig :: Lens' UpdateProject (Maybe VpcConfig)
+ Amazonka.DeviceFarm.UpdateTestGridProject: UpdateTestGridProject' :: Maybe Text -> Maybe Text -> Maybe TestGridVpcConfig -> Text -> UpdateTestGridProject
+ Amazonka.DeviceFarm.UpdateTestGridProject: UpdateTestGridProjectResponse' :: Maybe TestGridProject -> Int -> UpdateTestGridProjectResponse
+ Amazonka.DeviceFarm.UpdateTestGridProject: [$sel:description:UpdateTestGridProject'] :: UpdateTestGridProject -> Maybe Text
+ Amazonka.DeviceFarm.UpdateTestGridProject: [$sel:httpStatus:UpdateTestGridProjectResponse'] :: UpdateTestGridProjectResponse -> Int
+ Amazonka.DeviceFarm.UpdateTestGridProject: [$sel:name:UpdateTestGridProject'] :: UpdateTestGridProject -> Maybe Text
+ Amazonka.DeviceFarm.UpdateTestGridProject: [$sel:projectArn:UpdateTestGridProject'] :: UpdateTestGridProject -> Text
+ Amazonka.DeviceFarm.UpdateTestGridProject: [$sel:testGridProject:UpdateTestGridProjectResponse'] :: UpdateTestGridProjectResponse -> Maybe TestGridProject
+ Amazonka.DeviceFarm.UpdateTestGridProject: [$sel:vpcConfig:UpdateTestGridProject'] :: UpdateTestGridProject -> Maybe TestGridVpcConfig
+ Amazonka.DeviceFarm.UpdateTestGridProject: data UpdateTestGridProject
+ Amazonka.DeviceFarm.UpdateTestGridProject: data UpdateTestGridProjectResponse
+ Amazonka.DeviceFarm.UpdateTestGridProject: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.UpdateTestGridProject.UpdateTestGridProject
+ Amazonka.DeviceFarm.UpdateTestGridProject: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.UpdateTestGridProject.UpdateTestGridProject
+ Amazonka.DeviceFarm.UpdateTestGridProject: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.UpdateTestGridProject.UpdateTestGridProject
+ Amazonka.DeviceFarm.UpdateTestGridProject: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.UpdateTestGridProject.UpdateTestGridProject
+ Amazonka.DeviceFarm.UpdateTestGridProject: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.UpdateTestGridProject.UpdateTestGridProject
+ Amazonka.DeviceFarm.UpdateTestGridProject: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.UpdateTestGridProject.UpdateTestGridProjectResponse
+ Amazonka.DeviceFarm.UpdateTestGridProject: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.UpdateTestGridProject.UpdateTestGridProject
+ Amazonka.DeviceFarm.UpdateTestGridProject: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.UpdateTestGridProject.UpdateTestGridProject
+ Amazonka.DeviceFarm.UpdateTestGridProject: instance GHC.Classes.Eq Amazonka.DeviceFarm.UpdateTestGridProject.UpdateTestGridProject
+ Amazonka.DeviceFarm.UpdateTestGridProject: instance GHC.Classes.Eq Amazonka.DeviceFarm.UpdateTestGridProject.UpdateTestGridProjectResponse
+ Amazonka.DeviceFarm.UpdateTestGridProject: instance GHC.Generics.Generic Amazonka.DeviceFarm.UpdateTestGridProject.UpdateTestGridProject
+ Amazonka.DeviceFarm.UpdateTestGridProject: instance GHC.Generics.Generic Amazonka.DeviceFarm.UpdateTestGridProject.UpdateTestGridProjectResponse
+ Amazonka.DeviceFarm.UpdateTestGridProject: instance GHC.Read.Read Amazonka.DeviceFarm.UpdateTestGridProject.UpdateTestGridProject
+ Amazonka.DeviceFarm.UpdateTestGridProject: instance GHC.Read.Read Amazonka.DeviceFarm.UpdateTestGridProject.UpdateTestGridProjectResponse
+ Amazonka.DeviceFarm.UpdateTestGridProject: instance GHC.Show.Show Amazonka.DeviceFarm.UpdateTestGridProject.UpdateTestGridProject
+ Amazonka.DeviceFarm.UpdateTestGridProject: instance GHC.Show.Show Amazonka.DeviceFarm.UpdateTestGridProject.UpdateTestGridProjectResponse
+ Amazonka.DeviceFarm.UpdateTestGridProject: newUpdateTestGridProject :: Text -> UpdateTestGridProject
+ Amazonka.DeviceFarm.UpdateTestGridProject: newUpdateTestGridProjectResponse :: Int -> UpdateTestGridProjectResponse
+ Amazonka.DeviceFarm.UpdateTestGridProject: updateTestGridProjectResponse_httpStatus :: Lens' UpdateTestGridProjectResponse Int
+ Amazonka.DeviceFarm.UpdateTestGridProject: updateTestGridProjectResponse_testGridProject :: Lens' UpdateTestGridProjectResponse (Maybe TestGridProject)
+ Amazonka.DeviceFarm.UpdateTestGridProject: updateTestGridProject_description :: Lens' UpdateTestGridProject (Maybe Text)
+ Amazonka.DeviceFarm.UpdateTestGridProject: updateTestGridProject_name :: Lens' UpdateTestGridProject (Maybe Text)
+ Amazonka.DeviceFarm.UpdateTestGridProject: updateTestGridProject_projectArn :: Lens' UpdateTestGridProject Text
+ Amazonka.DeviceFarm.UpdateTestGridProject: updateTestGridProject_vpcConfig :: Lens' UpdateTestGridProject (Maybe TestGridVpcConfig)
+ Amazonka.DeviceFarm.UpdateUpload: UpdateUpload' :: Maybe Text -> Maybe Bool -> Maybe Text -> Text -> UpdateUpload
+ Amazonka.DeviceFarm.UpdateUpload: UpdateUploadResponse' :: Maybe Upload -> Int -> UpdateUploadResponse
+ Amazonka.DeviceFarm.UpdateUpload: [$sel:arn:UpdateUpload'] :: UpdateUpload -> Text
+ Amazonka.DeviceFarm.UpdateUpload: [$sel:contentType:UpdateUpload'] :: UpdateUpload -> Maybe Text
+ Amazonka.DeviceFarm.UpdateUpload: [$sel:editContent:UpdateUpload'] :: UpdateUpload -> Maybe Bool
+ Amazonka.DeviceFarm.UpdateUpload: [$sel:httpStatus:UpdateUploadResponse'] :: UpdateUploadResponse -> Int
+ Amazonka.DeviceFarm.UpdateUpload: [$sel:name:UpdateUpload'] :: UpdateUpload -> Maybe Text
+ Amazonka.DeviceFarm.UpdateUpload: [$sel:upload:UpdateUploadResponse'] :: UpdateUploadResponse -> Maybe Upload
+ Amazonka.DeviceFarm.UpdateUpload: data UpdateUpload
+ Amazonka.DeviceFarm.UpdateUpload: data UpdateUploadResponse
+ Amazonka.DeviceFarm.UpdateUpload: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.UpdateUpload.UpdateUpload
+ Amazonka.DeviceFarm.UpdateUpload: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.UpdateUpload.UpdateUpload
+ Amazonka.DeviceFarm.UpdateUpload: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.UpdateUpload.UpdateUpload
+ Amazonka.DeviceFarm.UpdateUpload: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.UpdateUpload.UpdateUpload
+ Amazonka.DeviceFarm.UpdateUpload: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.UpdateUpload.UpdateUpload
+ Amazonka.DeviceFarm.UpdateUpload: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.UpdateUpload.UpdateUploadResponse
+ Amazonka.DeviceFarm.UpdateUpload: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.UpdateUpload.UpdateUpload
+ Amazonka.DeviceFarm.UpdateUpload: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.UpdateUpload.UpdateUpload
+ Amazonka.DeviceFarm.UpdateUpload: instance GHC.Classes.Eq Amazonka.DeviceFarm.UpdateUpload.UpdateUpload
+ Amazonka.DeviceFarm.UpdateUpload: instance GHC.Classes.Eq Amazonka.DeviceFarm.UpdateUpload.UpdateUploadResponse
+ Amazonka.DeviceFarm.UpdateUpload: instance GHC.Generics.Generic Amazonka.DeviceFarm.UpdateUpload.UpdateUpload
+ Amazonka.DeviceFarm.UpdateUpload: instance GHC.Generics.Generic Amazonka.DeviceFarm.UpdateUpload.UpdateUploadResponse
+ Amazonka.DeviceFarm.UpdateUpload: instance GHC.Read.Read Amazonka.DeviceFarm.UpdateUpload.UpdateUpload
+ Amazonka.DeviceFarm.UpdateUpload: instance GHC.Show.Show Amazonka.DeviceFarm.UpdateUpload.UpdateUpload
+ Amazonka.DeviceFarm.UpdateUpload: instance GHC.Show.Show Amazonka.DeviceFarm.UpdateUpload.UpdateUploadResponse
+ Amazonka.DeviceFarm.UpdateUpload: newUpdateUpload :: Text -> UpdateUpload
+ Amazonka.DeviceFarm.UpdateUpload: newUpdateUploadResponse :: Int -> UpdateUploadResponse
+ Amazonka.DeviceFarm.UpdateUpload: updateUploadResponse_httpStatus :: Lens' UpdateUploadResponse Int
+ Amazonka.DeviceFarm.UpdateUpload: updateUploadResponse_upload :: Lens' UpdateUploadResponse (Maybe Upload)
+ Amazonka.DeviceFarm.UpdateUpload: updateUpload_arn :: Lens' UpdateUpload Text
+ Amazonka.DeviceFarm.UpdateUpload: updateUpload_contentType :: Lens' UpdateUpload (Maybe Text)
+ Amazonka.DeviceFarm.UpdateUpload: updateUpload_editContent :: Lens' UpdateUpload (Maybe Bool)
+ Amazonka.DeviceFarm.UpdateUpload: updateUpload_name :: Lens' UpdateUpload (Maybe Text)
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: UpdateVPCEConfiguration' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Text -> UpdateVPCEConfiguration
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: UpdateVPCEConfigurationResponse' :: Maybe VPCEConfiguration -> Int -> UpdateVPCEConfigurationResponse
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: [$sel:arn:UpdateVPCEConfiguration'] :: UpdateVPCEConfiguration -> Text
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: [$sel:httpStatus:UpdateVPCEConfigurationResponse'] :: UpdateVPCEConfigurationResponse -> Int
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: [$sel:serviceDnsName:UpdateVPCEConfiguration'] :: UpdateVPCEConfiguration -> Maybe Text
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: [$sel:vpceConfiguration:UpdateVPCEConfigurationResponse'] :: UpdateVPCEConfigurationResponse -> Maybe VPCEConfiguration
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: [$sel:vpceConfigurationDescription:UpdateVPCEConfiguration'] :: UpdateVPCEConfiguration -> Maybe Text
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: [$sel:vpceConfigurationName:UpdateVPCEConfiguration'] :: UpdateVPCEConfiguration -> Maybe Text
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: [$sel:vpceServiceName:UpdateVPCEConfiguration'] :: UpdateVPCEConfiguration -> Maybe Text
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: data UpdateVPCEConfiguration
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: data UpdateVPCEConfigurationResponse
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: instance Amazonka.Data.Headers.ToHeaders Amazonka.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfiguration
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: instance Amazonka.Data.Path.ToPath Amazonka.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfiguration
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: instance Amazonka.Data.Query.ToQuery Amazonka.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfiguration
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: instance Amazonka.Types.AWSRequest Amazonka.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfiguration
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfiguration
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: instance Control.DeepSeq.NFData Amazonka.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfigurationResponse
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfiguration
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: instance Data.Hashable.Class.Hashable Amazonka.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfiguration
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: instance GHC.Classes.Eq Amazonka.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfiguration
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: instance GHC.Classes.Eq Amazonka.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfigurationResponse
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: instance GHC.Generics.Generic Amazonka.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfiguration
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: instance GHC.Generics.Generic Amazonka.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfigurationResponse
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: instance GHC.Read.Read Amazonka.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfiguration
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: instance GHC.Read.Read Amazonka.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfigurationResponse
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: instance GHC.Show.Show Amazonka.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfiguration
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: instance GHC.Show.Show Amazonka.DeviceFarm.UpdateVPCEConfiguration.UpdateVPCEConfigurationResponse
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: newUpdateVPCEConfiguration :: Text -> UpdateVPCEConfiguration
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: newUpdateVPCEConfigurationResponse :: Int -> UpdateVPCEConfigurationResponse
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: updateVPCEConfigurationResponse_httpStatus :: Lens' UpdateVPCEConfigurationResponse Int
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: updateVPCEConfigurationResponse_vpceConfiguration :: Lens' UpdateVPCEConfigurationResponse (Maybe VPCEConfiguration)
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: updateVPCEConfiguration_arn :: Lens' UpdateVPCEConfiguration Text
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: updateVPCEConfiguration_serviceDnsName :: Lens' UpdateVPCEConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: updateVPCEConfiguration_vpceConfigurationDescription :: Lens' UpdateVPCEConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: updateVPCEConfiguration_vpceConfigurationName :: Lens' UpdateVPCEConfiguration (Maybe Text)
+ Amazonka.DeviceFarm.UpdateVPCEConfiguration: updateVPCEConfiguration_vpceServiceName :: Lens' UpdateVPCEConfiguration (Maybe Text)

Files

README.md view
@@ -7,9 +7,8 @@   ## Version--`1.6.1`-+ +`2.0` - Derived from API version @2015-06-23@ of the AWS service descriptions, licensed under Apache 2.0.  ## Description @@ -26,7 +25,7 @@ The provided lenses should be compatible with any of the major lens libraries [lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core). -See [Network.AWS.DeviceFarm](http://hackage.haskell.org/package/amazonka-devicefarm/docs/Network-AWS-DeviceFarm.html)+See [Amazonka.DeviceFarm](http://hackage.haskell.org/package/amazonka-devicefarm/docs/Amazonka-DeviceFarm.html) or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.  
− Setup.hs
@@ -1,2 +0,0 @@-import           Distribution.Simple-main = defaultMain
amazonka-devicefarm.cabal view
@@ -1,147 +1,238 @@-name:                  amazonka-devicefarm-version:               1.6.1-synopsis:              Amazon Device Farm SDK.-homepage:              https://github.com/brendanhay/amazonka-bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               MPL-2.0-license-file:          LICENSE-author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2018 Brendan Hay-category:              Network, AWS, Cloud, Distributed Computing-build-type:            Simple-cabal-version:         >= 1.10-extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep+cabal-version:      2.2+name:               amazonka-devicefarm+version:            2.0+synopsis:           Amazon Device Farm SDK.+homepage:           https://github.com/brendanhay/amazonka+bug-reports:        https://github.com/brendanhay/amazonka/issues+license:            MPL-2.0+license-file:       LICENSE+author:             Brendan Hay+maintainer:+  Brendan Hay <brendan.g.hay+amazonka@gmail.com>, Jack Kelly <jack@jackkelly.name>++copyright:          Copyright (c) 2013-2023 Brendan Hay+category:           AWS+build-type:         Simple+extra-source-files:+  fixture/*.proto+  fixture/*.yaml+  README.md+  src/.gitkeep+ description:-    The types from this library are intended to be used with-    <http://hackage.haskell.org/package/amazonka amazonka>, which provides-    mechanisms for specifying AuthN/AuthZ information, sending requests,-    and receiving responses.-    .-    Lenses are used for constructing and manipulating types,-    due to the depth of nesting of AWS types and transparency regarding-    de/serialisation into more palatable Haskell values.-    The provided lenses should be compatible with any of the major lens libraries-    such as <http://hackage.haskell.org/package/lens lens> or-    <http://hackage.haskell.org/package/lens-family-core lens-family-core>.-    .-    See "Network.AWS.DeviceFarm" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2015-06-23@ of the AWS service descriptions, licensed under Apache 2.0.+  .+  The types from this library are intended to be used with <http://hackage.haskell.org/package/amazonka amazonka>,+  which provides mechanisms for specifying AuthN/AuthZ information, sending requests, and receiving responses.+  .+  It is recommended to use generic lenses or optics from packages such as <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify optional fields and deconstruct responses.+  .+  Generated lenses can be found in "Amazonka.DeviceFarm.Lens" and are+  suitable for use with a lens package such as <http://hackage.haskell.org/package/lens lens> or <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+  .+  See "Amazonka.DeviceFarm" and the <https://aws.amazon.com/documentation/ AWS documentation> to get started.  source-repository head-    type:              git-    location:          git://github.com/brendanhay/amazonka.git-    subdir:            amazonka-devicefarm+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-devicefarm  library-    default-language:  Haskell2010-    hs-source-dirs:    src gen--    ghc-options:-        -Wall-        -fwarn-incomplete-uni-patterns-        -fwarn-incomplete-record-updates-        -funbox-strict-fields--    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-        , Network.AWS.DeviceFarm.GetProject-        , Network.AWS.DeviceFarm.GetRemoteAccessSession-        , Network.AWS.DeviceFarm.GetRun-        , 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-        , Network.AWS.DeviceFarm.ListOfferingTransactions-        , Network.AWS.DeviceFarm.ListOfferings-        , Network.AWS.DeviceFarm.ListProjects-        , Network.AWS.DeviceFarm.ListRemoteAccessSessions-        , Network.AWS.DeviceFarm.ListRuns-        , Network.AWS.DeviceFarm.ListSamples-        , Network.AWS.DeviceFarm.ListSuites-        , 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+  default-language: Haskell2010+  hs-source-dirs:   src gen+  ghc-options:+    -Wall -fwarn-incomplete-uni-patterns+    -fwarn-incomplete-record-updates -funbox-strict-fields -    other-modules:-          Network.AWS.DeviceFarm.Types.Product-        , Network.AWS.DeviceFarm.Types.Sum+  exposed-modules:+    Amazonka.DeviceFarm+    Amazonka.DeviceFarm.CreateDevicePool+    Amazonka.DeviceFarm.CreateInstanceProfile+    Amazonka.DeviceFarm.CreateNetworkProfile+    Amazonka.DeviceFarm.CreateProject+    Amazonka.DeviceFarm.CreateRemoteAccessSession+    Amazonka.DeviceFarm.CreateTestGridProject+    Amazonka.DeviceFarm.CreateTestGridUrl+    Amazonka.DeviceFarm.CreateUpload+    Amazonka.DeviceFarm.CreateVPCEConfiguration+    Amazonka.DeviceFarm.DeleteDevicePool+    Amazonka.DeviceFarm.DeleteInstanceProfile+    Amazonka.DeviceFarm.DeleteNetworkProfile+    Amazonka.DeviceFarm.DeleteProject+    Amazonka.DeviceFarm.DeleteRemoteAccessSession+    Amazonka.DeviceFarm.DeleteRun+    Amazonka.DeviceFarm.DeleteTestGridProject+    Amazonka.DeviceFarm.DeleteUpload+    Amazonka.DeviceFarm.DeleteVPCEConfiguration+    Amazonka.DeviceFarm.GetAccountSettings+    Amazonka.DeviceFarm.GetDevice+    Amazonka.DeviceFarm.GetDeviceInstance+    Amazonka.DeviceFarm.GetDevicePool+    Amazonka.DeviceFarm.GetDevicePoolCompatibility+    Amazonka.DeviceFarm.GetInstanceProfile+    Amazonka.DeviceFarm.GetJob+    Amazonka.DeviceFarm.GetNetworkProfile+    Amazonka.DeviceFarm.GetOfferingStatus+    Amazonka.DeviceFarm.GetProject+    Amazonka.DeviceFarm.GetRemoteAccessSession+    Amazonka.DeviceFarm.GetRun+    Amazonka.DeviceFarm.GetSuite+    Amazonka.DeviceFarm.GetTest+    Amazonka.DeviceFarm.GetTestGridProject+    Amazonka.DeviceFarm.GetTestGridSession+    Amazonka.DeviceFarm.GetUpload+    Amazonka.DeviceFarm.GetVPCEConfiguration+    Amazonka.DeviceFarm.InstallToRemoteAccessSession+    Amazonka.DeviceFarm.Lens+    Amazonka.DeviceFarm.ListArtifacts+    Amazonka.DeviceFarm.ListDeviceInstances+    Amazonka.DeviceFarm.ListDevicePools+    Amazonka.DeviceFarm.ListDevices+    Amazonka.DeviceFarm.ListInstanceProfiles+    Amazonka.DeviceFarm.ListJobs+    Amazonka.DeviceFarm.ListNetworkProfiles+    Amazonka.DeviceFarm.ListOfferingPromotions+    Amazonka.DeviceFarm.ListOfferings+    Amazonka.DeviceFarm.ListOfferingTransactions+    Amazonka.DeviceFarm.ListProjects+    Amazonka.DeviceFarm.ListRemoteAccessSessions+    Amazonka.DeviceFarm.ListRuns+    Amazonka.DeviceFarm.ListSamples+    Amazonka.DeviceFarm.ListSuites+    Amazonka.DeviceFarm.ListTagsForResource+    Amazonka.DeviceFarm.ListTestGridProjects+    Amazonka.DeviceFarm.ListTestGridSessionActions+    Amazonka.DeviceFarm.ListTestGridSessionArtifacts+    Amazonka.DeviceFarm.ListTestGridSessions+    Amazonka.DeviceFarm.ListTests+    Amazonka.DeviceFarm.ListUniqueProblems+    Amazonka.DeviceFarm.ListUploads+    Amazonka.DeviceFarm.ListVPCEConfigurations+    Amazonka.DeviceFarm.PurchaseOffering+    Amazonka.DeviceFarm.RenewOffering+    Amazonka.DeviceFarm.ScheduleRun+    Amazonka.DeviceFarm.StopJob+    Amazonka.DeviceFarm.StopRemoteAccessSession+    Amazonka.DeviceFarm.StopRun+    Amazonka.DeviceFarm.TagResource+    Amazonka.DeviceFarm.Types+    Amazonka.DeviceFarm.Types.AccountSettings+    Amazonka.DeviceFarm.Types.Artifact+    Amazonka.DeviceFarm.Types.ArtifactCategory+    Amazonka.DeviceFarm.Types.ArtifactType+    Amazonka.DeviceFarm.Types.BillingMethod+    Amazonka.DeviceFarm.Types.Counters+    Amazonka.DeviceFarm.Types.CPU+    Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration+    Amazonka.DeviceFarm.Types.CurrencyCode+    Amazonka.DeviceFarm.Types.CustomerArtifactPaths+    Amazonka.DeviceFarm.Types.Device+    Amazonka.DeviceFarm.Types.DeviceAttribute+    Amazonka.DeviceFarm.Types.DeviceAvailability+    Amazonka.DeviceFarm.Types.DeviceFilter+    Amazonka.DeviceFarm.Types.DeviceFilterAttribute+    Amazonka.DeviceFarm.Types.DeviceFormFactor+    Amazonka.DeviceFarm.Types.DeviceInstance+    Amazonka.DeviceFarm.Types.DeviceMinutes+    Amazonka.DeviceFarm.Types.DevicePlatform+    Amazonka.DeviceFarm.Types.DevicePool+    Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult+    Amazonka.DeviceFarm.Types.DevicePoolType+    Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration+    Amazonka.DeviceFarm.Types.DeviceSelectionResult+    Amazonka.DeviceFarm.Types.ExecutionConfiguration+    Amazonka.DeviceFarm.Types.ExecutionResult+    Amazonka.DeviceFarm.Types.ExecutionResultCode+    Amazonka.DeviceFarm.Types.ExecutionStatus+    Amazonka.DeviceFarm.Types.IncompatibilityMessage+    Amazonka.DeviceFarm.Types.InstanceProfile+    Amazonka.DeviceFarm.Types.InstanceStatus+    Amazonka.DeviceFarm.Types.InteractionMode+    Amazonka.DeviceFarm.Types.Job+    Amazonka.DeviceFarm.Types.Location+    Amazonka.DeviceFarm.Types.MonetaryAmount+    Amazonka.DeviceFarm.Types.NetworkProfile+    Amazonka.DeviceFarm.Types.NetworkProfileType+    Amazonka.DeviceFarm.Types.Offering+    Amazonka.DeviceFarm.Types.OfferingPromotion+    Amazonka.DeviceFarm.Types.OfferingStatus+    Amazonka.DeviceFarm.Types.OfferingTransaction+    Amazonka.DeviceFarm.Types.OfferingTransactionType+    Amazonka.DeviceFarm.Types.OfferingType+    Amazonka.DeviceFarm.Types.Problem+    Amazonka.DeviceFarm.Types.ProblemDetail+    Amazonka.DeviceFarm.Types.Project+    Amazonka.DeviceFarm.Types.Radios+    Amazonka.DeviceFarm.Types.RecurringCharge+    Amazonka.DeviceFarm.Types.RecurringChargeFrequency+    Amazonka.DeviceFarm.Types.RemoteAccessSession+    Amazonka.DeviceFarm.Types.Resolution+    Amazonka.DeviceFarm.Types.Rule+    Amazonka.DeviceFarm.Types.RuleOperator+    Amazonka.DeviceFarm.Types.Run+    Amazonka.DeviceFarm.Types.Sample+    Amazonka.DeviceFarm.Types.SampleType+    Amazonka.DeviceFarm.Types.ScheduleRunConfiguration+    Amazonka.DeviceFarm.Types.ScheduleRunTest+    Amazonka.DeviceFarm.Types.Suite+    Amazonka.DeviceFarm.Types.Tag+    Amazonka.DeviceFarm.Types.Test+    Amazonka.DeviceFarm.Types.TestGridProject+    Amazonka.DeviceFarm.Types.TestGridSession+    Amazonka.DeviceFarm.Types.TestGridSessionAction+    Amazonka.DeviceFarm.Types.TestGridSessionArtifact+    Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory+    Amazonka.DeviceFarm.Types.TestGridSessionArtifactType+    Amazonka.DeviceFarm.Types.TestGridSessionStatus+    Amazonka.DeviceFarm.Types.TestGridVpcConfig+    Amazonka.DeviceFarm.Types.TestType+    Amazonka.DeviceFarm.Types.TrialMinutes+    Amazonka.DeviceFarm.Types.UniqueProblem+    Amazonka.DeviceFarm.Types.Upload+    Amazonka.DeviceFarm.Types.UploadCategory+    Amazonka.DeviceFarm.Types.UploadStatus+    Amazonka.DeviceFarm.Types.UploadType+    Amazonka.DeviceFarm.Types.VpcConfig+    Amazonka.DeviceFarm.Types.VPCEConfiguration+    Amazonka.DeviceFarm.UntagResource+    Amazonka.DeviceFarm.UpdateDeviceInstance+    Amazonka.DeviceFarm.UpdateDevicePool+    Amazonka.DeviceFarm.UpdateInstanceProfile+    Amazonka.DeviceFarm.UpdateNetworkProfile+    Amazonka.DeviceFarm.UpdateProject+    Amazonka.DeviceFarm.UpdateTestGridProject+    Amazonka.DeviceFarm.UpdateUpload+    Amazonka.DeviceFarm.UpdateVPCEConfiguration+    Amazonka.DeviceFarm.Waiters -    build-depends:-          amazonka-core == 1.6.1.*-        , base          >= 4.7     && < 5+  build-depends:+    , amazonka-core  >=2.0  && <2.1+    , base           >=4.12 && <5  test-suite amazonka-devicefarm-test-    type:              exitcode-stdio-1.0-    default-language:  Haskell2010-    hs-source-dirs:    test-    main-is:           Main.hs--    ghc-options:       -Wall -threaded+  type:             exitcode-stdio-1.0+  default-language: Haskell2010+  hs-source-dirs:   test+  main-is:          Main.hs+  ghc-options:      -Wall -threaded -    -- This section is encoded by the template and any modules added by-    -- hand outside these namespaces will not correctly be added to the-    -- distribution package.-    other-modules:-          Test.AWS.DeviceFarm-        , Test.AWS.Gen.DeviceFarm-        , Test.AWS.DeviceFarm.Internal+  -- This section is encoded by the template and any modules added by+  -- hand outside these namespaces will not correctly be added to the+  -- distribution package.+  other-modules:+    Test.Amazonka.DeviceFarm+    Test.Amazonka.DeviceFarm.Internal+    Test.Amazonka.Gen.DeviceFarm -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-devicefarm-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-core         >=2.0 && <2.1+    , amazonka-devicefarm+    , amazonka-test         >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers
fixture/CreateDevicePool.yaml view
@@ -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:+  ''
fixture/CreateProject.yaml view
@@ -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:+  ''
fixture/CreateRemoteAccessSession.yaml view
@@ -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:+  ''
+ fixture/CreateTestGridProject.yaml view
@@ -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:+  ''
+ fixture/CreateTestGridProjectResponse.proto view
+ fixture/CreateTestGridUrl.yaml view
@@ -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:+  ''
+ fixture/CreateTestGridUrlResponse.proto view
fixture/CreateUpload.yaml view
@@ -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:+  ''
fixture/DeleteDevicePool.yaml view
@@ -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:+  ''
fixture/DeleteProject.yaml view
@@ -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:+  ''
fixture/DeleteRemoteAccessSession.yaml view
@@ -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:+  ''
fixture/DeleteRun.yaml view
@@ -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:+  ''
+ fixture/DeleteTestGridProject.yaml view
@@ -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:+  ''
+ fixture/DeleteTestGridProjectResponse.proto view
fixture/DeleteUpload.yaml view
@@ -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:+  ''
fixture/GetAccountSettings.yaml view
@@ -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:+  ''
fixture/GetDevice.yaml view
@@ -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:+  ''
fixture/GetDevicePool.yaml view
@@ -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:+  ''
fixture/GetDevicePoolCompatibility.yaml view
@@ -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:+  ''
fixture/GetJob.yaml view
@@ -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:+  ''
fixture/GetOfferingStatus.yaml view
@@ -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:+  ''
fixture/GetProject.yaml view
@@ -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:+  ''
fixture/GetRemoteAccessSession.yaml view
@@ -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:+  ''
fixture/GetRun.yaml view
@@ -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:+  ''
fixture/GetSuite.yaml view
@@ -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:+  ''
fixture/GetTest.yaml view
@@ -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:+  ''
+ fixture/GetTestGridProject.yaml view
@@ -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:+  ''
+ fixture/GetTestGridProjectResponse.proto view
+ fixture/GetTestGridSession.yaml view
@@ -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:+  ''
+ fixture/GetTestGridSessionResponse.proto view
fixture/GetUpload.yaml view
@@ -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:+  ''
fixture/InstallToRemoteAccessSession.yaml view
@@ -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:+  ''
fixture/ListArtifacts.yaml view
@@ -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:+  ''
fixture/ListDevicePools.yaml view
@@ -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:+  ''
fixture/ListDevices.yaml view
@@ -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:+  ''
fixture/ListJobs.yaml view
@@ -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:+  ''
fixture/ListOfferingTransactions.yaml view
@@ -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:+  ''
fixture/ListOfferings.yaml view
@@ -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:+  ''
fixture/ListProjects.yaml view
@@ -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:+  ''
fixture/ListRemoteAccessSessions.yaml view
@@ -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:+  ''
fixture/ListRuns.yaml view
@@ -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:+  ''
fixture/ListSamples.yaml view
@@ -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:+  ''
fixture/ListSuites.yaml view
@@ -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:+  ''
+ fixture/ListTagsForResource.yaml view
@@ -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:+  ''
+ fixture/ListTagsForResourceResponse.proto view
+ fixture/ListTestGridProjects.yaml view
@@ -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:+  ''
+ fixture/ListTestGridProjectsResponse.proto view
+ fixture/ListTestGridSessionActions.yaml view
@@ -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:+  ''
+ fixture/ListTestGridSessionActionsResponse.proto view
+ fixture/ListTestGridSessionArtifacts.yaml view
@@ -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:+  ''
+ fixture/ListTestGridSessionArtifactsResponse.proto view
+ fixture/ListTestGridSessions.yaml view
@@ -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:+  ''
+ fixture/ListTestGridSessionsResponse.proto view
fixture/ListTests.yaml view
@@ -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:+  ''
fixture/ListUniqueProblems.yaml view
@@ -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:+  ''
fixture/ListUploads.yaml view
@@ -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:+  ''
fixture/PurchaseOffering.yaml view
@@ -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:+  ''
fixture/RenewOffering.yaml view
@@ -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:+  ''
fixture/ScheduleRun.yaml view
@@ -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:+  ''
+ fixture/StopJob.yaml view
@@ -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:+  ''
+ fixture/StopJobResponse.proto view
fixture/StopRemoteAccessSession.yaml view
@@ -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:+  ''
fixture/StopRun.yaml view
@@ -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:+  ''
+ fixture/TagResource.yaml view
@@ -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:+  ''
+ fixture/TagResourceResponse.proto view
+ fixture/UntagResource.yaml view
@@ -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:+  ''
+ fixture/UntagResourceResponse.proto view
fixture/UpdateDevicePool.yaml view
@@ -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:+  ''
fixture/UpdateProject.yaml view
@@ -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:+  ''
+ fixture/UpdateTestGridProject.yaml view
@@ -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:+  ''
+ fixture/UpdateTestGridProjectResponse.proto view
+ fixture/UpdateUpload.yaml view
@@ -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:+  ''
+ fixture/UpdateUploadResponse.proto view
+ gen/Amazonka/DeviceFarm.hs view
@@ -0,0 +1,935 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.DeviceFarm+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Derived from API version @2015-06-23@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Welcome to the AWS Device Farm API documentation, which contains APIs+-- for:+--+-- -   Testing on desktop browsers+--+--     Device Farm makes it possible for you to test your web applications+--     on desktop browsers using Selenium. The APIs for desktop browser+--     testing contain @TestGrid@ in their names. For more information, see+--     <https://docs.aws.amazon.com/devicefarm/latest/testgrid/ Testing Web Applications on Selenium with Device Farm>.+--+-- -   Testing on real mobile devices+--+--     Device Farm makes it possible for you to test apps on physical+--     phones, tablets, and other devices in the cloud. For more+--     information, see the+--     <https://docs.aws.amazon.com/devicefarm/latest/developerguide/ Device Farm Developer Guide>.+module Amazonka.DeviceFarm+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** ArgumentException+    _ArgumentException,++    -- ** CannotDeleteException+    _CannotDeleteException,++    -- ** IdempotencyException+    _IdempotencyException,++    -- ** InternalServiceException+    _InternalServiceException,++    -- ** InvalidOperationException+    _InvalidOperationException,++    -- ** LimitExceededException+    _LimitExceededException,++    -- ** NotEligibleException+    _NotEligibleException,++    -- ** NotFoundException+    _NotFoundException,++    -- ** ServiceAccountException+    _ServiceAccountException,++    -- ** TagOperationException+    _TagOperationException,++    -- ** TagPolicyException+    _TagPolicyException,++    -- ** TooManyTagsException+    _TooManyTagsException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** CreateDevicePool+    CreateDevicePool (CreateDevicePool'),+    newCreateDevicePool,+    CreateDevicePoolResponse (CreateDevicePoolResponse'),+    newCreateDevicePoolResponse,++    -- ** CreateInstanceProfile+    CreateInstanceProfile (CreateInstanceProfile'),+    newCreateInstanceProfile,+    CreateInstanceProfileResponse (CreateInstanceProfileResponse'),+    newCreateInstanceProfileResponse,++    -- ** CreateNetworkProfile+    CreateNetworkProfile (CreateNetworkProfile'),+    newCreateNetworkProfile,+    CreateNetworkProfileResponse (CreateNetworkProfileResponse'),+    newCreateNetworkProfileResponse,++    -- ** CreateProject+    CreateProject (CreateProject'),+    newCreateProject,+    CreateProjectResponse (CreateProjectResponse'),+    newCreateProjectResponse,++    -- ** CreateRemoteAccessSession+    CreateRemoteAccessSession (CreateRemoteAccessSession'),+    newCreateRemoteAccessSession,+    CreateRemoteAccessSessionResponse (CreateRemoteAccessSessionResponse'),+    newCreateRemoteAccessSessionResponse,++    -- ** CreateTestGridProject+    CreateTestGridProject (CreateTestGridProject'),+    newCreateTestGridProject,+    CreateTestGridProjectResponse (CreateTestGridProjectResponse'),+    newCreateTestGridProjectResponse,++    -- ** CreateTestGridUrl+    CreateTestGridUrl (CreateTestGridUrl'),+    newCreateTestGridUrl,+    CreateTestGridUrlResponse (CreateTestGridUrlResponse'),+    newCreateTestGridUrlResponse,++    -- ** CreateUpload+    CreateUpload (CreateUpload'),+    newCreateUpload,+    CreateUploadResponse (CreateUploadResponse'),+    newCreateUploadResponse,++    -- ** CreateVPCEConfiguration+    CreateVPCEConfiguration (CreateVPCEConfiguration'),+    newCreateVPCEConfiguration,+    CreateVPCEConfigurationResponse (CreateVPCEConfigurationResponse'),+    newCreateVPCEConfigurationResponse,++    -- ** DeleteDevicePool+    DeleteDevicePool (DeleteDevicePool'),+    newDeleteDevicePool,+    DeleteDevicePoolResponse (DeleteDevicePoolResponse'),+    newDeleteDevicePoolResponse,++    -- ** DeleteInstanceProfile+    DeleteInstanceProfile (DeleteInstanceProfile'),+    newDeleteInstanceProfile,+    DeleteInstanceProfileResponse (DeleteInstanceProfileResponse'),+    newDeleteInstanceProfileResponse,++    -- ** DeleteNetworkProfile+    DeleteNetworkProfile (DeleteNetworkProfile'),+    newDeleteNetworkProfile,+    DeleteNetworkProfileResponse (DeleteNetworkProfileResponse'),+    newDeleteNetworkProfileResponse,++    -- ** DeleteProject+    DeleteProject (DeleteProject'),+    newDeleteProject,+    DeleteProjectResponse (DeleteProjectResponse'),+    newDeleteProjectResponse,++    -- ** DeleteRemoteAccessSession+    DeleteRemoteAccessSession (DeleteRemoteAccessSession'),+    newDeleteRemoteAccessSession,+    DeleteRemoteAccessSessionResponse (DeleteRemoteAccessSessionResponse'),+    newDeleteRemoteAccessSessionResponse,++    -- ** DeleteRun+    DeleteRun (DeleteRun'),+    newDeleteRun,+    DeleteRunResponse (DeleteRunResponse'),+    newDeleteRunResponse,++    -- ** DeleteTestGridProject+    DeleteTestGridProject (DeleteTestGridProject'),+    newDeleteTestGridProject,+    DeleteTestGridProjectResponse (DeleteTestGridProjectResponse'),+    newDeleteTestGridProjectResponse,++    -- ** DeleteUpload+    DeleteUpload (DeleteUpload'),+    newDeleteUpload,+    DeleteUploadResponse (DeleteUploadResponse'),+    newDeleteUploadResponse,++    -- ** DeleteVPCEConfiguration+    DeleteVPCEConfiguration (DeleteVPCEConfiguration'),+    newDeleteVPCEConfiguration,+    DeleteVPCEConfigurationResponse (DeleteVPCEConfigurationResponse'),+    newDeleteVPCEConfigurationResponse,++    -- ** GetAccountSettings+    GetAccountSettings (GetAccountSettings'),+    newGetAccountSettings,+    GetAccountSettingsResponse (GetAccountSettingsResponse'),+    newGetAccountSettingsResponse,++    -- ** GetDevice+    GetDevice (GetDevice'),+    newGetDevice,+    GetDeviceResponse (GetDeviceResponse'),+    newGetDeviceResponse,++    -- ** GetDeviceInstance+    GetDeviceInstance (GetDeviceInstance'),+    newGetDeviceInstance,+    GetDeviceInstanceResponse (GetDeviceInstanceResponse'),+    newGetDeviceInstanceResponse,++    -- ** GetDevicePool+    GetDevicePool (GetDevicePool'),+    newGetDevicePool,+    GetDevicePoolResponse (GetDevicePoolResponse'),+    newGetDevicePoolResponse,++    -- ** GetDevicePoolCompatibility+    GetDevicePoolCompatibility (GetDevicePoolCompatibility'),+    newGetDevicePoolCompatibility,+    GetDevicePoolCompatibilityResponse (GetDevicePoolCompatibilityResponse'),+    newGetDevicePoolCompatibilityResponse,++    -- ** GetInstanceProfile+    GetInstanceProfile (GetInstanceProfile'),+    newGetInstanceProfile,+    GetInstanceProfileResponse (GetInstanceProfileResponse'),+    newGetInstanceProfileResponse,++    -- ** GetJob+    GetJob (GetJob'),+    newGetJob,+    GetJobResponse (GetJobResponse'),+    newGetJobResponse,++    -- ** GetNetworkProfile+    GetNetworkProfile (GetNetworkProfile'),+    newGetNetworkProfile,+    GetNetworkProfileResponse (GetNetworkProfileResponse'),+    newGetNetworkProfileResponse,++    -- ** GetOfferingStatus (Paginated)+    GetOfferingStatus (GetOfferingStatus'),+    newGetOfferingStatus,+    GetOfferingStatusResponse (GetOfferingStatusResponse'),+    newGetOfferingStatusResponse,++    -- ** GetProject+    GetProject (GetProject'),+    newGetProject,+    GetProjectResponse (GetProjectResponse'),+    newGetProjectResponse,++    -- ** GetRemoteAccessSession+    GetRemoteAccessSession (GetRemoteAccessSession'),+    newGetRemoteAccessSession,+    GetRemoteAccessSessionResponse (GetRemoteAccessSessionResponse'),+    newGetRemoteAccessSessionResponse,++    -- ** GetRun+    GetRun (GetRun'),+    newGetRun,+    GetRunResponse (GetRunResponse'),+    newGetRunResponse,++    -- ** GetSuite+    GetSuite (GetSuite'),+    newGetSuite,+    GetSuiteResponse (GetSuiteResponse'),+    newGetSuiteResponse,++    -- ** GetTest+    GetTest (GetTest'),+    newGetTest,+    GetTestResponse (GetTestResponse'),+    newGetTestResponse,++    -- ** GetTestGridProject+    GetTestGridProject (GetTestGridProject'),+    newGetTestGridProject,+    GetTestGridProjectResponse (GetTestGridProjectResponse'),+    newGetTestGridProjectResponse,++    -- ** GetTestGridSession+    GetTestGridSession (GetTestGridSession'),+    newGetTestGridSession,+    GetTestGridSessionResponse (GetTestGridSessionResponse'),+    newGetTestGridSessionResponse,++    -- ** GetUpload+    GetUpload (GetUpload'),+    newGetUpload,+    GetUploadResponse (GetUploadResponse'),+    newGetUploadResponse,++    -- ** GetVPCEConfiguration+    GetVPCEConfiguration (GetVPCEConfiguration'),+    newGetVPCEConfiguration,+    GetVPCEConfigurationResponse (GetVPCEConfigurationResponse'),+    newGetVPCEConfigurationResponse,++    -- ** InstallToRemoteAccessSession+    InstallToRemoteAccessSession (InstallToRemoteAccessSession'),+    newInstallToRemoteAccessSession,+    InstallToRemoteAccessSessionResponse (InstallToRemoteAccessSessionResponse'),+    newInstallToRemoteAccessSessionResponse,++    -- ** ListArtifacts (Paginated)+    ListArtifacts (ListArtifacts'),+    newListArtifacts,+    ListArtifactsResponse (ListArtifactsResponse'),+    newListArtifactsResponse,++    -- ** ListDeviceInstances (Paginated)+    ListDeviceInstances (ListDeviceInstances'),+    newListDeviceInstances,+    ListDeviceInstancesResponse (ListDeviceInstancesResponse'),+    newListDeviceInstancesResponse,++    -- ** ListDevicePools (Paginated)+    ListDevicePools (ListDevicePools'),+    newListDevicePools,+    ListDevicePoolsResponse (ListDevicePoolsResponse'),+    newListDevicePoolsResponse,++    -- ** ListDevices (Paginated)+    ListDevices (ListDevices'),+    newListDevices,+    ListDevicesResponse (ListDevicesResponse'),+    newListDevicesResponse,++    -- ** ListInstanceProfiles (Paginated)+    ListInstanceProfiles (ListInstanceProfiles'),+    newListInstanceProfiles,+    ListInstanceProfilesResponse (ListInstanceProfilesResponse'),+    newListInstanceProfilesResponse,++    -- ** ListJobs (Paginated)+    ListJobs (ListJobs'),+    newListJobs,+    ListJobsResponse (ListJobsResponse'),+    newListJobsResponse,++    -- ** ListNetworkProfiles (Paginated)+    ListNetworkProfiles (ListNetworkProfiles'),+    newListNetworkProfiles,+    ListNetworkProfilesResponse (ListNetworkProfilesResponse'),+    newListNetworkProfilesResponse,++    -- ** ListOfferingPromotions (Paginated)+    ListOfferingPromotions (ListOfferingPromotions'),+    newListOfferingPromotions,+    ListOfferingPromotionsResponse (ListOfferingPromotionsResponse'),+    newListOfferingPromotionsResponse,++    -- ** ListOfferingTransactions (Paginated)+    ListOfferingTransactions (ListOfferingTransactions'),+    newListOfferingTransactions,+    ListOfferingTransactionsResponse (ListOfferingTransactionsResponse'),+    newListOfferingTransactionsResponse,++    -- ** ListOfferings (Paginated)+    ListOfferings (ListOfferings'),+    newListOfferings,+    ListOfferingsResponse (ListOfferingsResponse'),+    newListOfferingsResponse,++    -- ** ListProjects (Paginated)+    ListProjects (ListProjects'),+    newListProjects,+    ListProjectsResponse (ListProjectsResponse'),+    newListProjectsResponse,++    -- ** ListRemoteAccessSessions (Paginated)+    ListRemoteAccessSessions (ListRemoteAccessSessions'),+    newListRemoteAccessSessions,+    ListRemoteAccessSessionsResponse (ListRemoteAccessSessionsResponse'),+    newListRemoteAccessSessionsResponse,++    -- ** ListRuns (Paginated)+    ListRuns (ListRuns'),+    newListRuns,+    ListRunsResponse (ListRunsResponse'),+    newListRunsResponse,++    -- ** ListSamples (Paginated)+    ListSamples (ListSamples'),+    newListSamples,+    ListSamplesResponse (ListSamplesResponse'),+    newListSamplesResponse,++    -- ** ListSuites (Paginated)+    ListSuites (ListSuites'),+    newListSuites,+    ListSuitesResponse (ListSuitesResponse'),+    newListSuitesResponse,++    -- ** ListTagsForResource+    ListTagsForResource (ListTagsForResource'),+    newListTagsForResource,+    ListTagsForResourceResponse (ListTagsForResourceResponse'),+    newListTagsForResourceResponse,++    -- ** ListTestGridProjects+    ListTestGridProjects (ListTestGridProjects'),+    newListTestGridProjects,+    ListTestGridProjectsResponse (ListTestGridProjectsResponse'),+    newListTestGridProjectsResponse,++    -- ** ListTestGridSessionActions+    ListTestGridSessionActions (ListTestGridSessionActions'),+    newListTestGridSessionActions,+    ListTestGridSessionActionsResponse (ListTestGridSessionActionsResponse'),+    newListTestGridSessionActionsResponse,++    -- ** ListTestGridSessionArtifacts+    ListTestGridSessionArtifacts (ListTestGridSessionArtifacts'),+    newListTestGridSessionArtifacts,+    ListTestGridSessionArtifactsResponse (ListTestGridSessionArtifactsResponse'),+    newListTestGridSessionArtifactsResponse,++    -- ** ListTestGridSessions+    ListTestGridSessions (ListTestGridSessions'),+    newListTestGridSessions,+    ListTestGridSessionsResponse (ListTestGridSessionsResponse'),+    newListTestGridSessionsResponse,++    -- ** ListTests (Paginated)+    ListTests (ListTests'),+    newListTests,+    ListTestsResponse (ListTestsResponse'),+    newListTestsResponse,++    -- ** ListUniqueProblems (Paginated)+    ListUniqueProblems (ListUniqueProblems'),+    newListUniqueProblems,+    ListUniqueProblemsResponse (ListUniqueProblemsResponse'),+    newListUniqueProblemsResponse,++    -- ** ListUploads (Paginated)+    ListUploads (ListUploads'),+    newListUploads,+    ListUploadsResponse (ListUploadsResponse'),+    newListUploadsResponse,++    -- ** ListVPCEConfigurations (Paginated)+    ListVPCEConfigurations (ListVPCEConfigurations'),+    newListVPCEConfigurations,+    ListVPCEConfigurationsResponse (ListVPCEConfigurationsResponse'),+    newListVPCEConfigurationsResponse,++    -- ** PurchaseOffering+    PurchaseOffering (PurchaseOffering'),+    newPurchaseOffering,+    PurchaseOfferingResponse (PurchaseOfferingResponse'),+    newPurchaseOfferingResponse,++    -- ** RenewOffering+    RenewOffering (RenewOffering'),+    newRenewOffering,+    RenewOfferingResponse (RenewOfferingResponse'),+    newRenewOfferingResponse,++    -- ** ScheduleRun+    ScheduleRun (ScheduleRun'),+    newScheduleRun,+    ScheduleRunResponse (ScheduleRunResponse'),+    newScheduleRunResponse,++    -- ** StopJob+    StopJob (StopJob'),+    newStopJob,+    StopJobResponse (StopJobResponse'),+    newStopJobResponse,++    -- ** StopRemoteAccessSession+    StopRemoteAccessSession (StopRemoteAccessSession'),+    newStopRemoteAccessSession,+    StopRemoteAccessSessionResponse (StopRemoteAccessSessionResponse'),+    newStopRemoteAccessSessionResponse,++    -- ** StopRun+    StopRun (StopRun'),+    newStopRun,+    StopRunResponse (StopRunResponse'),+    newStopRunResponse,++    -- ** TagResource+    TagResource (TagResource'),+    newTagResource,+    TagResourceResponse (TagResourceResponse'),+    newTagResourceResponse,++    -- ** UntagResource+    UntagResource (UntagResource'),+    newUntagResource,+    UntagResourceResponse (UntagResourceResponse'),+    newUntagResourceResponse,++    -- ** UpdateDeviceInstance+    UpdateDeviceInstance (UpdateDeviceInstance'),+    newUpdateDeviceInstance,+    UpdateDeviceInstanceResponse (UpdateDeviceInstanceResponse'),+    newUpdateDeviceInstanceResponse,++    -- ** UpdateDevicePool+    UpdateDevicePool (UpdateDevicePool'),+    newUpdateDevicePool,+    UpdateDevicePoolResponse (UpdateDevicePoolResponse'),+    newUpdateDevicePoolResponse,++    -- ** UpdateInstanceProfile+    UpdateInstanceProfile (UpdateInstanceProfile'),+    newUpdateInstanceProfile,+    UpdateInstanceProfileResponse (UpdateInstanceProfileResponse'),+    newUpdateInstanceProfileResponse,++    -- ** UpdateNetworkProfile+    UpdateNetworkProfile (UpdateNetworkProfile'),+    newUpdateNetworkProfile,+    UpdateNetworkProfileResponse (UpdateNetworkProfileResponse'),+    newUpdateNetworkProfileResponse,++    -- ** UpdateProject+    UpdateProject (UpdateProject'),+    newUpdateProject,+    UpdateProjectResponse (UpdateProjectResponse'),+    newUpdateProjectResponse,++    -- ** UpdateTestGridProject+    UpdateTestGridProject (UpdateTestGridProject'),+    newUpdateTestGridProject,+    UpdateTestGridProjectResponse (UpdateTestGridProjectResponse'),+    newUpdateTestGridProjectResponse,++    -- ** UpdateUpload+    UpdateUpload (UpdateUpload'),+    newUpdateUpload,+    UpdateUploadResponse (UpdateUploadResponse'),+    newUpdateUploadResponse,++    -- ** UpdateVPCEConfiguration+    UpdateVPCEConfiguration (UpdateVPCEConfiguration'),+    newUpdateVPCEConfiguration,+    UpdateVPCEConfigurationResponse (UpdateVPCEConfigurationResponse'),+    newUpdateVPCEConfigurationResponse,++    -- * Types++    -- ** ArtifactCategory+    ArtifactCategory (..),++    -- ** ArtifactType+    ArtifactType (..),++    -- ** BillingMethod+    BillingMethod (..),++    -- ** CurrencyCode+    CurrencyCode (..),++    -- ** DeviceAttribute+    DeviceAttribute (..),++    -- ** DeviceAvailability+    DeviceAvailability (..),++    -- ** DeviceFilterAttribute+    DeviceFilterAttribute (..),++    -- ** DeviceFormFactor+    DeviceFormFactor (..),++    -- ** DevicePlatform+    DevicePlatform (..),++    -- ** DevicePoolType+    DevicePoolType (..),++    -- ** ExecutionResult+    ExecutionResult (..),++    -- ** ExecutionResultCode+    ExecutionResultCode (..),++    -- ** ExecutionStatus+    ExecutionStatus (..),++    -- ** InstanceStatus+    InstanceStatus (..),++    -- ** InteractionMode+    InteractionMode (..),++    -- ** NetworkProfileType+    NetworkProfileType (..),++    -- ** OfferingTransactionType+    OfferingTransactionType (..),++    -- ** OfferingType+    OfferingType (..),++    -- ** RecurringChargeFrequency+    RecurringChargeFrequency (..),++    -- ** RuleOperator+    RuleOperator (..),++    -- ** SampleType+    SampleType (..),++    -- ** TestGridSessionArtifactCategory+    TestGridSessionArtifactCategory (..),++    -- ** TestGridSessionArtifactType+    TestGridSessionArtifactType (..),++    -- ** TestGridSessionStatus+    TestGridSessionStatus (..),++    -- ** TestType+    TestType (..),++    -- ** UploadCategory+    UploadCategory (..),++    -- ** UploadStatus+    UploadStatus (..),++    -- ** UploadType+    UploadType (..),++    -- ** AccountSettings+    AccountSettings (AccountSettings'),+    newAccountSettings,++    -- ** Artifact+    Artifact (Artifact'),+    newArtifact,++    -- ** CPU+    CPU (CPU'),+    newCPU,++    -- ** Counters+    Counters (Counters'),+    newCounters,++    -- ** CreateRemoteAccessSessionConfiguration+    CreateRemoteAccessSessionConfiguration (CreateRemoteAccessSessionConfiguration'),+    newCreateRemoteAccessSessionConfiguration,++    -- ** CustomerArtifactPaths+    CustomerArtifactPaths (CustomerArtifactPaths'),+    newCustomerArtifactPaths,++    -- ** Device+    Device (Device'),+    newDevice,++    -- ** DeviceFilter+    DeviceFilter (DeviceFilter'),+    newDeviceFilter,++    -- ** DeviceInstance+    DeviceInstance (DeviceInstance'),+    newDeviceInstance,++    -- ** DeviceMinutes+    DeviceMinutes (DeviceMinutes'),+    newDeviceMinutes,++    -- ** DevicePool+    DevicePool (DevicePool'),+    newDevicePool,++    -- ** DevicePoolCompatibilityResult+    DevicePoolCompatibilityResult (DevicePoolCompatibilityResult'),+    newDevicePoolCompatibilityResult,++    -- ** DeviceSelectionConfiguration+    DeviceSelectionConfiguration (DeviceSelectionConfiguration'),+    newDeviceSelectionConfiguration,++    -- ** DeviceSelectionResult+    DeviceSelectionResult (DeviceSelectionResult'),+    newDeviceSelectionResult,++    -- ** ExecutionConfiguration+    ExecutionConfiguration (ExecutionConfiguration'),+    newExecutionConfiguration,++    -- ** IncompatibilityMessage+    IncompatibilityMessage (IncompatibilityMessage'),+    newIncompatibilityMessage,++    -- ** InstanceProfile+    InstanceProfile (InstanceProfile'),+    newInstanceProfile,++    -- ** Job+    Job (Job'),+    newJob,++    -- ** Location+    Location (Location'),+    newLocation,++    -- ** MonetaryAmount+    MonetaryAmount (MonetaryAmount'),+    newMonetaryAmount,++    -- ** NetworkProfile+    NetworkProfile (NetworkProfile'),+    newNetworkProfile,++    -- ** Offering+    Offering (Offering'),+    newOffering,++    -- ** OfferingPromotion+    OfferingPromotion (OfferingPromotion'),+    newOfferingPromotion,++    -- ** OfferingStatus+    OfferingStatus (OfferingStatus'),+    newOfferingStatus,++    -- ** OfferingTransaction+    OfferingTransaction (OfferingTransaction'),+    newOfferingTransaction,++    -- ** Problem+    Problem (Problem'),+    newProblem,++    -- ** ProblemDetail+    ProblemDetail (ProblemDetail'),+    newProblemDetail,++    -- ** Project+    Project (Project'),+    newProject,++    -- ** Radios+    Radios (Radios'),+    newRadios,++    -- ** RecurringCharge+    RecurringCharge (RecurringCharge'),+    newRecurringCharge,++    -- ** RemoteAccessSession+    RemoteAccessSession (RemoteAccessSession'),+    newRemoteAccessSession,++    -- ** Resolution+    Resolution (Resolution'),+    newResolution,++    -- ** Rule+    Rule (Rule'),+    newRule,++    -- ** Run+    Run (Run'),+    newRun,++    -- ** Sample+    Sample (Sample'),+    newSample,++    -- ** ScheduleRunConfiguration+    ScheduleRunConfiguration (ScheduleRunConfiguration'),+    newScheduleRunConfiguration,++    -- ** ScheduleRunTest+    ScheduleRunTest (ScheduleRunTest'),+    newScheduleRunTest,++    -- ** Suite+    Suite (Suite'),+    newSuite,++    -- ** Tag+    Tag (Tag'),+    newTag,++    -- ** Test+    Test (Test'),+    newTest,++    -- ** TestGridProject+    TestGridProject (TestGridProject'),+    newTestGridProject,++    -- ** TestGridSession+    TestGridSession (TestGridSession'),+    newTestGridSession,++    -- ** TestGridSessionAction+    TestGridSessionAction (TestGridSessionAction'),+    newTestGridSessionAction,++    -- ** TestGridSessionArtifact+    TestGridSessionArtifact (TestGridSessionArtifact'),+    newTestGridSessionArtifact,++    -- ** TestGridVpcConfig+    TestGridVpcConfig (TestGridVpcConfig'),+    newTestGridVpcConfig,++    -- ** TrialMinutes+    TrialMinutes (TrialMinutes'),+    newTrialMinutes,++    -- ** UniqueProblem+    UniqueProblem (UniqueProblem'),+    newUniqueProblem,++    -- ** Upload+    Upload (Upload'),+    newUpload,++    -- ** VPCEConfiguration+    VPCEConfiguration (VPCEConfiguration'),+    newVPCEConfiguration,++    -- ** VpcConfig+    VpcConfig (VpcConfig'),+    newVpcConfig,+  )+where++import Amazonka.DeviceFarm.CreateDevicePool+import Amazonka.DeviceFarm.CreateInstanceProfile+import Amazonka.DeviceFarm.CreateNetworkProfile+import Amazonka.DeviceFarm.CreateProject+import Amazonka.DeviceFarm.CreateRemoteAccessSession+import Amazonka.DeviceFarm.CreateTestGridProject+import Amazonka.DeviceFarm.CreateTestGridUrl+import Amazonka.DeviceFarm.CreateUpload+import Amazonka.DeviceFarm.CreateVPCEConfiguration+import Amazonka.DeviceFarm.DeleteDevicePool+import Amazonka.DeviceFarm.DeleteInstanceProfile+import Amazonka.DeviceFarm.DeleteNetworkProfile+import Amazonka.DeviceFarm.DeleteProject+import Amazonka.DeviceFarm.DeleteRemoteAccessSession+import Amazonka.DeviceFarm.DeleteRun+import Amazonka.DeviceFarm.DeleteTestGridProject+import Amazonka.DeviceFarm.DeleteUpload+import Amazonka.DeviceFarm.DeleteVPCEConfiguration+import Amazonka.DeviceFarm.GetAccountSettings+import Amazonka.DeviceFarm.GetDevice+import Amazonka.DeviceFarm.GetDeviceInstance+import Amazonka.DeviceFarm.GetDevicePool+import Amazonka.DeviceFarm.GetDevicePoolCompatibility+import Amazonka.DeviceFarm.GetInstanceProfile+import Amazonka.DeviceFarm.GetJob+import Amazonka.DeviceFarm.GetNetworkProfile+import Amazonka.DeviceFarm.GetOfferingStatus+import Amazonka.DeviceFarm.GetProject+import Amazonka.DeviceFarm.GetRemoteAccessSession+import Amazonka.DeviceFarm.GetRun+import Amazonka.DeviceFarm.GetSuite+import Amazonka.DeviceFarm.GetTest+import Amazonka.DeviceFarm.GetTestGridProject+import Amazonka.DeviceFarm.GetTestGridSession+import Amazonka.DeviceFarm.GetUpload+import Amazonka.DeviceFarm.GetVPCEConfiguration+import Amazonka.DeviceFarm.InstallToRemoteAccessSession+import Amazonka.DeviceFarm.Lens+import Amazonka.DeviceFarm.ListArtifacts+import Amazonka.DeviceFarm.ListDeviceInstances+import Amazonka.DeviceFarm.ListDevicePools+import Amazonka.DeviceFarm.ListDevices+import Amazonka.DeviceFarm.ListInstanceProfiles+import Amazonka.DeviceFarm.ListJobs+import Amazonka.DeviceFarm.ListNetworkProfiles+import Amazonka.DeviceFarm.ListOfferingPromotions+import Amazonka.DeviceFarm.ListOfferingTransactions+import Amazonka.DeviceFarm.ListOfferings+import Amazonka.DeviceFarm.ListProjects+import Amazonka.DeviceFarm.ListRemoteAccessSessions+import Amazonka.DeviceFarm.ListRuns+import Amazonka.DeviceFarm.ListSamples+import Amazonka.DeviceFarm.ListSuites+import Amazonka.DeviceFarm.ListTagsForResource+import Amazonka.DeviceFarm.ListTestGridProjects+import Amazonka.DeviceFarm.ListTestGridSessionActions+import Amazonka.DeviceFarm.ListTestGridSessionArtifacts+import Amazonka.DeviceFarm.ListTestGridSessions+import Amazonka.DeviceFarm.ListTests+import Amazonka.DeviceFarm.ListUniqueProblems+import Amazonka.DeviceFarm.ListUploads+import Amazonka.DeviceFarm.ListVPCEConfigurations+import Amazonka.DeviceFarm.PurchaseOffering+import Amazonka.DeviceFarm.RenewOffering+import Amazonka.DeviceFarm.ScheduleRun+import Amazonka.DeviceFarm.StopJob+import Amazonka.DeviceFarm.StopRemoteAccessSession+import Amazonka.DeviceFarm.StopRun+import Amazonka.DeviceFarm.TagResource+import Amazonka.DeviceFarm.Types+import Amazonka.DeviceFarm.UntagResource+import Amazonka.DeviceFarm.UpdateDeviceInstance+import Amazonka.DeviceFarm.UpdateDevicePool+import Amazonka.DeviceFarm.UpdateInstanceProfile+import Amazonka.DeviceFarm.UpdateNetworkProfile+import Amazonka.DeviceFarm.UpdateProject+import Amazonka.DeviceFarm.UpdateTestGridProject+import Amazonka.DeviceFarm.UpdateUpload+import Amazonka.DeviceFarm.UpdateVPCEConfiguration+import Amazonka.DeviceFarm.Waiters++-- $errors+-- Error matchers are designed for use with the functions provided by+-- <http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+-- This allows catching (and rethrowing) service specific errors returned+-- by 'DeviceFarm'.++-- $operations+-- Some AWS operations return results that are incomplete and require subsequent+-- requests in order to obtain the entire result set. The process of sending+-- subsequent requests to continue where a previous request left off is called+-- pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to+-- 1000 objects at a time, and you must send subsequent requests with the+-- appropriate Marker in order to retrieve the next page of results.+--+-- Operations that have an 'AWSPager' instance can transparently perform subsequent+-- requests, correctly setting Markers and other request facets to iterate through+-- the entire result set of a truncated API operation. Operations which support+-- this have an additional note in the documentation.+--+-- Many operations have the ability to filter results on the server side. See the+-- individual operation parameters for details.++-- $waiters+-- Waiters poll by repeatedly sending a request until some remote success condition+-- configured by the 'Wait' specification is fulfilled. The 'Wait' specification+-- determines how many attempts should be made, in addition to delay and retry strategies.
+ gen/Amazonka/DeviceFarm/CreateDevicePool.hs view
@@ -0,0 +1,252 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.CreateDevicePool+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a device pool.+module Amazonka.DeviceFarm.CreateDevicePool+  ( -- * Creating a Request+    CreateDevicePool (..),+    newCreateDevicePool,++    -- * Request Lenses+    createDevicePool_description,+    createDevicePool_maxDevices,+    createDevicePool_projectArn,+    createDevicePool_name,+    createDevicePool_rules,++    -- * Destructuring the Response+    CreateDevicePoolResponse (..),+    newCreateDevicePoolResponse,++    -- * Response Lenses+    createDevicePoolResponse_devicePool,+    createDevicePoolResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the create device pool operation.+--+-- /See:/ 'newCreateDevicePool' smart constructor.+data CreateDevicePool = CreateDevicePool'+  { -- | The device pool\'s description.+    description :: Prelude.Maybe Prelude.Text,+    -- | The number of devices that Device Farm can add to your device pool.+    -- Device Farm adds devices that are available and meet the criteria that+    -- you assign for the @rules@ parameter. Depending on how many devices meet+    -- these constraints, your device pool might contain fewer devices than the+    -- value for this parameter.+    --+    -- By specifying the maximum number of devices, you can control the costs+    -- that you incur by running tests.+    maxDevices :: Prelude.Maybe Prelude.Int,+    -- | The ARN of the project for the device pool.+    projectArn :: Prelude.Text,+    -- | The device pool\'s name.+    name :: Prelude.Text,+    -- | The device pool\'s rules.+    rules :: [Rule]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateDevicePool' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'createDevicePool_description' - The device pool\'s description.+--+-- 'maxDevices', 'createDevicePool_maxDevices' - The number of devices that Device Farm can add to your device pool.+-- Device Farm adds devices that are available and meet the criteria that+-- you assign for the @rules@ parameter. Depending on how many devices meet+-- these constraints, your device pool might contain fewer devices than the+-- value for this parameter.+--+-- By specifying the maximum number of devices, you can control the costs+-- that you incur by running tests.+--+-- 'projectArn', 'createDevicePool_projectArn' - The ARN of the project for the device pool.+--+-- 'name', 'createDevicePool_name' - The device pool\'s name.+--+-- 'rules', 'createDevicePool_rules' - The device pool\'s rules.+newCreateDevicePool ::+  -- | 'projectArn'+  Prelude.Text ->+  -- | 'name'+  Prelude.Text ->+  CreateDevicePool+newCreateDevicePool pProjectArn_ pName_ =+  CreateDevicePool'+    { description = Prelude.Nothing,+      maxDevices = Prelude.Nothing,+      projectArn = pProjectArn_,+      name = pName_,+      rules = Prelude.mempty+    }++-- | The device pool\'s description.+createDevicePool_description :: Lens.Lens' CreateDevicePool (Prelude.Maybe Prelude.Text)+createDevicePool_description = Lens.lens (\CreateDevicePool' {description} -> description) (\s@CreateDevicePool' {} a -> s {description = a} :: CreateDevicePool)++-- | The number of devices that Device Farm can add to your device pool.+-- Device Farm adds devices that are available and meet the criteria that+-- you assign for the @rules@ parameter. Depending on how many devices meet+-- these constraints, your device pool might contain fewer devices than the+-- value for this parameter.+--+-- By specifying the maximum number of devices, you can control the costs+-- that you incur by running tests.+createDevicePool_maxDevices :: Lens.Lens' CreateDevicePool (Prelude.Maybe Prelude.Int)+createDevicePool_maxDevices = Lens.lens (\CreateDevicePool' {maxDevices} -> maxDevices) (\s@CreateDevicePool' {} a -> s {maxDevices = a} :: CreateDevicePool)++-- | The ARN of the project for the device pool.+createDevicePool_projectArn :: Lens.Lens' CreateDevicePool Prelude.Text+createDevicePool_projectArn = Lens.lens (\CreateDevicePool' {projectArn} -> projectArn) (\s@CreateDevicePool' {} a -> s {projectArn = a} :: CreateDevicePool)++-- | The device pool\'s name.+createDevicePool_name :: Lens.Lens' CreateDevicePool Prelude.Text+createDevicePool_name = Lens.lens (\CreateDevicePool' {name} -> name) (\s@CreateDevicePool' {} a -> s {name = a} :: CreateDevicePool)++-- | The device pool\'s rules.+createDevicePool_rules :: Lens.Lens' CreateDevicePool [Rule]+createDevicePool_rules = Lens.lens (\CreateDevicePool' {rules} -> rules) (\s@CreateDevicePool' {} a -> s {rules = a} :: CreateDevicePool) Prelude.. Lens.coerced++instance Core.AWSRequest CreateDevicePool where+  type+    AWSResponse CreateDevicePool =+      CreateDevicePoolResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateDevicePoolResponse'+            Prelude.<$> (x Data..?> "devicePool")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateDevicePool where+  hashWithSalt _salt CreateDevicePool' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` maxDevices+      `Prelude.hashWithSalt` projectArn+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` rules++instance Prelude.NFData CreateDevicePool where+  rnf CreateDevicePool' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf maxDevices+      `Prelude.seq` Prelude.rnf projectArn+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf rules++instance Data.ToHeaders CreateDevicePool where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.CreateDevicePool" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateDevicePool where+  toJSON CreateDevicePool' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("description" Data..=) Prelude.<$> description,+            ("maxDevices" Data..=) Prelude.<$> maxDevices,+            Prelude.Just ("projectArn" Data..= projectArn),+            Prelude.Just ("name" Data..= name),+            Prelude.Just ("rules" Data..= rules)+          ]+      )++instance Data.ToPath CreateDevicePool where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateDevicePool where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a create device pool request.+--+-- /See:/ 'newCreateDevicePoolResponse' smart constructor.+data CreateDevicePoolResponse = CreateDevicePoolResponse'+  { -- | The newly created device pool.+    devicePool :: Prelude.Maybe DevicePool,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateDevicePoolResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'devicePool', 'createDevicePoolResponse_devicePool' - The newly created device pool.+--+-- 'httpStatus', 'createDevicePoolResponse_httpStatus' - The response's http status code.+newCreateDevicePoolResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateDevicePoolResponse+newCreateDevicePoolResponse pHttpStatus_ =+  CreateDevicePoolResponse'+    { devicePool =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The newly created device pool.+createDevicePoolResponse_devicePool :: Lens.Lens' CreateDevicePoolResponse (Prelude.Maybe DevicePool)+createDevicePoolResponse_devicePool = Lens.lens (\CreateDevicePoolResponse' {devicePool} -> devicePool) (\s@CreateDevicePoolResponse' {} a -> s {devicePool = a} :: CreateDevicePoolResponse)++-- | The response's http status code.+createDevicePoolResponse_httpStatus :: Lens.Lens' CreateDevicePoolResponse Prelude.Int+createDevicePoolResponse_httpStatus = Lens.lens (\CreateDevicePoolResponse' {httpStatus} -> httpStatus) (\s@CreateDevicePoolResponse' {} a -> s {httpStatus = a} :: CreateDevicePoolResponse)++instance Prelude.NFData CreateDevicePoolResponse where+  rnf CreateDevicePoolResponse' {..} =+    Prelude.rnf devicePool+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/CreateInstanceProfile.hs view
@@ -0,0 +1,248 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.CreateInstanceProfile+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a profile that can be applied to one or more private fleet+-- device instances.+module Amazonka.DeviceFarm.CreateInstanceProfile+  ( -- * Creating a Request+    CreateInstanceProfile (..),+    newCreateInstanceProfile,++    -- * Request Lenses+    createInstanceProfile_description,+    createInstanceProfile_excludeAppPackagesFromCleanup,+    createInstanceProfile_packageCleanup,+    createInstanceProfile_rebootAfterUse,+    createInstanceProfile_name,++    -- * Destructuring the Response+    CreateInstanceProfileResponse (..),+    newCreateInstanceProfileResponse,++    -- * Response Lenses+    createInstanceProfileResponse_instanceProfile,+    createInstanceProfileResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateInstanceProfile' smart constructor.+data CreateInstanceProfile = CreateInstanceProfile'+  { -- | The description of your instance profile.+    description :: Prelude.Maybe Prelude.Text,+    -- | An array of strings that specifies the list of app packages that should+    -- not be cleaned up from the device after a test run.+    --+    -- The list of packages is considered only if you set @packageCleanup@ to+    -- @true@.+    excludeAppPackagesFromCleanup :: Prelude.Maybe [Prelude.Text],+    -- | When set to @true@, Device Farm removes app packages after a test run.+    -- The default value is @false@ for private devices.+    packageCleanup :: Prelude.Maybe Prelude.Bool,+    -- | When set to @true@, Device Farm reboots the instance after a test run.+    -- The default value is @true@.+    rebootAfterUse :: Prelude.Maybe Prelude.Bool,+    -- | The name of your instance profile.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateInstanceProfile' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'createInstanceProfile_description' - The description of your instance profile.+--+-- 'excludeAppPackagesFromCleanup', 'createInstanceProfile_excludeAppPackagesFromCleanup' - An array of strings that specifies the list of app packages that should+-- not be cleaned up from the device after a test run.+--+-- The list of packages is considered only if you set @packageCleanup@ to+-- @true@.+--+-- 'packageCleanup', 'createInstanceProfile_packageCleanup' - When set to @true@, Device Farm removes app packages after a test run.+-- The default value is @false@ for private devices.+--+-- 'rebootAfterUse', 'createInstanceProfile_rebootAfterUse' - When set to @true@, Device Farm reboots the instance after a test run.+-- The default value is @true@.+--+-- 'name', 'createInstanceProfile_name' - The name of your instance profile.+newCreateInstanceProfile ::+  -- | 'name'+  Prelude.Text ->+  CreateInstanceProfile+newCreateInstanceProfile pName_ =+  CreateInstanceProfile'+    { description =+        Prelude.Nothing,+      excludeAppPackagesFromCleanup = Prelude.Nothing,+      packageCleanup = Prelude.Nothing,+      rebootAfterUse = Prelude.Nothing,+      name = pName_+    }++-- | The description of your instance profile.+createInstanceProfile_description :: Lens.Lens' CreateInstanceProfile (Prelude.Maybe Prelude.Text)+createInstanceProfile_description = Lens.lens (\CreateInstanceProfile' {description} -> description) (\s@CreateInstanceProfile' {} a -> s {description = a} :: CreateInstanceProfile)++-- | An array of strings that specifies the list of app packages that should+-- not be cleaned up from the device after a test run.+--+-- The list of packages is considered only if you set @packageCleanup@ to+-- @true@.+createInstanceProfile_excludeAppPackagesFromCleanup :: Lens.Lens' CreateInstanceProfile (Prelude.Maybe [Prelude.Text])+createInstanceProfile_excludeAppPackagesFromCleanup = Lens.lens (\CreateInstanceProfile' {excludeAppPackagesFromCleanup} -> excludeAppPackagesFromCleanup) (\s@CreateInstanceProfile' {} a -> s {excludeAppPackagesFromCleanup = a} :: CreateInstanceProfile) Prelude.. Lens.mapping Lens.coerced++-- | When set to @true@, Device Farm removes app packages after a test run.+-- The default value is @false@ for private devices.+createInstanceProfile_packageCleanup :: Lens.Lens' CreateInstanceProfile (Prelude.Maybe Prelude.Bool)+createInstanceProfile_packageCleanup = Lens.lens (\CreateInstanceProfile' {packageCleanup} -> packageCleanup) (\s@CreateInstanceProfile' {} a -> s {packageCleanup = a} :: CreateInstanceProfile)++-- | When set to @true@, Device Farm reboots the instance after a test run.+-- The default value is @true@.+createInstanceProfile_rebootAfterUse :: Lens.Lens' CreateInstanceProfile (Prelude.Maybe Prelude.Bool)+createInstanceProfile_rebootAfterUse = Lens.lens (\CreateInstanceProfile' {rebootAfterUse} -> rebootAfterUse) (\s@CreateInstanceProfile' {} a -> s {rebootAfterUse = a} :: CreateInstanceProfile)++-- | The name of your instance profile.+createInstanceProfile_name :: Lens.Lens' CreateInstanceProfile Prelude.Text+createInstanceProfile_name = Lens.lens (\CreateInstanceProfile' {name} -> name) (\s@CreateInstanceProfile' {} a -> s {name = a} :: CreateInstanceProfile)++instance Core.AWSRequest CreateInstanceProfile where+  type+    AWSResponse CreateInstanceProfile =+      CreateInstanceProfileResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateInstanceProfileResponse'+            Prelude.<$> (x Data..?> "instanceProfile")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateInstanceProfile where+  hashWithSalt _salt CreateInstanceProfile' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` excludeAppPackagesFromCleanup+      `Prelude.hashWithSalt` packageCleanup+      `Prelude.hashWithSalt` rebootAfterUse+      `Prelude.hashWithSalt` name++instance Prelude.NFData CreateInstanceProfile where+  rnf CreateInstanceProfile' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf excludeAppPackagesFromCleanup+      `Prelude.seq` Prelude.rnf packageCleanup+      `Prelude.seq` Prelude.rnf rebootAfterUse+      `Prelude.seq` Prelude.rnf name++instance Data.ToHeaders CreateInstanceProfile where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.CreateInstanceProfile" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateInstanceProfile where+  toJSON CreateInstanceProfile' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("description" Data..=) Prelude.<$> description,+            ("excludeAppPackagesFromCleanup" Data..=)+              Prelude.<$> excludeAppPackagesFromCleanup,+            ("packageCleanup" Data..=)+              Prelude.<$> packageCleanup,+            ("rebootAfterUse" Data..=)+              Prelude.<$> rebootAfterUse,+            Prelude.Just ("name" Data..= name)+          ]+      )++instance Data.ToPath CreateInstanceProfile where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateInstanceProfile where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateInstanceProfileResponse' smart constructor.+data CreateInstanceProfileResponse = CreateInstanceProfileResponse'+  { -- | An object that contains information about your instance profile.+    instanceProfile :: Prelude.Maybe InstanceProfile,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateInstanceProfileResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'instanceProfile', 'createInstanceProfileResponse_instanceProfile' - An object that contains information about your instance profile.+--+-- 'httpStatus', 'createInstanceProfileResponse_httpStatus' - The response's http status code.+newCreateInstanceProfileResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateInstanceProfileResponse+newCreateInstanceProfileResponse pHttpStatus_ =+  CreateInstanceProfileResponse'+    { instanceProfile =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An object that contains information about your instance profile.+createInstanceProfileResponse_instanceProfile :: Lens.Lens' CreateInstanceProfileResponse (Prelude.Maybe InstanceProfile)+createInstanceProfileResponse_instanceProfile = Lens.lens (\CreateInstanceProfileResponse' {instanceProfile} -> instanceProfile) (\s@CreateInstanceProfileResponse' {} a -> s {instanceProfile = a} :: CreateInstanceProfileResponse)++-- | The response's http status code.+createInstanceProfileResponse_httpStatus :: Lens.Lens' CreateInstanceProfileResponse Prelude.Int+createInstanceProfileResponse_httpStatus = Lens.lens (\CreateInstanceProfileResponse' {httpStatus} -> httpStatus) (\s@CreateInstanceProfileResponse' {} a -> s {httpStatus = a} :: CreateInstanceProfileResponse)++instance Prelude.NFData CreateInstanceProfileResponse where+  rnf CreateInstanceProfileResponse' {..} =+    Prelude.rnf instanceProfile+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/CreateNetworkProfile.hs view
@@ -0,0 +1,356 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.CreateNetworkProfile+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a network profile.+module Amazonka.DeviceFarm.CreateNetworkProfile+  ( -- * Creating a Request+    CreateNetworkProfile (..),+    newCreateNetworkProfile,++    -- * Request Lenses+    createNetworkProfile_description,+    createNetworkProfile_downlinkBandwidthBits,+    createNetworkProfile_downlinkDelayMs,+    createNetworkProfile_downlinkJitterMs,+    createNetworkProfile_downlinkLossPercent,+    createNetworkProfile_type,+    createNetworkProfile_uplinkBandwidthBits,+    createNetworkProfile_uplinkDelayMs,+    createNetworkProfile_uplinkJitterMs,+    createNetworkProfile_uplinkLossPercent,+    createNetworkProfile_projectArn,+    createNetworkProfile_name,++    -- * Destructuring the Response+    CreateNetworkProfileResponse (..),+    newCreateNetworkProfileResponse,++    -- * Response Lenses+    createNetworkProfileResponse_networkProfile,+    createNetworkProfileResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateNetworkProfile' smart constructor.+data CreateNetworkProfile = CreateNetworkProfile'+  { -- | The description of the network profile.+    description :: Prelude.Maybe Prelude.Text,+    -- | The data throughput rate in bits per second, as an integer from 0 to+    -- 104857600.+    downlinkBandwidthBits :: Prelude.Maybe Prelude.Integer,+    -- | Delay time for all packets to destination in milliseconds as an integer+    -- from 0 to 2000.+    downlinkDelayMs :: Prelude.Maybe Prelude.Integer,+    -- | Time variation in the delay of received packets in milliseconds as an+    -- integer from 0 to 2000.+    downlinkJitterMs :: Prelude.Maybe Prelude.Integer,+    -- | Proportion of received packets that fail to arrive from 0 to 100+    -- percent.+    downlinkLossPercent :: Prelude.Maybe Prelude.Natural,+    -- | The type of network profile to create. Valid values are listed here.+    type' :: Prelude.Maybe NetworkProfileType,+    -- | The data throughput rate in bits per second, as an integer from 0 to+    -- 104857600.+    uplinkBandwidthBits :: Prelude.Maybe Prelude.Integer,+    -- | Delay time for all packets to destination in milliseconds as an integer+    -- from 0 to 2000.+    uplinkDelayMs :: Prelude.Maybe Prelude.Integer,+    -- | Time variation in the delay of received packets in milliseconds as an+    -- integer from 0 to 2000.+    uplinkJitterMs :: Prelude.Maybe Prelude.Integer,+    -- | Proportion of transmitted packets that fail to arrive from 0 to 100+    -- percent.+    uplinkLossPercent :: Prelude.Maybe Prelude.Natural,+    -- | The Amazon Resource Name (ARN) of the project for which you want to+    -- create a network profile.+    projectArn :: Prelude.Text,+    -- | The name for the new network profile.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateNetworkProfile' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'createNetworkProfile_description' - The description of the network profile.+--+-- 'downlinkBandwidthBits', 'createNetworkProfile_downlinkBandwidthBits' - The data throughput rate in bits per second, as an integer from 0 to+-- 104857600.+--+-- 'downlinkDelayMs', 'createNetworkProfile_downlinkDelayMs' - Delay time for all packets to destination in milliseconds as an integer+-- from 0 to 2000.+--+-- 'downlinkJitterMs', 'createNetworkProfile_downlinkJitterMs' - Time variation in the delay of received packets in milliseconds as an+-- integer from 0 to 2000.+--+-- 'downlinkLossPercent', 'createNetworkProfile_downlinkLossPercent' - Proportion of received packets that fail to arrive from 0 to 100+-- percent.+--+-- 'type'', 'createNetworkProfile_type' - The type of network profile to create. Valid values are listed here.+--+-- 'uplinkBandwidthBits', 'createNetworkProfile_uplinkBandwidthBits' - The data throughput rate in bits per second, as an integer from 0 to+-- 104857600.+--+-- 'uplinkDelayMs', 'createNetworkProfile_uplinkDelayMs' - Delay time for all packets to destination in milliseconds as an integer+-- from 0 to 2000.+--+-- 'uplinkJitterMs', 'createNetworkProfile_uplinkJitterMs' - Time variation in the delay of received packets in milliseconds as an+-- integer from 0 to 2000.+--+-- 'uplinkLossPercent', 'createNetworkProfile_uplinkLossPercent' - Proportion of transmitted packets that fail to arrive from 0 to 100+-- percent.+--+-- 'projectArn', 'createNetworkProfile_projectArn' - The Amazon Resource Name (ARN) of the project for which you want to+-- create a network profile.+--+-- 'name', 'createNetworkProfile_name' - The name for the new network profile.+newCreateNetworkProfile ::+  -- | 'projectArn'+  Prelude.Text ->+  -- | 'name'+  Prelude.Text ->+  CreateNetworkProfile+newCreateNetworkProfile pProjectArn_ pName_ =+  CreateNetworkProfile'+    { description =+        Prelude.Nothing,+      downlinkBandwidthBits = Prelude.Nothing,+      downlinkDelayMs = Prelude.Nothing,+      downlinkJitterMs = Prelude.Nothing,+      downlinkLossPercent = Prelude.Nothing,+      type' = Prelude.Nothing,+      uplinkBandwidthBits = Prelude.Nothing,+      uplinkDelayMs = Prelude.Nothing,+      uplinkJitterMs = Prelude.Nothing,+      uplinkLossPercent = Prelude.Nothing,+      projectArn = pProjectArn_,+      name = pName_+    }++-- | The description of the network profile.+createNetworkProfile_description :: Lens.Lens' CreateNetworkProfile (Prelude.Maybe Prelude.Text)+createNetworkProfile_description = Lens.lens (\CreateNetworkProfile' {description} -> description) (\s@CreateNetworkProfile' {} a -> s {description = a} :: CreateNetworkProfile)++-- | The data throughput rate in bits per second, as an integer from 0 to+-- 104857600.+createNetworkProfile_downlinkBandwidthBits :: Lens.Lens' CreateNetworkProfile (Prelude.Maybe Prelude.Integer)+createNetworkProfile_downlinkBandwidthBits = Lens.lens (\CreateNetworkProfile' {downlinkBandwidthBits} -> downlinkBandwidthBits) (\s@CreateNetworkProfile' {} a -> s {downlinkBandwidthBits = a} :: CreateNetworkProfile)++-- | Delay time for all packets to destination in milliseconds as an integer+-- from 0 to 2000.+createNetworkProfile_downlinkDelayMs :: Lens.Lens' CreateNetworkProfile (Prelude.Maybe Prelude.Integer)+createNetworkProfile_downlinkDelayMs = Lens.lens (\CreateNetworkProfile' {downlinkDelayMs} -> downlinkDelayMs) (\s@CreateNetworkProfile' {} a -> s {downlinkDelayMs = a} :: CreateNetworkProfile)++-- | Time variation in the delay of received packets in milliseconds as an+-- integer from 0 to 2000.+createNetworkProfile_downlinkJitterMs :: Lens.Lens' CreateNetworkProfile (Prelude.Maybe Prelude.Integer)+createNetworkProfile_downlinkJitterMs = Lens.lens (\CreateNetworkProfile' {downlinkJitterMs} -> downlinkJitterMs) (\s@CreateNetworkProfile' {} a -> s {downlinkJitterMs = a} :: CreateNetworkProfile)++-- | Proportion of received packets that fail to arrive from 0 to 100+-- percent.+createNetworkProfile_downlinkLossPercent :: Lens.Lens' CreateNetworkProfile (Prelude.Maybe Prelude.Natural)+createNetworkProfile_downlinkLossPercent = Lens.lens (\CreateNetworkProfile' {downlinkLossPercent} -> downlinkLossPercent) (\s@CreateNetworkProfile' {} a -> s {downlinkLossPercent = a} :: CreateNetworkProfile)++-- | The type of network profile to create. Valid values are listed here.+createNetworkProfile_type :: Lens.Lens' CreateNetworkProfile (Prelude.Maybe NetworkProfileType)+createNetworkProfile_type = Lens.lens (\CreateNetworkProfile' {type'} -> type') (\s@CreateNetworkProfile' {} a -> s {type' = a} :: CreateNetworkProfile)++-- | The data throughput rate in bits per second, as an integer from 0 to+-- 104857600.+createNetworkProfile_uplinkBandwidthBits :: Lens.Lens' CreateNetworkProfile (Prelude.Maybe Prelude.Integer)+createNetworkProfile_uplinkBandwidthBits = Lens.lens (\CreateNetworkProfile' {uplinkBandwidthBits} -> uplinkBandwidthBits) (\s@CreateNetworkProfile' {} a -> s {uplinkBandwidthBits = a} :: CreateNetworkProfile)++-- | Delay time for all packets to destination in milliseconds as an integer+-- from 0 to 2000.+createNetworkProfile_uplinkDelayMs :: Lens.Lens' CreateNetworkProfile (Prelude.Maybe Prelude.Integer)+createNetworkProfile_uplinkDelayMs = Lens.lens (\CreateNetworkProfile' {uplinkDelayMs} -> uplinkDelayMs) (\s@CreateNetworkProfile' {} a -> s {uplinkDelayMs = a} :: CreateNetworkProfile)++-- | Time variation in the delay of received packets in milliseconds as an+-- integer from 0 to 2000.+createNetworkProfile_uplinkJitterMs :: Lens.Lens' CreateNetworkProfile (Prelude.Maybe Prelude.Integer)+createNetworkProfile_uplinkJitterMs = Lens.lens (\CreateNetworkProfile' {uplinkJitterMs} -> uplinkJitterMs) (\s@CreateNetworkProfile' {} a -> s {uplinkJitterMs = a} :: CreateNetworkProfile)++-- | Proportion of transmitted packets that fail to arrive from 0 to 100+-- percent.+createNetworkProfile_uplinkLossPercent :: Lens.Lens' CreateNetworkProfile (Prelude.Maybe Prelude.Natural)+createNetworkProfile_uplinkLossPercent = Lens.lens (\CreateNetworkProfile' {uplinkLossPercent} -> uplinkLossPercent) (\s@CreateNetworkProfile' {} a -> s {uplinkLossPercent = a} :: CreateNetworkProfile)++-- | The Amazon Resource Name (ARN) of the project for which you want to+-- create a network profile.+createNetworkProfile_projectArn :: Lens.Lens' CreateNetworkProfile Prelude.Text+createNetworkProfile_projectArn = Lens.lens (\CreateNetworkProfile' {projectArn} -> projectArn) (\s@CreateNetworkProfile' {} a -> s {projectArn = a} :: CreateNetworkProfile)++-- | The name for the new network profile.+createNetworkProfile_name :: Lens.Lens' CreateNetworkProfile Prelude.Text+createNetworkProfile_name = Lens.lens (\CreateNetworkProfile' {name} -> name) (\s@CreateNetworkProfile' {} a -> s {name = a} :: CreateNetworkProfile)++instance Core.AWSRequest CreateNetworkProfile where+  type+    AWSResponse CreateNetworkProfile =+      CreateNetworkProfileResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateNetworkProfileResponse'+            Prelude.<$> (x Data..?> "networkProfile")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateNetworkProfile where+  hashWithSalt _salt CreateNetworkProfile' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` downlinkBandwidthBits+      `Prelude.hashWithSalt` downlinkDelayMs+      `Prelude.hashWithSalt` downlinkJitterMs+      `Prelude.hashWithSalt` downlinkLossPercent+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` uplinkBandwidthBits+      `Prelude.hashWithSalt` uplinkDelayMs+      `Prelude.hashWithSalt` uplinkJitterMs+      `Prelude.hashWithSalt` uplinkLossPercent+      `Prelude.hashWithSalt` projectArn+      `Prelude.hashWithSalt` name++instance Prelude.NFData CreateNetworkProfile where+  rnf CreateNetworkProfile' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf downlinkBandwidthBits+      `Prelude.seq` Prelude.rnf downlinkDelayMs+      `Prelude.seq` Prelude.rnf downlinkJitterMs+      `Prelude.seq` Prelude.rnf downlinkLossPercent+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf uplinkBandwidthBits+      `Prelude.seq` Prelude.rnf uplinkDelayMs+      `Prelude.seq` Prelude.rnf uplinkJitterMs+      `Prelude.seq` Prelude.rnf uplinkLossPercent+      `Prelude.seq` Prelude.rnf projectArn+      `Prelude.seq` Prelude.rnf name++instance Data.ToHeaders CreateNetworkProfile where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.CreateNetworkProfile" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateNetworkProfile where+  toJSON CreateNetworkProfile' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("description" Data..=) Prelude.<$> description,+            ("downlinkBandwidthBits" Data..=)+              Prelude.<$> downlinkBandwidthBits,+            ("downlinkDelayMs" Data..=)+              Prelude.<$> downlinkDelayMs,+            ("downlinkJitterMs" Data..=)+              Prelude.<$> downlinkJitterMs,+            ("downlinkLossPercent" Data..=)+              Prelude.<$> downlinkLossPercent,+            ("type" Data..=) Prelude.<$> type',+            ("uplinkBandwidthBits" Data..=)+              Prelude.<$> uplinkBandwidthBits,+            ("uplinkDelayMs" Data..=) Prelude.<$> uplinkDelayMs,+            ("uplinkJitterMs" Data..=)+              Prelude.<$> uplinkJitterMs,+            ("uplinkLossPercent" Data..=)+              Prelude.<$> uplinkLossPercent,+            Prelude.Just ("projectArn" Data..= projectArn),+            Prelude.Just ("name" Data..= name)+          ]+      )++instance Data.ToPath CreateNetworkProfile where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateNetworkProfile where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateNetworkProfileResponse' smart constructor.+data CreateNetworkProfileResponse = CreateNetworkProfileResponse'+  { -- | The network profile that is returned by the create network profile+    -- request.+    networkProfile :: Prelude.Maybe NetworkProfile,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateNetworkProfileResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'networkProfile', 'createNetworkProfileResponse_networkProfile' - The network profile that is returned by the create network profile+-- request.+--+-- 'httpStatus', 'createNetworkProfileResponse_httpStatus' - The response's http status code.+newCreateNetworkProfileResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateNetworkProfileResponse+newCreateNetworkProfileResponse pHttpStatus_ =+  CreateNetworkProfileResponse'+    { networkProfile =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The network profile that is returned by the create network profile+-- request.+createNetworkProfileResponse_networkProfile :: Lens.Lens' CreateNetworkProfileResponse (Prelude.Maybe NetworkProfile)+createNetworkProfileResponse_networkProfile = Lens.lens (\CreateNetworkProfileResponse' {networkProfile} -> networkProfile) (\s@CreateNetworkProfileResponse' {} a -> s {networkProfile = a} :: CreateNetworkProfileResponse)++-- | The response's http status code.+createNetworkProfileResponse_httpStatus :: Lens.Lens' CreateNetworkProfileResponse Prelude.Int+createNetworkProfileResponse_httpStatus = Lens.lens (\CreateNetworkProfileResponse' {httpStatus} -> httpStatus) (\s@CreateNetworkProfileResponse' {} a -> s {httpStatus = a} :: CreateNetworkProfileResponse)++instance Prelude.NFData CreateNetworkProfileResponse where+  rnf CreateNetworkProfileResponse' {..} =+    Prelude.rnf networkProfile+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/CreateProject.hs view
@@ -0,0 +1,210 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.CreateProject+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a project.+module Amazonka.DeviceFarm.CreateProject+  ( -- * Creating a Request+    CreateProject (..),+    newCreateProject,++    -- * Request Lenses+    createProject_defaultJobTimeoutMinutes,+    createProject_vpcConfig,+    createProject_name,++    -- * Destructuring the Response+    CreateProjectResponse (..),+    newCreateProjectResponse,++    -- * Response Lenses+    createProjectResponse_project,+    createProjectResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the create project operation.+--+-- /See:/ 'newCreateProject' smart constructor.+data CreateProject = CreateProject'+  { -- | Sets the execution timeout value (in minutes) for a project. All test+    -- runs in this project use the specified execution timeout value unless+    -- overridden when scheduling a run.+    defaultJobTimeoutMinutes :: Prelude.Maybe Prelude.Int,+    -- | The VPC security groups and subnets that are attached to a project.+    vpcConfig :: Prelude.Maybe VpcConfig,+    -- | The project\'s name.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateProject' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'defaultJobTimeoutMinutes', 'createProject_defaultJobTimeoutMinutes' - Sets the execution timeout value (in minutes) for a project. All test+-- runs in this project use the specified execution timeout value unless+-- overridden when scheduling a run.+--+-- 'vpcConfig', 'createProject_vpcConfig' - The VPC security groups and subnets that are attached to a project.+--+-- 'name', 'createProject_name' - The project\'s name.+newCreateProject ::+  -- | 'name'+  Prelude.Text ->+  CreateProject+newCreateProject pName_ =+  CreateProject'+    { defaultJobTimeoutMinutes =+        Prelude.Nothing,+      vpcConfig = Prelude.Nothing,+      name = pName_+    }++-- | Sets the execution timeout value (in minutes) for a project. All test+-- runs in this project use the specified execution timeout value unless+-- overridden when scheduling a run.+createProject_defaultJobTimeoutMinutes :: Lens.Lens' CreateProject (Prelude.Maybe Prelude.Int)+createProject_defaultJobTimeoutMinutes = Lens.lens (\CreateProject' {defaultJobTimeoutMinutes} -> defaultJobTimeoutMinutes) (\s@CreateProject' {} a -> s {defaultJobTimeoutMinutes = a} :: CreateProject)++-- | The VPC security groups and subnets that are attached to a project.+createProject_vpcConfig :: Lens.Lens' CreateProject (Prelude.Maybe VpcConfig)+createProject_vpcConfig = Lens.lens (\CreateProject' {vpcConfig} -> vpcConfig) (\s@CreateProject' {} a -> s {vpcConfig = a} :: CreateProject)++-- | The project\'s name.+createProject_name :: Lens.Lens' CreateProject Prelude.Text+createProject_name = Lens.lens (\CreateProject' {name} -> name) (\s@CreateProject' {} a -> s {name = a} :: CreateProject)++instance Core.AWSRequest CreateProject where+  type+    AWSResponse CreateProject =+      CreateProjectResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateProjectResponse'+            Prelude.<$> (x Data..?> "project")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateProject where+  hashWithSalt _salt CreateProject' {..} =+    _salt+      `Prelude.hashWithSalt` defaultJobTimeoutMinutes+      `Prelude.hashWithSalt` vpcConfig+      `Prelude.hashWithSalt` name++instance Prelude.NFData CreateProject where+  rnf CreateProject' {..} =+    Prelude.rnf defaultJobTimeoutMinutes+      `Prelude.seq` Prelude.rnf vpcConfig+      `Prelude.seq` Prelude.rnf name++instance Data.ToHeaders CreateProject where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.CreateProject" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateProject where+  toJSON CreateProject' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("defaultJobTimeoutMinutes" Data..=)+              Prelude.<$> defaultJobTimeoutMinutes,+            ("vpcConfig" Data..=) Prelude.<$> vpcConfig,+            Prelude.Just ("name" Data..= name)+          ]+      )++instance Data.ToPath CreateProject where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateProject where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a create project request.+--+-- /See:/ 'newCreateProjectResponse' smart constructor.+data CreateProjectResponse = CreateProjectResponse'+  { -- | The newly created project.+    project :: Prelude.Maybe Project,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateProjectResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'project', 'createProjectResponse_project' - The newly created project.+--+-- 'httpStatus', 'createProjectResponse_httpStatus' - The response's http status code.+newCreateProjectResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateProjectResponse+newCreateProjectResponse pHttpStatus_ =+  CreateProjectResponse'+    { project = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The newly created project.+createProjectResponse_project :: Lens.Lens' CreateProjectResponse (Prelude.Maybe Project)+createProjectResponse_project = Lens.lens (\CreateProjectResponse' {project} -> project) (\s@CreateProjectResponse' {} a -> s {project = a} :: CreateProjectResponse)++-- | The response's http status code.+createProjectResponse_httpStatus :: Lens.Lens' CreateProjectResponse Prelude.Int+createProjectResponse_httpStatus = Lens.lens (\CreateProjectResponse' {httpStatus} -> httpStatus) (\s@CreateProjectResponse' {} a -> s {httpStatus = a} :: CreateProjectResponse)++instance Prelude.NFData CreateProjectResponse where+  rnf CreateProjectResponse' {..} =+    Prelude.rnf project+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/CreateRemoteAccessSession.hs view
@@ -0,0 +1,442 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.CreateRemoteAccessSession+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Specifies and starts a remote access session.+module Amazonka.DeviceFarm.CreateRemoteAccessSession+  ( -- * Creating a Request+    CreateRemoteAccessSession (..),+    newCreateRemoteAccessSession,++    -- * Request Lenses+    createRemoteAccessSession_clientId,+    createRemoteAccessSession_configuration,+    createRemoteAccessSession_instanceArn,+    createRemoteAccessSession_interactionMode,+    createRemoteAccessSession_name,+    createRemoteAccessSession_remoteDebugEnabled,+    createRemoteAccessSession_remoteRecordAppArn,+    createRemoteAccessSession_remoteRecordEnabled,+    createRemoteAccessSession_skipAppResign,+    createRemoteAccessSession_sshPublicKey,+    createRemoteAccessSession_projectArn,+    createRemoteAccessSession_deviceArn,++    -- * Destructuring the Response+    CreateRemoteAccessSessionResponse (..),+    newCreateRemoteAccessSessionResponse,++    -- * Response Lenses+    createRemoteAccessSessionResponse_remoteAccessSession,+    createRemoteAccessSessionResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Creates and submits a request to start a remote access session.+--+-- /See:/ 'newCreateRemoteAccessSession' smart constructor.+data CreateRemoteAccessSession = CreateRemoteAccessSession'+  { -- | 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 identifier is required only if+    -- @remoteDebugEnabled@ is set to @true@.+    --+    -- Remote debugging is+    -- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>.+    clientId :: Prelude.Maybe Prelude.Text,+    -- | The configuration information for the remote access session request.+    configuration :: Prelude.Maybe CreateRemoteAccessSessionConfiguration,+    -- | The Amazon Resource Name (ARN) of the device instance for which you want+    -- to create a remote access session.+    instanceArn :: Prelude.Maybe Prelude.Text,+    -- | 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.+    interactionMode :: Prelude.Maybe InteractionMode,+    -- | The name of the remote access session to create.+    name :: Prelude.Maybe Prelude.Text,+    -- | Set to @true@ if you want to access devices remotely for debugging in+    -- your remote access session.+    --+    -- Remote debugging is+    -- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>.+    remoteDebugEnabled :: Prelude.Maybe Prelude.Bool,+    -- | The Amazon Resource Name (ARN) for the app to be recorded in the remote+    -- access session.+    remoteRecordAppArn :: Prelude.Maybe Prelude.Text,+    -- | Set to @true@ to enable remote recording for the remote access session.+    remoteRecordEnabled :: Prelude.Maybe Prelude.Bool,+    -- | When set to @true@, for private devices, Device Farm does not sign your+    -- app again. For public devices, Device Farm always signs your apps again.+    --+    -- For more information on how Device Farm modifies your uploads during+    -- tests, see+    -- <http://aws.amazon.com/device-farm/faqs/ Do you modify my app?>+    skipAppResign :: Prelude.Maybe Prelude.Bool,+    -- | Ignored. The public key of the @ssh@ key pair you want to use for+    -- connecting to remote devices in your remote debugging session. This key+    -- is required only if @remoteDebugEnabled@ is set to @true@.+    --+    -- Remote debugging is+    -- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>.+    sshPublicKey :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the project for which you want to+    -- create a remote access session.+    projectArn :: Prelude.Text,+    -- | The ARN of the device for which you want to create a remote access+    -- session.+    deviceArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateRemoteAccessSession' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clientId', 'createRemoteAccessSession_clientId' - 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 identifier is required only if+-- @remoteDebugEnabled@ is set to @true@.+--+-- Remote debugging is+-- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>.+--+-- 'configuration', 'createRemoteAccessSession_configuration' - The configuration information for the remote access session request.+--+-- 'instanceArn', 'createRemoteAccessSession_instanceArn' - The Amazon Resource Name (ARN) of the device instance for which you want+-- to create a remote access session.+--+-- 'interactionMode', 'createRemoteAccessSession_interactionMode' - 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.+--+-- 'name', 'createRemoteAccessSession_name' - The name of the remote access session to create.+--+-- 'remoteDebugEnabled', 'createRemoteAccessSession_remoteDebugEnabled' - Set to @true@ if you want to access devices remotely for debugging in+-- your remote access session.+--+-- Remote debugging is+-- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>.+--+-- 'remoteRecordAppArn', 'createRemoteAccessSession_remoteRecordAppArn' - The Amazon Resource Name (ARN) for the app to be recorded in the remote+-- access session.+--+-- 'remoteRecordEnabled', 'createRemoteAccessSession_remoteRecordEnabled' - Set to @true@ to enable remote recording for the remote access session.+--+-- 'skipAppResign', 'createRemoteAccessSession_skipAppResign' - When set to @true@, for private devices, Device Farm does not sign your+-- app again. For public devices, Device Farm always signs your apps again.+--+-- For more information on how Device Farm modifies your uploads during+-- tests, see+-- <http://aws.amazon.com/device-farm/faqs/ Do you modify my app?>+--+-- 'sshPublicKey', 'createRemoteAccessSession_sshPublicKey' - Ignored. The public key of the @ssh@ key pair you want to use for+-- connecting to remote devices in your remote debugging session. This key+-- is required only if @remoteDebugEnabled@ is set to @true@.+--+-- Remote debugging is+-- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>.+--+-- 'projectArn', 'createRemoteAccessSession_projectArn' - The Amazon Resource Name (ARN) of the project for which you want to+-- create a remote access session.+--+-- 'deviceArn', 'createRemoteAccessSession_deviceArn' - The ARN of the device for which you want to create a remote access+-- session.+newCreateRemoteAccessSession ::+  -- | 'projectArn'+  Prelude.Text ->+  -- | 'deviceArn'+  Prelude.Text ->+  CreateRemoteAccessSession+newCreateRemoteAccessSession pProjectArn_ pDeviceArn_ =+  CreateRemoteAccessSession'+    { clientId =+        Prelude.Nothing,+      configuration = Prelude.Nothing,+      instanceArn = Prelude.Nothing,+      interactionMode = Prelude.Nothing,+      name = Prelude.Nothing,+      remoteDebugEnabled = Prelude.Nothing,+      remoteRecordAppArn = Prelude.Nothing,+      remoteRecordEnabled = Prelude.Nothing,+      skipAppResign = Prelude.Nothing,+      sshPublicKey = Prelude.Nothing,+      projectArn = pProjectArn_,+      deviceArn = 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 identifier is required only if+-- @remoteDebugEnabled@ is set to @true@.+--+-- Remote debugging is+-- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>.+createRemoteAccessSession_clientId :: Lens.Lens' CreateRemoteAccessSession (Prelude.Maybe Prelude.Text)+createRemoteAccessSession_clientId = Lens.lens (\CreateRemoteAccessSession' {clientId} -> clientId) (\s@CreateRemoteAccessSession' {} a -> s {clientId = a} :: CreateRemoteAccessSession)++-- | The configuration information for the remote access session request.+createRemoteAccessSession_configuration :: Lens.Lens' CreateRemoteAccessSession (Prelude.Maybe CreateRemoteAccessSessionConfiguration)+createRemoteAccessSession_configuration = Lens.lens (\CreateRemoteAccessSession' {configuration} -> configuration) (\s@CreateRemoteAccessSession' {} a -> s {configuration = a} :: CreateRemoteAccessSession)++-- | The Amazon Resource Name (ARN) of the device instance for which you want+-- to create a remote access session.+createRemoteAccessSession_instanceArn :: Lens.Lens' CreateRemoteAccessSession (Prelude.Maybe Prelude.Text)+createRemoteAccessSession_instanceArn = Lens.lens (\CreateRemoteAccessSession' {instanceArn} -> instanceArn) (\s@CreateRemoteAccessSession' {} a -> s {instanceArn = a} :: CreateRemoteAccessSession)++-- | 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.+createRemoteAccessSession_interactionMode :: Lens.Lens' CreateRemoteAccessSession (Prelude.Maybe InteractionMode)+createRemoteAccessSession_interactionMode = Lens.lens (\CreateRemoteAccessSession' {interactionMode} -> interactionMode) (\s@CreateRemoteAccessSession' {} a -> s {interactionMode = a} :: CreateRemoteAccessSession)++-- | The name of the remote access session to create.+createRemoteAccessSession_name :: Lens.Lens' CreateRemoteAccessSession (Prelude.Maybe Prelude.Text)+createRemoteAccessSession_name = Lens.lens (\CreateRemoteAccessSession' {name} -> name) (\s@CreateRemoteAccessSession' {} a -> s {name = a} :: CreateRemoteAccessSession)++-- | Set to @true@ if you want to access devices remotely for debugging in+-- your remote access session.+--+-- Remote debugging is+-- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>.+createRemoteAccessSession_remoteDebugEnabled :: Lens.Lens' CreateRemoteAccessSession (Prelude.Maybe Prelude.Bool)+createRemoteAccessSession_remoteDebugEnabled = Lens.lens (\CreateRemoteAccessSession' {remoteDebugEnabled} -> remoteDebugEnabled) (\s@CreateRemoteAccessSession' {} a -> s {remoteDebugEnabled = a} :: CreateRemoteAccessSession)++-- | The Amazon Resource Name (ARN) for the app to be recorded in the remote+-- access session.+createRemoteAccessSession_remoteRecordAppArn :: Lens.Lens' CreateRemoteAccessSession (Prelude.Maybe Prelude.Text)+createRemoteAccessSession_remoteRecordAppArn = Lens.lens (\CreateRemoteAccessSession' {remoteRecordAppArn} -> remoteRecordAppArn) (\s@CreateRemoteAccessSession' {} a -> s {remoteRecordAppArn = a} :: CreateRemoteAccessSession)++-- | Set to @true@ to enable remote recording for the remote access session.+createRemoteAccessSession_remoteRecordEnabled :: Lens.Lens' CreateRemoteAccessSession (Prelude.Maybe Prelude.Bool)+createRemoteAccessSession_remoteRecordEnabled = Lens.lens (\CreateRemoteAccessSession' {remoteRecordEnabled} -> remoteRecordEnabled) (\s@CreateRemoteAccessSession' {} a -> s {remoteRecordEnabled = a} :: CreateRemoteAccessSession)++-- | When set to @true@, for private devices, Device Farm does not sign your+-- app again. For public devices, Device Farm always signs your apps again.+--+-- For more information on how Device Farm modifies your uploads during+-- tests, see+-- <http://aws.amazon.com/device-farm/faqs/ Do you modify my app?>+createRemoteAccessSession_skipAppResign :: Lens.Lens' CreateRemoteAccessSession (Prelude.Maybe Prelude.Bool)+createRemoteAccessSession_skipAppResign = Lens.lens (\CreateRemoteAccessSession' {skipAppResign} -> skipAppResign) (\s@CreateRemoteAccessSession' {} a -> s {skipAppResign = a} :: CreateRemoteAccessSession)++-- | Ignored. The public key of the @ssh@ key pair you want to use for+-- connecting to remote devices in your remote debugging session. This key+-- is required only if @remoteDebugEnabled@ is set to @true@.+--+-- Remote debugging is+-- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>.+createRemoteAccessSession_sshPublicKey :: Lens.Lens' CreateRemoteAccessSession (Prelude.Maybe Prelude.Text)+createRemoteAccessSession_sshPublicKey = Lens.lens (\CreateRemoteAccessSession' {sshPublicKey} -> sshPublicKey) (\s@CreateRemoteAccessSession' {} a -> s {sshPublicKey = a} :: CreateRemoteAccessSession)++-- | The Amazon Resource Name (ARN) of the project for which you want to+-- create a remote access session.+createRemoteAccessSession_projectArn :: Lens.Lens' CreateRemoteAccessSession Prelude.Text+createRemoteAccessSession_projectArn = Lens.lens (\CreateRemoteAccessSession' {projectArn} -> projectArn) (\s@CreateRemoteAccessSession' {} a -> s {projectArn = a} :: CreateRemoteAccessSession)++-- | The ARN of the device for which you want to create a remote access+-- session.+createRemoteAccessSession_deviceArn :: Lens.Lens' CreateRemoteAccessSession Prelude.Text+createRemoteAccessSession_deviceArn = Lens.lens (\CreateRemoteAccessSession' {deviceArn} -> deviceArn) (\s@CreateRemoteAccessSession' {} a -> s {deviceArn = a} :: CreateRemoteAccessSession)++instance Core.AWSRequest CreateRemoteAccessSession where+  type+    AWSResponse CreateRemoteAccessSession =+      CreateRemoteAccessSessionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateRemoteAccessSessionResponse'+            Prelude.<$> (x Data..?> "remoteAccessSession")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateRemoteAccessSession where+  hashWithSalt _salt CreateRemoteAccessSession' {..} =+    _salt+      `Prelude.hashWithSalt` clientId+      `Prelude.hashWithSalt` configuration+      `Prelude.hashWithSalt` instanceArn+      `Prelude.hashWithSalt` interactionMode+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` remoteDebugEnabled+      `Prelude.hashWithSalt` remoteRecordAppArn+      `Prelude.hashWithSalt` remoteRecordEnabled+      `Prelude.hashWithSalt` skipAppResign+      `Prelude.hashWithSalt` sshPublicKey+      `Prelude.hashWithSalt` projectArn+      `Prelude.hashWithSalt` deviceArn++instance Prelude.NFData CreateRemoteAccessSession where+  rnf CreateRemoteAccessSession' {..} =+    Prelude.rnf clientId+      `Prelude.seq` Prelude.rnf configuration+      `Prelude.seq` Prelude.rnf instanceArn+      `Prelude.seq` Prelude.rnf interactionMode+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf remoteDebugEnabled+      `Prelude.seq` Prelude.rnf remoteRecordAppArn+      `Prelude.seq` Prelude.rnf remoteRecordEnabled+      `Prelude.seq` Prelude.rnf skipAppResign+      `Prelude.seq` Prelude.rnf sshPublicKey+      `Prelude.seq` Prelude.rnf projectArn+      `Prelude.seq` Prelude.rnf deviceArn++instance Data.ToHeaders CreateRemoteAccessSession where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.CreateRemoteAccessSession" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateRemoteAccessSession where+  toJSON CreateRemoteAccessSession' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("clientId" Data..=) Prelude.<$> clientId,+            ("configuration" Data..=) Prelude.<$> configuration,+            ("instanceArn" Data..=) Prelude.<$> instanceArn,+            ("interactionMode" Data..=)+              Prelude.<$> interactionMode,+            ("name" Data..=) Prelude.<$> name,+            ("remoteDebugEnabled" Data..=)+              Prelude.<$> remoteDebugEnabled,+            ("remoteRecordAppArn" Data..=)+              Prelude.<$> remoteRecordAppArn,+            ("remoteRecordEnabled" Data..=)+              Prelude.<$> remoteRecordEnabled,+            ("skipAppResign" Data..=) Prelude.<$> skipAppResign,+            ("sshPublicKey" Data..=) Prelude.<$> sshPublicKey,+            Prelude.Just ("projectArn" Data..= projectArn),+            Prelude.Just ("deviceArn" Data..= deviceArn)+          ]+      )++instance Data.ToPath CreateRemoteAccessSession where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateRemoteAccessSession where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the server response from a request to create a remote access+-- session.+--+-- /See:/ 'newCreateRemoteAccessSessionResponse' smart constructor.+data CreateRemoteAccessSessionResponse = CreateRemoteAccessSessionResponse'+  { -- | A container that describes the remote access session when the request to+    -- create a remote access session is sent.+    remoteAccessSession :: Prelude.Maybe RemoteAccessSession,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateRemoteAccessSessionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'remoteAccessSession', 'createRemoteAccessSessionResponse_remoteAccessSession' - A container that describes the remote access session when the request to+-- create a remote access session is sent.+--+-- 'httpStatus', 'createRemoteAccessSessionResponse_httpStatus' - The response's http status code.+newCreateRemoteAccessSessionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateRemoteAccessSessionResponse+newCreateRemoteAccessSessionResponse pHttpStatus_ =+  CreateRemoteAccessSessionResponse'+    { remoteAccessSession =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A container that describes the remote access session when the request to+-- create a remote access session is sent.+createRemoteAccessSessionResponse_remoteAccessSession :: Lens.Lens' CreateRemoteAccessSessionResponse (Prelude.Maybe RemoteAccessSession)+createRemoteAccessSessionResponse_remoteAccessSession = Lens.lens (\CreateRemoteAccessSessionResponse' {remoteAccessSession} -> remoteAccessSession) (\s@CreateRemoteAccessSessionResponse' {} a -> s {remoteAccessSession = a} :: CreateRemoteAccessSessionResponse)++-- | The response's http status code.+createRemoteAccessSessionResponse_httpStatus :: Lens.Lens' CreateRemoteAccessSessionResponse Prelude.Int+createRemoteAccessSessionResponse_httpStatus = Lens.lens (\CreateRemoteAccessSessionResponse' {httpStatus} -> httpStatus) (\s@CreateRemoteAccessSessionResponse' {} a -> s {httpStatus = a} :: CreateRemoteAccessSessionResponse)++instance+  Prelude.NFData+    CreateRemoteAccessSessionResponse+  where+  rnf CreateRemoteAccessSessionResponse' {..} =+    Prelude.rnf remoteAccessSession+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/CreateTestGridProject.hs view
@@ -0,0 +1,201 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.CreateTestGridProject+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a Selenium testing project. Projects are used to track+-- TestGridSession instances.+module Amazonka.DeviceFarm.CreateTestGridProject+  ( -- * Creating a Request+    CreateTestGridProject (..),+    newCreateTestGridProject,++    -- * Request Lenses+    createTestGridProject_description,+    createTestGridProject_vpcConfig,+    createTestGridProject_name,++    -- * Destructuring the Response+    CreateTestGridProjectResponse (..),+    newCreateTestGridProjectResponse,++    -- * Response Lenses+    createTestGridProjectResponse_testGridProject,+    createTestGridProjectResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateTestGridProject' smart constructor.+data CreateTestGridProject = CreateTestGridProject'+  { -- | Human-readable description of the project.+    description :: Prelude.Maybe Prelude.Text,+    -- | The VPC security groups and subnets that are attached to a project.+    vpcConfig :: Prelude.Maybe TestGridVpcConfig,+    -- | Human-readable name of the Selenium testing project.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateTestGridProject' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'createTestGridProject_description' - Human-readable description of the project.+--+-- 'vpcConfig', 'createTestGridProject_vpcConfig' - The VPC security groups and subnets that are attached to a project.+--+-- 'name', 'createTestGridProject_name' - Human-readable name of the Selenium testing project.+newCreateTestGridProject ::+  -- | 'name'+  Prelude.Text ->+  CreateTestGridProject+newCreateTestGridProject pName_ =+  CreateTestGridProject'+    { description =+        Prelude.Nothing,+      vpcConfig = Prelude.Nothing,+      name = pName_+    }++-- | Human-readable description of the project.+createTestGridProject_description :: Lens.Lens' CreateTestGridProject (Prelude.Maybe Prelude.Text)+createTestGridProject_description = Lens.lens (\CreateTestGridProject' {description} -> description) (\s@CreateTestGridProject' {} a -> s {description = a} :: CreateTestGridProject)++-- | The VPC security groups and subnets that are attached to a project.+createTestGridProject_vpcConfig :: Lens.Lens' CreateTestGridProject (Prelude.Maybe TestGridVpcConfig)+createTestGridProject_vpcConfig = Lens.lens (\CreateTestGridProject' {vpcConfig} -> vpcConfig) (\s@CreateTestGridProject' {} a -> s {vpcConfig = a} :: CreateTestGridProject)++-- | Human-readable name of the Selenium testing project.+createTestGridProject_name :: Lens.Lens' CreateTestGridProject Prelude.Text+createTestGridProject_name = Lens.lens (\CreateTestGridProject' {name} -> name) (\s@CreateTestGridProject' {} a -> s {name = a} :: CreateTestGridProject)++instance Core.AWSRequest CreateTestGridProject where+  type+    AWSResponse CreateTestGridProject =+      CreateTestGridProjectResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateTestGridProjectResponse'+            Prelude.<$> (x Data..?> "testGridProject")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateTestGridProject where+  hashWithSalt _salt CreateTestGridProject' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` vpcConfig+      `Prelude.hashWithSalt` name++instance Prelude.NFData CreateTestGridProject where+  rnf CreateTestGridProject' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf vpcConfig+      `Prelude.seq` Prelude.rnf name++instance Data.ToHeaders CreateTestGridProject where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.CreateTestGridProject" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateTestGridProject where+  toJSON CreateTestGridProject' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("description" Data..=) Prelude.<$> description,+            ("vpcConfig" Data..=) Prelude.<$> vpcConfig,+            Prelude.Just ("name" Data..= name)+          ]+      )++instance Data.ToPath CreateTestGridProject where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateTestGridProject where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateTestGridProjectResponse' smart constructor.+data CreateTestGridProjectResponse = CreateTestGridProjectResponse'+  { -- | ARN of the Selenium testing project that was created.+    testGridProject :: Prelude.Maybe TestGridProject,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateTestGridProjectResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'testGridProject', 'createTestGridProjectResponse_testGridProject' - ARN of the Selenium testing project that was created.+--+-- 'httpStatus', 'createTestGridProjectResponse_httpStatus' - The response's http status code.+newCreateTestGridProjectResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateTestGridProjectResponse+newCreateTestGridProjectResponse pHttpStatus_ =+  CreateTestGridProjectResponse'+    { testGridProject =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | ARN of the Selenium testing project that was created.+createTestGridProjectResponse_testGridProject :: Lens.Lens' CreateTestGridProjectResponse (Prelude.Maybe TestGridProject)+createTestGridProjectResponse_testGridProject = Lens.lens (\CreateTestGridProjectResponse' {testGridProject} -> testGridProject) (\s@CreateTestGridProjectResponse' {} a -> s {testGridProject = a} :: CreateTestGridProjectResponse)++-- | The response's http status code.+createTestGridProjectResponse_httpStatus :: Lens.Lens' CreateTestGridProjectResponse Prelude.Int+createTestGridProjectResponse_httpStatus = Lens.lens (\CreateTestGridProjectResponse' {httpStatus} -> httpStatus) (\s@CreateTestGridProjectResponse' {} a -> s {httpStatus = a} :: CreateTestGridProjectResponse)++instance Prelude.NFData CreateTestGridProjectResponse where+  rnf CreateTestGridProjectResponse' {..} =+    Prelude.rnf testGridProject+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/CreateTestGridUrl.hs view
@@ -0,0 +1,211 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.CreateTestGridUrl+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a signed, short-term URL that can be passed to a Selenium+-- @RemoteWebDriver@ constructor.+module Amazonka.DeviceFarm.CreateTestGridUrl+  ( -- * Creating a Request+    CreateTestGridUrl (..),+    newCreateTestGridUrl,++    -- * Request Lenses+    createTestGridUrl_projectArn,+    createTestGridUrl_expiresInSeconds,++    -- * Destructuring the Response+    CreateTestGridUrlResponse (..),+    newCreateTestGridUrlResponse,++    -- * Response Lenses+    createTestGridUrlResponse_expires,+    createTestGridUrlResponse_url,+    createTestGridUrlResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateTestGridUrl' smart constructor.+data CreateTestGridUrl = CreateTestGridUrl'+  { -- | ARN (from CreateTestGridProject or ListTestGridProjects) to associate+    -- with the short-term URL.+    projectArn :: Prelude.Text,+    -- | Lifetime, in seconds, of the URL.+    expiresInSeconds :: Prelude.Natural+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateTestGridUrl' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'projectArn', 'createTestGridUrl_projectArn' - ARN (from CreateTestGridProject or ListTestGridProjects) to associate+-- with the short-term URL.+--+-- 'expiresInSeconds', 'createTestGridUrl_expiresInSeconds' - Lifetime, in seconds, of the URL.+newCreateTestGridUrl ::+  -- | 'projectArn'+  Prelude.Text ->+  -- | 'expiresInSeconds'+  Prelude.Natural ->+  CreateTestGridUrl+newCreateTestGridUrl pProjectArn_ pExpiresInSeconds_ =+  CreateTestGridUrl'+    { projectArn = pProjectArn_,+      expiresInSeconds = pExpiresInSeconds_+    }++-- | ARN (from CreateTestGridProject or ListTestGridProjects) to associate+-- with the short-term URL.+createTestGridUrl_projectArn :: Lens.Lens' CreateTestGridUrl Prelude.Text+createTestGridUrl_projectArn = Lens.lens (\CreateTestGridUrl' {projectArn} -> projectArn) (\s@CreateTestGridUrl' {} a -> s {projectArn = a} :: CreateTestGridUrl)++-- | Lifetime, in seconds, of the URL.+createTestGridUrl_expiresInSeconds :: Lens.Lens' CreateTestGridUrl Prelude.Natural+createTestGridUrl_expiresInSeconds = Lens.lens (\CreateTestGridUrl' {expiresInSeconds} -> expiresInSeconds) (\s@CreateTestGridUrl' {} a -> s {expiresInSeconds = a} :: CreateTestGridUrl)++instance Core.AWSRequest CreateTestGridUrl where+  type+    AWSResponse CreateTestGridUrl =+      CreateTestGridUrlResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateTestGridUrlResponse'+            Prelude.<$> (x Data..?> "expires")+            Prelude.<*> (x Data..?> "url")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateTestGridUrl where+  hashWithSalt _salt CreateTestGridUrl' {..} =+    _salt+      `Prelude.hashWithSalt` projectArn+      `Prelude.hashWithSalt` expiresInSeconds++instance Prelude.NFData CreateTestGridUrl where+  rnf CreateTestGridUrl' {..} =+    Prelude.rnf projectArn+      `Prelude.seq` Prelude.rnf expiresInSeconds++instance Data.ToHeaders CreateTestGridUrl where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.CreateTestGridUrl" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateTestGridUrl where+  toJSON CreateTestGridUrl' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("projectArn" Data..= projectArn),+            Prelude.Just+              ("expiresInSeconds" Data..= expiresInSeconds)+          ]+      )++instance Data.ToPath CreateTestGridUrl where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateTestGridUrl where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateTestGridUrlResponse' smart constructor.+data CreateTestGridUrlResponse = CreateTestGridUrlResponse'+  { -- | The number of seconds the URL from CreateTestGridUrlResult$url stays+    -- active.+    expires :: Prelude.Maybe Data.POSIX,+    -- | A signed URL, expiring in CreateTestGridUrlRequest$expiresInSeconds+    -- seconds, to be passed to a @RemoteWebDriver@.+    url :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateTestGridUrlResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'expires', 'createTestGridUrlResponse_expires' - The number of seconds the URL from CreateTestGridUrlResult$url stays+-- active.+--+-- 'url', 'createTestGridUrlResponse_url' - A signed URL, expiring in CreateTestGridUrlRequest$expiresInSeconds+-- seconds, to be passed to a @RemoteWebDriver@.+--+-- 'httpStatus', 'createTestGridUrlResponse_httpStatus' - The response's http status code.+newCreateTestGridUrlResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateTestGridUrlResponse+newCreateTestGridUrlResponse pHttpStatus_ =+  CreateTestGridUrlResponse'+    { expires =+        Prelude.Nothing,+      url = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The number of seconds the URL from CreateTestGridUrlResult$url stays+-- active.+createTestGridUrlResponse_expires :: Lens.Lens' CreateTestGridUrlResponse (Prelude.Maybe Prelude.UTCTime)+createTestGridUrlResponse_expires = Lens.lens (\CreateTestGridUrlResponse' {expires} -> expires) (\s@CreateTestGridUrlResponse' {} a -> s {expires = a} :: CreateTestGridUrlResponse) Prelude.. Lens.mapping Data._Time++-- | A signed URL, expiring in CreateTestGridUrlRequest$expiresInSeconds+-- seconds, to be passed to a @RemoteWebDriver@.+createTestGridUrlResponse_url :: Lens.Lens' CreateTestGridUrlResponse (Prelude.Maybe Prelude.Text)+createTestGridUrlResponse_url = Lens.lens (\CreateTestGridUrlResponse' {url} -> url) (\s@CreateTestGridUrlResponse' {} a -> s {url = a} :: CreateTestGridUrlResponse) Prelude.. Lens.mapping Data._Sensitive++-- | The response's http status code.+createTestGridUrlResponse_httpStatus :: Lens.Lens' CreateTestGridUrlResponse Prelude.Int+createTestGridUrlResponse_httpStatus = Lens.lens (\CreateTestGridUrlResponse' {httpStatus} -> httpStatus) (\s@CreateTestGridUrlResponse' {} a -> s {httpStatus = a} :: CreateTestGridUrlResponse)++instance Prelude.NFData CreateTestGridUrlResponse where+  rnf CreateTestGridUrlResponse' {..} =+    Prelude.rnf expires+      `Prelude.seq` Prelude.rnf url+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/CreateUpload.hs view
@@ -0,0 +1,436 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.CreateUpload+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Uploads an app or test scripts.+module Amazonka.DeviceFarm.CreateUpload+  ( -- * Creating a Request+    CreateUpload (..),+    newCreateUpload,++    -- * Request Lenses+    createUpload_contentType,+    createUpload_projectArn,+    createUpload_name,+    createUpload_type,++    -- * Destructuring the Response+    CreateUploadResponse (..),+    newCreateUploadResponse,++    -- * Response Lenses+    createUploadResponse_upload,+    createUploadResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the create upload operation.+--+-- /See:/ 'newCreateUpload' smart constructor.+data CreateUpload = CreateUpload'+  { -- | The upload\'s content type (for example, @application\/octet-stream@).+    contentType :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the project for the upload.+    projectArn :: Prelude.Text,+    -- | The upload\'s file name. The name should not contain any forward slashes+    -- (@\/@). If you are uploading an iOS app, the file name must end with the+    -- @.ipa@ extension. If you are uploading an Android app, the file name+    -- must end with the @.apk@ extension. For all others, the file name must+    -- end with the @.zip@ file extension.+    name :: Prelude.Text,+    -- | The upload\'s upload type.+    --+    -- Must be one of the following values:+    --+    -- -   ANDROID_APP+    --+    -- -   IOS_APP+    --+    -- -   WEB_APP+    --+    -- -   EXTERNAL_DATA+    --+    -- -   APPIUM_JAVA_JUNIT_TEST_PACKAGE+    --+    -- -   APPIUM_JAVA_TESTNG_TEST_PACKAGE+    --+    -- -   APPIUM_PYTHON_TEST_PACKAGE+    --+    -- -   APPIUM_NODE_TEST_PACKAGE+    --+    -- -   APPIUM_RUBY_TEST_PACKAGE+    --+    -- -   APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE+    --+    -- -   APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE+    --+    -- -   APPIUM_WEB_PYTHON_TEST_PACKAGE+    --+    -- -   APPIUM_WEB_NODE_TEST_PACKAGE+    --+    -- -   APPIUM_WEB_RUBY_TEST_PACKAGE+    --+    -- -   CALABASH_TEST_PACKAGE+    --+    -- -   INSTRUMENTATION_TEST_PACKAGE+    --+    -- -   UIAUTOMATION_TEST_PACKAGE+    --+    -- -   UIAUTOMATOR_TEST_PACKAGE+    --+    -- -   XCTEST_TEST_PACKAGE+    --+    -- -   XCTEST_UI_TEST_PACKAGE+    --+    -- -   APPIUM_JAVA_JUNIT_TEST_SPEC+    --+    -- -   APPIUM_JAVA_TESTNG_TEST_SPEC+    --+    -- -   APPIUM_PYTHON_TEST_SPEC+    --+    -- -   APPIUM_NODE_TEST_SPEC+    --+    -- -   APPIUM_RUBY_TEST_SPEC+    --+    -- -   APPIUM_WEB_JAVA_JUNIT_TEST_SPEC+    --+    -- -   APPIUM_WEB_JAVA_TESTNG_TEST_SPEC+    --+    -- -   APPIUM_WEB_PYTHON_TEST_SPEC+    --+    -- -   APPIUM_WEB_NODE_TEST_SPEC+    --+    -- -   APPIUM_WEB_RUBY_TEST_SPEC+    --+    -- -   INSTRUMENTATION_TEST_SPEC+    --+    -- -   XCTEST_UI_TEST_SPEC+    --+    -- If you call @CreateUpload@ with @WEB_APP@ specified, AWS Device Farm+    -- throws an @ArgumentException@ error.+    type' :: UploadType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateUpload' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'contentType', 'createUpload_contentType' - The upload\'s content type (for example, @application\/octet-stream@).+--+-- 'projectArn', 'createUpload_projectArn' - The ARN of the project for the upload.+--+-- 'name', 'createUpload_name' - The upload\'s file name. The name should not contain any forward slashes+-- (@\/@). If you are uploading an iOS app, the file name must end with the+-- @.ipa@ extension. If you are uploading an Android app, the file name+-- must end with the @.apk@ extension. For all others, the file name must+-- end with the @.zip@ file extension.+--+-- 'type'', 'createUpload_type' - The upload\'s upload type.+--+-- Must be one of the following values:+--+-- -   ANDROID_APP+--+-- -   IOS_APP+--+-- -   WEB_APP+--+-- -   EXTERNAL_DATA+--+-- -   APPIUM_JAVA_JUNIT_TEST_PACKAGE+--+-- -   APPIUM_JAVA_TESTNG_TEST_PACKAGE+--+-- -   APPIUM_PYTHON_TEST_PACKAGE+--+-- -   APPIUM_NODE_TEST_PACKAGE+--+-- -   APPIUM_RUBY_TEST_PACKAGE+--+-- -   APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE+--+-- -   APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE+--+-- -   APPIUM_WEB_PYTHON_TEST_PACKAGE+--+-- -   APPIUM_WEB_NODE_TEST_PACKAGE+--+-- -   APPIUM_WEB_RUBY_TEST_PACKAGE+--+-- -   CALABASH_TEST_PACKAGE+--+-- -   INSTRUMENTATION_TEST_PACKAGE+--+-- -   UIAUTOMATION_TEST_PACKAGE+--+-- -   UIAUTOMATOR_TEST_PACKAGE+--+-- -   XCTEST_TEST_PACKAGE+--+-- -   XCTEST_UI_TEST_PACKAGE+--+-- -   APPIUM_JAVA_JUNIT_TEST_SPEC+--+-- -   APPIUM_JAVA_TESTNG_TEST_SPEC+--+-- -   APPIUM_PYTHON_TEST_SPEC+--+-- -   APPIUM_NODE_TEST_SPEC+--+-- -   APPIUM_RUBY_TEST_SPEC+--+-- -   APPIUM_WEB_JAVA_JUNIT_TEST_SPEC+--+-- -   APPIUM_WEB_JAVA_TESTNG_TEST_SPEC+--+-- -   APPIUM_WEB_PYTHON_TEST_SPEC+--+-- -   APPIUM_WEB_NODE_TEST_SPEC+--+-- -   APPIUM_WEB_RUBY_TEST_SPEC+--+-- -   INSTRUMENTATION_TEST_SPEC+--+-- -   XCTEST_UI_TEST_SPEC+--+-- If you call @CreateUpload@ with @WEB_APP@ specified, AWS Device Farm+-- throws an @ArgumentException@ error.+newCreateUpload ::+  -- | 'projectArn'+  Prelude.Text ->+  -- | 'name'+  Prelude.Text ->+  -- | 'type''+  UploadType ->+  CreateUpload+newCreateUpload pProjectArn_ pName_ pType_ =+  CreateUpload'+    { contentType = Prelude.Nothing,+      projectArn = pProjectArn_,+      name = pName_,+      type' = pType_+    }++-- | The upload\'s content type (for example, @application\/octet-stream@).+createUpload_contentType :: Lens.Lens' CreateUpload (Prelude.Maybe Prelude.Text)+createUpload_contentType = Lens.lens (\CreateUpload' {contentType} -> contentType) (\s@CreateUpload' {} a -> s {contentType = a} :: CreateUpload)++-- | The ARN of the project for the upload.+createUpload_projectArn :: Lens.Lens' CreateUpload Prelude.Text+createUpload_projectArn = Lens.lens (\CreateUpload' {projectArn} -> projectArn) (\s@CreateUpload' {} a -> s {projectArn = a} :: CreateUpload)++-- | The upload\'s file name. The name should not contain any forward slashes+-- (@\/@). If you are uploading an iOS app, the file name must end with the+-- @.ipa@ extension. If you are uploading an Android app, the file name+-- must end with the @.apk@ extension. For all others, the file name must+-- end with the @.zip@ file extension.+createUpload_name :: Lens.Lens' CreateUpload Prelude.Text+createUpload_name = Lens.lens (\CreateUpload' {name} -> name) (\s@CreateUpload' {} a -> s {name = a} :: CreateUpload)++-- | The upload\'s upload type.+--+-- Must be one of the following values:+--+-- -   ANDROID_APP+--+-- -   IOS_APP+--+-- -   WEB_APP+--+-- -   EXTERNAL_DATA+--+-- -   APPIUM_JAVA_JUNIT_TEST_PACKAGE+--+-- -   APPIUM_JAVA_TESTNG_TEST_PACKAGE+--+-- -   APPIUM_PYTHON_TEST_PACKAGE+--+-- -   APPIUM_NODE_TEST_PACKAGE+--+-- -   APPIUM_RUBY_TEST_PACKAGE+--+-- -   APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE+--+-- -   APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE+--+-- -   APPIUM_WEB_PYTHON_TEST_PACKAGE+--+-- -   APPIUM_WEB_NODE_TEST_PACKAGE+--+-- -   APPIUM_WEB_RUBY_TEST_PACKAGE+--+-- -   CALABASH_TEST_PACKAGE+--+-- -   INSTRUMENTATION_TEST_PACKAGE+--+-- -   UIAUTOMATION_TEST_PACKAGE+--+-- -   UIAUTOMATOR_TEST_PACKAGE+--+-- -   XCTEST_TEST_PACKAGE+--+-- -   XCTEST_UI_TEST_PACKAGE+--+-- -   APPIUM_JAVA_JUNIT_TEST_SPEC+--+-- -   APPIUM_JAVA_TESTNG_TEST_SPEC+--+-- -   APPIUM_PYTHON_TEST_SPEC+--+-- -   APPIUM_NODE_TEST_SPEC+--+-- -   APPIUM_RUBY_TEST_SPEC+--+-- -   APPIUM_WEB_JAVA_JUNIT_TEST_SPEC+--+-- -   APPIUM_WEB_JAVA_TESTNG_TEST_SPEC+--+-- -   APPIUM_WEB_PYTHON_TEST_SPEC+--+-- -   APPIUM_WEB_NODE_TEST_SPEC+--+-- -   APPIUM_WEB_RUBY_TEST_SPEC+--+-- -   INSTRUMENTATION_TEST_SPEC+--+-- -   XCTEST_UI_TEST_SPEC+--+-- If you call @CreateUpload@ with @WEB_APP@ specified, AWS Device Farm+-- throws an @ArgumentException@ error.+createUpload_type :: Lens.Lens' CreateUpload UploadType+createUpload_type = Lens.lens (\CreateUpload' {type'} -> type') (\s@CreateUpload' {} a -> s {type' = a} :: CreateUpload)++instance Core.AWSRequest CreateUpload where+  type AWSResponse CreateUpload = CreateUploadResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateUploadResponse'+            Prelude.<$> (x Data..?> "upload")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateUpload where+  hashWithSalt _salt CreateUpload' {..} =+    _salt+      `Prelude.hashWithSalt` contentType+      `Prelude.hashWithSalt` projectArn+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` type'++instance Prelude.NFData CreateUpload where+  rnf CreateUpload' {..} =+    Prelude.rnf contentType+      `Prelude.seq` Prelude.rnf projectArn+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf type'++instance Data.ToHeaders CreateUpload where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.CreateUpload" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateUpload where+  toJSON CreateUpload' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("contentType" Data..=) Prelude.<$> contentType,+            Prelude.Just ("projectArn" Data..= projectArn),+            Prelude.Just ("name" Data..= name),+            Prelude.Just ("type" Data..= type')+          ]+      )++instance Data.ToPath CreateUpload where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateUpload where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a create upload request.+--+-- /See:/ 'newCreateUploadResponse' smart constructor.+data CreateUploadResponse = CreateUploadResponse'+  { -- | The newly created upload.+    upload :: Prelude.Maybe Upload,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateUploadResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'upload', 'createUploadResponse_upload' - The newly created upload.+--+-- 'httpStatus', 'createUploadResponse_httpStatus' - The response's http status code.+newCreateUploadResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateUploadResponse+newCreateUploadResponse pHttpStatus_ =+  CreateUploadResponse'+    { upload = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The newly created upload.+createUploadResponse_upload :: Lens.Lens' CreateUploadResponse (Prelude.Maybe Upload)+createUploadResponse_upload = Lens.lens (\CreateUploadResponse' {upload} -> upload) (\s@CreateUploadResponse' {} a -> s {upload = a} :: CreateUploadResponse)++-- | The response's http status code.+createUploadResponse_httpStatus :: Lens.Lens' CreateUploadResponse Prelude.Int+createUploadResponse_httpStatus = Lens.lens (\CreateUploadResponse' {httpStatus} -> httpStatus) (\s@CreateUploadResponse' {} a -> s {httpStatus = a} :: CreateUploadResponse)++instance Prelude.NFData CreateUploadResponse where+  rnf CreateUploadResponse' {..} =+    Prelude.rnf upload+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/CreateVPCEConfiguration.hs view
@@ -0,0 +1,245 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.CreateVPCEConfiguration+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a configuration record in Device Farm for your Amazon Virtual+-- Private Cloud (VPC) endpoint.+module Amazonka.DeviceFarm.CreateVPCEConfiguration+  ( -- * Creating a Request+    CreateVPCEConfiguration (..),+    newCreateVPCEConfiguration,++    -- * Request Lenses+    createVPCEConfiguration_vpceConfigurationDescription,+    createVPCEConfiguration_vpceConfigurationName,+    createVPCEConfiguration_vpceServiceName,+    createVPCEConfiguration_serviceDnsName,++    -- * Destructuring the Response+    CreateVPCEConfigurationResponse (..),+    newCreateVPCEConfigurationResponse,++    -- * Response Lenses+    createVPCEConfigurationResponse_vpceConfiguration,+    createVPCEConfigurationResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateVPCEConfiguration' smart constructor.+data CreateVPCEConfiguration = CreateVPCEConfiguration'+  { -- | An optional description that provides details about your VPC endpoint+    -- configuration.+    vpceConfigurationDescription :: Prelude.Maybe Prelude.Text,+    -- | The friendly name you give to your VPC endpoint configuration, to manage+    -- your configurations more easily.+    vpceConfigurationName :: Prelude.Text,+    -- | The name of the VPC endpoint service running in your AWS account that+    -- you want Device Farm to test.+    vpceServiceName :: Prelude.Text,+    -- | The DNS name of the service running in your VPC that you want Device+    -- Farm to test.+    serviceDnsName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateVPCEConfiguration' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'vpceConfigurationDescription', 'createVPCEConfiguration_vpceConfigurationDescription' - An optional description that provides details about your VPC endpoint+-- configuration.+--+-- 'vpceConfigurationName', 'createVPCEConfiguration_vpceConfigurationName' - The friendly name you give to your VPC endpoint configuration, to manage+-- your configurations more easily.+--+-- 'vpceServiceName', 'createVPCEConfiguration_vpceServiceName' - The name of the VPC endpoint service running in your AWS account that+-- you want Device Farm to test.+--+-- 'serviceDnsName', 'createVPCEConfiguration_serviceDnsName' - The DNS name of the service running in your VPC that you want Device+-- Farm to test.+newCreateVPCEConfiguration ::+  -- | 'vpceConfigurationName'+  Prelude.Text ->+  -- | 'vpceServiceName'+  Prelude.Text ->+  -- | 'serviceDnsName'+  Prelude.Text ->+  CreateVPCEConfiguration+newCreateVPCEConfiguration+  pVpceConfigurationName_+  pVpceServiceName_+  pServiceDnsName_ =+    CreateVPCEConfiguration'+      { vpceConfigurationDescription =+          Prelude.Nothing,+        vpceConfigurationName = pVpceConfigurationName_,+        vpceServiceName = pVpceServiceName_,+        serviceDnsName = pServiceDnsName_+      }++-- | An optional description that provides details about your VPC endpoint+-- configuration.+createVPCEConfiguration_vpceConfigurationDescription :: Lens.Lens' CreateVPCEConfiguration (Prelude.Maybe Prelude.Text)+createVPCEConfiguration_vpceConfigurationDescription = Lens.lens (\CreateVPCEConfiguration' {vpceConfigurationDescription} -> vpceConfigurationDescription) (\s@CreateVPCEConfiguration' {} a -> s {vpceConfigurationDescription = a} :: CreateVPCEConfiguration)++-- | The friendly name you give to your VPC endpoint configuration, to manage+-- your configurations more easily.+createVPCEConfiguration_vpceConfigurationName :: Lens.Lens' CreateVPCEConfiguration Prelude.Text+createVPCEConfiguration_vpceConfigurationName = Lens.lens (\CreateVPCEConfiguration' {vpceConfigurationName} -> vpceConfigurationName) (\s@CreateVPCEConfiguration' {} a -> s {vpceConfigurationName = a} :: CreateVPCEConfiguration)++-- | The name of the VPC endpoint service running in your AWS account that+-- you want Device Farm to test.+createVPCEConfiguration_vpceServiceName :: Lens.Lens' CreateVPCEConfiguration Prelude.Text+createVPCEConfiguration_vpceServiceName = Lens.lens (\CreateVPCEConfiguration' {vpceServiceName} -> vpceServiceName) (\s@CreateVPCEConfiguration' {} a -> s {vpceServiceName = a} :: CreateVPCEConfiguration)++-- | The DNS name of the service running in your VPC that you want Device+-- Farm to test.+createVPCEConfiguration_serviceDnsName :: Lens.Lens' CreateVPCEConfiguration Prelude.Text+createVPCEConfiguration_serviceDnsName = Lens.lens (\CreateVPCEConfiguration' {serviceDnsName} -> serviceDnsName) (\s@CreateVPCEConfiguration' {} a -> s {serviceDnsName = a} :: CreateVPCEConfiguration)++instance Core.AWSRequest CreateVPCEConfiguration where+  type+    AWSResponse CreateVPCEConfiguration =+      CreateVPCEConfigurationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateVPCEConfigurationResponse'+            Prelude.<$> (x Data..?> "vpceConfiguration")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateVPCEConfiguration where+  hashWithSalt _salt CreateVPCEConfiguration' {..} =+    _salt+      `Prelude.hashWithSalt` vpceConfigurationDescription+      `Prelude.hashWithSalt` vpceConfigurationName+      `Prelude.hashWithSalt` vpceServiceName+      `Prelude.hashWithSalt` serviceDnsName++instance Prelude.NFData CreateVPCEConfiguration where+  rnf CreateVPCEConfiguration' {..} =+    Prelude.rnf vpceConfigurationDescription+      `Prelude.seq` Prelude.rnf vpceConfigurationName+      `Prelude.seq` Prelude.rnf vpceServiceName+      `Prelude.seq` Prelude.rnf serviceDnsName++instance Data.ToHeaders CreateVPCEConfiguration where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.CreateVPCEConfiguration" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateVPCEConfiguration where+  toJSON CreateVPCEConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("vpceConfigurationDescription" Data..=)+              Prelude.<$> vpceConfigurationDescription,+            Prelude.Just+              ( "vpceConfigurationName"+                  Data..= vpceConfigurationName+              ),+            Prelude.Just+              ("vpceServiceName" Data..= vpceServiceName),+            Prelude.Just+              ("serviceDnsName" Data..= serviceDnsName)+          ]+      )++instance Data.ToPath CreateVPCEConfiguration where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateVPCEConfiguration where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateVPCEConfigurationResponse' smart constructor.+data CreateVPCEConfigurationResponse = CreateVPCEConfigurationResponse'+  { -- | An object that contains information about your VPC endpoint+    -- configuration.+    vpceConfiguration :: Prelude.Maybe VPCEConfiguration,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateVPCEConfigurationResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'vpceConfiguration', 'createVPCEConfigurationResponse_vpceConfiguration' - An object that contains information about your VPC endpoint+-- configuration.+--+-- 'httpStatus', 'createVPCEConfigurationResponse_httpStatus' - The response's http status code.+newCreateVPCEConfigurationResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateVPCEConfigurationResponse+newCreateVPCEConfigurationResponse pHttpStatus_ =+  CreateVPCEConfigurationResponse'+    { vpceConfiguration =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An object that contains information about your VPC endpoint+-- configuration.+createVPCEConfigurationResponse_vpceConfiguration :: Lens.Lens' CreateVPCEConfigurationResponse (Prelude.Maybe VPCEConfiguration)+createVPCEConfigurationResponse_vpceConfiguration = Lens.lens (\CreateVPCEConfigurationResponse' {vpceConfiguration} -> vpceConfiguration) (\s@CreateVPCEConfigurationResponse' {} a -> s {vpceConfiguration = a} :: CreateVPCEConfigurationResponse)++-- | The response's http status code.+createVPCEConfigurationResponse_httpStatus :: Lens.Lens' CreateVPCEConfigurationResponse Prelude.Int+createVPCEConfigurationResponse_httpStatus = Lens.lens (\CreateVPCEConfigurationResponse' {httpStatus} -> httpStatus) (\s@CreateVPCEConfigurationResponse' {} a -> s {httpStatus = a} :: CreateVPCEConfigurationResponse)++instance+  Prelude.NFData+    CreateVPCEConfigurationResponse+  where+  rnf CreateVPCEConfigurationResponse' {..} =+    Prelude.rnf vpceConfiguration+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/DeleteDevicePool.hs view
@@ -0,0 +1,164 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.DeleteDevicePool+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a device pool given the pool ARN. Does not allow deletion of+-- curated pools owned by the system.+module Amazonka.DeviceFarm.DeleteDevicePool+  ( -- * Creating a Request+    DeleteDevicePool (..),+    newDeleteDevicePool,++    -- * Request Lenses+    deleteDevicePool_arn,++    -- * Destructuring the Response+    DeleteDevicePoolResponse (..),+    newDeleteDevicePoolResponse,++    -- * Response Lenses+    deleteDevicePoolResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the delete device pool operation.+--+-- /See:/ 'newDeleteDevicePool' smart constructor.+data DeleteDevicePool = DeleteDevicePool'+  { -- | Represents the Amazon Resource Name (ARN) of the Device Farm device pool+    -- to delete.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteDevicePool' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'deleteDevicePool_arn' - Represents the Amazon Resource Name (ARN) of the Device Farm device pool+-- to delete.+newDeleteDevicePool ::+  -- | 'arn'+  Prelude.Text ->+  DeleteDevicePool+newDeleteDevicePool pArn_ =+  DeleteDevicePool' {arn = pArn_}++-- | Represents the Amazon Resource Name (ARN) of the Device Farm device pool+-- to delete.+deleteDevicePool_arn :: Lens.Lens' DeleteDevicePool Prelude.Text+deleteDevicePool_arn = Lens.lens (\DeleteDevicePool' {arn} -> arn) (\s@DeleteDevicePool' {} a -> s {arn = a} :: DeleteDevicePool)++instance Core.AWSRequest DeleteDevicePool where+  type+    AWSResponse DeleteDevicePool =+      DeleteDevicePoolResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteDevicePoolResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteDevicePool where+  hashWithSalt _salt DeleteDevicePool' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData DeleteDevicePool where+  rnf DeleteDevicePool' {..} = Prelude.rnf arn++instance Data.ToHeaders DeleteDevicePool where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.DeleteDevicePool" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteDevicePool where+  toJSON DeleteDevicePool' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("arn" Data..= arn)]+      )++instance Data.ToPath DeleteDevicePool where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteDevicePool where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a delete device pool request.+--+-- /See:/ 'newDeleteDevicePoolResponse' smart constructor.+data DeleteDevicePoolResponse = DeleteDevicePoolResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteDevicePoolResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteDevicePoolResponse_httpStatus' - The response's http status code.+newDeleteDevicePoolResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteDevicePoolResponse+newDeleteDevicePoolResponse pHttpStatus_ =+  DeleteDevicePoolResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteDevicePoolResponse_httpStatus :: Lens.Lens' DeleteDevicePoolResponse Prelude.Int+deleteDevicePoolResponse_httpStatus = Lens.lens (\DeleteDevicePoolResponse' {httpStatus} -> httpStatus) (\s@DeleteDevicePoolResponse' {} a -> s {httpStatus = a} :: DeleteDevicePoolResponse)++instance Prelude.NFData DeleteDevicePoolResponse where+  rnf DeleteDevicePoolResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/DeleteInstanceProfile.hs view
@@ -0,0 +1,160 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.DeleteInstanceProfile+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a profile that can be applied to one or more private device+-- instances.+module Amazonka.DeviceFarm.DeleteInstanceProfile+  ( -- * Creating a Request+    DeleteInstanceProfile (..),+    newDeleteInstanceProfile,++    -- * Request Lenses+    deleteInstanceProfile_arn,++    -- * Destructuring the Response+    DeleteInstanceProfileResponse (..),+    newDeleteInstanceProfileResponse,++    -- * Response Lenses+    deleteInstanceProfileResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteInstanceProfile' smart constructor.+data DeleteInstanceProfile = DeleteInstanceProfile'+  { -- | The Amazon Resource Name (ARN) of the instance profile you are+    -- requesting to delete.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteInstanceProfile' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'deleteInstanceProfile_arn' - The Amazon Resource Name (ARN) of the instance profile you are+-- requesting to delete.+newDeleteInstanceProfile ::+  -- | 'arn'+  Prelude.Text ->+  DeleteInstanceProfile+newDeleteInstanceProfile pArn_ =+  DeleteInstanceProfile' {arn = pArn_}++-- | The Amazon Resource Name (ARN) of the instance profile you are+-- requesting to delete.+deleteInstanceProfile_arn :: Lens.Lens' DeleteInstanceProfile Prelude.Text+deleteInstanceProfile_arn = Lens.lens (\DeleteInstanceProfile' {arn} -> arn) (\s@DeleteInstanceProfile' {} a -> s {arn = a} :: DeleteInstanceProfile)++instance Core.AWSRequest DeleteInstanceProfile where+  type+    AWSResponse DeleteInstanceProfile =+      DeleteInstanceProfileResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteInstanceProfileResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteInstanceProfile where+  hashWithSalt _salt DeleteInstanceProfile' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData DeleteInstanceProfile where+  rnf DeleteInstanceProfile' {..} = Prelude.rnf arn++instance Data.ToHeaders DeleteInstanceProfile where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.DeleteInstanceProfile" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteInstanceProfile where+  toJSON DeleteInstanceProfile' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("arn" Data..= arn)]+      )++instance Data.ToPath DeleteInstanceProfile where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteInstanceProfile where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteInstanceProfileResponse' smart constructor.+data DeleteInstanceProfileResponse = DeleteInstanceProfileResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteInstanceProfileResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteInstanceProfileResponse_httpStatus' - The response's http status code.+newDeleteInstanceProfileResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteInstanceProfileResponse+newDeleteInstanceProfileResponse pHttpStatus_ =+  DeleteInstanceProfileResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteInstanceProfileResponse_httpStatus :: Lens.Lens' DeleteInstanceProfileResponse Prelude.Int+deleteInstanceProfileResponse_httpStatus = Lens.lens (\DeleteInstanceProfileResponse' {httpStatus} -> httpStatus) (\s@DeleteInstanceProfileResponse' {} a -> s {httpStatus = a} :: DeleteInstanceProfileResponse)++instance Prelude.NFData DeleteInstanceProfileResponse where+  rnf DeleteInstanceProfileResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/DeleteNetworkProfile.hs view
@@ -0,0 +1,156 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.DeleteNetworkProfile+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a network profile.+module Amazonka.DeviceFarm.DeleteNetworkProfile+  ( -- * Creating a Request+    DeleteNetworkProfile (..),+    newDeleteNetworkProfile,++    -- * Request Lenses+    deleteNetworkProfile_arn,++    -- * Destructuring the Response+    DeleteNetworkProfileResponse (..),+    newDeleteNetworkProfileResponse,++    -- * Response Lenses+    deleteNetworkProfileResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteNetworkProfile' smart constructor.+data DeleteNetworkProfile = DeleteNetworkProfile'+  { -- | The ARN of the network profile to delete.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteNetworkProfile' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'deleteNetworkProfile_arn' - The ARN of the network profile to delete.+newDeleteNetworkProfile ::+  -- | 'arn'+  Prelude.Text ->+  DeleteNetworkProfile+newDeleteNetworkProfile pArn_ =+  DeleteNetworkProfile' {arn = pArn_}++-- | The ARN of the network profile to delete.+deleteNetworkProfile_arn :: Lens.Lens' DeleteNetworkProfile Prelude.Text+deleteNetworkProfile_arn = Lens.lens (\DeleteNetworkProfile' {arn} -> arn) (\s@DeleteNetworkProfile' {} a -> s {arn = a} :: DeleteNetworkProfile)++instance Core.AWSRequest DeleteNetworkProfile where+  type+    AWSResponse DeleteNetworkProfile =+      DeleteNetworkProfileResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteNetworkProfileResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteNetworkProfile where+  hashWithSalt _salt DeleteNetworkProfile' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData DeleteNetworkProfile where+  rnf DeleteNetworkProfile' {..} = Prelude.rnf arn++instance Data.ToHeaders DeleteNetworkProfile where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.DeleteNetworkProfile" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteNetworkProfile where+  toJSON DeleteNetworkProfile' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("arn" Data..= arn)]+      )++instance Data.ToPath DeleteNetworkProfile where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteNetworkProfile where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteNetworkProfileResponse' smart constructor.+data DeleteNetworkProfileResponse = DeleteNetworkProfileResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteNetworkProfileResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteNetworkProfileResponse_httpStatus' - The response's http status code.+newDeleteNetworkProfileResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteNetworkProfileResponse+newDeleteNetworkProfileResponse pHttpStatus_ =+  DeleteNetworkProfileResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteNetworkProfileResponse_httpStatus :: Lens.Lens' DeleteNetworkProfileResponse Prelude.Int+deleteNetworkProfileResponse_httpStatus = Lens.lens (\DeleteNetworkProfileResponse' {httpStatus} -> httpStatus) (\s@DeleteNetworkProfileResponse' {} a -> s {httpStatus = a} :: DeleteNetworkProfileResponse)++instance Prelude.NFData DeleteNetworkProfileResponse where+  rnf DeleteNetworkProfileResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/DeleteProject.hs view
@@ -0,0 +1,161 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.DeleteProject+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes an AWS Device Farm project, given the project ARN.+--+-- Deleting this resource does not stop an in-progress run.+module Amazonka.DeviceFarm.DeleteProject+  ( -- * Creating a Request+    DeleteProject (..),+    newDeleteProject,++    -- * Request Lenses+    deleteProject_arn,++    -- * Destructuring the Response+    DeleteProjectResponse (..),+    newDeleteProjectResponse,++    -- * Response Lenses+    deleteProjectResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the delete project operation.+--+-- /See:/ 'newDeleteProject' smart constructor.+data DeleteProject = DeleteProject'+  { -- | Represents the Amazon Resource Name (ARN) of the Device Farm project to+    -- delete.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteProject' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'deleteProject_arn' - Represents the Amazon Resource Name (ARN) of the Device Farm project to+-- delete.+newDeleteProject ::+  -- | 'arn'+  Prelude.Text ->+  DeleteProject+newDeleteProject pArn_ = DeleteProject' {arn = pArn_}++-- | Represents the Amazon Resource Name (ARN) of the Device Farm project to+-- delete.+deleteProject_arn :: Lens.Lens' DeleteProject Prelude.Text+deleteProject_arn = Lens.lens (\DeleteProject' {arn} -> arn) (\s@DeleteProject' {} a -> s {arn = a} :: DeleteProject)++instance Core.AWSRequest DeleteProject where+  type+    AWSResponse DeleteProject =+      DeleteProjectResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteProjectResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteProject where+  hashWithSalt _salt DeleteProject' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData DeleteProject where+  rnf DeleteProject' {..} = Prelude.rnf arn++instance Data.ToHeaders DeleteProject where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.DeleteProject" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteProject where+  toJSON DeleteProject' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("arn" Data..= arn)]+      )++instance Data.ToPath DeleteProject where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteProject where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a delete project request.+--+-- /See:/ 'newDeleteProjectResponse' smart constructor.+data DeleteProjectResponse = DeleteProjectResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteProjectResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteProjectResponse_httpStatus' - The response's http status code.+newDeleteProjectResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteProjectResponse+newDeleteProjectResponse pHttpStatus_ =+  DeleteProjectResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+deleteProjectResponse_httpStatus :: Lens.Lens' DeleteProjectResponse Prelude.Int+deleteProjectResponse_httpStatus = Lens.lens (\DeleteProjectResponse' {httpStatus} -> httpStatus) (\s@DeleteProjectResponse' {} a -> s {httpStatus = a} :: DeleteProjectResponse)++instance Prelude.NFData DeleteProjectResponse where+  rnf DeleteProjectResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/DeleteRemoteAccessSession.hs view
@@ -0,0 +1,167 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.DeleteRemoteAccessSession+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a completed remote access session and its results.+module Amazonka.DeviceFarm.DeleteRemoteAccessSession+  ( -- * Creating a Request+    DeleteRemoteAccessSession (..),+    newDeleteRemoteAccessSession,++    -- * Request Lenses+    deleteRemoteAccessSession_arn,++    -- * Destructuring the Response+    DeleteRemoteAccessSessionResponse (..),+    newDeleteRemoteAccessSessionResponse,++    -- * Response Lenses+    deleteRemoteAccessSessionResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents the request to delete the specified remote access session.+--+-- /See:/ 'newDeleteRemoteAccessSession' smart constructor.+data DeleteRemoteAccessSession = DeleteRemoteAccessSession'+  { -- | The Amazon Resource Name (ARN) of the session for which you want to+    -- delete remote access.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteRemoteAccessSession' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'deleteRemoteAccessSession_arn' - The Amazon Resource Name (ARN) of the session for which you want to+-- delete remote access.+newDeleteRemoteAccessSession ::+  -- | 'arn'+  Prelude.Text ->+  DeleteRemoteAccessSession+newDeleteRemoteAccessSession pArn_ =+  DeleteRemoteAccessSession' {arn = pArn_}++-- | The Amazon Resource Name (ARN) of the session for which you want to+-- delete remote access.+deleteRemoteAccessSession_arn :: Lens.Lens' DeleteRemoteAccessSession Prelude.Text+deleteRemoteAccessSession_arn = Lens.lens (\DeleteRemoteAccessSession' {arn} -> arn) (\s@DeleteRemoteAccessSession' {} a -> s {arn = a} :: DeleteRemoteAccessSession)++instance Core.AWSRequest DeleteRemoteAccessSession where+  type+    AWSResponse DeleteRemoteAccessSession =+      DeleteRemoteAccessSessionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteRemoteAccessSessionResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteRemoteAccessSession where+  hashWithSalt _salt DeleteRemoteAccessSession' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData DeleteRemoteAccessSession where+  rnf DeleteRemoteAccessSession' {..} = Prelude.rnf arn++instance Data.ToHeaders DeleteRemoteAccessSession where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.DeleteRemoteAccessSession" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteRemoteAccessSession where+  toJSON DeleteRemoteAccessSession' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("arn" Data..= arn)]+      )++instance Data.ToPath DeleteRemoteAccessSession where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteRemoteAccessSession where+  toQuery = Prelude.const Prelude.mempty++-- | The response from the server when a request is made to delete the remote+-- access session.+--+-- /See:/ 'newDeleteRemoteAccessSessionResponse' smart constructor.+data DeleteRemoteAccessSessionResponse = DeleteRemoteAccessSessionResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteRemoteAccessSessionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteRemoteAccessSessionResponse_httpStatus' - The response's http status code.+newDeleteRemoteAccessSessionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteRemoteAccessSessionResponse+newDeleteRemoteAccessSessionResponse pHttpStatus_ =+  DeleteRemoteAccessSessionResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteRemoteAccessSessionResponse_httpStatus :: Lens.Lens' DeleteRemoteAccessSessionResponse Prelude.Int+deleteRemoteAccessSessionResponse_httpStatus = Lens.lens (\DeleteRemoteAccessSessionResponse' {httpStatus} -> httpStatus) (\s@DeleteRemoteAccessSessionResponse' {} a -> s {httpStatus = a} :: DeleteRemoteAccessSessionResponse)++instance+  Prelude.NFData+    DeleteRemoteAccessSessionResponse+  where+  rnf DeleteRemoteAccessSessionResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/DeleteRun.hs view
@@ -0,0 +1,155 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.DeleteRun+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the run, given the run ARN.+--+-- Deleting this resource does not stop an in-progress run.+module Amazonka.DeviceFarm.DeleteRun+  ( -- * Creating a Request+    DeleteRun (..),+    newDeleteRun,++    -- * Request Lenses+    deleteRun_arn,++    -- * Destructuring the Response+    DeleteRunResponse (..),+    newDeleteRunResponse,++    -- * Response Lenses+    deleteRunResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the delete run operation.+--+-- /See:/ 'newDeleteRun' smart constructor.+data DeleteRun = DeleteRun'+  { -- | The Amazon Resource Name (ARN) for the run to delete.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteRun' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'deleteRun_arn' - The Amazon Resource Name (ARN) for the run to delete.+newDeleteRun ::+  -- | 'arn'+  Prelude.Text ->+  DeleteRun+newDeleteRun pArn_ = DeleteRun' {arn = pArn_}++-- | The Amazon Resource Name (ARN) for the run to delete.+deleteRun_arn :: Lens.Lens' DeleteRun Prelude.Text+deleteRun_arn = Lens.lens (\DeleteRun' {arn} -> arn) (\s@DeleteRun' {} a -> s {arn = a} :: DeleteRun)++instance Core.AWSRequest DeleteRun where+  type AWSResponse DeleteRun = DeleteRunResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteRunResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteRun where+  hashWithSalt _salt DeleteRun' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData DeleteRun where+  rnf DeleteRun' {..} = Prelude.rnf arn++instance Data.ToHeaders DeleteRun where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.DeleteRun" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteRun where+  toJSON DeleteRun' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("arn" Data..= arn)]+      )++instance Data.ToPath DeleteRun where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteRun where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a delete run request.+--+-- /See:/ 'newDeleteRunResponse' smart constructor.+data DeleteRunResponse = DeleteRunResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteRunResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteRunResponse_httpStatus' - The response's http status code.+newDeleteRunResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteRunResponse+newDeleteRunResponse pHttpStatus_ =+  DeleteRunResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+deleteRunResponse_httpStatus :: Lens.Lens' DeleteRunResponse Prelude.Int+deleteRunResponse_httpStatus = Lens.lens (\DeleteRunResponse' {httpStatus} -> httpStatus) (\s@DeleteRunResponse' {} a -> s {httpStatus = a} :: DeleteRunResponse)++instance Prelude.NFData DeleteRunResponse where+  rnf DeleteRunResponse' {..} = Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/DeleteTestGridProject.hs view
@@ -0,0 +1,164 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.DeleteTestGridProject+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a Selenium testing project and all content generated under it.+--+-- You cannot undo this operation.+--+-- You cannot delete a project if it has active sessions.+module Amazonka.DeviceFarm.DeleteTestGridProject+  ( -- * Creating a Request+    DeleteTestGridProject (..),+    newDeleteTestGridProject,++    -- * Request Lenses+    deleteTestGridProject_projectArn,++    -- * Destructuring the Response+    DeleteTestGridProjectResponse (..),+    newDeleteTestGridProjectResponse,++    -- * Response Lenses+    deleteTestGridProjectResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteTestGridProject' smart constructor.+data DeleteTestGridProject = DeleteTestGridProject'+  { -- | The ARN of the project to delete, from CreateTestGridProject or+    -- ListTestGridProjects.+    projectArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteTestGridProject' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'projectArn', 'deleteTestGridProject_projectArn' - The ARN of the project to delete, from CreateTestGridProject or+-- ListTestGridProjects.+newDeleteTestGridProject ::+  -- | 'projectArn'+  Prelude.Text ->+  DeleteTestGridProject+newDeleteTestGridProject pProjectArn_ =+  DeleteTestGridProject' {projectArn = pProjectArn_}++-- | The ARN of the project to delete, from CreateTestGridProject or+-- ListTestGridProjects.+deleteTestGridProject_projectArn :: Lens.Lens' DeleteTestGridProject Prelude.Text+deleteTestGridProject_projectArn = Lens.lens (\DeleteTestGridProject' {projectArn} -> projectArn) (\s@DeleteTestGridProject' {} a -> s {projectArn = a} :: DeleteTestGridProject)++instance Core.AWSRequest DeleteTestGridProject where+  type+    AWSResponse DeleteTestGridProject =+      DeleteTestGridProjectResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteTestGridProjectResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteTestGridProject where+  hashWithSalt _salt DeleteTestGridProject' {..} =+    _salt `Prelude.hashWithSalt` projectArn++instance Prelude.NFData DeleteTestGridProject where+  rnf DeleteTestGridProject' {..} =+    Prelude.rnf projectArn++instance Data.ToHeaders DeleteTestGridProject where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.DeleteTestGridProject" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteTestGridProject where+  toJSON DeleteTestGridProject' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("projectArn" Data..= projectArn)]+      )++instance Data.ToPath DeleteTestGridProject where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteTestGridProject where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteTestGridProjectResponse' smart constructor.+data DeleteTestGridProjectResponse = DeleteTestGridProjectResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteTestGridProjectResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteTestGridProjectResponse_httpStatus' - The response's http status code.+newDeleteTestGridProjectResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteTestGridProjectResponse+newDeleteTestGridProjectResponse pHttpStatus_ =+  DeleteTestGridProjectResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteTestGridProjectResponse_httpStatus :: Lens.Lens' DeleteTestGridProjectResponse Prelude.Int+deleteTestGridProjectResponse_httpStatus = Lens.lens (\DeleteTestGridProjectResponse' {httpStatus} -> httpStatus) (\s@DeleteTestGridProjectResponse' {} a -> s {httpStatus = a} :: DeleteTestGridProjectResponse)++instance Prelude.NFData DeleteTestGridProjectResponse where+  rnf DeleteTestGridProjectResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/DeleteUpload.hs view
@@ -0,0 +1,157 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.DeleteUpload+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes an upload given the upload ARN.+module Amazonka.DeviceFarm.DeleteUpload+  ( -- * Creating a Request+    DeleteUpload (..),+    newDeleteUpload,++    -- * Request Lenses+    deleteUpload_arn,++    -- * Destructuring the Response+    DeleteUploadResponse (..),+    newDeleteUploadResponse,++    -- * Response Lenses+    deleteUploadResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the delete upload operation.+--+-- /See:/ 'newDeleteUpload' smart constructor.+data DeleteUpload = DeleteUpload'+  { -- | Represents the Amazon Resource Name (ARN) of the Device Farm upload to+    -- delete.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteUpload' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'deleteUpload_arn' - Represents the Amazon Resource Name (ARN) of the Device Farm upload to+-- delete.+newDeleteUpload ::+  -- | 'arn'+  Prelude.Text ->+  DeleteUpload+newDeleteUpload pArn_ = DeleteUpload' {arn = pArn_}++-- | Represents the Amazon Resource Name (ARN) of the Device Farm upload to+-- delete.+deleteUpload_arn :: Lens.Lens' DeleteUpload Prelude.Text+deleteUpload_arn = Lens.lens (\DeleteUpload' {arn} -> arn) (\s@DeleteUpload' {} a -> s {arn = a} :: DeleteUpload)++instance Core.AWSRequest DeleteUpload where+  type AWSResponse DeleteUpload = DeleteUploadResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteUploadResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteUpload where+  hashWithSalt _salt DeleteUpload' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData DeleteUpload where+  rnf DeleteUpload' {..} = Prelude.rnf arn++instance Data.ToHeaders DeleteUpload where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.DeleteUpload" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteUpload where+  toJSON DeleteUpload' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("arn" Data..= arn)]+      )++instance Data.ToPath DeleteUpload where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteUpload where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a delete upload request.+--+-- /See:/ 'newDeleteUploadResponse' smart constructor.+data DeleteUploadResponse = DeleteUploadResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteUploadResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteUploadResponse_httpStatus' - The response's http status code.+newDeleteUploadResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteUploadResponse+newDeleteUploadResponse pHttpStatus_ =+  DeleteUploadResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+deleteUploadResponse_httpStatus :: Lens.Lens' DeleteUploadResponse Prelude.Int+deleteUploadResponse_httpStatus = Lens.lens (\DeleteUploadResponse' {httpStatus} -> httpStatus) (\s@DeleteUploadResponse' {} a -> s {httpStatus = a} :: DeleteUploadResponse)++instance Prelude.NFData DeleteUploadResponse where+  rnf DeleteUploadResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/DeleteVPCEConfiguration.hs view
@@ -0,0 +1,163 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.DeleteVPCEConfiguration+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a configuration for your Amazon Virtual Private Cloud (VPC)+-- endpoint.+module Amazonka.DeviceFarm.DeleteVPCEConfiguration+  ( -- * Creating a Request+    DeleteVPCEConfiguration (..),+    newDeleteVPCEConfiguration,++    -- * Request Lenses+    deleteVPCEConfiguration_arn,++    -- * Destructuring the Response+    DeleteVPCEConfigurationResponse (..),+    newDeleteVPCEConfigurationResponse,++    -- * Response Lenses+    deleteVPCEConfigurationResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteVPCEConfiguration' smart constructor.+data DeleteVPCEConfiguration = DeleteVPCEConfiguration'+  { -- | The Amazon Resource Name (ARN) of the VPC endpoint configuration you+    -- want to delete.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteVPCEConfiguration' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'deleteVPCEConfiguration_arn' - The Amazon Resource Name (ARN) of the VPC endpoint configuration you+-- want to delete.+newDeleteVPCEConfiguration ::+  -- | 'arn'+  Prelude.Text ->+  DeleteVPCEConfiguration+newDeleteVPCEConfiguration pArn_ =+  DeleteVPCEConfiguration' {arn = pArn_}++-- | The Amazon Resource Name (ARN) of the VPC endpoint configuration you+-- want to delete.+deleteVPCEConfiguration_arn :: Lens.Lens' DeleteVPCEConfiguration Prelude.Text+deleteVPCEConfiguration_arn = Lens.lens (\DeleteVPCEConfiguration' {arn} -> arn) (\s@DeleteVPCEConfiguration' {} a -> s {arn = a} :: DeleteVPCEConfiguration)++instance Core.AWSRequest DeleteVPCEConfiguration where+  type+    AWSResponse DeleteVPCEConfiguration =+      DeleteVPCEConfigurationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteVPCEConfigurationResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteVPCEConfiguration where+  hashWithSalt _salt DeleteVPCEConfiguration' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData DeleteVPCEConfiguration where+  rnf DeleteVPCEConfiguration' {..} = Prelude.rnf arn++instance Data.ToHeaders DeleteVPCEConfiguration where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.DeleteVPCEConfiguration" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteVPCEConfiguration where+  toJSON DeleteVPCEConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("arn" Data..= arn)]+      )++instance Data.ToPath DeleteVPCEConfiguration where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteVPCEConfiguration where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteVPCEConfigurationResponse' smart constructor.+data DeleteVPCEConfigurationResponse = DeleteVPCEConfigurationResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteVPCEConfigurationResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteVPCEConfigurationResponse_httpStatus' - The response's http status code.+newDeleteVPCEConfigurationResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteVPCEConfigurationResponse+newDeleteVPCEConfigurationResponse pHttpStatus_ =+  DeleteVPCEConfigurationResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteVPCEConfigurationResponse_httpStatus :: Lens.Lens' DeleteVPCEConfigurationResponse Prelude.Int+deleteVPCEConfigurationResponse_httpStatus = Lens.lens (\DeleteVPCEConfigurationResponse' {httpStatus} -> httpStatus) (\s@DeleteVPCEConfigurationResponse' {} a -> s {httpStatus = a} :: DeleteVPCEConfigurationResponse)++instance+  Prelude.NFData+    DeleteVPCEConfigurationResponse+  where+  rnf DeleteVPCEConfigurationResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/GetAccountSettings.hs view
@@ -0,0 +1,154 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.GetAccountSettings+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the number of unmetered iOS or unmetered Android devices that+-- have been purchased by the account.+module Amazonka.DeviceFarm.GetAccountSettings+  ( -- * Creating a Request+    GetAccountSettings (..),+    newGetAccountSettings,++    -- * Destructuring the Response+    GetAccountSettingsResponse (..),+    newGetAccountSettingsResponse,++    -- * Response Lenses+    getAccountSettingsResponse_accountSettings,+    getAccountSettingsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents the request sent to retrieve the account settings.+--+-- /See:/ 'newGetAccountSettings' smart constructor.+data GetAccountSettings = GetAccountSettings'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetAccountSettings' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newGetAccountSettings ::+  GetAccountSettings+newGetAccountSettings = GetAccountSettings'++instance Core.AWSRequest GetAccountSettings where+  type+    AWSResponse GetAccountSettings =+      GetAccountSettingsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetAccountSettingsResponse'+            Prelude.<$> (x Data..?> "accountSettings")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetAccountSettings where+  hashWithSalt _salt _ =+    _salt `Prelude.hashWithSalt` ()++instance Prelude.NFData GetAccountSettings where+  rnf _ = ()++instance Data.ToHeaders GetAccountSettings where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.GetAccountSettings" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetAccountSettings where+  toJSON = Prelude.const (Data.Object Prelude.mempty)++instance Data.ToPath GetAccountSettings where+  toPath = Prelude.const "/"++instance Data.ToQuery GetAccountSettings where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the account settings return values from the+-- @GetAccountSettings@ request.+--+-- /See:/ 'newGetAccountSettingsResponse' smart constructor.+data GetAccountSettingsResponse = GetAccountSettingsResponse'+  { -- | The account settings.+    accountSettings :: Prelude.Maybe AccountSettings,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetAccountSettingsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'accountSettings', 'getAccountSettingsResponse_accountSettings' - The account settings.+--+-- 'httpStatus', 'getAccountSettingsResponse_httpStatus' - The response's http status code.+newGetAccountSettingsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetAccountSettingsResponse+newGetAccountSettingsResponse pHttpStatus_ =+  GetAccountSettingsResponse'+    { accountSettings =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The account settings.+getAccountSettingsResponse_accountSettings :: Lens.Lens' GetAccountSettingsResponse (Prelude.Maybe AccountSettings)+getAccountSettingsResponse_accountSettings = Lens.lens (\GetAccountSettingsResponse' {accountSettings} -> accountSettings) (\s@GetAccountSettingsResponse' {} a -> s {accountSettings = a} :: GetAccountSettingsResponse)++-- | The response's http status code.+getAccountSettingsResponse_httpStatus :: Lens.Lens' GetAccountSettingsResponse Prelude.Int+getAccountSettingsResponse_httpStatus = Lens.lens (\GetAccountSettingsResponse' {httpStatus} -> httpStatus) (\s@GetAccountSettingsResponse' {} a -> s {httpStatus = a} :: GetAccountSettingsResponse)++instance Prelude.NFData GetAccountSettingsResponse where+  rnf GetAccountSettingsResponse' {..} =+    Prelude.rnf accountSettings+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/GetDevice.hs view
@@ -0,0 +1,168 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.GetDevice+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about a unique device type.+module Amazonka.DeviceFarm.GetDevice+  ( -- * Creating a Request+    GetDevice (..),+    newGetDevice,++    -- * Request Lenses+    getDevice_arn,++    -- * Destructuring the Response+    GetDeviceResponse (..),+    newGetDeviceResponse,++    -- * Response Lenses+    getDeviceResponse_device,+    getDeviceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the get device request.+--+-- /See:/ 'newGetDevice' smart constructor.+data GetDevice = GetDevice'+  { -- | The device type\'s ARN.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetDevice' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'getDevice_arn' - The device type\'s ARN.+newGetDevice ::+  -- | 'arn'+  Prelude.Text ->+  GetDevice+newGetDevice pArn_ = GetDevice' {arn = pArn_}++-- | The device type\'s ARN.+getDevice_arn :: Lens.Lens' GetDevice Prelude.Text+getDevice_arn = Lens.lens (\GetDevice' {arn} -> arn) (\s@GetDevice' {} a -> s {arn = a} :: GetDevice)++instance Core.AWSRequest GetDevice where+  type AWSResponse GetDevice = GetDeviceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetDeviceResponse'+            Prelude.<$> (x Data..?> "device")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetDevice where+  hashWithSalt _salt GetDevice' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData GetDevice where+  rnf GetDevice' {..} = Prelude.rnf arn++instance Data.ToHeaders GetDevice where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.GetDevice" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetDevice where+  toJSON GetDevice' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("arn" Data..= arn)]+      )++instance Data.ToPath GetDevice where+  toPath = Prelude.const "/"++instance Data.ToQuery GetDevice where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a get device request.+--+-- /See:/ 'newGetDeviceResponse' smart constructor.+data GetDeviceResponse = GetDeviceResponse'+  { -- | An object that contains information about the requested device.+    device :: Prelude.Maybe Device,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetDeviceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'device', 'getDeviceResponse_device' - An object that contains information about the requested device.+--+-- 'httpStatus', 'getDeviceResponse_httpStatus' - The response's http status code.+newGetDeviceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetDeviceResponse+newGetDeviceResponse pHttpStatus_ =+  GetDeviceResponse'+    { device = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An object that contains information about the requested device.+getDeviceResponse_device :: Lens.Lens' GetDeviceResponse (Prelude.Maybe Device)+getDeviceResponse_device = Lens.lens (\GetDeviceResponse' {device} -> device) (\s@GetDeviceResponse' {} a -> s {device = a} :: GetDeviceResponse)++-- | The response's http status code.+getDeviceResponse_httpStatus :: Lens.Lens' GetDeviceResponse Prelude.Int+getDeviceResponse_httpStatus = Lens.lens (\GetDeviceResponse' {httpStatus} -> httpStatus) (\s@GetDeviceResponse' {} a -> s {httpStatus = a} :: GetDeviceResponse)++instance Prelude.NFData GetDeviceResponse where+  rnf GetDeviceResponse' {..} =+    Prelude.rnf device+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/GetDeviceInstance.hs view
@@ -0,0 +1,172 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.GetDeviceInstance+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about a device instance that belongs to a private+-- device fleet.+module Amazonka.DeviceFarm.GetDeviceInstance+  ( -- * Creating a Request+    GetDeviceInstance (..),+    newGetDeviceInstance,++    -- * Request Lenses+    getDeviceInstance_arn,++    -- * Destructuring the Response+    GetDeviceInstanceResponse (..),+    newGetDeviceInstanceResponse,++    -- * Response Lenses+    getDeviceInstanceResponse_deviceInstance,+    getDeviceInstanceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetDeviceInstance' smart constructor.+data GetDeviceInstance = GetDeviceInstance'+  { -- | The Amazon Resource Name (ARN) of the instance you\'re requesting+    -- information about.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetDeviceInstance' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'getDeviceInstance_arn' - The Amazon Resource Name (ARN) of the instance you\'re requesting+-- information about.+newGetDeviceInstance ::+  -- | 'arn'+  Prelude.Text ->+  GetDeviceInstance+newGetDeviceInstance pArn_ =+  GetDeviceInstance' {arn = pArn_}++-- | The Amazon Resource Name (ARN) of the instance you\'re requesting+-- information about.+getDeviceInstance_arn :: Lens.Lens' GetDeviceInstance Prelude.Text+getDeviceInstance_arn = Lens.lens (\GetDeviceInstance' {arn} -> arn) (\s@GetDeviceInstance' {} a -> s {arn = a} :: GetDeviceInstance)++instance Core.AWSRequest GetDeviceInstance where+  type+    AWSResponse GetDeviceInstance =+      GetDeviceInstanceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetDeviceInstanceResponse'+            Prelude.<$> (x Data..?> "deviceInstance")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetDeviceInstance where+  hashWithSalt _salt GetDeviceInstance' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData GetDeviceInstance where+  rnf GetDeviceInstance' {..} = Prelude.rnf arn++instance Data.ToHeaders GetDeviceInstance where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.GetDeviceInstance" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetDeviceInstance where+  toJSON GetDeviceInstance' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("arn" Data..= arn)]+      )++instance Data.ToPath GetDeviceInstance where+  toPath = Prelude.const "/"++instance Data.ToQuery GetDeviceInstance where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetDeviceInstanceResponse' smart constructor.+data GetDeviceInstanceResponse = GetDeviceInstanceResponse'+  { -- | An object that contains information about your device instance.+    deviceInstance :: Prelude.Maybe DeviceInstance,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetDeviceInstanceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'deviceInstance', 'getDeviceInstanceResponse_deviceInstance' - An object that contains information about your device instance.+--+-- 'httpStatus', 'getDeviceInstanceResponse_httpStatus' - The response's http status code.+newGetDeviceInstanceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetDeviceInstanceResponse+newGetDeviceInstanceResponse pHttpStatus_ =+  GetDeviceInstanceResponse'+    { deviceInstance =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An object that contains information about your device instance.+getDeviceInstanceResponse_deviceInstance :: Lens.Lens' GetDeviceInstanceResponse (Prelude.Maybe DeviceInstance)+getDeviceInstanceResponse_deviceInstance = Lens.lens (\GetDeviceInstanceResponse' {deviceInstance} -> deviceInstance) (\s@GetDeviceInstanceResponse' {} a -> s {deviceInstance = a} :: GetDeviceInstanceResponse)++-- | The response's http status code.+getDeviceInstanceResponse_httpStatus :: Lens.Lens' GetDeviceInstanceResponse Prelude.Int+getDeviceInstanceResponse_httpStatus = Lens.lens (\GetDeviceInstanceResponse' {httpStatus} -> httpStatus) (\s@GetDeviceInstanceResponse' {} a -> s {httpStatus = a} :: GetDeviceInstanceResponse)++instance Prelude.NFData GetDeviceInstanceResponse where+  rnf GetDeviceInstanceResponse' {..} =+    Prelude.rnf deviceInstance+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/GetDevicePool.hs view
@@ -0,0 +1,171 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.GetDevicePool+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about a device pool.+module Amazonka.DeviceFarm.GetDevicePool+  ( -- * Creating a Request+    GetDevicePool (..),+    newGetDevicePool,++    -- * Request Lenses+    getDevicePool_arn,++    -- * Destructuring the Response+    GetDevicePoolResponse (..),+    newGetDevicePoolResponse,++    -- * Response Lenses+    getDevicePoolResponse_devicePool,+    getDevicePoolResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the get device pool operation.+--+-- /See:/ 'newGetDevicePool' smart constructor.+data GetDevicePool = GetDevicePool'+  { -- | The device pool\'s ARN.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetDevicePool' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'getDevicePool_arn' - The device pool\'s ARN.+newGetDevicePool ::+  -- | 'arn'+  Prelude.Text ->+  GetDevicePool+newGetDevicePool pArn_ = GetDevicePool' {arn = pArn_}++-- | The device pool\'s ARN.+getDevicePool_arn :: Lens.Lens' GetDevicePool Prelude.Text+getDevicePool_arn = Lens.lens (\GetDevicePool' {arn} -> arn) (\s@GetDevicePool' {} a -> s {arn = a} :: GetDevicePool)++instance Core.AWSRequest GetDevicePool where+  type+    AWSResponse GetDevicePool =+      GetDevicePoolResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetDevicePoolResponse'+            Prelude.<$> (x Data..?> "devicePool")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetDevicePool where+  hashWithSalt _salt GetDevicePool' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData GetDevicePool where+  rnf GetDevicePool' {..} = Prelude.rnf arn++instance Data.ToHeaders GetDevicePool where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.GetDevicePool" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetDevicePool where+  toJSON GetDevicePool' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("arn" Data..= arn)]+      )++instance Data.ToPath GetDevicePool where+  toPath = Prelude.const "/"++instance Data.ToQuery GetDevicePool where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a get device pool request.+--+-- /See:/ 'newGetDevicePoolResponse' smart constructor.+data GetDevicePoolResponse = GetDevicePoolResponse'+  { -- | An object that contains information about the requested device pool.+    devicePool :: Prelude.Maybe DevicePool,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetDevicePoolResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'devicePool', 'getDevicePoolResponse_devicePool' - An object that contains information about the requested device pool.+--+-- 'httpStatus', 'getDevicePoolResponse_httpStatus' - The response's http status code.+newGetDevicePoolResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetDevicePoolResponse+newGetDevicePoolResponse pHttpStatus_ =+  GetDevicePoolResponse'+    { devicePool =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An object that contains information about the requested device pool.+getDevicePoolResponse_devicePool :: Lens.Lens' GetDevicePoolResponse (Prelude.Maybe DevicePool)+getDevicePoolResponse_devicePool = Lens.lens (\GetDevicePoolResponse' {devicePool} -> devicePool) (\s@GetDevicePoolResponse' {} a -> s {devicePool = a} :: GetDevicePoolResponse)++-- | The response's http status code.+getDevicePoolResponse_httpStatus :: Lens.Lens' GetDevicePoolResponse Prelude.Int+getDevicePoolResponse_httpStatus = Lens.lens (\GetDevicePoolResponse' {httpStatus} -> httpStatus) (\s@GetDevicePoolResponse' {} a -> s {httpStatus = a} :: GetDevicePoolResponse)++instance Prelude.NFData GetDevicePoolResponse where+  rnf GetDevicePoolResponse' {..} =+    Prelude.rnf devicePool+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/GetDevicePoolCompatibility.hs view
@@ -0,0 +1,372 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.GetDevicePoolCompatibility+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about compatibility with a device pool.+module Amazonka.DeviceFarm.GetDevicePoolCompatibility+  ( -- * Creating a Request+    GetDevicePoolCompatibility (..),+    newGetDevicePoolCompatibility,++    -- * Request Lenses+    getDevicePoolCompatibility_appArn,+    getDevicePoolCompatibility_configuration,+    getDevicePoolCompatibility_test,+    getDevicePoolCompatibility_testType,+    getDevicePoolCompatibility_devicePoolArn,++    -- * Destructuring the Response+    GetDevicePoolCompatibilityResponse (..),+    newGetDevicePoolCompatibilityResponse,++    -- * Response Lenses+    getDevicePoolCompatibilityResponse_compatibleDevices,+    getDevicePoolCompatibilityResponse_incompatibleDevices,+    getDevicePoolCompatibilityResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the get device pool compatibility operation.+--+-- /See:/ 'newGetDevicePoolCompatibility' smart constructor.+data GetDevicePoolCompatibility = GetDevicePoolCompatibility'+  { -- | The ARN of the app that is associated with the specified device pool.+    appArn :: Prelude.Maybe Prelude.Text,+    -- | An object that contains information about the settings for a run.+    configuration :: Prelude.Maybe ScheduleRunConfiguration,+    -- | Information about the uploaded test to be run against the device pool.+    test :: Prelude.Maybe ScheduleRunTest,+    -- | The test type for the specified device pool.+    --+    -- Allowed values include the following:+    --+    -- -   BUILTIN_FUZZ.+    --+    -- -   BUILTIN_EXPLORER. For Android, an app explorer that traverses an+    --     Android app, interacting with it and capturing screenshots at the+    --     same time.+    --+    -- -   APPIUM_JAVA_JUNIT.+    --+    -- -   APPIUM_JAVA_TESTNG.+    --+    -- -   APPIUM_PYTHON.+    --+    -- -   APPIUM_NODE.+    --+    -- -   APPIUM_RUBY.+    --+    -- -   APPIUM_WEB_JAVA_JUNIT.+    --+    -- -   APPIUM_WEB_JAVA_TESTNG.+    --+    -- -   APPIUM_WEB_PYTHON.+    --+    -- -   APPIUM_WEB_NODE.+    --+    -- -   APPIUM_WEB_RUBY.+    --+    -- -   CALABASH.+    --+    -- -   INSTRUMENTATION.+    --+    -- -   UIAUTOMATION.+    --+    -- -   UIAUTOMATOR.+    --+    -- -   XCTEST.+    --+    -- -   XCTEST_UI.+    testType :: Prelude.Maybe TestType,+    -- | The device pool\'s ARN.+    devicePoolArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetDevicePoolCompatibility' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'appArn', 'getDevicePoolCompatibility_appArn' - The ARN of the app that is associated with the specified device pool.+--+-- 'configuration', 'getDevicePoolCompatibility_configuration' - An object that contains information about the settings for a run.+--+-- 'test', 'getDevicePoolCompatibility_test' - Information about the uploaded test to be run against the device pool.+--+-- 'testType', 'getDevicePoolCompatibility_testType' - The test type for the specified device pool.+--+-- Allowed values include the following:+--+-- -   BUILTIN_FUZZ.+--+-- -   BUILTIN_EXPLORER. For Android, an app explorer that traverses an+--     Android app, interacting with it and capturing screenshots at the+--     same time.+--+-- -   APPIUM_JAVA_JUNIT.+--+-- -   APPIUM_JAVA_TESTNG.+--+-- -   APPIUM_PYTHON.+--+-- -   APPIUM_NODE.+--+-- -   APPIUM_RUBY.+--+-- -   APPIUM_WEB_JAVA_JUNIT.+--+-- -   APPIUM_WEB_JAVA_TESTNG.+--+-- -   APPIUM_WEB_PYTHON.+--+-- -   APPIUM_WEB_NODE.+--+-- -   APPIUM_WEB_RUBY.+--+-- -   CALABASH.+--+-- -   INSTRUMENTATION.+--+-- -   UIAUTOMATION.+--+-- -   UIAUTOMATOR.+--+-- -   XCTEST.+--+-- -   XCTEST_UI.+--+-- 'devicePoolArn', 'getDevicePoolCompatibility_devicePoolArn' - The device pool\'s ARN.+newGetDevicePoolCompatibility ::+  -- | 'devicePoolArn'+  Prelude.Text ->+  GetDevicePoolCompatibility+newGetDevicePoolCompatibility pDevicePoolArn_ =+  GetDevicePoolCompatibility'+    { appArn =+        Prelude.Nothing,+      configuration = Prelude.Nothing,+      test = Prelude.Nothing,+      testType = Prelude.Nothing,+      devicePoolArn = pDevicePoolArn_+    }++-- | The ARN of the app that is associated with the specified device pool.+getDevicePoolCompatibility_appArn :: Lens.Lens' GetDevicePoolCompatibility (Prelude.Maybe Prelude.Text)+getDevicePoolCompatibility_appArn = Lens.lens (\GetDevicePoolCompatibility' {appArn} -> appArn) (\s@GetDevicePoolCompatibility' {} a -> s {appArn = a} :: GetDevicePoolCompatibility)++-- | An object that contains information about the settings for a run.+getDevicePoolCompatibility_configuration :: Lens.Lens' GetDevicePoolCompatibility (Prelude.Maybe ScheduleRunConfiguration)+getDevicePoolCompatibility_configuration = Lens.lens (\GetDevicePoolCompatibility' {configuration} -> configuration) (\s@GetDevicePoolCompatibility' {} a -> s {configuration = a} :: GetDevicePoolCompatibility)++-- | Information about the uploaded test to be run against the device pool.+getDevicePoolCompatibility_test :: Lens.Lens' GetDevicePoolCompatibility (Prelude.Maybe ScheduleRunTest)+getDevicePoolCompatibility_test = Lens.lens (\GetDevicePoolCompatibility' {test} -> test) (\s@GetDevicePoolCompatibility' {} a -> s {test = a} :: GetDevicePoolCompatibility)++-- | The test type for the specified device pool.+--+-- Allowed values include the following:+--+-- -   BUILTIN_FUZZ.+--+-- -   BUILTIN_EXPLORER. For Android, an app explorer that traverses an+--     Android app, interacting with it and capturing screenshots at the+--     same time.+--+-- -   APPIUM_JAVA_JUNIT.+--+-- -   APPIUM_JAVA_TESTNG.+--+-- -   APPIUM_PYTHON.+--+-- -   APPIUM_NODE.+--+-- -   APPIUM_RUBY.+--+-- -   APPIUM_WEB_JAVA_JUNIT.+--+-- -   APPIUM_WEB_JAVA_TESTNG.+--+-- -   APPIUM_WEB_PYTHON.+--+-- -   APPIUM_WEB_NODE.+--+-- -   APPIUM_WEB_RUBY.+--+-- -   CALABASH.+--+-- -   INSTRUMENTATION.+--+-- -   UIAUTOMATION.+--+-- -   UIAUTOMATOR.+--+-- -   XCTEST.+--+-- -   XCTEST_UI.+getDevicePoolCompatibility_testType :: Lens.Lens' GetDevicePoolCompatibility (Prelude.Maybe TestType)+getDevicePoolCompatibility_testType = Lens.lens (\GetDevicePoolCompatibility' {testType} -> testType) (\s@GetDevicePoolCompatibility' {} a -> s {testType = a} :: GetDevicePoolCompatibility)++-- | The device pool\'s ARN.+getDevicePoolCompatibility_devicePoolArn :: Lens.Lens' GetDevicePoolCompatibility Prelude.Text+getDevicePoolCompatibility_devicePoolArn = Lens.lens (\GetDevicePoolCompatibility' {devicePoolArn} -> devicePoolArn) (\s@GetDevicePoolCompatibility' {} a -> s {devicePoolArn = a} :: GetDevicePoolCompatibility)++instance Core.AWSRequest GetDevicePoolCompatibility where+  type+    AWSResponse GetDevicePoolCompatibility =+      GetDevicePoolCompatibilityResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetDevicePoolCompatibilityResponse'+            Prelude.<$> ( x+                            Data..?> "compatibleDevices"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> ( x+                            Data..?> "incompatibleDevices"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetDevicePoolCompatibility where+  hashWithSalt _salt GetDevicePoolCompatibility' {..} =+    _salt+      `Prelude.hashWithSalt` appArn+      `Prelude.hashWithSalt` configuration+      `Prelude.hashWithSalt` test+      `Prelude.hashWithSalt` testType+      `Prelude.hashWithSalt` devicePoolArn++instance Prelude.NFData GetDevicePoolCompatibility where+  rnf GetDevicePoolCompatibility' {..} =+    Prelude.rnf appArn+      `Prelude.seq` Prelude.rnf configuration+      `Prelude.seq` Prelude.rnf test+      `Prelude.seq` Prelude.rnf testType+      `Prelude.seq` Prelude.rnf devicePoolArn++instance Data.ToHeaders GetDevicePoolCompatibility where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.GetDevicePoolCompatibility" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetDevicePoolCompatibility where+  toJSON GetDevicePoolCompatibility' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("appArn" Data..=) Prelude.<$> appArn,+            ("configuration" Data..=) Prelude.<$> configuration,+            ("test" Data..=) Prelude.<$> test,+            ("testType" Data..=) Prelude.<$> testType,+            Prelude.Just+              ("devicePoolArn" Data..= devicePoolArn)+          ]+      )++instance Data.ToPath GetDevicePoolCompatibility where+  toPath = Prelude.const "/"++instance Data.ToQuery GetDevicePoolCompatibility where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of describe device pool compatibility request.+--+-- /See:/ 'newGetDevicePoolCompatibilityResponse' smart constructor.+data GetDevicePoolCompatibilityResponse = GetDevicePoolCompatibilityResponse'+  { -- | Information about compatible devices.+    compatibleDevices :: Prelude.Maybe [DevicePoolCompatibilityResult],+    -- | Information about incompatible devices.+    incompatibleDevices :: Prelude.Maybe [DevicePoolCompatibilityResult],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetDevicePoolCompatibilityResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'compatibleDevices', 'getDevicePoolCompatibilityResponse_compatibleDevices' - Information about compatible devices.+--+-- 'incompatibleDevices', 'getDevicePoolCompatibilityResponse_incompatibleDevices' - Information about incompatible devices.+--+-- 'httpStatus', 'getDevicePoolCompatibilityResponse_httpStatus' - The response's http status code.+newGetDevicePoolCompatibilityResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetDevicePoolCompatibilityResponse+newGetDevicePoolCompatibilityResponse pHttpStatus_ =+  GetDevicePoolCompatibilityResponse'+    { compatibleDevices =+        Prelude.Nothing,+      incompatibleDevices = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Information about compatible devices.+getDevicePoolCompatibilityResponse_compatibleDevices :: Lens.Lens' GetDevicePoolCompatibilityResponse (Prelude.Maybe [DevicePoolCompatibilityResult])+getDevicePoolCompatibilityResponse_compatibleDevices = Lens.lens (\GetDevicePoolCompatibilityResponse' {compatibleDevices} -> compatibleDevices) (\s@GetDevicePoolCompatibilityResponse' {} a -> s {compatibleDevices = a} :: GetDevicePoolCompatibilityResponse) Prelude.. Lens.mapping Lens.coerced++-- | Information about incompatible devices.+getDevicePoolCompatibilityResponse_incompatibleDevices :: Lens.Lens' GetDevicePoolCompatibilityResponse (Prelude.Maybe [DevicePoolCompatibilityResult])+getDevicePoolCompatibilityResponse_incompatibleDevices = Lens.lens (\GetDevicePoolCompatibilityResponse' {incompatibleDevices} -> incompatibleDevices) (\s@GetDevicePoolCompatibilityResponse' {} a -> s {incompatibleDevices = a} :: GetDevicePoolCompatibilityResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+getDevicePoolCompatibilityResponse_httpStatus :: Lens.Lens' GetDevicePoolCompatibilityResponse Prelude.Int+getDevicePoolCompatibilityResponse_httpStatus = Lens.lens (\GetDevicePoolCompatibilityResponse' {httpStatus} -> httpStatus) (\s@GetDevicePoolCompatibilityResponse' {} a -> s {httpStatus = a} :: GetDevicePoolCompatibilityResponse)++instance+  Prelude.NFData+    GetDevicePoolCompatibilityResponse+  where+  rnf GetDevicePoolCompatibilityResponse' {..} =+    Prelude.rnf compatibleDevices+      `Prelude.seq` Prelude.rnf incompatibleDevices+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/GetInstanceProfile.hs view
@@ -0,0 +1,168 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.GetInstanceProfile+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about the specified instance profile.+module Amazonka.DeviceFarm.GetInstanceProfile+  ( -- * Creating a Request+    GetInstanceProfile (..),+    newGetInstanceProfile,++    -- * Request Lenses+    getInstanceProfile_arn,++    -- * Destructuring the Response+    GetInstanceProfileResponse (..),+    newGetInstanceProfileResponse,++    -- * Response Lenses+    getInstanceProfileResponse_instanceProfile,+    getInstanceProfileResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetInstanceProfile' smart constructor.+data GetInstanceProfile = GetInstanceProfile'+  { -- | The Amazon Resource Name (ARN) of an instance profile.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetInstanceProfile' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'getInstanceProfile_arn' - The Amazon Resource Name (ARN) of an instance profile.+newGetInstanceProfile ::+  -- | 'arn'+  Prelude.Text ->+  GetInstanceProfile+newGetInstanceProfile pArn_ =+  GetInstanceProfile' {arn = pArn_}++-- | The Amazon Resource Name (ARN) of an instance profile.+getInstanceProfile_arn :: Lens.Lens' GetInstanceProfile Prelude.Text+getInstanceProfile_arn = Lens.lens (\GetInstanceProfile' {arn} -> arn) (\s@GetInstanceProfile' {} a -> s {arn = a} :: GetInstanceProfile)++instance Core.AWSRequest GetInstanceProfile where+  type+    AWSResponse GetInstanceProfile =+      GetInstanceProfileResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetInstanceProfileResponse'+            Prelude.<$> (x Data..?> "instanceProfile")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetInstanceProfile where+  hashWithSalt _salt GetInstanceProfile' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData GetInstanceProfile where+  rnf GetInstanceProfile' {..} = Prelude.rnf arn++instance Data.ToHeaders GetInstanceProfile where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.GetInstanceProfile" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetInstanceProfile where+  toJSON GetInstanceProfile' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("arn" Data..= arn)]+      )++instance Data.ToPath GetInstanceProfile where+  toPath = Prelude.const "/"++instance Data.ToQuery GetInstanceProfile where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetInstanceProfileResponse' smart constructor.+data GetInstanceProfileResponse = GetInstanceProfileResponse'+  { -- | An object that contains information about an instance profile.+    instanceProfile :: Prelude.Maybe InstanceProfile,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetInstanceProfileResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'instanceProfile', 'getInstanceProfileResponse_instanceProfile' - An object that contains information about an instance profile.+--+-- 'httpStatus', 'getInstanceProfileResponse_httpStatus' - The response's http status code.+newGetInstanceProfileResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetInstanceProfileResponse+newGetInstanceProfileResponse pHttpStatus_ =+  GetInstanceProfileResponse'+    { instanceProfile =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An object that contains information about an instance profile.+getInstanceProfileResponse_instanceProfile :: Lens.Lens' GetInstanceProfileResponse (Prelude.Maybe InstanceProfile)+getInstanceProfileResponse_instanceProfile = Lens.lens (\GetInstanceProfileResponse' {instanceProfile} -> instanceProfile) (\s@GetInstanceProfileResponse' {} a -> s {instanceProfile = a} :: GetInstanceProfileResponse)++-- | The response's http status code.+getInstanceProfileResponse_httpStatus :: Lens.Lens' GetInstanceProfileResponse Prelude.Int+getInstanceProfileResponse_httpStatus = Lens.lens (\GetInstanceProfileResponse' {httpStatus} -> httpStatus) (\s@GetInstanceProfileResponse' {} a -> s {httpStatus = a} :: GetInstanceProfileResponse)++instance Prelude.NFData GetInstanceProfileResponse where+  rnf GetInstanceProfileResponse' {..} =+    Prelude.rnf instanceProfile+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/GetJob.hs view
@@ -0,0 +1,166 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.GetJob+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about a job.+module Amazonka.DeviceFarm.GetJob+  ( -- * Creating a Request+    GetJob (..),+    newGetJob,++    -- * Request Lenses+    getJob_arn,++    -- * Destructuring the Response+    GetJobResponse (..),+    newGetJobResponse,++    -- * Response Lenses+    getJobResponse_job,+    getJobResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the get job operation.+--+-- /See:/ 'newGetJob' smart constructor.+data GetJob = GetJob'+  { -- | The job\'s ARN.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetJob' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'getJob_arn' - The job\'s ARN.+newGetJob ::+  -- | 'arn'+  Prelude.Text ->+  GetJob+newGetJob pArn_ = GetJob' {arn = pArn_}++-- | The job\'s ARN.+getJob_arn :: Lens.Lens' GetJob Prelude.Text+getJob_arn = Lens.lens (\GetJob' {arn} -> arn) (\s@GetJob' {} a -> s {arn = a} :: GetJob)++instance Core.AWSRequest GetJob where+  type AWSResponse GetJob = GetJobResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetJobResponse'+            Prelude.<$> (x Data..?> "job")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetJob where+  hashWithSalt _salt GetJob' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData GetJob where+  rnf GetJob' {..} = Prelude.rnf arn++instance Data.ToHeaders GetJob where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ("DeviceFarm_20150623.GetJob" :: Prelude.ByteString),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetJob where+  toJSON GetJob' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("arn" Data..= arn)]+      )++instance Data.ToPath GetJob where+  toPath = Prelude.const "/"++instance Data.ToQuery GetJob where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a get job request.+--+-- /See:/ 'newGetJobResponse' smart constructor.+data GetJobResponse = GetJobResponse'+  { -- | An object that contains information about the requested job.+    job :: Prelude.Maybe Job,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetJobResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'job', 'getJobResponse_job' - An object that contains information about the requested job.+--+-- 'httpStatus', 'getJobResponse_httpStatus' - The response's http status code.+newGetJobResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetJobResponse+newGetJobResponse pHttpStatus_ =+  GetJobResponse'+    { job = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An object that contains information about the requested job.+getJobResponse_job :: Lens.Lens' GetJobResponse (Prelude.Maybe Job)+getJobResponse_job = Lens.lens (\GetJobResponse' {job} -> job) (\s@GetJobResponse' {} a -> s {job = a} :: GetJobResponse)++-- | The response's http status code.+getJobResponse_httpStatus :: Lens.Lens' GetJobResponse Prelude.Int+getJobResponse_httpStatus = Lens.lens (\GetJobResponse' {httpStatus} -> httpStatus) (\s@GetJobResponse' {} a -> s {httpStatus = a} :: GetJobResponse)++instance Prelude.NFData GetJobResponse where+  rnf GetJobResponse' {..} =+    Prelude.rnf job+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/GetNetworkProfile.hs view
@@ -0,0 +1,168 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.GetNetworkProfile+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about a network profile.+module Amazonka.DeviceFarm.GetNetworkProfile+  ( -- * Creating a Request+    GetNetworkProfile (..),+    newGetNetworkProfile,++    -- * Request Lenses+    getNetworkProfile_arn,++    -- * Destructuring the Response+    GetNetworkProfileResponse (..),+    newGetNetworkProfileResponse,++    -- * Response Lenses+    getNetworkProfileResponse_networkProfile,+    getNetworkProfileResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetNetworkProfile' smart constructor.+data GetNetworkProfile = GetNetworkProfile'+  { -- | The ARN of the network profile to return information about.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetNetworkProfile' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'getNetworkProfile_arn' - The ARN of the network profile to return information about.+newGetNetworkProfile ::+  -- | 'arn'+  Prelude.Text ->+  GetNetworkProfile+newGetNetworkProfile pArn_ =+  GetNetworkProfile' {arn = pArn_}++-- | The ARN of the network profile to return information about.+getNetworkProfile_arn :: Lens.Lens' GetNetworkProfile Prelude.Text+getNetworkProfile_arn = Lens.lens (\GetNetworkProfile' {arn} -> arn) (\s@GetNetworkProfile' {} a -> s {arn = a} :: GetNetworkProfile)++instance Core.AWSRequest GetNetworkProfile where+  type+    AWSResponse GetNetworkProfile =+      GetNetworkProfileResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetNetworkProfileResponse'+            Prelude.<$> (x Data..?> "networkProfile")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetNetworkProfile where+  hashWithSalt _salt GetNetworkProfile' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData GetNetworkProfile where+  rnf GetNetworkProfile' {..} = Prelude.rnf arn++instance Data.ToHeaders GetNetworkProfile where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.GetNetworkProfile" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetNetworkProfile where+  toJSON GetNetworkProfile' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("arn" Data..= arn)]+      )++instance Data.ToPath GetNetworkProfile where+  toPath = Prelude.const "/"++instance Data.ToQuery GetNetworkProfile where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetNetworkProfileResponse' smart constructor.+data GetNetworkProfileResponse = GetNetworkProfileResponse'+  { -- | The network profile.+    networkProfile :: Prelude.Maybe NetworkProfile,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetNetworkProfileResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'networkProfile', 'getNetworkProfileResponse_networkProfile' - The network profile.+--+-- 'httpStatus', 'getNetworkProfileResponse_httpStatus' - The response's http status code.+newGetNetworkProfileResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetNetworkProfileResponse+newGetNetworkProfileResponse pHttpStatus_ =+  GetNetworkProfileResponse'+    { networkProfile =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The network profile.+getNetworkProfileResponse_networkProfile :: Lens.Lens' GetNetworkProfileResponse (Prelude.Maybe NetworkProfile)+getNetworkProfileResponse_networkProfile = Lens.lens (\GetNetworkProfileResponse' {networkProfile} -> networkProfile) (\s@GetNetworkProfileResponse' {} a -> s {networkProfile = a} :: GetNetworkProfileResponse)++-- | The response's http status code.+getNetworkProfileResponse_httpStatus :: Lens.Lens' GetNetworkProfileResponse Prelude.Int+getNetworkProfileResponse_httpStatus = Lens.lens (\GetNetworkProfileResponse' {httpStatus} -> httpStatus) (\s@GetNetworkProfileResponse' {} a -> s {httpStatus = a} :: GetNetworkProfileResponse)++instance Prelude.NFData GetNetworkProfileResponse where+  rnf GetNetworkProfileResponse' {..} =+    Prelude.rnf networkProfile+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/GetOfferingStatus.hs view
@@ -0,0 +1,243 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.GetOfferingStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the current status and future status of all offerings purchased by+-- an AWS account. The response indicates how many offerings are currently+-- available and the offerings that will be available in the next period.+-- The API returns a @NotEligible@ error if the user is not permitted to+-- invoke the operation. If you must be able to invoke this operation,+-- contact+-- <mailto:aws-devicefarm-support@amazon.com aws-devicefarm-support\@amazon.com>.+--+-- This operation returns paginated results.+module Amazonka.DeviceFarm.GetOfferingStatus+  ( -- * Creating a Request+    GetOfferingStatus (..),+    newGetOfferingStatus,++    -- * Request Lenses+    getOfferingStatus_nextToken,++    -- * Destructuring the Response+    GetOfferingStatusResponse (..),+    newGetOfferingStatusResponse,++    -- * Response Lenses+    getOfferingStatusResponse_current,+    getOfferingStatusResponse_nextPeriod,+    getOfferingStatusResponse_nextToken,+    getOfferingStatusResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents the request to retrieve the offering status for the specified+-- customer or account.+--+-- /See:/ 'newGetOfferingStatus' smart constructor.+data GetOfferingStatus = GetOfferingStatus'+  { -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetOfferingStatus' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'getOfferingStatus_nextToken' - 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.+newGetOfferingStatus ::+  GetOfferingStatus+newGetOfferingStatus =+  GetOfferingStatus' {nextToken = Prelude.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.+getOfferingStatus_nextToken :: Lens.Lens' GetOfferingStatus (Prelude.Maybe Prelude.Text)+getOfferingStatus_nextToken = Lens.lens (\GetOfferingStatus' {nextToken} -> nextToken) (\s@GetOfferingStatus' {} a -> s {nextToken = a} :: GetOfferingStatus)++instance Core.AWSPager GetOfferingStatus where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? getOfferingStatusResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? getOfferingStatusResponse_current+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? getOfferingStatusResponse_nextPeriod+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& getOfferingStatus_nextToken+          Lens..~ rs+          Lens.^? getOfferingStatusResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest GetOfferingStatus where+  type+    AWSResponse GetOfferingStatus =+      GetOfferingStatusResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetOfferingStatusResponse'+            Prelude.<$> (x Data..?> "current" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "nextPeriod" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetOfferingStatus where+  hashWithSalt _salt GetOfferingStatus' {..} =+    _salt `Prelude.hashWithSalt` nextToken++instance Prelude.NFData GetOfferingStatus where+  rnf GetOfferingStatus' {..} = Prelude.rnf nextToken++instance Data.ToHeaders GetOfferingStatus where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.GetOfferingStatus" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetOfferingStatus where+  toJSON GetOfferingStatus' {..} =+    Data.object+      ( Prelude.catMaybes+          [("nextToken" Data..=) Prelude.<$> nextToken]+      )++instance Data.ToPath GetOfferingStatus where+  toPath = Prelude.const "/"++instance Data.ToQuery GetOfferingStatus where+  toQuery = Prelude.const Prelude.mempty++-- | Returns the status result for a device offering.+--+-- /See:/ 'newGetOfferingStatusResponse' smart constructor.+data GetOfferingStatusResponse = GetOfferingStatusResponse'+  { -- | When specified, gets the offering status for the current period.+    current :: Prelude.Maybe (Prelude.HashMap Prelude.Text OfferingStatus),+    -- | When specified, gets the offering status for the next period.+    nextPeriod :: Prelude.Maybe (Prelude.HashMap Prelude.Text OfferingStatus),+    -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetOfferingStatusResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'current', 'getOfferingStatusResponse_current' - When specified, gets the offering status for the current period.+--+-- 'nextPeriod', 'getOfferingStatusResponse_nextPeriod' - When specified, gets the offering status for the next period.+--+-- 'nextToken', 'getOfferingStatusResponse_nextToken' - 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.+--+-- 'httpStatus', 'getOfferingStatusResponse_httpStatus' - The response's http status code.+newGetOfferingStatusResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetOfferingStatusResponse+newGetOfferingStatusResponse pHttpStatus_ =+  GetOfferingStatusResponse'+    { current =+        Prelude.Nothing,+      nextPeriod = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | When specified, gets the offering status for the current period.+getOfferingStatusResponse_current :: Lens.Lens' GetOfferingStatusResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text OfferingStatus))+getOfferingStatusResponse_current = Lens.lens (\GetOfferingStatusResponse' {current} -> current) (\s@GetOfferingStatusResponse' {} a -> s {current = a} :: GetOfferingStatusResponse) Prelude.. Lens.mapping Lens.coerced++-- | When specified, gets the offering status for the next period.+getOfferingStatusResponse_nextPeriod :: Lens.Lens' GetOfferingStatusResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text OfferingStatus))+getOfferingStatusResponse_nextPeriod = Lens.lens (\GetOfferingStatusResponse' {nextPeriod} -> nextPeriod) (\s@GetOfferingStatusResponse' {} a -> s {nextPeriod = a} :: GetOfferingStatusResponse) Prelude.. Lens.mapping Lens.coerced++-- | 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.+getOfferingStatusResponse_nextToken :: Lens.Lens' GetOfferingStatusResponse (Prelude.Maybe Prelude.Text)+getOfferingStatusResponse_nextToken = Lens.lens (\GetOfferingStatusResponse' {nextToken} -> nextToken) (\s@GetOfferingStatusResponse' {} a -> s {nextToken = a} :: GetOfferingStatusResponse)++-- | The response's http status code.+getOfferingStatusResponse_httpStatus :: Lens.Lens' GetOfferingStatusResponse Prelude.Int+getOfferingStatusResponse_httpStatus = Lens.lens (\GetOfferingStatusResponse' {httpStatus} -> httpStatus) (\s@GetOfferingStatusResponse' {} a -> s {httpStatus = a} :: GetOfferingStatusResponse)++instance Prelude.NFData GetOfferingStatusResponse where+  rnf GetOfferingStatusResponse' {..} =+    Prelude.rnf current+      `Prelude.seq` Prelude.rnf nextPeriod+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/GetProject.hs view
@@ -0,0 +1,168 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.GetProject+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about a project.+module Amazonka.DeviceFarm.GetProject+  ( -- * Creating a Request+    GetProject (..),+    newGetProject,++    -- * Request Lenses+    getProject_arn,++    -- * Destructuring the Response+    GetProjectResponse (..),+    newGetProjectResponse,++    -- * Response Lenses+    getProjectResponse_project,+    getProjectResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the get project operation.+--+-- /See:/ 'newGetProject' smart constructor.+data GetProject = GetProject'+  { -- | The project\'s ARN.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetProject' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'getProject_arn' - The project\'s ARN.+newGetProject ::+  -- | 'arn'+  Prelude.Text ->+  GetProject+newGetProject pArn_ = GetProject' {arn = pArn_}++-- | The project\'s ARN.+getProject_arn :: Lens.Lens' GetProject Prelude.Text+getProject_arn = Lens.lens (\GetProject' {arn} -> arn) (\s@GetProject' {} a -> s {arn = a} :: GetProject)++instance Core.AWSRequest GetProject where+  type AWSResponse GetProject = GetProjectResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetProjectResponse'+            Prelude.<$> (x Data..?> "project")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetProject where+  hashWithSalt _salt GetProject' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData GetProject where+  rnf GetProject' {..} = Prelude.rnf arn++instance Data.ToHeaders GetProject where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.GetProject" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetProject where+  toJSON GetProject' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("arn" Data..= arn)]+      )++instance Data.ToPath GetProject where+  toPath = Prelude.const "/"++instance Data.ToQuery GetProject where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a get project request.+--+-- /See:/ 'newGetProjectResponse' smart constructor.+data GetProjectResponse = GetProjectResponse'+  { -- | The project to get information about.+    project :: Prelude.Maybe Project,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetProjectResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'project', 'getProjectResponse_project' - The project to get information about.+--+-- 'httpStatus', 'getProjectResponse_httpStatus' - The response's http status code.+newGetProjectResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetProjectResponse+newGetProjectResponse pHttpStatus_ =+  GetProjectResponse'+    { project = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The project to get information about.+getProjectResponse_project :: Lens.Lens' GetProjectResponse (Prelude.Maybe Project)+getProjectResponse_project = Lens.lens (\GetProjectResponse' {project} -> project) (\s@GetProjectResponse' {} a -> s {project = a} :: GetProjectResponse)++-- | The response's http status code.+getProjectResponse_httpStatus :: Lens.Lens' GetProjectResponse Prelude.Int+getProjectResponse_httpStatus = Lens.lens (\GetProjectResponse' {httpStatus} -> httpStatus) (\s@GetProjectResponse' {} a -> s {httpStatus = a} :: GetProjectResponse)++instance Prelude.NFData GetProjectResponse where+  rnf GetProjectResponse' {..} =+    Prelude.rnf project+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/GetRemoteAccessSession.hs view
@@ -0,0 +1,183 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.GetRemoteAccessSession+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a link to a currently running remote access session.+module Amazonka.DeviceFarm.GetRemoteAccessSession+  ( -- * Creating a Request+    GetRemoteAccessSession (..),+    newGetRemoteAccessSession,++    -- * Request Lenses+    getRemoteAccessSession_arn,++    -- * Destructuring the Response+    GetRemoteAccessSessionResponse (..),+    newGetRemoteAccessSessionResponse,++    -- * Response Lenses+    getRemoteAccessSessionResponse_remoteAccessSession,+    getRemoteAccessSessionResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents the request to get information about the specified remote+-- access session.+--+-- /See:/ 'newGetRemoteAccessSession' smart constructor.+data GetRemoteAccessSession = GetRemoteAccessSession'+  { -- | The Amazon Resource Name (ARN) of the remote access session about which+    -- you want to get session information.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetRemoteAccessSession' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'getRemoteAccessSession_arn' - The Amazon Resource Name (ARN) of the remote access session about which+-- you want to get session information.+newGetRemoteAccessSession ::+  -- | 'arn'+  Prelude.Text ->+  GetRemoteAccessSession+newGetRemoteAccessSession pArn_ =+  GetRemoteAccessSession' {arn = pArn_}++-- | The Amazon Resource Name (ARN) of the remote access session about which+-- you want to get session information.+getRemoteAccessSession_arn :: Lens.Lens' GetRemoteAccessSession Prelude.Text+getRemoteAccessSession_arn = Lens.lens (\GetRemoteAccessSession' {arn} -> arn) (\s@GetRemoteAccessSession' {} a -> s {arn = a} :: GetRemoteAccessSession)++instance Core.AWSRequest GetRemoteAccessSession where+  type+    AWSResponse GetRemoteAccessSession =+      GetRemoteAccessSessionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetRemoteAccessSessionResponse'+            Prelude.<$> (x Data..?> "remoteAccessSession")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetRemoteAccessSession where+  hashWithSalt _salt GetRemoteAccessSession' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData GetRemoteAccessSession where+  rnf GetRemoteAccessSession' {..} = Prelude.rnf arn++instance Data.ToHeaders GetRemoteAccessSession where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.GetRemoteAccessSession" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetRemoteAccessSession where+  toJSON GetRemoteAccessSession' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("arn" Data..= arn)]+      )++instance Data.ToPath GetRemoteAccessSession where+  toPath = Prelude.const "/"++instance Data.ToQuery GetRemoteAccessSession where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the response from the server that lists detailed information+-- about the remote access session.+--+-- /See:/ 'newGetRemoteAccessSessionResponse' smart constructor.+data GetRemoteAccessSessionResponse = GetRemoteAccessSessionResponse'+  { -- | A container that lists detailed information about the remote access+    -- session.+    remoteAccessSession :: Prelude.Maybe RemoteAccessSession,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetRemoteAccessSessionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'remoteAccessSession', 'getRemoteAccessSessionResponse_remoteAccessSession' - A container that lists detailed information about the remote access+-- session.+--+-- 'httpStatus', 'getRemoteAccessSessionResponse_httpStatus' - The response's http status code.+newGetRemoteAccessSessionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetRemoteAccessSessionResponse+newGetRemoteAccessSessionResponse pHttpStatus_ =+  GetRemoteAccessSessionResponse'+    { remoteAccessSession =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A container that lists detailed information about the remote access+-- session.+getRemoteAccessSessionResponse_remoteAccessSession :: Lens.Lens' GetRemoteAccessSessionResponse (Prelude.Maybe RemoteAccessSession)+getRemoteAccessSessionResponse_remoteAccessSession = Lens.lens (\GetRemoteAccessSessionResponse' {remoteAccessSession} -> remoteAccessSession) (\s@GetRemoteAccessSessionResponse' {} a -> s {remoteAccessSession = a} :: GetRemoteAccessSessionResponse)++-- | The response's http status code.+getRemoteAccessSessionResponse_httpStatus :: Lens.Lens' GetRemoteAccessSessionResponse Prelude.Int+getRemoteAccessSessionResponse_httpStatus = Lens.lens (\GetRemoteAccessSessionResponse' {httpStatus} -> httpStatus) (\s@GetRemoteAccessSessionResponse' {} a -> s {httpStatus = a} :: GetRemoteAccessSessionResponse)++instance+  Prelude.NFData+    GetRemoteAccessSessionResponse+  where+  rnf GetRemoteAccessSessionResponse' {..} =+    Prelude.rnf remoteAccessSession+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/GetRun.hs view
@@ -0,0 +1,166 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.GetRun+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about a run.+module Amazonka.DeviceFarm.GetRun+  ( -- * Creating a Request+    GetRun (..),+    newGetRun,++    -- * Request Lenses+    getRun_arn,++    -- * Destructuring the Response+    GetRunResponse (..),+    newGetRunResponse,++    -- * Response Lenses+    getRunResponse_run,+    getRunResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the get run operation.+--+-- /See:/ 'newGetRun' smart constructor.+data GetRun = GetRun'+  { -- | The run\'s ARN.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetRun' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'getRun_arn' - The run\'s ARN.+newGetRun ::+  -- | 'arn'+  Prelude.Text ->+  GetRun+newGetRun pArn_ = GetRun' {arn = pArn_}++-- | The run\'s ARN.+getRun_arn :: Lens.Lens' GetRun Prelude.Text+getRun_arn = Lens.lens (\GetRun' {arn} -> arn) (\s@GetRun' {} a -> s {arn = a} :: GetRun)++instance Core.AWSRequest GetRun where+  type AWSResponse GetRun = GetRunResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetRunResponse'+            Prelude.<$> (x Data..?> "run")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetRun where+  hashWithSalt _salt GetRun' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData GetRun where+  rnf GetRun' {..} = Prelude.rnf arn++instance Data.ToHeaders GetRun where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ("DeviceFarm_20150623.GetRun" :: Prelude.ByteString),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetRun where+  toJSON GetRun' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("arn" Data..= arn)]+      )++instance Data.ToPath GetRun where+  toPath = Prelude.const "/"++instance Data.ToQuery GetRun where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a get run request.+--+-- /See:/ 'newGetRunResponse' smart constructor.+data GetRunResponse = GetRunResponse'+  { -- | The run to get results from.+    run :: Prelude.Maybe Run,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetRunResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'run', 'getRunResponse_run' - The run to get results from.+--+-- 'httpStatus', 'getRunResponse_httpStatus' - The response's http status code.+newGetRunResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetRunResponse+newGetRunResponse pHttpStatus_ =+  GetRunResponse'+    { run = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The run to get results from.+getRunResponse_run :: Lens.Lens' GetRunResponse (Prelude.Maybe Run)+getRunResponse_run = Lens.lens (\GetRunResponse' {run} -> run) (\s@GetRunResponse' {} a -> s {run = a} :: GetRunResponse)++-- | The response's http status code.+getRunResponse_httpStatus :: Lens.Lens' GetRunResponse Prelude.Int+getRunResponse_httpStatus = Lens.lens (\GetRunResponse' {httpStatus} -> httpStatus) (\s@GetRunResponse' {} a -> s {httpStatus = a} :: GetRunResponse)++instance Prelude.NFData GetRunResponse where+  rnf GetRunResponse' {..} =+    Prelude.rnf run+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/GetSuite.hs view
@@ -0,0 +1,168 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.GetSuite+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about a suite.+module Amazonka.DeviceFarm.GetSuite+  ( -- * Creating a Request+    GetSuite (..),+    newGetSuite,++    -- * Request Lenses+    getSuite_arn,++    -- * Destructuring the Response+    GetSuiteResponse (..),+    newGetSuiteResponse,++    -- * Response Lenses+    getSuiteResponse_suite,+    getSuiteResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the get suite operation.+--+-- /See:/ 'newGetSuite' smart constructor.+data GetSuite = GetSuite'+  { -- | The suite\'s ARN.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetSuite' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'getSuite_arn' - The suite\'s ARN.+newGetSuite ::+  -- | 'arn'+  Prelude.Text ->+  GetSuite+newGetSuite pArn_ = GetSuite' {arn = pArn_}++-- | The suite\'s ARN.+getSuite_arn :: Lens.Lens' GetSuite Prelude.Text+getSuite_arn = Lens.lens (\GetSuite' {arn} -> arn) (\s@GetSuite' {} a -> s {arn = a} :: GetSuite)++instance Core.AWSRequest GetSuite where+  type AWSResponse GetSuite = GetSuiteResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetSuiteResponse'+            Prelude.<$> (x Data..?> "suite")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetSuite where+  hashWithSalt _salt GetSuite' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData GetSuite where+  rnf GetSuite' {..} = Prelude.rnf arn++instance Data.ToHeaders GetSuite where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.GetSuite" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetSuite where+  toJSON GetSuite' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("arn" Data..= arn)]+      )++instance Data.ToPath GetSuite where+  toPath = Prelude.const "/"++instance Data.ToQuery GetSuite where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a get suite request.+--+-- /See:/ 'newGetSuiteResponse' smart constructor.+data GetSuiteResponse = GetSuiteResponse'+  { -- | A collection of one or more tests.+    suite :: Prelude.Maybe Suite,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetSuiteResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'suite', 'getSuiteResponse_suite' - A collection of one or more tests.+--+-- 'httpStatus', 'getSuiteResponse_httpStatus' - The response's http status code.+newGetSuiteResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetSuiteResponse+newGetSuiteResponse pHttpStatus_ =+  GetSuiteResponse'+    { suite = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A collection of one or more tests.+getSuiteResponse_suite :: Lens.Lens' GetSuiteResponse (Prelude.Maybe Suite)+getSuiteResponse_suite = Lens.lens (\GetSuiteResponse' {suite} -> suite) (\s@GetSuiteResponse' {} a -> s {suite = a} :: GetSuiteResponse)++-- | The response's http status code.+getSuiteResponse_httpStatus :: Lens.Lens' GetSuiteResponse Prelude.Int+getSuiteResponse_httpStatus = Lens.lens (\GetSuiteResponse' {httpStatus} -> httpStatus) (\s@GetSuiteResponse' {} a -> s {httpStatus = a} :: GetSuiteResponse)++instance Prelude.NFData GetSuiteResponse where+  rnf GetSuiteResponse' {..} =+    Prelude.rnf suite+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/GetTest.hs view
@@ -0,0 +1,168 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.GetTest+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about a test.+module Amazonka.DeviceFarm.GetTest+  ( -- * Creating a Request+    GetTest (..),+    newGetTest,++    -- * Request Lenses+    getTest_arn,++    -- * Destructuring the Response+    GetTestResponse (..),+    newGetTestResponse,++    -- * Response Lenses+    getTestResponse_test,+    getTestResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the get test operation.+--+-- /See:/ 'newGetTest' smart constructor.+data GetTest = GetTest'+  { -- | The test\'s ARN.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetTest' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'getTest_arn' - The test\'s ARN.+newGetTest ::+  -- | 'arn'+  Prelude.Text ->+  GetTest+newGetTest pArn_ = GetTest' {arn = pArn_}++-- | The test\'s ARN.+getTest_arn :: Lens.Lens' GetTest Prelude.Text+getTest_arn = Lens.lens (\GetTest' {arn} -> arn) (\s@GetTest' {} a -> s {arn = a} :: GetTest)++instance Core.AWSRequest GetTest where+  type AWSResponse GetTest = GetTestResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetTestResponse'+            Prelude.<$> (x Data..?> "test")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetTest where+  hashWithSalt _salt GetTest' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData GetTest where+  rnf GetTest' {..} = Prelude.rnf arn++instance Data.ToHeaders GetTest where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.GetTest" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetTest where+  toJSON GetTest' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("arn" Data..= arn)]+      )++instance Data.ToPath GetTest where+  toPath = Prelude.const "/"++instance Data.ToQuery GetTest where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a get test request.+--+-- /See:/ 'newGetTestResponse' smart constructor.+data GetTestResponse = GetTestResponse'+  { -- | A test condition that is evaluated.+    test :: Prelude.Maybe Test,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetTestResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'test', 'getTestResponse_test' - A test condition that is evaluated.+--+-- 'httpStatus', 'getTestResponse_httpStatus' - The response's http status code.+newGetTestResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetTestResponse+newGetTestResponse pHttpStatus_ =+  GetTestResponse'+    { test = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A test condition that is evaluated.+getTestResponse_test :: Lens.Lens' GetTestResponse (Prelude.Maybe Test)+getTestResponse_test = Lens.lens (\GetTestResponse' {test} -> test) (\s@GetTestResponse' {} a -> s {test = a} :: GetTestResponse)++-- | The response's http status code.+getTestResponse_httpStatus :: Lens.Lens' GetTestResponse Prelude.Int+getTestResponse_httpStatus = Lens.lens (\GetTestResponse' {httpStatus} -> httpStatus) (\s@GetTestResponse' {} a -> s {httpStatus = a} :: GetTestResponse)++instance Prelude.NFData GetTestResponse where+  rnf GetTestResponse' {..} =+    Prelude.rnf test+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/GetTestGridProject.hs view
@@ -0,0 +1,171 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.GetTestGridProject+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves information about a Selenium testing project.+module Amazonka.DeviceFarm.GetTestGridProject+  ( -- * Creating a Request+    GetTestGridProject (..),+    newGetTestGridProject,++    -- * Request Lenses+    getTestGridProject_projectArn,++    -- * Destructuring the Response+    GetTestGridProjectResponse (..),+    newGetTestGridProjectResponse,++    -- * Response Lenses+    getTestGridProjectResponse_testGridProject,+    getTestGridProjectResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetTestGridProject' smart constructor.+data GetTestGridProject = GetTestGridProject'+  { -- | The ARN of the Selenium testing project, from either+    -- CreateTestGridProject or ListTestGridProjects.+    projectArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetTestGridProject' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'projectArn', 'getTestGridProject_projectArn' - The ARN of the Selenium testing project, from either+-- CreateTestGridProject or ListTestGridProjects.+newGetTestGridProject ::+  -- | 'projectArn'+  Prelude.Text ->+  GetTestGridProject+newGetTestGridProject pProjectArn_ =+  GetTestGridProject' {projectArn = pProjectArn_}++-- | The ARN of the Selenium testing project, from either+-- CreateTestGridProject or ListTestGridProjects.+getTestGridProject_projectArn :: Lens.Lens' GetTestGridProject Prelude.Text+getTestGridProject_projectArn = Lens.lens (\GetTestGridProject' {projectArn} -> projectArn) (\s@GetTestGridProject' {} a -> s {projectArn = a} :: GetTestGridProject)++instance Core.AWSRequest GetTestGridProject where+  type+    AWSResponse GetTestGridProject =+      GetTestGridProjectResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetTestGridProjectResponse'+            Prelude.<$> (x Data..?> "testGridProject")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetTestGridProject where+  hashWithSalt _salt GetTestGridProject' {..} =+    _salt `Prelude.hashWithSalt` projectArn++instance Prelude.NFData GetTestGridProject where+  rnf GetTestGridProject' {..} = Prelude.rnf projectArn++instance Data.ToHeaders GetTestGridProject where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.GetTestGridProject" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetTestGridProject where+  toJSON GetTestGridProject' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("projectArn" Data..= projectArn)]+      )++instance Data.ToPath GetTestGridProject where+  toPath = Prelude.const "/"++instance Data.ToQuery GetTestGridProject where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetTestGridProjectResponse' smart constructor.+data GetTestGridProjectResponse = GetTestGridProjectResponse'+  { -- | A TestGridProject.+    testGridProject :: Prelude.Maybe TestGridProject,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetTestGridProjectResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'testGridProject', 'getTestGridProjectResponse_testGridProject' - A TestGridProject.+--+-- 'httpStatus', 'getTestGridProjectResponse_httpStatus' - The response's http status code.+newGetTestGridProjectResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetTestGridProjectResponse+newGetTestGridProjectResponse pHttpStatus_ =+  GetTestGridProjectResponse'+    { testGridProject =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A TestGridProject.+getTestGridProjectResponse_testGridProject :: Lens.Lens' GetTestGridProjectResponse (Prelude.Maybe TestGridProject)+getTestGridProjectResponse_testGridProject = Lens.lens (\GetTestGridProjectResponse' {testGridProject} -> testGridProject) (\s@GetTestGridProjectResponse' {} a -> s {testGridProject = a} :: GetTestGridProjectResponse)++-- | The response's http status code.+getTestGridProjectResponse_httpStatus :: Lens.Lens' GetTestGridProjectResponse Prelude.Int+getTestGridProjectResponse_httpStatus = Lens.lens (\GetTestGridProjectResponse' {httpStatus} -> httpStatus) (\s@GetTestGridProjectResponse' {} a -> s {httpStatus = a} :: GetTestGridProjectResponse)++instance Prelude.NFData GetTestGridProjectResponse where+  rnf GetTestGridProjectResponse' {..} =+    Prelude.rnf testGridProject+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/GetTestGridSession.hs view
@@ -0,0 +1,208 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.GetTestGridSession+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- A session is an instance of a browser created through a+-- @RemoteWebDriver@ with the URL from CreateTestGridUrlResult$url. You can+-- use the following to look up sessions:+--+-- -   The session ARN (GetTestGridSessionRequest$sessionArn).+--+-- -   The project ARN and a session ID+--     (GetTestGridSessionRequest$projectArn and+--     GetTestGridSessionRequest$sessionId).+module Amazonka.DeviceFarm.GetTestGridSession+  ( -- * Creating a Request+    GetTestGridSession (..),+    newGetTestGridSession,++    -- * Request Lenses+    getTestGridSession_projectArn,+    getTestGridSession_sessionArn,+    getTestGridSession_sessionId,++    -- * Destructuring the Response+    GetTestGridSessionResponse (..),+    newGetTestGridSessionResponse,++    -- * Response Lenses+    getTestGridSessionResponse_testGridSession,+    getTestGridSessionResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetTestGridSession' smart constructor.+data GetTestGridSession = GetTestGridSession'+  { -- | The ARN for the project that this session belongs to. See+    -- CreateTestGridProject and ListTestGridProjects.+    projectArn :: Prelude.Maybe Prelude.Text,+    -- | An ARN that uniquely identifies a TestGridSession.+    sessionArn :: Prelude.Maybe Prelude.Text,+    -- | An ID associated with this session.+    sessionId :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetTestGridSession' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'projectArn', 'getTestGridSession_projectArn' - The ARN for the project that this session belongs to. See+-- CreateTestGridProject and ListTestGridProjects.+--+-- 'sessionArn', 'getTestGridSession_sessionArn' - An ARN that uniquely identifies a TestGridSession.+--+-- 'sessionId', 'getTestGridSession_sessionId' - An ID associated with this session.+newGetTestGridSession ::+  GetTestGridSession+newGetTestGridSession =+  GetTestGridSession'+    { projectArn = Prelude.Nothing,+      sessionArn = Prelude.Nothing,+      sessionId = Prelude.Nothing+    }++-- | The ARN for the project that this session belongs to. See+-- CreateTestGridProject and ListTestGridProjects.+getTestGridSession_projectArn :: Lens.Lens' GetTestGridSession (Prelude.Maybe Prelude.Text)+getTestGridSession_projectArn = Lens.lens (\GetTestGridSession' {projectArn} -> projectArn) (\s@GetTestGridSession' {} a -> s {projectArn = a} :: GetTestGridSession)++-- | An ARN that uniquely identifies a TestGridSession.+getTestGridSession_sessionArn :: Lens.Lens' GetTestGridSession (Prelude.Maybe Prelude.Text)+getTestGridSession_sessionArn = Lens.lens (\GetTestGridSession' {sessionArn} -> sessionArn) (\s@GetTestGridSession' {} a -> s {sessionArn = a} :: GetTestGridSession)++-- | An ID associated with this session.+getTestGridSession_sessionId :: Lens.Lens' GetTestGridSession (Prelude.Maybe Prelude.Text)+getTestGridSession_sessionId = Lens.lens (\GetTestGridSession' {sessionId} -> sessionId) (\s@GetTestGridSession' {} a -> s {sessionId = a} :: GetTestGridSession)++instance Core.AWSRequest GetTestGridSession where+  type+    AWSResponse GetTestGridSession =+      GetTestGridSessionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetTestGridSessionResponse'+            Prelude.<$> (x Data..?> "testGridSession")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetTestGridSession where+  hashWithSalt _salt GetTestGridSession' {..} =+    _salt+      `Prelude.hashWithSalt` projectArn+      `Prelude.hashWithSalt` sessionArn+      `Prelude.hashWithSalt` sessionId++instance Prelude.NFData GetTestGridSession where+  rnf GetTestGridSession' {..} =+    Prelude.rnf projectArn+      `Prelude.seq` Prelude.rnf sessionArn+      `Prelude.seq` Prelude.rnf sessionId++instance Data.ToHeaders GetTestGridSession where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.GetTestGridSession" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetTestGridSession where+  toJSON GetTestGridSession' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("projectArn" Data..=) Prelude.<$> projectArn,+            ("sessionArn" Data..=) Prelude.<$> sessionArn,+            ("sessionId" Data..=) Prelude.<$> sessionId+          ]+      )++instance Data.ToPath GetTestGridSession where+  toPath = Prelude.const "/"++instance Data.ToQuery GetTestGridSession where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetTestGridSessionResponse' smart constructor.+data GetTestGridSessionResponse = GetTestGridSessionResponse'+  { -- | The TestGridSession that was requested.+    testGridSession :: Prelude.Maybe TestGridSession,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetTestGridSessionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'testGridSession', 'getTestGridSessionResponse_testGridSession' - The TestGridSession that was requested.+--+-- 'httpStatus', 'getTestGridSessionResponse_httpStatus' - The response's http status code.+newGetTestGridSessionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetTestGridSessionResponse+newGetTestGridSessionResponse pHttpStatus_ =+  GetTestGridSessionResponse'+    { testGridSession =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The TestGridSession that was requested.+getTestGridSessionResponse_testGridSession :: Lens.Lens' GetTestGridSessionResponse (Prelude.Maybe TestGridSession)+getTestGridSessionResponse_testGridSession = Lens.lens (\GetTestGridSessionResponse' {testGridSession} -> testGridSession) (\s@GetTestGridSessionResponse' {} a -> s {testGridSession = a} :: GetTestGridSessionResponse)++-- | The response's http status code.+getTestGridSessionResponse_httpStatus :: Lens.Lens' GetTestGridSessionResponse Prelude.Int+getTestGridSessionResponse_httpStatus = Lens.lens (\GetTestGridSessionResponse' {httpStatus} -> httpStatus) (\s@GetTestGridSessionResponse' {} a -> s {httpStatus = a} :: GetTestGridSessionResponse)++instance Prelude.NFData GetTestGridSessionResponse where+  rnf GetTestGridSessionResponse' {..} =+    Prelude.rnf testGridSession+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/GetUpload.hs view
@@ -0,0 +1,171 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.GetUpload+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about an upload.+module Amazonka.DeviceFarm.GetUpload+  ( -- * Creating a Request+    GetUpload (..),+    newGetUpload,++    -- * Request Lenses+    getUpload_arn,++    -- * Destructuring the Response+    GetUploadResponse (..),+    newGetUploadResponse,++    -- * Response Lenses+    getUploadResponse_upload,+    getUploadResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the get upload operation.+--+-- /See:/ 'newGetUpload' smart constructor.+data GetUpload = GetUpload'+  { -- | The upload\'s ARN.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetUpload' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'getUpload_arn' - The upload\'s ARN.+newGetUpload ::+  -- | 'arn'+  Prelude.Text ->+  GetUpload+newGetUpload pArn_ = GetUpload' {arn = pArn_}++-- | The upload\'s ARN.+getUpload_arn :: Lens.Lens' GetUpload Prelude.Text+getUpload_arn = Lens.lens (\GetUpload' {arn} -> arn) (\s@GetUpload' {} a -> s {arn = a} :: GetUpload)++instance Core.AWSRequest GetUpload where+  type AWSResponse GetUpload = GetUploadResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetUploadResponse'+            Prelude.<$> (x Data..?> "upload")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetUpload where+  hashWithSalt _salt GetUpload' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData GetUpload where+  rnf GetUpload' {..} = Prelude.rnf arn++instance Data.ToHeaders GetUpload where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.GetUpload" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetUpload where+  toJSON GetUpload' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("arn" Data..= arn)]+      )++instance Data.ToPath GetUpload where+  toPath = Prelude.const "/"++instance Data.ToQuery GetUpload where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a get upload request.+--+-- /See:/ 'newGetUploadResponse' smart constructor.+data GetUploadResponse = GetUploadResponse'+  { -- | An app or a set of one or more tests to upload or that have been+    -- uploaded.+    upload :: Prelude.Maybe Upload,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetUploadResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'upload', 'getUploadResponse_upload' - An app or a set of one or more tests to upload or that have been+-- uploaded.+--+-- 'httpStatus', 'getUploadResponse_httpStatus' - The response's http status code.+newGetUploadResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetUploadResponse+newGetUploadResponse pHttpStatus_ =+  GetUploadResponse'+    { upload = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An app or a set of one or more tests to upload or that have been+-- uploaded.+getUploadResponse_upload :: Lens.Lens' GetUploadResponse (Prelude.Maybe Upload)+getUploadResponse_upload = Lens.lens (\GetUploadResponse' {upload} -> upload) (\s@GetUploadResponse' {} a -> s {upload = a} :: GetUploadResponse)++-- | The response's http status code.+getUploadResponse_httpStatus :: Lens.Lens' GetUploadResponse Prelude.Int+getUploadResponse_httpStatus = Lens.lens (\GetUploadResponse' {httpStatus} -> httpStatus) (\s@GetUploadResponse' {} a -> s {httpStatus = a} :: GetUploadResponse)++instance Prelude.NFData GetUploadResponse where+  rnf GetUploadResponse' {..} =+    Prelude.rnf upload+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/GetVPCEConfiguration.hs view
@@ -0,0 +1,175 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.GetVPCEConfiguration+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about the configuration settings for your Amazon+-- Virtual Private Cloud (VPC) endpoint.+module Amazonka.DeviceFarm.GetVPCEConfiguration+  ( -- * Creating a Request+    GetVPCEConfiguration (..),+    newGetVPCEConfiguration,++    -- * Request Lenses+    getVPCEConfiguration_arn,++    -- * Destructuring the Response+    GetVPCEConfigurationResponse (..),+    newGetVPCEConfigurationResponse,++    -- * Response Lenses+    getVPCEConfigurationResponse_vpceConfiguration,+    getVPCEConfigurationResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetVPCEConfiguration' smart constructor.+data GetVPCEConfiguration = GetVPCEConfiguration'+  { -- | The Amazon Resource Name (ARN) of the VPC endpoint configuration you+    -- want to describe.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetVPCEConfiguration' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'getVPCEConfiguration_arn' - The Amazon Resource Name (ARN) of the VPC endpoint configuration you+-- want to describe.+newGetVPCEConfiguration ::+  -- | 'arn'+  Prelude.Text ->+  GetVPCEConfiguration+newGetVPCEConfiguration pArn_ =+  GetVPCEConfiguration' {arn = pArn_}++-- | The Amazon Resource Name (ARN) of the VPC endpoint configuration you+-- want to describe.+getVPCEConfiguration_arn :: Lens.Lens' GetVPCEConfiguration Prelude.Text+getVPCEConfiguration_arn = Lens.lens (\GetVPCEConfiguration' {arn} -> arn) (\s@GetVPCEConfiguration' {} a -> s {arn = a} :: GetVPCEConfiguration)++instance Core.AWSRequest GetVPCEConfiguration where+  type+    AWSResponse GetVPCEConfiguration =+      GetVPCEConfigurationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetVPCEConfigurationResponse'+            Prelude.<$> (x Data..?> "vpceConfiguration")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetVPCEConfiguration where+  hashWithSalt _salt GetVPCEConfiguration' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData GetVPCEConfiguration where+  rnf GetVPCEConfiguration' {..} = Prelude.rnf arn++instance Data.ToHeaders GetVPCEConfiguration where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.GetVPCEConfiguration" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetVPCEConfiguration where+  toJSON GetVPCEConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("arn" Data..= arn)]+      )++instance Data.ToPath GetVPCEConfiguration where+  toPath = Prelude.const "/"++instance Data.ToQuery GetVPCEConfiguration where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetVPCEConfigurationResponse' smart constructor.+data GetVPCEConfigurationResponse = GetVPCEConfigurationResponse'+  { -- | An object that contains information about your VPC endpoint+    -- configuration.+    vpceConfiguration :: Prelude.Maybe VPCEConfiguration,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetVPCEConfigurationResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'vpceConfiguration', 'getVPCEConfigurationResponse_vpceConfiguration' - An object that contains information about your VPC endpoint+-- configuration.+--+-- 'httpStatus', 'getVPCEConfigurationResponse_httpStatus' - The response's http status code.+newGetVPCEConfigurationResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetVPCEConfigurationResponse+newGetVPCEConfigurationResponse pHttpStatus_ =+  GetVPCEConfigurationResponse'+    { vpceConfiguration =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An object that contains information about your VPC endpoint+-- configuration.+getVPCEConfigurationResponse_vpceConfiguration :: Lens.Lens' GetVPCEConfigurationResponse (Prelude.Maybe VPCEConfiguration)+getVPCEConfigurationResponse_vpceConfiguration = Lens.lens (\GetVPCEConfigurationResponse' {vpceConfiguration} -> vpceConfiguration) (\s@GetVPCEConfigurationResponse' {} a -> s {vpceConfiguration = a} :: GetVPCEConfigurationResponse)++-- | The response's http status code.+getVPCEConfigurationResponse_httpStatus :: Lens.Lens' GetVPCEConfigurationResponse Prelude.Int+getVPCEConfigurationResponse_httpStatus = Lens.lens (\GetVPCEConfigurationResponse' {httpStatus} -> httpStatus) (\s@GetVPCEConfigurationResponse' {} a -> s {httpStatus = a} :: GetVPCEConfigurationResponse)++instance Prelude.NFData GetVPCEConfigurationResponse where+  rnf GetVPCEConfigurationResponse' {..} =+    Prelude.rnf vpceConfiguration+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/InstallToRemoteAccessSession.hs view
@@ -0,0 +1,212 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.InstallToRemoteAccessSession+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Installs an application to the device in a remote access session. For+-- Android applications, the file must be in .apk format. For iOS+-- applications, the file must be in .ipa format.+module Amazonka.DeviceFarm.InstallToRemoteAccessSession+  ( -- * Creating a Request+    InstallToRemoteAccessSession (..),+    newInstallToRemoteAccessSession,++    -- * Request Lenses+    installToRemoteAccessSession_remoteAccessSessionArn,+    installToRemoteAccessSession_appArn,++    -- * Destructuring the Response+    InstallToRemoteAccessSessionResponse (..),+    newInstallToRemoteAccessSessionResponse,++    -- * Response Lenses+    installToRemoteAccessSessionResponse_appUpload,+    installToRemoteAccessSessionResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents the request to install an Android application (in .apk+-- format) or an iOS application (in .ipa format) as part of a remote+-- access session.+--+-- /See:/ 'newInstallToRemoteAccessSession' smart constructor.+data InstallToRemoteAccessSession = InstallToRemoteAccessSession'+  { -- | The Amazon Resource Name (ARN) of the remote access session about which+    -- you are requesting information.+    remoteAccessSessionArn :: Prelude.Text,+    -- | The ARN of the app about which you are requesting information.+    appArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'InstallToRemoteAccessSession' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'remoteAccessSessionArn', 'installToRemoteAccessSession_remoteAccessSessionArn' - The Amazon Resource Name (ARN) of the remote access session about which+-- you are requesting information.+--+-- 'appArn', 'installToRemoteAccessSession_appArn' - The ARN of the app about which you are requesting information.+newInstallToRemoteAccessSession ::+  -- | 'remoteAccessSessionArn'+  Prelude.Text ->+  -- | 'appArn'+  Prelude.Text ->+  InstallToRemoteAccessSession+newInstallToRemoteAccessSession+  pRemoteAccessSessionArn_+  pAppArn_ =+    InstallToRemoteAccessSession'+      { remoteAccessSessionArn =+          pRemoteAccessSessionArn_,+        appArn = pAppArn_+      }++-- | The Amazon Resource Name (ARN) of the remote access session about which+-- you are requesting information.+installToRemoteAccessSession_remoteAccessSessionArn :: Lens.Lens' InstallToRemoteAccessSession Prelude.Text+installToRemoteAccessSession_remoteAccessSessionArn = Lens.lens (\InstallToRemoteAccessSession' {remoteAccessSessionArn} -> remoteAccessSessionArn) (\s@InstallToRemoteAccessSession' {} a -> s {remoteAccessSessionArn = a} :: InstallToRemoteAccessSession)++-- | The ARN of the app about which you are requesting information.+installToRemoteAccessSession_appArn :: Lens.Lens' InstallToRemoteAccessSession Prelude.Text+installToRemoteAccessSession_appArn = Lens.lens (\InstallToRemoteAccessSession' {appArn} -> appArn) (\s@InstallToRemoteAccessSession' {} a -> s {appArn = a} :: InstallToRemoteAccessSession)++instance Core.AWSRequest InstallToRemoteAccessSession where+  type+    AWSResponse InstallToRemoteAccessSession =+      InstallToRemoteAccessSessionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          InstallToRemoteAccessSessionResponse'+            Prelude.<$> (x Data..?> "appUpload")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    InstallToRemoteAccessSession+  where+  hashWithSalt _salt InstallToRemoteAccessSession' {..} =+    _salt+      `Prelude.hashWithSalt` remoteAccessSessionArn+      `Prelude.hashWithSalt` appArn++instance Prelude.NFData InstallToRemoteAccessSession where+  rnf InstallToRemoteAccessSession' {..} =+    Prelude.rnf remoteAccessSessionArn+      `Prelude.seq` Prelude.rnf appArn++instance Data.ToHeaders InstallToRemoteAccessSession where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.InstallToRemoteAccessSession" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON InstallToRemoteAccessSession where+  toJSON InstallToRemoteAccessSession' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ( "remoteAccessSessionArn"+                  Data..= remoteAccessSessionArn+              ),+            Prelude.Just ("appArn" Data..= appArn)+          ]+      )++instance Data.ToPath InstallToRemoteAccessSession where+  toPath = Prelude.const "/"++instance Data.ToQuery InstallToRemoteAccessSession where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the response from the server after AWS Device Farm makes a+-- request to install to a remote access session.+--+-- /See:/ 'newInstallToRemoteAccessSessionResponse' smart constructor.+data InstallToRemoteAccessSessionResponse = InstallToRemoteAccessSessionResponse'+  { -- | An app to upload or that has been uploaded.+    appUpload :: Prelude.Maybe Upload,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'InstallToRemoteAccessSessionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'appUpload', 'installToRemoteAccessSessionResponse_appUpload' - An app to upload or that has been uploaded.+--+-- 'httpStatus', 'installToRemoteAccessSessionResponse_httpStatus' - The response's http status code.+newInstallToRemoteAccessSessionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  InstallToRemoteAccessSessionResponse+newInstallToRemoteAccessSessionResponse pHttpStatus_ =+  InstallToRemoteAccessSessionResponse'+    { appUpload =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An app to upload or that has been uploaded.+installToRemoteAccessSessionResponse_appUpload :: Lens.Lens' InstallToRemoteAccessSessionResponse (Prelude.Maybe Upload)+installToRemoteAccessSessionResponse_appUpload = Lens.lens (\InstallToRemoteAccessSessionResponse' {appUpload} -> appUpload) (\s@InstallToRemoteAccessSessionResponse' {} a -> s {appUpload = a} :: InstallToRemoteAccessSessionResponse)++-- | The response's http status code.+installToRemoteAccessSessionResponse_httpStatus :: Lens.Lens' InstallToRemoteAccessSessionResponse Prelude.Int+installToRemoteAccessSessionResponse_httpStatus = Lens.lens (\InstallToRemoteAccessSessionResponse' {httpStatus} -> httpStatus) (\s@InstallToRemoteAccessSessionResponse' {} a -> s {httpStatus = a} :: InstallToRemoteAccessSessionResponse)++instance+  Prelude.NFData+    InstallToRemoteAccessSessionResponse+  where+  rnf InstallToRemoteAccessSessionResponse' {..} =+    Prelude.rnf appUpload+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/Lens.hs view
@@ -0,0 +1,1076 @@+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Lens+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Lens+  ( -- * Operations++    -- ** CreateDevicePool+    createDevicePool_description,+    createDevicePool_maxDevices,+    createDevicePool_projectArn,+    createDevicePool_name,+    createDevicePool_rules,+    createDevicePoolResponse_devicePool,+    createDevicePoolResponse_httpStatus,++    -- ** CreateInstanceProfile+    createInstanceProfile_description,+    createInstanceProfile_excludeAppPackagesFromCleanup,+    createInstanceProfile_packageCleanup,+    createInstanceProfile_rebootAfterUse,+    createInstanceProfile_name,+    createInstanceProfileResponse_instanceProfile,+    createInstanceProfileResponse_httpStatus,++    -- ** CreateNetworkProfile+    createNetworkProfile_description,+    createNetworkProfile_downlinkBandwidthBits,+    createNetworkProfile_downlinkDelayMs,+    createNetworkProfile_downlinkJitterMs,+    createNetworkProfile_downlinkLossPercent,+    createNetworkProfile_type,+    createNetworkProfile_uplinkBandwidthBits,+    createNetworkProfile_uplinkDelayMs,+    createNetworkProfile_uplinkJitterMs,+    createNetworkProfile_uplinkLossPercent,+    createNetworkProfile_projectArn,+    createNetworkProfile_name,+    createNetworkProfileResponse_networkProfile,+    createNetworkProfileResponse_httpStatus,++    -- ** CreateProject+    createProject_defaultJobTimeoutMinutes,+    createProject_vpcConfig,+    createProject_name,+    createProjectResponse_project,+    createProjectResponse_httpStatus,++    -- ** CreateRemoteAccessSession+    createRemoteAccessSession_clientId,+    createRemoteAccessSession_configuration,+    createRemoteAccessSession_instanceArn,+    createRemoteAccessSession_interactionMode,+    createRemoteAccessSession_name,+    createRemoteAccessSession_remoteDebugEnabled,+    createRemoteAccessSession_remoteRecordAppArn,+    createRemoteAccessSession_remoteRecordEnabled,+    createRemoteAccessSession_skipAppResign,+    createRemoteAccessSession_sshPublicKey,+    createRemoteAccessSession_projectArn,+    createRemoteAccessSession_deviceArn,+    createRemoteAccessSessionResponse_remoteAccessSession,+    createRemoteAccessSessionResponse_httpStatus,++    -- ** CreateTestGridProject+    createTestGridProject_description,+    createTestGridProject_vpcConfig,+    createTestGridProject_name,+    createTestGridProjectResponse_testGridProject,+    createTestGridProjectResponse_httpStatus,++    -- ** CreateTestGridUrl+    createTestGridUrl_projectArn,+    createTestGridUrl_expiresInSeconds,+    createTestGridUrlResponse_expires,+    createTestGridUrlResponse_url,+    createTestGridUrlResponse_httpStatus,++    -- ** CreateUpload+    createUpload_contentType,+    createUpload_projectArn,+    createUpload_name,+    createUpload_type,+    createUploadResponse_upload,+    createUploadResponse_httpStatus,++    -- ** CreateVPCEConfiguration+    createVPCEConfiguration_vpceConfigurationDescription,+    createVPCEConfiguration_vpceConfigurationName,+    createVPCEConfiguration_vpceServiceName,+    createVPCEConfiguration_serviceDnsName,+    createVPCEConfigurationResponse_vpceConfiguration,+    createVPCEConfigurationResponse_httpStatus,++    -- ** DeleteDevicePool+    deleteDevicePool_arn,+    deleteDevicePoolResponse_httpStatus,++    -- ** DeleteInstanceProfile+    deleteInstanceProfile_arn,+    deleteInstanceProfileResponse_httpStatus,++    -- ** DeleteNetworkProfile+    deleteNetworkProfile_arn,+    deleteNetworkProfileResponse_httpStatus,++    -- ** DeleteProject+    deleteProject_arn,+    deleteProjectResponse_httpStatus,++    -- ** DeleteRemoteAccessSession+    deleteRemoteAccessSession_arn,+    deleteRemoteAccessSessionResponse_httpStatus,++    -- ** DeleteRun+    deleteRun_arn,+    deleteRunResponse_httpStatus,++    -- ** DeleteTestGridProject+    deleteTestGridProject_projectArn,+    deleteTestGridProjectResponse_httpStatus,++    -- ** DeleteUpload+    deleteUpload_arn,+    deleteUploadResponse_httpStatus,++    -- ** DeleteVPCEConfiguration+    deleteVPCEConfiguration_arn,+    deleteVPCEConfigurationResponse_httpStatus,++    -- ** GetAccountSettings+    getAccountSettingsResponse_accountSettings,+    getAccountSettingsResponse_httpStatus,++    -- ** GetDevice+    getDevice_arn,+    getDeviceResponse_device,+    getDeviceResponse_httpStatus,++    -- ** GetDeviceInstance+    getDeviceInstance_arn,+    getDeviceInstanceResponse_deviceInstance,+    getDeviceInstanceResponse_httpStatus,++    -- ** GetDevicePool+    getDevicePool_arn,+    getDevicePoolResponse_devicePool,+    getDevicePoolResponse_httpStatus,++    -- ** GetDevicePoolCompatibility+    getDevicePoolCompatibility_appArn,+    getDevicePoolCompatibility_configuration,+    getDevicePoolCompatibility_test,+    getDevicePoolCompatibility_testType,+    getDevicePoolCompatibility_devicePoolArn,+    getDevicePoolCompatibilityResponse_compatibleDevices,+    getDevicePoolCompatibilityResponse_incompatibleDevices,+    getDevicePoolCompatibilityResponse_httpStatus,++    -- ** GetInstanceProfile+    getInstanceProfile_arn,+    getInstanceProfileResponse_instanceProfile,+    getInstanceProfileResponse_httpStatus,++    -- ** GetJob+    getJob_arn,+    getJobResponse_job,+    getJobResponse_httpStatus,++    -- ** GetNetworkProfile+    getNetworkProfile_arn,+    getNetworkProfileResponse_networkProfile,+    getNetworkProfileResponse_httpStatus,++    -- ** GetOfferingStatus+    getOfferingStatus_nextToken,+    getOfferingStatusResponse_current,+    getOfferingStatusResponse_nextPeriod,+    getOfferingStatusResponse_nextToken,+    getOfferingStatusResponse_httpStatus,++    -- ** GetProject+    getProject_arn,+    getProjectResponse_project,+    getProjectResponse_httpStatus,++    -- ** GetRemoteAccessSession+    getRemoteAccessSession_arn,+    getRemoteAccessSessionResponse_remoteAccessSession,+    getRemoteAccessSessionResponse_httpStatus,++    -- ** GetRun+    getRun_arn,+    getRunResponse_run,+    getRunResponse_httpStatus,++    -- ** GetSuite+    getSuite_arn,+    getSuiteResponse_suite,+    getSuiteResponse_httpStatus,++    -- ** GetTest+    getTest_arn,+    getTestResponse_test,+    getTestResponse_httpStatus,++    -- ** GetTestGridProject+    getTestGridProject_projectArn,+    getTestGridProjectResponse_testGridProject,+    getTestGridProjectResponse_httpStatus,++    -- ** GetTestGridSession+    getTestGridSession_projectArn,+    getTestGridSession_sessionArn,+    getTestGridSession_sessionId,+    getTestGridSessionResponse_testGridSession,+    getTestGridSessionResponse_httpStatus,++    -- ** GetUpload+    getUpload_arn,+    getUploadResponse_upload,+    getUploadResponse_httpStatus,++    -- ** GetVPCEConfiguration+    getVPCEConfiguration_arn,+    getVPCEConfigurationResponse_vpceConfiguration,+    getVPCEConfigurationResponse_httpStatus,++    -- ** InstallToRemoteAccessSession+    installToRemoteAccessSession_remoteAccessSessionArn,+    installToRemoteAccessSession_appArn,+    installToRemoteAccessSessionResponse_appUpload,+    installToRemoteAccessSessionResponse_httpStatus,++    -- ** ListArtifacts+    listArtifacts_nextToken,+    listArtifacts_arn,+    listArtifacts_type,+    listArtifactsResponse_artifacts,+    listArtifactsResponse_nextToken,+    listArtifactsResponse_httpStatus,++    -- ** ListDeviceInstances+    listDeviceInstances_maxResults,+    listDeviceInstances_nextToken,+    listDeviceInstancesResponse_deviceInstances,+    listDeviceInstancesResponse_nextToken,+    listDeviceInstancesResponse_httpStatus,++    -- ** ListDevicePools+    listDevicePools_nextToken,+    listDevicePools_type,+    listDevicePools_arn,+    listDevicePoolsResponse_devicePools,+    listDevicePoolsResponse_nextToken,+    listDevicePoolsResponse_httpStatus,++    -- ** ListDevices+    listDevices_arn,+    listDevices_filters,+    listDevices_nextToken,+    listDevicesResponse_devices,+    listDevicesResponse_nextToken,+    listDevicesResponse_httpStatus,++    -- ** ListInstanceProfiles+    listInstanceProfiles_maxResults,+    listInstanceProfiles_nextToken,+    listInstanceProfilesResponse_instanceProfiles,+    listInstanceProfilesResponse_nextToken,+    listInstanceProfilesResponse_httpStatus,++    -- ** ListJobs+    listJobs_nextToken,+    listJobs_arn,+    listJobsResponse_jobs,+    listJobsResponse_nextToken,+    listJobsResponse_httpStatus,++    -- ** ListNetworkProfiles+    listNetworkProfiles_nextToken,+    listNetworkProfiles_type,+    listNetworkProfiles_arn,+    listNetworkProfilesResponse_networkProfiles,+    listNetworkProfilesResponse_nextToken,+    listNetworkProfilesResponse_httpStatus,++    -- ** ListOfferingPromotions+    listOfferingPromotions_nextToken,+    listOfferingPromotionsResponse_nextToken,+    listOfferingPromotionsResponse_offeringPromotions,+    listOfferingPromotionsResponse_httpStatus,++    -- ** ListOfferingTransactions+    listOfferingTransactions_nextToken,+    listOfferingTransactionsResponse_nextToken,+    listOfferingTransactionsResponse_offeringTransactions,+    listOfferingTransactionsResponse_httpStatus,++    -- ** ListOfferings+    listOfferings_nextToken,+    listOfferingsResponse_nextToken,+    listOfferingsResponse_offerings,+    listOfferingsResponse_httpStatus,++    -- ** ListProjects+    listProjects_arn,+    listProjects_nextToken,+    listProjectsResponse_nextToken,+    listProjectsResponse_projects,+    listProjectsResponse_httpStatus,++    -- ** ListRemoteAccessSessions+    listRemoteAccessSessions_nextToken,+    listRemoteAccessSessions_arn,+    listRemoteAccessSessionsResponse_nextToken,+    listRemoteAccessSessionsResponse_remoteAccessSessions,+    listRemoteAccessSessionsResponse_httpStatus,++    -- ** ListRuns+    listRuns_nextToken,+    listRuns_arn,+    listRunsResponse_nextToken,+    listRunsResponse_runs,+    listRunsResponse_httpStatus,++    -- ** ListSamples+    listSamples_nextToken,+    listSamples_arn,+    listSamplesResponse_nextToken,+    listSamplesResponse_samples,+    listSamplesResponse_httpStatus,++    -- ** ListSuites+    listSuites_nextToken,+    listSuites_arn,+    listSuitesResponse_nextToken,+    listSuitesResponse_suites,+    listSuitesResponse_httpStatus,++    -- ** ListTagsForResource+    listTagsForResource_resourceARN,+    listTagsForResourceResponse_tags,+    listTagsForResourceResponse_httpStatus,++    -- ** ListTestGridProjects+    listTestGridProjects_maxResult,+    listTestGridProjects_nextToken,+    listTestGridProjectsResponse_nextToken,+    listTestGridProjectsResponse_testGridProjects,+    listTestGridProjectsResponse_httpStatus,++    -- ** ListTestGridSessionActions+    listTestGridSessionActions_maxResult,+    listTestGridSessionActions_nextToken,+    listTestGridSessionActions_sessionArn,+    listTestGridSessionActionsResponse_actions,+    listTestGridSessionActionsResponse_nextToken,+    listTestGridSessionActionsResponse_httpStatus,++    -- ** ListTestGridSessionArtifacts+    listTestGridSessionArtifacts_maxResult,+    listTestGridSessionArtifacts_nextToken,+    listTestGridSessionArtifacts_type,+    listTestGridSessionArtifacts_sessionArn,+    listTestGridSessionArtifactsResponse_artifacts,+    listTestGridSessionArtifactsResponse_nextToken,+    listTestGridSessionArtifactsResponse_httpStatus,++    -- ** ListTestGridSessions+    listTestGridSessions_creationTimeAfter,+    listTestGridSessions_creationTimeBefore,+    listTestGridSessions_endTimeAfter,+    listTestGridSessions_endTimeBefore,+    listTestGridSessions_maxResult,+    listTestGridSessions_nextToken,+    listTestGridSessions_status,+    listTestGridSessions_projectArn,+    listTestGridSessionsResponse_nextToken,+    listTestGridSessionsResponse_testGridSessions,+    listTestGridSessionsResponse_httpStatus,++    -- ** ListTests+    listTests_nextToken,+    listTests_arn,+    listTestsResponse_nextToken,+    listTestsResponse_tests,+    listTestsResponse_httpStatus,++    -- ** ListUniqueProblems+    listUniqueProblems_nextToken,+    listUniqueProblems_arn,+    listUniqueProblemsResponse_nextToken,+    listUniqueProblemsResponse_uniqueProblems,+    listUniqueProblemsResponse_httpStatus,++    -- ** ListUploads+    listUploads_nextToken,+    listUploads_type,+    listUploads_arn,+    listUploadsResponse_nextToken,+    listUploadsResponse_uploads,+    listUploadsResponse_httpStatus,++    -- ** ListVPCEConfigurations+    listVPCEConfigurations_maxResults,+    listVPCEConfigurations_nextToken,+    listVPCEConfigurationsResponse_nextToken,+    listVPCEConfigurationsResponse_vpceConfigurations,+    listVPCEConfigurationsResponse_httpStatus,++    -- ** PurchaseOffering+    purchaseOffering_offeringPromotionId,+    purchaseOffering_offeringId,+    purchaseOffering_quantity,+    purchaseOfferingResponse_offeringTransaction,+    purchaseOfferingResponse_httpStatus,++    -- ** RenewOffering+    renewOffering_offeringId,+    renewOffering_quantity,+    renewOfferingResponse_offeringTransaction,+    renewOfferingResponse_httpStatus,++    -- ** ScheduleRun+    scheduleRun_appArn,+    scheduleRun_configuration,+    scheduleRun_devicePoolArn,+    scheduleRun_deviceSelectionConfiguration,+    scheduleRun_executionConfiguration,+    scheduleRun_name,+    scheduleRun_projectArn,+    scheduleRun_test,+    scheduleRunResponse_run,+    scheduleRunResponse_httpStatus,++    -- ** StopJob+    stopJob_arn,+    stopJobResponse_job,+    stopJobResponse_httpStatus,++    -- ** StopRemoteAccessSession+    stopRemoteAccessSession_arn,+    stopRemoteAccessSessionResponse_remoteAccessSession,+    stopRemoteAccessSessionResponse_httpStatus,++    -- ** StopRun+    stopRun_arn,+    stopRunResponse_run,+    stopRunResponse_httpStatus,++    -- ** TagResource+    tagResource_resourceARN,+    tagResource_tags,+    tagResourceResponse_httpStatus,++    -- ** UntagResource+    untagResource_resourceARN,+    untagResource_tagKeys,+    untagResourceResponse_httpStatus,++    -- ** UpdateDeviceInstance+    updateDeviceInstance_labels,+    updateDeviceInstance_profileArn,+    updateDeviceInstance_arn,+    updateDeviceInstanceResponse_deviceInstance,+    updateDeviceInstanceResponse_httpStatus,++    -- ** UpdateDevicePool+    updateDevicePool_clearMaxDevices,+    updateDevicePool_description,+    updateDevicePool_maxDevices,+    updateDevicePool_name,+    updateDevicePool_rules,+    updateDevicePool_arn,+    updateDevicePoolResponse_devicePool,+    updateDevicePoolResponse_httpStatus,++    -- ** UpdateInstanceProfile+    updateInstanceProfile_description,+    updateInstanceProfile_excludeAppPackagesFromCleanup,+    updateInstanceProfile_name,+    updateInstanceProfile_packageCleanup,+    updateInstanceProfile_rebootAfterUse,+    updateInstanceProfile_arn,+    updateInstanceProfileResponse_instanceProfile,+    updateInstanceProfileResponse_httpStatus,++    -- ** UpdateNetworkProfile+    updateNetworkProfile_description,+    updateNetworkProfile_downlinkBandwidthBits,+    updateNetworkProfile_downlinkDelayMs,+    updateNetworkProfile_downlinkJitterMs,+    updateNetworkProfile_downlinkLossPercent,+    updateNetworkProfile_name,+    updateNetworkProfile_type,+    updateNetworkProfile_uplinkBandwidthBits,+    updateNetworkProfile_uplinkDelayMs,+    updateNetworkProfile_uplinkJitterMs,+    updateNetworkProfile_uplinkLossPercent,+    updateNetworkProfile_arn,+    updateNetworkProfileResponse_networkProfile,+    updateNetworkProfileResponse_httpStatus,++    -- ** UpdateProject+    updateProject_defaultJobTimeoutMinutes,+    updateProject_name,+    updateProject_vpcConfig,+    updateProject_arn,+    updateProjectResponse_project,+    updateProjectResponse_httpStatus,++    -- ** UpdateTestGridProject+    updateTestGridProject_description,+    updateTestGridProject_name,+    updateTestGridProject_vpcConfig,+    updateTestGridProject_projectArn,+    updateTestGridProjectResponse_testGridProject,+    updateTestGridProjectResponse_httpStatus,++    -- ** UpdateUpload+    updateUpload_contentType,+    updateUpload_editContent,+    updateUpload_name,+    updateUpload_arn,+    updateUploadResponse_upload,+    updateUploadResponse_httpStatus,++    -- ** UpdateVPCEConfiguration+    updateVPCEConfiguration_serviceDnsName,+    updateVPCEConfiguration_vpceConfigurationDescription,+    updateVPCEConfiguration_vpceConfigurationName,+    updateVPCEConfiguration_vpceServiceName,+    updateVPCEConfiguration_arn,+    updateVPCEConfigurationResponse_vpceConfiguration,+    updateVPCEConfigurationResponse_httpStatus,++    -- * Types++    -- ** AccountSettings+    accountSettings_awsAccountNumber,+    accountSettings_defaultJobTimeoutMinutes,+    accountSettings_maxJobTimeoutMinutes,+    accountSettings_maxSlots,+    accountSettings_skipAppResign,+    accountSettings_trialMinutes,+    accountSettings_unmeteredDevices,+    accountSettings_unmeteredRemoteAccessDevices,++    -- ** Artifact+    artifact_arn,+    artifact_extension,+    artifact_name,+    artifact_type,+    artifact_url,++    -- ** CPU+    cpu_architecture,+    cpu_clock,+    cpu_frequency,++    -- ** Counters+    counters_errored,+    counters_failed,+    counters_passed,+    counters_skipped,+    counters_stopped,+    counters_total,+    counters_warned,++    -- ** CreateRemoteAccessSessionConfiguration+    createRemoteAccessSessionConfiguration_billingMethod,+    createRemoteAccessSessionConfiguration_vpceConfigurationArns,++    -- ** CustomerArtifactPaths+    customerArtifactPaths_androidPaths,+    customerArtifactPaths_deviceHostPaths,+    customerArtifactPaths_iosPaths,++    -- ** Device+    device_arn,+    device_availability,+    device_carrier,+    device_cpu,+    device_fleetName,+    device_fleetType,+    device_formFactor,+    device_heapSize,+    device_image,+    device_instances,+    device_manufacturer,+    device_memory,+    device_model,+    device_modelId,+    device_name,+    device_os,+    device_platform,+    device_radio,+    device_remoteAccessEnabled,+    device_remoteDebugEnabled,+    device_resolution,++    -- ** DeviceFilter+    deviceFilter_attribute,+    deviceFilter_operator,+    deviceFilter_values,++    -- ** DeviceInstance+    deviceInstance_arn,+    deviceInstance_deviceArn,+    deviceInstance_instanceProfile,+    deviceInstance_labels,+    deviceInstance_status,+    deviceInstance_udid,++    -- ** DeviceMinutes+    deviceMinutes_metered,+    deviceMinutes_total,+    deviceMinutes_unmetered,++    -- ** DevicePool+    devicePool_arn,+    devicePool_description,+    devicePool_maxDevices,+    devicePool_name,+    devicePool_rules,+    devicePool_type,++    -- ** DevicePoolCompatibilityResult+    devicePoolCompatibilityResult_compatible,+    devicePoolCompatibilityResult_device,+    devicePoolCompatibilityResult_incompatibilityMessages,++    -- ** DeviceSelectionConfiguration+    deviceSelectionConfiguration_filters,+    deviceSelectionConfiguration_maxDevices,++    -- ** DeviceSelectionResult+    deviceSelectionResult_filters,+    deviceSelectionResult_matchedDevicesCount,+    deviceSelectionResult_maxDevices,++    -- ** ExecutionConfiguration+    executionConfiguration_accountsCleanup,+    executionConfiguration_appPackagesCleanup,+    executionConfiguration_jobTimeoutMinutes,+    executionConfiguration_skipAppResign,+    executionConfiguration_videoCapture,++    -- ** IncompatibilityMessage+    incompatibilityMessage_message,+    incompatibilityMessage_type,++    -- ** InstanceProfile+    instanceProfile_arn,+    instanceProfile_description,+    instanceProfile_excludeAppPackagesFromCleanup,+    instanceProfile_name,+    instanceProfile_packageCleanup,+    instanceProfile_rebootAfterUse,++    -- ** Job+    job_arn,+    job_counters,+    job_created,+    job_device,+    job_deviceMinutes,+    job_instanceArn,+    job_message,+    job_name,+    job_result,+    job_started,+    job_status,+    job_stopped,+    job_type,+    job_videoCapture,+    job_videoEndpoint,++    -- ** Location+    location_latitude,+    location_longitude,++    -- ** MonetaryAmount+    monetaryAmount_amount,+    monetaryAmount_currencyCode,++    -- ** NetworkProfile+    networkProfile_arn,+    networkProfile_description,+    networkProfile_downlinkBandwidthBits,+    networkProfile_downlinkDelayMs,+    networkProfile_downlinkJitterMs,+    networkProfile_downlinkLossPercent,+    networkProfile_name,+    networkProfile_type,+    networkProfile_uplinkBandwidthBits,+    networkProfile_uplinkDelayMs,+    networkProfile_uplinkJitterMs,+    networkProfile_uplinkLossPercent,++    -- ** Offering+    offering_description,+    offering_id,+    offering_platform,+    offering_recurringCharges,+    offering_type,++    -- ** OfferingPromotion+    offeringPromotion_description,+    offeringPromotion_id,++    -- ** OfferingStatus+    offeringStatus_effectiveOn,+    offeringStatus_offering,+    offeringStatus_quantity,+    offeringStatus_type,++    -- ** OfferingTransaction+    offeringTransaction_cost,+    offeringTransaction_createdOn,+    offeringTransaction_offeringPromotionId,+    offeringTransaction_offeringStatus,+    offeringTransaction_transactionId,++    -- ** Problem+    problem_device,+    problem_job,+    problem_message,+    problem_result,+    problem_run,+    problem_suite,+    problem_test,++    -- ** ProblemDetail+    problemDetail_arn,+    problemDetail_name,++    -- ** Project+    project_arn,+    project_created,+    project_defaultJobTimeoutMinutes,+    project_name,+    project_vpcConfig,++    -- ** Radios+    radios_bluetooth,+    radios_gps,+    radios_nfc,+    radios_wifi,++    -- ** RecurringCharge+    recurringCharge_cost,+    recurringCharge_frequency,++    -- ** RemoteAccessSession+    remoteAccessSession_arn,+    remoteAccessSession_billingMethod,+    remoteAccessSession_clientId,+    remoteAccessSession_created,+    remoteAccessSession_device,+    remoteAccessSession_deviceMinutes,+    remoteAccessSession_deviceUdid,+    remoteAccessSession_endpoint,+    remoteAccessSession_hostAddress,+    remoteAccessSession_instanceArn,+    remoteAccessSession_interactionMode,+    remoteAccessSession_message,+    remoteAccessSession_name,+    remoteAccessSession_remoteDebugEnabled,+    remoteAccessSession_remoteRecordAppArn,+    remoteAccessSession_remoteRecordEnabled,+    remoteAccessSession_result,+    remoteAccessSession_skipAppResign,+    remoteAccessSession_started,+    remoteAccessSession_status,+    remoteAccessSession_stopped,+    remoteAccessSession_vpcConfig,++    -- ** Resolution+    resolution_height,+    resolution_width,++    -- ** Rule+    rule_attribute,+    rule_operator,+    rule_value,++    -- ** Run+    run_appUpload,+    run_arn,+    run_billingMethod,+    run_completedJobs,+    run_counters,+    run_created,+    run_customerArtifactPaths,+    run_deviceMinutes,+    run_devicePoolArn,+    run_deviceSelectionResult,+    run_eventCount,+    run_jobTimeoutMinutes,+    run_locale,+    run_location,+    run_message,+    run_name,+    run_networkProfile,+    run_parsingResultUrl,+    run_platform,+    run_radios,+    run_result,+    run_resultCode,+    run_seed,+    run_skipAppResign,+    run_started,+    run_status,+    run_stopped,+    run_testSpecArn,+    run_totalJobs,+    run_type,+    run_vpcConfig,+    run_webUrl,++    -- ** Sample+    sample_arn,+    sample_type,+    sample_url,++    -- ** ScheduleRunConfiguration+    scheduleRunConfiguration_auxiliaryApps,+    scheduleRunConfiguration_billingMethod,+    scheduleRunConfiguration_customerArtifactPaths,+    scheduleRunConfiguration_extraDataPackageArn,+    scheduleRunConfiguration_locale,+    scheduleRunConfiguration_location,+    scheduleRunConfiguration_networkProfileArn,+    scheduleRunConfiguration_radios,+    scheduleRunConfiguration_vpceConfigurationArns,++    -- ** ScheduleRunTest+    scheduleRunTest_filter,+    scheduleRunTest_parameters,+    scheduleRunTest_testPackageArn,+    scheduleRunTest_testSpecArn,+    scheduleRunTest_type,++    -- ** Suite+    suite_arn,+    suite_counters,+    suite_created,+    suite_deviceMinutes,+    suite_message,+    suite_name,+    suite_result,+    suite_started,+    suite_status,+    suite_stopped,+    suite_type,++    -- ** Tag+    tag_key,+    tag_value,++    -- ** Test+    test_arn,+    test_counters,+    test_created,+    test_deviceMinutes,+    test_message,+    test_name,+    test_result,+    test_started,+    test_status,+    test_stopped,+    test_type,++    -- ** TestGridProject+    testGridProject_arn,+    testGridProject_created,+    testGridProject_description,+    testGridProject_name,+    testGridProject_vpcConfig,++    -- ** TestGridSession+    testGridSession_arn,+    testGridSession_billingMinutes,+    testGridSession_created,+    testGridSession_ended,+    testGridSession_seleniumProperties,+    testGridSession_status,++    -- ** TestGridSessionAction+    testGridSessionAction_action,+    testGridSessionAction_duration,+    testGridSessionAction_requestMethod,+    testGridSessionAction_started,+    testGridSessionAction_statusCode,++    -- ** TestGridSessionArtifact+    testGridSessionArtifact_filename,+    testGridSessionArtifact_type,+    testGridSessionArtifact_url,++    -- ** TestGridVpcConfig+    testGridVpcConfig_securityGroupIds,+    testGridVpcConfig_subnetIds,+    testGridVpcConfig_vpcId,++    -- ** TrialMinutes+    trialMinutes_remaining,+    trialMinutes_total,++    -- ** UniqueProblem+    uniqueProblem_message,+    uniqueProblem_problems,++    -- ** Upload+    upload_arn,+    upload_category,+    upload_contentType,+    upload_created,+    upload_message,+    upload_metadata,+    upload_name,+    upload_status,+    upload_type,+    upload_url,++    -- ** VPCEConfiguration+    vPCEConfiguration_arn,+    vPCEConfiguration_serviceDnsName,+    vPCEConfiguration_vpceConfigurationDescription,+    vPCEConfiguration_vpceConfigurationName,+    vPCEConfiguration_vpceServiceName,++    -- ** VpcConfig+    vpcConfig_securityGroupIds,+    vpcConfig_subnetIds,+    vpcConfig_vpcId,+  )+where++import Amazonka.DeviceFarm.CreateDevicePool+import Amazonka.DeviceFarm.CreateInstanceProfile+import Amazonka.DeviceFarm.CreateNetworkProfile+import Amazonka.DeviceFarm.CreateProject+import Amazonka.DeviceFarm.CreateRemoteAccessSession+import Amazonka.DeviceFarm.CreateTestGridProject+import Amazonka.DeviceFarm.CreateTestGridUrl+import Amazonka.DeviceFarm.CreateUpload+import Amazonka.DeviceFarm.CreateVPCEConfiguration+import Amazonka.DeviceFarm.DeleteDevicePool+import Amazonka.DeviceFarm.DeleteInstanceProfile+import Amazonka.DeviceFarm.DeleteNetworkProfile+import Amazonka.DeviceFarm.DeleteProject+import Amazonka.DeviceFarm.DeleteRemoteAccessSession+import Amazonka.DeviceFarm.DeleteRun+import Amazonka.DeviceFarm.DeleteTestGridProject+import Amazonka.DeviceFarm.DeleteUpload+import Amazonka.DeviceFarm.DeleteVPCEConfiguration+import Amazonka.DeviceFarm.GetAccountSettings+import Amazonka.DeviceFarm.GetDevice+import Amazonka.DeviceFarm.GetDeviceInstance+import Amazonka.DeviceFarm.GetDevicePool+import Amazonka.DeviceFarm.GetDevicePoolCompatibility+import Amazonka.DeviceFarm.GetInstanceProfile+import Amazonka.DeviceFarm.GetJob+import Amazonka.DeviceFarm.GetNetworkProfile+import Amazonka.DeviceFarm.GetOfferingStatus+import Amazonka.DeviceFarm.GetProject+import Amazonka.DeviceFarm.GetRemoteAccessSession+import Amazonka.DeviceFarm.GetRun+import Amazonka.DeviceFarm.GetSuite+import Amazonka.DeviceFarm.GetTest+import Amazonka.DeviceFarm.GetTestGridProject+import Amazonka.DeviceFarm.GetTestGridSession+import Amazonka.DeviceFarm.GetUpload+import Amazonka.DeviceFarm.GetVPCEConfiguration+import Amazonka.DeviceFarm.InstallToRemoteAccessSession+import Amazonka.DeviceFarm.ListArtifacts+import Amazonka.DeviceFarm.ListDeviceInstances+import Amazonka.DeviceFarm.ListDevicePools+import Amazonka.DeviceFarm.ListDevices+import Amazonka.DeviceFarm.ListInstanceProfiles+import Amazonka.DeviceFarm.ListJobs+import Amazonka.DeviceFarm.ListNetworkProfiles+import Amazonka.DeviceFarm.ListOfferingPromotions+import Amazonka.DeviceFarm.ListOfferingTransactions+import Amazonka.DeviceFarm.ListOfferings+import Amazonka.DeviceFarm.ListProjects+import Amazonka.DeviceFarm.ListRemoteAccessSessions+import Amazonka.DeviceFarm.ListRuns+import Amazonka.DeviceFarm.ListSamples+import Amazonka.DeviceFarm.ListSuites+import Amazonka.DeviceFarm.ListTagsForResource+import Amazonka.DeviceFarm.ListTestGridProjects+import Amazonka.DeviceFarm.ListTestGridSessionActions+import Amazonka.DeviceFarm.ListTestGridSessionArtifacts+import Amazonka.DeviceFarm.ListTestGridSessions+import Amazonka.DeviceFarm.ListTests+import Amazonka.DeviceFarm.ListUniqueProblems+import Amazonka.DeviceFarm.ListUploads+import Amazonka.DeviceFarm.ListVPCEConfigurations+import Amazonka.DeviceFarm.PurchaseOffering+import Amazonka.DeviceFarm.RenewOffering+import Amazonka.DeviceFarm.ScheduleRun+import Amazonka.DeviceFarm.StopJob+import Amazonka.DeviceFarm.StopRemoteAccessSession+import Amazonka.DeviceFarm.StopRun+import Amazonka.DeviceFarm.TagResource+import Amazonka.DeviceFarm.Types.AccountSettings+import Amazonka.DeviceFarm.Types.Artifact+import Amazonka.DeviceFarm.Types.CPU+import Amazonka.DeviceFarm.Types.Counters+import Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration+import Amazonka.DeviceFarm.Types.CustomerArtifactPaths+import Amazonka.DeviceFarm.Types.Device+import Amazonka.DeviceFarm.Types.DeviceFilter+import Amazonka.DeviceFarm.Types.DeviceInstance+import Amazonka.DeviceFarm.Types.DeviceMinutes+import Amazonka.DeviceFarm.Types.DevicePool+import Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult+import Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration+import Amazonka.DeviceFarm.Types.DeviceSelectionResult+import Amazonka.DeviceFarm.Types.ExecutionConfiguration+import Amazonka.DeviceFarm.Types.IncompatibilityMessage+import Amazonka.DeviceFarm.Types.InstanceProfile+import Amazonka.DeviceFarm.Types.Job+import Amazonka.DeviceFarm.Types.Location+import Amazonka.DeviceFarm.Types.MonetaryAmount+import Amazonka.DeviceFarm.Types.NetworkProfile+import Amazonka.DeviceFarm.Types.Offering+import Amazonka.DeviceFarm.Types.OfferingPromotion+import Amazonka.DeviceFarm.Types.OfferingStatus+import Amazonka.DeviceFarm.Types.OfferingTransaction+import Amazonka.DeviceFarm.Types.Problem+import Amazonka.DeviceFarm.Types.ProblemDetail+import Amazonka.DeviceFarm.Types.Project+import Amazonka.DeviceFarm.Types.Radios+import Amazonka.DeviceFarm.Types.RecurringCharge+import Amazonka.DeviceFarm.Types.RemoteAccessSession+import Amazonka.DeviceFarm.Types.Resolution+import Amazonka.DeviceFarm.Types.Rule+import Amazonka.DeviceFarm.Types.Run+import Amazonka.DeviceFarm.Types.Sample+import Amazonka.DeviceFarm.Types.ScheduleRunConfiguration+import Amazonka.DeviceFarm.Types.ScheduleRunTest+import Amazonka.DeviceFarm.Types.Suite+import Amazonka.DeviceFarm.Types.Tag+import Amazonka.DeviceFarm.Types.Test+import Amazonka.DeviceFarm.Types.TestGridProject+import Amazonka.DeviceFarm.Types.TestGridSession+import Amazonka.DeviceFarm.Types.TestGridSessionAction+import Amazonka.DeviceFarm.Types.TestGridSessionArtifact+import Amazonka.DeviceFarm.Types.TestGridVpcConfig+import Amazonka.DeviceFarm.Types.TrialMinutes+import Amazonka.DeviceFarm.Types.UniqueProblem+import Amazonka.DeviceFarm.Types.Upload+import Amazonka.DeviceFarm.Types.VPCEConfiguration+import Amazonka.DeviceFarm.Types.VpcConfig+import Amazonka.DeviceFarm.UntagResource+import Amazonka.DeviceFarm.UpdateDeviceInstance+import Amazonka.DeviceFarm.UpdateDevicePool+import Amazonka.DeviceFarm.UpdateInstanceProfile+import Amazonka.DeviceFarm.UpdateNetworkProfile+import Amazonka.DeviceFarm.UpdateProject+import Amazonka.DeviceFarm.UpdateTestGridProject+import Amazonka.DeviceFarm.UpdateUpload+import Amazonka.DeviceFarm.UpdateVPCEConfiguration
+ gen/Amazonka/DeviceFarm/ListArtifacts.hs view
@@ -0,0 +1,276 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ListArtifacts+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about artifacts.+--+-- This operation returns paginated results.+module Amazonka.DeviceFarm.ListArtifacts+  ( -- * Creating a Request+    ListArtifacts (..),+    newListArtifacts,++    -- * Request Lenses+    listArtifacts_nextToken,+    listArtifacts_arn,+    listArtifacts_type,++    -- * Destructuring the Response+    ListArtifactsResponse (..),+    newListArtifactsResponse,++    -- * Response Lenses+    listArtifactsResponse_artifacts,+    listArtifactsResponse_nextToken,+    listArtifactsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the list artifacts operation.+--+-- /See:/ 'newListArtifacts' smart constructor.+data ListArtifacts = ListArtifacts'+  { -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The run, job, suite, or test ARN.+    arn :: Prelude.Text,+    -- | The artifacts\' type.+    --+    -- Allowed values include:+    --+    -- -   FILE+    --+    -- -   LOG+    --+    -- -   SCREENSHOT+    type' :: ArtifactCategory+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListArtifacts' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listArtifacts_nextToken' - 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.+--+-- 'arn', 'listArtifacts_arn' - The run, job, suite, or test ARN.+--+-- 'type'', 'listArtifacts_type' - The artifacts\' type.+--+-- Allowed values include:+--+-- -   FILE+--+-- -   LOG+--+-- -   SCREENSHOT+newListArtifacts ::+  -- | 'arn'+  Prelude.Text ->+  -- | 'type''+  ArtifactCategory ->+  ListArtifacts+newListArtifacts pArn_ pType_ =+  ListArtifacts'+    { nextToken = Prelude.Nothing,+      arn = pArn_,+      type' = 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.+listArtifacts_nextToken :: Lens.Lens' ListArtifacts (Prelude.Maybe Prelude.Text)+listArtifacts_nextToken = Lens.lens (\ListArtifacts' {nextToken} -> nextToken) (\s@ListArtifacts' {} a -> s {nextToken = a} :: ListArtifacts)++-- | The run, job, suite, or test ARN.+listArtifacts_arn :: Lens.Lens' ListArtifacts Prelude.Text+listArtifacts_arn = Lens.lens (\ListArtifacts' {arn} -> arn) (\s@ListArtifacts' {} a -> s {arn = a} :: ListArtifacts)++-- | The artifacts\' type.+--+-- Allowed values include:+--+-- -   FILE+--+-- -   LOG+--+-- -   SCREENSHOT+listArtifacts_type :: Lens.Lens' ListArtifacts ArtifactCategory+listArtifacts_type = Lens.lens (\ListArtifacts' {type'} -> type') (\s@ListArtifacts' {} a -> s {type' = a} :: ListArtifacts)++instance Core.AWSPager ListArtifacts where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listArtifactsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listArtifactsResponse_artifacts+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listArtifacts_nextToken+          Lens..~ rs+          Lens.^? listArtifactsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListArtifacts where+  type+    AWSResponse ListArtifacts =+      ListArtifactsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListArtifactsResponse'+            Prelude.<$> (x Data..?> "artifacts" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListArtifacts where+  hashWithSalt _salt ListArtifacts' {..} =+    _salt+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` type'++instance Prelude.NFData ListArtifacts where+  rnf ListArtifacts' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf arn+      `Prelude.seq` Prelude.rnf type'++instance Data.ToHeaders ListArtifacts where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ListArtifacts" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListArtifacts where+  toJSON ListArtifacts' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("arn" Data..= arn),+            Prelude.Just ("type" Data..= type')+          ]+      )++instance Data.ToPath ListArtifacts where+  toPath = Prelude.const "/"++instance Data.ToQuery ListArtifacts where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a list artifacts operation.+--+-- /See:/ 'newListArtifactsResponse' smart constructor.+data ListArtifactsResponse = ListArtifactsResponse'+  { -- | Information about the artifacts.+    artifacts :: Prelude.Maybe [Artifact],+    -- | If the number of items that are returned is significantly large, this is+    -- an identifier that is also returned. It can be used in a subsequent call+    -- to this operation to return the next set of items in the list.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListArtifactsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'artifacts', 'listArtifactsResponse_artifacts' - Information about the artifacts.+--+-- 'nextToken', 'listArtifactsResponse_nextToken' - If the number of items that are returned is significantly large, this is+-- an identifier that is also returned. It can be used in a subsequent call+-- to this operation to return the next set of items in the list.+--+-- 'httpStatus', 'listArtifactsResponse_httpStatus' - The response's http status code.+newListArtifactsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListArtifactsResponse+newListArtifactsResponse pHttpStatus_ =+  ListArtifactsResponse'+    { artifacts = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Information about the artifacts.+listArtifactsResponse_artifacts :: Lens.Lens' ListArtifactsResponse (Prelude.Maybe [Artifact])+listArtifactsResponse_artifacts = Lens.lens (\ListArtifactsResponse' {artifacts} -> artifacts) (\s@ListArtifactsResponse' {} a -> s {artifacts = a} :: ListArtifactsResponse) Prelude.. Lens.mapping Lens.coerced++-- | If the number of items that are returned is significantly large, this is+-- an identifier that is also returned. It can be used in a subsequent call+-- to this operation to return the next set of items in the list.+listArtifactsResponse_nextToken :: Lens.Lens' ListArtifactsResponse (Prelude.Maybe Prelude.Text)+listArtifactsResponse_nextToken = Lens.lens (\ListArtifactsResponse' {nextToken} -> nextToken) (\s@ListArtifactsResponse' {} a -> s {nextToken = a} :: ListArtifactsResponse)++-- | The response's http status code.+listArtifactsResponse_httpStatus :: Lens.Lens' ListArtifactsResponse Prelude.Int+listArtifactsResponse_httpStatus = Lens.lens (\ListArtifactsResponse' {httpStatus} -> httpStatus) (\s@ListArtifactsResponse' {} a -> s {httpStatus = a} :: ListArtifactsResponse)++instance Prelude.NFData ListArtifactsResponse where+  rnf ListArtifactsResponse' {..} =+    Prelude.rnf artifacts+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/ListDeviceInstances.hs view
@@ -0,0 +1,236 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ListDeviceInstances+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about the private device instances associated with+-- one or more AWS accounts.+--+-- This operation returns paginated results.+module Amazonka.DeviceFarm.ListDeviceInstances+  ( -- * Creating a Request+    ListDeviceInstances (..),+    newListDeviceInstances,++    -- * Request Lenses+    listDeviceInstances_maxResults,+    listDeviceInstances_nextToken,++    -- * Destructuring the Response+    ListDeviceInstancesResponse (..),+    newListDeviceInstancesResponse,++    -- * Response Lenses+    listDeviceInstancesResponse_deviceInstances,+    listDeviceInstancesResponse_nextToken,+    listDeviceInstancesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListDeviceInstances' smart constructor.+data ListDeviceInstances = ListDeviceInstances'+  { -- | An integer that specifies the maximum number of items you want to return+    -- in the API response.+    maxResults :: Prelude.Maybe Prelude.Int,+    -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListDeviceInstances' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'listDeviceInstances_maxResults' - An integer that specifies the maximum number of items you want to return+-- in the API response.+--+-- 'nextToken', 'listDeviceInstances_nextToken' - 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.+newListDeviceInstances ::+  ListDeviceInstances+newListDeviceInstances =+  ListDeviceInstances'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | An integer that specifies the maximum number of items you want to return+-- in the API response.+listDeviceInstances_maxResults :: Lens.Lens' ListDeviceInstances (Prelude.Maybe Prelude.Int)+listDeviceInstances_maxResults = Lens.lens (\ListDeviceInstances' {maxResults} -> maxResults) (\s@ListDeviceInstances' {} a -> s {maxResults = a} :: ListDeviceInstances)++-- | 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.+listDeviceInstances_nextToken :: Lens.Lens' ListDeviceInstances (Prelude.Maybe Prelude.Text)+listDeviceInstances_nextToken = Lens.lens (\ListDeviceInstances' {nextToken} -> nextToken) (\s@ListDeviceInstances' {} a -> s {nextToken = a} :: ListDeviceInstances)++instance Core.AWSPager ListDeviceInstances where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listDeviceInstancesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listDeviceInstancesResponse_deviceInstances+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listDeviceInstances_nextToken+          Lens..~ rs+          Lens.^? listDeviceInstancesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListDeviceInstances where+  type+    AWSResponse ListDeviceInstances =+      ListDeviceInstancesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListDeviceInstancesResponse'+            Prelude.<$> ( x+                            Data..?> "deviceInstances"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListDeviceInstances where+  hashWithSalt _salt ListDeviceInstances' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListDeviceInstances where+  rnf ListDeviceInstances' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListDeviceInstances where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ListDeviceInstances" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListDeviceInstances where+  toJSON ListDeviceInstances' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath ListDeviceInstances where+  toPath = Prelude.const "/"++instance Data.ToQuery ListDeviceInstances where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListDeviceInstancesResponse' smart constructor.+data ListDeviceInstancesResponse = ListDeviceInstancesResponse'+  { -- | An object that contains information about your device instances.+    deviceInstances :: Prelude.Maybe [DeviceInstance],+    -- | An identifier that can be used in the next call to this operation to+    -- return the next set of items in the list.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListDeviceInstancesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'deviceInstances', 'listDeviceInstancesResponse_deviceInstances' - An object that contains information about your device instances.+--+-- 'nextToken', 'listDeviceInstancesResponse_nextToken' - An identifier that can be used in the next call to this operation to+-- return the next set of items in the list.+--+-- 'httpStatus', 'listDeviceInstancesResponse_httpStatus' - The response's http status code.+newListDeviceInstancesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListDeviceInstancesResponse+newListDeviceInstancesResponse pHttpStatus_ =+  ListDeviceInstancesResponse'+    { deviceInstances =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An object that contains information about your device instances.+listDeviceInstancesResponse_deviceInstances :: Lens.Lens' ListDeviceInstancesResponse (Prelude.Maybe [DeviceInstance])+listDeviceInstancesResponse_deviceInstances = Lens.lens (\ListDeviceInstancesResponse' {deviceInstances} -> deviceInstances) (\s@ListDeviceInstancesResponse' {} a -> s {deviceInstances = a} :: ListDeviceInstancesResponse) Prelude.. Lens.mapping Lens.coerced++-- | An identifier that can be used in the next call to this operation to+-- return the next set of items in the list.+listDeviceInstancesResponse_nextToken :: Lens.Lens' ListDeviceInstancesResponse (Prelude.Maybe Prelude.Text)+listDeviceInstancesResponse_nextToken = Lens.lens (\ListDeviceInstancesResponse' {nextToken} -> nextToken) (\s@ListDeviceInstancesResponse' {} a -> s {nextToken = a} :: ListDeviceInstancesResponse)++-- | The response's http status code.+listDeviceInstancesResponse_httpStatus :: Lens.Lens' ListDeviceInstancesResponse Prelude.Int+listDeviceInstancesResponse_httpStatus = Lens.lens (\ListDeviceInstancesResponse' {httpStatus} -> httpStatus) (\s@ListDeviceInstancesResponse' {} a -> s {httpStatus = a} :: ListDeviceInstancesResponse)++instance Prelude.NFData ListDeviceInstancesResponse where+  rnf ListDeviceInstancesResponse' {..} =+    Prelude.rnf deviceInstances+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/ListDevicePools.hs view
@@ -0,0 +1,275 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ListDevicePools+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about device pools.+--+-- This operation returns paginated results.+module Amazonka.DeviceFarm.ListDevicePools+  ( -- * Creating a Request+    ListDevicePools (..),+    newListDevicePools,++    -- * Request Lenses+    listDevicePools_nextToken,+    listDevicePools_type,+    listDevicePools_arn,++    -- * Destructuring the Response+    ListDevicePoolsResponse (..),+    newListDevicePoolsResponse,++    -- * Response Lenses+    listDevicePoolsResponse_devicePools,+    listDevicePoolsResponse_nextToken,+    listDevicePoolsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents the result of a list device pools request.+--+-- /See:/ 'newListDevicePools' smart constructor.+data ListDevicePools = ListDevicePools'+  { -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | 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.+    type' :: Prelude.Maybe DevicePoolType,+    -- | The project ARN.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListDevicePools' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listDevicePools_nextToken' - 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.+--+-- 'type'', 'listDevicePools_type' - 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.+--+-- 'arn', 'listDevicePools_arn' - The project ARN.+newListDevicePools ::+  -- | 'arn'+  Prelude.Text ->+  ListDevicePools+newListDevicePools pArn_ =+  ListDevicePools'+    { nextToken = Prelude.Nothing,+      type' = Prelude.Nothing,+      arn = 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.+listDevicePools_nextToken :: Lens.Lens' ListDevicePools (Prelude.Maybe Prelude.Text)+listDevicePools_nextToken = Lens.lens (\ListDevicePools' {nextToken} -> nextToken) (\s@ListDevicePools' {} a -> s {nextToken = a} :: ListDevicePools)++-- | 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.+listDevicePools_type :: Lens.Lens' ListDevicePools (Prelude.Maybe DevicePoolType)+listDevicePools_type = Lens.lens (\ListDevicePools' {type'} -> type') (\s@ListDevicePools' {} a -> s {type' = a} :: ListDevicePools)++-- | The project ARN.+listDevicePools_arn :: Lens.Lens' ListDevicePools Prelude.Text+listDevicePools_arn = Lens.lens (\ListDevicePools' {arn} -> arn) (\s@ListDevicePools' {} a -> s {arn = a} :: ListDevicePools)++instance Core.AWSPager ListDevicePools where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listDevicePoolsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listDevicePoolsResponse_devicePools+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listDevicePools_nextToken+          Lens..~ rs+          Lens.^? listDevicePoolsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListDevicePools where+  type+    AWSResponse ListDevicePools =+      ListDevicePoolsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListDevicePoolsResponse'+            Prelude.<$> (x Data..?> "devicePools" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListDevicePools where+  hashWithSalt _salt ListDevicePools' {..} =+    _salt+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` arn++instance Prelude.NFData ListDevicePools where+  rnf ListDevicePools' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf arn++instance Data.ToHeaders ListDevicePools where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ListDevicePools" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListDevicePools where+  toJSON ListDevicePools' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("nextToken" Data..=) Prelude.<$> nextToken,+            ("type" Data..=) Prelude.<$> type',+            Prelude.Just ("arn" Data..= arn)+          ]+      )++instance Data.ToPath ListDevicePools where+  toPath = Prelude.const "/"++instance Data.ToQuery ListDevicePools where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a list device pools request.+--+-- /See:/ 'newListDevicePoolsResponse' smart constructor.+data ListDevicePoolsResponse = ListDevicePoolsResponse'+  { -- | Information about the device pools.+    devicePools :: Prelude.Maybe [DevicePool],+    -- | If the number of items that are returned is significantly large, this is+    -- an identifier that is also returned. It can be used in a subsequent call+    -- to this operation to return the next set of items in the list.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListDevicePoolsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'devicePools', 'listDevicePoolsResponse_devicePools' - Information about the device pools.+--+-- 'nextToken', 'listDevicePoolsResponse_nextToken' - If the number of items that are returned is significantly large, this is+-- an identifier that is also returned. It can be used in a subsequent call+-- to this operation to return the next set of items in the list.+--+-- 'httpStatus', 'listDevicePoolsResponse_httpStatus' - The response's http status code.+newListDevicePoolsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListDevicePoolsResponse+newListDevicePoolsResponse pHttpStatus_ =+  ListDevicePoolsResponse'+    { devicePools =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Information about the device pools.+listDevicePoolsResponse_devicePools :: Lens.Lens' ListDevicePoolsResponse (Prelude.Maybe [DevicePool])+listDevicePoolsResponse_devicePools = Lens.lens (\ListDevicePoolsResponse' {devicePools} -> devicePools) (\s@ListDevicePoolsResponse' {} a -> s {devicePools = a} :: ListDevicePoolsResponse) Prelude.. Lens.mapping Lens.coerced++-- | If the number of items that are returned is significantly large, this is+-- an identifier that is also returned. It can be used in a subsequent call+-- to this operation to return the next set of items in the list.+listDevicePoolsResponse_nextToken :: Lens.Lens' ListDevicePoolsResponse (Prelude.Maybe Prelude.Text)+listDevicePoolsResponse_nextToken = Lens.lens (\ListDevicePoolsResponse' {nextToken} -> nextToken) (\s@ListDevicePoolsResponse' {} a -> s {nextToken = a} :: ListDevicePoolsResponse)++-- | The response's http status code.+listDevicePoolsResponse_httpStatus :: Lens.Lens' ListDevicePoolsResponse Prelude.Int+listDevicePoolsResponse_httpStatus = Lens.lens (\ListDevicePoolsResponse' {httpStatus} -> httpStatus) (\s@ListDevicePoolsResponse' {} a -> s {httpStatus = a} :: ListDevicePoolsResponse)++instance Prelude.NFData ListDevicePoolsResponse where+  rnf ListDevicePoolsResponse' {..} =+    Prelude.rnf devicePools+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/ListDevices.hs view
@@ -0,0 +1,444 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ListDevices+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about unique device types.+--+-- This operation returns paginated results.+module Amazonka.DeviceFarm.ListDevices+  ( -- * Creating a Request+    ListDevices (..),+    newListDevices,++    -- * Request Lenses+    listDevices_arn,+    listDevices_filters,+    listDevices_nextToken,++    -- * Destructuring the Response+    ListDevicesResponse (..),+    newListDevicesResponse,++    -- * Response Lenses+    listDevicesResponse_devices,+    listDevicesResponse_nextToken,+    listDevicesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents the result of a list devices request.+--+-- /See:/ 'newListDevices' smart constructor.+data ListDevices = ListDevices'+  { -- | The Amazon Resource Name (ARN) of the project.+    arn :: Prelude.Maybe Prelude.Text,+    -- | Used to select a set of devices. A filter is made up of an attribute, an+    -- operator, and one or more values.+    --+    -- -   Attribute: The aspect of a device such as platform or model used as+    --     the selection criteria in a device filter.+    --+    --     Allowed values include:+    --+    --     -   ARN: The Amazon Resource Name (ARN) of the device (for example,+    --         @arn:aws:devicefarm:us-west-2::device:12345Example@).+    --+    --     -   PLATFORM: The device platform. Valid values are ANDROID or IOS.+    --+    --     -   OS_VERSION: The operating system version (for example, 10.3.2).+    --+    --     -   MODEL: The device model (for example, iPad 5th Gen).+    --+    --     -   AVAILABILITY: The current availability of the device. Valid+    --         values are AVAILABLE, HIGHLY_AVAILABLE, BUSY, or+    --         TEMPORARY_NOT_AVAILABLE.+    --+    --     -   FORM_FACTOR: The device form factor. Valid values are PHONE or+    --         TABLET.+    --+    --     -   MANUFACTURER: The device manufacturer (for example, Apple).+    --+    --     -   REMOTE_ACCESS_ENABLED: Whether the device is enabled for remote+    --         access. Valid values are TRUE or FALSE.+    --+    --     -   REMOTE_DEBUG_ENABLED: Whether the device is enabled for remote+    --         debugging. Valid values are TRUE or FALSE. Because remote+    --         debugging is+    --         <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>,+    --         this attribute is ignored.+    --+    --     -   INSTANCE_ARN: The Amazon Resource Name (ARN) of the device+    --         instance.+    --+    --     -   INSTANCE_LABELS: The label of the device instance.+    --+    --     -   FLEET_TYPE: The fleet type. Valid values are PUBLIC or PRIVATE.+    --+    -- -   Operator: The filter operator.+    --+    --     -   The EQUALS operator is available for every attribute except+    --         INSTANCE_LABELS.+    --+    --     -   The CONTAINS operator is available for the INSTANCE_LABELS and+    --         MODEL attributes.+    --+    --     -   The IN and NOT_IN operators are available for the ARN,+    --         OS_VERSION, MODEL, MANUFACTURER, and INSTANCE_ARN attributes.+    --+    --     -   The LESS_THAN, GREATER_THAN, LESS_THAN_OR_EQUALS, and+    --         GREATER_THAN_OR_EQUALS operators are also available for the+    --         OS_VERSION attribute.+    --+    -- -   Values: An array of one or more filter values.+    --+    --     -   The IN and NOT_IN operators take a values array that has one or+    --         more elements.+    --+    --     -   The other operators require an array with a single element.+    --+    --     -   In a request, the AVAILABILITY attribute takes the following+    --         values: AVAILABLE, HIGHLY_AVAILABLE, BUSY, or+    --         TEMPORARY_NOT_AVAILABLE.+    filters :: Prelude.Maybe [DeviceFilter],+    -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListDevices' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'listDevices_arn' - The Amazon Resource Name (ARN) of the project.+--+-- 'filters', 'listDevices_filters' - Used to select a set of devices. A filter is made up of an attribute, an+-- operator, and one or more values.+--+-- -   Attribute: The aspect of a device such as platform or model used as+--     the selection criteria in a device filter.+--+--     Allowed values include:+--+--     -   ARN: The Amazon Resource Name (ARN) of the device (for example,+--         @arn:aws:devicefarm:us-west-2::device:12345Example@).+--+--     -   PLATFORM: The device platform. Valid values are ANDROID or IOS.+--+--     -   OS_VERSION: The operating system version (for example, 10.3.2).+--+--     -   MODEL: The device model (for example, iPad 5th Gen).+--+--     -   AVAILABILITY: The current availability of the device. Valid+--         values are AVAILABLE, HIGHLY_AVAILABLE, BUSY, or+--         TEMPORARY_NOT_AVAILABLE.+--+--     -   FORM_FACTOR: The device form factor. Valid values are PHONE or+--         TABLET.+--+--     -   MANUFACTURER: The device manufacturer (for example, Apple).+--+--     -   REMOTE_ACCESS_ENABLED: Whether the device is enabled for remote+--         access. Valid values are TRUE or FALSE.+--+--     -   REMOTE_DEBUG_ENABLED: Whether the device is enabled for remote+--         debugging. Valid values are TRUE or FALSE. Because remote+--         debugging is+--         <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>,+--         this attribute is ignored.+--+--     -   INSTANCE_ARN: The Amazon Resource Name (ARN) of the device+--         instance.+--+--     -   INSTANCE_LABELS: The label of the device instance.+--+--     -   FLEET_TYPE: The fleet type. Valid values are PUBLIC or PRIVATE.+--+-- -   Operator: The filter operator.+--+--     -   The EQUALS operator is available for every attribute except+--         INSTANCE_LABELS.+--+--     -   The CONTAINS operator is available for the INSTANCE_LABELS and+--         MODEL attributes.+--+--     -   The IN and NOT_IN operators are available for the ARN,+--         OS_VERSION, MODEL, MANUFACTURER, and INSTANCE_ARN attributes.+--+--     -   The LESS_THAN, GREATER_THAN, LESS_THAN_OR_EQUALS, and+--         GREATER_THAN_OR_EQUALS operators are also available for the+--         OS_VERSION attribute.+--+-- -   Values: An array of one or more filter values.+--+--     -   The IN and NOT_IN operators take a values array that has one or+--         more elements.+--+--     -   The other operators require an array with a single element.+--+--     -   In a request, the AVAILABILITY attribute takes the following+--         values: AVAILABLE, HIGHLY_AVAILABLE, BUSY, or+--         TEMPORARY_NOT_AVAILABLE.+--+-- 'nextToken', 'listDevices_nextToken' - 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.+newListDevices ::+  ListDevices+newListDevices =+  ListDevices'+    { arn = Prelude.Nothing,+      filters = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | The Amazon Resource Name (ARN) of the project.+listDevices_arn :: Lens.Lens' ListDevices (Prelude.Maybe Prelude.Text)+listDevices_arn = Lens.lens (\ListDevices' {arn} -> arn) (\s@ListDevices' {} a -> s {arn = a} :: ListDevices)++-- | Used to select a set of devices. A filter is made up of an attribute, an+-- operator, and one or more values.+--+-- -   Attribute: The aspect of a device such as platform or model used as+--     the selection criteria in a device filter.+--+--     Allowed values include:+--+--     -   ARN: The Amazon Resource Name (ARN) of the device (for example,+--         @arn:aws:devicefarm:us-west-2::device:12345Example@).+--+--     -   PLATFORM: The device platform. Valid values are ANDROID or IOS.+--+--     -   OS_VERSION: The operating system version (for example, 10.3.2).+--+--     -   MODEL: The device model (for example, iPad 5th Gen).+--+--     -   AVAILABILITY: The current availability of the device. Valid+--         values are AVAILABLE, HIGHLY_AVAILABLE, BUSY, or+--         TEMPORARY_NOT_AVAILABLE.+--+--     -   FORM_FACTOR: The device form factor. Valid values are PHONE or+--         TABLET.+--+--     -   MANUFACTURER: The device manufacturer (for example, Apple).+--+--     -   REMOTE_ACCESS_ENABLED: Whether the device is enabled for remote+--         access. Valid values are TRUE or FALSE.+--+--     -   REMOTE_DEBUG_ENABLED: Whether the device is enabled for remote+--         debugging. Valid values are TRUE or FALSE. Because remote+--         debugging is+--         <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>,+--         this attribute is ignored.+--+--     -   INSTANCE_ARN: The Amazon Resource Name (ARN) of the device+--         instance.+--+--     -   INSTANCE_LABELS: The label of the device instance.+--+--     -   FLEET_TYPE: The fleet type. Valid values are PUBLIC or PRIVATE.+--+-- -   Operator: The filter operator.+--+--     -   The EQUALS operator is available for every attribute except+--         INSTANCE_LABELS.+--+--     -   The CONTAINS operator is available for the INSTANCE_LABELS and+--         MODEL attributes.+--+--     -   The IN and NOT_IN operators are available for the ARN,+--         OS_VERSION, MODEL, MANUFACTURER, and INSTANCE_ARN attributes.+--+--     -   The LESS_THAN, GREATER_THAN, LESS_THAN_OR_EQUALS, and+--         GREATER_THAN_OR_EQUALS operators are also available for the+--         OS_VERSION attribute.+--+-- -   Values: An array of one or more filter values.+--+--     -   The IN and NOT_IN operators take a values array that has one or+--         more elements.+--+--     -   The other operators require an array with a single element.+--+--     -   In a request, the AVAILABILITY attribute takes the following+--         values: AVAILABLE, HIGHLY_AVAILABLE, BUSY, or+--         TEMPORARY_NOT_AVAILABLE.+listDevices_filters :: Lens.Lens' ListDevices (Prelude.Maybe [DeviceFilter])+listDevices_filters = Lens.lens (\ListDevices' {filters} -> filters) (\s@ListDevices' {} a -> s {filters = a} :: ListDevices) Prelude.. Lens.mapping Lens.coerced++-- | 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.+listDevices_nextToken :: Lens.Lens' ListDevices (Prelude.Maybe Prelude.Text)+listDevices_nextToken = Lens.lens (\ListDevices' {nextToken} -> nextToken) (\s@ListDevices' {} a -> s {nextToken = a} :: ListDevices)++instance Core.AWSPager ListDevices where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listDevicesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listDevicesResponse_devices+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listDevices_nextToken+          Lens..~ rs+          Lens.^? listDevicesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListDevices where+  type AWSResponse ListDevices = ListDevicesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListDevicesResponse'+            Prelude.<$> (x Data..?> "devices" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListDevices where+  hashWithSalt _salt ListDevices' {..} =+    _salt+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` filters+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListDevices where+  rnf ListDevices' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf filters+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListDevices where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ListDevices" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListDevices where+  toJSON ListDevices' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("arn" Data..=) Prelude.<$> arn,+            ("filters" Data..=) Prelude.<$> filters,+            ("nextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath ListDevices where+  toPath = Prelude.const "/"++instance Data.ToQuery ListDevices where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a list devices operation.+--+-- /See:/ 'newListDevicesResponse' smart constructor.+data ListDevicesResponse = ListDevicesResponse'+  { -- | Information about the devices.+    devices :: Prelude.Maybe [Device],+    -- | If the number of items that are returned is significantly large, this is+    -- an identifier that is also returned. It can be used in a subsequent call+    -- to this operation to return the next set of items in the list.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListDevicesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'devices', 'listDevicesResponse_devices' - Information about the devices.+--+-- 'nextToken', 'listDevicesResponse_nextToken' - If the number of items that are returned is significantly large, this is+-- an identifier that is also returned. It can be used in a subsequent call+-- to this operation to return the next set of items in the list.+--+-- 'httpStatus', 'listDevicesResponse_httpStatus' - The response's http status code.+newListDevicesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListDevicesResponse+newListDevicesResponse pHttpStatus_ =+  ListDevicesResponse'+    { devices = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Information about the devices.+listDevicesResponse_devices :: Lens.Lens' ListDevicesResponse (Prelude.Maybe [Device])+listDevicesResponse_devices = Lens.lens (\ListDevicesResponse' {devices} -> devices) (\s@ListDevicesResponse' {} a -> s {devices = a} :: ListDevicesResponse) Prelude.. Lens.mapping Lens.coerced++-- | If the number of items that are returned is significantly large, this is+-- an identifier that is also returned. It can be used in a subsequent call+-- to this operation to return the next set of items in the list.+listDevicesResponse_nextToken :: Lens.Lens' ListDevicesResponse (Prelude.Maybe Prelude.Text)+listDevicesResponse_nextToken = Lens.lens (\ListDevicesResponse' {nextToken} -> nextToken) (\s@ListDevicesResponse' {} a -> s {nextToken = a} :: ListDevicesResponse)++-- | The response's http status code.+listDevicesResponse_httpStatus :: Lens.Lens' ListDevicesResponse Prelude.Int+listDevicesResponse_httpStatus = Lens.lens (\ListDevicesResponse' {httpStatus} -> httpStatus) (\s@ListDevicesResponse' {} a -> s {httpStatus = a} :: ListDevicesResponse)++instance Prelude.NFData ListDevicesResponse where+  rnf ListDevicesResponse' {..} =+    Prelude.rnf devices+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/ListInstanceProfiles.hs view
@@ -0,0 +1,235 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ListInstanceProfiles+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about all the instance profiles in an AWS account.+--+-- This operation returns paginated results.+module Amazonka.DeviceFarm.ListInstanceProfiles+  ( -- * Creating a Request+    ListInstanceProfiles (..),+    newListInstanceProfiles,++    -- * Request Lenses+    listInstanceProfiles_maxResults,+    listInstanceProfiles_nextToken,++    -- * Destructuring the Response+    ListInstanceProfilesResponse (..),+    newListInstanceProfilesResponse,++    -- * Response Lenses+    listInstanceProfilesResponse_instanceProfiles,+    listInstanceProfilesResponse_nextToken,+    listInstanceProfilesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListInstanceProfiles' smart constructor.+data ListInstanceProfiles = ListInstanceProfiles'+  { -- | An integer that specifies the maximum number of items you want to return+    -- in the API response.+    maxResults :: Prelude.Maybe Prelude.Int,+    -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListInstanceProfiles' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'listInstanceProfiles_maxResults' - An integer that specifies the maximum number of items you want to return+-- in the API response.+--+-- 'nextToken', 'listInstanceProfiles_nextToken' - 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.+newListInstanceProfiles ::+  ListInstanceProfiles+newListInstanceProfiles =+  ListInstanceProfiles'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | An integer that specifies the maximum number of items you want to return+-- in the API response.+listInstanceProfiles_maxResults :: Lens.Lens' ListInstanceProfiles (Prelude.Maybe Prelude.Int)+listInstanceProfiles_maxResults = Lens.lens (\ListInstanceProfiles' {maxResults} -> maxResults) (\s@ListInstanceProfiles' {} a -> s {maxResults = a} :: ListInstanceProfiles)++-- | 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.+listInstanceProfiles_nextToken :: Lens.Lens' ListInstanceProfiles (Prelude.Maybe Prelude.Text)+listInstanceProfiles_nextToken = Lens.lens (\ListInstanceProfiles' {nextToken} -> nextToken) (\s@ListInstanceProfiles' {} a -> s {nextToken = a} :: ListInstanceProfiles)++instance Core.AWSPager ListInstanceProfiles where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listInstanceProfilesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listInstanceProfilesResponse_instanceProfiles+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listInstanceProfiles_nextToken+          Lens..~ rs+          Lens.^? listInstanceProfilesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListInstanceProfiles where+  type+    AWSResponse ListInstanceProfiles =+      ListInstanceProfilesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListInstanceProfilesResponse'+            Prelude.<$> ( x+                            Data..?> "instanceProfiles"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListInstanceProfiles where+  hashWithSalt _salt ListInstanceProfiles' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListInstanceProfiles where+  rnf ListInstanceProfiles' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListInstanceProfiles where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ListInstanceProfiles" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListInstanceProfiles where+  toJSON ListInstanceProfiles' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath ListInstanceProfiles where+  toPath = Prelude.const "/"++instance Data.ToQuery ListInstanceProfiles where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListInstanceProfilesResponse' smart constructor.+data ListInstanceProfilesResponse = ListInstanceProfilesResponse'+  { -- | An object that contains information about your instance profiles.+    instanceProfiles :: Prelude.Maybe [InstanceProfile],+    -- | An identifier that can be used in the next call to this operation to+    -- return the next set of items in the list.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListInstanceProfilesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'instanceProfiles', 'listInstanceProfilesResponse_instanceProfiles' - An object that contains information about your instance profiles.+--+-- 'nextToken', 'listInstanceProfilesResponse_nextToken' - An identifier that can be used in the next call to this operation to+-- return the next set of items in the list.+--+-- 'httpStatus', 'listInstanceProfilesResponse_httpStatus' - The response's http status code.+newListInstanceProfilesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListInstanceProfilesResponse+newListInstanceProfilesResponse pHttpStatus_ =+  ListInstanceProfilesResponse'+    { instanceProfiles =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An object that contains information about your instance profiles.+listInstanceProfilesResponse_instanceProfiles :: Lens.Lens' ListInstanceProfilesResponse (Prelude.Maybe [InstanceProfile])+listInstanceProfilesResponse_instanceProfiles = Lens.lens (\ListInstanceProfilesResponse' {instanceProfiles} -> instanceProfiles) (\s@ListInstanceProfilesResponse' {} a -> s {instanceProfiles = a} :: ListInstanceProfilesResponse) Prelude.. Lens.mapping Lens.coerced++-- | An identifier that can be used in the next call to this operation to+-- return the next set of items in the list.+listInstanceProfilesResponse_nextToken :: Lens.Lens' ListInstanceProfilesResponse (Prelude.Maybe Prelude.Text)+listInstanceProfilesResponse_nextToken = Lens.lens (\ListInstanceProfilesResponse' {nextToken} -> nextToken) (\s@ListInstanceProfilesResponse' {} a -> s {nextToken = a} :: ListInstanceProfilesResponse)++-- | The response's http status code.+listInstanceProfilesResponse_httpStatus :: Lens.Lens' ListInstanceProfilesResponse Prelude.Int+listInstanceProfilesResponse_httpStatus = Lens.lens (\ListInstanceProfilesResponse' {httpStatus} -> httpStatus) (\s@ListInstanceProfilesResponse' {} a -> s {httpStatus = a} :: ListInstanceProfilesResponse)++instance Prelude.NFData ListInstanceProfilesResponse where+  rnf ListInstanceProfilesResponse' {..} =+    Prelude.rnf instanceProfiles+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/ListJobs.hs view
@@ -0,0 +1,231 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ListJobs+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about jobs for a given test run.+--+-- This operation returns paginated results.+module Amazonka.DeviceFarm.ListJobs+  ( -- * Creating a Request+    ListJobs (..),+    newListJobs,++    -- * Request Lenses+    listJobs_nextToken,+    listJobs_arn,++    -- * Destructuring the Response+    ListJobsResponse (..),+    newListJobsResponse,++    -- * Response Lenses+    listJobsResponse_jobs,+    listJobsResponse_nextToken,+    listJobsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the list jobs operation.+--+-- /See:/ 'newListJobs' smart constructor.+data ListJobs = ListJobs'+  { -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The run\'s Amazon Resource Name (ARN).+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListJobs' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listJobs_nextToken' - 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.+--+-- 'arn', 'listJobs_arn' - The run\'s Amazon Resource Name (ARN).+newListJobs ::+  -- | 'arn'+  Prelude.Text ->+  ListJobs+newListJobs pArn_ =+  ListJobs' {nextToken = Prelude.Nothing, arn = 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.+listJobs_nextToken :: Lens.Lens' ListJobs (Prelude.Maybe Prelude.Text)+listJobs_nextToken = Lens.lens (\ListJobs' {nextToken} -> nextToken) (\s@ListJobs' {} a -> s {nextToken = a} :: ListJobs)++-- | The run\'s Amazon Resource Name (ARN).+listJobs_arn :: Lens.Lens' ListJobs Prelude.Text+listJobs_arn = Lens.lens (\ListJobs' {arn} -> arn) (\s@ListJobs' {} a -> s {arn = a} :: ListJobs)++instance Core.AWSPager ListJobs where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listJobsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listJobsResponse_jobs+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listJobs_nextToken+          Lens..~ rs+          Lens.^? listJobsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListJobs where+  type AWSResponse ListJobs = ListJobsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListJobsResponse'+            Prelude.<$> (x Data..?> "jobs" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListJobs where+  hashWithSalt _salt ListJobs' {..} =+    _salt+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` arn++instance Prelude.NFData ListJobs where+  rnf ListJobs' {..} =+    Prelude.rnf nextToken `Prelude.seq` Prelude.rnf arn++instance Data.ToHeaders ListJobs where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ListJobs" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListJobs where+  toJSON ListJobs' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("arn" Data..= arn)+          ]+      )++instance Data.ToPath ListJobs where+  toPath = Prelude.const "/"++instance Data.ToQuery ListJobs where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a list jobs request.+--+-- /See:/ 'newListJobsResponse' smart constructor.+data ListJobsResponse = ListJobsResponse'+  { -- | Information about the jobs.+    jobs :: Prelude.Maybe [Job],+    -- | If the number of items that are returned is significantly large, this is+    -- an identifier that is also returned. It can be used in a subsequent call+    -- to this operation to return the next set of items in the list.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListJobsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'jobs', 'listJobsResponse_jobs' - Information about the jobs.+--+-- 'nextToken', 'listJobsResponse_nextToken' - If the number of items that are returned is significantly large, this is+-- an identifier that is also returned. It can be used in a subsequent call+-- to this operation to return the next set of items in the list.+--+-- 'httpStatus', 'listJobsResponse_httpStatus' - The response's http status code.+newListJobsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListJobsResponse+newListJobsResponse pHttpStatus_ =+  ListJobsResponse'+    { jobs = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Information about the jobs.+listJobsResponse_jobs :: Lens.Lens' ListJobsResponse (Prelude.Maybe [Job])+listJobsResponse_jobs = Lens.lens (\ListJobsResponse' {jobs} -> jobs) (\s@ListJobsResponse' {} a -> s {jobs = a} :: ListJobsResponse) Prelude.. Lens.mapping Lens.coerced++-- | If the number of items that are returned is significantly large, this is+-- an identifier that is also returned. It can be used in a subsequent call+-- to this operation to return the next set of items in the list.+listJobsResponse_nextToken :: Lens.Lens' ListJobsResponse (Prelude.Maybe Prelude.Text)+listJobsResponse_nextToken = Lens.lens (\ListJobsResponse' {nextToken} -> nextToken) (\s@ListJobsResponse' {} a -> s {nextToken = a} :: ListJobsResponse)++-- | The response's http status code.+listJobsResponse_httpStatus :: Lens.Lens' ListJobsResponse Prelude.Int+listJobsResponse_httpStatus = Lens.lens (\ListJobsResponse' {httpStatus} -> httpStatus) (\s@ListJobsResponse' {} a -> s {httpStatus = a} :: ListJobsResponse)++instance Prelude.NFData ListJobsResponse where+  rnf ListJobsResponse' {..} =+    Prelude.rnf jobs+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/ListNetworkProfiles.hs view
@@ -0,0 +1,256 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ListNetworkProfiles+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the list of available network profiles.+--+-- This operation returns paginated results.+module Amazonka.DeviceFarm.ListNetworkProfiles+  ( -- * Creating a Request+    ListNetworkProfiles (..),+    newListNetworkProfiles,++    -- * Request Lenses+    listNetworkProfiles_nextToken,+    listNetworkProfiles_type,+    listNetworkProfiles_arn,++    -- * Destructuring the Response+    ListNetworkProfilesResponse (..),+    newListNetworkProfilesResponse,++    -- * Response Lenses+    listNetworkProfilesResponse_networkProfiles,+    listNetworkProfilesResponse_nextToken,+    listNetworkProfilesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListNetworkProfiles' smart constructor.+data ListNetworkProfiles = ListNetworkProfiles'+  { -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The type of network profile to return information about. Valid values+    -- are listed here.+    type' :: Prelude.Maybe NetworkProfileType,+    -- | The Amazon Resource Name (ARN) of the project for which you want to list+    -- network profiles.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListNetworkProfiles' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listNetworkProfiles_nextToken' - 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.+--+-- 'type'', 'listNetworkProfiles_type' - The type of network profile to return information about. Valid values+-- are listed here.+--+-- 'arn', 'listNetworkProfiles_arn' - The Amazon Resource Name (ARN) of the project for which you want to list+-- network profiles.+newListNetworkProfiles ::+  -- | 'arn'+  Prelude.Text ->+  ListNetworkProfiles+newListNetworkProfiles pArn_ =+  ListNetworkProfiles'+    { nextToken = Prelude.Nothing,+      type' = Prelude.Nothing,+      arn = 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.+listNetworkProfiles_nextToken :: Lens.Lens' ListNetworkProfiles (Prelude.Maybe Prelude.Text)+listNetworkProfiles_nextToken = Lens.lens (\ListNetworkProfiles' {nextToken} -> nextToken) (\s@ListNetworkProfiles' {} a -> s {nextToken = a} :: ListNetworkProfiles)++-- | The type of network profile to return information about. Valid values+-- are listed here.+listNetworkProfiles_type :: Lens.Lens' ListNetworkProfiles (Prelude.Maybe NetworkProfileType)+listNetworkProfiles_type = Lens.lens (\ListNetworkProfiles' {type'} -> type') (\s@ListNetworkProfiles' {} a -> s {type' = a} :: ListNetworkProfiles)++-- | The Amazon Resource Name (ARN) of the project for which you want to list+-- network profiles.+listNetworkProfiles_arn :: Lens.Lens' ListNetworkProfiles Prelude.Text+listNetworkProfiles_arn = Lens.lens (\ListNetworkProfiles' {arn} -> arn) (\s@ListNetworkProfiles' {} a -> s {arn = a} :: ListNetworkProfiles)++instance Core.AWSPager ListNetworkProfiles where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listNetworkProfilesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listNetworkProfilesResponse_networkProfiles+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listNetworkProfiles_nextToken+          Lens..~ rs+          Lens.^? listNetworkProfilesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListNetworkProfiles where+  type+    AWSResponse ListNetworkProfiles =+      ListNetworkProfilesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListNetworkProfilesResponse'+            Prelude.<$> ( x+                            Data..?> "networkProfiles"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListNetworkProfiles where+  hashWithSalt _salt ListNetworkProfiles' {..} =+    _salt+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` arn++instance Prelude.NFData ListNetworkProfiles where+  rnf ListNetworkProfiles' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf arn++instance Data.ToHeaders ListNetworkProfiles where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ListNetworkProfiles" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListNetworkProfiles where+  toJSON ListNetworkProfiles' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("nextToken" Data..=) Prelude.<$> nextToken,+            ("type" Data..=) Prelude.<$> type',+            Prelude.Just ("arn" Data..= arn)+          ]+      )++instance Data.ToPath ListNetworkProfiles where+  toPath = Prelude.const "/"++instance Data.ToQuery ListNetworkProfiles where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListNetworkProfilesResponse' smart constructor.+data ListNetworkProfilesResponse = ListNetworkProfilesResponse'+  { -- | A list of the available network profiles.+    networkProfiles :: Prelude.Maybe [NetworkProfile],+    -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListNetworkProfilesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'networkProfiles', 'listNetworkProfilesResponse_networkProfiles' - A list of the available network profiles.+--+-- 'nextToken', 'listNetworkProfilesResponse_nextToken' - 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.+--+-- 'httpStatus', 'listNetworkProfilesResponse_httpStatus' - The response's http status code.+newListNetworkProfilesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListNetworkProfilesResponse+newListNetworkProfilesResponse pHttpStatus_ =+  ListNetworkProfilesResponse'+    { networkProfiles =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A list of the available network profiles.+listNetworkProfilesResponse_networkProfiles :: Lens.Lens' ListNetworkProfilesResponse (Prelude.Maybe [NetworkProfile])+listNetworkProfilesResponse_networkProfiles = Lens.lens (\ListNetworkProfilesResponse' {networkProfiles} -> networkProfiles) (\s@ListNetworkProfilesResponse' {} a -> s {networkProfiles = a} :: ListNetworkProfilesResponse) Prelude.. Lens.mapping Lens.coerced++-- | 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.+listNetworkProfilesResponse_nextToken :: Lens.Lens' ListNetworkProfilesResponse (Prelude.Maybe Prelude.Text)+listNetworkProfilesResponse_nextToken = Lens.lens (\ListNetworkProfilesResponse' {nextToken} -> nextToken) (\s@ListNetworkProfilesResponse' {} a -> s {nextToken = a} :: ListNetworkProfilesResponse)++-- | The response's http status code.+listNetworkProfilesResponse_httpStatus :: Lens.Lens' ListNetworkProfilesResponse Prelude.Int+listNetworkProfilesResponse_httpStatus = Lens.lens (\ListNetworkProfilesResponse' {httpStatus} -> httpStatus) (\s@ListNetworkProfilesResponse' {} a -> s {httpStatus = a} :: ListNetworkProfilesResponse)++instance Prelude.NFData ListNetworkProfilesResponse where+  rnf ListNetworkProfilesResponse' {..} =+    Prelude.rnf networkProfiles+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/ListOfferingPromotions.hs view
@@ -0,0 +1,226 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ListOfferingPromotions+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of offering promotions. Each offering promotion record+-- contains the ID and description of the promotion. The API returns a+-- @NotEligible@ error if the caller is not permitted to invoke the+-- operation. Contact+-- <mailto:aws-devicefarm-support@amazon.com aws-devicefarm-support\@amazon.com>+-- if you must be able to invoke this operation.+--+-- This operation returns paginated results.+module Amazonka.DeviceFarm.ListOfferingPromotions+  ( -- * Creating a Request+    ListOfferingPromotions (..),+    newListOfferingPromotions,++    -- * Request Lenses+    listOfferingPromotions_nextToken,++    -- * Destructuring the Response+    ListOfferingPromotionsResponse (..),+    newListOfferingPromotionsResponse,++    -- * Response Lenses+    listOfferingPromotionsResponse_nextToken,+    listOfferingPromotionsResponse_offeringPromotions,+    listOfferingPromotionsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListOfferingPromotions' smart constructor.+data ListOfferingPromotions = ListOfferingPromotions'+  { -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListOfferingPromotions' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listOfferingPromotions_nextToken' - 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.+newListOfferingPromotions ::+  ListOfferingPromotions+newListOfferingPromotions =+  ListOfferingPromotions'+    { nextToken =+        Prelude.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.+listOfferingPromotions_nextToken :: Lens.Lens' ListOfferingPromotions (Prelude.Maybe Prelude.Text)+listOfferingPromotions_nextToken = Lens.lens (\ListOfferingPromotions' {nextToken} -> nextToken) (\s@ListOfferingPromotions' {} a -> s {nextToken = a} :: ListOfferingPromotions)++instance Core.AWSPager ListOfferingPromotions where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listOfferingPromotionsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listOfferingPromotionsResponse_offeringPromotions+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listOfferingPromotions_nextToken+          Lens..~ rs+          Lens.^? listOfferingPromotionsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListOfferingPromotions where+  type+    AWSResponse ListOfferingPromotions =+      ListOfferingPromotionsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListOfferingPromotionsResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> ( x+                            Data..?> "offeringPromotions"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListOfferingPromotions where+  hashWithSalt _salt ListOfferingPromotions' {..} =+    _salt `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListOfferingPromotions where+  rnf ListOfferingPromotions' {..} =+    Prelude.rnf nextToken++instance Data.ToHeaders ListOfferingPromotions where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ListOfferingPromotions" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListOfferingPromotions where+  toJSON ListOfferingPromotions' {..} =+    Data.object+      ( Prelude.catMaybes+          [("nextToken" Data..=) Prelude.<$> nextToken]+      )++instance Data.ToPath ListOfferingPromotions where+  toPath = Prelude.const "/"++instance Data.ToQuery ListOfferingPromotions where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListOfferingPromotionsResponse' smart constructor.+data ListOfferingPromotionsResponse = ListOfferingPromotionsResponse'+  { -- | An identifier to be used in the next call to this operation, to return+    -- the next set of items in the list.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Information about the offering promotions.+    offeringPromotions :: Prelude.Maybe [OfferingPromotion],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListOfferingPromotionsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listOfferingPromotionsResponse_nextToken' - An identifier to be used in the next call to this operation, to return+-- the next set of items in the list.+--+-- 'offeringPromotions', 'listOfferingPromotionsResponse_offeringPromotions' - Information about the offering promotions.+--+-- 'httpStatus', 'listOfferingPromotionsResponse_httpStatus' - The response's http status code.+newListOfferingPromotionsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListOfferingPromotionsResponse+newListOfferingPromotionsResponse pHttpStatus_ =+  ListOfferingPromotionsResponse'+    { nextToken =+        Prelude.Nothing,+      offeringPromotions = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An identifier to be used in the next call to this operation, to return+-- the next set of items in the list.+listOfferingPromotionsResponse_nextToken :: Lens.Lens' ListOfferingPromotionsResponse (Prelude.Maybe Prelude.Text)+listOfferingPromotionsResponse_nextToken = Lens.lens (\ListOfferingPromotionsResponse' {nextToken} -> nextToken) (\s@ListOfferingPromotionsResponse' {} a -> s {nextToken = a} :: ListOfferingPromotionsResponse)++-- | Information about the offering promotions.+listOfferingPromotionsResponse_offeringPromotions :: Lens.Lens' ListOfferingPromotionsResponse (Prelude.Maybe [OfferingPromotion])+listOfferingPromotionsResponse_offeringPromotions = Lens.lens (\ListOfferingPromotionsResponse' {offeringPromotions} -> offeringPromotions) (\s@ListOfferingPromotionsResponse' {} a -> s {offeringPromotions = a} :: ListOfferingPromotionsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listOfferingPromotionsResponse_httpStatus :: Lens.Lens' ListOfferingPromotionsResponse Prelude.Int+listOfferingPromotionsResponse_httpStatus = Lens.lens (\ListOfferingPromotionsResponse' {httpStatus} -> httpStatus) (\s@ListOfferingPromotionsResponse' {} a -> s {httpStatus = a} :: ListOfferingPromotionsResponse)++instance+  Prelude.NFData+    ListOfferingPromotionsResponse+  where+  rnf ListOfferingPromotionsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf offeringPromotions+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/ListOfferingTransactions.hs view
@@ -0,0 +1,236 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ListOfferingTransactions+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of all historical purchases, renewals, and system renewal+-- transactions for an AWS account. The list is paginated and ordered by a+-- descending timestamp (most recent transactions are first). The API+-- returns a @NotEligible@ error if the user is not permitted to invoke the+-- operation. If you must be able to invoke this operation, contact+-- <mailto:aws-devicefarm-support@amazon.com aws-devicefarm-support\@amazon.com>.+--+-- This operation returns paginated results.+module Amazonka.DeviceFarm.ListOfferingTransactions+  ( -- * Creating a Request+    ListOfferingTransactions (..),+    newListOfferingTransactions,++    -- * Request Lenses+    listOfferingTransactions_nextToken,++    -- * Destructuring the Response+    ListOfferingTransactionsResponse (..),+    newListOfferingTransactionsResponse,++    -- * Response Lenses+    listOfferingTransactionsResponse_nextToken,+    listOfferingTransactionsResponse_offeringTransactions,+    listOfferingTransactionsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents the request to list the offering transaction history.+--+-- /See:/ 'newListOfferingTransactions' smart constructor.+data ListOfferingTransactions = ListOfferingTransactions'+  { -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListOfferingTransactions' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listOfferingTransactions_nextToken' - 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.+newListOfferingTransactions ::+  ListOfferingTransactions+newListOfferingTransactions =+  ListOfferingTransactions'+    { nextToken =+        Prelude.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.+listOfferingTransactions_nextToken :: Lens.Lens' ListOfferingTransactions (Prelude.Maybe Prelude.Text)+listOfferingTransactions_nextToken = Lens.lens (\ListOfferingTransactions' {nextToken} -> nextToken) (\s@ListOfferingTransactions' {} a -> s {nextToken = a} :: ListOfferingTransactions)++instance Core.AWSPager ListOfferingTransactions where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listOfferingTransactionsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listOfferingTransactionsResponse_offeringTransactions+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listOfferingTransactions_nextToken+          Lens..~ rs+          Lens.^? listOfferingTransactionsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListOfferingTransactions where+  type+    AWSResponse ListOfferingTransactions =+      ListOfferingTransactionsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListOfferingTransactionsResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> ( x+                            Data..?> "offeringTransactions"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListOfferingTransactions where+  hashWithSalt _salt ListOfferingTransactions' {..} =+    _salt `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListOfferingTransactions where+  rnf ListOfferingTransactions' {..} =+    Prelude.rnf nextToken++instance Data.ToHeaders ListOfferingTransactions where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ListOfferingTransactions" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListOfferingTransactions where+  toJSON ListOfferingTransactions' {..} =+    Data.object+      ( Prelude.catMaybes+          [("nextToken" Data..=) Prelude.<$> nextToken]+      )++instance Data.ToPath ListOfferingTransactions where+  toPath = Prelude.const "/"++instance Data.ToQuery ListOfferingTransactions where+  toQuery = Prelude.const Prelude.mempty++-- | Returns the transaction log of the specified offerings.+--+-- /See:/ 'newListOfferingTransactionsResponse' smart constructor.+data ListOfferingTransactionsResponse = ListOfferingTransactionsResponse'+  { -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The audit log of subscriptions you have purchased and modified through+    -- AWS Device Farm.+    offeringTransactions :: Prelude.Maybe [OfferingTransaction],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListOfferingTransactionsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listOfferingTransactionsResponse_nextToken' - 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.+--+-- 'offeringTransactions', 'listOfferingTransactionsResponse_offeringTransactions' - The audit log of subscriptions you have purchased and modified through+-- AWS Device Farm.+--+-- 'httpStatus', 'listOfferingTransactionsResponse_httpStatus' - The response's http status code.+newListOfferingTransactionsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListOfferingTransactionsResponse+newListOfferingTransactionsResponse pHttpStatus_ =+  ListOfferingTransactionsResponse'+    { nextToken =+        Prelude.Nothing,+      offeringTransactions = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | 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.+listOfferingTransactionsResponse_nextToken :: Lens.Lens' ListOfferingTransactionsResponse (Prelude.Maybe Prelude.Text)+listOfferingTransactionsResponse_nextToken = Lens.lens (\ListOfferingTransactionsResponse' {nextToken} -> nextToken) (\s@ListOfferingTransactionsResponse' {} a -> s {nextToken = a} :: ListOfferingTransactionsResponse)++-- | The audit log of subscriptions you have purchased and modified through+-- AWS Device Farm.+listOfferingTransactionsResponse_offeringTransactions :: Lens.Lens' ListOfferingTransactionsResponse (Prelude.Maybe [OfferingTransaction])+listOfferingTransactionsResponse_offeringTransactions = Lens.lens (\ListOfferingTransactionsResponse' {offeringTransactions} -> offeringTransactions) (\s@ListOfferingTransactionsResponse' {} a -> s {offeringTransactions = a} :: ListOfferingTransactionsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listOfferingTransactionsResponse_httpStatus :: Lens.Lens' ListOfferingTransactionsResponse Prelude.Int+listOfferingTransactionsResponse_httpStatus = Lens.lens (\ListOfferingTransactionsResponse' {httpStatus} -> httpStatus) (\s@ListOfferingTransactionsResponse' {} a -> s {httpStatus = a} :: ListOfferingTransactionsResponse)++instance+  Prelude.NFData+    ListOfferingTransactionsResponse+  where+  rnf ListOfferingTransactionsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf offeringTransactions+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/ListOfferings.hs view
@@ -0,0 +1,222 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ListOfferings+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of products or offerings that the user can manage through+-- the API. Each offering record indicates the recurring price per unit and+-- the frequency for that offering. The API returns a @NotEligible@ error+-- if the user is not permitted to invoke the operation. If you must be+-- able to invoke this operation, contact+-- <mailto:aws-devicefarm-support@amazon.com aws-devicefarm-support\@amazon.com>.+--+-- This operation returns paginated results.+module Amazonka.DeviceFarm.ListOfferings+  ( -- * Creating a Request+    ListOfferings (..),+    newListOfferings,++    -- * Request Lenses+    listOfferings_nextToken,++    -- * Destructuring the Response+    ListOfferingsResponse (..),+    newListOfferingsResponse,++    -- * Response Lenses+    listOfferingsResponse_nextToken,+    listOfferingsResponse_offerings,+    listOfferingsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents the request to list all offerings.+--+-- /See:/ 'newListOfferings' smart constructor.+data ListOfferings = ListOfferings'+  { -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListOfferings' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listOfferings_nextToken' - 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.+newListOfferings ::+  ListOfferings+newListOfferings =+  ListOfferings' {nextToken = Prelude.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.+listOfferings_nextToken :: Lens.Lens' ListOfferings (Prelude.Maybe Prelude.Text)+listOfferings_nextToken = Lens.lens (\ListOfferings' {nextToken} -> nextToken) (\s@ListOfferings' {} a -> s {nextToken = a} :: ListOfferings)++instance Core.AWSPager ListOfferings where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listOfferingsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listOfferingsResponse_offerings+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listOfferings_nextToken+          Lens..~ rs+          Lens.^? listOfferingsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListOfferings where+  type+    AWSResponse ListOfferings =+      ListOfferingsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListOfferingsResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (x Data..?> "offerings" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListOfferings where+  hashWithSalt _salt ListOfferings' {..} =+    _salt `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListOfferings where+  rnf ListOfferings' {..} = Prelude.rnf nextToken++instance Data.ToHeaders ListOfferings where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ListOfferings" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListOfferings where+  toJSON ListOfferings' {..} =+    Data.object+      ( Prelude.catMaybes+          [("nextToken" Data..=) Prelude.<$> nextToken]+      )++instance Data.ToPath ListOfferings where+  toPath = Prelude.const "/"++instance Data.ToQuery ListOfferings where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the return values of the list of offerings.+--+-- /See:/ 'newListOfferingsResponse' smart constructor.+data ListOfferingsResponse = ListOfferingsResponse'+  { -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | A value that represents the list offering results.+    offerings :: Prelude.Maybe [Offering],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListOfferingsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listOfferingsResponse_nextToken' - 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.+--+-- 'offerings', 'listOfferingsResponse_offerings' - A value that represents the list offering results.+--+-- 'httpStatus', 'listOfferingsResponse_httpStatus' - The response's http status code.+newListOfferingsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListOfferingsResponse+newListOfferingsResponse pHttpStatus_ =+  ListOfferingsResponse'+    { nextToken = Prelude.Nothing,+      offerings = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | 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.+listOfferingsResponse_nextToken :: Lens.Lens' ListOfferingsResponse (Prelude.Maybe Prelude.Text)+listOfferingsResponse_nextToken = Lens.lens (\ListOfferingsResponse' {nextToken} -> nextToken) (\s@ListOfferingsResponse' {} a -> s {nextToken = a} :: ListOfferingsResponse)++-- | A value that represents the list offering results.+listOfferingsResponse_offerings :: Lens.Lens' ListOfferingsResponse (Prelude.Maybe [Offering])+listOfferingsResponse_offerings = Lens.lens (\ListOfferingsResponse' {offerings} -> offerings) (\s@ListOfferingsResponse' {} a -> s {offerings = a} :: ListOfferingsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listOfferingsResponse_httpStatus :: Lens.Lens' ListOfferingsResponse Prelude.Int+listOfferingsResponse_httpStatus = Lens.lens (\ListOfferingsResponse' {httpStatus} -> httpStatus) (\s@ListOfferingsResponse' {} a -> s {httpStatus = a} :: ListOfferingsResponse)++instance Prelude.NFData ListOfferingsResponse where+  rnf ListOfferingsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf offerings+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/ListProjects.hs view
@@ -0,0 +1,238 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ListProjects+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about projects.+--+-- This operation returns paginated results.+module Amazonka.DeviceFarm.ListProjects+  ( -- * Creating a Request+    ListProjects (..),+    newListProjects,++    -- * Request Lenses+    listProjects_arn,+    listProjects_nextToken,++    -- * Destructuring the Response+    ListProjectsResponse (..),+    newListProjectsResponse,++    -- * Response Lenses+    listProjectsResponse_nextToken,+    listProjectsResponse_projects,+    listProjectsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the list projects operation.+--+-- /See:/ 'newListProjects' smart constructor.+data ListProjects = ListProjects'+  { -- | 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.+    arn :: Prelude.Maybe Prelude.Text,+    -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListProjects' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'listProjects_arn' - 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.+--+-- 'nextToken', 'listProjects_nextToken' - 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.+newListProjects ::+  ListProjects+newListProjects =+  ListProjects'+    { arn = Prelude.Nothing,+      nextToken = Prelude.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.+listProjects_arn :: Lens.Lens' ListProjects (Prelude.Maybe Prelude.Text)+listProjects_arn = Lens.lens (\ListProjects' {arn} -> arn) (\s@ListProjects' {} a -> s {arn = a} :: ListProjects)++-- | 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.+listProjects_nextToken :: Lens.Lens' ListProjects (Prelude.Maybe Prelude.Text)+listProjects_nextToken = Lens.lens (\ListProjects' {nextToken} -> nextToken) (\s@ListProjects' {} a -> s {nextToken = a} :: ListProjects)++instance Core.AWSPager ListProjects where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listProjectsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listProjectsResponse_projects+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listProjects_nextToken+          Lens..~ rs+          Lens.^? listProjectsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListProjects where+  type AWSResponse ListProjects = ListProjectsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListProjectsResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (x Data..?> "projects" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListProjects where+  hashWithSalt _salt ListProjects' {..} =+    _salt+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListProjects where+  rnf ListProjects' {..} =+    Prelude.rnf arn `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListProjects where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ListProjects" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListProjects where+  toJSON ListProjects' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("arn" Data..=) Prelude.<$> arn,+            ("nextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath ListProjects where+  toPath = Prelude.const "/"++instance Data.ToQuery ListProjects where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a list projects request.+--+-- /See:/ 'newListProjectsResponse' smart constructor.+data ListProjectsResponse = ListProjectsResponse'+  { -- | If the number of items that are returned is significantly large, this is+    -- an identifier that is also returned. It can be used in a subsequent call+    -- to this operation to return the next set of items in the list.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Information about the projects.+    projects :: Prelude.Maybe [Project],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListProjectsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listProjectsResponse_nextToken' - If the number of items that are returned is significantly large, this is+-- an identifier that is also returned. It can be used in a subsequent call+-- to this operation to return the next set of items in the list.+--+-- 'projects', 'listProjectsResponse_projects' - Information about the projects.+--+-- 'httpStatus', 'listProjectsResponse_httpStatus' - The response's http status code.+newListProjectsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListProjectsResponse+newListProjectsResponse pHttpStatus_ =+  ListProjectsResponse'+    { nextToken = Prelude.Nothing,+      projects = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | If the number of items that are returned is significantly large, this is+-- an identifier that is also returned. It can be used in a subsequent call+-- to this operation to return the next set of items in the list.+listProjectsResponse_nextToken :: Lens.Lens' ListProjectsResponse (Prelude.Maybe Prelude.Text)+listProjectsResponse_nextToken = Lens.lens (\ListProjectsResponse' {nextToken} -> nextToken) (\s@ListProjectsResponse' {} a -> s {nextToken = a} :: ListProjectsResponse)++-- | Information about the projects.+listProjectsResponse_projects :: Lens.Lens' ListProjectsResponse (Prelude.Maybe [Project])+listProjectsResponse_projects = Lens.lens (\ListProjectsResponse' {projects} -> projects) (\s@ListProjectsResponse' {} a -> s {projects = a} :: ListProjectsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listProjectsResponse_httpStatus :: Lens.Lens' ListProjectsResponse Prelude.Int+listProjectsResponse_httpStatus = Lens.lens (\ListProjectsResponse' {httpStatus} -> httpStatus) (\s@ListProjectsResponse' {} a -> s {httpStatus = a} :: ListProjectsResponse)++instance Prelude.NFData ListProjectsResponse where+  rnf ListProjectsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf projects+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/ListRemoteAccessSessions.hs view
@@ -0,0 +1,252 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ListRemoteAccessSessions+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of all currently running remote access sessions.+--+-- This operation returns paginated results.+module Amazonka.DeviceFarm.ListRemoteAccessSessions+  ( -- * Creating a Request+    ListRemoteAccessSessions (..),+    newListRemoteAccessSessions,++    -- * Request Lenses+    listRemoteAccessSessions_nextToken,+    listRemoteAccessSessions_arn,++    -- * Destructuring the Response+    ListRemoteAccessSessionsResponse (..),+    newListRemoteAccessSessionsResponse,++    -- * Response Lenses+    listRemoteAccessSessionsResponse_nextToken,+    listRemoteAccessSessionsResponse_remoteAccessSessions,+    listRemoteAccessSessionsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents the request to return information about the remote access+-- session.+--+-- /See:/ 'newListRemoteAccessSessions' smart constructor.+data ListRemoteAccessSessions = ListRemoteAccessSessions'+  { -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the project about which you are+    -- requesting information.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListRemoteAccessSessions' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listRemoteAccessSessions_nextToken' - 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.+--+-- 'arn', 'listRemoteAccessSessions_arn' - The Amazon Resource Name (ARN) of the project about which you are+-- requesting information.+newListRemoteAccessSessions ::+  -- | 'arn'+  Prelude.Text ->+  ListRemoteAccessSessions+newListRemoteAccessSessions pArn_ =+  ListRemoteAccessSessions'+    { nextToken =+        Prelude.Nothing,+      arn = 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.+listRemoteAccessSessions_nextToken :: Lens.Lens' ListRemoteAccessSessions (Prelude.Maybe Prelude.Text)+listRemoteAccessSessions_nextToken = Lens.lens (\ListRemoteAccessSessions' {nextToken} -> nextToken) (\s@ListRemoteAccessSessions' {} a -> s {nextToken = a} :: ListRemoteAccessSessions)++-- | The Amazon Resource Name (ARN) of the project about which you are+-- requesting information.+listRemoteAccessSessions_arn :: Lens.Lens' ListRemoteAccessSessions Prelude.Text+listRemoteAccessSessions_arn = Lens.lens (\ListRemoteAccessSessions' {arn} -> arn) (\s@ListRemoteAccessSessions' {} a -> s {arn = a} :: ListRemoteAccessSessions)++instance Core.AWSPager ListRemoteAccessSessions where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listRemoteAccessSessionsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listRemoteAccessSessionsResponse_remoteAccessSessions+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listRemoteAccessSessions_nextToken+          Lens..~ rs+          Lens.^? listRemoteAccessSessionsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListRemoteAccessSessions where+  type+    AWSResponse ListRemoteAccessSessions =+      ListRemoteAccessSessionsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListRemoteAccessSessionsResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> ( x+                            Data..?> "remoteAccessSessions"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListRemoteAccessSessions where+  hashWithSalt _salt ListRemoteAccessSessions' {..} =+    _salt+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` arn++instance Prelude.NFData ListRemoteAccessSessions where+  rnf ListRemoteAccessSessions' {..} =+    Prelude.rnf nextToken `Prelude.seq` Prelude.rnf arn++instance Data.ToHeaders ListRemoteAccessSessions where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ListRemoteAccessSessions" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListRemoteAccessSessions where+  toJSON ListRemoteAccessSessions' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("arn" Data..= arn)+          ]+      )++instance Data.ToPath ListRemoteAccessSessions where+  toPath = Prelude.const "/"++instance Data.ToQuery ListRemoteAccessSessions where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the response from the server after AWS Device Farm makes a+-- request to return information about the remote access session.+--+-- /See:/ 'newListRemoteAccessSessionsResponse' smart constructor.+data ListRemoteAccessSessionsResponse = ListRemoteAccessSessionsResponse'+  { -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | A container that represents the metadata from the service about each+    -- remote access session you are requesting.+    remoteAccessSessions :: Prelude.Maybe [RemoteAccessSession],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListRemoteAccessSessionsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listRemoteAccessSessionsResponse_nextToken' - 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.+--+-- 'remoteAccessSessions', 'listRemoteAccessSessionsResponse_remoteAccessSessions' - A container that represents the metadata from the service about each+-- remote access session you are requesting.+--+-- 'httpStatus', 'listRemoteAccessSessionsResponse_httpStatus' - The response's http status code.+newListRemoteAccessSessionsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListRemoteAccessSessionsResponse+newListRemoteAccessSessionsResponse pHttpStatus_ =+  ListRemoteAccessSessionsResponse'+    { nextToken =+        Prelude.Nothing,+      remoteAccessSessions = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | 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.+listRemoteAccessSessionsResponse_nextToken :: Lens.Lens' ListRemoteAccessSessionsResponse (Prelude.Maybe Prelude.Text)+listRemoteAccessSessionsResponse_nextToken = Lens.lens (\ListRemoteAccessSessionsResponse' {nextToken} -> nextToken) (\s@ListRemoteAccessSessionsResponse' {} a -> s {nextToken = a} :: ListRemoteAccessSessionsResponse)++-- | A container that represents the metadata from the service about each+-- remote access session you are requesting.+listRemoteAccessSessionsResponse_remoteAccessSessions :: Lens.Lens' ListRemoteAccessSessionsResponse (Prelude.Maybe [RemoteAccessSession])+listRemoteAccessSessionsResponse_remoteAccessSessions = Lens.lens (\ListRemoteAccessSessionsResponse' {remoteAccessSessions} -> remoteAccessSessions) (\s@ListRemoteAccessSessionsResponse' {} a -> s {remoteAccessSessions = a} :: ListRemoteAccessSessionsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listRemoteAccessSessionsResponse_httpStatus :: Lens.Lens' ListRemoteAccessSessionsResponse Prelude.Int+listRemoteAccessSessionsResponse_httpStatus = Lens.lens (\ListRemoteAccessSessionsResponse' {httpStatus} -> httpStatus) (\s@ListRemoteAccessSessionsResponse' {} a -> s {httpStatus = a} :: ListRemoteAccessSessionsResponse)++instance+  Prelude.NFData+    ListRemoteAccessSessionsResponse+  where+  rnf ListRemoteAccessSessionsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf remoteAccessSessions+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/ListRuns.hs view
@@ -0,0 +1,234 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ListRuns+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about runs, given an AWS Device Farm project ARN.+--+-- This operation returns paginated results.+module Amazonka.DeviceFarm.ListRuns+  ( -- * Creating a Request+    ListRuns (..),+    newListRuns,++    -- * Request Lenses+    listRuns_nextToken,+    listRuns_arn,++    -- * Destructuring the Response+    ListRunsResponse (..),+    newListRunsResponse,++    -- * Response Lenses+    listRunsResponse_nextToken,+    listRunsResponse_runs,+    listRunsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the list runs operation.+--+-- /See:/ 'newListRuns' smart constructor.+data ListRuns = ListRuns'+  { -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the project for which you want to list+    -- runs.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListRuns' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listRuns_nextToken' - 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.+--+-- 'arn', 'listRuns_arn' - The Amazon Resource Name (ARN) of the project for which you want to list+-- runs.+newListRuns ::+  -- | 'arn'+  Prelude.Text ->+  ListRuns+newListRuns pArn_ =+  ListRuns' {nextToken = Prelude.Nothing, arn = 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.+listRuns_nextToken :: Lens.Lens' ListRuns (Prelude.Maybe Prelude.Text)+listRuns_nextToken = Lens.lens (\ListRuns' {nextToken} -> nextToken) (\s@ListRuns' {} a -> s {nextToken = a} :: ListRuns)++-- | The Amazon Resource Name (ARN) of the project for which you want to list+-- runs.+listRuns_arn :: Lens.Lens' ListRuns Prelude.Text+listRuns_arn = Lens.lens (\ListRuns' {arn} -> arn) (\s@ListRuns' {} a -> s {arn = a} :: ListRuns)++instance Core.AWSPager ListRuns where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listRunsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listRunsResponse_runs+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listRuns_nextToken+          Lens..~ rs+          Lens.^? listRunsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListRuns where+  type AWSResponse ListRuns = ListRunsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListRunsResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (x Data..?> "runs" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListRuns where+  hashWithSalt _salt ListRuns' {..} =+    _salt+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` arn++instance Prelude.NFData ListRuns where+  rnf ListRuns' {..} =+    Prelude.rnf nextToken `Prelude.seq` Prelude.rnf arn++instance Data.ToHeaders ListRuns where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ListRuns" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListRuns where+  toJSON ListRuns' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("arn" Data..= arn)+          ]+      )++instance Data.ToPath ListRuns where+  toPath = Prelude.const "/"++instance Data.ToQuery ListRuns where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a list runs request.+--+-- /See:/ 'newListRunsResponse' smart constructor.+data ListRunsResponse = ListRunsResponse'+  { -- | If the number of items that are returned is significantly large, this is+    -- an identifier that is also returned. It can be used in a subsequent call+    -- to this operation to return the next set of items in the list.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Information about the runs.+    runs :: Prelude.Maybe [Run],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListRunsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listRunsResponse_nextToken' - If the number of items that are returned is significantly large, this is+-- an identifier that is also returned. It can be used in a subsequent call+-- to this operation to return the next set of items in the list.+--+-- 'runs', 'listRunsResponse_runs' - Information about the runs.+--+-- 'httpStatus', 'listRunsResponse_httpStatus' - The response's http status code.+newListRunsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListRunsResponse+newListRunsResponse pHttpStatus_ =+  ListRunsResponse'+    { nextToken = Prelude.Nothing,+      runs = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | If the number of items that are returned is significantly large, this is+-- an identifier that is also returned. It can be used in a subsequent call+-- to this operation to return the next set of items in the list.+listRunsResponse_nextToken :: Lens.Lens' ListRunsResponse (Prelude.Maybe Prelude.Text)+listRunsResponse_nextToken = Lens.lens (\ListRunsResponse' {nextToken} -> nextToken) (\s@ListRunsResponse' {} a -> s {nextToken = a} :: ListRunsResponse)++-- | Information about the runs.+listRunsResponse_runs :: Lens.Lens' ListRunsResponse (Prelude.Maybe [Run])+listRunsResponse_runs = Lens.lens (\ListRunsResponse' {runs} -> runs) (\s@ListRunsResponse' {} a -> s {runs = a} :: ListRunsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listRunsResponse_httpStatus :: Lens.Lens' ListRunsResponse Prelude.Int+listRunsResponse_httpStatus = Lens.lens (\ListRunsResponse' {httpStatus} -> httpStatus) (\s@ListRunsResponse' {} a -> s {httpStatus = a} :: ListRunsResponse)++instance Prelude.NFData ListRunsResponse where+  rnf ListRunsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf runs+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/ListSamples.hs view
@@ -0,0 +1,234 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ListSamples+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about samples, given an AWS Device Farm job ARN.+--+-- This operation returns paginated results.+module Amazonka.DeviceFarm.ListSamples+  ( -- * Creating a Request+    ListSamples (..),+    newListSamples,++    -- * Request Lenses+    listSamples_nextToken,+    listSamples_arn,++    -- * Destructuring the Response+    ListSamplesResponse (..),+    newListSamplesResponse,++    -- * Response Lenses+    listSamplesResponse_nextToken,+    listSamplesResponse_samples,+    listSamplesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the list samples operation.+--+-- /See:/ 'newListSamples' smart constructor.+data ListSamples = ListSamples'+  { -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the job used to list samples.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListSamples' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listSamples_nextToken' - 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.+--+-- 'arn', 'listSamples_arn' - The Amazon Resource Name (ARN) of the job used to list samples.+newListSamples ::+  -- | 'arn'+  Prelude.Text ->+  ListSamples+newListSamples pArn_ =+  ListSamples'+    { nextToken = Prelude.Nothing,+      arn = 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.+listSamples_nextToken :: Lens.Lens' ListSamples (Prelude.Maybe Prelude.Text)+listSamples_nextToken = Lens.lens (\ListSamples' {nextToken} -> nextToken) (\s@ListSamples' {} a -> s {nextToken = a} :: ListSamples)++-- | The Amazon Resource Name (ARN) of the job used to list samples.+listSamples_arn :: Lens.Lens' ListSamples Prelude.Text+listSamples_arn = Lens.lens (\ListSamples' {arn} -> arn) (\s@ListSamples' {} a -> s {arn = a} :: ListSamples)++instance Core.AWSPager ListSamples where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listSamplesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listSamplesResponse_samples+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listSamples_nextToken+          Lens..~ rs+          Lens.^? listSamplesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListSamples where+  type AWSResponse ListSamples = ListSamplesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListSamplesResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (x Data..?> "samples" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListSamples where+  hashWithSalt _salt ListSamples' {..} =+    _salt+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` arn++instance Prelude.NFData ListSamples where+  rnf ListSamples' {..} =+    Prelude.rnf nextToken `Prelude.seq` Prelude.rnf arn++instance Data.ToHeaders ListSamples where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ListSamples" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListSamples where+  toJSON ListSamples' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("arn" Data..= arn)+          ]+      )++instance Data.ToPath ListSamples where+  toPath = Prelude.const "/"++instance Data.ToQuery ListSamples where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a list samples request.+--+-- /See:/ 'newListSamplesResponse' smart constructor.+data ListSamplesResponse = ListSamplesResponse'+  { -- | If the number of items that are returned is significantly large, this is+    -- an identifier that is also returned. It can be used in a subsequent call+    -- to this operation to return the next set of items in the list.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Information about the samples.+    samples :: Prelude.Maybe [Sample],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListSamplesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listSamplesResponse_nextToken' - If the number of items that are returned is significantly large, this is+-- an identifier that is also returned. It can be used in a subsequent call+-- to this operation to return the next set of items in the list.+--+-- 'samples', 'listSamplesResponse_samples' - Information about the samples.+--+-- 'httpStatus', 'listSamplesResponse_httpStatus' - The response's http status code.+newListSamplesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListSamplesResponse+newListSamplesResponse pHttpStatus_ =+  ListSamplesResponse'+    { nextToken = Prelude.Nothing,+      samples = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | If the number of items that are returned is significantly large, this is+-- an identifier that is also returned. It can be used in a subsequent call+-- to this operation to return the next set of items in the list.+listSamplesResponse_nextToken :: Lens.Lens' ListSamplesResponse (Prelude.Maybe Prelude.Text)+listSamplesResponse_nextToken = Lens.lens (\ListSamplesResponse' {nextToken} -> nextToken) (\s@ListSamplesResponse' {} a -> s {nextToken = a} :: ListSamplesResponse)++-- | Information about the samples.+listSamplesResponse_samples :: Lens.Lens' ListSamplesResponse (Prelude.Maybe [Sample])+listSamplesResponse_samples = Lens.lens (\ListSamplesResponse' {samples} -> samples) (\s@ListSamplesResponse' {} a -> s {samples = a} :: ListSamplesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listSamplesResponse_httpStatus :: Lens.Lens' ListSamplesResponse Prelude.Int+listSamplesResponse_httpStatus = Lens.lens (\ListSamplesResponse' {httpStatus} -> httpStatus) (\s@ListSamplesResponse' {} a -> s {httpStatus = a} :: ListSamplesResponse)++instance Prelude.NFData ListSamplesResponse where+  rnf ListSamplesResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf samples+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/ListSuites.hs view
@@ -0,0 +1,234 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ListSuites+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about test suites for a given job.+--+-- This operation returns paginated results.+module Amazonka.DeviceFarm.ListSuites+  ( -- * Creating a Request+    ListSuites (..),+    newListSuites,++    -- * Request Lenses+    listSuites_nextToken,+    listSuites_arn,++    -- * Destructuring the Response+    ListSuitesResponse (..),+    newListSuitesResponse,++    -- * Response Lenses+    listSuitesResponse_nextToken,+    listSuitesResponse_suites,+    listSuitesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the list suites operation.+--+-- /See:/ 'newListSuites' smart constructor.+data ListSuites = ListSuites'+  { -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The job\'s Amazon Resource Name (ARN).+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListSuites' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listSuites_nextToken' - 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.+--+-- 'arn', 'listSuites_arn' - The job\'s Amazon Resource Name (ARN).+newListSuites ::+  -- | 'arn'+  Prelude.Text ->+  ListSuites+newListSuites pArn_ =+  ListSuites'+    { nextToken = Prelude.Nothing,+      arn = 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.+listSuites_nextToken :: Lens.Lens' ListSuites (Prelude.Maybe Prelude.Text)+listSuites_nextToken = Lens.lens (\ListSuites' {nextToken} -> nextToken) (\s@ListSuites' {} a -> s {nextToken = a} :: ListSuites)++-- | The job\'s Amazon Resource Name (ARN).+listSuites_arn :: Lens.Lens' ListSuites Prelude.Text+listSuites_arn = Lens.lens (\ListSuites' {arn} -> arn) (\s@ListSuites' {} a -> s {arn = a} :: ListSuites)++instance Core.AWSPager ListSuites where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listSuitesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listSuitesResponse_suites+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listSuites_nextToken+          Lens..~ rs+          Lens.^? listSuitesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListSuites where+  type AWSResponse ListSuites = ListSuitesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListSuitesResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (x Data..?> "suites" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListSuites where+  hashWithSalt _salt ListSuites' {..} =+    _salt+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` arn++instance Prelude.NFData ListSuites where+  rnf ListSuites' {..} =+    Prelude.rnf nextToken `Prelude.seq` Prelude.rnf arn++instance Data.ToHeaders ListSuites where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ListSuites" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListSuites where+  toJSON ListSuites' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("arn" Data..= arn)+          ]+      )++instance Data.ToPath ListSuites where+  toPath = Prelude.const "/"++instance Data.ToQuery ListSuites where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a list suites request.+--+-- /See:/ 'newListSuitesResponse' smart constructor.+data ListSuitesResponse = ListSuitesResponse'+  { -- | If the number of items that are returned is significantly large, this is+    -- an identifier that is also returned. It can be used in a subsequent call+    -- to this operation to return the next set of items in the list.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Information about the suites.+    suites :: Prelude.Maybe [Suite],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListSuitesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listSuitesResponse_nextToken' - If the number of items that are returned is significantly large, this is+-- an identifier that is also returned. It can be used in a subsequent call+-- to this operation to return the next set of items in the list.+--+-- 'suites', 'listSuitesResponse_suites' - Information about the suites.+--+-- 'httpStatus', 'listSuitesResponse_httpStatus' - The response's http status code.+newListSuitesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListSuitesResponse+newListSuitesResponse pHttpStatus_ =+  ListSuitesResponse'+    { nextToken = Prelude.Nothing,+      suites = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | If the number of items that are returned is significantly large, this is+-- an identifier that is also returned. It can be used in a subsequent call+-- to this operation to return the next set of items in the list.+listSuitesResponse_nextToken :: Lens.Lens' ListSuitesResponse (Prelude.Maybe Prelude.Text)+listSuitesResponse_nextToken = Lens.lens (\ListSuitesResponse' {nextToken} -> nextToken) (\s@ListSuitesResponse' {} a -> s {nextToken = a} :: ListSuitesResponse)++-- | Information about the suites.+listSuitesResponse_suites :: Lens.Lens' ListSuitesResponse (Prelude.Maybe [Suite])+listSuitesResponse_suites = Lens.lens (\ListSuitesResponse' {suites} -> suites) (\s@ListSuitesResponse' {} a -> s {suites = a} :: ListSuitesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listSuitesResponse_httpStatus :: Lens.Lens' ListSuitesResponse Prelude.Int+listSuitesResponse_httpStatus = Lens.lens (\ListSuitesResponse' {httpStatus} -> httpStatus) (\s@ListSuitesResponse' {} a -> s {httpStatus = a} :: ListSuitesResponse)++instance Prelude.NFData ListSuitesResponse where+  rnf ListSuitesResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf suites+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/ListTagsForResource.hs view
@@ -0,0 +1,187 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ListTagsForResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List the tags for an AWS Device Farm resource.+module Amazonka.DeviceFarm.ListTagsForResource+  ( -- * Creating a Request+    ListTagsForResource (..),+    newListTagsForResource,++    -- * Request Lenses+    listTagsForResource_resourceARN,++    -- * Destructuring the Response+    ListTagsForResourceResponse (..),+    newListTagsForResourceResponse,++    -- * Response Lenses+    listTagsForResourceResponse_tags,+    listTagsForResourceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListTagsForResource' smart constructor.+data ListTagsForResource = ListTagsForResource'+  { -- | The Amazon Resource Name (ARN) of the resource or resources for which to+    -- list tags. You can associate tags with the following Device Farm+    -- resources: @PROJECT@, @RUN@, @NETWORK_PROFILE@, @INSTANCE_PROFILE@,+    -- @DEVICE_INSTANCE@, @SESSION@, @DEVICE_POOL@, @DEVICE@, and+    -- @VPCE_CONFIGURATION@.+    resourceARN :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTagsForResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceARN', 'listTagsForResource_resourceARN' - The Amazon Resource Name (ARN) of the resource or resources for which to+-- list tags. You can associate tags with the following Device Farm+-- resources: @PROJECT@, @RUN@, @NETWORK_PROFILE@, @INSTANCE_PROFILE@,+-- @DEVICE_INSTANCE@, @SESSION@, @DEVICE_POOL@, @DEVICE@, and+-- @VPCE_CONFIGURATION@.+newListTagsForResource ::+  -- | 'resourceARN'+  Prelude.Text ->+  ListTagsForResource+newListTagsForResource pResourceARN_ =+  ListTagsForResource' {resourceARN = pResourceARN_}++-- | The Amazon Resource Name (ARN) of the resource or resources for which to+-- list tags. You can associate tags with the following Device Farm+-- resources: @PROJECT@, @RUN@, @NETWORK_PROFILE@, @INSTANCE_PROFILE@,+-- @DEVICE_INSTANCE@, @SESSION@, @DEVICE_POOL@, @DEVICE@, and+-- @VPCE_CONFIGURATION@.+listTagsForResource_resourceARN :: Lens.Lens' ListTagsForResource Prelude.Text+listTagsForResource_resourceARN = Lens.lens (\ListTagsForResource' {resourceARN} -> resourceARN) (\s@ListTagsForResource' {} a -> s {resourceARN = a} :: ListTagsForResource)++instance Core.AWSRequest ListTagsForResource where+  type+    AWSResponse ListTagsForResource =+      ListTagsForResourceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListTagsForResourceResponse'+            Prelude.<$> (x Data..?> "Tags" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListTagsForResource where+  hashWithSalt _salt ListTagsForResource' {..} =+    _salt `Prelude.hashWithSalt` resourceARN++instance Prelude.NFData ListTagsForResource where+  rnf ListTagsForResource' {..} =+    Prelude.rnf resourceARN++instance Data.ToHeaders ListTagsForResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ListTagsForResource" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListTagsForResource where+  toJSON ListTagsForResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("ResourceARN" Data..= resourceARN)]+      )++instance Data.ToPath ListTagsForResource where+  toPath = Prelude.const "/"++instance Data.ToQuery ListTagsForResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListTagsForResourceResponse' smart constructor.+data ListTagsForResourceResponse = ListTagsForResourceResponse'+  { -- | The tags to add to the resource. A tag is an array of key-value pairs.+    -- Tag keys can have a maximum character length of 128 characters. Tag+    -- values can have a maximum length of 256 characters.+    tags :: Prelude.Maybe [Tag],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTagsForResourceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'tags', 'listTagsForResourceResponse_tags' - The tags to add to the resource. A tag is an array of key-value pairs.+-- Tag keys can have a maximum character length of 128 characters. Tag+-- values can have a maximum length of 256 characters.+--+-- 'httpStatus', 'listTagsForResourceResponse_httpStatus' - The response's http status code.+newListTagsForResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListTagsForResourceResponse+newListTagsForResourceResponse pHttpStatus_ =+  ListTagsForResourceResponse'+    { tags =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The tags to add to the resource. A tag is an array of key-value pairs.+-- Tag keys can have a maximum character length of 128 characters. Tag+-- values can have a maximum length of 256 characters.+listTagsForResourceResponse_tags :: Lens.Lens' ListTagsForResourceResponse (Prelude.Maybe [Tag])+listTagsForResourceResponse_tags = Lens.lens (\ListTagsForResourceResponse' {tags} -> tags) (\s@ListTagsForResourceResponse' {} a -> s {tags = a} :: ListTagsForResourceResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listTagsForResourceResponse_httpStatus :: Lens.Lens' ListTagsForResourceResponse Prelude.Int+listTagsForResourceResponse_httpStatus = Lens.lens (\ListTagsForResourceResponse' {httpStatus} -> httpStatus) (\s@ListTagsForResourceResponse' {} a -> s {httpStatus = a} :: ListTagsForResourceResponse)++instance Prelude.NFData ListTagsForResourceResponse where+  rnf ListTagsForResourceResponse' {..} =+    Prelude.rnf tags+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/ListTestGridProjects.hs view
@@ -0,0 +1,202 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ListTestGridProjects+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets a list of all Selenium testing projects in your account.+module Amazonka.DeviceFarm.ListTestGridProjects+  ( -- * Creating a Request+    ListTestGridProjects (..),+    newListTestGridProjects,++    -- * Request Lenses+    listTestGridProjects_maxResult,+    listTestGridProjects_nextToken,++    -- * Destructuring the Response+    ListTestGridProjectsResponse (..),+    newListTestGridProjectsResponse,++    -- * Response Lenses+    listTestGridProjectsResponse_nextToken,+    listTestGridProjectsResponse_testGridProjects,+    listTestGridProjectsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListTestGridProjects' smart constructor.+data ListTestGridProjects = ListTestGridProjects'+  { -- | Return no more than this number of results.+    maxResult :: Prelude.Maybe Prelude.Natural,+    -- | From a response, used to continue a paginated listing.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTestGridProjects' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResult', 'listTestGridProjects_maxResult' - Return no more than this number of results.+--+-- 'nextToken', 'listTestGridProjects_nextToken' - From a response, used to continue a paginated listing.+newListTestGridProjects ::+  ListTestGridProjects+newListTestGridProjects =+  ListTestGridProjects'+    { maxResult = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | Return no more than this number of results.+listTestGridProjects_maxResult :: Lens.Lens' ListTestGridProjects (Prelude.Maybe Prelude.Natural)+listTestGridProjects_maxResult = Lens.lens (\ListTestGridProjects' {maxResult} -> maxResult) (\s@ListTestGridProjects' {} a -> s {maxResult = a} :: ListTestGridProjects)++-- | From a response, used to continue a paginated listing.+listTestGridProjects_nextToken :: Lens.Lens' ListTestGridProjects (Prelude.Maybe Prelude.Text)+listTestGridProjects_nextToken = Lens.lens (\ListTestGridProjects' {nextToken} -> nextToken) (\s@ListTestGridProjects' {} a -> s {nextToken = a} :: ListTestGridProjects)++instance Core.AWSRequest ListTestGridProjects where+  type+    AWSResponse ListTestGridProjects =+      ListTestGridProjectsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListTestGridProjectsResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> ( x+                            Data..?> "testGridProjects"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListTestGridProjects where+  hashWithSalt _salt ListTestGridProjects' {..} =+    _salt+      `Prelude.hashWithSalt` maxResult+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListTestGridProjects where+  rnf ListTestGridProjects' {..} =+    Prelude.rnf maxResult+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListTestGridProjects where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ListTestGridProjects" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListTestGridProjects where+  toJSON ListTestGridProjects' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("maxResult" Data..=) Prelude.<$> maxResult,+            ("nextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath ListTestGridProjects where+  toPath = Prelude.const "/"++instance Data.ToQuery ListTestGridProjects where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListTestGridProjectsResponse' smart constructor.+data ListTestGridProjectsResponse = ListTestGridProjectsResponse'+  { -- | Used for pagination. Pass into ListTestGridProjects to get more results+    -- in a paginated request.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The list of TestGridProjects, based on a ListTestGridProjectsRequest.+    testGridProjects :: Prelude.Maybe [TestGridProject],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTestGridProjectsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listTestGridProjectsResponse_nextToken' - Used for pagination. Pass into ListTestGridProjects to get more results+-- in a paginated request.+--+-- 'testGridProjects', 'listTestGridProjectsResponse_testGridProjects' - The list of TestGridProjects, based on a ListTestGridProjectsRequest.+--+-- 'httpStatus', 'listTestGridProjectsResponse_httpStatus' - The response's http status code.+newListTestGridProjectsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListTestGridProjectsResponse+newListTestGridProjectsResponse pHttpStatus_ =+  ListTestGridProjectsResponse'+    { nextToken =+        Prelude.Nothing,+      testGridProjects = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Used for pagination. Pass into ListTestGridProjects to get more results+-- in a paginated request.+listTestGridProjectsResponse_nextToken :: Lens.Lens' ListTestGridProjectsResponse (Prelude.Maybe Prelude.Text)+listTestGridProjectsResponse_nextToken = Lens.lens (\ListTestGridProjectsResponse' {nextToken} -> nextToken) (\s@ListTestGridProjectsResponse' {} a -> s {nextToken = a} :: ListTestGridProjectsResponse)++-- | The list of TestGridProjects, based on a ListTestGridProjectsRequest.+listTestGridProjectsResponse_testGridProjects :: Lens.Lens' ListTestGridProjectsResponse (Prelude.Maybe [TestGridProject])+listTestGridProjectsResponse_testGridProjects = Lens.lens (\ListTestGridProjectsResponse' {testGridProjects} -> testGridProjects) (\s@ListTestGridProjectsResponse' {} a -> s {testGridProjects = a} :: ListTestGridProjectsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listTestGridProjectsResponse_httpStatus :: Lens.Lens' ListTestGridProjectsResponse Prelude.Int+listTestGridProjectsResponse_httpStatus = Lens.lens (\ListTestGridProjectsResponse' {httpStatus} -> httpStatus) (\s@ListTestGridProjectsResponse' {} a -> s {httpStatus = a} :: ListTestGridProjectsResponse)++instance Prelude.NFData ListTestGridProjectsResponse where+  rnf ListTestGridProjectsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf testGridProjects+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/ListTestGridSessionActions.hs view
@@ -0,0 +1,215 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ListTestGridSessionActions+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of the actions taken in a TestGridSession.+module Amazonka.DeviceFarm.ListTestGridSessionActions+  ( -- * Creating a Request+    ListTestGridSessionActions (..),+    newListTestGridSessionActions,++    -- * Request Lenses+    listTestGridSessionActions_maxResult,+    listTestGridSessionActions_nextToken,+    listTestGridSessionActions_sessionArn,++    -- * Destructuring the Response+    ListTestGridSessionActionsResponse (..),+    newListTestGridSessionActionsResponse,++    -- * Response Lenses+    listTestGridSessionActionsResponse_actions,+    listTestGridSessionActionsResponse_nextToken,+    listTestGridSessionActionsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListTestGridSessionActions' smart constructor.+data ListTestGridSessionActions = ListTestGridSessionActions'+  { -- | The maximum number of sessions to return per response.+    maxResult :: Prelude.Maybe Prelude.Natural,+    -- | Pagination token.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the session to retrieve.+    sessionArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTestGridSessionActions' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResult', 'listTestGridSessionActions_maxResult' - The maximum number of sessions to return per response.+--+-- 'nextToken', 'listTestGridSessionActions_nextToken' - Pagination token.+--+-- 'sessionArn', 'listTestGridSessionActions_sessionArn' - The ARN of the session to retrieve.+newListTestGridSessionActions ::+  -- | 'sessionArn'+  Prelude.Text ->+  ListTestGridSessionActions+newListTestGridSessionActions pSessionArn_ =+  ListTestGridSessionActions'+    { maxResult =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      sessionArn = pSessionArn_+    }++-- | The maximum number of sessions to return per response.+listTestGridSessionActions_maxResult :: Lens.Lens' ListTestGridSessionActions (Prelude.Maybe Prelude.Natural)+listTestGridSessionActions_maxResult = Lens.lens (\ListTestGridSessionActions' {maxResult} -> maxResult) (\s@ListTestGridSessionActions' {} a -> s {maxResult = a} :: ListTestGridSessionActions)++-- | Pagination token.+listTestGridSessionActions_nextToken :: Lens.Lens' ListTestGridSessionActions (Prelude.Maybe Prelude.Text)+listTestGridSessionActions_nextToken = Lens.lens (\ListTestGridSessionActions' {nextToken} -> nextToken) (\s@ListTestGridSessionActions' {} a -> s {nextToken = a} :: ListTestGridSessionActions)++-- | The ARN of the session to retrieve.+listTestGridSessionActions_sessionArn :: Lens.Lens' ListTestGridSessionActions Prelude.Text+listTestGridSessionActions_sessionArn = Lens.lens (\ListTestGridSessionActions' {sessionArn} -> sessionArn) (\s@ListTestGridSessionActions' {} a -> s {sessionArn = a} :: ListTestGridSessionActions)++instance Core.AWSRequest ListTestGridSessionActions where+  type+    AWSResponse ListTestGridSessionActions =+      ListTestGridSessionActionsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListTestGridSessionActionsResponse'+            Prelude.<$> (x Data..?> "actions" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListTestGridSessionActions where+  hashWithSalt _salt ListTestGridSessionActions' {..} =+    _salt+      `Prelude.hashWithSalt` maxResult+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` sessionArn++instance Prelude.NFData ListTestGridSessionActions where+  rnf ListTestGridSessionActions' {..} =+    Prelude.rnf maxResult+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf sessionArn++instance Data.ToHeaders ListTestGridSessionActions where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ListTestGridSessionActions" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListTestGridSessionActions where+  toJSON ListTestGridSessionActions' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("maxResult" Data..=) Prelude.<$> maxResult,+            ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("sessionArn" Data..= sessionArn)+          ]+      )++instance Data.ToPath ListTestGridSessionActions where+  toPath = Prelude.const "/"++instance Data.ToQuery ListTestGridSessionActions where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListTestGridSessionActionsResponse' smart constructor.+data ListTestGridSessionActionsResponse = ListTestGridSessionActionsResponse'+  { -- | The action taken by the session.+    actions :: Prelude.Maybe [TestGridSessionAction],+    -- | Pagination token.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTestGridSessionActionsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'actions', 'listTestGridSessionActionsResponse_actions' - The action taken by the session.+--+-- 'nextToken', 'listTestGridSessionActionsResponse_nextToken' - Pagination token.+--+-- 'httpStatus', 'listTestGridSessionActionsResponse_httpStatus' - The response's http status code.+newListTestGridSessionActionsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListTestGridSessionActionsResponse+newListTestGridSessionActionsResponse pHttpStatus_ =+  ListTestGridSessionActionsResponse'+    { actions =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The action taken by the session.+listTestGridSessionActionsResponse_actions :: Lens.Lens' ListTestGridSessionActionsResponse (Prelude.Maybe [TestGridSessionAction])+listTestGridSessionActionsResponse_actions = Lens.lens (\ListTestGridSessionActionsResponse' {actions} -> actions) (\s@ListTestGridSessionActionsResponse' {} a -> s {actions = a} :: ListTestGridSessionActionsResponse) Prelude.. Lens.mapping Lens.coerced++-- | Pagination token.+listTestGridSessionActionsResponse_nextToken :: Lens.Lens' ListTestGridSessionActionsResponse (Prelude.Maybe Prelude.Text)+listTestGridSessionActionsResponse_nextToken = Lens.lens (\ListTestGridSessionActionsResponse' {nextToken} -> nextToken) (\s@ListTestGridSessionActionsResponse' {} a -> s {nextToken = a} :: ListTestGridSessionActionsResponse)++-- | The response's http status code.+listTestGridSessionActionsResponse_httpStatus :: Lens.Lens' ListTestGridSessionActionsResponse Prelude.Int+listTestGridSessionActionsResponse_httpStatus = Lens.lens (\ListTestGridSessionActionsResponse' {httpStatus} -> httpStatus) (\s@ListTestGridSessionActionsResponse' {} a -> s {httpStatus = a} :: ListTestGridSessionActionsResponse)++instance+  Prelude.NFData+    ListTestGridSessionActionsResponse+  where+  rnf ListTestGridSessionActionsResponse' {..} =+    Prelude.rnf actions+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/ListTestGridSessionArtifacts.hs view
@@ -0,0 +1,231 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ListTestGridSessionArtifacts+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves a list of artifacts created during the session.+module Amazonka.DeviceFarm.ListTestGridSessionArtifacts+  ( -- * Creating a Request+    ListTestGridSessionArtifacts (..),+    newListTestGridSessionArtifacts,++    -- * Request Lenses+    listTestGridSessionArtifacts_maxResult,+    listTestGridSessionArtifacts_nextToken,+    listTestGridSessionArtifacts_type,+    listTestGridSessionArtifacts_sessionArn,++    -- * Destructuring the Response+    ListTestGridSessionArtifactsResponse (..),+    newListTestGridSessionArtifactsResponse,++    -- * Response Lenses+    listTestGridSessionArtifactsResponse_artifacts,+    listTestGridSessionArtifactsResponse_nextToken,+    listTestGridSessionArtifactsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListTestGridSessionArtifacts' smart constructor.+data ListTestGridSessionArtifacts = ListTestGridSessionArtifacts'+  { -- | The maximum number of results to be returned by a request.+    maxResult :: Prelude.Maybe Prelude.Natural,+    -- | Pagination token.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Limit results to a specified type of artifact.+    type' :: Prelude.Maybe TestGridSessionArtifactCategory,+    -- | The ARN of a TestGridSession.+    sessionArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTestGridSessionArtifacts' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResult', 'listTestGridSessionArtifacts_maxResult' - The maximum number of results to be returned by a request.+--+-- 'nextToken', 'listTestGridSessionArtifacts_nextToken' - Pagination token.+--+-- 'type'', 'listTestGridSessionArtifacts_type' - Limit results to a specified type of artifact.+--+-- 'sessionArn', 'listTestGridSessionArtifacts_sessionArn' - The ARN of a TestGridSession.+newListTestGridSessionArtifacts ::+  -- | 'sessionArn'+  Prelude.Text ->+  ListTestGridSessionArtifacts+newListTestGridSessionArtifacts pSessionArn_ =+  ListTestGridSessionArtifacts'+    { maxResult =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      type' = Prelude.Nothing,+      sessionArn = pSessionArn_+    }++-- | The maximum number of results to be returned by a request.+listTestGridSessionArtifacts_maxResult :: Lens.Lens' ListTestGridSessionArtifacts (Prelude.Maybe Prelude.Natural)+listTestGridSessionArtifacts_maxResult = Lens.lens (\ListTestGridSessionArtifacts' {maxResult} -> maxResult) (\s@ListTestGridSessionArtifacts' {} a -> s {maxResult = a} :: ListTestGridSessionArtifacts)++-- | Pagination token.+listTestGridSessionArtifacts_nextToken :: Lens.Lens' ListTestGridSessionArtifacts (Prelude.Maybe Prelude.Text)+listTestGridSessionArtifacts_nextToken = Lens.lens (\ListTestGridSessionArtifacts' {nextToken} -> nextToken) (\s@ListTestGridSessionArtifacts' {} a -> s {nextToken = a} :: ListTestGridSessionArtifacts)++-- | Limit results to a specified type of artifact.+listTestGridSessionArtifacts_type :: Lens.Lens' ListTestGridSessionArtifacts (Prelude.Maybe TestGridSessionArtifactCategory)+listTestGridSessionArtifacts_type = Lens.lens (\ListTestGridSessionArtifacts' {type'} -> type') (\s@ListTestGridSessionArtifacts' {} a -> s {type' = a} :: ListTestGridSessionArtifacts)++-- | The ARN of a TestGridSession.+listTestGridSessionArtifacts_sessionArn :: Lens.Lens' ListTestGridSessionArtifacts Prelude.Text+listTestGridSessionArtifacts_sessionArn = Lens.lens (\ListTestGridSessionArtifacts' {sessionArn} -> sessionArn) (\s@ListTestGridSessionArtifacts' {} a -> s {sessionArn = a} :: ListTestGridSessionArtifacts)++instance Core.AWSRequest ListTestGridSessionArtifacts where+  type+    AWSResponse ListTestGridSessionArtifacts =+      ListTestGridSessionArtifactsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListTestGridSessionArtifactsResponse'+            Prelude.<$> (x Data..?> "artifacts" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    ListTestGridSessionArtifacts+  where+  hashWithSalt _salt ListTestGridSessionArtifacts' {..} =+    _salt+      `Prelude.hashWithSalt` maxResult+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` sessionArn++instance Prelude.NFData ListTestGridSessionArtifacts where+  rnf ListTestGridSessionArtifacts' {..} =+    Prelude.rnf maxResult+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf sessionArn++instance Data.ToHeaders ListTestGridSessionArtifacts where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ListTestGridSessionArtifacts" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListTestGridSessionArtifacts where+  toJSON ListTestGridSessionArtifacts' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("maxResult" Data..=) Prelude.<$> maxResult,+            ("nextToken" Data..=) Prelude.<$> nextToken,+            ("type" Data..=) Prelude.<$> type',+            Prelude.Just ("sessionArn" Data..= sessionArn)+          ]+      )++instance Data.ToPath ListTestGridSessionArtifacts where+  toPath = Prelude.const "/"++instance Data.ToQuery ListTestGridSessionArtifacts where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListTestGridSessionArtifactsResponse' smart constructor.+data ListTestGridSessionArtifactsResponse = ListTestGridSessionArtifactsResponse'+  { -- | A list of test grid session artifacts for a TestGridSession.+    artifacts :: Prelude.Maybe [TestGridSessionArtifact],+    -- | Pagination token.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTestGridSessionArtifactsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'artifacts', 'listTestGridSessionArtifactsResponse_artifacts' - A list of test grid session artifacts for a TestGridSession.+--+-- 'nextToken', 'listTestGridSessionArtifactsResponse_nextToken' - Pagination token.+--+-- 'httpStatus', 'listTestGridSessionArtifactsResponse_httpStatus' - The response's http status code.+newListTestGridSessionArtifactsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListTestGridSessionArtifactsResponse+newListTestGridSessionArtifactsResponse pHttpStatus_ =+  ListTestGridSessionArtifactsResponse'+    { artifacts =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A list of test grid session artifacts for a TestGridSession.+listTestGridSessionArtifactsResponse_artifacts :: Lens.Lens' ListTestGridSessionArtifactsResponse (Prelude.Maybe [TestGridSessionArtifact])+listTestGridSessionArtifactsResponse_artifacts = Lens.lens (\ListTestGridSessionArtifactsResponse' {artifacts} -> artifacts) (\s@ListTestGridSessionArtifactsResponse' {} a -> s {artifacts = a} :: ListTestGridSessionArtifactsResponse) Prelude.. Lens.mapping Lens.coerced++-- | Pagination token.+listTestGridSessionArtifactsResponse_nextToken :: Lens.Lens' ListTestGridSessionArtifactsResponse (Prelude.Maybe Prelude.Text)+listTestGridSessionArtifactsResponse_nextToken = Lens.lens (\ListTestGridSessionArtifactsResponse' {nextToken} -> nextToken) (\s@ListTestGridSessionArtifactsResponse' {} a -> s {nextToken = a} :: ListTestGridSessionArtifactsResponse)++-- | The response's http status code.+listTestGridSessionArtifactsResponse_httpStatus :: Lens.Lens' ListTestGridSessionArtifactsResponse Prelude.Int+listTestGridSessionArtifactsResponse_httpStatus = Lens.lens (\ListTestGridSessionArtifactsResponse' {httpStatus} -> httpStatus) (\s@ListTestGridSessionArtifactsResponse' {} a -> s {httpStatus = a} :: ListTestGridSessionArtifactsResponse)++instance+  Prelude.NFData+    ListTestGridSessionArtifactsResponse+  where+  rnf ListTestGridSessionArtifactsResponse' {..} =+    Prelude.rnf artifacts+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/ListTestGridSessions.hs view
@@ -0,0 +1,282 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ListTestGridSessions+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves a list of sessions for a TestGridProject.+module Amazonka.DeviceFarm.ListTestGridSessions+  ( -- * Creating a Request+    ListTestGridSessions (..),+    newListTestGridSessions,++    -- * Request Lenses+    listTestGridSessions_creationTimeAfter,+    listTestGridSessions_creationTimeBefore,+    listTestGridSessions_endTimeAfter,+    listTestGridSessions_endTimeBefore,+    listTestGridSessions_maxResult,+    listTestGridSessions_nextToken,+    listTestGridSessions_status,+    listTestGridSessions_projectArn,++    -- * Destructuring the Response+    ListTestGridSessionsResponse (..),+    newListTestGridSessionsResponse,++    -- * Response Lenses+    listTestGridSessionsResponse_nextToken,+    listTestGridSessionsResponse_testGridSessions,+    listTestGridSessionsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListTestGridSessions' smart constructor.+data ListTestGridSessions = ListTestGridSessions'+  { -- | Return only sessions created after this time.+    creationTimeAfter :: Prelude.Maybe Data.POSIX,+    -- | Return only sessions created before this time.+    creationTimeBefore :: Prelude.Maybe Data.POSIX,+    -- | Return only sessions that ended after this time.+    endTimeAfter :: Prelude.Maybe Data.POSIX,+    -- | Return only sessions that ended before this time.+    endTimeBefore :: Prelude.Maybe Data.POSIX,+    -- | Return only this many results at a time.+    maxResult :: Prelude.Maybe Prelude.Natural,+    -- | Pagination token.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Return only sessions in this state.+    status :: Prelude.Maybe TestGridSessionStatus,+    -- | ARN of a TestGridProject.+    projectArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTestGridSessions' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'creationTimeAfter', 'listTestGridSessions_creationTimeAfter' - Return only sessions created after this time.+--+-- 'creationTimeBefore', 'listTestGridSessions_creationTimeBefore' - Return only sessions created before this time.+--+-- 'endTimeAfter', 'listTestGridSessions_endTimeAfter' - Return only sessions that ended after this time.+--+-- 'endTimeBefore', 'listTestGridSessions_endTimeBefore' - Return only sessions that ended before this time.+--+-- 'maxResult', 'listTestGridSessions_maxResult' - Return only this many results at a time.+--+-- 'nextToken', 'listTestGridSessions_nextToken' - Pagination token.+--+-- 'status', 'listTestGridSessions_status' - Return only sessions in this state.+--+-- 'projectArn', 'listTestGridSessions_projectArn' - ARN of a TestGridProject.+newListTestGridSessions ::+  -- | 'projectArn'+  Prelude.Text ->+  ListTestGridSessions+newListTestGridSessions pProjectArn_ =+  ListTestGridSessions'+    { creationTimeAfter =+        Prelude.Nothing,+      creationTimeBefore = Prelude.Nothing,+      endTimeAfter = Prelude.Nothing,+      endTimeBefore = Prelude.Nothing,+      maxResult = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      status = Prelude.Nothing,+      projectArn = pProjectArn_+    }++-- | Return only sessions created after this time.+listTestGridSessions_creationTimeAfter :: Lens.Lens' ListTestGridSessions (Prelude.Maybe Prelude.UTCTime)+listTestGridSessions_creationTimeAfter = Lens.lens (\ListTestGridSessions' {creationTimeAfter} -> creationTimeAfter) (\s@ListTestGridSessions' {} a -> s {creationTimeAfter = a} :: ListTestGridSessions) Prelude.. Lens.mapping Data._Time++-- | Return only sessions created before this time.+listTestGridSessions_creationTimeBefore :: Lens.Lens' ListTestGridSessions (Prelude.Maybe Prelude.UTCTime)+listTestGridSessions_creationTimeBefore = Lens.lens (\ListTestGridSessions' {creationTimeBefore} -> creationTimeBefore) (\s@ListTestGridSessions' {} a -> s {creationTimeBefore = a} :: ListTestGridSessions) Prelude.. Lens.mapping Data._Time++-- | Return only sessions that ended after this time.+listTestGridSessions_endTimeAfter :: Lens.Lens' ListTestGridSessions (Prelude.Maybe Prelude.UTCTime)+listTestGridSessions_endTimeAfter = Lens.lens (\ListTestGridSessions' {endTimeAfter} -> endTimeAfter) (\s@ListTestGridSessions' {} a -> s {endTimeAfter = a} :: ListTestGridSessions) Prelude.. Lens.mapping Data._Time++-- | Return only sessions that ended before this time.+listTestGridSessions_endTimeBefore :: Lens.Lens' ListTestGridSessions (Prelude.Maybe Prelude.UTCTime)+listTestGridSessions_endTimeBefore = Lens.lens (\ListTestGridSessions' {endTimeBefore} -> endTimeBefore) (\s@ListTestGridSessions' {} a -> s {endTimeBefore = a} :: ListTestGridSessions) Prelude.. Lens.mapping Data._Time++-- | Return only this many results at a time.+listTestGridSessions_maxResult :: Lens.Lens' ListTestGridSessions (Prelude.Maybe Prelude.Natural)+listTestGridSessions_maxResult = Lens.lens (\ListTestGridSessions' {maxResult} -> maxResult) (\s@ListTestGridSessions' {} a -> s {maxResult = a} :: ListTestGridSessions)++-- | Pagination token.+listTestGridSessions_nextToken :: Lens.Lens' ListTestGridSessions (Prelude.Maybe Prelude.Text)+listTestGridSessions_nextToken = Lens.lens (\ListTestGridSessions' {nextToken} -> nextToken) (\s@ListTestGridSessions' {} a -> s {nextToken = a} :: ListTestGridSessions)++-- | Return only sessions in this state.+listTestGridSessions_status :: Lens.Lens' ListTestGridSessions (Prelude.Maybe TestGridSessionStatus)+listTestGridSessions_status = Lens.lens (\ListTestGridSessions' {status} -> status) (\s@ListTestGridSessions' {} a -> s {status = a} :: ListTestGridSessions)++-- | ARN of a TestGridProject.+listTestGridSessions_projectArn :: Lens.Lens' ListTestGridSessions Prelude.Text+listTestGridSessions_projectArn = Lens.lens (\ListTestGridSessions' {projectArn} -> projectArn) (\s@ListTestGridSessions' {} a -> s {projectArn = a} :: ListTestGridSessions)++instance Core.AWSRequest ListTestGridSessions where+  type+    AWSResponse ListTestGridSessions =+      ListTestGridSessionsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListTestGridSessionsResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> ( x+                            Data..?> "testGridSessions"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListTestGridSessions where+  hashWithSalt _salt ListTestGridSessions' {..} =+    _salt+      `Prelude.hashWithSalt` creationTimeAfter+      `Prelude.hashWithSalt` creationTimeBefore+      `Prelude.hashWithSalt` endTimeAfter+      `Prelude.hashWithSalt` endTimeBefore+      `Prelude.hashWithSalt` maxResult+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` projectArn++instance Prelude.NFData ListTestGridSessions where+  rnf ListTestGridSessions' {..} =+    Prelude.rnf creationTimeAfter+      `Prelude.seq` Prelude.rnf creationTimeBefore+      `Prelude.seq` Prelude.rnf endTimeAfter+      `Prelude.seq` Prelude.rnf endTimeBefore+      `Prelude.seq` Prelude.rnf maxResult+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf projectArn++instance Data.ToHeaders ListTestGridSessions where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ListTestGridSessions" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListTestGridSessions where+  toJSON ListTestGridSessions' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("creationTimeAfter" Data..=)+              Prelude.<$> creationTimeAfter,+            ("creationTimeBefore" Data..=)+              Prelude.<$> creationTimeBefore,+            ("endTimeAfter" Data..=) Prelude.<$> endTimeAfter,+            ("endTimeBefore" Data..=) Prelude.<$> endTimeBefore,+            ("maxResult" Data..=) Prelude.<$> maxResult,+            ("nextToken" Data..=) Prelude.<$> nextToken,+            ("status" Data..=) Prelude.<$> status,+            Prelude.Just ("projectArn" Data..= projectArn)+          ]+      )++instance Data.ToPath ListTestGridSessions where+  toPath = Prelude.const "/"++instance Data.ToQuery ListTestGridSessions where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListTestGridSessionsResponse' smart constructor.+data ListTestGridSessionsResponse = ListTestGridSessionsResponse'+  { -- | Pagination token.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The sessions that match the criteria in a ListTestGridSessionsRequest.+    testGridSessions :: Prelude.Maybe [TestGridSession],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTestGridSessionsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listTestGridSessionsResponse_nextToken' - Pagination token.+--+-- 'testGridSessions', 'listTestGridSessionsResponse_testGridSessions' - The sessions that match the criteria in a ListTestGridSessionsRequest.+--+-- 'httpStatus', 'listTestGridSessionsResponse_httpStatus' - The response's http status code.+newListTestGridSessionsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListTestGridSessionsResponse+newListTestGridSessionsResponse pHttpStatus_ =+  ListTestGridSessionsResponse'+    { nextToken =+        Prelude.Nothing,+      testGridSessions = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Pagination token.+listTestGridSessionsResponse_nextToken :: Lens.Lens' ListTestGridSessionsResponse (Prelude.Maybe Prelude.Text)+listTestGridSessionsResponse_nextToken = Lens.lens (\ListTestGridSessionsResponse' {nextToken} -> nextToken) (\s@ListTestGridSessionsResponse' {} a -> s {nextToken = a} :: ListTestGridSessionsResponse)++-- | The sessions that match the criteria in a ListTestGridSessionsRequest.+listTestGridSessionsResponse_testGridSessions :: Lens.Lens' ListTestGridSessionsResponse (Prelude.Maybe [TestGridSession])+listTestGridSessionsResponse_testGridSessions = Lens.lens (\ListTestGridSessionsResponse' {testGridSessions} -> testGridSessions) (\s@ListTestGridSessionsResponse' {} a -> s {testGridSessions = a} :: ListTestGridSessionsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listTestGridSessionsResponse_httpStatus :: Lens.Lens' ListTestGridSessionsResponse Prelude.Int+listTestGridSessionsResponse_httpStatus = Lens.lens (\ListTestGridSessionsResponse' {httpStatus} -> httpStatus) (\s@ListTestGridSessionsResponse' {} a -> s {httpStatus = a} :: ListTestGridSessionsResponse)++instance Prelude.NFData ListTestGridSessionsResponse where+  rnf ListTestGridSessionsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf testGridSessions+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/ListTests.hs view
@@ -0,0 +1,234 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ListTests+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about tests in a given test suite.+--+-- This operation returns paginated results.+module Amazonka.DeviceFarm.ListTests+  ( -- * Creating a Request+    ListTests (..),+    newListTests,++    -- * Request Lenses+    listTests_nextToken,+    listTests_arn,++    -- * Destructuring the Response+    ListTestsResponse (..),+    newListTestsResponse,++    -- * Response Lenses+    listTestsResponse_nextToken,+    listTestsResponse_tests,+    listTestsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the list tests operation.+--+-- /See:/ 'newListTests' smart constructor.+data ListTests = ListTests'+  { -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The test suite\'s Amazon Resource Name (ARN).+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTests' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listTests_nextToken' - 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.+--+-- 'arn', 'listTests_arn' - The test suite\'s Amazon Resource Name (ARN).+newListTests ::+  -- | 'arn'+  Prelude.Text ->+  ListTests+newListTests pArn_ =+  ListTests'+    { nextToken = Prelude.Nothing,+      arn = 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.+listTests_nextToken :: Lens.Lens' ListTests (Prelude.Maybe Prelude.Text)+listTests_nextToken = Lens.lens (\ListTests' {nextToken} -> nextToken) (\s@ListTests' {} a -> s {nextToken = a} :: ListTests)++-- | The test suite\'s Amazon Resource Name (ARN).+listTests_arn :: Lens.Lens' ListTests Prelude.Text+listTests_arn = Lens.lens (\ListTests' {arn} -> arn) (\s@ListTests' {} a -> s {arn = a} :: ListTests)++instance Core.AWSPager ListTests where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listTestsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listTestsResponse_tests+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listTests_nextToken+          Lens..~ rs+          Lens.^? listTestsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListTests where+  type AWSResponse ListTests = ListTestsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListTestsResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (x Data..?> "tests" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListTests where+  hashWithSalt _salt ListTests' {..} =+    _salt+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` arn++instance Prelude.NFData ListTests where+  rnf ListTests' {..} =+    Prelude.rnf nextToken `Prelude.seq` Prelude.rnf arn++instance Data.ToHeaders ListTests where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ListTests" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListTests where+  toJSON ListTests' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("arn" Data..= arn)+          ]+      )++instance Data.ToPath ListTests where+  toPath = Prelude.const "/"++instance Data.ToQuery ListTests where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a list tests request.+--+-- /See:/ 'newListTestsResponse' smart constructor.+data ListTestsResponse = ListTestsResponse'+  { -- | If the number of items that are returned is significantly large, this is+    -- an identifier that is also returned. It can be used in a subsequent call+    -- to this operation to return the next set of items in the list.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Information about the tests.+    tests :: Prelude.Maybe [Test],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTestsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listTestsResponse_nextToken' - If the number of items that are returned is significantly large, this is+-- an identifier that is also returned. It can be used in a subsequent call+-- to this operation to return the next set of items in the list.+--+-- 'tests', 'listTestsResponse_tests' - Information about the tests.+--+-- 'httpStatus', 'listTestsResponse_httpStatus' - The response's http status code.+newListTestsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListTestsResponse+newListTestsResponse pHttpStatus_ =+  ListTestsResponse'+    { nextToken = Prelude.Nothing,+      tests = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | If the number of items that are returned is significantly large, this is+-- an identifier that is also returned. It can be used in a subsequent call+-- to this operation to return the next set of items in the list.+listTestsResponse_nextToken :: Lens.Lens' ListTestsResponse (Prelude.Maybe Prelude.Text)+listTestsResponse_nextToken = Lens.lens (\ListTestsResponse' {nextToken} -> nextToken) (\s@ListTestsResponse' {} a -> s {nextToken = a} :: ListTestsResponse)++-- | Information about the tests.+listTestsResponse_tests :: Lens.Lens' ListTestsResponse (Prelude.Maybe [Test])+listTestsResponse_tests = Lens.lens (\ListTestsResponse' {tests} -> tests) (\s@ListTestsResponse' {} a -> s {tests = a} :: ListTestsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listTestsResponse_httpStatus :: Lens.Lens' ListTestsResponse Prelude.Int+listTestsResponse_httpStatus = Lens.lens (\ListTestsResponse' {httpStatus} -> httpStatus) (\s@ListTestsResponse' {} a -> s {httpStatus = a} :: ListTestsResponse)++instance Prelude.NFData ListTestsResponse where+  rnf ListTestsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf tests+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/ListUniqueProblems.hs view
@@ -0,0 +1,292 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ListUniqueProblems+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about unique problems, such as exceptions or crashes.+--+-- Unique problems are defined as a single instance of an error across a+-- run, job, or suite. For example, if a call in your application+-- consistently raises an exception+-- (@OutOfBoundsException in MyActivity.java:386@), @ListUniqueProblems@+-- returns a single entry instead of many individual entries for that+-- exception.+--+-- This operation returns paginated results.+module Amazonka.DeviceFarm.ListUniqueProblems+  ( -- * Creating a Request+    ListUniqueProblems (..),+    newListUniqueProblems,++    -- * Request Lenses+    listUniqueProblems_nextToken,+    listUniqueProblems_arn,++    -- * Destructuring the Response+    ListUniqueProblemsResponse (..),+    newListUniqueProblemsResponse,++    -- * Response Lenses+    listUniqueProblemsResponse_nextToken,+    listUniqueProblemsResponse_uniqueProblems,+    listUniqueProblemsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the list unique problems operation.+--+-- /See:/ 'newListUniqueProblems' smart constructor.+data ListUniqueProblems = ListUniqueProblems'+  { -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The unique problems\' ARNs.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListUniqueProblems' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listUniqueProblems_nextToken' - 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.+--+-- 'arn', 'listUniqueProblems_arn' - The unique problems\' ARNs.+newListUniqueProblems ::+  -- | 'arn'+  Prelude.Text ->+  ListUniqueProblems+newListUniqueProblems pArn_ =+  ListUniqueProblems'+    { nextToken = Prelude.Nothing,+      arn = 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.+listUniqueProblems_nextToken :: Lens.Lens' ListUniqueProblems (Prelude.Maybe Prelude.Text)+listUniqueProblems_nextToken = Lens.lens (\ListUniqueProblems' {nextToken} -> nextToken) (\s@ListUniqueProblems' {} a -> s {nextToken = a} :: ListUniqueProblems)++-- | The unique problems\' ARNs.+listUniqueProblems_arn :: Lens.Lens' ListUniqueProblems Prelude.Text+listUniqueProblems_arn = Lens.lens (\ListUniqueProblems' {arn} -> arn) (\s@ListUniqueProblems' {} a -> s {arn = a} :: ListUniqueProblems)++instance Core.AWSPager ListUniqueProblems where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listUniqueProblemsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listUniqueProblemsResponse_uniqueProblems+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listUniqueProblems_nextToken+          Lens..~ rs+          Lens.^? listUniqueProblemsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListUniqueProblems where+  type+    AWSResponse ListUniqueProblems =+      ListUniqueProblemsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListUniqueProblemsResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (x Data..?> "uniqueProblems" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListUniqueProblems where+  hashWithSalt _salt ListUniqueProblems' {..} =+    _salt+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` arn++instance Prelude.NFData ListUniqueProblems where+  rnf ListUniqueProblems' {..} =+    Prelude.rnf nextToken `Prelude.seq` Prelude.rnf arn++instance Data.ToHeaders ListUniqueProblems where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ListUniqueProblems" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListUniqueProblems where+  toJSON ListUniqueProblems' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("arn" Data..= arn)+          ]+      )++instance Data.ToPath ListUniqueProblems where+  toPath = Prelude.const "/"++instance Data.ToQuery ListUniqueProblems where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a list unique problems request.+--+-- /See:/ 'newListUniqueProblemsResponse' smart constructor.+data ListUniqueProblemsResponse = ListUniqueProblemsResponse'+  { -- | If the number of items that are returned is significantly large, this is+    -- an identifier that is also returned. It can be used in a subsequent call+    -- to this operation to return the next set of items in the list.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Information about the unique problems.+    --+    -- Allowed values include:+    --+    -- -   PENDING+    --+    -- -   PASSED+    --+    -- -   WARNED+    --+    -- -   FAILED+    --+    -- -   SKIPPED+    --+    -- -   ERRORED+    --+    -- -   STOPPED+    uniqueProblems :: Prelude.Maybe (Prelude.HashMap ExecutionResult [UniqueProblem]),+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListUniqueProblemsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listUniqueProblemsResponse_nextToken' - If the number of items that are returned is significantly large, this is+-- an identifier that is also returned. It can be used in a subsequent call+-- to this operation to return the next set of items in the list.+--+-- 'uniqueProblems', 'listUniqueProblemsResponse_uniqueProblems' - Information about the unique problems.+--+-- Allowed values include:+--+-- -   PENDING+--+-- -   PASSED+--+-- -   WARNED+--+-- -   FAILED+--+-- -   SKIPPED+--+-- -   ERRORED+--+-- -   STOPPED+--+-- 'httpStatus', 'listUniqueProblemsResponse_httpStatus' - The response's http status code.+newListUniqueProblemsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListUniqueProblemsResponse+newListUniqueProblemsResponse pHttpStatus_ =+  ListUniqueProblemsResponse'+    { nextToken =+        Prelude.Nothing,+      uniqueProblems = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | If the number of items that are returned is significantly large, this is+-- an identifier that is also returned. It can be used in a subsequent call+-- to this operation to return the next set of items in the list.+listUniqueProblemsResponse_nextToken :: Lens.Lens' ListUniqueProblemsResponse (Prelude.Maybe Prelude.Text)+listUniqueProblemsResponse_nextToken = Lens.lens (\ListUniqueProblemsResponse' {nextToken} -> nextToken) (\s@ListUniqueProblemsResponse' {} a -> s {nextToken = a} :: ListUniqueProblemsResponse)++-- | Information about the unique problems.+--+-- Allowed values include:+--+-- -   PENDING+--+-- -   PASSED+--+-- -   WARNED+--+-- -   FAILED+--+-- -   SKIPPED+--+-- -   ERRORED+--+-- -   STOPPED+listUniqueProblemsResponse_uniqueProblems :: Lens.Lens' ListUniqueProblemsResponse (Prelude.Maybe (Prelude.HashMap ExecutionResult [UniqueProblem]))+listUniqueProblemsResponse_uniqueProblems = Lens.lens (\ListUniqueProblemsResponse' {uniqueProblems} -> uniqueProblems) (\s@ListUniqueProblemsResponse' {} a -> s {uniqueProblems = a} :: ListUniqueProblemsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listUniqueProblemsResponse_httpStatus :: Lens.Lens' ListUniqueProblemsResponse Prelude.Int+listUniqueProblemsResponse_httpStatus = Lens.lens (\ListUniqueProblemsResponse' {httpStatus} -> httpStatus) (\s@ListUniqueProblemsResponse' {} a -> s {httpStatus = a} :: ListUniqueProblemsResponse)++instance Prelude.NFData ListUniqueProblemsResponse where+  rnf ListUniqueProblemsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf uniqueProblems+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/ListUploads.hs view
@@ -0,0 +1,449 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ListUploads+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about uploads, given an AWS Device Farm project ARN.+--+-- This operation returns paginated results.+module Amazonka.DeviceFarm.ListUploads+  ( -- * Creating a Request+    ListUploads (..),+    newListUploads,++    -- * Request Lenses+    listUploads_nextToken,+    listUploads_type,+    listUploads_arn,++    -- * Destructuring the Response+    ListUploadsResponse (..),+    newListUploadsResponse,++    -- * Response Lenses+    listUploadsResponse_nextToken,+    listUploadsResponse_uploads,+    listUploadsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the list uploads operation.+--+-- /See:/ 'newListUploads' smart constructor.+data ListUploads = ListUploads'+  { -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The type of upload.+    --+    -- Must be one of the following values:+    --+    -- -   ANDROID_APP+    --+    -- -   IOS_APP+    --+    -- -   WEB_APP+    --+    -- -   EXTERNAL_DATA+    --+    -- -   APPIUM_JAVA_JUNIT_TEST_PACKAGE+    --+    -- -   APPIUM_JAVA_TESTNG_TEST_PACKAGE+    --+    -- -   APPIUM_PYTHON_TEST_PACKAGE+    --+    -- -   APPIUM_NODE_TEST_PACKAGE+    --+    -- -   APPIUM_RUBY_TEST_PACKAGE+    --+    -- -   APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE+    --+    -- -   APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE+    --+    -- -   APPIUM_WEB_PYTHON_TEST_PACKAGE+    --+    -- -   APPIUM_WEB_NODE_TEST_PACKAGE+    --+    -- -   APPIUM_WEB_RUBY_TEST_PACKAGE+    --+    -- -   CALABASH_TEST_PACKAGE+    --+    -- -   INSTRUMENTATION_TEST_PACKAGE+    --+    -- -   UIAUTOMATION_TEST_PACKAGE+    --+    -- -   UIAUTOMATOR_TEST_PACKAGE+    --+    -- -   XCTEST_TEST_PACKAGE+    --+    -- -   XCTEST_UI_TEST_PACKAGE+    --+    -- -   APPIUM_JAVA_JUNIT_TEST_SPEC+    --+    -- -   APPIUM_JAVA_TESTNG_TEST_SPEC+    --+    -- -   APPIUM_PYTHON_TEST_SPEC+    --+    -- -   APPIUM_NODE_TEST_SPEC+    --+    -- -   APPIUM_RUBY_TEST_SPEC+    --+    -- -   APPIUM_WEB_JAVA_JUNIT_TEST_SPEC+    --+    -- -   APPIUM_WEB_JAVA_TESTNG_TEST_SPEC+    --+    -- -   APPIUM_WEB_PYTHON_TEST_SPEC+    --+    -- -   APPIUM_WEB_NODE_TEST_SPEC+    --+    -- -   APPIUM_WEB_RUBY_TEST_SPEC+    --+    -- -   INSTRUMENTATION_TEST_SPEC+    --+    -- -   XCTEST_UI_TEST_SPEC+    type' :: Prelude.Maybe UploadType,+    -- | The Amazon Resource Name (ARN) of the project for which you want to list+    -- uploads.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListUploads' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listUploads_nextToken' - 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.+--+-- 'type'', 'listUploads_type' - The type of upload.+--+-- Must be one of the following values:+--+-- -   ANDROID_APP+--+-- -   IOS_APP+--+-- -   WEB_APP+--+-- -   EXTERNAL_DATA+--+-- -   APPIUM_JAVA_JUNIT_TEST_PACKAGE+--+-- -   APPIUM_JAVA_TESTNG_TEST_PACKAGE+--+-- -   APPIUM_PYTHON_TEST_PACKAGE+--+-- -   APPIUM_NODE_TEST_PACKAGE+--+-- -   APPIUM_RUBY_TEST_PACKAGE+--+-- -   APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE+--+-- -   APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE+--+-- -   APPIUM_WEB_PYTHON_TEST_PACKAGE+--+-- -   APPIUM_WEB_NODE_TEST_PACKAGE+--+-- -   APPIUM_WEB_RUBY_TEST_PACKAGE+--+-- -   CALABASH_TEST_PACKAGE+--+-- -   INSTRUMENTATION_TEST_PACKAGE+--+-- -   UIAUTOMATION_TEST_PACKAGE+--+-- -   UIAUTOMATOR_TEST_PACKAGE+--+-- -   XCTEST_TEST_PACKAGE+--+-- -   XCTEST_UI_TEST_PACKAGE+--+-- -   APPIUM_JAVA_JUNIT_TEST_SPEC+--+-- -   APPIUM_JAVA_TESTNG_TEST_SPEC+--+-- -   APPIUM_PYTHON_TEST_SPEC+--+-- -   APPIUM_NODE_TEST_SPEC+--+-- -   APPIUM_RUBY_TEST_SPEC+--+-- -   APPIUM_WEB_JAVA_JUNIT_TEST_SPEC+--+-- -   APPIUM_WEB_JAVA_TESTNG_TEST_SPEC+--+-- -   APPIUM_WEB_PYTHON_TEST_SPEC+--+-- -   APPIUM_WEB_NODE_TEST_SPEC+--+-- -   APPIUM_WEB_RUBY_TEST_SPEC+--+-- -   INSTRUMENTATION_TEST_SPEC+--+-- -   XCTEST_UI_TEST_SPEC+--+-- 'arn', 'listUploads_arn' - The Amazon Resource Name (ARN) of the project for which you want to list+-- uploads.+newListUploads ::+  -- | 'arn'+  Prelude.Text ->+  ListUploads+newListUploads pArn_ =+  ListUploads'+    { nextToken = Prelude.Nothing,+      type' = Prelude.Nothing,+      arn = 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.+listUploads_nextToken :: Lens.Lens' ListUploads (Prelude.Maybe Prelude.Text)+listUploads_nextToken = Lens.lens (\ListUploads' {nextToken} -> nextToken) (\s@ListUploads' {} a -> s {nextToken = a} :: ListUploads)++-- | The type of upload.+--+-- Must be one of the following values:+--+-- -   ANDROID_APP+--+-- -   IOS_APP+--+-- -   WEB_APP+--+-- -   EXTERNAL_DATA+--+-- -   APPIUM_JAVA_JUNIT_TEST_PACKAGE+--+-- -   APPIUM_JAVA_TESTNG_TEST_PACKAGE+--+-- -   APPIUM_PYTHON_TEST_PACKAGE+--+-- -   APPIUM_NODE_TEST_PACKAGE+--+-- -   APPIUM_RUBY_TEST_PACKAGE+--+-- -   APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE+--+-- -   APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE+--+-- -   APPIUM_WEB_PYTHON_TEST_PACKAGE+--+-- -   APPIUM_WEB_NODE_TEST_PACKAGE+--+-- -   APPIUM_WEB_RUBY_TEST_PACKAGE+--+-- -   CALABASH_TEST_PACKAGE+--+-- -   INSTRUMENTATION_TEST_PACKAGE+--+-- -   UIAUTOMATION_TEST_PACKAGE+--+-- -   UIAUTOMATOR_TEST_PACKAGE+--+-- -   XCTEST_TEST_PACKAGE+--+-- -   XCTEST_UI_TEST_PACKAGE+--+-- -   APPIUM_JAVA_JUNIT_TEST_SPEC+--+-- -   APPIUM_JAVA_TESTNG_TEST_SPEC+--+-- -   APPIUM_PYTHON_TEST_SPEC+--+-- -   APPIUM_NODE_TEST_SPEC+--+-- -   APPIUM_RUBY_TEST_SPEC+--+-- -   APPIUM_WEB_JAVA_JUNIT_TEST_SPEC+--+-- -   APPIUM_WEB_JAVA_TESTNG_TEST_SPEC+--+-- -   APPIUM_WEB_PYTHON_TEST_SPEC+--+-- -   APPIUM_WEB_NODE_TEST_SPEC+--+-- -   APPIUM_WEB_RUBY_TEST_SPEC+--+-- -   INSTRUMENTATION_TEST_SPEC+--+-- -   XCTEST_UI_TEST_SPEC+listUploads_type :: Lens.Lens' ListUploads (Prelude.Maybe UploadType)+listUploads_type = Lens.lens (\ListUploads' {type'} -> type') (\s@ListUploads' {} a -> s {type' = a} :: ListUploads)++-- | The Amazon Resource Name (ARN) of the project for which you want to list+-- uploads.+listUploads_arn :: Lens.Lens' ListUploads Prelude.Text+listUploads_arn = Lens.lens (\ListUploads' {arn} -> arn) (\s@ListUploads' {} a -> s {arn = a} :: ListUploads)++instance Core.AWSPager ListUploads where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listUploadsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listUploadsResponse_uploads+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listUploads_nextToken+          Lens..~ rs+          Lens.^? listUploadsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListUploads where+  type AWSResponse ListUploads = ListUploadsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListUploadsResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (x Data..?> "uploads" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListUploads where+  hashWithSalt _salt ListUploads' {..} =+    _salt+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` arn++instance Prelude.NFData ListUploads where+  rnf ListUploads' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf arn++instance Data.ToHeaders ListUploads where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ListUploads" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListUploads where+  toJSON ListUploads' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("nextToken" Data..=) Prelude.<$> nextToken,+            ("type" Data..=) Prelude.<$> type',+            Prelude.Just ("arn" Data..= arn)+          ]+      )++instance Data.ToPath ListUploads where+  toPath = Prelude.const "/"++instance Data.ToQuery ListUploads where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a list uploads request.+--+-- /See:/ 'newListUploadsResponse' smart constructor.+data ListUploadsResponse = ListUploadsResponse'+  { -- | If the number of items that are returned is significantly large, this is+    -- an identifier that is also returned. It can be used in a subsequent call+    -- to this operation to return the next set of items in the list.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Information about the uploads.+    uploads :: Prelude.Maybe [Upload],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListUploadsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listUploadsResponse_nextToken' - If the number of items that are returned is significantly large, this is+-- an identifier that is also returned. It can be used in a subsequent call+-- to this operation to return the next set of items in the list.+--+-- 'uploads', 'listUploadsResponse_uploads' - Information about the uploads.+--+-- 'httpStatus', 'listUploadsResponse_httpStatus' - The response's http status code.+newListUploadsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListUploadsResponse+newListUploadsResponse pHttpStatus_ =+  ListUploadsResponse'+    { nextToken = Prelude.Nothing,+      uploads = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | If the number of items that are returned is significantly large, this is+-- an identifier that is also returned. It can be used in a subsequent call+-- to this operation to return the next set of items in the list.+listUploadsResponse_nextToken :: Lens.Lens' ListUploadsResponse (Prelude.Maybe Prelude.Text)+listUploadsResponse_nextToken = Lens.lens (\ListUploadsResponse' {nextToken} -> nextToken) (\s@ListUploadsResponse' {} a -> s {nextToken = a} :: ListUploadsResponse)++-- | Information about the uploads.+listUploadsResponse_uploads :: Lens.Lens' ListUploadsResponse (Prelude.Maybe [Upload])+listUploadsResponse_uploads = Lens.lens (\ListUploadsResponse' {uploads} -> uploads) (\s@ListUploadsResponse' {} a -> s {uploads = a} :: ListUploadsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listUploadsResponse_httpStatus :: Lens.Lens' ListUploadsResponse Prelude.Int+listUploadsResponse_httpStatus = Lens.lens (\ListUploadsResponse' {httpStatus} -> httpStatus) (\s@ListUploadsResponse' {} a -> s {httpStatus = a} :: ListUploadsResponse)++instance Prelude.NFData ListUploadsResponse where+  rnf ListUploadsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf uploads+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/ListVPCEConfigurations.hs view
@@ -0,0 +1,246 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ListVPCEConfigurations+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about all Amazon Virtual Private Cloud (VPC)+-- endpoint configurations in the AWS account.+--+-- This operation returns paginated results.+module Amazonka.DeviceFarm.ListVPCEConfigurations+  ( -- * Creating a Request+    ListVPCEConfigurations (..),+    newListVPCEConfigurations,++    -- * Request Lenses+    listVPCEConfigurations_maxResults,+    listVPCEConfigurations_nextToken,++    -- * Destructuring the Response+    ListVPCEConfigurationsResponse (..),+    newListVPCEConfigurationsResponse,++    -- * Response Lenses+    listVPCEConfigurationsResponse_nextToken,+    listVPCEConfigurationsResponse_vpceConfigurations,+    listVPCEConfigurationsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListVPCEConfigurations' smart constructor.+data ListVPCEConfigurations = ListVPCEConfigurations'+  { -- | An integer that specifies the maximum number of items you want to return+    -- in the API response.+    maxResults :: Prelude.Maybe Prelude.Int,+    -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListVPCEConfigurations' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'listVPCEConfigurations_maxResults' - An integer that specifies the maximum number of items you want to return+-- in the API response.+--+-- 'nextToken', 'listVPCEConfigurations_nextToken' - 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.+newListVPCEConfigurations ::+  ListVPCEConfigurations+newListVPCEConfigurations =+  ListVPCEConfigurations'+    { maxResults =+        Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | An integer that specifies the maximum number of items you want to return+-- in the API response.+listVPCEConfigurations_maxResults :: Lens.Lens' ListVPCEConfigurations (Prelude.Maybe Prelude.Int)+listVPCEConfigurations_maxResults = Lens.lens (\ListVPCEConfigurations' {maxResults} -> maxResults) (\s@ListVPCEConfigurations' {} a -> s {maxResults = a} :: ListVPCEConfigurations)++-- | 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.+listVPCEConfigurations_nextToken :: Lens.Lens' ListVPCEConfigurations (Prelude.Maybe Prelude.Text)+listVPCEConfigurations_nextToken = Lens.lens (\ListVPCEConfigurations' {nextToken} -> nextToken) (\s@ListVPCEConfigurations' {} a -> s {nextToken = a} :: ListVPCEConfigurations)++instance Core.AWSPager ListVPCEConfigurations where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listVPCEConfigurationsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listVPCEConfigurationsResponse_vpceConfigurations+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listVPCEConfigurations_nextToken+          Lens..~ rs+          Lens.^? listVPCEConfigurationsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListVPCEConfigurations where+  type+    AWSResponse ListVPCEConfigurations =+      ListVPCEConfigurationsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListVPCEConfigurationsResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> ( x+                            Data..?> "vpceConfigurations"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListVPCEConfigurations where+  hashWithSalt _salt ListVPCEConfigurations' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListVPCEConfigurations where+  rnf ListVPCEConfigurations' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListVPCEConfigurations where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ListVPCEConfigurations" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListVPCEConfigurations where+  toJSON ListVPCEConfigurations' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath ListVPCEConfigurations where+  toPath = Prelude.const "/"++instance Data.ToQuery ListVPCEConfigurations where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListVPCEConfigurationsResponse' smart constructor.+data ListVPCEConfigurationsResponse = ListVPCEConfigurationsResponse'+  { -- | 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.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | An array of @VPCEConfiguration@ objects that contain information about+    -- your VPC endpoint configuration.+    vpceConfigurations :: Prelude.Maybe [VPCEConfiguration],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListVPCEConfigurationsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listVPCEConfigurationsResponse_nextToken' - 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.+--+-- 'vpceConfigurations', 'listVPCEConfigurationsResponse_vpceConfigurations' - An array of @VPCEConfiguration@ objects that contain information about+-- your VPC endpoint configuration.+--+-- 'httpStatus', 'listVPCEConfigurationsResponse_httpStatus' - The response's http status code.+newListVPCEConfigurationsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListVPCEConfigurationsResponse+newListVPCEConfigurationsResponse pHttpStatus_ =+  ListVPCEConfigurationsResponse'+    { nextToken =+        Prelude.Nothing,+      vpceConfigurations = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | 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.+listVPCEConfigurationsResponse_nextToken :: Lens.Lens' ListVPCEConfigurationsResponse (Prelude.Maybe Prelude.Text)+listVPCEConfigurationsResponse_nextToken = Lens.lens (\ListVPCEConfigurationsResponse' {nextToken} -> nextToken) (\s@ListVPCEConfigurationsResponse' {} a -> s {nextToken = a} :: ListVPCEConfigurationsResponse)++-- | An array of @VPCEConfiguration@ objects that contain information about+-- your VPC endpoint configuration.+listVPCEConfigurationsResponse_vpceConfigurations :: Lens.Lens' ListVPCEConfigurationsResponse (Prelude.Maybe [VPCEConfiguration])+listVPCEConfigurationsResponse_vpceConfigurations = Lens.lens (\ListVPCEConfigurationsResponse' {vpceConfigurations} -> vpceConfigurations) (\s@ListVPCEConfigurationsResponse' {} a -> s {vpceConfigurations = a} :: ListVPCEConfigurationsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listVPCEConfigurationsResponse_httpStatus :: Lens.Lens' ListVPCEConfigurationsResponse Prelude.Int+listVPCEConfigurationsResponse_httpStatus = Lens.lens (\ListVPCEConfigurationsResponse' {httpStatus} -> httpStatus) (\s@ListVPCEConfigurationsResponse' {} a -> s {httpStatus = a} :: ListVPCEConfigurationsResponse)++instance+  Prelude.NFData+    ListVPCEConfigurationsResponse+  where+  rnf ListVPCEConfigurationsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf vpceConfigurations+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/PurchaseOffering.hs view
@@ -0,0 +1,212 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.PurchaseOffering+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Immediately purchases offerings for an AWS account. Offerings renew with+-- the latest total purchased quantity for an offering, unless the renewal+-- was overridden. The API returns a @NotEligible@ error if the user is not+-- permitted to invoke the operation. If you must be able to invoke this+-- operation, contact+-- <mailto:aws-devicefarm-support@amazon.com aws-devicefarm-support\@amazon.com>.+module Amazonka.DeviceFarm.PurchaseOffering+  ( -- * Creating a Request+    PurchaseOffering (..),+    newPurchaseOffering,++    -- * Request Lenses+    purchaseOffering_offeringPromotionId,+    purchaseOffering_offeringId,+    purchaseOffering_quantity,++    -- * Destructuring the Response+    PurchaseOfferingResponse (..),+    newPurchaseOfferingResponse,++    -- * Response Lenses+    purchaseOfferingResponse_offeringTransaction,+    purchaseOfferingResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request for a purchase offering.+--+-- /See:/ 'newPurchaseOffering' smart constructor.+data PurchaseOffering = PurchaseOffering'+  { -- | The ID of the offering promotion to be applied to the purchase.+    offeringPromotionId :: Prelude.Maybe Prelude.Text,+    -- | The ID of the offering.+    offeringId :: Prelude.Text,+    -- | The number of device slots to purchase in an offering request.+    quantity :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PurchaseOffering' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'offeringPromotionId', 'purchaseOffering_offeringPromotionId' - The ID of the offering promotion to be applied to the purchase.+--+-- 'offeringId', 'purchaseOffering_offeringId' - The ID of the offering.+--+-- 'quantity', 'purchaseOffering_quantity' - The number of device slots to purchase in an offering request.+newPurchaseOffering ::+  -- | 'offeringId'+  Prelude.Text ->+  -- | 'quantity'+  Prelude.Int ->+  PurchaseOffering+newPurchaseOffering pOfferingId_ pQuantity_ =+  PurchaseOffering'+    { offeringPromotionId =+        Prelude.Nothing,+      offeringId = pOfferingId_,+      quantity = pQuantity_+    }++-- | The ID of the offering promotion to be applied to the purchase.+purchaseOffering_offeringPromotionId :: Lens.Lens' PurchaseOffering (Prelude.Maybe Prelude.Text)+purchaseOffering_offeringPromotionId = Lens.lens (\PurchaseOffering' {offeringPromotionId} -> offeringPromotionId) (\s@PurchaseOffering' {} a -> s {offeringPromotionId = a} :: PurchaseOffering)++-- | The ID of the offering.+purchaseOffering_offeringId :: Lens.Lens' PurchaseOffering Prelude.Text+purchaseOffering_offeringId = Lens.lens (\PurchaseOffering' {offeringId} -> offeringId) (\s@PurchaseOffering' {} a -> s {offeringId = a} :: PurchaseOffering)++-- | The number of device slots to purchase in an offering request.+purchaseOffering_quantity :: Lens.Lens' PurchaseOffering Prelude.Int+purchaseOffering_quantity = Lens.lens (\PurchaseOffering' {quantity} -> quantity) (\s@PurchaseOffering' {} a -> s {quantity = a} :: PurchaseOffering)++instance Core.AWSRequest PurchaseOffering where+  type+    AWSResponse PurchaseOffering =+      PurchaseOfferingResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          PurchaseOfferingResponse'+            Prelude.<$> (x Data..?> "offeringTransaction")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable PurchaseOffering where+  hashWithSalt _salt PurchaseOffering' {..} =+    _salt+      `Prelude.hashWithSalt` offeringPromotionId+      `Prelude.hashWithSalt` offeringId+      `Prelude.hashWithSalt` quantity++instance Prelude.NFData PurchaseOffering where+  rnf PurchaseOffering' {..} =+    Prelude.rnf offeringPromotionId+      `Prelude.seq` Prelude.rnf offeringId+      `Prelude.seq` Prelude.rnf quantity++instance Data.ToHeaders PurchaseOffering where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.PurchaseOffering" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON PurchaseOffering where+  toJSON PurchaseOffering' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("offeringPromotionId" Data..=)+              Prelude.<$> offeringPromotionId,+            Prelude.Just ("offeringId" Data..= offeringId),+            Prelude.Just ("quantity" Data..= quantity)+          ]+      )++instance Data.ToPath PurchaseOffering where+  toPath = Prelude.const "/"++instance Data.ToQuery PurchaseOffering where+  toQuery = Prelude.const Prelude.mempty++-- | The result of the purchase offering (for example, success or failure).+--+-- /See:/ 'newPurchaseOfferingResponse' smart constructor.+data PurchaseOfferingResponse = PurchaseOfferingResponse'+  { -- | Represents the offering transaction for the purchase result.+    offeringTransaction :: Prelude.Maybe OfferingTransaction,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PurchaseOfferingResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'offeringTransaction', 'purchaseOfferingResponse_offeringTransaction' - Represents the offering transaction for the purchase result.+--+-- 'httpStatus', 'purchaseOfferingResponse_httpStatus' - The response's http status code.+newPurchaseOfferingResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  PurchaseOfferingResponse+newPurchaseOfferingResponse pHttpStatus_ =+  PurchaseOfferingResponse'+    { offeringTransaction =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Represents the offering transaction for the purchase result.+purchaseOfferingResponse_offeringTransaction :: Lens.Lens' PurchaseOfferingResponse (Prelude.Maybe OfferingTransaction)+purchaseOfferingResponse_offeringTransaction = Lens.lens (\PurchaseOfferingResponse' {offeringTransaction} -> offeringTransaction) (\s@PurchaseOfferingResponse' {} a -> s {offeringTransaction = a} :: PurchaseOfferingResponse)++-- | The response's http status code.+purchaseOfferingResponse_httpStatus :: Lens.Lens' PurchaseOfferingResponse Prelude.Int+purchaseOfferingResponse_httpStatus = Lens.lens (\PurchaseOfferingResponse' {httpStatus} -> httpStatus) (\s@PurchaseOfferingResponse' {} a -> s {httpStatus = a} :: PurchaseOfferingResponse)++instance Prelude.NFData PurchaseOfferingResponse where+  rnf PurchaseOfferingResponse' {..} =+    Prelude.rnf offeringTransaction+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/RenewOffering.hs view
@@ -0,0 +1,196 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.RenewOffering+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Explicitly sets the quantity of devices to renew for an offering,+-- starting from the @effectiveDate@ of the next period. The API returns a+-- @NotEligible@ error if the user is not permitted to invoke the+-- operation. If you must be able to invoke this operation, contact+-- <mailto:aws-devicefarm-support@amazon.com aws-devicefarm-support\@amazon.com>.+module Amazonka.DeviceFarm.RenewOffering+  ( -- * Creating a Request+    RenewOffering (..),+    newRenewOffering,++    -- * Request Lenses+    renewOffering_offeringId,+    renewOffering_quantity,++    -- * Destructuring the Response+    RenewOfferingResponse (..),+    newRenewOfferingResponse,++    -- * Response Lenses+    renewOfferingResponse_offeringTransaction,+    renewOfferingResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | A request that represents an offering renewal.+--+-- /See:/ 'newRenewOffering' smart constructor.+data RenewOffering = RenewOffering'+  { -- | The ID of a request to renew an offering.+    offeringId :: Prelude.Text,+    -- | The quantity requested in an offering renewal.+    quantity :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RenewOffering' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'offeringId', 'renewOffering_offeringId' - The ID of a request to renew an offering.+--+-- 'quantity', 'renewOffering_quantity' - The quantity requested in an offering renewal.+newRenewOffering ::+  -- | 'offeringId'+  Prelude.Text ->+  -- | 'quantity'+  Prelude.Int ->+  RenewOffering+newRenewOffering pOfferingId_ pQuantity_ =+  RenewOffering'+    { offeringId = pOfferingId_,+      quantity = pQuantity_+    }++-- | The ID of a request to renew an offering.+renewOffering_offeringId :: Lens.Lens' RenewOffering Prelude.Text+renewOffering_offeringId = Lens.lens (\RenewOffering' {offeringId} -> offeringId) (\s@RenewOffering' {} a -> s {offeringId = a} :: RenewOffering)++-- | The quantity requested in an offering renewal.+renewOffering_quantity :: Lens.Lens' RenewOffering Prelude.Int+renewOffering_quantity = Lens.lens (\RenewOffering' {quantity} -> quantity) (\s@RenewOffering' {} a -> s {quantity = a} :: RenewOffering)++instance Core.AWSRequest RenewOffering where+  type+    AWSResponse RenewOffering =+      RenewOfferingResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          RenewOfferingResponse'+            Prelude.<$> (x Data..?> "offeringTransaction")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable RenewOffering where+  hashWithSalt _salt RenewOffering' {..} =+    _salt+      `Prelude.hashWithSalt` offeringId+      `Prelude.hashWithSalt` quantity++instance Prelude.NFData RenewOffering where+  rnf RenewOffering' {..} =+    Prelude.rnf offeringId+      `Prelude.seq` Prelude.rnf quantity++instance Data.ToHeaders RenewOffering where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.RenewOffering" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON RenewOffering where+  toJSON RenewOffering' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("offeringId" Data..= offeringId),+            Prelude.Just ("quantity" Data..= quantity)+          ]+      )++instance Data.ToPath RenewOffering where+  toPath = Prelude.const "/"++instance Data.ToQuery RenewOffering where+  toQuery = Prelude.const Prelude.mempty++-- | The result of a renewal offering.+--+-- /See:/ 'newRenewOfferingResponse' smart constructor.+data RenewOfferingResponse = RenewOfferingResponse'+  { -- | Represents the status of the offering transaction for the renewal.+    offeringTransaction :: Prelude.Maybe OfferingTransaction,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RenewOfferingResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'offeringTransaction', 'renewOfferingResponse_offeringTransaction' - Represents the status of the offering transaction for the renewal.+--+-- 'httpStatus', 'renewOfferingResponse_httpStatus' - The response's http status code.+newRenewOfferingResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  RenewOfferingResponse+newRenewOfferingResponse pHttpStatus_ =+  RenewOfferingResponse'+    { offeringTransaction =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Represents the status of the offering transaction for the renewal.+renewOfferingResponse_offeringTransaction :: Lens.Lens' RenewOfferingResponse (Prelude.Maybe OfferingTransaction)+renewOfferingResponse_offeringTransaction = Lens.lens (\RenewOfferingResponse' {offeringTransaction} -> offeringTransaction) (\s@RenewOfferingResponse' {} a -> s {offeringTransaction = a} :: RenewOfferingResponse)++-- | The response's http status code.+renewOfferingResponse_httpStatus :: Lens.Lens' RenewOfferingResponse Prelude.Int+renewOfferingResponse_httpStatus = Lens.lens (\RenewOfferingResponse' {httpStatus} -> httpStatus) (\s@RenewOfferingResponse' {} a -> s {httpStatus = a} :: RenewOfferingResponse)++instance Prelude.NFData RenewOfferingResponse where+  rnf RenewOfferingResponse' {..} =+    Prelude.rnf offeringTransaction+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/ScheduleRun.hs view
@@ -0,0 +1,287 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.ScheduleRun+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Schedules a run.+module Amazonka.DeviceFarm.ScheduleRun+  ( -- * Creating a Request+    ScheduleRun (..),+    newScheduleRun,++    -- * Request Lenses+    scheduleRun_appArn,+    scheduleRun_configuration,+    scheduleRun_devicePoolArn,+    scheduleRun_deviceSelectionConfiguration,+    scheduleRun_executionConfiguration,+    scheduleRun_name,+    scheduleRun_projectArn,+    scheduleRun_test,++    -- * Destructuring the Response+    ScheduleRunResponse (..),+    newScheduleRunResponse,++    -- * Response Lenses+    scheduleRunResponse_run,+    scheduleRunResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the schedule run operation.+--+-- /See:/ 'newScheduleRun' smart constructor.+data ScheduleRun = ScheduleRun'+  { -- | The ARN of an application package to run tests against, created with+    -- CreateUpload. See ListUploads.+    appArn :: Prelude.Maybe Prelude.Text,+    -- | Information about the settings for the run to be scheduled.+    configuration :: Prelude.Maybe ScheduleRunConfiguration,+    -- | The ARN of the device pool for the run to be scheduled.+    devicePoolArn :: Prelude.Maybe Prelude.Text,+    -- | The filter criteria used to dynamically select a set of devices for a+    -- test run and the maximum number of devices to be included in the run.+    --+    -- Either __@devicePoolArn@__ or __@deviceSelectionConfiguration@__ is+    -- required in a request.+    deviceSelectionConfiguration :: Prelude.Maybe DeviceSelectionConfiguration,+    -- | Specifies configuration information about a test run, such as the+    -- execution timeout (in minutes).+    executionConfiguration :: Prelude.Maybe ExecutionConfiguration,+    -- | The name for the run to be scheduled.+    name :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the project for the run to be scheduled.+    projectArn :: Prelude.Text,+    -- | Information about the test for the run to be scheduled.+    test :: ScheduleRunTest+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ScheduleRun' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'appArn', 'scheduleRun_appArn' - The ARN of an application package to run tests against, created with+-- CreateUpload. See ListUploads.+--+-- 'configuration', 'scheduleRun_configuration' - Information about the settings for the run to be scheduled.+--+-- 'devicePoolArn', 'scheduleRun_devicePoolArn' - The ARN of the device pool for the run to be scheduled.+--+-- 'deviceSelectionConfiguration', 'scheduleRun_deviceSelectionConfiguration' - The filter criteria used to dynamically select a set of devices for a+-- test run and the maximum number of devices to be included in the run.+--+-- Either __@devicePoolArn@__ or __@deviceSelectionConfiguration@__ is+-- required in a request.+--+-- 'executionConfiguration', 'scheduleRun_executionConfiguration' - Specifies configuration information about a test run, such as the+-- execution timeout (in minutes).+--+-- 'name', 'scheduleRun_name' - The name for the run to be scheduled.+--+-- 'projectArn', 'scheduleRun_projectArn' - The ARN of the project for the run to be scheduled.+--+-- 'test', 'scheduleRun_test' - Information about the test for the run to be scheduled.+newScheduleRun ::+  -- | 'projectArn'+  Prelude.Text ->+  -- | 'test'+  ScheduleRunTest ->+  ScheduleRun+newScheduleRun pProjectArn_ pTest_ =+  ScheduleRun'+    { appArn = Prelude.Nothing,+      configuration = Prelude.Nothing,+      devicePoolArn = Prelude.Nothing,+      deviceSelectionConfiguration = Prelude.Nothing,+      executionConfiguration = Prelude.Nothing,+      name = Prelude.Nothing,+      projectArn = pProjectArn_,+      test = pTest_+    }++-- | The ARN of an application package to run tests against, created with+-- CreateUpload. See ListUploads.+scheduleRun_appArn :: Lens.Lens' ScheduleRun (Prelude.Maybe Prelude.Text)+scheduleRun_appArn = Lens.lens (\ScheduleRun' {appArn} -> appArn) (\s@ScheduleRun' {} a -> s {appArn = a} :: ScheduleRun)++-- | Information about the settings for the run to be scheduled.+scheduleRun_configuration :: Lens.Lens' ScheduleRun (Prelude.Maybe ScheduleRunConfiguration)+scheduleRun_configuration = Lens.lens (\ScheduleRun' {configuration} -> configuration) (\s@ScheduleRun' {} a -> s {configuration = a} :: ScheduleRun)++-- | The ARN of the device pool for the run to be scheduled.+scheduleRun_devicePoolArn :: Lens.Lens' ScheduleRun (Prelude.Maybe Prelude.Text)+scheduleRun_devicePoolArn = Lens.lens (\ScheduleRun' {devicePoolArn} -> devicePoolArn) (\s@ScheduleRun' {} a -> s {devicePoolArn = a} :: ScheduleRun)++-- | The filter criteria used to dynamically select a set of devices for a+-- test run and the maximum number of devices to be included in the run.+--+-- Either __@devicePoolArn@__ or __@deviceSelectionConfiguration@__ is+-- required in a request.+scheduleRun_deviceSelectionConfiguration :: Lens.Lens' ScheduleRun (Prelude.Maybe DeviceSelectionConfiguration)+scheduleRun_deviceSelectionConfiguration = Lens.lens (\ScheduleRun' {deviceSelectionConfiguration} -> deviceSelectionConfiguration) (\s@ScheduleRun' {} a -> s {deviceSelectionConfiguration = a} :: ScheduleRun)++-- | Specifies configuration information about a test run, such as the+-- execution timeout (in minutes).+scheduleRun_executionConfiguration :: Lens.Lens' ScheduleRun (Prelude.Maybe ExecutionConfiguration)+scheduleRun_executionConfiguration = Lens.lens (\ScheduleRun' {executionConfiguration} -> executionConfiguration) (\s@ScheduleRun' {} a -> s {executionConfiguration = a} :: ScheduleRun)++-- | The name for the run to be scheduled.+scheduleRun_name :: Lens.Lens' ScheduleRun (Prelude.Maybe Prelude.Text)+scheduleRun_name = Lens.lens (\ScheduleRun' {name} -> name) (\s@ScheduleRun' {} a -> s {name = a} :: ScheduleRun)++-- | The ARN of the project for the run to be scheduled.+scheduleRun_projectArn :: Lens.Lens' ScheduleRun Prelude.Text+scheduleRun_projectArn = Lens.lens (\ScheduleRun' {projectArn} -> projectArn) (\s@ScheduleRun' {} a -> s {projectArn = a} :: ScheduleRun)++-- | Information about the test for the run to be scheduled.+scheduleRun_test :: Lens.Lens' ScheduleRun ScheduleRunTest+scheduleRun_test = Lens.lens (\ScheduleRun' {test} -> test) (\s@ScheduleRun' {} a -> s {test = a} :: ScheduleRun)++instance Core.AWSRequest ScheduleRun where+  type AWSResponse ScheduleRun = ScheduleRunResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ScheduleRunResponse'+            Prelude.<$> (x Data..?> "run")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ScheduleRun where+  hashWithSalt _salt ScheduleRun' {..} =+    _salt+      `Prelude.hashWithSalt` appArn+      `Prelude.hashWithSalt` configuration+      `Prelude.hashWithSalt` devicePoolArn+      `Prelude.hashWithSalt` deviceSelectionConfiguration+      `Prelude.hashWithSalt` executionConfiguration+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` projectArn+      `Prelude.hashWithSalt` test++instance Prelude.NFData ScheduleRun where+  rnf ScheduleRun' {..} =+    Prelude.rnf appArn+      `Prelude.seq` Prelude.rnf configuration+      `Prelude.seq` Prelude.rnf devicePoolArn+      `Prelude.seq` Prelude.rnf deviceSelectionConfiguration+      `Prelude.seq` Prelude.rnf executionConfiguration+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf projectArn+      `Prelude.seq` Prelude.rnf test++instance Data.ToHeaders ScheduleRun where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.ScheduleRun" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ScheduleRun where+  toJSON ScheduleRun' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("appArn" Data..=) Prelude.<$> appArn,+            ("configuration" Data..=) Prelude.<$> configuration,+            ("devicePoolArn" Data..=) Prelude.<$> devicePoolArn,+            ("deviceSelectionConfiguration" Data..=)+              Prelude.<$> deviceSelectionConfiguration,+            ("executionConfiguration" Data..=)+              Prelude.<$> executionConfiguration,+            ("name" Data..=) Prelude.<$> name,+            Prelude.Just ("projectArn" Data..= projectArn),+            Prelude.Just ("test" Data..= test)+          ]+      )++instance Data.ToPath ScheduleRun where+  toPath = Prelude.const "/"++instance Data.ToQuery ScheduleRun where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of a schedule run request.+--+-- /See:/ 'newScheduleRunResponse' smart constructor.+data ScheduleRunResponse = ScheduleRunResponse'+  { -- | Information about the scheduled run.+    run :: Prelude.Maybe Run,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ScheduleRunResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'run', 'scheduleRunResponse_run' - Information about the scheduled run.+--+-- 'httpStatus', 'scheduleRunResponse_httpStatus' - The response's http status code.+newScheduleRunResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ScheduleRunResponse+newScheduleRunResponse pHttpStatus_ =+  ScheduleRunResponse'+    { run = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Information about the scheduled run.+scheduleRunResponse_run :: Lens.Lens' ScheduleRunResponse (Prelude.Maybe Run)+scheduleRunResponse_run = Lens.lens (\ScheduleRunResponse' {run} -> run) (\s@ScheduleRunResponse' {} a -> s {run = a} :: ScheduleRunResponse)++-- | The response's http status code.+scheduleRunResponse_httpStatus :: Lens.Lens' ScheduleRunResponse Prelude.Int+scheduleRunResponse_httpStatus = Lens.lens (\ScheduleRunResponse' {httpStatus} -> httpStatus) (\s@ScheduleRunResponse' {} a -> s {httpStatus = a} :: ScheduleRunResponse)++instance Prelude.NFData ScheduleRunResponse where+  rnf ScheduleRunResponse' {..} =+    Prelude.rnf run+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/StopJob.hs view
@@ -0,0 +1,172 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.StopJob+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Initiates a stop request for the current job. AWS Device Farm+-- immediately stops the job on the device where tests have not started.+-- You are not billed for this device. On the device where tests have+-- started, setup suite and teardown suite tests run to completion on the+-- device. You are billed for setup, teardown, and any tests that were in+-- progress or already completed.+module Amazonka.DeviceFarm.StopJob+  ( -- * Creating a Request+    StopJob (..),+    newStopJob,++    -- * Request Lenses+    stopJob_arn,++    -- * Destructuring the Response+    StopJobResponse (..),+    newStopJobResponse,++    -- * Response Lenses+    stopJobResponse_job,+    stopJobResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newStopJob' smart constructor.+data StopJob = StopJob'+  { -- | Represents the Amazon Resource Name (ARN) of the Device Farm job to+    -- stop.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StopJob' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'stopJob_arn' - Represents the Amazon Resource Name (ARN) of the Device Farm job to+-- stop.+newStopJob ::+  -- | 'arn'+  Prelude.Text ->+  StopJob+newStopJob pArn_ = StopJob' {arn = pArn_}++-- | Represents the Amazon Resource Name (ARN) of the Device Farm job to+-- stop.+stopJob_arn :: Lens.Lens' StopJob Prelude.Text+stopJob_arn = Lens.lens (\StopJob' {arn} -> arn) (\s@StopJob' {} a -> s {arn = a} :: StopJob)++instance Core.AWSRequest StopJob where+  type AWSResponse StopJob = StopJobResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          StopJobResponse'+            Prelude.<$> (x Data..?> "job")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable StopJob where+  hashWithSalt _salt StopJob' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData StopJob where+  rnf StopJob' {..} = Prelude.rnf arn++instance Data.ToHeaders StopJob where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.StopJob" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON StopJob where+  toJSON StopJob' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("arn" Data..= arn)]+      )++instance Data.ToPath StopJob where+  toPath = Prelude.const "/"++instance Data.ToQuery StopJob where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newStopJobResponse' smart constructor.+data StopJobResponse = StopJobResponse'+  { -- | The job that was stopped.+    job :: Prelude.Maybe Job,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StopJobResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'job', 'stopJobResponse_job' - The job that was stopped.+--+-- 'httpStatus', 'stopJobResponse_httpStatus' - The response's http status code.+newStopJobResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  StopJobResponse+newStopJobResponse pHttpStatus_ =+  StopJobResponse'+    { job = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The job that was stopped.+stopJobResponse_job :: Lens.Lens' StopJobResponse (Prelude.Maybe Job)+stopJobResponse_job = Lens.lens (\StopJobResponse' {job} -> job) (\s@StopJobResponse' {} a -> s {job = a} :: StopJobResponse)++-- | The response's http status code.+stopJobResponse_httpStatus :: Lens.Lens' StopJobResponse Prelude.Int+stopJobResponse_httpStatus = Lens.lens (\StopJobResponse' {httpStatus} -> httpStatus) (\s@StopJobResponse' {} a -> s {httpStatus = a} :: StopJobResponse)++instance Prelude.NFData StopJobResponse where+  rnf StopJobResponse' {..} =+    Prelude.rnf job+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/StopRemoteAccessSession.hs view
@@ -0,0 +1,179 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.StopRemoteAccessSession+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Ends a specified remote access session.+module Amazonka.DeviceFarm.StopRemoteAccessSession+  ( -- * Creating a Request+    StopRemoteAccessSession (..),+    newStopRemoteAccessSession,++    -- * Request Lenses+    stopRemoteAccessSession_arn,++    -- * Destructuring the Response+    StopRemoteAccessSessionResponse (..),+    newStopRemoteAccessSessionResponse,++    -- * Response Lenses+    stopRemoteAccessSessionResponse_remoteAccessSession,+    stopRemoteAccessSessionResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents the request to stop the remote access session.+--+-- /See:/ 'newStopRemoteAccessSession' smart constructor.+data StopRemoteAccessSession = StopRemoteAccessSession'+  { -- | The Amazon Resource Name (ARN) of the remote access session to stop.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StopRemoteAccessSession' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'stopRemoteAccessSession_arn' - The Amazon Resource Name (ARN) of the remote access session to stop.+newStopRemoteAccessSession ::+  -- | 'arn'+  Prelude.Text ->+  StopRemoteAccessSession+newStopRemoteAccessSession pArn_ =+  StopRemoteAccessSession' {arn = pArn_}++-- | The Amazon Resource Name (ARN) of the remote access session to stop.+stopRemoteAccessSession_arn :: Lens.Lens' StopRemoteAccessSession Prelude.Text+stopRemoteAccessSession_arn = Lens.lens (\StopRemoteAccessSession' {arn} -> arn) (\s@StopRemoteAccessSession' {} a -> s {arn = a} :: StopRemoteAccessSession)++instance Core.AWSRequest StopRemoteAccessSession where+  type+    AWSResponse StopRemoteAccessSession =+      StopRemoteAccessSessionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          StopRemoteAccessSessionResponse'+            Prelude.<$> (x Data..?> "remoteAccessSession")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable StopRemoteAccessSession where+  hashWithSalt _salt StopRemoteAccessSession' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData StopRemoteAccessSession where+  rnf StopRemoteAccessSession' {..} = Prelude.rnf arn++instance Data.ToHeaders StopRemoteAccessSession where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.StopRemoteAccessSession" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON StopRemoteAccessSession where+  toJSON StopRemoteAccessSession' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("arn" Data..= arn)]+      )++instance Data.ToPath StopRemoteAccessSession where+  toPath = Prelude.const "/"++instance Data.ToQuery StopRemoteAccessSession where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the response from the server that describes the remote access+-- session when AWS Device Farm stops the session.+--+-- /See:/ 'newStopRemoteAccessSessionResponse' smart constructor.+data StopRemoteAccessSessionResponse = StopRemoteAccessSessionResponse'+  { -- | A container that represents the metadata from the service about the+    -- remote access session you are stopping.+    remoteAccessSession :: Prelude.Maybe RemoteAccessSession,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StopRemoteAccessSessionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'remoteAccessSession', 'stopRemoteAccessSessionResponse_remoteAccessSession' - A container that represents the metadata from the service about the+-- remote access session you are stopping.+--+-- 'httpStatus', 'stopRemoteAccessSessionResponse_httpStatus' - The response's http status code.+newStopRemoteAccessSessionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  StopRemoteAccessSessionResponse+newStopRemoteAccessSessionResponse pHttpStatus_ =+  StopRemoteAccessSessionResponse'+    { remoteAccessSession =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A container that represents the metadata from the service about the+-- remote access session you are stopping.+stopRemoteAccessSessionResponse_remoteAccessSession :: Lens.Lens' StopRemoteAccessSessionResponse (Prelude.Maybe RemoteAccessSession)+stopRemoteAccessSessionResponse_remoteAccessSession = Lens.lens (\StopRemoteAccessSessionResponse' {remoteAccessSession} -> remoteAccessSession) (\s@StopRemoteAccessSessionResponse' {} a -> s {remoteAccessSession = a} :: StopRemoteAccessSessionResponse)++-- | The response's http status code.+stopRemoteAccessSessionResponse_httpStatus :: Lens.Lens' StopRemoteAccessSessionResponse Prelude.Int+stopRemoteAccessSessionResponse_httpStatus = Lens.lens (\StopRemoteAccessSessionResponse' {httpStatus} -> httpStatus) (\s@StopRemoteAccessSessionResponse' {} a -> s {httpStatus = a} :: StopRemoteAccessSessionResponse)++instance+  Prelude.NFData+    StopRemoteAccessSessionResponse+  where+  rnf StopRemoteAccessSessionResponse' {..} =+    Prelude.rnf remoteAccessSession+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/StopRun.hs view
@@ -0,0 +1,176 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.StopRun+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Initiates a stop request for the current test run. AWS Device Farm+-- immediately stops the run on devices where tests have not started. You+-- are not billed for these devices. On devices where tests have started+-- executing, setup suite and teardown suite tests run to completion on+-- those devices. You are billed for setup, teardown, and any tests that+-- were in progress or already completed.+module Amazonka.DeviceFarm.StopRun+  ( -- * Creating a Request+    StopRun (..),+    newStopRun,++    -- * Request Lenses+    stopRun_arn,++    -- * Destructuring the Response+    StopRunResponse (..),+    newStopRunResponse,++    -- * Response Lenses+    stopRunResponse_run,+    stopRunResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents the request to stop a specific run.+--+-- /See:/ 'newStopRun' smart constructor.+data StopRun = StopRun'+  { -- | Represents the Amazon Resource Name (ARN) of the Device Farm run to+    -- stop.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StopRun' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'stopRun_arn' - Represents the Amazon Resource Name (ARN) of the Device Farm run to+-- stop.+newStopRun ::+  -- | 'arn'+  Prelude.Text ->+  StopRun+newStopRun pArn_ = StopRun' {arn = pArn_}++-- | Represents the Amazon Resource Name (ARN) of the Device Farm run to+-- stop.+stopRun_arn :: Lens.Lens' StopRun Prelude.Text+stopRun_arn = Lens.lens (\StopRun' {arn} -> arn) (\s@StopRun' {} a -> s {arn = a} :: StopRun)++instance Core.AWSRequest StopRun where+  type AWSResponse StopRun = StopRunResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          StopRunResponse'+            Prelude.<$> (x Data..?> "run")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable StopRun where+  hashWithSalt _salt StopRun' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData StopRun where+  rnf StopRun' {..} = Prelude.rnf arn++instance Data.ToHeaders StopRun where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.StopRun" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON StopRun where+  toJSON StopRun' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("arn" Data..= arn)]+      )++instance Data.ToPath StopRun where+  toPath = Prelude.const "/"++instance Data.ToQuery StopRun where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the results of your stop run attempt.+--+-- /See:/ 'newStopRunResponse' smart constructor.+data StopRunResponse = StopRunResponse'+  { -- | The run that was stopped.+    run :: Prelude.Maybe Run,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StopRunResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'run', 'stopRunResponse_run' - The run that was stopped.+--+-- 'httpStatus', 'stopRunResponse_httpStatus' - The response's http status code.+newStopRunResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  StopRunResponse+newStopRunResponse pHttpStatus_ =+  StopRunResponse'+    { run = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The run that was stopped.+stopRunResponse_run :: Lens.Lens' StopRunResponse (Prelude.Maybe Run)+stopRunResponse_run = Lens.lens (\StopRunResponse' {run} -> run) (\s@StopRunResponse' {} a -> s {run = a} :: StopRunResponse)++-- | The response's http status code.+stopRunResponse_httpStatus :: Lens.Lens' StopRunResponse Prelude.Int+stopRunResponse_httpStatus = Lens.lens (\StopRunResponse' {httpStatus} -> httpStatus) (\s@StopRunResponse' {} a -> s {httpStatus = a} :: StopRunResponse)++instance Prelude.NFData StopRunResponse where+  rnf StopRunResponse' {..} =+    Prelude.rnf run+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/TagResource.hs view
@@ -0,0 +1,189 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.TagResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Associates the specified tags to a resource with the specified+-- @resourceArn@. If existing tags on a resource are not specified in the+-- request parameters, they are not changed. When a resource is deleted,+-- the tags associated with that resource are also deleted.+module Amazonka.DeviceFarm.TagResource+  ( -- * Creating a Request+    TagResource (..),+    newTagResource,++    -- * Request Lenses+    tagResource_resourceARN,+    tagResource_tags,++    -- * Destructuring the Response+    TagResourceResponse (..),+    newTagResourceResponse,++    -- * Response Lenses+    tagResourceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newTagResource' smart constructor.+data TagResource = TagResource'+  { -- | The Amazon Resource Name (ARN) of the resource or resources to which to+    -- add tags. You can associate tags with the following Device Farm+    -- resources: @PROJECT@, @RUN@, @NETWORK_PROFILE@, @INSTANCE_PROFILE@,+    -- @DEVICE_INSTANCE@, @SESSION@, @DEVICE_POOL@, @DEVICE@, and+    -- @VPCE_CONFIGURATION@.+    resourceARN :: Prelude.Text,+    -- | The tags to add to the resource. A tag is an array of key-value pairs.+    -- Tag keys can have a maximum character length of 128 characters. Tag+    -- values can have a maximum length of 256 characters.+    tags :: [Tag]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TagResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceARN', 'tagResource_resourceARN' - The Amazon Resource Name (ARN) of the resource or resources to which to+-- add tags. You can associate tags with the following Device Farm+-- resources: @PROJECT@, @RUN@, @NETWORK_PROFILE@, @INSTANCE_PROFILE@,+-- @DEVICE_INSTANCE@, @SESSION@, @DEVICE_POOL@, @DEVICE@, and+-- @VPCE_CONFIGURATION@.+--+-- 'tags', 'tagResource_tags' - The tags to add to the resource. A tag is an array of key-value pairs.+-- Tag keys can have a maximum character length of 128 characters. Tag+-- values can have a maximum length of 256 characters.+newTagResource ::+  -- | 'resourceARN'+  Prelude.Text ->+  TagResource+newTagResource pResourceARN_ =+  TagResource'+    { resourceARN = pResourceARN_,+      tags = Prelude.mempty+    }++-- | The Amazon Resource Name (ARN) of the resource or resources to which to+-- add tags. You can associate tags with the following Device Farm+-- resources: @PROJECT@, @RUN@, @NETWORK_PROFILE@, @INSTANCE_PROFILE@,+-- @DEVICE_INSTANCE@, @SESSION@, @DEVICE_POOL@, @DEVICE@, and+-- @VPCE_CONFIGURATION@.+tagResource_resourceARN :: Lens.Lens' TagResource Prelude.Text+tagResource_resourceARN = Lens.lens (\TagResource' {resourceARN} -> resourceARN) (\s@TagResource' {} a -> s {resourceARN = a} :: TagResource)++-- | The tags to add to the resource. A tag is an array of key-value pairs.+-- Tag keys can have a maximum character length of 128 characters. Tag+-- values can have a maximum length of 256 characters.+tagResource_tags :: Lens.Lens' TagResource [Tag]+tagResource_tags = Lens.lens (\TagResource' {tags} -> tags) (\s@TagResource' {} a -> s {tags = a} :: TagResource) Prelude.. Lens.coerced++instance Core.AWSRequest TagResource where+  type AWSResponse TagResource = TagResourceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          TagResourceResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable TagResource where+  hashWithSalt _salt TagResource' {..} =+    _salt+      `Prelude.hashWithSalt` resourceARN+      `Prelude.hashWithSalt` tags++instance Prelude.NFData TagResource where+  rnf TagResource' {..} =+    Prelude.rnf resourceARN+      `Prelude.seq` Prelude.rnf tags++instance Data.ToHeaders TagResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.TagResource" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON TagResource where+  toJSON TagResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ResourceARN" Data..= resourceARN),+            Prelude.Just ("Tags" Data..= tags)+          ]+      )++instance Data.ToPath TagResource where+  toPath = Prelude.const "/"++instance Data.ToQuery TagResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newTagResourceResponse' smart constructor.+data TagResourceResponse = TagResourceResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TagResourceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'tagResourceResponse_httpStatus' - The response's http status code.+newTagResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  TagResourceResponse+newTagResourceResponse pHttpStatus_ =+  TagResourceResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+tagResourceResponse_httpStatus :: Lens.Lens' TagResourceResponse Prelude.Int+tagResourceResponse_httpStatus = Lens.lens (\TagResourceResponse' {httpStatus} -> httpStatus) (\s@TagResourceResponse' {} a -> s {httpStatus = a} :: TagResourceResponse)++instance Prelude.NFData TagResourceResponse where+  rnf TagResourceResponse' {..} = Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/Types.hs view
@@ -0,0 +1,860 @@+{-# LANGUAGE DisambiguateRecordFields #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    _ArgumentException,+    _CannotDeleteException,+    _IdempotencyException,+    _InternalServiceException,+    _InvalidOperationException,+    _LimitExceededException,+    _NotEligibleException,+    _NotFoundException,+    _ServiceAccountException,+    _TagOperationException,+    _TagPolicyException,+    _TooManyTagsException,++    -- * ArtifactCategory+    ArtifactCategory (..),++    -- * ArtifactType+    ArtifactType (..),++    -- * BillingMethod+    BillingMethod (..),++    -- * CurrencyCode+    CurrencyCode (..),++    -- * DeviceAttribute+    DeviceAttribute (..),++    -- * DeviceAvailability+    DeviceAvailability (..),++    -- * DeviceFilterAttribute+    DeviceFilterAttribute (..),++    -- * DeviceFormFactor+    DeviceFormFactor (..),++    -- * DevicePlatform+    DevicePlatform (..),++    -- * DevicePoolType+    DevicePoolType (..),++    -- * ExecutionResult+    ExecutionResult (..),++    -- * ExecutionResultCode+    ExecutionResultCode (..),++    -- * ExecutionStatus+    ExecutionStatus (..),++    -- * InstanceStatus+    InstanceStatus (..),++    -- * InteractionMode+    InteractionMode (..),++    -- * NetworkProfileType+    NetworkProfileType (..),++    -- * OfferingTransactionType+    OfferingTransactionType (..),++    -- * OfferingType+    OfferingType (..),++    -- * RecurringChargeFrequency+    RecurringChargeFrequency (..),++    -- * RuleOperator+    RuleOperator (..),++    -- * SampleType+    SampleType (..),++    -- * TestGridSessionArtifactCategory+    TestGridSessionArtifactCategory (..),++    -- * TestGridSessionArtifactType+    TestGridSessionArtifactType (..),++    -- * TestGridSessionStatus+    TestGridSessionStatus (..),++    -- * TestType+    TestType (..),++    -- * UploadCategory+    UploadCategory (..),++    -- * UploadStatus+    UploadStatus (..),++    -- * UploadType+    UploadType (..),++    -- * AccountSettings+    AccountSettings (..),+    newAccountSettings,+    accountSettings_awsAccountNumber,+    accountSettings_defaultJobTimeoutMinutes,+    accountSettings_maxJobTimeoutMinutes,+    accountSettings_maxSlots,+    accountSettings_skipAppResign,+    accountSettings_trialMinutes,+    accountSettings_unmeteredDevices,+    accountSettings_unmeteredRemoteAccessDevices,++    -- * Artifact+    Artifact (..),+    newArtifact,+    artifact_arn,+    artifact_extension,+    artifact_name,+    artifact_type,+    artifact_url,++    -- * CPU+    CPU (..),+    newCPU,+    cpu_architecture,+    cpu_clock,+    cpu_frequency,++    -- * Counters+    Counters (..),+    newCounters,+    counters_errored,+    counters_failed,+    counters_passed,+    counters_skipped,+    counters_stopped,+    counters_total,+    counters_warned,++    -- * CreateRemoteAccessSessionConfiguration+    CreateRemoteAccessSessionConfiguration (..),+    newCreateRemoteAccessSessionConfiguration,+    createRemoteAccessSessionConfiguration_billingMethod,+    createRemoteAccessSessionConfiguration_vpceConfigurationArns,++    -- * CustomerArtifactPaths+    CustomerArtifactPaths (..),+    newCustomerArtifactPaths,+    customerArtifactPaths_androidPaths,+    customerArtifactPaths_deviceHostPaths,+    customerArtifactPaths_iosPaths,++    -- * Device+    Device (..),+    newDevice,+    device_arn,+    device_availability,+    device_carrier,+    device_cpu,+    device_fleetName,+    device_fleetType,+    device_formFactor,+    device_heapSize,+    device_image,+    device_instances,+    device_manufacturer,+    device_memory,+    device_model,+    device_modelId,+    device_name,+    device_os,+    device_platform,+    device_radio,+    device_remoteAccessEnabled,+    device_remoteDebugEnabled,+    device_resolution,++    -- * DeviceFilter+    DeviceFilter (..),+    newDeviceFilter,+    deviceFilter_attribute,+    deviceFilter_operator,+    deviceFilter_values,++    -- * DeviceInstance+    DeviceInstance (..),+    newDeviceInstance,+    deviceInstance_arn,+    deviceInstance_deviceArn,+    deviceInstance_instanceProfile,+    deviceInstance_labels,+    deviceInstance_status,+    deviceInstance_udid,++    -- * DeviceMinutes+    DeviceMinutes (..),+    newDeviceMinutes,+    deviceMinutes_metered,+    deviceMinutes_total,+    deviceMinutes_unmetered,++    -- * DevicePool+    DevicePool (..),+    newDevicePool,+    devicePool_arn,+    devicePool_description,+    devicePool_maxDevices,+    devicePool_name,+    devicePool_rules,+    devicePool_type,++    -- * DevicePoolCompatibilityResult+    DevicePoolCompatibilityResult (..),+    newDevicePoolCompatibilityResult,+    devicePoolCompatibilityResult_compatible,+    devicePoolCompatibilityResult_device,+    devicePoolCompatibilityResult_incompatibilityMessages,++    -- * DeviceSelectionConfiguration+    DeviceSelectionConfiguration (..),+    newDeviceSelectionConfiguration,+    deviceSelectionConfiguration_filters,+    deviceSelectionConfiguration_maxDevices,++    -- * DeviceSelectionResult+    DeviceSelectionResult (..),+    newDeviceSelectionResult,+    deviceSelectionResult_filters,+    deviceSelectionResult_matchedDevicesCount,+    deviceSelectionResult_maxDevices,++    -- * ExecutionConfiguration+    ExecutionConfiguration (..),+    newExecutionConfiguration,+    executionConfiguration_accountsCleanup,+    executionConfiguration_appPackagesCleanup,+    executionConfiguration_jobTimeoutMinutes,+    executionConfiguration_skipAppResign,+    executionConfiguration_videoCapture,++    -- * IncompatibilityMessage+    IncompatibilityMessage (..),+    newIncompatibilityMessage,+    incompatibilityMessage_message,+    incompatibilityMessage_type,++    -- * InstanceProfile+    InstanceProfile (..),+    newInstanceProfile,+    instanceProfile_arn,+    instanceProfile_description,+    instanceProfile_excludeAppPackagesFromCleanup,+    instanceProfile_name,+    instanceProfile_packageCleanup,+    instanceProfile_rebootAfterUse,++    -- * Job+    Job (..),+    newJob,+    job_arn,+    job_counters,+    job_created,+    job_device,+    job_deviceMinutes,+    job_instanceArn,+    job_message,+    job_name,+    job_result,+    job_started,+    job_status,+    job_stopped,+    job_type,+    job_videoCapture,+    job_videoEndpoint,++    -- * Location+    Location (..),+    newLocation,+    location_latitude,+    location_longitude,++    -- * MonetaryAmount+    MonetaryAmount (..),+    newMonetaryAmount,+    monetaryAmount_amount,+    monetaryAmount_currencyCode,++    -- * NetworkProfile+    NetworkProfile (..),+    newNetworkProfile,+    networkProfile_arn,+    networkProfile_description,+    networkProfile_downlinkBandwidthBits,+    networkProfile_downlinkDelayMs,+    networkProfile_downlinkJitterMs,+    networkProfile_downlinkLossPercent,+    networkProfile_name,+    networkProfile_type,+    networkProfile_uplinkBandwidthBits,+    networkProfile_uplinkDelayMs,+    networkProfile_uplinkJitterMs,+    networkProfile_uplinkLossPercent,++    -- * Offering+    Offering (..),+    newOffering,+    offering_description,+    offering_id,+    offering_platform,+    offering_recurringCharges,+    offering_type,++    -- * OfferingPromotion+    OfferingPromotion (..),+    newOfferingPromotion,+    offeringPromotion_description,+    offeringPromotion_id,++    -- * OfferingStatus+    OfferingStatus (..),+    newOfferingStatus,+    offeringStatus_effectiveOn,+    offeringStatus_offering,+    offeringStatus_quantity,+    offeringStatus_type,++    -- * OfferingTransaction+    OfferingTransaction (..),+    newOfferingTransaction,+    offeringTransaction_cost,+    offeringTransaction_createdOn,+    offeringTransaction_offeringPromotionId,+    offeringTransaction_offeringStatus,+    offeringTransaction_transactionId,++    -- * Problem+    Problem (..),+    newProblem,+    problem_device,+    problem_job,+    problem_message,+    problem_result,+    problem_run,+    problem_suite,+    problem_test,++    -- * ProblemDetail+    ProblemDetail (..),+    newProblemDetail,+    problemDetail_arn,+    problemDetail_name,++    -- * Project+    Project (..),+    newProject,+    project_arn,+    project_created,+    project_defaultJobTimeoutMinutes,+    project_name,+    project_vpcConfig,++    -- * Radios+    Radios (..),+    newRadios,+    radios_bluetooth,+    radios_gps,+    radios_nfc,+    radios_wifi,++    -- * RecurringCharge+    RecurringCharge (..),+    newRecurringCharge,+    recurringCharge_cost,+    recurringCharge_frequency,++    -- * RemoteAccessSession+    RemoteAccessSession (..),+    newRemoteAccessSession,+    remoteAccessSession_arn,+    remoteAccessSession_billingMethod,+    remoteAccessSession_clientId,+    remoteAccessSession_created,+    remoteAccessSession_device,+    remoteAccessSession_deviceMinutes,+    remoteAccessSession_deviceUdid,+    remoteAccessSession_endpoint,+    remoteAccessSession_hostAddress,+    remoteAccessSession_instanceArn,+    remoteAccessSession_interactionMode,+    remoteAccessSession_message,+    remoteAccessSession_name,+    remoteAccessSession_remoteDebugEnabled,+    remoteAccessSession_remoteRecordAppArn,+    remoteAccessSession_remoteRecordEnabled,+    remoteAccessSession_result,+    remoteAccessSession_skipAppResign,+    remoteAccessSession_started,+    remoteAccessSession_status,+    remoteAccessSession_stopped,+    remoteAccessSession_vpcConfig,++    -- * Resolution+    Resolution (..),+    newResolution,+    resolution_height,+    resolution_width,++    -- * Rule+    Rule (..),+    newRule,+    rule_attribute,+    rule_operator,+    rule_value,++    -- * Run+    Run (..),+    newRun,+    run_appUpload,+    run_arn,+    run_billingMethod,+    run_completedJobs,+    run_counters,+    run_created,+    run_customerArtifactPaths,+    run_deviceMinutes,+    run_devicePoolArn,+    run_deviceSelectionResult,+    run_eventCount,+    run_jobTimeoutMinutes,+    run_locale,+    run_location,+    run_message,+    run_name,+    run_networkProfile,+    run_parsingResultUrl,+    run_platform,+    run_radios,+    run_result,+    run_resultCode,+    run_seed,+    run_skipAppResign,+    run_started,+    run_status,+    run_stopped,+    run_testSpecArn,+    run_totalJobs,+    run_type,+    run_vpcConfig,+    run_webUrl,++    -- * Sample+    Sample (..),+    newSample,+    sample_arn,+    sample_type,+    sample_url,++    -- * ScheduleRunConfiguration+    ScheduleRunConfiguration (..),+    newScheduleRunConfiguration,+    scheduleRunConfiguration_auxiliaryApps,+    scheduleRunConfiguration_billingMethod,+    scheduleRunConfiguration_customerArtifactPaths,+    scheduleRunConfiguration_extraDataPackageArn,+    scheduleRunConfiguration_locale,+    scheduleRunConfiguration_location,+    scheduleRunConfiguration_networkProfileArn,+    scheduleRunConfiguration_radios,+    scheduleRunConfiguration_vpceConfigurationArns,++    -- * ScheduleRunTest+    ScheduleRunTest (..),+    newScheduleRunTest,+    scheduleRunTest_filter,+    scheduleRunTest_parameters,+    scheduleRunTest_testPackageArn,+    scheduleRunTest_testSpecArn,+    scheduleRunTest_type,++    -- * Suite+    Suite (..),+    newSuite,+    suite_arn,+    suite_counters,+    suite_created,+    suite_deviceMinutes,+    suite_message,+    suite_name,+    suite_result,+    suite_started,+    suite_status,+    suite_stopped,+    suite_type,++    -- * Tag+    Tag (..),+    newTag,+    tag_key,+    tag_value,++    -- * Test+    Test (..),+    newTest,+    test_arn,+    test_counters,+    test_created,+    test_deviceMinutes,+    test_message,+    test_name,+    test_result,+    test_started,+    test_status,+    test_stopped,+    test_type,++    -- * TestGridProject+    TestGridProject (..),+    newTestGridProject,+    testGridProject_arn,+    testGridProject_created,+    testGridProject_description,+    testGridProject_name,+    testGridProject_vpcConfig,++    -- * TestGridSession+    TestGridSession (..),+    newTestGridSession,+    testGridSession_arn,+    testGridSession_billingMinutes,+    testGridSession_created,+    testGridSession_ended,+    testGridSession_seleniumProperties,+    testGridSession_status,++    -- * TestGridSessionAction+    TestGridSessionAction (..),+    newTestGridSessionAction,+    testGridSessionAction_action,+    testGridSessionAction_duration,+    testGridSessionAction_requestMethod,+    testGridSessionAction_started,+    testGridSessionAction_statusCode,++    -- * TestGridSessionArtifact+    TestGridSessionArtifact (..),+    newTestGridSessionArtifact,+    testGridSessionArtifact_filename,+    testGridSessionArtifact_type,+    testGridSessionArtifact_url,++    -- * TestGridVpcConfig+    TestGridVpcConfig (..),+    newTestGridVpcConfig,+    testGridVpcConfig_securityGroupIds,+    testGridVpcConfig_subnetIds,+    testGridVpcConfig_vpcId,++    -- * TrialMinutes+    TrialMinutes (..),+    newTrialMinutes,+    trialMinutes_remaining,+    trialMinutes_total,++    -- * UniqueProblem+    UniqueProblem (..),+    newUniqueProblem,+    uniqueProblem_message,+    uniqueProblem_problems,++    -- * Upload+    Upload (..),+    newUpload,+    upload_arn,+    upload_category,+    upload_contentType,+    upload_created,+    upload_message,+    upload_metadata,+    upload_name,+    upload_status,+    upload_type,+    upload_url,++    -- * VPCEConfiguration+    VPCEConfiguration (..),+    newVPCEConfiguration,+    vPCEConfiguration_arn,+    vPCEConfiguration_serviceDnsName,+    vPCEConfiguration_vpceConfigurationDescription,+    vPCEConfiguration_vpceConfigurationName,+    vPCEConfiguration_vpceServiceName,++    -- * VpcConfig+    VpcConfig (..),+    newVpcConfig,+    vpcConfig_securityGroupIds,+    vpcConfig_subnetIds,+    vpcConfig_vpcId,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.DeviceFarm.Types.AccountSettings+import Amazonka.DeviceFarm.Types.Artifact+import Amazonka.DeviceFarm.Types.ArtifactCategory+import Amazonka.DeviceFarm.Types.ArtifactType+import Amazonka.DeviceFarm.Types.BillingMethod+import Amazonka.DeviceFarm.Types.CPU+import Amazonka.DeviceFarm.Types.Counters+import Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration+import Amazonka.DeviceFarm.Types.CurrencyCode+import Amazonka.DeviceFarm.Types.CustomerArtifactPaths+import Amazonka.DeviceFarm.Types.Device+import Amazonka.DeviceFarm.Types.DeviceAttribute+import Amazonka.DeviceFarm.Types.DeviceAvailability+import Amazonka.DeviceFarm.Types.DeviceFilter+import Amazonka.DeviceFarm.Types.DeviceFilterAttribute+import Amazonka.DeviceFarm.Types.DeviceFormFactor+import Amazonka.DeviceFarm.Types.DeviceInstance+import Amazonka.DeviceFarm.Types.DeviceMinutes+import Amazonka.DeviceFarm.Types.DevicePlatform+import Amazonka.DeviceFarm.Types.DevicePool+import Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult+import Amazonka.DeviceFarm.Types.DevicePoolType+import Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration+import Amazonka.DeviceFarm.Types.DeviceSelectionResult+import Amazonka.DeviceFarm.Types.ExecutionConfiguration+import Amazonka.DeviceFarm.Types.ExecutionResult+import Amazonka.DeviceFarm.Types.ExecutionResultCode+import Amazonka.DeviceFarm.Types.ExecutionStatus+import Amazonka.DeviceFarm.Types.IncompatibilityMessage+import Amazonka.DeviceFarm.Types.InstanceProfile+import Amazonka.DeviceFarm.Types.InstanceStatus+import Amazonka.DeviceFarm.Types.InteractionMode+import Amazonka.DeviceFarm.Types.Job+import Amazonka.DeviceFarm.Types.Location+import Amazonka.DeviceFarm.Types.MonetaryAmount+import Amazonka.DeviceFarm.Types.NetworkProfile+import Amazonka.DeviceFarm.Types.NetworkProfileType+import Amazonka.DeviceFarm.Types.Offering+import Amazonka.DeviceFarm.Types.OfferingPromotion+import Amazonka.DeviceFarm.Types.OfferingStatus+import Amazonka.DeviceFarm.Types.OfferingTransaction+import Amazonka.DeviceFarm.Types.OfferingTransactionType+import Amazonka.DeviceFarm.Types.OfferingType+import Amazonka.DeviceFarm.Types.Problem+import Amazonka.DeviceFarm.Types.ProblemDetail+import Amazonka.DeviceFarm.Types.Project+import Amazonka.DeviceFarm.Types.Radios+import Amazonka.DeviceFarm.Types.RecurringCharge+import Amazonka.DeviceFarm.Types.RecurringChargeFrequency+import Amazonka.DeviceFarm.Types.RemoteAccessSession+import Amazonka.DeviceFarm.Types.Resolution+import Amazonka.DeviceFarm.Types.Rule+import Amazonka.DeviceFarm.Types.RuleOperator+import Amazonka.DeviceFarm.Types.Run+import Amazonka.DeviceFarm.Types.Sample+import Amazonka.DeviceFarm.Types.SampleType+import Amazonka.DeviceFarm.Types.ScheduleRunConfiguration+import Amazonka.DeviceFarm.Types.ScheduleRunTest+import Amazonka.DeviceFarm.Types.Suite+import Amazonka.DeviceFarm.Types.Tag+import Amazonka.DeviceFarm.Types.Test+import Amazonka.DeviceFarm.Types.TestGridProject+import Amazonka.DeviceFarm.Types.TestGridSession+import Amazonka.DeviceFarm.Types.TestGridSessionAction+import Amazonka.DeviceFarm.Types.TestGridSessionArtifact+import Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory+import Amazonka.DeviceFarm.Types.TestGridSessionArtifactType+import Amazonka.DeviceFarm.Types.TestGridSessionStatus+import Amazonka.DeviceFarm.Types.TestGridVpcConfig+import Amazonka.DeviceFarm.Types.TestType+import Amazonka.DeviceFarm.Types.TrialMinutes+import Amazonka.DeviceFarm.Types.UniqueProblem+import Amazonka.DeviceFarm.Types.Upload+import Amazonka.DeviceFarm.Types.UploadCategory+import Amazonka.DeviceFarm.Types.UploadStatus+import Amazonka.DeviceFarm.Types.UploadType+import Amazonka.DeviceFarm.Types.VPCEConfiguration+import Amazonka.DeviceFarm.Types.VpcConfig+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Sign.V4 as Sign++-- | API version @2015-06-23@ of the Amazon Device Farm SDK configuration.+defaultService :: Core.Service+defaultService =+  Core.Service+    { Core.abbrev = "DeviceFarm",+      Core.signer = Sign.v4,+      Core.endpointPrefix = "devicefarm",+      Core.signingName = "devicefarm",+      Core.version = "2015-06-23",+      Core.s3AddressingStyle = Core.S3AddressingStyleAuto,+      Core.endpoint = Core.defaultEndpoint defaultService,+      Core.timeout = Prelude.Just 70,+      Core.check = Core.statusSuccess,+      Core.error = Core.parseJSONError "DeviceFarm",+      Core.retry = retry+    }+  where+    retry =+      Core.Exponential+        { Core.base = 5.0e-2,+          Core.growth = 2,+          Core.attempts = 5,+          Core.check = check+        }+    check e+      | Lens.has (Core.hasStatus 502) e =+          Prelude.Just "bad_gateway"+      | Lens.has (Core.hasStatus 504) e =+          Prelude.Just "gateway_timeout"+      | Lens.has (Core.hasStatus 500) e =+          Prelude.Just "general_server_error"+      | Lens.has (Core.hasStatus 509) e =+          Prelude.Just "limit_exceeded"+      | Lens.has+          ( Core.hasCode "RequestThrottledException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "request_throttled_exception"+      | Lens.has (Core.hasStatus 503) e =+          Prelude.Just "service_unavailable"+      | Lens.has+          ( Core.hasCode "ThrottledException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttled_exception"+      | Lens.has+          ( Core.hasCode "Throttling"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttling"+      | Lens.has+          ( Core.hasCode "ThrottlingException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttling_exception"+      | Lens.has+          ( Core.hasCode+              "ProvisionedThroughputExceededException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throughput_exceeded"+      | Lens.has (Core.hasStatus 429) e =+          Prelude.Just "too_many_requests"+      | Prelude.otherwise = Prelude.Nothing++-- | An invalid argument was specified.+_ArgumentException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ArgumentException =+  Core._MatchServiceError+    defaultService+    "ArgumentException"++-- | The requested object could not be deleted.+_CannotDeleteException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_CannotDeleteException =+  Core._MatchServiceError+    defaultService+    "CannotDeleteException"++-- | An entity with the same name already exists.+_IdempotencyException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_IdempotencyException =+  Core._MatchServiceError+    defaultService+    "IdempotencyException"++-- | An internal exception was raised in the service. Contact+-- <mailto:aws-devicefarm-support@amazon.com aws-devicefarm-support\@amazon.com>+-- if you see this error.+_InternalServiceException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InternalServiceException =+  Core._MatchServiceError+    defaultService+    "InternalServiceException"++-- | There was an error with the update request, or you do not have+-- sufficient permissions to update this VPC endpoint configuration.+_InvalidOperationException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidOperationException =+  Core._MatchServiceError+    defaultService+    "InvalidOperationException"++-- | A limit was exceeded.+_LimitExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_LimitExceededException =+  Core._MatchServiceError+    defaultService+    "LimitExceededException"++-- | Exception gets thrown when a user is not eligible to perform the+-- specified transaction.+_NotEligibleException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_NotEligibleException =+  Core._MatchServiceError+    defaultService+    "NotEligibleException"++-- | The specified entity was not found.+_NotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_NotFoundException =+  Core._MatchServiceError+    defaultService+    "NotFoundException"++-- | There was a problem with the service account.+_ServiceAccountException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ServiceAccountException =+  Core._MatchServiceError+    defaultService+    "ServiceAccountException"++-- | The operation was not successful. Try again.+_TagOperationException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_TagOperationException =+  Core._MatchServiceError+    defaultService+    "TagOperationException"++-- | The request doesn\'t comply with the AWS Identity and Access Management+-- (IAM) tag policy. Correct your request and then retry it.+_TagPolicyException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_TagPolicyException =+  Core._MatchServiceError+    defaultService+    "TagPolicyException"++-- | The list of tags on the repository is over the limit. The maximum number+-- of tags that can be applied to a repository is 50.+_TooManyTagsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_TooManyTagsException =+  Core._MatchServiceError+    defaultService+    "TooManyTagsException"
+ gen/Amazonka/DeviceFarm/Types/AccountSettings.hs view
@@ -0,0 +1,195 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.AccountSettings+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.AccountSettings where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.DevicePlatform+import Amazonka.DeviceFarm.Types.TrialMinutes+import qualified Amazonka.Prelude as Prelude++-- | A container for account-level settings in AWS Device Farm.+--+-- /See:/ 'newAccountSettings' smart constructor.+data AccountSettings = AccountSettings'+  { -- | The AWS account number specified in the @AccountSettings@ container.+    awsAccountNumber :: Prelude.Maybe Prelude.Text,+    -- | The default number of minutes (at the account level) a test run executes+    -- before it times out. The default value is 150 minutes.+    defaultJobTimeoutMinutes :: Prelude.Maybe Prelude.Int,+    -- | The maximum number of minutes a test run executes before it times out.+    maxJobTimeoutMinutes :: Prelude.Maybe Prelude.Int,+    -- | 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.+    maxSlots :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Int),+    -- | When set to @true@, for private devices, Device Farm does not sign your+    -- app again. For public devices, Device Farm always signs your apps again.+    --+    -- For more information about how Device Farm re-signs your apps, see+    -- <http://aws.amazon.com/device-farm/faqs/ Do you modify my app?> in the+    -- /AWS Device Farm FAQs/.+    skipAppResign :: Prelude.Maybe Prelude.Bool,+    -- | Information about an AWS account\'s usage of free trial device minutes.+    trialMinutes :: Prelude.Maybe TrialMinutes,+    -- | Returns the unmetered devices you have purchased or want to purchase.+    unmeteredDevices :: Prelude.Maybe (Prelude.HashMap DevicePlatform Prelude.Int),+    -- | Returns the unmetered remote access devices you have purchased or want+    -- to purchase.+    unmeteredRemoteAccessDevices :: Prelude.Maybe (Prelude.HashMap DevicePlatform Prelude.Int)+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AccountSettings' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'awsAccountNumber', 'accountSettings_awsAccountNumber' - The AWS account number specified in the @AccountSettings@ container.+--+-- 'defaultJobTimeoutMinutes', 'accountSettings_defaultJobTimeoutMinutes' - The default number of minutes (at the account level) a test run executes+-- before it times out. The default value is 150 minutes.+--+-- 'maxJobTimeoutMinutes', 'accountSettings_maxJobTimeoutMinutes' - The maximum number of minutes a test run executes before it times out.+--+-- 'maxSlots', 'accountSettings_maxSlots' - 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.+--+-- 'skipAppResign', 'accountSettings_skipAppResign' - When set to @true@, for private devices, Device Farm does not sign your+-- app again. For public devices, Device Farm always signs your apps again.+--+-- For more information about how Device Farm re-signs your apps, see+-- <http://aws.amazon.com/device-farm/faqs/ Do you modify my app?> in the+-- /AWS Device Farm FAQs/.+--+-- 'trialMinutes', 'accountSettings_trialMinutes' - Information about an AWS account\'s usage of free trial device minutes.+--+-- 'unmeteredDevices', 'accountSettings_unmeteredDevices' - Returns the unmetered devices you have purchased or want to purchase.+--+-- 'unmeteredRemoteAccessDevices', 'accountSettings_unmeteredRemoteAccessDevices' - Returns the unmetered remote access devices you have purchased or want+-- to purchase.+newAccountSettings ::+  AccountSettings+newAccountSettings =+  AccountSettings'+    { awsAccountNumber =+        Prelude.Nothing,+      defaultJobTimeoutMinutes = Prelude.Nothing,+      maxJobTimeoutMinutes = Prelude.Nothing,+      maxSlots = Prelude.Nothing,+      skipAppResign = Prelude.Nothing,+      trialMinutes = Prelude.Nothing,+      unmeteredDevices = Prelude.Nothing,+      unmeteredRemoteAccessDevices = Prelude.Nothing+    }++-- | The AWS account number specified in the @AccountSettings@ container.+accountSettings_awsAccountNumber :: Lens.Lens' AccountSettings (Prelude.Maybe Prelude.Text)+accountSettings_awsAccountNumber = Lens.lens (\AccountSettings' {awsAccountNumber} -> awsAccountNumber) (\s@AccountSettings' {} a -> s {awsAccountNumber = a} :: AccountSettings)++-- | The default number of minutes (at the account level) a test run executes+-- before it times out. The default value is 150 minutes.+accountSettings_defaultJobTimeoutMinutes :: Lens.Lens' AccountSettings (Prelude.Maybe Prelude.Int)+accountSettings_defaultJobTimeoutMinutes = Lens.lens (\AccountSettings' {defaultJobTimeoutMinutes} -> defaultJobTimeoutMinutes) (\s@AccountSettings' {} a -> s {defaultJobTimeoutMinutes = a} :: AccountSettings)++-- | The maximum number of minutes a test run executes before it times out.+accountSettings_maxJobTimeoutMinutes :: Lens.Lens' AccountSettings (Prelude.Maybe Prelude.Int)+accountSettings_maxJobTimeoutMinutes = Lens.lens (\AccountSettings' {maxJobTimeoutMinutes} -> maxJobTimeoutMinutes) (\s@AccountSettings' {} a -> s {maxJobTimeoutMinutes = a} :: AccountSettings)++-- | 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.+accountSettings_maxSlots :: Lens.Lens' AccountSettings (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Int))+accountSettings_maxSlots = Lens.lens (\AccountSettings' {maxSlots} -> maxSlots) (\s@AccountSettings' {} a -> s {maxSlots = a} :: AccountSettings) Prelude.. Lens.mapping Lens.coerced++-- | When set to @true@, for private devices, Device Farm does not sign your+-- app again. For public devices, Device Farm always signs your apps again.+--+-- For more information about how Device Farm re-signs your apps, see+-- <http://aws.amazon.com/device-farm/faqs/ Do you modify my app?> in the+-- /AWS Device Farm FAQs/.+accountSettings_skipAppResign :: Lens.Lens' AccountSettings (Prelude.Maybe Prelude.Bool)+accountSettings_skipAppResign = Lens.lens (\AccountSettings' {skipAppResign} -> skipAppResign) (\s@AccountSettings' {} a -> s {skipAppResign = a} :: AccountSettings)++-- | Information about an AWS account\'s usage of free trial device minutes.+accountSettings_trialMinutes :: Lens.Lens' AccountSettings (Prelude.Maybe TrialMinutes)+accountSettings_trialMinutes = Lens.lens (\AccountSettings' {trialMinutes} -> trialMinutes) (\s@AccountSettings' {} a -> s {trialMinutes = a} :: AccountSettings)++-- | Returns the unmetered devices you have purchased or want to purchase.+accountSettings_unmeteredDevices :: Lens.Lens' AccountSettings (Prelude.Maybe (Prelude.HashMap DevicePlatform Prelude.Int))+accountSettings_unmeteredDevices = Lens.lens (\AccountSettings' {unmeteredDevices} -> unmeteredDevices) (\s@AccountSettings' {} a -> s {unmeteredDevices = a} :: AccountSettings) Prelude.. Lens.mapping Lens.coerced++-- | Returns the unmetered remote access devices you have purchased or want+-- to purchase.+accountSettings_unmeteredRemoteAccessDevices :: Lens.Lens' AccountSettings (Prelude.Maybe (Prelude.HashMap DevicePlatform Prelude.Int))+accountSettings_unmeteredRemoteAccessDevices = Lens.lens (\AccountSettings' {unmeteredRemoteAccessDevices} -> unmeteredRemoteAccessDevices) (\s@AccountSettings' {} a -> s {unmeteredRemoteAccessDevices = a} :: AccountSettings) Prelude.. Lens.mapping Lens.coerced++instance Data.FromJSON AccountSettings where+  parseJSON =+    Data.withObject+      "AccountSettings"+      ( \x ->+          AccountSettings'+            Prelude.<$> (x Data..:? "awsAccountNumber")+            Prelude.<*> (x Data..:? "defaultJobTimeoutMinutes")+            Prelude.<*> (x Data..:? "maxJobTimeoutMinutes")+            Prelude.<*> (x Data..:? "maxSlots" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "skipAppResign")+            Prelude.<*> (x Data..:? "trialMinutes")+            Prelude.<*> ( x+                            Data..:? "unmeteredDevices"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> ( x+                            Data..:? "unmeteredRemoteAccessDevices"+                            Data..!= Prelude.mempty+                        )+      )++instance Prelude.Hashable AccountSettings where+  hashWithSalt _salt AccountSettings' {..} =+    _salt+      `Prelude.hashWithSalt` awsAccountNumber+      `Prelude.hashWithSalt` defaultJobTimeoutMinutes+      `Prelude.hashWithSalt` maxJobTimeoutMinutes+      `Prelude.hashWithSalt` maxSlots+      `Prelude.hashWithSalt` skipAppResign+      `Prelude.hashWithSalt` trialMinutes+      `Prelude.hashWithSalt` unmeteredDevices+      `Prelude.hashWithSalt` unmeteredRemoteAccessDevices++instance Prelude.NFData AccountSettings where+  rnf AccountSettings' {..} =+    Prelude.rnf awsAccountNumber+      `Prelude.seq` Prelude.rnf defaultJobTimeoutMinutes+      `Prelude.seq` Prelude.rnf maxJobTimeoutMinutes+      `Prelude.seq` Prelude.rnf maxSlots+      `Prelude.seq` Prelude.rnf skipAppResign+      `Prelude.seq` Prelude.rnf trialMinutes+      `Prelude.seq` Prelude.rnf unmeteredDevices+      `Prelude.seq` Prelude.rnf unmeteredRemoteAccessDevices
+ gen/Amazonka/DeviceFarm/Types/Artifact.hs view
@@ -0,0 +1,302 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.Artifact+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.Artifact where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.ArtifactType+import qualified Amazonka.Prelude as Prelude++-- | Represents the output of a test. Examples of artifacts include logs and+-- screenshots.+--+-- /See:/ 'newArtifact' smart constructor.+data Artifact = Artifact'+  { -- | The artifact\'s ARN.+    arn :: Prelude.Maybe Prelude.Text,+    -- | The artifact\'s file extension.+    extension :: Prelude.Maybe Prelude.Text,+    -- | The artifact\'s name.+    name :: Prelude.Maybe Prelude.Text,+    -- | The artifact\'s type.+    --+    -- Allowed values include the following:+    --+    -- -   UNKNOWN+    --+    -- -   SCREENSHOT+    --+    -- -   DEVICE_LOG+    --+    -- -   MESSAGE_LOG+    --+    -- -   VIDEO_LOG+    --+    -- -   RESULT_LOG+    --+    -- -   SERVICE_LOG+    --+    -- -   WEBKIT_LOG+    --+    -- -   INSTRUMENTATION_OUTPUT+    --+    -- -   EXERCISER_MONKEY_OUTPUT: the artifact (log) generated by an Android+    --     fuzz test.+    --+    -- -   CALABASH_JSON_OUTPUT+    --+    -- -   CALABASH_PRETTY_OUTPUT+    --+    -- -   CALABASH_STANDARD_OUTPUT+    --+    -- -   CALABASH_JAVA_XML_OUTPUT+    --+    -- -   AUTOMATION_OUTPUT+    --+    -- -   APPIUM_SERVER_OUTPUT+    --+    -- -   APPIUM_JAVA_OUTPUT+    --+    -- -   APPIUM_JAVA_XML_OUTPUT+    --+    -- -   APPIUM_PYTHON_OUTPUT+    --+    -- -   APPIUM_PYTHON_XML_OUTPUT+    --+    -- -   EXPLORER_EVENT_LOG+    --+    -- -   EXPLORER_SUMMARY_LOG+    --+    -- -   APPLICATION_CRASH_REPORT+    --+    -- -   XCTEST_LOG+    --+    -- -   VIDEO+    --+    -- -   CUSTOMER_ARTIFACT+    --+    -- -   CUSTOMER_ARTIFACT_LOG+    --+    -- -   TESTSPEC_OUTPUT+    type' :: Prelude.Maybe ArtifactType,+    -- | The presigned Amazon S3 URL that can be used with a GET request to+    -- download the artifact\'s file.+    url :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Artifact' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'artifact_arn' - The artifact\'s ARN.+--+-- 'extension', 'artifact_extension' - The artifact\'s file extension.+--+-- 'name', 'artifact_name' - The artifact\'s name.+--+-- 'type'', 'artifact_type' - The artifact\'s type.+--+-- Allowed values include the following:+--+-- -   UNKNOWN+--+-- -   SCREENSHOT+--+-- -   DEVICE_LOG+--+-- -   MESSAGE_LOG+--+-- -   VIDEO_LOG+--+-- -   RESULT_LOG+--+-- -   SERVICE_LOG+--+-- -   WEBKIT_LOG+--+-- -   INSTRUMENTATION_OUTPUT+--+-- -   EXERCISER_MONKEY_OUTPUT: the artifact (log) generated by an Android+--     fuzz test.+--+-- -   CALABASH_JSON_OUTPUT+--+-- -   CALABASH_PRETTY_OUTPUT+--+-- -   CALABASH_STANDARD_OUTPUT+--+-- -   CALABASH_JAVA_XML_OUTPUT+--+-- -   AUTOMATION_OUTPUT+--+-- -   APPIUM_SERVER_OUTPUT+--+-- -   APPIUM_JAVA_OUTPUT+--+-- -   APPIUM_JAVA_XML_OUTPUT+--+-- -   APPIUM_PYTHON_OUTPUT+--+-- -   APPIUM_PYTHON_XML_OUTPUT+--+-- -   EXPLORER_EVENT_LOG+--+-- -   EXPLORER_SUMMARY_LOG+--+-- -   APPLICATION_CRASH_REPORT+--+-- -   XCTEST_LOG+--+-- -   VIDEO+--+-- -   CUSTOMER_ARTIFACT+--+-- -   CUSTOMER_ARTIFACT_LOG+--+-- -   TESTSPEC_OUTPUT+--+-- 'url', 'artifact_url' - The presigned Amazon S3 URL that can be used with a GET request to+-- download the artifact\'s file.+newArtifact ::+  Artifact+newArtifact =+  Artifact'+    { arn = Prelude.Nothing,+      extension = Prelude.Nothing,+      name = Prelude.Nothing,+      type' = Prelude.Nothing,+      url = Prelude.Nothing+    }++-- | The artifact\'s ARN.+artifact_arn :: Lens.Lens' Artifact (Prelude.Maybe Prelude.Text)+artifact_arn = Lens.lens (\Artifact' {arn} -> arn) (\s@Artifact' {} a -> s {arn = a} :: Artifact)++-- | The artifact\'s file extension.+artifact_extension :: Lens.Lens' Artifact (Prelude.Maybe Prelude.Text)+artifact_extension = Lens.lens (\Artifact' {extension} -> extension) (\s@Artifact' {} a -> s {extension = a} :: Artifact)++-- | The artifact\'s name.+artifact_name :: Lens.Lens' Artifact (Prelude.Maybe Prelude.Text)+artifact_name = Lens.lens (\Artifact' {name} -> name) (\s@Artifact' {} a -> s {name = a} :: Artifact)++-- | The artifact\'s type.+--+-- Allowed values include the following:+--+-- -   UNKNOWN+--+-- -   SCREENSHOT+--+-- -   DEVICE_LOG+--+-- -   MESSAGE_LOG+--+-- -   VIDEO_LOG+--+-- -   RESULT_LOG+--+-- -   SERVICE_LOG+--+-- -   WEBKIT_LOG+--+-- -   INSTRUMENTATION_OUTPUT+--+-- -   EXERCISER_MONKEY_OUTPUT: the artifact (log) generated by an Android+--     fuzz test.+--+-- -   CALABASH_JSON_OUTPUT+--+-- -   CALABASH_PRETTY_OUTPUT+--+-- -   CALABASH_STANDARD_OUTPUT+--+-- -   CALABASH_JAVA_XML_OUTPUT+--+-- -   AUTOMATION_OUTPUT+--+-- -   APPIUM_SERVER_OUTPUT+--+-- -   APPIUM_JAVA_OUTPUT+--+-- -   APPIUM_JAVA_XML_OUTPUT+--+-- -   APPIUM_PYTHON_OUTPUT+--+-- -   APPIUM_PYTHON_XML_OUTPUT+--+-- -   EXPLORER_EVENT_LOG+--+-- -   EXPLORER_SUMMARY_LOG+--+-- -   APPLICATION_CRASH_REPORT+--+-- -   XCTEST_LOG+--+-- -   VIDEO+--+-- -   CUSTOMER_ARTIFACT+--+-- -   CUSTOMER_ARTIFACT_LOG+--+-- -   TESTSPEC_OUTPUT+artifact_type :: Lens.Lens' Artifact (Prelude.Maybe ArtifactType)+artifact_type = Lens.lens (\Artifact' {type'} -> type') (\s@Artifact' {} a -> s {type' = a} :: Artifact)++-- | The presigned Amazon S3 URL that can be used with a GET request to+-- download the artifact\'s file.+artifact_url :: Lens.Lens' Artifact (Prelude.Maybe Prelude.Text)+artifact_url = Lens.lens (\Artifact' {url} -> url) (\s@Artifact' {} a -> s {url = a} :: Artifact)++instance Data.FromJSON Artifact where+  parseJSON =+    Data.withObject+      "Artifact"+      ( \x ->+          Artifact'+            Prelude.<$> (x Data..:? "arn")+            Prelude.<*> (x Data..:? "extension")+            Prelude.<*> (x Data..:? "name")+            Prelude.<*> (x Data..:? "type")+            Prelude.<*> (x Data..:? "url")+      )++instance Prelude.Hashable Artifact where+  hashWithSalt _salt Artifact' {..} =+    _salt+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` extension+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` url++instance Prelude.NFData Artifact where+  rnf Artifact' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf extension+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf url
+ gen/Amazonka/DeviceFarm/Types/ArtifactCategory.hs view
@@ -0,0 +1,76 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.ArtifactCategory+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.ArtifactCategory+  ( ArtifactCategory+      ( ..,+        ArtifactCategory_FILE,+        ArtifactCategory_LOG,+        ArtifactCategory_SCREENSHOT+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ArtifactCategory = ArtifactCategory'+  { fromArtifactCategory ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ArtifactCategory_FILE :: ArtifactCategory+pattern ArtifactCategory_FILE = ArtifactCategory' "FILE"++pattern ArtifactCategory_LOG :: ArtifactCategory+pattern ArtifactCategory_LOG = ArtifactCategory' "LOG"++pattern ArtifactCategory_SCREENSHOT :: ArtifactCategory+pattern ArtifactCategory_SCREENSHOT = ArtifactCategory' "SCREENSHOT"++{-# COMPLETE+  ArtifactCategory_FILE,+  ArtifactCategory_LOG,+  ArtifactCategory_SCREENSHOT,+  ArtifactCategory'+  #-}
+ gen/Amazonka/DeviceFarm/Types/ArtifactType.hs view
@@ -0,0 +1,201 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.ArtifactType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.ArtifactType+  ( ArtifactType+      ( ..,+        ArtifactType_APPIUM_JAVA_OUTPUT,+        ArtifactType_APPIUM_JAVA_XML_OUTPUT,+        ArtifactType_APPIUM_PYTHON_OUTPUT,+        ArtifactType_APPIUM_PYTHON_XML_OUTPUT,+        ArtifactType_APPIUM_SERVER_OUTPUT,+        ArtifactType_APPLICATION_CRASH_REPORT,+        ArtifactType_AUTOMATION_OUTPUT,+        ArtifactType_CALABASH_JAVA_XML_OUTPUT,+        ArtifactType_CALABASH_JSON_OUTPUT,+        ArtifactType_CALABASH_PRETTY_OUTPUT,+        ArtifactType_CALABASH_STANDARD_OUTPUT,+        ArtifactType_CUSTOMER_ARTIFACT,+        ArtifactType_CUSTOMER_ARTIFACT_LOG,+        ArtifactType_DEVICE_LOG,+        ArtifactType_EXERCISER_MONKEY_OUTPUT,+        ArtifactType_EXPLORER_EVENT_LOG,+        ArtifactType_EXPLORER_SUMMARY_LOG,+        ArtifactType_INSTRUMENTATION_OUTPUT,+        ArtifactType_MESSAGE_LOG,+        ArtifactType_RESULT_LOG,+        ArtifactType_SCREENSHOT,+        ArtifactType_SERVICE_LOG,+        ArtifactType_TESTSPEC_OUTPUT,+        ArtifactType_UNKNOWN,+        ArtifactType_VIDEO,+        ArtifactType_VIDEO_LOG,+        ArtifactType_WEBKIT_LOG,+        ArtifactType_XCTEST_LOG+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ArtifactType = ArtifactType'+  { fromArtifactType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ArtifactType_APPIUM_JAVA_OUTPUT :: ArtifactType+pattern ArtifactType_APPIUM_JAVA_OUTPUT = ArtifactType' "APPIUM_JAVA_OUTPUT"++pattern ArtifactType_APPIUM_JAVA_XML_OUTPUT :: ArtifactType+pattern ArtifactType_APPIUM_JAVA_XML_OUTPUT = ArtifactType' "APPIUM_JAVA_XML_OUTPUT"++pattern ArtifactType_APPIUM_PYTHON_OUTPUT :: ArtifactType+pattern ArtifactType_APPIUM_PYTHON_OUTPUT = ArtifactType' "APPIUM_PYTHON_OUTPUT"++pattern ArtifactType_APPIUM_PYTHON_XML_OUTPUT :: ArtifactType+pattern ArtifactType_APPIUM_PYTHON_XML_OUTPUT = ArtifactType' "APPIUM_PYTHON_XML_OUTPUT"++pattern ArtifactType_APPIUM_SERVER_OUTPUT :: ArtifactType+pattern ArtifactType_APPIUM_SERVER_OUTPUT = ArtifactType' "APPIUM_SERVER_OUTPUT"++pattern ArtifactType_APPLICATION_CRASH_REPORT :: ArtifactType+pattern ArtifactType_APPLICATION_CRASH_REPORT = ArtifactType' "APPLICATION_CRASH_REPORT"++pattern ArtifactType_AUTOMATION_OUTPUT :: ArtifactType+pattern ArtifactType_AUTOMATION_OUTPUT = ArtifactType' "AUTOMATION_OUTPUT"++pattern ArtifactType_CALABASH_JAVA_XML_OUTPUT :: ArtifactType+pattern ArtifactType_CALABASH_JAVA_XML_OUTPUT = ArtifactType' "CALABASH_JAVA_XML_OUTPUT"++pattern ArtifactType_CALABASH_JSON_OUTPUT :: ArtifactType+pattern ArtifactType_CALABASH_JSON_OUTPUT = ArtifactType' "CALABASH_JSON_OUTPUT"++pattern ArtifactType_CALABASH_PRETTY_OUTPUT :: ArtifactType+pattern ArtifactType_CALABASH_PRETTY_OUTPUT = ArtifactType' "CALABASH_PRETTY_OUTPUT"++pattern ArtifactType_CALABASH_STANDARD_OUTPUT :: ArtifactType+pattern ArtifactType_CALABASH_STANDARD_OUTPUT = ArtifactType' "CALABASH_STANDARD_OUTPUT"++pattern ArtifactType_CUSTOMER_ARTIFACT :: ArtifactType+pattern ArtifactType_CUSTOMER_ARTIFACT = ArtifactType' "CUSTOMER_ARTIFACT"++pattern ArtifactType_CUSTOMER_ARTIFACT_LOG :: ArtifactType+pattern ArtifactType_CUSTOMER_ARTIFACT_LOG = ArtifactType' "CUSTOMER_ARTIFACT_LOG"++pattern ArtifactType_DEVICE_LOG :: ArtifactType+pattern ArtifactType_DEVICE_LOG = ArtifactType' "DEVICE_LOG"++pattern ArtifactType_EXERCISER_MONKEY_OUTPUT :: ArtifactType+pattern ArtifactType_EXERCISER_MONKEY_OUTPUT = ArtifactType' "EXERCISER_MONKEY_OUTPUT"++pattern ArtifactType_EXPLORER_EVENT_LOG :: ArtifactType+pattern ArtifactType_EXPLORER_EVENT_LOG = ArtifactType' "EXPLORER_EVENT_LOG"++pattern ArtifactType_EXPLORER_SUMMARY_LOG :: ArtifactType+pattern ArtifactType_EXPLORER_SUMMARY_LOG = ArtifactType' "EXPLORER_SUMMARY_LOG"++pattern ArtifactType_INSTRUMENTATION_OUTPUT :: ArtifactType+pattern ArtifactType_INSTRUMENTATION_OUTPUT = ArtifactType' "INSTRUMENTATION_OUTPUT"++pattern ArtifactType_MESSAGE_LOG :: ArtifactType+pattern ArtifactType_MESSAGE_LOG = ArtifactType' "MESSAGE_LOG"++pattern ArtifactType_RESULT_LOG :: ArtifactType+pattern ArtifactType_RESULT_LOG = ArtifactType' "RESULT_LOG"++pattern ArtifactType_SCREENSHOT :: ArtifactType+pattern ArtifactType_SCREENSHOT = ArtifactType' "SCREENSHOT"++pattern ArtifactType_SERVICE_LOG :: ArtifactType+pattern ArtifactType_SERVICE_LOG = ArtifactType' "SERVICE_LOG"++pattern ArtifactType_TESTSPEC_OUTPUT :: ArtifactType+pattern ArtifactType_TESTSPEC_OUTPUT = ArtifactType' "TESTSPEC_OUTPUT"++pattern ArtifactType_UNKNOWN :: ArtifactType+pattern ArtifactType_UNKNOWN = ArtifactType' "UNKNOWN"++pattern ArtifactType_VIDEO :: ArtifactType+pattern ArtifactType_VIDEO = ArtifactType' "VIDEO"++pattern ArtifactType_VIDEO_LOG :: ArtifactType+pattern ArtifactType_VIDEO_LOG = ArtifactType' "VIDEO_LOG"++pattern ArtifactType_WEBKIT_LOG :: ArtifactType+pattern ArtifactType_WEBKIT_LOG = ArtifactType' "WEBKIT_LOG"++pattern ArtifactType_XCTEST_LOG :: ArtifactType+pattern ArtifactType_XCTEST_LOG = ArtifactType' "XCTEST_LOG"++{-# COMPLETE+  ArtifactType_APPIUM_JAVA_OUTPUT,+  ArtifactType_APPIUM_JAVA_XML_OUTPUT,+  ArtifactType_APPIUM_PYTHON_OUTPUT,+  ArtifactType_APPIUM_PYTHON_XML_OUTPUT,+  ArtifactType_APPIUM_SERVER_OUTPUT,+  ArtifactType_APPLICATION_CRASH_REPORT,+  ArtifactType_AUTOMATION_OUTPUT,+  ArtifactType_CALABASH_JAVA_XML_OUTPUT,+  ArtifactType_CALABASH_JSON_OUTPUT,+  ArtifactType_CALABASH_PRETTY_OUTPUT,+  ArtifactType_CALABASH_STANDARD_OUTPUT,+  ArtifactType_CUSTOMER_ARTIFACT,+  ArtifactType_CUSTOMER_ARTIFACT_LOG,+  ArtifactType_DEVICE_LOG,+  ArtifactType_EXERCISER_MONKEY_OUTPUT,+  ArtifactType_EXPLORER_EVENT_LOG,+  ArtifactType_EXPLORER_SUMMARY_LOG,+  ArtifactType_INSTRUMENTATION_OUTPUT,+  ArtifactType_MESSAGE_LOG,+  ArtifactType_RESULT_LOG,+  ArtifactType_SCREENSHOT,+  ArtifactType_SERVICE_LOG,+  ArtifactType_TESTSPEC_OUTPUT,+  ArtifactType_UNKNOWN,+  ArtifactType_VIDEO,+  ArtifactType_VIDEO_LOG,+  ArtifactType_WEBKIT_LOG,+  ArtifactType_XCTEST_LOG,+  ArtifactType'+  #-}
+ gen/Amazonka/DeviceFarm/Types/BillingMethod.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.BillingMethod+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.BillingMethod+  ( BillingMethod+      ( ..,+        BillingMethod_METERED,+        BillingMethod_UNMETERED+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype BillingMethod = BillingMethod'+  { fromBillingMethod ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern BillingMethod_METERED :: BillingMethod+pattern BillingMethod_METERED = BillingMethod' "METERED"++pattern BillingMethod_UNMETERED :: BillingMethod+pattern BillingMethod_UNMETERED = BillingMethod' "UNMETERED"++{-# COMPLETE+  BillingMethod_METERED,+  BillingMethod_UNMETERED,+  BillingMethod'+  #-}
+ gen/Amazonka/DeviceFarm/Types/CPU.hs view
@@ -0,0 +1,100 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.CPU+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.CPU where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Represents the amount of CPU that an app is using on a physical device.+-- Does not represent system-wide CPU usage.+--+-- /See:/ 'newCPU' smart constructor.+data CPU = CPU'+  { -- | The CPU\'s architecture (for example, x86 or ARM).+    architecture :: Prelude.Maybe Prelude.Text,+    -- | The clock speed of the device\'s CPU, expressed in hertz (Hz). For+    -- example, a 1.2 GHz CPU is expressed as 1200000000.+    clock :: Prelude.Maybe Prelude.Double,+    -- | The CPU\'s frequency.+    frequency :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CPU' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'architecture', 'cpu_architecture' - The CPU\'s architecture (for example, x86 or ARM).+--+-- 'clock', 'cpu_clock' - The clock speed of the device\'s CPU, expressed in hertz (Hz). For+-- example, a 1.2 GHz CPU is expressed as 1200000000.+--+-- 'frequency', 'cpu_frequency' - The CPU\'s frequency.+newCPU ::+  CPU+newCPU =+  CPU'+    { architecture = Prelude.Nothing,+      clock = Prelude.Nothing,+      frequency = Prelude.Nothing+    }++-- | The CPU\'s architecture (for example, x86 or ARM).+cpu_architecture :: Lens.Lens' CPU (Prelude.Maybe Prelude.Text)+cpu_architecture = Lens.lens (\CPU' {architecture} -> architecture) (\s@CPU' {} a -> s {architecture = a} :: CPU)++-- | The clock speed of the device\'s CPU, expressed in hertz (Hz). For+-- example, a 1.2 GHz CPU is expressed as 1200000000.+cpu_clock :: Lens.Lens' CPU (Prelude.Maybe Prelude.Double)+cpu_clock = Lens.lens (\CPU' {clock} -> clock) (\s@CPU' {} a -> s {clock = a} :: CPU)++-- | The CPU\'s frequency.+cpu_frequency :: Lens.Lens' CPU (Prelude.Maybe Prelude.Text)+cpu_frequency = Lens.lens (\CPU' {frequency} -> frequency) (\s@CPU' {} a -> s {frequency = a} :: CPU)++instance Data.FromJSON CPU where+  parseJSON =+    Data.withObject+      "CPU"+      ( \x ->+          CPU'+            Prelude.<$> (x Data..:? "architecture")+            Prelude.<*> (x Data..:? "clock")+            Prelude.<*> (x Data..:? "frequency")+      )++instance Prelude.Hashable CPU where+  hashWithSalt _salt CPU' {..} =+    _salt+      `Prelude.hashWithSalt` architecture+      `Prelude.hashWithSalt` clock+      `Prelude.hashWithSalt` frequency++instance Prelude.NFData CPU where+  rnf CPU' {..} =+    Prelude.rnf architecture+      `Prelude.seq` Prelude.rnf clock+      `Prelude.seq` Prelude.rnf frequency
+ gen/Amazonka/DeviceFarm/Types/Counters.hs view
@@ -0,0 +1,144 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.Counters+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.Counters where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Represents entity counters.+--+-- /See:/ 'newCounters' smart constructor.+data Counters = Counters'+  { -- | The number of errored entities.+    errored :: Prelude.Maybe Prelude.Int,+    -- | The number of failed entities.+    failed :: Prelude.Maybe Prelude.Int,+    -- | The number of passed entities.+    passed :: Prelude.Maybe Prelude.Int,+    -- | The number of skipped entities.+    skipped :: Prelude.Maybe Prelude.Int,+    -- | The number of stopped entities.+    stopped :: Prelude.Maybe Prelude.Int,+    -- | The total number of entities.+    total :: Prelude.Maybe Prelude.Int,+    -- | The number of warned entities.+    warned :: Prelude.Maybe Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Counters' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'errored', 'counters_errored' - The number of errored entities.+--+-- 'failed', 'counters_failed' - The number of failed entities.+--+-- 'passed', 'counters_passed' - The number of passed entities.+--+-- 'skipped', 'counters_skipped' - The number of skipped entities.+--+-- 'stopped', 'counters_stopped' - The number of stopped entities.+--+-- 'total', 'counters_total' - The total number of entities.+--+-- 'warned', 'counters_warned' - The number of warned entities.+newCounters ::+  Counters+newCounters =+  Counters'+    { errored = Prelude.Nothing,+      failed = Prelude.Nothing,+      passed = Prelude.Nothing,+      skipped = Prelude.Nothing,+      stopped = Prelude.Nothing,+      total = Prelude.Nothing,+      warned = Prelude.Nothing+    }++-- | The number of errored entities.+counters_errored :: Lens.Lens' Counters (Prelude.Maybe Prelude.Int)+counters_errored = Lens.lens (\Counters' {errored} -> errored) (\s@Counters' {} a -> s {errored = a} :: Counters)++-- | The number of failed entities.+counters_failed :: Lens.Lens' Counters (Prelude.Maybe Prelude.Int)+counters_failed = Lens.lens (\Counters' {failed} -> failed) (\s@Counters' {} a -> s {failed = a} :: Counters)++-- | The number of passed entities.+counters_passed :: Lens.Lens' Counters (Prelude.Maybe Prelude.Int)+counters_passed = Lens.lens (\Counters' {passed} -> passed) (\s@Counters' {} a -> s {passed = a} :: Counters)++-- | The number of skipped entities.+counters_skipped :: Lens.Lens' Counters (Prelude.Maybe Prelude.Int)+counters_skipped = Lens.lens (\Counters' {skipped} -> skipped) (\s@Counters' {} a -> s {skipped = a} :: Counters)++-- | The number of stopped entities.+counters_stopped :: Lens.Lens' Counters (Prelude.Maybe Prelude.Int)+counters_stopped = Lens.lens (\Counters' {stopped} -> stopped) (\s@Counters' {} a -> s {stopped = a} :: Counters)++-- | The total number of entities.+counters_total :: Lens.Lens' Counters (Prelude.Maybe Prelude.Int)+counters_total = Lens.lens (\Counters' {total} -> total) (\s@Counters' {} a -> s {total = a} :: Counters)++-- | The number of warned entities.+counters_warned :: Lens.Lens' Counters (Prelude.Maybe Prelude.Int)+counters_warned = Lens.lens (\Counters' {warned} -> warned) (\s@Counters' {} a -> s {warned = a} :: Counters)++instance Data.FromJSON Counters where+  parseJSON =+    Data.withObject+      "Counters"+      ( \x ->+          Counters'+            Prelude.<$> (x Data..:? "errored")+            Prelude.<*> (x Data..:? "failed")+            Prelude.<*> (x Data..:? "passed")+            Prelude.<*> (x Data..:? "skipped")+            Prelude.<*> (x Data..:? "stopped")+            Prelude.<*> (x Data..:? "total")+            Prelude.<*> (x Data..:? "warned")+      )++instance Prelude.Hashable Counters where+  hashWithSalt _salt Counters' {..} =+    _salt+      `Prelude.hashWithSalt` errored+      `Prelude.hashWithSalt` failed+      `Prelude.hashWithSalt` passed+      `Prelude.hashWithSalt` skipped+      `Prelude.hashWithSalt` stopped+      `Prelude.hashWithSalt` total+      `Prelude.hashWithSalt` warned++instance Prelude.NFData Counters where+  rnf Counters' {..} =+    Prelude.rnf errored+      `Prelude.seq` Prelude.rnf failed+      `Prelude.seq` Prelude.rnf passed+      `Prelude.seq` Prelude.rnf skipped+      `Prelude.seq` Prelude.rnf stopped+      `Prelude.seq` Prelude.rnf total+      `Prelude.seq` Prelude.rnf warned
+ gen/Amazonka/DeviceFarm/Types/CreateRemoteAccessSessionConfiguration.hs view
@@ -0,0 +1,99 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.CreateRemoteAccessSessionConfiguration where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.BillingMethod+import qualified Amazonka.Prelude as Prelude++-- | Configuration settings for a remote access session, including billing+-- method.+--+-- /See:/ 'newCreateRemoteAccessSessionConfiguration' smart constructor.+data CreateRemoteAccessSessionConfiguration = CreateRemoteAccessSessionConfiguration'+  { -- | The billing method for the remote access session.+    billingMethod :: Prelude.Maybe BillingMethod,+    -- | An array of ARNs included in the VPC endpoint configuration.+    vpceConfigurationArns :: Prelude.Maybe [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateRemoteAccessSessionConfiguration' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'billingMethod', 'createRemoteAccessSessionConfiguration_billingMethod' - The billing method for the remote access session.+--+-- 'vpceConfigurationArns', 'createRemoteAccessSessionConfiguration_vpceConfigurationArns' - An array of ARNs included in the VPC endpoint configuration.+newCreateRemoteAccessSessionConfiguration ::+  CreateRemoteAccessSessionConfiguration+newCreateRemoteAccessSessionConfiguration =+  CreateRemoteAccessSessionConfiguration'+    { billingMethod =+        Prelude.Nothing,+      vpceConfigurationArns =+        Prelude.Nothing+    }++-- | The billing method for the remote access session.+createRemoteAccessSessionConfiguration_billingMethod :: Lens.Lens' CreateRemoteAccessSessionConfiguration (Prelude.Maybe BillingMethod)+createRemoteAccessSessionConfiguration_billingMethod = Lens.lens (\CreateRemoteAccessSessionConfiguration' {billingMethod} -> billingMethod) (\s@CreateRemoteAccessSessionConfiguration' {} a -> s {billingMethod = a} :: CreateRemoteAccessSessionConfiguration)++-- | An array of ARNs included in the VPC endpoint configuration.+createRemoteAccessSessionConfiguration_vpceConfigurationArns :: Lens.Lens' CreateRemoteAccessSessionConfiguration (Prelude.Maybe [Prelude.Text])+createRemoteAccessSessionConfiguration_vpceConfigurationArns = Lens.lens (\CreateRemoteAccessSessionConfiguration' {vpceConfigurationArns} -> vpceConfigurationArns) (\s@CreateRemoteAccessSessionConfiguration' {} a -> s {vpceConfigurationArns = a} :: CreateRemoteAccessSessionConfiguration) Prelude.. Lens.mapping Lens.coerced++instance+  Prelude.Hashable+    CreateRemoteAccessSessionConfiguration+  where+  hashWithSalt+    _salt+    CreateRemoteAccessSessionConfiguration' {..} =+      _salt+        `Prelude.hashWithSalt` billingMethod+        `Prelude.hashWithSalt` vpceConfigurationArns++instance+  Prelude.NFData+    CreateRemoteAccessSessionConfiguration+  where+  rnf CreateRemoteAccessSessionConfiguration' {..} =+    Prelude.rnf billingMethod+      `Prelude.seq` Prelude.rnf vpceConfigurationArns++instance+  Data.ToJSON+    CreateRemoteAccessSessionConfiguration+  where+  toJSON CreateRemoteAccessSessionConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("billingMethod" Data..=) Prelude.<$> billingMethod,+            ("vpceConfigurationArns" Data..=)+              Prelude.<$> vpceConfigurationArns+          ]+      )
+ gen/Amazonka/DeviceFarm/Types/CurrencyCode.hs view
@@ -0,0 +1,66 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.CurrencyCode+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.CurrencyCode+  ( CurrencyCode+      ( ..,+        CurrencyCode_USD+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype CurrencyCode = CurrencyCode'+  { fromCurrencyCode ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern CurrencyCode_USD :: CurrencyCode+pattern CurrencyCode_USD = CurrencyCode' "USD"++{-# COMPLETE+  CurrencyCode_USD,+  CurrencyCode'+  #-}
+ gen/Amazonka/DeviceFarm/Types/CustomerArtifactPaths.hs view
@@ -0,0 +1,127 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.CustomerArtifactPaths+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.CustomerArtifactPaths where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | A JSON object that specifies the paths where the artifacts generated by+-- the customer\'s tests, on the device or in the test environment, are+-- pulled from.+--+-- Specify @deviceHostPaths@ and optionally specify either @iosPaths@ or+-- @androidPaths@.+--+-- For web app tests, you can specify both @iosPaths@ and @androidPaths@.+--+-- /See:/ 'newCustomerArtifactPaths' smart constructor.+data CustomerArtifactPaths = CustomerArtifactPaths'+  { -- | Comma-separated list of paths on the Android device where the artifacts+    -- generated by the customer\'s tests are pulled from.+    androidPaths :: Prelude.Maybe [Prelude.Text],+    -- | Comma-separated list of paths in the test execution environment where+    -- the artifacts generated by the customer\'s tests are pulled from.+    deviceHostPaths :: Prelude.Maybe [Prelude.Text],+    -- | Comma-separated list of paths on the iOS device where the artifacts+    -- generated by the customer\'s tests are pulled from.+    iosPaths :: Prelude.Maybe [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CustomerArtifactPaths' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'androidPaths', 'customerArtifactPaths_androidPaths' - Comma-separated list of paths on the Android device where the artifacts+-- generated by the customer\'s tests are pulled from.+--+-- 'deviceHostPaths', 'customerArtifactPaths_deviceHostPaths' - Comma-separated list of paths in the test execution environment where+-- the artifacts generated by the customer\'s tests are pulled from.+--+-- 'iosPaths', 'customerArtifactPaths_iosPaths' - Comma-separated list of paths on the iOS device where the artifacts+-- generated by the customer\'s tests are pulled from.+newCustomerArtifactPaths ::+  CustomerArtifactPaths+newCustomerArtifactPaths =+  CustomerArtifactPaths'+    { androidPaths =+        Prelude.Nothing,+      deviceHostPaths = Prelude.Nothing,+      iosPaths = Prelude.Nothing+    }++-- | Comma-separated list of paths on the Android device where the artifacts+-- generated by the customer\'s tests are pulled from.+customerArtifactPaths_androidPaths :: Lens.Lens' CustomerArtifactPaths (Prelude.Maybe [Prelude.Text])+customerArtifactPaths_androidPaths = Lens.lens (\CustomerArtifactPaths' {androidPaths} -> androidPaths) (\s@CustomerArtifactPaths' {} a -> s {androidPaths = a} :: CustomerArtifactPaths) Prelude.. Lens.mapping Lens.coerced++-- | Comma-separated list of paths in the test execution environment where+-- the artifacts generated by the customer\'s tests are pulled from.+customerArtifactPaths_deviceHostPaths :: Lens.Lens' CustomerArtifactPaths (Prelude.Maybe [Prelude.Text])+customerArtifactPaths_deviceHostPaths = Lens.lens (\CustomerArtifactPaths' {deviceHostPaths} -> deviceHostPaths) (\s@CustomerArtifactPaths' {} a -> s {deviceHostPaths = a} :: CustomerArtifactPaths) Prelude.. Lens.mapping Lens.coerced++-- | Comma-separated list of paths on the iOS device where the artifacts+-- generated by the customer\'s tests are pulled from.+customerArtifactPaths_iosPaths :: Lens.Lens' CustomerArtifactPaths (Prelude.Maybe [Prelude.Text])+customerArtifactPaths_iosPaths = Lens.lens (\CustomerArtifactPaths' {iosPaths} -> iosPaths) (\s@CustomerArtifactPaths' {} a -> s {iosPaths = a} :: CustomerArtifactPaths) Prelude.. Lens.mapping Lens.coerced++instance Data.FromJSON CustomerArtifactPaths where+  parseJSON =+    Data.withObject+      "CustomerArtifactPaths"+      ( \x ->+          CustomerArtifactPaths'+            Prelude.<$> (x Data..:? "androidPaths" Data..!= Prelude.mempty)+            Prelude.<*> ( x+                            Data..:? "deviceHostPaths"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> (x Data..:? "iosPaths" Data..!= Prelude.mempty)+      )++instance Prelude.Hashable CustomerArtifactPaths where+  hashWithSalt _salt CustomerArtifactPaths' {..} =+    _salt+      `Prelude.hashWithSalt` androidPaths+      `Prelude.hashWithSalt` deviceHostPaths+      `Prelude.hashWithSalt` iosPaths++instance Prelude.NFData CustomerArtifactPaths where+  rnf CustomerArtifactPaths' {..} =+    Prelude.rnf androidPaths+      `Prelude.seq` Prelude.rnf deviceHostPaths+      `Prelude.seq` Prelude.rnf iosPaths++instance Data.ToJSON CustomerArtifactPaths where+  toJSON CustomerArtifactPaths' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("androidPaths" Data..=) Prelude.<$> androidPaths,+            ("deviceHostPaths" Data..=)+              Prelude.<$> deviceHostPaths,+            ("iosPaths" Data..=) Prelude.<$> iosPaths+          ]+      )
+ gen/Amazonka/DeviceFarm/Types/Device.hs view
@@ -0,0 +1,375 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.Device+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.Device where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.CPU+import Amazonka.DeviceFarm.Types.DeviceAvailability+import Amazonka.DeviceFarm.Types.DeviceFormFactor+import Amazonka.DeviceFarm.Types.DeviceInstance+import Amazonka.DeviceFarm.Types.DevicePlatform+import Amazonka.DeviceFarm.Types.Resolution+import qualified Amazonka.Prelude as Prelude++-- | Represents a device type that an app is tested against.+--+-- /See:/ 'newDevice' smart constructor.+data Device = Device'+  { -- | The device\'s ARN.+    arn :: Prelude.Maybe Prelude.Text,+    -- | Indicates how likely a device is available for a test run. Currently+    -- available in the ListDevices and GetDevice API methods.+    availability :: Prelude.Maybe DeviceAvailability,+    -- | The device\'s carrier.+    carrier :: Prelude.Maybe Prelude.Text,+    -- | Information about the device\'s CPU.+    cpu :: Prelude.Maybe CPU,+    -- | The name of the fleet to which this device belongs.+    fleetName :: Prelude.Maybe Prelude.Text,+    -- | The type of fleet to which this device belongs. Possible values are+    -- PRIVATE and PUBLIC.+    fleetType :: Prelude.Maybe Prelude.Text,+    -- | The device\'s form factor.+    --+    -- Allowed values include:+    --+    -- -   PHONE+    --+    -- -   TABLET+    formFactor :: Prelude.Maybe DeviceFormFactor,+    -- | The device\'s heap size, expressed in bytes.+    heapSize :: Prelude.Maybe Prelude.Integer,+    -- | The device\'s image name.+    image :: Prelude.Maybe Prelude.Text,+    -- | The instances that belong to this device.+    instances :: Prelude.Maybe [DeviceInstance],+    -- | The device\'s manufacturer name.+    manufacturer :: Prelude.Maybe Prelude.Text,+    -- | The device\'s total memory size, expressed in bytes.+    memory :: Prelude.Maybe Prelude.Integer,+    -- | The device\'s model name.+    model :: Prelude.Maybe Prelude.Text,+    -- | The device\'s model ID.+    modelId :: Prelude.Maybe Prelude.Text,+    -- | The device\'s display name.+    name :: Prelude.Maybe Prelude.Text,+    -- | The device\'s operating system type.+    os :: Prelude.Maybe Prelude.Text,+    -- | The device\'s platform.+    --+    -- Allowed values include:+    --+    -- -   ANDROID+    --+    -- -   IOS+    platform :: Prelude.Maybe DevicePlatform,+    -- | The device\'s radio.+    radio :: Prelude.Maybe Prelude.Text,+    -- | Specifies whether remote access has been enabled for the specified+    -- device.+    remoteAccessEnabled :: Prelude.Maybe Prelude.Bool,+    -- | This flag is set to @true@ if remote debugging is enabled for the+    -- device.+    --+    -- Remote debugging is+    -- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>.+    remoteDebugEnabled :: Prelude.Maybe Prelude.Bool,+    -- | The resolution of the device.+    resolution :: Prelude.Maybe Resolution+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Device' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'device_arn' - The device\'s ARN.+--+-- 'availability', 'device_availability' - Indicates how likely a device is available for a test run. Currently+-- available in the ListDevices and GetDevice API methods.+--+-- 'carrier', 'device_carrier' - The device\'s carrier.+--+-- 'cpu', 'device_cpu' - Information about the device\'s CPU.+--+-- 'fleetName', 'device_fleetName' - The name of the fleet to which this device belongs.+--+-- 'fleetType', 'device_fleetType' - The type of fleet to which this device belongs. Possible values are+-- PRIVATE and PUBLIC.+--+-- 'formFactor', 'device_formFactor' - The device\'s form factor.+--+-- Allowed values include:+--+-- -   PHONE+--+-- -   TABLET+--+-- 'heapSize', 'device_heapSize' - The device\'s heap size, expressed in bytes.+--+-- 'image', 'device_image' - The device\'s image name.+--+-- 'instances', 'device_instances' - The instances that belong to this device.+--+-- 'manufacturer', 'device_manufacturer' - The device\'s manufacturer name.+--+-- 'memory', 'device_memory' - The device\'s total memory size, expressed in bytes.+--+-- 'model', 'device_model' - The device\'s model name.+--+-- 'modelId', 'device_modelId' - The device\'s model ID.+--+-- 'name', 'device_name' - The device\'s display name.+--+-- 'os', 'device_os' - The device\'s operating system type.+--+-- 'platform', 'device_platform' - The device\'s platform.+--+-- Allowed values include:+--+-- -   ANDROID+--+-- -   IOS+--+-- 'radio', 'device_radio' - The device\'s radio.+--+-- 'remoteAccessEnabled', 'device_remoteAccessEnabled' - Specifies whether remote access has been enabled for the specified+-- device.+--+-- 'remoteDebugEnabled', 'device_remoteDebugEnabled' - This flag is set to @true@ if remote debugging is enabled for the+-- device.+--+-- Remote debugging is+-- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>.+--+-- 'resolution', 'device_resolution' - The resolution of the device.+newDevice ::+  Device+newDevice =+  Device'+    { arn = Prelude.Nothing,+      availability = Prelude.Nothing,+      carrier = Prelude.Nothing,+      cpu = Prelude.Nothing,+      fleetName = Prelude.Nothing,+      fleetType = Prelude.Nothing,+      formFactor = Prelude.Nothing,+      heapSize = Prelude.Nothing,+      image = Prelude.Nothing,+      instances = Prelude.Nothing,+      manufacturer = Prelude.Nothing,+      memory = Prelude.Nothing,+      model = Prelude.Nothing,+      modelId = Prelude.Nothing,+      name = Prelude.Nothing,+      os = Prelude.Nothing,+      platform = Prelude.Nothing,+      radio = Prelude.Nothing,+      remoteAccessEnabled = Prelude.Nothing,+      remoteDebugEnabled = Prelude.Nothing,+      resolution = Prelude.Nothing+    }++-- | The device\'s ARN.+device_arn :: Lens.Lens' Device (Prelude.Maybe Prelude.Text)+device_arn = Lens.lens (\Device' {arn} -> arn) (\s@Device' {} a -> s {arn = a} :: Device)++-- | Indicates how likely a device is available for a test run. Currently+-- available in the ListDevices and GetDevice API methods.+device_availability :: Lens.Lens' Device (Prelude.Maybe DeviceAvailability)+device_availability = Lens.lens (\Device' {availability} -> availability) (\s@Device' {} a -> s {availability = a} :: Device)++-- | The device\'s carrier.+device_carrier :: Lens.Lens' Device (Prelude.Maybe Prelude.Text)+device_carrier = Lens.lens (\Device' {carrier} -> carrier) (\s@Device' {} a -> s {carrier = a} :: Device)++-- | Information about the device\'s CPU.+device_cpu :: Lens.Lens' Device (Prelude.Maybe CPU)+device_cpu = Lens.lens (\Device' {cpu} -> cpu) (\s@Device' {} a -> s {cpu = a} :: Device)++-- | The name of the fleet to which this device belongs.+device_fleetName :: Lens.Lens' Device (Prelude.Maybe Prelude.Text)+device_fleetName = Lens.lens (\Device' {fleetName} -> fleetName) (\s@Device' {} a -> s {fleetName = a} :: Device)++-- | The type of fleet to which this device belongs. Possible values are+-- PRIVATE and PUBLIC.+device_fleetType :: Lens.Lens' Device (Prelude.Maybe Prelude.Text)+device_fleetType = Lens.lens (\Device' {fleetType} -> fleetType) (\s@Device' {} a -> s {fleetType = a} :: Device)++-- | The device\'s form factor.+--+-- Allowed values include:+--+-- -   PHONE+--+-- -   TABLET+device_formFactor :: Lens.Lens' Device (Prelude.Maybe DeviceFormFactor)+device_formFactor = Lens.lens (\Device' {formFactor} -> formFactor) (\s@Device' {} a -> s {formFactor = a} :: Device)++-- | The device\'s heap size, expressed in bytes.+device_heapSize :: Lens.Lens' Device (Prelude.Maybe Prelude.Integer)+device_heapSize = Lens.lens (\Device' {heapSize} -> heapSize) (\s@Device' {} a -> s {heapSize = a} :: Device)++-- | The device\'s image name.+device_image :: Lens.Lens' Device (Prelude.Maybe Prelude.Text)+device_image = Lens.lens (\Device' {image} -> image) (\s@Device' {} a -> s {image = a} :: Device)++-- | The instances that belong to this device.+device_instances :: Lens.Lens' Device (Prelude.Maybe [DeviceInstance])+device_instances = Lens.lens (\Device' {instances} -> instances) (\s@Device' {} a -> s {instances = a} :: Device) Prelude.. Lens.mapping Lens.coerced++-- | The device\'s manufacturer name.+device_manufacturer :: Lens.Lens' Device (Prelude.Maybe Prelude.Text)+device_manufacturer = Lens.lens (\Device' {manufacturer} -> manufacturer) (\s@Device' {} a -> s {manufacturer = a} :: Device)++-- | The device\'s total memory size, expressed in bytes.+device_memory :: Lens.Lens' Device (Prelude.Maybe Prelude.Integer)+device_memory = Lens.lens (\Device' {memory} -> memory) (\s@Device' {} a -> s {memory = a} :: Device)++-- | The device\'s model name.+device_model :: Lens.Lens' Device (Prelude.Maybe Prelude.Text)+device_model = Lens.lens (\Device' {model} -> model) (\s@Device' {} a -> s {model = a} :: Device)++-- | The device\'s model ID.+device_modelId :: Lens.Lens' Device (Prelude.Maybe Prelude.Text)+device_modelId = Lens.lens (\Device' {modelId} -> modelId) (\s@Device' {} a -> s {modelId = a} :: Device)++-- | The device\'s display name.+device_name :: Lens.Lens' Device (Prelude.Maybe Prelude.Text)+device_name = Lens.lens (\Device' {name} -> name) (\s@Device' {} a -> s {name = a} :: Device)++-- | The device\'s operating system type.+device_os :: Lens.Lens' Device (Prelude.Maybe Prelude.Text)+device_os = Lens.lens (\Device' {os} -> os) (\s@Device' {} a -> s {os = a} :: Device)++-- | The device\'s platform.+--+-- Allowed values include:+--+-- -   ANDROID+--+-- -   IOS+device_platform :: Lens.Lens' Device (Prelude.Maybe DevicePlatform)+device_platform = Lens.lens (\Device' {platform} -> platform) (\s@Device' {} a -> s {platform = a} :: Device)++-- | The device\'s radio.+device_radio :: Lens.Lens' Device (Prelude.Maybe Prelude.Text)+device_radio = Lens.lens (\Device' {radio} -> radio) (\s@Device' {} a -> s {radio = a} :: Device)++-- | Specifies whether remote access has been enabled for the specified+-- device.+device_remoteAccessEnabled :: Lens.Lens' Device (Prelude.Maybe Prelude.Bool)+device_remoteAccessEnabled = Lens.lens (\Device' {remoteAccessEnabled} -> remoteAccessEnabled) (\s@Device' {} a -> s {remoteAccessEnabled = a} :: Device)++-- | This flag is set to @true@ if remote debugging is enabled for the+-- device.+--+-- Remote debugging is+-- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>.+device_remoteDebugEnabled :: Lens.Lens' Device (Prelude.Maybe Prelude.Bool)+device_remoteDebugEnabled = Lens.lens (\Device' {remoteDebugEnabled} -> remoteDebugEnabled) (\s@Device' {} a -> s {remoteDebugEnabled = a} :: Device)++-- | The resolution of the device.+device_resolution :: Lens.Lens' Device (Prelude.Maybe Resolution)+device_resolution = Lens.lens (\Device' {resolution} -> resolution) (\s@Device' {} a -> s {resolution = a} :: Device)++instance Data.FromJSON Device where+  parseJSON =+    Data.withObject+      "Device"+      ( \x ->+          Device'+            Prelude.<$> (x Data..:? "arn")+            Prelude.<*> (x Data..:? "availability")+            Prelude.<*> (x Data..:? "carrier")+            Prelude.<*> (x Data..:? "cpu")+            Prelude.<*> (x Data..:? "fleetName")+            Prelude.<*> (x Data..:? "fleetType")+            Prelude.<*> (x Data..:? "formFactor")+            Prelude.<*> (x Data..:? "heapSize")+            Prelude.<*> (x Data..:? "image")+            Prelude.<*> (x Data..:? "instances" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "manufacturer")+            Prelude.<*> (x Data..:? "memory")+            Prelude.<*> (x Data..:? "model")+            Prelude.<*> (x Data..:? "modelId")+            Prelude.<*> (x Data..:? "name")+            Prelude.<*> (x Data..:? "os")+            Prelude.<*> (x Data..:? "platform")+            Prelude.<*> (x Data..:? "radio")+            Prelude.<*> (x Data..:? "remoteAccessEnabled")+            Prelude.<*> (x Data..:? "remoteDebugEnabled")+            Prelude.<*> (x Data..:? "resolution")+      )++instance Prelude.Hashable Device where+  hashWithSalt _salt Device' {..} =+    _salt+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` availability+      `Prelude.hashWithSalt` carrier+      `Prelude.hashWithSalt` cpu+      `Prelude.hashWithSalt` fleetName+      `Prelude.hashWithSalt` fleetType+      `Prelude.hashWithSalt` formFactor+      `Prelude.hashWithSalt` heapSize+      `Prelude.hashWithSalt` image+      `Prelude.hashWithSalt` instances+      `Prelude.hashWithSalt` manufacturer+      `Prelude.hashWithSalt` memory+      `Prelude.hashWithSalt` model+      `Prelude.hashWithSalt` modelId+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` os+      `Prelude.hashWithSalt` platform+      `Prelude.hashWithSalt` radio+      `Prelude.hashWithSalt` remoteAccessEnabled+      `Prelude.hashWithSalt` remoteDebugEnabled+      `Prelude.hashWithSalt` resolution++instance Prelude.NFData Device where+  rnf Device' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf availability+      `Prelude.seq` Prelude.rnf carrier+      `Prelude.seq` Prelude.rnf cpu+      `Prelude.seq` Prelude.rnf fleetName+      `Prelude.seq` Prelude.rnf fleetType+      `Prelude.seq` Prelude.rnf formFactor+      `Prelude.seq` Prelude.rnf heapSize+      `Prelude.seq` Prelude.rnf image+      `Prelude.seq` Prelude.rnf instances+      `Prelude.seq` Prelude.rnf manufacturer+      `Prelude.seq` Prelude.rnf memory+      `Prelude.seq` Prelude.rnf model+      `Prelude.seq` Prelude.rnf modelId+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf os+      `Prelude.seq` Prelude.rnf platform+      `Prelude.seq` Prelude.rnf radio+      `Prelude.seq` Prelude.rnf remoteAccessEnabled+      `Prelude.seq` Prelude.rnf remoteDebugEnabled+      `Prelude.seq` Prelude.rnf resolution
+ gen/Amazonka/DeviceFarm/Types/DeviceAttribute.hs view
@@ -0,0 +1,126 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.DeviceAttribute+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.DeviceAttribute+  ( DeviceAttribute+      ( ..,+        DeviceAttribute_APPIUM_VERSION,+        DeviceAttribute_ARN,+        DeviceAttribute_AVAILABILITY,+        DeviceAttribute_FLEET_TYPE,+        DeviceAttribute_FORM_FACTOR,+        DeviceAttribute_INSTANCE_ARN,+        DeviceAttribute_INSTANCE_LABELS,+        DeviceAttribute_MANUFACTURER,+        DeviceAttribute_MODEL,+        DeviceAttribute_OS_VERSION,+        DeviceAttribute_PLATFORM,+        DeviceAttribute_REMOTE_ACCESS_ENABLED,+        DeviceAttribute_REMOTE_DEBUG_ENABLED+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype DeviceAttribute = DeviceAttribute'+  { fromDeviceAttribute ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern DeviceAttribute_APPIUM_VERSION :: DeviceAttribute+pattern DeviceAttribute_APPIUM_VERSION = DeviceAttribute' "APPIUM_VERSION"++pattern DeviceAttribute_ARN :: DeviceAttribute+pattern DeviceAttribute_ARN = DeviceAttribute' "ARN"++pattern DeviceAttribute_AVAILABILITY :: DeviceAttribute+pattern DeviceAttribute_AVAILABILITY = DeviceAttribute' "AVAILABILITY"++pattern DeviceAttribute_FLEET_TYPE :: DeviceAttribute+pattern DeviceAttribute_FLEET_TYPE = DeviceAttribute' "FLEET_TYPE"++pattern DeviceAttribute_FORM_FACTOR :: DeviceAttribute+pattern DeviceAttribute_FORM_FACTOR = DeviceAttribute' "FORM_FACTOR"++pattern DeviceAttribute_INSTANCE_ARN :: DeviceAttribute+pattern DeviceAttribute_INSTANCE_ARN = DeviceAttribute' "INSTANCE_ARN"++pattern DeviceAttribute_INSTANCE_LABELS :: DeviceAttribute+pattern DeviceAttribute_INSTANCE_LABELS = DeviceAttribute' "INSTANCE_LABELS"++pattern DeviceAttribute_MANUFACTURER :: DeviceAttribute+pattern DeviceAttribute_MANUFACTURER = DeviceAttribute' "MANUFACTURER"++pattern DeviceAttribute_MODEL :: DeviceAttribute+pattern DeviceAttribute_MODEL = DeviceAttribute' "MODEL"++pattern DeviceAttribute_OS_VERSION :: DeviceAttribute+pattern DeviceAttribute_OS_VERSION = DeviceAttribute' "OS_VERSION"++pattern DeviceAttribute_PLATFORM :: DeviceAttribute+pattern DeviceAttribute_PLATFORM = DeviceAttribute' "PLATFORM"++pattern DeviceAttribute_REMOTE_ACCESS_ENABLED :: DeviceAttribute+pattern DeviceAttribute_REMOTE_ACCESS_ENABLED = DeviceAttribute' "REMOTE_ACCESS_ENABLED"++pattern DeviceAttribute_REMOTE_DEBUG_ENABLED :: DeviceAttribute+pattern DeviceAttribute_REMOTE_DEBUG_ENABLED = DeviceAttribute' "REMOTE_DEBUG_ENABLED"++{-# COMPLETE+  DeviceAttribute_APPIUM_VERSION,+  DeviceAttribute_ARN,+  DeviceAttribute_AVAILABILITY,+  DeviceAttribute_FLEET_TYPE,+  DeviceAttribute_FORM_FACTOR,+  DeviceAttribute_INSTANCE_ARN,+  DeviceAttribute_INSTANCE_LABELS,+  DeviceAttribute_MANUFACTURER,+  DeviceAttribute_MODEL,+  DeviceAttribute_OS_VERSION,+  DeviceAttribute_PLATFORM,+  DeviceAttribute_REMOTE_ACCESS_ENABLED,+  DeviceAttribute_REMOTE_DEBUG_ENABLED,+  DeviceAttribute'+  #-}
+ gen/Amazonka/DeviceFarm/Types/DeviceAvailability.hs view
@@ -0,0 +1,81 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.DeviceAvailability+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.DeviceAvailability+  ( DeviceAvailability+      ( ..,+        DeviceAvailability_AVAILABLE,+        DeviceAvailability_BUSY,+        DeviceAvailability_HIGHLY_AVAILABLE,+        DeviceAvailability_TEMPORARY_NOT_AVAILABLE+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype DeviceAvailability = DeviceAvailability'+  { fromDeviceAvailability ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern DeviceAvailability_AVAILABLE :: DeviceAvailability+pattern DeviceAvailability_AVAILABLE = DeviceAvailability' "AVAILABLE"++pattern DeviceAvailability_BUSY :: DeviceAvailability+pattern DeviceAvailability_BUSY = DeviceAvailability' "BUSY"++pattern DeviceAvailability_HIGHLY_AVAILABLE :: DeviceAvailability+pattern DeviceAvailability_HIGHLY_AVAILABLE = DeviceAvailability' "HIGHLY_AVAILABLE"++pattern DeviceAvailability_TEMPORARY_NOT_AVAILABLE :: DeviceAvailability+pattern DeviceAvailability_TEMPORARY_NOT_AVAILABLE = DeviceAvailability' "TEMPORARY_NOT_AVAILABLE"++{-# COMPLETE+  DeviceAvailability_AVAILABLE,+  DeviceAvailability_BUSY,+  DeviceAvailability_HIGHLY_AVAILABLE,+  DeviceAvailability_TEMPORARY_NOT_AVAILABLE,+  DeviceAvailability'+  #-}
+ gen/Amazonka/DeviceFarm/Types/DeviceFilter.hs view
@@ -0,0 +1,397 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.DeviceFilter+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.DeviceFilter where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.DeviceFilterAttribute+import Amazonka.DeviceFarm.Types.RuleOperator+import qualified Amazonka.Prelude as Prelude++-- | Represents a device filter used to select a set of devices to be+-- included in a test run. This data structure is passed in as the+-- @deviceSelectionConfiguration@ parameter to @ScheduleRun@. For an+-- example of the JSON request syntax, see ScheduleRun.+--+-- It is also passed in as the @filters@ parameter to @ListDevices@. For an+-- example of the JSON request syntax, see ListDevices.+--+-- /See:/ 'newDeviceFilter' smart constructor.+data DeviceFilter = DeviceFilter'+  { -- | The aspect of a device such as platform or model used as the selection+    -- criteria in a device filter.+    --+    -- The supported operators for each attribute are provided in the following+    -- list.+    --+    -- [ARN]+    --     The Amazon Resource Name (ARN) of the device (for example,+    --     @arn:aws:devicefarm:us-west-2::device:12345Example@).+    --+    --     Supported operators: @EQUALS@, @IN@, @NOT_IN@+    --+    -- [PLATFORM]+    --     The device platform. Valid values are ANDROID or IOS.+    --+    --     Supported operators: @EQUALS@+    --+    -- [OS_VERSION]+    --     The operating system version (for example, 10.3.2).+    --+    --     Supported operators: @EQUALS@, @GREATER_THAN@,+    --     @GREATER_THAN_OR_EQUALS@, @IN@, @LESS_THAN@, @LESS_THAN_OR_EQUALS@,+    --     @NOT_IN@+    --+    -- [MODEL]+    --     The device model (for example, iPad 5th Gen).+    --+    --     Supported operators: @CONTAINS@, @EQUALS@, @IN@, @NOT_IN@+    --+    -- [AVAILABILITY]+    --     The current availability of the device. Valid values are AVAILABLE,+    --     HIGHLY_AVAILABLE, BUSY, or TEMPORARY_NOT_AVAILABLE.+    --+    --     Supported operators: @EQUALS@+    --+    -- [FORM_FACTOR]+    --     The device form factor. Valid values are PHONE or TABLET.+    --+    --     Supported operators: @EQUALS@+    --+    -- [MANUFACTURER]+    --     The device manufacturer (for example, Apple).+    --+    --     Supported operators: @EQUALS@, @IN@, @NOT_IN@+    --+    -- [REMOTE_ACCESS_ENABLED]+    --     Whether the device is enabled for remote access. Valid values are+    --     TRUE or FALSE.+    --+    --     Supported operators: @EQUALS@+    --+    -- [REMOTE_DEBUG_ENABLED]+    --     Whether the device is enabled for remote debugging. Valid values are+    --     TRUE or FALSE.+    --+    --     Supported operators: @EQUALS@+    --+    --     Because remote debugging is+    --     <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>,+    --     this filter is ignored.+    --+    -- [INSTANCE_ARN]+    --     The Amazon Resource Name (ARN) of the device instance.+    --+    --     Supported operators: @EQUALS@, @IN@, @NOT_IN@+    --+    -- [INSTANCE_LABELS]+    --     The label of the device instance.+    --+    --     Supported operators: @CONTAINS@+    --+    -- [FLEET_TYPE]+    --     The fleet type. Valid values are PUBLIC or PRIVATE.+    --+    --     Supported operators: @EQUALS@+    attribute :: DeviceFilterAttribute,+    -- | Specifies how Device Farm compares the filter\'s attribute to the value.+    -- See the attribute descriptions.+    operator :: RuleOperator,+    -- | An array of one or more filter values used in a device filter.+    --+    -- __Operator Values__+    --+    -- -   The IN and NOT_IN operators can take a values array that has more+    --     than one element.+    --+    -- -   The other operators require an array with a single element.+    --+    -- __Attribute Values__+    --+    -- -   The PLATFORM attribute can be set to ANDROID or IOS.+    --+    -- -   The AVAILABILITY attribute can be set to AVAILABLE,+    --     HIGHLY_AVAILABLE, BUSY, or TEMPORARY_NOT_AVAILABLE.+    --+    -- -   The FORM_FACTOR attribute can be set to PHONE or TABLET.+    --+    -- -   The FLEET_TYPE attribute can be set to PUBLIC or PRIVATE.+    values :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeviceFilter' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'attribute', 'deviceFilter_attribute' - The aspect of a device such as platform or model used as the selection+-- criteria in a device filter.+--+-- The supported operators for each attribute are provided in the following+-- list.+--+-- [ARN]+--     The Amazon Resource Name (ARN) of the device (for example,+--     @arn:aws:devicefarm:us-west-2::device:12345Example@).+--+--     Supported operators: @EQUALS@, @IN@, @NOT_IN@+--+-- [PLATFORM]+--     The device platform. Valid values are ANDROID or IOS.+--+--     Supported operators: @EQUALS@+--+-- [OS_VERSION]+--     The operating system version (for example, 10.3.2).+--+--     Supported operators: @EQUALS@, @GREATER_THAN@,+--     @GREATER_THAN_OR_EQUALS@, @IN@, @LESS_THAN@, @LESS_THAN_OR_EQUALS@,+--     @NOT_IN@+--+-- [MODEL]+--     The device model (for example, iPad 5th Gen).+--+--     Supported operators: @CONTAINS@, @EQUALS@, @IN@, @NOT_IN@+--+-- [AVAILABILITY]+--     The current availability of the device. Valid values are AVAILABLE,+--     HIGHLY_AVAILABLE, BUSY, or TEMPORARY_NOT_AVAILABLE.+--+--     Supported operators: @EQUALS@+--+-- [FORM_FACTOR]+--     The device form factor. Valid values are PHONE or TABLET.+--+--     Supported operators: @EQUALS@+--+-- [MANUFACTURER]+--     The device manufacturer (for example, Apple).+--+--     Supported operators: @EQUALS@, @IN@, @NOT_IN@+--+-- [REMOTE_ACCESS_ENABLED]+--     Whether the device is enabled for remote access. Valid values are+--     TRUE or FALSE.+--+--     Supported operators: @EQUALS@+--+-- [REMOTE_DEBUG_ENABLED]+--     Whether the device is enabled for remote debugging. Valid values are+--     TRUE or FALSE.+--+--     Supported operators: @EQUALS@+--+--     Because remote debugging is+--     <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>,+--     this filter is ignored.+--+-- [INSTANCE_ARN]+--     The Amazon Resource Name (ARN) of the device instance.+--+--     Supported operators: @EQUALS@, @IN@, @NOT_IN@+--+-- [INSTANCE_LABELS]+--     The label of the device instance.+--+--     Supported operators: @CONTAINS@+--+-- [FLEET_TYPE]+--     The fleet type. Valid values are PUBLIC or PRIVATE.+--+--     Supported operators: @EQUALS@+--+-- 'operator', 'deviceFilter_operator' - Specifies how Device Farm compares the filter\'s attribute to the value.+-- See the attribute descriptions.+--+-- 'values', 'deviceFilter_values' - An array of one or more filter values used in a device filter.+--+-- __Operator Values__+--+-- -   The IN and NOT_IN operators can take a values array that has more+--     than one element.+--+-- -   The other operators require an array with a single element.+--+-- __Attribute Values__+--+-- -   The PLATFORM attribute can be set to ANDROID or IOS.+--+-- -   The AVAILABILITY attribute can be set to AVAILABLE,+--     HIGHLY_AVAILABLE, BUSY, or TEMPORARY_NOT_AVAILABLE.+--+-- -   The FORM_FACTOR attribute can be set to PHONE or TABLET.+--+-- -   The FLEET_TYPE attribute can be set to PUBLIC or PRIVATE.+newDeviceFilter ::+  -- | 'attribute'+  DeviceFilterAttribute ->+  -- | 'operator'+  RuleOperator ->+  DeviceFilter+newDeviceFilter pAttribute_ pOperator_ =+  DeviceFilter'+    { attribute = pAttribute_,+      operator = pOperator_,+      values = Prelude.mempty+    }++-- | The aspect of a device such as platform or model used as the selection+-- criteria in a device filter.+--+-- The supported operators for each attribute are provided in the following+-- list.+--+-- [ARN]+--     The Amazon Resource Name (ARN) of the device (for example,+--     @arn:aws:devicefarm:us-west-2::device:12345Example@).+--+--     Supported operators: @EQUALS@, @IN@, @NOT_IN@+--+-- [PLATFORM]+--     The device platform. Valid values are ANDROID or IOS.+--+--     Supported operators: @EQUALS@+--+-- [OS_VERSION]+--     The operating system version (for example, 10.3.2).+--+--     Supported operators: @EQUALS@, @GREATER_THAN@,+--     @GREATER_THAN_OR_EQUALS@, @IN@, @LESS_THAN@, @LESS_THAN_OR_EQUALS@,+--     @NOT_IN@+--+-- [MODEL]+--     The device model (for example, iPad 5th Gen).+--+--     Supported operators: @CONTAINS@, @EQUALS@, @IN@, @NOT_IN@+--+-- [AVAILABILITY]+--     The current availability of the device. Valid values are AVAILABLE,+--     HIGHLY_AVAILABLE, BUSY, or TEMPORARY_NOT_AVAILABLE.+--+--     Supported operators: @EQUALS@+--+-- [FORM_FACTOR]+--     The device form factor. Valid values are PHONE or TABLET.+--+--     Supported operators: @EQUALS@+--+-- [MANUFACTURER]+--     The device manufacturer (for example, Apple).+--+--     Supported operators: @EQUALS@, @IN@, @NOT_IN@+--+-- [REMOTE_ACCESS_ENABLED]+--     Whether the device is enabled for remote access. Valid values are+--     TRUE or FALSE.+--+--     Supported operators: @EQUALS@+--+-- [REMOTE_DEBUG_ENABLED]+--     Whether the device is enabled for remote debugging. Valid values are+--     TRUE or FALSE.+--+--     Supported operators: @EQUALS@+--+--     Because remote debugging is+--     <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>,+--     this filter is ignored.+--+-- [INSTANCE_ARN]+--     The Amazon Resource Name (ARN) of the device instance.+--+--     Supported operators: @EQUALS@, @IN@, @NOT_IN@+--+-- [INSTANCE_LABELS]+--     The label of the device instance.+--+--     Supported operators: @CONTAINS@+--+-- [FLEET_TYPE]+--     The fleet type. Valid values are PUBLIC or PRIVATE.+--+--     Supported operators: @EQUALS@+deviceFilter_attribute :: Lens.Lens' DeviceFilter DeviceFilterAttribute+deviceFilter_attribute = Lens.lens (\DeviceFilter' {attribute} -> attribute) (\s@DeviceFilter' {} a -> s {attribute = a} :: DeviceFilter)++-- | Specifies how Device Farm compares the filter\'s attribute to the value.+-- See the attribute descriptions.+deviceFilter_operator :: Lens.Lens' DeviceFilter RuleOperator+deviceFilter_operator = Lens.lens (\DeviceFilter' {operator} -> operator) (\s@DeviceFilter' {} a -> s {operator = a} :: DeviceFilter)++-- | An array of one or more filter values used in a device filter.+--+-- __Operator Values__+--+-- -   The IN and NOT_IN operators can take a values array that has more+--     than one element.+--+-- -   The other operators require an array with a single element.+--+-- __Attribute Values__+--+-- -   The PLATFORM attribute can be set to ANDROID or IOS.+--+-- -   The AVAILABILITY attribute can be set to AVAILABLE,+--     HIGHLY_AVAILABLE, BUSY, or TEMPORARY_NOT_AVAILABLE.+--+-- -   The FORM_FACTOR attribute can be set to PHONE or TABLET.+--+-- -   The FLEET_TYPE attribute can be set to PUBLIC or PRIVATE.+deviceFilter_values :: Lens.Lens' DeviceFilter [Prelude.Text]+deviceFilter_values = Lens.lens (\DeviceFilter' {values} -> values) (\s@DeviceFilter' {} a -> s {values = a} :: DeviceFilter) Prelude.. Lens.coerced++instance Data.FromJSON DeviceFilter where+  parseJSON =+    Data.withObject+      "DeviceFilter"+      ( \x ->+          DeviceFilter'+            Prelude.<$> (x Data..: "attribute")+            Prelude.<*> (x Data..: "operator")+            Prelude.<*> (x Data..:? "values" Data..!= Prelude.mempty)+      )++instance Prelude.Hashable DeviceFilter where+  hashWithSalt _salt DeviceFilter' {..} =+    _salt+      `Prelude.hashWithSalt` attribute+      `Prelude.hashWithSalt` operator+      `Prelude.hashWithSalt` values++instance Prelude.NFData DeviceFilter where+  rnf DeviceFilter' {..} =+    Prelude.rnf attribute+      `Prelude.seq` Prelude.rnf operator+      `Prelude.seq` Prelude.rnf values++instance Data.ToJSON DeviceFilter where+  toJSON DeviceFilter' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("attribute" Data..= attribute),+            Prelude.Just ("operator" Data..= operator),+            Prelude.Just ("values" Data..= values)+          ]+      )
+ gen/Amazonka/DeviceFarm/Types/DeviceFilterAttribute.hs view
@@ -0,0 +1,121 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.DeviceFilterAttribute+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.DeviceFilterAttribute+  ( DeviceFilterAttribute+      ( ..,+        DeviceFilterAttribute_ARN,+        DeviceFilterAttribute_AVAILABILITY,+        DeviceFilterAttribute_FLEET_TYPE,+        DeviceFilterAttribute_FORM_FACTOR,+        DeviceFilterAttribute_INSTANCE_ARN,+        DeviceFilterAttribute_INSTANCE_LABELS,+        DeviceFilterAttribute_MANUFACTURER,+        DeviceFilterAttribute_MODEL,+        DeviceFilterAttribute_OS_VERSION,+        DeviceFilterAttribute_PLATFORM,+        DeviceFilterAttribute_REMOTE_ACCESS_ENABLED,+        DeviceFilterAttribute_REMOTE_DEBUG_ENABLED+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype DeviceFilterAttribute = DeviceFilterAttribute'+  { fromDeviceFilterAttribute ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern DeviceFilterAttribute_ARN :: DeviceFilterAttribute+pattern DeviceFilterAttribute_ARN = DeviceFilterAttribute' "ARN"++pattern DeviceFilterAttribute_AVAILABILITY :: DeviceFilterAttribute+pattern DeviceFilterAttribute_AVAILABILITY = DeviceFilterAttribute' "AVAILABILITY"++pattern DeviceFilterAttribute_FLEET_TYPE :: DeviceFilterAttribute+pattern DeviceFilterAttribute_FLEET_TYPE = DeviceFilterAttribute' "FLEET_TYPE"++pattern DeviceFilterAttribute_FORM_FACTOR :: DeviceFilterAttribute+pattern DeviceFilterAttribute_FORM_FACTOR = DeviceFilterAttribute' "FORM_FACTOR"++pattern DeviceFilterAttribute_INSTANCE_ARN :: DeviceFilterAttribute+pattern DeviceFilterAttribute_INSTANCE_ARN = DeviceFilterAttribute' "INSTANCE_ARN"++pattern DeviceFilterAttribute_INSTANCE_LABELS :: DeviceFilterAttribute+pattern DeviceFilterAttribute_INSTANCE_LABELS = DeviceFilterAttribute' "INSTANCE_LABELS"++pattern DeviceFilterAttribute_MANUFACTURER :: DeviceFilterAttribute+pattern DeviceFilterAttribute_MANUFACTURER = DeviceFilterAttribute' "MANUFACTURER"++pattern DeviceFilterAttribute_MODEL :: DeviceFilterAttribute+pattern DeviceFilterAttribute_MODEL = DeviceFilterAttribute' "MODEL"++pattern DeviceFilterAttribute_OS_VERSION :: DeviceFilterAttribute+pattern DeviceFilterAttribute_OS_VERSION = DeviceFilterAttribute' "OS_VERSION"++pattern DeviceFilterAttribute_PLATFORM :: DeviceFilterAttribute+pattern DeviceFilterAttribute_PLATFORM = DeviceFilterAttribute' "PLATFORM"++pattern DeviceFilterAttribute_REMOTE_ACCESS_ENABLED :: DeviceFilterAttribute+pattern DeviceFilterAttribute_REMOTE_ACCESS_ENABLED = DeviceFilterAttribute' "REMOTE_ACCESS_ENABLED"++pattern DeviceFilterAttribute_REMOTE_DEBUG_ENABLED :: DeviceFilterAttribute+pattern DeviceFilterAttribute_REMOTE_DEBUG_ENABLED = DeviceFilterAttribute' "REMOTE_DEBUG_ENABLED"++{-# COMPLETE+  DeviceFilterAttribute_ARN,+  DeviceFilterAttribute_AVAILABILITY,+  DeviceFilterAttribute_FLEET_TYPE,+  DeviceFilterAttribute_FORM_FACTOR,+  DeviceFilterAttribute_INSTANCE_ARN,+  DeviceFilterAttribute_INSTANCE_LABELS,+  DeviceFilterAttribute_MANUFACTURER,+  DeviceFilterAttribute_MODEL,+  DeviceFilterAttribute_OS_VERSION,+  DeviceFilterAttribute_PLATFORM,+  DeviceFilterAttribute_REMOTE_ACCESS_ENABLED,+  DeviceFilterAttribute_REMOTE_DEBUG_ENABLED,+  DeviceFilterAttribute'+  #-}
+ gen/Amazonka/DeviceFarm/Types/DeviceFormFactor.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.DeviceFormFactor+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.DeviceFormFactor+  ( DeviceFormFactor+      ( ..,+        DeviceFormFactor_PHONE,+        DeviceFormFactor_TABLET+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype DeviceFormFactor = DeviceFormFactor'+  { fromDeviceFormFactor ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern DeviceFormFactor_PHONE :: DeviceFormFactor+pattern DeviceFormFactor_PHONE = DeviceFormFactor' "PHONE"++pattern DeviceFormFactor_TABLET :: DeviceFormFactor+pattern DeviceFormFactor_TABLET = DeviceFormFactor' "TABLET"++{-# COMPLETE+  DeviceFormFactor_PHONE,+  DeviceFormFactor_TABLET,+  DeviceFormFactor'+  #-}
+ gen/Amazonka/DeviceFarm/Types/DeviceInstance.hs view
@@ -0,0 +1,134 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.DeviceInstance+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.DeviceInstance where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.InstanceProfile+import Amazonka.DeviceFarm.Types.InstanceStatus+import qualified Amazonka.Prelude as Prelude++-- | Represents the device instance.+--+-- /See:/ 'newDeviceInstance' smart constructor.+data DeviceInstance = DeviceInstance'+  { -- | The Amazon Resource Name (ARN) of the device instance.+    arn :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the device.+    deviceArn :: Prelude.Maybe Prelude.Text,+    -- | A object that contains information about the instance profile.+    instanceProfile :: Prelude.Maybe InstanceProfile,+    -- | An array of strings that describe the device instance.+    labels :: Prelude.Maybe [Prelude.Text],+    -- | The status of the device instance. Valid values are listed here.+    status :: Prelude.Maybe InstanceStatus,+    -- | Unique device identifier for the device instance.+    udid :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeviceInstance' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'deviceInstance_arn' - The Amazon Resource Name (ARN) of the device instance.+--+-- 'deviceArn', 'deviceInstance_deviceArn' - The ARN of the device.+--+-- 'instanceProfile', 'deviceInstance_instanceProfile' - A object that contains information about the instance profile.+--+-- 'labels', 'deviceInstance_labels' - An array of strings that describe the device instance.+--+-- 'status', 'deviceInstance_status' - The status of the device instance. Valid values are listed here.+--+-- 'udid', 'deviceInstance_udid' - Unique device identifier for the device instance.+newDeviceInstance ::+  DeviceInstance+newDeviceInstance =+  DeviceInstance'+    { arn = Prelude.Nothing,+      deviceArn = Prelude.Nothing,+      instanceProfile = Prelude.Nothing,+      labels = Prelude.Nothing,+      status = Prelude.Nothing,+      udid = Prelude.Nothing+    }++-- | The Amazon Resource Name (ARN) of the device instance.+deviceInstance_arn :: Lens.Lens' DeviceInstance (Prelude.Maybe Prelude.Text)+deviceInstance_arn = Lens.lens (\DeviceInstance' {arn} -> arn) (\s@DeviceInstance' {} a -> s {arn = a} :: DeviceInstance)++-- | The ARN of the device.+deviceInstance_deviceArn :: Lens.Lens' DeviceInstance (Prelude.Maybe Prelude.Text)+deviceInstance_deviceArn = Lens.lens (\DeviceInstance' {deviceArn} -> deviceArn) (\s@DeviceInstance' {} a -> s {deviceArn = a} :: DeviceInstance)++-- | A object that contains information about the instance profile.+deviceInstance_instanceProfile :: Lens.Lens' DeviceInstance (Prelude.Maybe InstanceProfile)+deviceInstance_instanceProfile = Lens.lens (\DeviceInstance' {instanceProfile} -> instanceProfile) (\s@DeviceInstance' {} a -> s {instanceProfile = a} :: DeviceInstance)++-- | An array of strings that describe the device instance.+deviceInstance_labels :: Lens.Lens' DeviceInstance (Prelude.Maybe [Prelude.Text])+deviceInstance_labels = Lens.lens (\DeviceInstance' {labels} -> labels) (\s@DeviceInstance' {} a -> s {labels = a} :: DeviceInstance) Prelude.. Lens.mapping Lens.coerced++-- | The status of the device instance. Valid values are listed here.+deviceInstance_status :: Lens.Lens' DeviceInstance (Prelude.Maybe InstanceStatus)+deviceInstance_status = Lens.lens (\DeviceInstance' {status} -> status) (\s@DeviceInstance' {} a -> s {status = a} :: DeviceInstance)++-- | Unique device identifier for the device instance.+deviceInstance_udid :: Lens.Lens' DeviceInstance (Prelude.Maybe Prelude.Text)+deviceInstance_udid = Lens.lens (\DeviceInstance' {udid} -> udid) (\s@DeviceInstance' {} a -> s {udid = a} :: DeviceInstance)++instance Data.FromJSON DeviceInstance where+  parseJSON =+    Data.withObject+      "DeviceInstance"+      ( \x ->+          DeviceInstance'+            Prelude.<$> (x Data..:? "arn")+            Prelude.<*> (x Data..:? "deviceArn")+            Prelude.<*> (x Data..:? "instanceProfile")+            Prelude.<*> (x Data..:? "labels" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "status")+            Prelude.<*> (x Data..:? "udid")+      )++instance Prelude.Hashable DeviceInstance where+  hashWithSalt _salt DeviceInstance' {..} =+    _salt+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` deviceArn+      `Prelude.hashWithSalt` instanceProfile+      `Prelude.hashWithSalt` labels+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` udid++instance Prelude.NFData DeviceInstance where+  rnf DeviceInstance' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf deviceArn+      `Prelude.seq` Prelude.rnf instanceProfile+      `Prelude.seq` Prelude.rnf labels+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf udid
+ gen/Amazonka/DeviceFarm/Types/DeviceMinutes.hs view
@@ -0,0 +1,106 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.DeviceMinutes+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.DeviceMinutes where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Represents the total (metered or unmetered) minutes used by the resource+-- to run tests. Contains the sum of minutes consumed by all children.+--+-- /See:/ 'newDeviceMinutes' smart constructor.+data DeviceMinutes = DeviceMinutes'+  { -- | When specified, represents only the sum of metered minutes used by the+    -- resource to run tests.+    metered :: Prelude.Maybe Prelude.Double,+    -- | When specified, represents the total minutes used by the resource to run+    -- tests.+    total :: Prelude.Maybe Prelude.Double,+    -- | When specified, represents only the sum of unmetered minutes used by the+    -- resource to run tests.+    unmetered :: Prelude.Maybe Prelude.Double+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeviceMinutes' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'metered', 'deviceMinutes_metered' - When specified, represents only the sum of metered minutes used by the+-- resource to run tests.+--+-- 'total', 'deviceMinutes_total' - When specified, represents the total minutes used by the resource to run+-- tests.+--+-- 'unmetered', 'deviceMinutes_unmetered' - When specified, represents only the sum of unmetered minutes used by the+-- resource to run tests.+newDeviceMinutes ::+  DeviceMinutes+newDeviceMinutes =+  DeviceMinutes'+    { metered = Prelude.Nothing,+      total = Prelude.Nothing,+      unmetered = Prelude.Nothing+    }++-- | When specified, represents only the sum of metered minutes used by the+-- resource to run tests.+deviceMinutes_metered :: Lens.Lens' DeviceMinutes (Prelude.Maybe Prelude.Double)+deviceMinutes_metered = Lens.lens (\DeviceMinutes' {metered} -> metered) (\s@DeviceMinutes' {} a -> s {metered = a} :: DeviceMinutes)++-- | When specified, represents the total minutes used by the resource to run+-- tests.+deviceMinutes_total :: Lens.Lens' DeviceMinutes (Prelude.Maybe Prelude.Double)+deviceMinutes_total = Lens.lens (\DeviceMinutes' {total} -> total) (\s@DeviceMinutes' {} a -> s {total = a} :: DeviceMinutes)++-- | When specified, represents only the sum of unmetered minutes used by the+-- resource to run tests.+deviceMinutes_unmetered :: Lens.Lens' DeviceMinutes (Prelude.Maybe Prelude.Double)+deviceMinutes_unmetered = Lens.lens (\DeviceMinutes' {unmetered} -> unmetered) (\s@DeviceMinutes' {} a -> s {unmetered = a} :: DeviceMinutes)++instance Data.FromJSON DeviceMinutes where+  parseJSON =+    Data.withObject+      "DeviceMinutes"+      ( \x ->+          DeviceMinutes'+            Prelude.<$> (x Data..:? "metered")+            Prelude.<*> (x Data..:? "total")+            Prelude.<*> (x Data..:? "unmetered")+      )++instance Prelude.Hashable DeviceMinutes where+  hashWithSalt _salt DeviceMinutes' {..} =+    _salt+      `Prelude.hashWithSalt` metered+      `Prelude.hashWithSalt` total+      `Prelude.hashWithSalt` unmetered++instance Prelude.NFData DeviceMinutes where+  rnf DeviceMinutes' {..} =+    Prelude.rnf metered+      `Prelude.seq` Prelude.rnf total+      `Prelude.seq` Prelude.rnf unmetered
+ gen/Amazonka/DeviceFarm/Types/DevicePlatform.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.DevicePlatform+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.DevicePlatform+  ( DevicePlatform+      ( ..,+        DevicePlatform_ANDROID,+        DevicePlatform_IOS+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype DevicePlatform = DevicePlatform'+  { fromDevicePlatform ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern DevicePlatform_ANDROID :: DevicePlatform+pattern DevicePlatform_ANDROID = DevicePlatform' "ANDROID"++pattern DevicePlatform_IOS :: DevicePlatform+pattern DevicePlatform_IOS = DevicePlatform' "IOS"++{-# COMPLETE+  DevicePlatform_ANDROID,+  DevicePlatform_IOS,+  DevicePlatform'+  #-}
+ gen/Amazonka/DeviceFarm/Types/DevicePool.hs view
@@ -0,0 +1,179 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.DevicePool+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.DevicePool where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.DevicePoolType+import Amazonka.DeviceFarm.Types.Rule+import qualified Amazonka.Prelude as Prelude++-- | Represents a collection of device types.+--+-- /See:/ 'newDevicePool' smart constructor.+data DevicePool = DevicePool'+  { -- | The device pool\'s ARN.+    arn :: Prelude.Maybe Prelude.Text,+    -- | The device pool\'s description.+    description :: Prelude.Maybe Prelude.Text,+    -- | The number of devices that Device Farm can add to your device pool.+    -- Device Farm adds devices that are available and meet the criteria that+    -- you assign for the @rules@ parameter. Depending on how many devices meet+    -- these constraints, your device pool might contain fewer devices than the+    -- value for this parameter.+    --+    -- By specifying the maximum number of devices, you can control the costs+    -- that you incur by running tests.+    maxDevices :: Prelude.Maybe Prelude.Int,+    -- | The device pool\'s name.+    name :: Prelude.Maybe Prelude.Text,+    -- | Information about the device pool\'s rules.+    rules :: Prelude.Maybe [Rule],+    -- | 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.+    type' :: Prelude.Maybe DevicePoolType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DevicePool' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'devicePool_arn' - The device pool\'s ARN.+--+-- 'description', 'devicePool_description' - The device pool\'s description.+--+-- 'maxDevices', 'devicePool_maxDevices' - The number of devices that Device Farm can add to your device pool.+-- Device Farm adds devices that are available and meet the criteria that+-- you assign for the @rules@ parameter. Depending on how many devices meet+-- these constraints, your device pool might contain fewer devices than the+-- value for this parameter.+--+-- By specifying the maximum number of devices, you can control the costs+-- that you incur by running tests.+--+-- 'name', 'devicePool_name' - The device pool\'s name.+--+-- 'rules', 'devicePool_rules' - Information about the device pool\'s rules.+--+-- 'type'', 'devicePool_type' - 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.+newDevicePool ::+  DevicePool+newDevicePool =+  DevicePool'+    { arn = Prelude.Nothing,+      description = Prelude.Nothing,+      maxDevices = Prelude.Nothing,+      name = Prelude.Nothing,+      rules = Prelude.Nothing,+      type' = Prelude.Nothing+    }++-- | The device pool\'s ARN.+devicePool_arn :: Lens.Lens' DevicePool (Prelude.Maybe Prelude.Text)+devicePool_arn = Lens.lens (\DevicePool' {arn} -> arn) (\s@DevicePool' {} a -> s {arn = a} :: DevicePool)++-- | The device pool\'s description.+devicePool_description :: Lens.Lens' DevicePool (Prelude.Maybe Prelude.Text)+devicePool_description = Lens.lens (\DevicePool' {description} -> description) (\s@DevicePool' {} a -> s {description = a} :: DevicePool)++-- | The number of devices that Device Farm can add to your device pool.+-- Device Farm adds devices that are available and meet the criteria that+-- you assign for the @rules@ parameter. Depending on how many devices meet+-- these constraints, your device pool might contain fewer devices than the+-- value for this parameter.+--+-- By specifying the maximum number of devices, you can control the costs+-- that you incur by running tests.+devicePool_maxDevices :: Lens.Lens' DevicePool (Prelude.Maybe Prelude.Int)+devicePool_maxDevices = Lens.lens (\DevicePool' {maxDevices} -> maxDevices) (\s@DevicePool' {} a -> s {maxDevices = a} :: DevicePool)++-- | The device pool\'s name.+devicePool_name :: Lens.Lens' DevicePool (Prelude.Maybe Prelude.Text)+devicePool_name = Lens.lens (\DevicePool' {name} -> name) (\s@DevicePool' {} a -> s {name = a} :: DevicePool)++-- | Information about the device pool\'s rules.+devicePool_rules :: Lens.Lens' DevicePool (Prelude.Maybe [Rule])+devicePool_rules = Lens.lens (\DevicePool' {rules} -> rules) (\s@DevicePool' {} a -> s {rules = a} :: DevicePool) Prelude.. Lens.mapping Lens.coerced++-- | 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.+devicePool_type :: Lens.Lens' DevicePool (Prelude.Maybe DevicePoolType)+devicePool_type = Lens.lens (\DevicePool' {type'} -> type') (\s@DevicePool' {} a -> s {type' = a} :: DevicePool)++instance Data.FromJSON DevicePool where+  parseJSON =+    Data.withObject+      "DevicePool"+      ( \x ->+          DevicePool'+            Prelude.<$> (x Data..:? "arn")+            Prelude.<*> (x Data..:? "description")+            Prelude.<*> (x Data..:? "maxDevices")+            Prelude.<*> (x Data..:? "name")+            Prelude.<*> (x Data..:? "rules" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "type")+      )++instance Prelude.Hashable DevicePool where+  hashWithSalt _salt DevicePool' {..} =+    _salt+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` maxDevices+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` rules+      `Prelude.hashWithSalt` type'++instance Prelude.NFData DevicePool where+  rnf DevicePool' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf maxDevices+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf rules+      `Prelude.seq` Prelude.rnf type'
+ gen/Amazonka/DeviceFarm/Types/DevicePoolCompatibilityResult.hs view
@@ -0,0 +1,105 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.DevicePoolCompatibilityResult where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.Device+import Amazonka.DeviceFarm.Types.IncompatibilityMessage+import qualified Amazonka.Prelude as Prelude++-- | Represents a device pool compatibility result.+--+-- /See:/ 'newDevicePoolCompatibilityResult' smart constructor.+data DevicePoolCompatibilityResult = DevicePoolCompatibilityResult'+  { -- | Whether the result was compatible with the device pool.+    compatible :: Prelude.Maybe Prelude.Bool,+    -- | The device (phone or tablet) to return information about.+    device :: Prelude.Maybe Device,+    -- | Information about the compatibility.+    incompatibilityMessages :: Prelude.Maybe [IncompatibilityMessage]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DevicePoolCompatibilityResult' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'compatible', 'devicePoolCompatibilityResult_compatible' - Whether the result was compatible with the device pool.+--+-- 'device', 'devicePoolCompatibilityResult_device' - The device (phone or tablet) to return information about.+--+-- 'incompatibilityMessages', 'devicePoolCompatibilityResult_incompatibilityMessages' - Information about the compatibility.+newDevicePoolCompatibilityResult ::+  DevicePoolCompatibilityResult+newDevicePoolCompatibilityResult =+  DevicePoolCompatibilityResult'+    { compatible =+        Prelude.Nothing,+      device = Prelude.Nothing,+      incompatibilityMessages = Prelude.Nothing+    }++-- | Whether the result was compatible with the device pool.+devicePoolCompatibilityResult_compatible :: Lens.Lens' DevicePoolCompatibilityResult (Prelude.Maybe Prelude.Bool)+devicePoolCompatibilityResult_compatible = Lens.lens (\DevicePoolCompatibilityResult' {compatible} -> compatible) (\s@DevicePoolCompatibilityResult' {} a -> s {compatible = a} :: DevicePoolCompatibilityResult)++-- | The device (phone or tablet) to return information about.+devicePoolCompatibilityResult_device :: Lens.Lens' DevicePoolCompatibilityResult (Prelude.Maybe Device)+devicePoolCompatibilityResult_device = Lens.lens (\DevicePoolCompatibilityResult' {device} -> device) (\s@DevicePoolCompatibilityResult' {} a -> s {device = a} :: DevicePoolCompatibilityResult)++-- | Information about the compatibility.+devicePoolCompatibilityResult_incompatibilityMessages :: Lens.Lens' DevicePoolCompatibilityResult (Prelude.Maybe [IncompatibilityMessage])+devicePoolCompatibilityResult_incompatibilityMessages = Lens.lens (\DevicePoolCompatibilityResult' {incompatibilityMessages} -> incompatibilityMessages) (\s@DevicePoolCompatibilityResult' {} a -> s {incompatibilityMessages = a} :: DevicePoolCompatibilityResult) Prelude.. Lens.mapping Lens.coerced++instance Data.FromJSON DevicePoolCompatibilityResult where+  parseJSON =+    Data.withObject+      "DevicePoolCompatibilityResult"+      ( \x ->+          DevicePoolCompatibilityResult'+            Prelude.<$> (x Data..:? "compatible")+            Prelude.<*> (x Data..:? "device")+            Prelude.<*> ( x+                            Data..:? "incompatibilityMessages"+                            Data..!= Prelude.mempty+                        )+      )++instance+  Prelude.Hashable+    DevicePoolCompatibilityResult+  where+  hashWithSalt _salt DevicePoolCompatibilityResult' {..} =+    _salt+      `Prelude.hashWithSalt` compatible+      `Prelude.hashWithSalt` device+      `Prelude.hashWithSalt` incompatibilityMessages++instance Prelude.NFData DevicePoolCompatibilityResult where+  rnf DevicePoolCompatibilityResult' {..} =+    Prelude.rnf compatible+      `Prelude.seq` Prelude.rnf device+      `Prelude.seq` Prelude.rnf incompatibilityMessages
+ gen/Amazonka/DeviceFarm/Types/DevicePoolType.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.DevicePoolType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.DevicePoolType+  ( DevicePoolType+      ( ..,+        DevicePoolType_CURATED,+        DevicePoolType_PRIVATE+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype DevicePoolType = DevicePoolType'+  { fromDevicePoolType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern DevicePoolType_CURATED :: DevicePoolType+pattern DevicePoolType_CURATED = DevicePoolType' "CURATED"++pattern DevicePoolType_PRIVATE :: DevicePoolType+pattern DevicePoolType_PRIVATE = DevicePoolType' "PRIVATE"++{-# COMPLETE+  DevicePoolType_CURATED,+  DevicePoolType_PRIVATE,+  DevicePoolType'+  #-}
+ gen/Amazonka/DeviceFarm/Types/DeviceSelectionConfiguration.hs view
@@ -0,0 +1,335 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.DeviceSelectionConfiguration where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.DeviceFilter+import qualified Amazonka.Prelude as Prelude++-- | Represents the device filters used in a test run and the maximum number+-- of devices to be included in the run. It is passed in as the+-- @deviceSelectionConfiguration@ request parameter in ScheduleRun.+--+-- /See:/ 'newDeviceSelectionConfiguration' smart constructor.+data DeviceSelectionConfiguration = DeviceSelectionConfiguration'+  { -- | Used to dynamically select a set of devices for a test run. A filter is+    -- made up of an attribute, an operator, and one or more values.+    --+    -- -   __Attribute__+    --+    --     The aspect of a device such as platform or model used as the+    --     selection criteria in a device filter.+    --+    --     Allowed values include:+    --+    --     -   ARN: The Amazon Resource Name (ARN) of the device (for example,+    --         @arn:aws:devicefarm:us-west-2::device:12345Example@).+    --+    --     -   PLATFORM: The device platform. Valid values are ANDROID or IOS.+    --+    --     -   OS_VERSION: The operating system version (for example, 10.3.2).+    --+    --     -   MODEL: The device model (for example, iPad 5th Gen).+    --+    --     -   AVAILABILITY: The current availability of the device. Valid+    --         values are AVAILABLE, HIGHLY_AVAILABLE, BUSY, or+    --         TEMPORARY_NOT_AVAILABLE.+    --+    --     -   FORM_FACTOR: The device form factor. Valid values are PHONE or+    --         TABLET.+    --+    --     -   MANUFACTURER: The device manufacturer (for example, Apple).+    --+    --     -   REMOTE_ACCESS_ENABLED: Whether the device is enabled for remote+    --         access. Valid values are TRUE or FALSE.+    --+    --     -   REMOTE_DEBUG_ENABLED: Whether the device is enabled for remote+    --         debugging. Valid values are TRUE or FALSE. Because remote+    --         debugging is+    --         <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>,+    --         this filter is ignored.+    --+    --     -   INSTANCE_ARN: The Amazon Resource Name (ARN) of the device+    --         instance.+    --+    --     -   INSTANCE_LABELS: The label of the device instance.+    --+    --     -   FLEET_TYPE: The fleet type. Valid values are PUBLIC or PRIVATE.+    --+    -- -   __Operator__+    --+    --     The filter operator.+    --+    --     -   The EQUALS operator is available for every attribute except+    --         INSTANCE_LABELS.+    --+    --     -   The CONTAINS operator is available for the INSTANCE_LABELS and+    --         MODEL attributes.+    --+    --     -   The IN and NOT_IN operators are available for the ARN,+    --         OS_VERSION, MODEL, MANUFACTURER, and INSTANCE_ARN attributes.+    --+    --     -   The LESS_THAN, GREATER_THAN, LESS_THAN_OR_EQUALS, and+    --         GREATER_THAN_OR_EQUALS operators are also available for the+    --         OS_VERSION attribute.+    --+    -- -   __Values__+    --+    --     An array of one or more filter values.+    --+    --     __Operator Values__+    --+    --     -   The IN and NOT_IN operators can take a values array that has+    --         more than one element.+    --+    --     -   The other operators require an array with a single element.+    --+    --     __Attribute Values__+    --+    --     -   The PLATFORM attribute can be set to ANDROID or IOS.+    --+    --     -   The AVAILABILITY attribute can be set to AVAILABLE,+    --         HIGHLY_AVAILABLE, BUSY, or TEMPORARY_NOT_AVAILABLE.+    --+    --     -   The FORM_FACTOR attribute can be set to PHONE or TABLET.+    --+    --     -   The FLEET_TYPE attribute can be set to PUBLIC or PRIVATE.+    filters :: [DeviceFilter],+    -- | The maximum number of devices to be included in a test run.+    maxDevices :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeviceSelectionConfiguration' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'filters', 'deviceSelectionConfiguration_filters' - Used to dynamically select a set of devices for a test run. A filter is+-- made up of an attribute, an operator, and one or more values.+--+-- -   __Attribute__+--+--     The aspect of a device such as platform or model used as the+--     selection criteria in a device filter.+--+--     Allowed values include:+--+--     -   ARN: The Amazon Resource Name (ARN) of the device (for example,+--         @arn:aws:devicefarm:us-west-2::device:12345Example@).+--+--     -   PLATFORM: The device platform. Valid values are ANDROID or IOS.+--+--     -   OS_VERSION: The operating system version (for example, 10.3.2).+--+--     -   MODEL: The device model (for example, iPad 5th Gen).+--+--     -   AVAILABILITY: The current availability of the device. Valid+--         values are AVAILABLE, HIGHLY_AVAILABLE, BUSY, or+--         TEMPORARY_NOT_AVAILABLE.+--+--     -   FORM_FACTOR: The device form factor. Valid values are PHONE or+--         TABLET.+--+--     -   MANUFACTURER: The device manufacturer (for example, Apple).+--+--     -   REMOTE_ACCESS_ENABLED: Whether the device is enabled for remote+--         access. Valid values are TRUE or FALSE.+--+--     -   REMOTE_DEBUG_ENABLED: Whether the device is enabled for remote+--         debugging. Valid values are TRUE or FALSE. Because remote+--         debugging is+--         <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>,+--         this filter is ignored.+--+--     -   INSTANCE_ARN: The Amazon Resource Name (ARN) of the device+--         instance.+--+--     -   INSTANCE_LABELS: The label of the device instance.+--+--     -   FLEET_TYPE: The fleet type. Valid values are PUBLIC or PRIVATE.+--+-- -   __Operator__+--+--     The filter operator.+--+--     -   The EQUALS operator is available for every attribute except+--         INSTANCE_LABELS.+--+--     -   The CONTAINS operator is available for the INSTANCE_LABELS and+--         MODEL attributes.+--+--     -   The IN and NOT_IN operators are available for the ARN,+--         OS_VERSION, MODEL, MANUFACTURER, and INSTANCE_ARN attributes.+--+--     -   The LESS_THAN, GREATER_THAN, LESS_THAN_OR_EQUALS, and+--         GREATER_THAN_OR_EQUALS operators are also available for the+--         OS_VERSION attribute.+--+-- -   __Values__+--+--     An array of one or more filter values.+--+--     __Operator Values__+--+--     -   The IN and NOT_IN operators can take a values array that has+--         more than one element.+--+--     -   The other operators require an array with a single element.+--+--     __Attribute Values__+--+--     -   The PLATFORM attribute can be set to ANDROID or IOS.+--+--     -   The AVAILABILITY attribute can be set to AVAILABLE,+--         HIGHLY_AVAILABLE, BUSY, or TEMPORARY_NOT_AVAILABLE.+--+--     -   The FORM_FACTOR attribute can be set to PHONE or TABLET.+--+--     -   The FLEET_TYPE attribute can be set to PUBLIC or PRIVATE.+--+-- 'maxDevices', 'deviceSelectionConfiguration_maxDevices' - The maximum number of devices to be included in a test run.+newDeviceSelectionConfiguration ::+  -- | 'maxDevices'+  Prelude.Int ->+  DeviceSelectionConfiguration+newDeviceSelectionConfiguration pMaxDevices_ =+  DeviceSelectionConfiguration'+    { filters =+        Prelude.mempty,+      maxDevices = pMaxDevices_+    }++-- | Used to dynamically select a set of devices for a test run. A filter is+-- made up of an attribute, an operator, and one or more values.+--+-- -   __Attribute__+--+--     The aspect of a device such as platform or model used as the+--     selection criteria in a device filter.+--+--     Allowed values include:+--+--     -   ARN: The Amazon Resource Name (ARN) of the device (for example,+--         @arn:aws:devicefarm:us-west-2::device:12345Example@).+--+--     -   PLATFORM: The device platform. Valid values are ANDROID or IOS.+--+--     -   OS_VERSION: The operating system version (for example, 10.3.2).+--+--     -   MODEL: The device model (for example, iPad 5th Gen).+--+--     -   AVAILABILITY: The current availability of the device. Valid+--         values are AVAILABLE, HIGHLY_AVAILABLE, BUSY, or+--         TEMPORARY_NOT_AVAILABLE.+--+--     -   FORM_FACTOR: The device form factor. Valid values are PHONE or+--         TABLET.+--+--     -   MANUFACTURER: The device manufacturer (for example, Apple).+--+--     -   REMOTE_ACCESS_ENABLED: Whether the device is enabled for remote+--         access. Valid values are TRUE or FALSE.+--+--     -   REMOTE_DEBUG_ENABLED: Whether the device is enabled for remote+--         debugging. Valid values are TRUE or FALSE. Because remote+--         debugging is+--         <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>,+--         this filter is ignored.+--+--     -   INSTANCE_ARN: The Amazon Resource Name (ARN) of the device+--         instance.+--+--     -   INSTANCE_LABELS: The label of the device instance.+--+--     -   FLEET_TYPE: The fleet type. Valid values are PUBLIC or PRIVATE.+--+-- -   __Operator__+--+--     The filter operator.+--+--     -   The EQUALS operator is available for every attribute except+--         INSTANCE_LABELS.+--+--     -   The CONTAINS operator is available for the INSTANCE_LABELS and+--         MODEL attributes.+--+--     -   The IN and NOT_IN operators are available for the ARN,+--         OS_VERSION, MODEL, MANUFACTURER, and INSTANCE_ARN attributes.+--+--     -   The LESS_THAN, GREATER_THAN, LESS_THAN_OR_EQUALS, and+--         GREATER_THAN_OR_EQUALS operators are also available for the+--         OS_VERSION attribute.+--+-- -   __Values__+--+--     An array of one or more filter values.+--+--     __Operator Values__+--+--     -   The IN and NOT_IN operators can take a values array that has+--         more than one element.+--+--     -   The other operators require an array with a single element.+--+--     __Attribute Values__+--+--     -   The PLATFORM attribute can be set to ANDROID or IOS.+--+--     -   The AVAILABILITY attribute can be set to AVAILABLE,+--         HIGHLY_AVAILABLE, BUSY, or TEMPORARY_NOT_AVAILABLE.+--+--     -   The FORM_FACTOR attribute can be set to PHONE or TABLET.+--+--     -   The FLEET_TYPE attribute can be set to PUBLIC or PRIVATE.+deviceSelectionConfiguration_filters :: Lens.Lens' DeviceSelectionConfiguration [DeviceFilter]+deviceSelectionConfiguration_filters = Lens.lens (\DeviceSelectionConfiguration' {filters} -> filters) (\s@DeviceSelectionConfiguration' {} a -> s {filters = a} :: DeviceSelectionConfiguration) Prelude.. Lens.coerced++-- | The maximum number of devices to be included in a test run.+deviceSelectionConfiguration_maxDevices :: Lens.Lens' DeviceSelectionConfiguration Prelude.Int+deviceSelectionConfiguration_maxDevices = Lens.lens (\DeviceSelectionConfiguration' {maxDevices} -> maxDevices) (\s@DeviceSelectionConfiguration' {} a -> s {maxDevices = a} :: DeviceSelectionConfiguration)++instance+  Prelude.Hashable+    DeviceSelectionConfiguration+  where+  hashWithSalt _salt DeviceSelectionConfiguration' {..} =+    _salt+      `Prelude.hashWithSalt` filters+      `Prelude.hashWithSalt` maxDevices++instance Prelude.NFData DeviceSelectionConfiguration where+  rnf DeviceSelectionConfiguration' {..} =+    Prelude.rnf filters+      `Prelude.seq` Prelude.rnf maxDevices++instance Data.ToJSON DeviceSelectionConfiguration where+  toJSON DeviceSelectionConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("filters" Data..= filters),+            Prelude.Just ("maxDevices" Data..= maxDevices)+          ]+      )
+ gen/Amazonka/DeviceFarm/Types/DeviceSelectionResult.hs view
@@ -0,0 +1,102 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.DeviceSelectionResult+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.DeviceSelectionResult where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.DeviceFilter+import qualified Amazonka.Prelude as Prelude++-- | Contains the run results requested by the device selection configuration+-- and how many devices were returned. For an example of the JSON response+-- syntax, see ScheduleRun.+--+-- /See:/ 'newDeviceSelectionResult' smart constructor.+data DeviceSelectionResult = DeviceSelectionResult'+  { -- | The filters in a device selection result.+    filters :: Prelude.Maybe [DeviceFilter],+    -- | The number of devices that matched the device filter selection criteria.+    matchedDevicesCount :: Prelude.Maybe Prelude.Int,+    -- | The maximum number of devices to be selected by a device filter and+    -- included in a test run.+    maxDevices :: Prelude.Maybe Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeviceSelectionResult' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'filters', 'deviceSelectionResult_filters' - The filters in a device selection result.+--+-- 'matchedDevicesCount', 'deviceSelectionResult_matchedDevicesCount' - The number of devices that matched the device filter selection criteria.+--+-- 'maxDevices', 'deviceSelectionResult_maxDevices' - The maximum number of devices to be selected by a device filter and+-- included in a test run.+newDeviceSelectionResult ::+  DeviceSelectionResult+newDeviceSelectionResult =+  DeviceSelectionResult'+    { filters = Prelude.Nothing,+      matchedDevicesCount = Prelude.Nothing,+      maxDevices = Prelude.Nothing+    }++-- | The filters in a device selection result.+deviceSelectionResult_filters :: Lens.Lens' DeviceSelectionResult (Prelude.Maybe [DeviceFilter])+deviceSelectionResult_filters = Lens.lens (\DeviceSelectionResult' {filters} -> filters) (\s@DeviceSelectionResult' {} a -> s {filters = a} :: DeviceSelectionResult) Prelude.. Lens.mapping Lens.coerced++-- | The number of devices that matched the device filter selection criteria.+deviceSelectionResult_matchedDevicesCount :: Lens.Lens' DeviceSelectionResult (Prelude.Maybe Prelude.Int)+deviceSelectionResult_matchedDevicesCount = Lens.lens (\DeviceSelectionResult' {matchedDevicesCount} -> matchedDevicesCount) (\s@DeviceSelectionResult' {} a -> s {matchedDevicesCount = a} :: DeviceSelectionResult)++-- | The maximum number of devices to be selected by a device filter and+-- included in a test run.+deviceSelectionResult_maxDevices :: Lens.Lens' DeviceSelectionResult (Prelude.Maybe Prelude.Int)+deviceSelectionResult_maxDevices = Lens.lens (\DeviceSelectionResult' {maxDevices} -> maxDevices) (\s@DeviceSelectionResult' {} a -> s {maxDevices = a} :: DeviceSelectionResult)++instance Data.FromJSON DeviceSelectionResult where+  parseJSON =+    Data.withObject+      "DeviceSelectionResult"+      ( \x ->+          DeviceSelectionResult'+            Prelude.<$> (x Data..:? "filters" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "matchedDevicesCount")+            Prelude.<*> (x Data..:? "maxDevices")+      )++instance Prelude.Hashable DeviceSelectionResult where+  hashWithSalt _salt DeviceSelectionResult' {..} =+    _salt+      `Prelude.hashWithSalt` filters+      `Prelude.hashWithSalt` matchedDevicesCount+      `Prelude.hashWithSalt` maxDevices++instance Prelude.NFData DeviceSelectionResult where+  rnf DeviceSelectionResult' {..} =+    Prelude.rnf filters+      `Prelude.seq` Prelude.rnf matchedDevicesCount+      `Prelude.seq` Prelude.rnf maxDevices
+ gen/Amazonka/DeviceFarm/Types/ExecutionConfiguration.hs view
@@ -0,0 +1,148 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.ExecutionConfiguration+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.ExecutionConfiguration where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Represents configuration information about a test run, such as the+-- execution timeout (in minutes).+--+-- /See:/ 'newExecutionConfiguration' smart constructor.+data ExecutionConfiguration = ExecutionConfiguration'+  { -- | True if account cleanup is enabled at the beginning of the test.+    -- Otherwise, false.+    accountsCleanup :: Prelude.Maybe Prelude.Bool,+    -- | True if app package cleanup is enabled at the beginning of the test.+    -- Otherwise, false.+    appPackagesCleanup :: Prelude.Maybe Prelude.Bool,+    -- | The number of minutes a test run executes before it times out.+    jobTimeoutMinutes :: Prelude.Maybe Prelude.Int,+    -- | When set to @true@, for private devices, Device Farm does not sign your+    -- app again. For public devices, Device Farm always signs your apps again.+    --+    -- For more information about how Device Farm re-signs your apps, see+    -- <http://aws.amazon.com/device-farm/faqs/ Do you modify my app?> in the+    -- /AWS Device Farm FAQs/.+    skipAppResign :: Prelude.Maybe Prelude.Bool,+    -- | Set to true to enable video capture. Otherwise, set to false. The+    -- default is true.+    videoCapture :: Prelude.Maybe Prelude.Bool+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ExecutionConfiguration' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'accountsCleanup', 'executionConfiguration_accountsCleanup' - True if account cleanup is enabled at the beginning of the test.+-- Otherwise, false.+--+-- 'appPackagesCleanup', 'executionConfiguration_appPackagesCleanup' - True if app package cleanup is enabled at the beginning of the test.+-- Otherwise, false.+--+-- 'jobTimeoutMinutes', 'executionConfiguration_jobTimeoutMinutes' - The number of minutes a test run executes before it times out.+--+-- 'skipAppResign', 'executionConfiguration_skipAppResign' - When set to @true@, for private devices, Device Farm does not sign your+-- app again. For public devices, Device Farm always signs your apps again.+--+-- For more information about how Device Farm re-signs your apps, see+-- <http://aws.amazon.com/device-farm/faqs/ Do you modify my app?> in the+-- /AWS Device Farm FAQs/.+--+-- 'videoCapture', 'executionConfiguration_videoCapture' - Set to true to enable video capture. Otherwise, set to false. The+-- default is true.+newExecutionConfiguration ::+  ExecutionConfiguration+newExecutionConfiguration =+  ExecutionConfiguration'+    { accountsCleanup =+        Prelude.Nothing,+      appPackagesCleanup = Prelude.Nothing,+      jobTimeoutMinutes = Prelude.Nothing,+      skipAppResign = Prelude.Nothing,+      videoCapture = Prelude.Nothing+    }++-- | True if account cleanup is enabled at the beginning of the test.+-- Otherwise, false.+executionConfiguration_accountsCleanup :: Lens.Lens' ExecutionConfiguration (Prelude.Maybe Prelude.Bool)+executionConfiguration_accountsCleanup = Lens.lens (\ExecutionConfiguration' {accountsCleanup} -> accountsCleanup) (\s@ExecutionConfiguration' {} a -> s {accountsCleanup = a} :: ExecutionConfiguration)++-- | True if app package cleanup is enabled at the beginning of the test.+-- Otherwise, false.+executionConfiguration_appPackagesCleanup :: Lens.Lens' ExecutionConfiguration (Prelude.Maybe Prelude.Bool)+executionConfiguration_appPackagesCleanup = Lens.lens (\ExecutionConfiguration' {appPackagesCleanup} -> appPackagesCleanup) (\s@ExecutionConfiguration' {} a -> s {appPackagesCleanup = a} :: ExecutionConfiguration)++-- | The number of minutes a test run executes before it times out.+executionConfiguration_jobTimeoutMinutes :: Lens.Lens' ExecutionConfiguration (Prelude.Maybe Prelude.Int)+executionConfiguration_jobTimeoutMinutes = Lens.lens (\ExecutionConfiguration' {jobTimeoutMinutes} -> jobTimeoutMinutes) (\s@ExecutionConfiguration' {} a -> s {jobTimeoutMinutes = a} :: ExecutionConfiguration)++-- | When set to @true@, for private devices, Device Farm does not sign your+-- app again. For public devices, Device Farm always signs your apps again.+--+-- For more information about how Device Farm re-signs your apps, see+-- <http://aws.amazon.com/device-farm/faqs/ Do you modify my app?> in the+-- /AWS Device Farm FAQs/.+executionConfiguration_skipAppResign :: Lens.Lens' ExecutionConfiguration (Prelude.Maybe Prelude.Bool)+executionConfiguration_skipAppResign = Lens.lens (\ExecutionConfiguration' {skipAppResign} -> skipAppResign) (\s@ExecutionConfiguration' {} a -> s {skipAppResign = a} :: ExecutionConfiguration)++-- | Set to true to enable video capture. Otherwise, set to false. The+-- default is true.+executionConfiguration_videoCapture :: Lens.Lens' ExecutionConfiguration (Prelude.Maybe Prelude.Bool)+executionConfiguration_videoCapture = Lens.lens (\ExecutionConfiguration' {videoCapture} -> videoCapture) (\s@ExecutionConfiguration' {} a -> s {videoCapture = a} :: ExecutionConfiguration)++instance Prelude.Hashable ExecutionConfiguration where+  hashWithSalt _salt ExecutionConfiguration' {..} =+    _salt+      `Prelude.hashWithSalt` accountsCleanup+      `Prelude.hashWithSalt` appPackagesCleanup+      `Prelude.hashWithSalt` jobTimeoutMinutes+      `Prelude.hashWithSalt` skipAppResign+      `Prelude.hashWithSalt` videoCapture++instance Prelude.NFData ExecutionConfiguration where+  rnf ExecutionConfiguration' {..} =+    Prelude.rnf accountsCleanup+      `Prelude.seq` Prelude.rnf appPackagesCleanup+      `Prelude.seq` Prelude.rnf jobTimeoutMinutes+      `Prelude.seq` Prelude.rnf skipAppResign+      `Prelude.seq` Prelude.rnf videoCapture++instance Data.ToJSON ExecutionConfiguration where+  toJSON ExecutionConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("accountsCleanup" Data..=)+              Prelude.<$> accountsCleanup,+            ("appPackagesCleanup" Data..=)+              Prelude.<$> appPackagesCleanup,+            ("jobTimeoutMinutes" Data..=)+              Prelude.<$> jobTimeoutMinutes,+            ("skipAppResign" Data..=) Prelude.<$> skipAppResign,+            ("videoCapture" Data..=) Prelude.<$> videoCapture+          ]+      )
+ gen/Amazonka/DeviceFarm/Types/ExecutionResult.hs view
@@ -0,0 +1,96 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.ExecutionResult+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.ExecutionResult+  ( ExecutionResult+      ( ..,+        ExecutionResult_ERRORED,+        ExecutionResult_FAILED,+        ExecutionResult_PASSED,+        ExecutionResult_PENDING,+        ExecutionResult_SKIPPED,+        ExecutionResult_STOPPED,+        ExecutionResult_WARNED+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ExecutionResult = ExecutionResult'+  { fromExecutionResult ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ExecutionResult_ERRORED :: ExecutionResult+pattern ExecutionResult_ERRORED = ExecutionResult' "ERRORED"++pattern ExecutionResult_FAILED :: ExecutionResult+pattern ExecutionResult_FAILED = ExecutionResult' "FAILED"++pattern ExecutionResult_PASSED :: ExecutionResult+pattern ExecutionResult_PASSED = ExecutionResult' "PASSED"++pattern ExecutionResult_PENDING :: ExecutionResult+pattern ExecutionResult_PENDING = ExecutionResult' "PENDING"++pattern ExecutionResult_SKIPPED :: ExecutionResult+pattern ExecutionResult_SKIPPED = ExecutionResult' "SKIPPED"++pattern ExecutionResult_STOPPED :: ExecutionResult+pattern ExecutionResult_STOPPED = ExecutionResult' "STOPPED"++pattern ExecutionResult_WARNED :: ExecutionResult+pattern ExecutionResult_WARNED = ExecutionResult' "WARNED"++{-# COMPLETE+  ExecutionResult_ERRORED,+  ExecutionResult_FAILED,+  ExecutionResult_PASSED,+  ExecutionResult_PENDING,+  ExecutionResult_SKIPPED,+  ExecutionResult_STOPPED,+  ExecutionResult_WARNED,+  ExecutionResult'+  #-}
+ gen/Amazonka/DeviceFarm/Types/ExecutionResultCode.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.ExecutionResultCode+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.ExecutionResultCode+  ( ExecutionResultCode+      ( ..,+        ExecutionResultCode_PARSING_FAILED,+        ExecutionResultCode_VPC_ENDPOINT_SETUP_FAILED+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ExecutionResultCode = ExecutionResultCode'+  { fromExecutionResultCode ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ExecutionResultCode_PARSING_FAILED :: ExecutionResultCode+pattern ExecutionResultCode_PARSING_FAILED = ExecutionResultCode' "PARSING_FAILED"++pattern ExecutionResultCode_VPC_ENDPOINT_SETUP_FAILED :: ExecutionResultCode+pattern ExecutionResultCode_VPC_ENDPOINT_SETUP_FAILED = ExecutionResultCode' "VPC_ENDPOINT_SETUP_FAILED"++{-# COMPLETE+  ExecutionResultCode_PARSING_FAILED,+  ExecutionResultCode_VPC_ENDPOINT_SETUP_FAILED,+  ExecutionResultCode'+  #-}
+ gen/Amazonka/DeviceFarm/Types/ExecutionStatus.hs view
@@ -0,0 +1,106 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.ExecutionStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.ExecutionStatus+  ( ExecutionStatus+      ( ..,+        ExecutionStatus_COMPLETED,+        ExecutionStatus_PENDING,+        ExecutionStatus_PENDING_CONCURRENCY,+        ExecutionStatus_PENDING_DEVICE,+        ExecutionStatus_PREPARING,+        ExecutionStatus_PROCESSING,+        ExecutionStatus_RUNNING,+        ExecutionStatus_SCHEDULING,+        ExecutionStatus_STOPPING+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ExecutionStatus = ExecutionStatus'+  { fromExecutionStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ExecutionStatus_COMPLETED :: ExecutionStatus+pattern ExecutionStatus_COMPLETED = ExecutionStatus' "COMPLETED"++pattern ExecutionStatus_PENDING :: ExecutionStatus+pattern ExecutionStatus_PENDING = ExecutionStatus' "PENDING"++pattern ExecutionStatus_PENDING_CONCURRENCY :: ExecutionStatus+pattern ExecutionStatus_PENDING_CONCURRENCY = ExecutionStatus' "PENDING_CONCURRENCY"++pattern ExecutionStatus_PENDING_DEVICE :: ExecutionStatus+pattern ExecutionStatus_PENDING_DEVICE = ExecutionStatus' "PENDING_DEVICE"++pattern ExecutionStatus_PREPARING :: ExecutionStatus+pattern ExecutionStatus_PREPARING = ExecutionStatus' "PREPARING"++pattern ExecutionStatus_PROCESSING :: ExecutionStatus+pattern ExecutionStatus_PROCESSING = ExecutionStatus' "PROCESSING"++pattern ExecutionStatus_RUNNING :: ExecutionStatus+pattern ExecutionStatus_RUNNING = ExecutionStatus' "RUNNING"++pattern ExecutionStatus_SCHEDULING :: ExecutionStatus+pattern ExecutionStatus_SCHEDULING = ExecutionStatus' "SCHEDULING"++pattern ExecutionStatus_STOPPING :: ExecutionStatus+pattern ExecutionStatus_STOPPING = ExecutionStatus' "STOPPING"++{-# COMPLETE+  ExecutionStatus_COMPLETED,+  ExecutionStatus_PENDING,+  ExecutionStatus_PENDING_CONCURRENCY,+  ExecutionStatus_PENDING_DEVICE,+  ExecutionStatus_PREPARING,+  ExecutionStatus_PROCESSING,+  ExecutionStatus_RUNNING,+  ExecutionStatus_SCHEDULING,+  ExecutionStatus_STOPPING,+  ExecutionStatus'+  #-}
+ gen/Amazonka/DeviceFarm/Types/IncompatibilityMessage.hs view
@@ -0,0 +1,126 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.IncompatibilityMessage+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.IncompatibilityMessage where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.DeviceAttribute+import qualified Amazonka.Prelude as Prelude++-- | Represents information about incompatibility.+--+-- /See:/ 'newIncompatibilityMessage' smart constructor.+data IncompatibilityMessage = IncompatibilityMessage'+  { -- | A message about the incompatibility.+    message :: Prelude.Maybe Prelude.Text,+    -- | The type of incompatibility.+    --+    -- Allowed values include:+    --+    -- -   ARN+    --+    -- -   FORM_FACTOR (for example, phone or tablet)+    --+    -- -   MANUFACTURER+    --+    -- -   PLATFORM (for example, Android or iOS)+    --+    -- -   REMOTE_ACCESS_ENABLED+    --+    -- -   APPIUM_VERSION+    type' :: Prelude.Maybe DeviceAttribute+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'IncompatibilityMessage' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'message', 'incompatibilityMessage_message' - A message about the incompatibility.+--+-- 'type'', 'incompatibilityMessage_type' - The type of incompatibility.+--+-- Allowed values include:+--+-- -   ARN+--+-- -   FORM_FACTOR (for example, phone or tablet)+--+-- -   MANUFACTURER+--+-- -   PLATFORM (for example, Android or iOS)+--+-- -   REMOTE_ACCESS_ENABLED+--+-- -   APPIUM_VERSION+newIncompatibilityMessage ::+  IncompatibilityMessage+newIncompatibilityMessage =+  IncompatibilityMessage'+    { message = Prelude.Nothing,+      type' = Prelude.Nothing+    }++-- | A message about the incompatibility.+incompatibilityMessage_message :: Lens.Lens' IncompatibilityMessage (Prelude.Maybe Prelude.Text)+incompatibilityMessage_message = Lens.lens (\IncompatibilityMessage' {message} -> message) (\s@IncompatibilityMessage' {} a -> s {message = a} :: IncompatibilityMessage)++-- | The type of incompatibility.+--+-- Allowed values include:+--+-- -   ARN+--+-- -   FORM_FACTOR (for example, phone or tablet)+--+-- -   MANUFACTURER+--+-- -   PLATFORM (for example, Android or iOS)+--+-- -   REMOTE_ACCESS_ENABLED+--+-- -   APPIUM_VERSION+incompatibilityMessage_type :: Lens.Lens' IncompatibilityMessage (Prelude.Maybe DeviceAttribute)+incompatibilityMessage_type = Lens.lens (\IncompatibilityMessage' {type'} -> type') (\s@IncompatibilityMessage' {} a -> s {type' = a} :: IncompatibilityMessage)++instance Data.FromJSON IncompatibilityMessage where+  parseJSON =+    Data.withObject+      "IncompatibilityMessage"+      ( \x ->+          IncompatibilityMessage'+            Prelude.<$> (x Data..:? "message")+            Prelude.<*> (x Data..:? "type")+      )++instance Prelude.Hashable IncompatibilityMessage where+  hashWithSalt _salt IncompatibilityMessage' {..} =+    _salt+      `Prelude.hashWithSalt` message+      `Prelude.hashWithSalt` type'++instance Prelude.NFData IncompatibilityMessage where+  rnf IncompatibilityMessage' {..} =+    Prelude.rnf message `Prelude.seq` Prelude.rnf type'
+ gen/Amazonka/DeviceFarm/Types/InstanceProfile.hs view
@@ -0,0 +1,153 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.InstanceProfile+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.InstanceProfile where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Represents the instance profile.+--+-- /See:/ 'newInstanceProfile' smart constructor.+data InstanceProfile = InstanceProfile'+  { -- | The Amazon Resource Name (ARN) of the instance profile.+    arn :: Prelude.Maybe Prelude.Text,+    -- | The description of the instance profile.+    description :: Prelude.Maybe Prelude.Text,+    -- | An array of strings containing the list of app packages that should not+    -- be cleaned up from the device after a test run completes.+    --+    -- The list of packages is considered only if you set @packageCleanup@ to+    -- @true@.+    excludeAppPackagesFromCleanup :: Prelude.Maybe [Prelude.Text],+    -- | The name of the instance profile.+    name :: Prelude.Maybe Prelude.Text,+    -- | When set to @true@, Device Farm removes app packages after a test run.+    -- The default value is @false@ for private devices.+    packageCleanup :: Prelude.Maybe Prelude.Bool,+    -- | When set to @true@, Device Farm reboots the instance after a test run.+    -- The default value is @true@.+    rebootAfterUse :: Prelude.Maybe Prelude.Bool+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'InstanceProfile' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'instanceProfile_arn' - The Amazon Resource Name (ARN) of the instance profile.+--+-- 'description', 'instanceProfile_description' - The description of the instance profile.+--+-- 'excludeAppPackagesFromCleanup', 'instanceProfile_excludeAppPackagesFromCleanup' - An array of strings containing the list of app packages that should not+-- be cleaned up from the device after a test run completes.+--+-- The list of packages is considered only if you set @packageCleanup@ to+-- @true@.+--+-- 'name', 'instanceProfile_name' - The name of the instance profile.+--+-- 'packageCleanup', 'instanceProfile_packageCleanup' - When set to @true@, Device Farm removes app packages after a test run.+-- The default value is @false@ for private devices.+--+-- 'rebootAfterUse', 'instanceProfile_rebootAfterUse' - When set to @true@, Device Farm reboots the instance after a test run.+-- The default value is @true@.+newInstanceProfile ::+  InstanceProfile+newInstanceProfile =+  InstanceProfile'+    { arn = Prelude.Nothing,+      description = Prelude.Nothing,+      excludeAppPackagesFromCleanup = Prelude.Nothing,+      name = Prelude.Nothing,+      packageCleanup = Prelude.Nothing,+      rebootAfterUse = Prelude.Nothing+    }++-- | The Amazon Resource Name (ARN) of the instance profile.+instanceProfile_arn :: Lens.Lens' InstanceProfile (Prelude.Maybe Prelude.Text)+instanceProfile_arn = Lens.lens (\InstanceProfile' {arn} -> arn) (\s@InstanceProfile' {} a -> s {arn = a} :: InstanceProfile)++-- | The description of the instance profile.+instanceProfile_description :: Lens.Lens' InstanceProfile (Prelude.Maybe Prelude.Text)+instanceProfile_description = Lens.lens (\InstanceProfile' {description} -> description) (\s@InstanceProfile' {} a -> s {description = a} :: InstanceProfile)++-- | An array of strings containing the list of app packages that should not+-- be cleaned up from the device after a test run completes.+--+-- The list of packages is considered only if you set @packageCleanup@ to+-- @true@.+instanceProfile_excludeAppPackagesFromCleanup :: Lens.Lens' InstanceProfile (Prelude.Maybe [Prelude.Text])+instanceProfile_excludeAppPackagesFromCleanup = Lens.lens (\InstanceProfile' {excludeAppPackagesFromCleanup} -> excludeAppPackagesFromCleanup) (\s@InstanceProfile' {} a -> s {excludeAppPackagesFromCleanup = a} :: InstanceProfile) Prelude.. Lens.mapping Lens.coerced++-- | The name of the instance profile.+instanceProfile_name :: Lens.Lens' InstanceProfile (Prelude.Maybe Prelude.Text)+instanceProfile_name = Lens.lens (\InstanceProfile' {name} -> name) (\s@InstanceProfile' {} a -> s {name = a} :: InstanceProfile)++-- | When set to @true@, Device Farm removes app packages after a test run.+-- The default value is @false@ for private devices.+instanceProfile_packageCleanup :: Lens.Lens' InstanceProfile (Prelude.Maybe Prelude.Bool)+instanceProfile_packageCleanup = Lens.lens (\InstanceProfile' {packageCleanup} -> packageCleanup) (\s@InstanceProfile' {} a -> s {packageCleanup = a} :: InstanceProfile)++-- | When set to @true@, Device Farm reboots the instance after a test run.+-- The default value is @true@.+instanceProfile_rebootAfterUse :: Lens.Lens' InstanceProfile (Prelude.Maybe Prelude.Bool)+instanceProfile_rebootAfterUse = Lens.lens (\InstanceProfile' {rebootAfterUse} -> rebootAfterUse) (\s@InstanceProfile' {} a -> s {rebootAfterUse = a} :: InstanceProfile)++instance Data.FromJSON InstanceProfile where+  parseJSON =+    Data.withObject+      "InstanceProfile"+      ( \x ->+          InstanceProfile'+            Prelude.<$> (x Data..:? "arn")+            Prelude.<*> (x Data..:? "description")+            Prelude.<*> ( x+                            Data..:? "excludeAppPackagesFromCleanup"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> (x Data..:? "name")+            Prelude.<*> (x Data..:? "packageCleanup")+            Prelude.<*> (x Data..:? "rebootAfterUse")+      )++instance Prelude.Hashable InstanceProfile where+  hashWithSalt _salt InstanceProfile' {..} =+    _salt+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` excludeAppPackagesFromCleanup+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` packageCleanup+      `Prelude.hashWithSalt` rebootAfterUse++instance Prelude.NFData InstanceProfile where+  rnf InstanceProfile' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf excludeAppPackagesFromCleanup+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf packageCleanup+      `Prelude.seq` Prelude.rnf rebootAfterUse
+ gen/Amazonka/DeviceFarm/Types/InstanceStatus.hs view
@@ -0,0 +1,81 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.InstanceStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.InstanceStatus+  ( InstanceStatus+      ( ..,+        InstanceStatus_AVAILABLE,+        InstanceStatus_IN_USE,+        InstanceStatus_NOT_AVAILABLE,+        InstanceStatus_PREPARING+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype InstanceStatus = InstanceStatus'+  { fromInstanceStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern InstanceStatus_AVAILABLE :: InstanceStatus+pattern InstanceStatus_AVAILABLE = InstanceStatus' "AVAILABLE"++pattern InstanceStatus_IN_USE :: InstanceStatus+pattern InstanceStatus_IN_USE = InstanceStatus' "IN_USE"++pattern InstanceStatus_NOT_AVAILABLE :: InstanceStatus+pattern InstanceStatus_NOT_AVAILABLE = InstanceStatus' "NOT_AVAILABLE"++pattern InstanceStatus_PREPARING :: InstanceStatus+pattern InstanceStatus_PREPARING = InstanceStatus' "PREPARING"++{-# COMPLETE+  InstanceStatus_AVAILABLE,+  InstanceStatus_IN_USE,+  InstanceStatus_NOT_AVAILABLE,+  InstanceStatus_PREPARING,+  InstanceStatus'+  #-}
+ gen/Amazonka/DeviceFarm/Types/InteractionMode.hs view
@@ -0,0 +1,76 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.InteractionMode+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.InteractionMode+  ( InteractionMode+      ( ..,+        InteractionMode_INTERACTIVE,+        InteractionMode_NO_VIDEO,+        InteractionMode_VIDEO_ONLY+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype InteractionMode = InteractionMode'+  { fromInteractionMode ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern InteractionMode_INTERACTIVE :: InteractionMode+pattern InteractionMode_INTERACTIVE = InteractionMode' "INTERACTIVE"++pattern InteractionMode_NO_VIDEO :: InteractionMode+pattern InteractionMode_NO_VIDEO = InteractionMode' "NO_VIDEO"++pattern InteractionMode_VIDEO_ONLY :: InteractionMode+pattern InteractionMode_VIDEO_ONLY = InteractionMode' "VIDEO_ONLY"++{-# COMPLETE+  InteractionMode_INTERACTIVE,+  InteractionMode_NO_VIDEO,+  InteractionMode_VIDEO_ONLY,+  InteractionMode'+  #-}
+ gen/Amazonka/DeviceFarm/Types/Job.hs view
@@ -0,0 +1,477 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.Job+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.Job where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.Counters+import Amazonka.DeviceFarm.Types.Device+import Amazonka.DeviceFarm.Types.DeviceMinutes+import Amazonka.DeviceFarm.Types.ExecutionResult+import Amazonka.DeviceFarm.Types.ExecutionStatus+import Amazonka.DeviceFarm.Types.TestType+import qualified Amazonka.Prelude as Prelude++-- | Represents a device.+--+-- /See:/ 'newJob' smart constructor.+data Job = Job'+  { -- | The job\'s ARN.+    arn :: Prelude.Maybe Prelude.Text,+    -- | The job\'s result counters.+    counters :: Prelude.Maybe Counters,+    -- | When the job was created.+    created :: Prelude.Maybe Data.POSIX,+    -- | The device (phone or tablet).+    device :: Prelude.Maybe Device,+    -- | Represents the total (metered or unmetered) minutes used by the job.+    deviceMinutes :: Prelude.Maybe DeviceMinutes,+    -- | The ARN of the instance.+    instanceArn :: Prelude.Maybe Prelude.Text,+    -- | A message about the job\'s result.+    message :: Prelude.Maybe Prelude.Text,+    -- | The job\'s name.+    name :: Prelude.Maybe Prelude.Text,+    -- | The job\'s result.+    --+    -- Allowed values include:+    --+    -- -   PENDING+    --+    -- -   PASSED+    --+    -- -   WARNED+    --+    -- -   FAILED+    --+    -- -   SKIPPED+    --+    -- -   ERRORED+    --+    -- -   STOPPED+    result :: Prelude.Maybe ExecutionResult,+    -- | The job\'s start time.+    started :: Prelude.Maybe Data.POSIX,+    -- | The job\'s status.+    --+    -- Allowed values include:+    --+    -- -   PENDING+    --+    -- -   PENDING_CONCURRENCY+    --+    -- -   PENDING_DEVICE+    --+    -- -   PROCESSING+    --+    -- -   SCHEDULING+    --+    -- -   PREPARING+    --+    -- -   RUNNING+    --+    -- -   COMPLETED+    --+    -- -   STOPPING+    status :: Prelude.Maybe ExecutionStatus,+    -- | The job\'s stop time.+    stopped :: Prelude.Maybe Data.POSIX,+    -- | The job\'s type.+    --+    -- Allowed values include the following:+    --+    -- -   BUILTIN_FUZZ+    --+    -- -   BUILTIN_EXPLORER. For Android, an app explorer that traverses an+    --     Android app, interacting with it and capturing screenshots at the+    --     same time.+    --+    -- -   APPIUM_JAVA_JUNIT+    --+    -- -   APPIUM_JAVA_TESTNG+    --+    -- -   APPIUM_PYTHON+    --+    -- -   APPIUM_NODE+    --+    -- -   APPIUM_RUBY+    --+    -- -   APPIUM_WEB_JAVA_JUNIT+    --+    -- -   APPIUM_WEB_JAVA_TESTNG+    --+    -- -   APPIUM_WEB_PYTHON+    --+    -- -   APPIUM_WEB_NODE+    --+    -- -   APPIUM_WEB_RUBY+    --+    -- -   CALABASH+    --+    -- -   INSTRUMENTATION+    --+    -- -   UIAUTOMATION+    --+    -- -   UIAUTOMATOR+    --+    -- -   XCTEST+    --+    -- -   XCTEST_UI+    type' :: Prelude.Maybe TestType,+    -- | This value is set to true if video capture is enabled. Otherwise, it is+    -- set to false.+    videoCapture :: Prelude.Maybe Prelude.Bool,+    -- | The endpoint for streaming device video.+    videoEndpoint :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Job' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'job_arn' - The job\'s ARN.+--+-- 'counters', 'job_counters' - The job\'s result counters.+--+-- 'created', 'job_created' - When the job was created.+--+-- 'device', 'job_device' - The device (phone or tablet).+--+-- 'deviceMinutes', 'job_deviceMinutes' - Represents the total (metered or unmetered) minutes used by the job.+--+-- 'instanceArn', 'job_instanceArn' - The ARN of the instance.+--+-- 'message', 'job_message' - A message about the job\'s result.+--+-- 'name', 'job_name' - The job\'s name.+--+-- 'result', 'job_result' - The job\'s result.+--+-- Allowed values include:+--+-- -   PENDING+--+-- -   PASSED+--+-- -   WARNED+--+-- -   FAILED+--+-- -   SKIPPED+--+-- -   ERRORED+--+-- -   STOPPED+--+-- 'started', 'job_started' - The job\'s start time.+--+-- 'status', 'job_status' - The job\'s status.+--+-- Allowed values include:+--+-- -   PENDING+--+-- -   PENDING_CONCURRENCY+--+-- -   PENDING_DEVICE+--+-- -   PROCESSING+--+-- -   SCHEDULING+--+-- -   PREPARING+--+-- -   RUNNING+--+-- -   COMPLETED+--+-- -   STOPPING+--+-- 'stopped', 'job_stopped' - The job\'s stop time.+--+-- 'type'', 'job_type' - The job\'s type.+--+-- Allowed values include the following:+--+-- -   BUILTIN_FUZZ+--+-- -   BUILTIN_EXPLORER. For Android, an app explorer that traverses an+--     Android app, interacting with it and capturing screenshots at the+--     same time.+--+-- -   APPIUM_JAVA_JUNIT+--+-- -   APPIUM_JAVA_TESTNG+--+-- -   APPIUM_PYTHON+--+-- -   APPIUM_NODE+--+-- -   APPIUM_RUBY+--+-- -   APPIUM_WEB_JAVA_JUNIT+--+-- -   APPIUM_WEB_JAVA_TESTNG+--+-- -   APPIUM_WEB_PYTHON+--+-- -   APPIUM_WEB_NODE+--+-- -   APPIUM_WEB_RUBY+--+-- -   CALABASH+--+-- -   INSTRUMENTATION+--+-- -   UIAUTOMATION+--+-- -   UIAUTOMATOR+--+-- -   XCTEST+--+-- -   XCTEST_UI+--+-- 'videoCapture', 'job_videoCapture' - This value is set to true if video capture is enabled. Otherwise, it is+-- set to false.+--+-- 'videoEndpoint', 'job_videoEndpoint' - The endpoint for streaming device video.+newJob ::+  Job+newJob =+  Job'+    { arn = Prelude.Nothing,+      counters = Prelude.Nothing,+      created = Prelude.Nothing,+      device = Prelude.Nothing,+      deviceMinutes = Prelude.Nothing,+      instanceArn = Prelude.Nothing,+      message = Prelude.Nothing,+      name = Prelude.Nothing,+      result = Prelude.Nothing,+      started = Prelude.Nothing,+      status = Prelude.Nothing,+      stopped = Prelude.Nothing,+      type' = Prelude.Nothing,+      videoCapture = Prelude.Nothing,+      videoEndpoint = Prelude.Nothing+    }++-- | The job\'s ARN.+job_arn :: Lens.Lens' Job (Prelude.Maybe Prelude.Text)+job_arn = Lens.lens (\Job' {arn} -> arn) (\s@Job' {} a -> s {arn = a} :: Job)++-- | The job\'s result counters.+job_counters :: Lens.Lens' Job (Prelude.Maybe Counters)+job_counters = Lens.lens (\Job' {counters} -> counters) (\s@Job' {} a -> s {counters = a} :: Job)++-- | When the job was created.+job_created :: Lens.Lens' Job (Prelude.Maybe Prelude.UTCTime)+job_created = Lens.lens (\Job' {created} -> created) (\s@Job' {} a -> s {created = a} :: Job) Prelude.. Lens.mapping Data._Time++-- | The device (phone or tablet).+job_device :: Lens.Lens' Job (Prelude.Maybe Device)+job_device = Lens.lens (\Job' {device} -> device) (\s@Job' {} a -> s {device = a} :: Job)++-- | Represents the total (metered or unmetered) minutes used by the job.+job_deviceMinutes :: Lens.Lens' Job (Prelude.Maybe DeviceMinutes)+job_deviceMinutes = Lens.lens (\Job' {deviceMinutes} -> deviceMinutes) (\s@Job' {} a -> s {deviceMinutes = a} :: Job)++-- | The ARN of the instance.+job_instanceArn :: Lens.Lens' Job (Prelude.Maybe Prelude.Text)+job_instanceArn = Lens.lens (\Job' {instanceArn} -> instanceArn) (\s@Job' {} a -> s {instanceArn = a} :: Job)++-- | A message about the job\'s result.+job_message :: Lens.Lens' Job (Prelude.Maybe Prelude.Text)+job_message = Lens.lens (\Job' {message} -> message) (\s@Job' {} a -> s {message = a} :: Job)++-- | The job\'s name.+job_name :: Lens.Lens' Job (Prelude.Maybe Prelude.Text)+job_name = Lens.lens (\Job' {name} -> name) (\s@Job' {} a -> s {name = a} :: Job)++-- | The job\'s result.+--+-- Allowed values include:+--+-- -   PENDING+--+-- -   PASSED+--+-- -   WARNED+--+-- -   FAILED+--+-- -   SKIPPED+--+-- -   ERRORED+--+-- -   STOPPED+job_result :: Lens.Lens' Job (Prelude.Maybe ExecutionResult)+job_result = Lens.lens (\Job' {result} -> result) (\s@Job' {} a -> s {result = a} :: Job)++-- | The job\'s start time.+job_started :: Lens.Lens' Job (Prelude.Maybe Prelude.UTCTime)+job_started = Lens.lens (\Job' {started} -> started) (\s@Job' {} a -> s {started = a} :: Job) Prelude.. Lens.mapping Data._Time++-- | The job\'s status.+--+-- Allowed values include:+--+-- -   PENDING+--+-- -   PENDING_CONCURRENCY+--+-- -   PENDING_DEVICE+--+-- -   PROCESSING+--+-- -   SCHEDULING+--+-- -   PREPARING+--+-- -   RUNNING+--+-- -   COMPLETED+--+-- -   STOPPING+job_status :: Lens.Lens' Job (Prelude.Maybe ExecutionStatus)+job_status = Lens.lens (\Job' {status} -> status) (\s@Job' {} a -> s {status = a} :: Job)++-- | The job\'s stop time.+job_stopped :: Lens.Lens' Job (Prelude.Maybe Prelude.UTCTime)+job_stopped = Lens.lens (\Job' {stopped} -> stopped) (\s@Job' {} a -> s {stopped = a} :: Job) Prelude.. Lens.mapping Data._Time++-- | The job\'s type.+--+-- Allowed values include the following:+--+-- -   BUILTIN_FUZZ+--+-- -   BUILTIN_EXPLORER. For Android, an app explorer that traverses an+--     Android app, interacting with it and capturing screenshots at the+--     same time.+--+-- -   APPIUM_JAVA_JUNIT+--+-- -   APPIUM_JAVA_TESTNG+--+-- -   APPIUM_PYTHON+--+-- -   APPIUM_NODE+--+-- -   APPIUM_RUBY+--+-- -   APPIUM_WEB_JAVA_JUNIT+--+-- -   APPIUM_WEB_JAVA_TESTNG+--+-- -   APPIUM_WEB_PYTHON+--+-- -   APPIUM_WEB_NODE+--+-- -   APPIUM_WEB_RUBY+--+-- -   CALABASH+--+-- -   INSTRUMENTATION+--+-- -   UIAUTOMATION+--+-- -   UIAUTOMATOR+--+-- -   XCTEST+--+-- -   XCTEST_UI+job_type :: Lens.Lens' Job (Prelude.Maybe TestType)+job_type = Lens.lens (\Job' {type'} -> type') (\s@Job' {} a -> s {type' = a} :: Job)++-- | This value is set to true if video capture is enabled. Otherwise, it is+-- set to false.+job_videoCapture :: Lens.Lens' Job (Prelude.Maybe Prelude.Bool)+job_videoCapture = Lens.lens (\Job' {videoCapture} -> videoCapture) (\s@Job' {} a -> s {videoCapture = a} :: Job)++-- | The endpoint for streaming device video.+job_videoEndpoint :: Lens.Lens' Job (Prelude.Maybe Prelude.Text)+job_videoEndpoint = Lens.lens (\Job' {videoEndpoint} -> videoEndpoint) (\s@Job' {} a -> s {videoEndpoint = a} :: Job)++instance Data.FromJSON Job where+  parseJSON =+    Data.withObject+      "Job"+      ( \x ->+          Job'+            Prelude.<$> (x Data..:? "arn")+            Prelude.<*> (x Data..:? "counters")+            Prelude.<*> (x Data..:? "created")+            Prelude.<*> (x Data..:? "device")+            Prelude.<*> (x Data..:? "deviceMinutes")+            Prelude.<*> (x Data..:? "instanceArn")+            Prelude.<*> (x Data..:? "message")+            Prelude.<*> (x Data..:? "name")+            Prelude.<*> (x Data..:? "result")+            Prelude.<*> (x Data..:? "started")+            Prelude.<*> (x Data..:? "status")+            Prelude.<*> (x Data..:? "stopped")+            Prelude.<*> (x Data..:? "type")+            Prelude.<*> (x Data..:? "videoCapture")+            Prelude.<*> (x Data..:? "videoEndpoint")+      )++instance Prelude.Hashable Job where+  hashWithSalt _salt Job' {..} =+    _salt+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` counters+      `Prelude.hashWithSalt` created+      `Prelude.hashWithSalt` device+      `Prelude.hashWithSalt` deviceMinutes+      `Prelude.hashWithSalt` instanceArn+      `Prelude.hashWithSalt` message+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` result+      `Prelude.hashWithSalt` started+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` stopped+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` videoCapture+      `Prelude.hashWithSalt` videoEndpoint++instance Prelude.NFData Job where+  rnf Job' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf counters+      `Prelude.seq` Prelude.rnf created+      `Prelude.seq` Prelude.rnf device+      `Prelude.seq` Prelude.rnf deviceMinutes+      `Prelude.seq` Prelude.rnf instanceArn+      `Prelude.seq` Prelude.rnf message+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf result+      `Prelude.seq` Prelude.rnf started+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf stopped+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf videoCapture+      `Prelude.seq` Prelude.rnf videoEndpoint
+ gen/Amazonka/DeviceFarm/Types/Location.hs view
@@ -0,0 +1,100 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.Location+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.Location where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Represents a latitude and longitude pair, expressed in geographic+-- coordinate system degrees (for example, 47.6204, -122.3491).+--+-- Elevation is currently not supported.+--+-- /See:/ 'newLocation' smart constructor.+data Location = Location'+  { -- | The latitude.+    latitude :: Prelude.Double,+    -- | The longitude.+    longitude :: Prelude.Double+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Location' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'latitude', 'location_latitude' - The latitude.+--+-- 'longitude', 'location_longitude' - The longitude.+newLocation ::+  -- | 'latitude'+  Prelude.Double ->+  -- | 'longitude'+  Prelude.Double ->+  Location+newLocation pLatitude_ pLongitude_ =+  Location'+    { latitude = pLatitude_,+      longitude = pLongitude_+    }++-- | The latitude.+location_latitude :: Lens.Lens' Location Prelude.Double+location_latitude = Lens.lens (\Location' {latitude} -> latitude) (\s@Location' {} a -> s {latitude = a} :: Location)++-- | The longitude.+location_longitude :: Lens.Lens' Location Prelude.Double+location_longitude = Lens.lens (\Location' {longitude} -> longitude) (\s@Location' {} a -> s {longitude = a} :: Location)++instance Data.FromJSON Location where+  parseJSON =+    Data.withObject+      "Location"+      ( \x ->+          Location'+            Prelude.<$> (x Data..: "latitude")+            Prelude.<*> (x Data..: "longitude")+      )++instance Prelude.Hashable Location where+  hashWithSalt _salt Location' {..} =+    _salt+      `Prelude.hashWithSalt` latitude+      `Prelude.hashWithSalt` longitude++instance Prelude.NFData Location where+  rnf Location' {..} =+    Prelude.rnf latitude+      `Prelude.seq` Prelude.rnf longitude++instance Data.ToJSON Location where+  toJSON Location' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("latitude" Data..= latitude),+            Prelude.Just ("longitude" Data..= longitude)+          ]+      )
+ gen/Amazonka/DeviceFarm/Types/MonetaryAmount.hs view
@@ -0,0 +1,89 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.MonetaryAmount+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.MonetaryAmount where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.CurrencyCode+import qualified Amazonka.Prelude as Prelude++-- | A number that represents the monetary amount for an offering or+-- transaction.+--+-- /See:/ 'newMonetaryAmount' smart constructor.+data MonetaryAmount = MonetaryAmount'+  { -- | The numerical amount of an offering or transaction.+    amount :: Prelude.Maybe Prelude.Double,+    -- | The currency code of a monetary amount. For example, @USD@ means U.S.+    -- dollars.+    currencyCode :: Prelude.Maybe CurrencyCode+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'MonetaryAmount' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'amount', 'monetaryAmount_amount' - The numerical amount of an offering or transaction.+--+-- 'currencyCode', 'monetaryAmount_currencyCode' - The currency code of a monetary amount. For example, @USD@ means U.S.+-- dollars.+newMonetaryAmount ::+  MonetaryAmount+newMonetaryAmount =+  MonetaryAmount'+    { amount = Prelude.Nothing,+      currencyCode = Prelude.Nothing+    }++-- | The numerical amount of an offering or transaction.+monetaryAmount_amount :: Lens.Lens' MonetaryAmount (Prelude.Maybe Prelude.Double)+monetaryAmount_amount = Lens.lens (\MonetaryAmount' {amount} -> amount) (\s@MonetaryAmount' {} a -> s {amount = a} :: MonetaryAmount)++-- | The currency code of a monetary amount. For example, @USD@ means U.S.+-- dollars.+monetaryAmount_currencyCode :: Lens.Lens' MonetaryAmount (Prelude.Maybe CurrencyCode)+monetaryAmount_currencyCode = Lens.lens (\MonetaryAmount' {currencyCode} -> currencyCode) (\s@MonetaryAmount' {} a -> s {currencyCode = a} :: MonetaryAmount)++instance Data.FromJSON MonetaryAmount where+  parseJSON =+    Data.withObject+      "MonetaryAmount"+      ( \x ->+          MonetaryAmount'+            Prelude.<$> (x Data..:? "amount")+            Prelude.<*> (x Data..:? "currencyCode")+      )++instance Prelude.Hashable MonetaryAmount where+  hashWithSalt _salt MonetaryAmount' {..} =+    _salt+      `Prelude.hashWithSalt` amount+      `Prelude.hashWithSalt` currencyCode++instance Prelude.NFData MonetaryAmount where+  rnf MonetaryAmount' {..} =+    Prelude.rnf amount+      `Prelude.seq` Prelude.rnf currencyCode
+ gen/Amazonka/DeviceFarm/Types/NetworkProfile.hs view
@@ -0,0 +1,230 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.NetworkProfile+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.NetworkProfile where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.NetworkProfileType+import qualified Amazonka.Prelude as Prelude++-- | An array of settings that describes characteristics of a network+-- profile.+--+-- /See:/ 'newNetworkProfile' smart constructor.+data NetworkProfile = NetworkProfile'+  { -- | The Amazon Resource Name (ARN) of the network profile.+    arn :: Prelude.Maybe Prelude.Text,+    -- | The description of the network profile.+    description :: Prelude.Maybe Prelude.Text,+    -- | The data throughput rate in bits per second, as an integer from 0 to+    -- 104857600.+    downlinkBandwidthBits :: Prelude.Maybe Prelude.Integer,+    -- | Delay time for all packets to destination in milliseconds as an integer+    -- from 0 to 2000.+    downlinkDelayMs :: Prelude.Maybe Prelude.Integer,+    -- | Time variation in the delay of received packets in milliseconds as an+    -- integer from 0 to 2000.+    downlinkJitterMs :: Prelude.Maybe Prelude.Integer,+    -- | Proportion of received packets that fail to arrive from 0 to 100+    -- percent.+    downlinkLossPercent :: Prelude.Maybe Prelude.Natural,+    -- | The name of the network profile.+    name :: Prelude.Maybe Prelude.Text,+    -- | The type of network profile. Valid values are listed here.+    type' :: Prelude.Maybe NetworkProfileType,+    -- | The data throughput rate in bits per second, as an integer from 0 to+    -- 104857600.+    uplinkBandwidthBits :: Prelude.Maybe Prelude.Integer,+    -- | Delay time for all packets to destination in milliseconds as an integer+    -- from 0 to 2000.+    uplinkDelayMs :: Prelude.Maybe Prelude.Integer,+    -- | Time variation in the delay of received packets in milliseconds as an+    -- integer from 0 to 2000.+    uplinkJitterMs :: Prelude.Maybe Prelude.Integer,+    -- | Proportion of transmitted packets that fail to arrive from 0 to 100+    -- percent.+    uplinkLossPercent :: Prelude.Maybe Prelude.Natural+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'NetworkProfile' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'networkProfile_arn' - The Amazon Resource Name (ARN) of the network profile.+--+-- 'description', 'networkProfile_description' - The description of the network profile.+--+-- 'downlinkBandwidthBits', 'networkProfile_downlinkBandwidthBits' - The data throughput rate in bits per second, as an integer from 0 to+-- 104857600.+--+-- 'downlinkDelayMs', 'networkProfile_downlinkDelayMs' - Delay time for all packets to destination in milliseconds as an integer+-- from 0 to 2000.+--+-- 'downlinkJitterMs', 'networkProfile_downlinkJitterMs' - Time variation in the delay of received packets in milliseconds as an+-- integer from 0 to 2000.+--+-- 'downlinkLossPercent', 'networkProfile_downlinkLossPercent' - Proportion of received packets that fail to arrive from 0 to 100+-- percent.+--+-- 'name', 'networkProfile_name' - The name of the network profile.+--+-- 'type'', 'networkProfile_type' - The type of network profile. Valid values are listed here.+--+-- 'uplinkBandwidthBits', 'networkProfile_uplinkBandwidthBits' - The data throughput rate in bits per second, as an integer from 0 to+-- 104857600.+--+-- 'uplinkDelayMs', 'networkProfile_uplinkDelayMs' - Delay time for all packets to destination in milliseconds as an integer+-- from 0 to 2000.+--+-- 'uplinkJitterMs', 'networkProfile_uplinkJitterMs' - Time variation in the delay of received packets in milliseconds as an+-- integer from 0 to 2000.+--+-- 'uplinkLossPercent', 'networkProfile_uplinkLossPercent' - Proportion of transmitted packets that fail to arrive from 0 to 100+-- percent.+newNetworkProfile ::+  NetworkProfile+newNetworkProfile =+  NetworkProfile'+    { arn = Prelude.Nothing,+      description = Prelude.Nothing,+      downlinkBandwidthBits = Prelude.Nothing,+      downlinkDelayMs = Prelude.Nothing,+      downlinkJitterMs = Prelude.Nothing,+      downlinkLossPercent = Prelude.Nothing,+      name = Prelude.Nothing,+      type' = Prelude.Nothing,+      uplinkBandwidthBits = Prelude.Nothing,+      uplinkDelayMs = Prelude.Nothing,+      uplinkJitterMs = Prelude.Nothing,+      uplinkLossPercent = Prelude.Nothing+    }++-- | The Amazon Resource Name (ARN) of the network profile.+networkProfile_arn :: Lens.Lens' NetworkProfile (Prelude.Maybe Prelude.Text)+networkProfile_arn = Lens.lens (\NetworkProfile' {arn} -> arn) (\s@NetworkProfile' {} a -> s {arn = a} :: NetworkProfile)++-- | The description of the network profile.+networkProfile_description :: Lens.Lens' NetworkProfile (Prelude.Maybe Prelude.Text)+networkProfile_description = Lens.lens (\NetworkProfile' {description} -> description) (\s@NetworkProfile' {} a -> s {description = a} :: NetworkProfile)++-- | The data throughput rate in bits per second, as an integer from 0 to+-- 104857600.+networkProfile_downlinkBandwidthBits :: Lens.Lens' NetworkProfile (Prelude.Maybe Prelude.Integer)+networkProfile_downlinkBandwidthBits = Lens.lens (\NetworkProfile' {downlinkBandwidthBits} -> downlinkBandwidthBits) (\s@NetworkProfile' {} a -> s {downlinkBandwidthBits = a} :: NetworkProfile)++-- | Delay time for all packets to destination in milliseconds as an integer+-- from 0 to 2000.+networkProfile_downlinkDelayMs :: Lens.Lens' NetworkProfile (Prelude.Maybe Prelude.Integer)+networkProfile_downlinkDelayMs = Lens.lens (\NetworkProfile' {downlinkDelayMs} -> downlinkDelayMs) (\s@NetworkProfile' {} a -> s {downlinkDelayMs = a} :: NetworkProfile)++-- | Time variation in the delay of received packets in milliseconds as an+-- integer from 0 to 2000.+networkProfile_downlinkJitterMs :: Lens.Lens' NetworkProfile (Prelude.Maybe Prelude.Integer)+networkProfile_downlinkJitterMs = Lens.lens (\NetworkProfile' {downlinkJitterMs} -> downlinkJitterMs) (\s@NetworkProfile' {} a -> s {downlinkJitterMs = a} :: NetworkProfile)++-- | Proportion of received packets that fail to arrive from 0 to 100+-- percent.+networkProfile_downlinkLossPercent :: Lens.Lens' NetworkProfile (Prelude.Maybe Prelude.Natural)+networkProfile_downlinkLossPercent = Lens.lens (\NetworkProfile' {downlinkLossPercent} -> downlinkLossPercent) (\s@NetworkProfile' {} a -> s {downlinkLossPercent = a} :: NetworkProfile)++-- | The name of the network profile.+networkProfile_name :: Lens.Lens' NetworkProfile (Prelude.Maybe Prelude.Text)+networkProfile_name = Lens.lens (\NetworkProfile' {name} -> name) (\s@NetworkProfile' {} a -> s {name = a} :: NetworkProfile)++-- | The type of network profile. Valid values are listed here.+networkProfile_type :: Lens.Lens' NetworkProfile (Prelude.Maybe NetworkProfileType)+networkProfile_type = Lens.lens (\NetworkProfile' {type'} -> type') (\s@NetworkProfile' {} a -> s {type' = a} :: NetworkProfile)++-- | The data throughput rate in bits per second, as an integer from 0 to+-- 104857600.+networkProfile_uplinkBandwidthBits :: Lens.Lens' NetworkProfile (Prelude.Maybe Prelude.Integer)+networkProfile_uplinkBandwidthBits = Lens.lens (\NetworkProfile' {uplinkBandwidthBits} -> uplinkBandwidthBits) (\s@NetworkProfile' {} a -> s {uplinkBandwidthBits = a} :: NetworkProfile)++-- | Delay time for all packets to destination in milliseconds as an integer+-- from 0 to 2000.+networkProfile_uplinkDelayMs :: Lens.Lens' NetworkProfile (Prelude.Maybe Prelude.Integer)+networkProfile_uplinkDelayMs = Lens.lens (\NetworkProfile' {uplinkDelayMs} -> uplinkDelayMs) (\s@NetworkProfile' {} a -> s {uplinkDelayMs = a} :: NetworkProfile)++-- | Time variation in the delay of received packets in milliseconds as an+-- integer from 0 to 2000.+networkProfile_uplinkJitterMs :: Lens.Lens' NetworkProfile (Prelude.Maybe Prelude.Integer)+networkProfile_uplinkJitterMs = Lens.lens (\NetworkProfile' {uplinkJitterMs} -> uplinkJitterMs) (\s@NetworkProfile' {} a -> s {uplinkJitterMs = a} :: NetworkProfile)++-- | Proportion of transmitted packets that fail to arrive from 0 to 100+-- percent.+networkProfile_uplinkLossPercent :: Lens.Lens' NetworkProfile (Prelude.Maybe Prelude.Natural)+networkProfile_uplinkLossPercent = Lens.lens (\NetworkProfile' {uplinkLossPercent} -> uplinkLossPercent) (\s@NetworkProfile' {} a -> s {uplinkLossPercent = a} :: NetworkProfile)++instance Data.FromJSON NetworkProfile where+  parseJSON =+    Data.withObject+      "NetworkProfile"+      ( \x ->+          NetworkProfile'+            Prelude.<$> (x Data..:? "arn")+            Prelude.<*> (x Data..:? "description")+            Prelude.<*> (x Data..:? "downlinkBandwidthBits")+            Prelude.<*> (x Data..:? "downlinkDelayMs")+            Prelude.<*> (x Data..:? "downlinkJitterMs")+            Prelude.<*> (x Data..:? "downlinkLossPercent")+            Prelude.<*> (x Data..:? "name")+            Prelude.<*> (x Data..:? "type")+            Prelude.<*> (x Data..:? "uplinkBandwidthBits")+            Prelude.<*> (x Data..:? "uplinkDelayMs")+            Prelude.<*> (x Data..:? "uplinkJitterMs")+            Prelude.<*> (x Data..:? "uplinkLossPercent")+      )++instance Prelude.Hashable NetworkProfile where+  hashWithSalt _salt NetworkProfile' {..} =+    _salt+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` downlinkBandwidthBits+      `Prelude.hashWithSalt` downlinkDelayMs+      `Prelude.hashWithSalt` downlinkJitterMs+      `Prelude.hashWithSalt` downlinkLossPercent+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` uplinkBandwidthBits+      `Prelude.hashWithSalt` uplinkDelayMs+      `Prelude.hashWithSalt` uplinkJitterMs+      `Prelude.hashWithSalt` uplinkLossPercent++instance Prelude.NFData NetworkProfile where+  rnf NetworkProfile' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf downlinkBandwidthBits+      `Prelude.seq` Prelude.rnf downlinkDelayMs+      `Prelude.seq` Prelude.rnf downlinkJitterMs+      `Prelude.seq` Prelude.rnf downlinkLossPercent+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf uplinkBandwidthBits+      `Prelude.seq` Prelude.rnf uplinkDelayMs+      `Prelude.seq` Prelude.rnf uplinkJitterMs+      `Prelude.seq` Prelude.rnf uplinkLossPercent
+ gen/Amazonka/DeviceFarm/Types/NetworkProfileType.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.NetworkProfileType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.NetworkProfileType+  ( NetworkProfileType+      ( ..,+        NetworkProfileType_CURATED,+        NetworkProfileType_PRIVATE+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype NetworkProfileType = NetworkProfileType'+  { fromNetworkProfileType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern NetworkProfileType_CURATED :: NetworkProfileType+pattern NetworkProfileType_CURATED = NetworkProfileType' "CURATED"++pattern NetworkProfileType_PRIVATE :: NetworkProfileType+pattern NetworkProfileType_PRIVATE = NetworkProfileType' "PRIVATE"++{-# COMPLETE+  NetworkProfileType_CURATED,+  NetworkProfileType_PRIVATE,+  NetworkProfileType'+  #-}
+ gen/Amazonka/DeviceFarm/Types/Offering.hs view
@@ -0,0 +1,126 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.Offering+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.Offering where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.DevicePlatform+import Amazonka.DeviceFarm.Types.OfferingType+import Amazonka.DeviceFarm.Types.RecurringCharge+import qualified Amazonka.Prelude as Prelude++-- | Represents the metadata of a device offering.+--+-- /See:/ 'newOffering' smart constructor.+data Offering = Offering'+  { -- | A string that describes the offering.+    description :: Prelude.Maybe Prelude.Text,+    -- | The ID that corresponds to a device offering.+    id :: Prelude.Maybe Prelude.Text,+    -- | The platform of the device (for example, @ANDROID@ or @IOS@).+    platform :: Prelude.Maybe DevicePlatform,+    -- | Specifies whether there are recurring charges for the offering.+    recurringCharges :: Prelude.Maybe [RecurringCharge],+    -- | The type of offering (for example, @RECURRING@) for a device.+    type' :: Prelude.Maybe OfferingType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Offering' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'offering_description' - A string that describes the offering.+--+-- 'id', 'offering_id' - The ID that corresponds to a device offering.+--+-- 'platform', 'offering_platform' - The platform of the device (for example, @ANDROID@ or @IOS@).+--+-- 'recurringCharges', 'offering_recurringCharges' - Specifies whether there are recurring charges for the offering.+--+-- 'type'', 'offering_type' - The type of offering (for example, @RECURRING@) for a device.+newOffering ::+  Offering+newOffering =+  Offering'+    { description = Prelude.Nothing,+      id = Prelude.Nothing,+      platform = Prelude.Nothing,+      recurringCharges = Prelude.Nothing,+      type' = Prelude.Nothing+    }++-- | A string that describes the offering.+offering_description :: Lens.Lens' Offering (Prelude.Maybe Prelude.Text)+offering_description = Lens.lens (\Offering' {description} -> description) (\s@Offering' {} a -> s {description = a} :: Offering)++-- | The ID that corresponds to a device offering.+offering_id :: Lens.Lens' Offering (Prelude.Maybe Prelude.Text)+offering_id = Lens.lens (\Offering' {id} -> id) (\s@Offering' {} a -> s {id = a} :: Offering)++-- | The platform of the device (for example, @ANDROID@ or @IOS@).+offering_platform :: Lens.Lens' Offering (Prelude.Maybe DevicePlatform)+offering_platform = Lens.lens (\Offering' {platform} -> platform) (\s@Offering' {} a -> s {platform = a} :: Offering)++-- | Specifies whether there are recurring charges for the offering.+offering_recurringCharges :: Lens.Lens' Offering (Prelude.Maybe [RecurringCharge])+offering_recurringCharges = Lens.lens (\Offering' {recurringCharges} -> recurringCharges) (\s@Offering' {} a -> s {recurringCharges = a} :: Offering) Prelude.. Lens.mapping Lens.coerced++-- | The type of offering (for example, @RECURRING@) for a device.+offering_type :: Lens.Lens' Offering (Prelude.Maybe OfferingType)+offering_type = Lens.lens (\Offering' {type'} -> type') (\s@Offering' {} a -> s {type' = a} :: Offering)++instance Data.FromJSON Offering where+  parseJSON =+    Data.withObject+      "Offering"+      ( \x ->+          Offering'+            Prelude.<$> (x Data..:? "description")+            Prelude.<*> (x Data..:? "id")+            Prelude.<*> (x Data..:? "platform")+            Prelude.<*> ( x+                            Data..:? "recurringCharges"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> (x Data..:? "type")+      )++instance Prelude.Hashable Offering where+  hashWithSalt _salt Offering' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` id+      `Prelude.hashWithSalt` platform+      `Prelude.hashWithSalt` recurringCharges+      `Prelude.hashWithSalt` type'++instance Prelude.NFData Offering where+  rnf Offering' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf id+      `Prelude.seq` Prelude.rnf platform+      `Prelude.seq` Prelude.rnf recurringCharges+      `Prelude.seq` Prelude.rnf type'
+ gen/Amazonka/DeviceFarm/Types/OfferingPromotion.hs view
@@ -0,0 +1,84 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.OfferingPromotion+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.OfferingPromotion where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Represents information about an offering promotion.+--+-- /See:/ 'newOfferingPromotion' smart constructor.+data OfferingPromotion = OfferingPromotion'+  { -- | A string that describes the offering promotion.+    description :: Prelude.Maybe Prelude.Text,+    -- | The ID of the offering promotion.+    id :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'OfferingPromotion' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'offeringPromotion_description' - A string that describes the offering promotion.+--+-- 'id', 'offeringPromotion_id' - The ID of the offering promotion.+newOfferingPromotion ::+  OfferingPromotion+newOfferingPromotion =+  OfferingPromotion'+    { description = Prelude.Nothing,+      id = Prelude.Nothing+    }++-- | A string that describes the offering promotion.+offeringPromotion_description :: Lens.Lens' OfferingPromotion (Prelude.Maybe Prelude.Text)+offeringPromotion_description = Lens.lens (\OfferingPromotion' {description} -> description) (\s@OfferingPromotion' {} a -> s {description = a} :: OfferingPromotion)++-- | The ID of the offering promotion.+offeringPromotion_id :: Lens.Lens' OfferingPromotion (Prelude.Maybe Prelude.Text)+offeringPromotion_id = Lens.lens (\OfferingPromotion' {id} -> id) (\s@OfferingPromotion' {} a -> s {id = a} :: OfferingPromotion)++instance Data.FromJSON OfferingPromotion where+  parseJSON =+    Data.withObject+      "OfferingPromotion"+      ( \x ->+          OfferingPromotion'+            Prelude.<$> (x Data..:? "description")+            Prelude.<*> (x Data..:? "id")+      )++instance Prelude.Hashable OfferingPromotion where+  hashWithSalt _salt OfferingPromotion' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` id++instance Prelude.NFData OfferingPromotion where+  rnf OfferingPromotion' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf id
+ gen/Amazonka/DeviceFarm/Types/OfferingStatus.hs view
@@ -0,0 +1,110 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.OfferingStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.OfferingStatus where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.Offering+import Amazonka.DeviceFarm.Types.OfferingTransactionType+import qualified Amazonka.Prelude as Prelude++-- | The status of the offering.+--+-- /See:/ 'newOfferingStatus' smart constructor.+data OfferingStatus = OfferingStatus'+  { -- | The date on which the offering is effective.+    effectiveOn :: Prelude.Maybe Data.POSIX,+    -- | Represents the metadata of an offering status.+    offering :: Prelude.Maybe Offering,+    -- | The number of available devices in the offering.+    quantity :: Prelude.Maybe Prelude.Int,+    -- | The type specified for the offering status.+    type' :: Prelude.Maybe OfferingTransactionType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'OfferingStatus' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'effectiveOn', 'offeringStatus_effectiveOn' - The date on which the offering is effective.+--+-- 'offering', 'offeringStatus_offering' - Represents the metadata of an offering status.+--+-- 'quantity', 'offeringStatus_quantity' - The number of available devices in the offering.+--+-- 'type'', 'offeringStatus_type' - The type specified for the offering status.+newOfferingStatus ::+  OfferingStatus+newOfferingStatus =+  OfferingStatus'+    { effectiveOn = Prelude.Nothing,+      offering = Prelude.Nothing,+      quantity = Prelude.Nothing,+      type' = Prelude.Nothing+    }++-- | The date on which the offering is effective.+offeringStatus_effectiveOn :: Lens.Lens' OfferingStatus (Prelude.Maybe Prelude.UTCTime)+offeringStatus_effectiveOn = Lens.lens (\OfferingStatus' {effectiveOn} -> effectiveOn) (\s@OfferingStatus' {} a -> s {effectiveOn = a} :: OfferingStatus) Prelude.. Lens.mapping Data._Time++-- | Represents the metadata of an offering status.+offeringStatus_offering :: Lens.Lens' OfferingStatus (Prelude.Maybe Offering)+offeringStatus_offering = Lens.lens (\OfferingStatus' {offering} -> offering) (\s@OfferingStatus' {} a -> s {offering = a} :: OfferingStatus)++-- | The number of available devices in the offering.+offeringStatus_quantity :: Lens.Lens' OfferingStatus (Prelude.Maybe Prelude.Int)+offeringStatus_quantity = Lens.lens (\OfferingStatus' {quantity} -> quantity) (\s@OfferingStatus' {} a -> s {quantity = a} :: OfferingStatus)++-- | The type specified for the offering status.+offeringStatus_type :: Lens.Lens' OfferingStatus (Prelude.Maybe OfferingTransactionType)+offeringStatus_type = Lens.lens (\OfferingStatus' {type'} -> type') (\s@OfferingStatus' {} a -> s {type' = a} :: OfferingStatus)++instance Data.FromJSON OfferingStatus where+  parseJSON =+    Data.withObject+      "OfferingStatus"+      ( \x ->+          OfferingStatus'+            Prelude.<$> (x Data..:? "effectiveOn")+            Prelude.<*> (x Data..:? "offering")+            Prelude.<*> (x Data..:? "quantity")+            Prelude.<*> (x Data..:? "type")+      )++instance Prelude.Hashable OfferingStatus where+  hashWithSalt _salt OfferingStatus' {..} =+    _salt+      `Prelude.hashWithSalt` effectiveOn+      `Prelude.hashWithSalt` offering+      `Prelude.hashWithSalt` quantity+      `Prelude.hashWithSalt` type'++instance Prelude.NFData OfferingStatus where+  rnf OfferingStatus' {..} =+    Prelude.rnf effectiveOn+      `Prelude.seq` Prelude.rnf offering+      `Prelude.seq` Prelude.rnf quantity+      `Prelude.seq` Prelude.rnf type'
+ gen/Amazonka/DeviceFarm/Types/OfferingTransaction.hs view
@@ -0,0 +1,122 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.OfferingTransaction+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.OfferingTransaction where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.MonetaryAmount+import Amazonka.DeviceFarm.Types.OfferingStatus+import qualified Amazonka.Prelude as Prelude++-- | Represents the metadata of an offering transaction.+--+-- /See:/ 'newOfferingTransaction' smart constructor.+data OfferingTransaction = OfferingTransaction'+  { -- | The cost of an offering transaction.+    cost :: Prelude.Maybe MonetaryAmount,+    -- | The date on which an offering transaction was created.+    createdOn :: Prelude.Maybe Data.POSIX,+    -- | The ID that corresponds to a device offering promotion.+    offeringPromotionId :: Prelude.Maybe Prelude.Text,+    -- | The status of an offering transaction.+    offeringStatus :: Prelude.Maybe OfferingStatus,+    -- | The transaction ID of the offering transaction.+    transactionId :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'OfferingTransaction' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cost', 'offeringTransaction_cost' - The cost of an offering transaction.+--+-- 'createdOn', 'offeringTransaction_createdOn' - The date on which an offering transaction was created.+--+-- 'offeringPromotionId', 'offeringTransaction_offeringPromotionId' - The ID that corresponds to a device offering promotion.+--+-- 'offeringStatus', 'offeringTransaction_offeringStatus' - The status of an offering transaction.+--+-- 'transactionId', 'offeringTransaction_transactionId' - The transaction ID of the offering transaction.+newOfferingTransaction ::+  OfferingTransaction+newOfferingTransaction =+  OfferingTransaction'+    { cost = Prelude.Nothing,+      createdOn = Prelude.Nothing,+      offeringPromotionId = Prelude.Nothing,+      offeringStatus = Prelude.Nothing,+      transactionId = Prelude.Nothing+    }++-- | The cost of an offering transaction.+offeringTransaction_cost :: Lens.Lens' OfferingTransaction (Prelude.Maybe MonetaryAmount)+offeringTransaction_cost = Lens.lens (\OfferingTransaction' {cost} -> cost) (\s@OfferingTransaction' {} a -> s {cost = a} :: OfferingTransaction)++-- | The date on which an offering transaction was created.+offeringTransaction_createdOn :: Lens.Lens' OfferingTransaction (Prelude.Maybe Prelude.UTCTime)+offeringTransaction_createdOn = Lens.lens (\OfferingTransaction' {createdOn} -> createdOn) (\s@OfferingTransaction' {} a -> s {createdOn = a} :: OfferingTransaction) Prelude.. Lens.mapping Data._Time++-- | The ID that corresponds to a device offering promotion.+offeringTransaction_offeringPromotionId :: Lens.Lens' OfferingTransaction (Prelude.Maybe Prelude.Text)+offeringTransaction_offeringPromotionId = Lens.lens (\OfferingTransaction' {offeringPromotionId} -> offeringPromotionId) (\s@OfferingTransaction' {} a -> s {offeringPromotionId = a} :: OfferingTransaction)++-- | The status of an offering transaction.+offeringTransaction_offeringStatus :: Lens.Lens' OfferingTransaction (Prelude.Maybe OfferingStatus)+offeringTransaction_offeringStatus = Lens.lens (\OfferingTransaction' {offeringStatus} -> offeringStatus) (\s@OfferingTransaction' {} a -> s {offeringStatus = a} :: OfferingTransaction)++-- | The transaction ID of the offering transaction.+offeringTransaction_transactionId :: Lens.Lens' OfferingTransaction (Prelude.Maybe Prelude.Text)+offeringTransaction_transactionId = Lens.lens (\OfferingTransaction' {transactionId} -> transactionId) (\s@OfferingTransaction' {} a -> s {transactionId = a} :: OfferingTransaction)++instance Data.FromJSON OfferingTransaction where+  parseJSON =+    Data.withObject+      "OfferingTransaction"+      ( \x ->+          OfferingTransaction'+            Prelude.<$> (x Data..:? "cost")+            Prelude.<*> (x Data..:? "createdOn")+            Prelude.<*> (x Data..:? "offeringPromotionId")+            Prelude.<*> (x Data..:? "offeringStatus")+            Prelude.<*> (x Data..:? "transactionId")+      )++instance Prelude.Hashable OfferingTransaction where+  hashWithSalt _salt OfferingTransaction' {..} =+    _salt+      `Prelude.hashWithSalt` cost+      `Prelude.hashWithSalt` createdOn+      `Prelude.hashWithSalt` offeringPromotionId+      `Prelude.hashWithSalt` offeringStatus+      `Prelude.hashWithSalt` transactionId++instance Prelude.NFData OfferingTransaction where+  rnf OfferingTransaction' {..} =+    Prelude.rnf cost+      `Prelude.seq` Prelude.rnf createdOn+      `Prelude.seq` Prelude.rnf offeringPromotionId+      `Prelude.seq` Prelude.rnf offeringStatus+      `Prelude.seq` Prelude.rnf transactionId
+ gen/Amazonka/DeviceFarm/Types/OfferingTransactionType.hs view
@@ -0,0 +1,76 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.OfferingTransactionType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.OfferingTransactionType+  ( OfferingTransactionType+      ( ..,+        OfferingTransactionType_PURCHASE,+        OfferingTransactionType_RENEW,+        OfferingTransactionType_SYSTEM+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype OfferingTransactionType = OfferingTransactionType'+  { fromOfferingTransactionType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern OfferingTransactionType_PURCHASE :: OfferingTransactionType+pattern OfferingTransactionType_PURCHASE = OfferingTransactionType' "PURCHASE"++pattern OfferingTransactionType_RENEW :: OfferingTransactionType+pattern OfferingTransactionType_RENEW = OfferingTransactionType' "RENEW"++pattern OfferingTransactionType_SYSTEM :: OfferingTransactionType+pattern OfferingTransactionType_SYSTEM = OfferingTransactionType' "SYSTEM"++{-# COMPLETE+  OfferingTransactionType_PURCHASE,+  OfferingTransactionType_RENEW,+  OfferingTransactionType_SYSTEM,+  OfferingTransactionType'+  #-}
+ gen/Amazonka/DeviceFarm/Types/OfferingType.hs view
@@ -0,0 +1,66 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.OfferingType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.OfferingType+  ( OfferingType+      ( ..,+        OfferingType_RECURRING+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype OfferingType = OfferingType'+  { fromOfferingType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern OfferingType_RECURRING :: OfferingType+pattern OfferingType_RECURRING = OfferingType' "RECURRING"++{-# COMPLETE+  OfferingType_RECURRING,+  OfferingType'+  #-}
+ gen/Amazonka/DeviceFarm/Types/Problem.hs view
@@ -0,0 +1,195 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.Problem+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.Problem where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.Device+import Amazonka.DeviceFarm.Types.ExecutionResult+import Amazonka.DeviceFarm.Types.ProblemDetail+import qualified Amazonka.Prelude as Prelude++-- | Represents a specific warning or failure.+--+-- /See:/ 'newProblem' smart constructor.+data Problem = Problem'+  { -- | Information about the associated device.+    device :: Prelude.Maybe Device,+    -- | Information about the associated job.+    job :: Prelude.Maybe ProblemDetail,+    -- | A message about the problem\'s result.+    message :: Prelude.Maybe Prelude.Text,+    -- | The problem\'s result.+    --+    -- Allowed values include:+    --+    -- -   PENDING+    --+    -- -   PASSED+    --+    -- -   WARNED+    --+    -- -   FAILED+    --+    -- -   SKIPPED+    --+    -- -   ERRORED+    --+    -- -   STOPPED+    result :: Prelude.Maybe ExecutionResult,+    -- | Information about the associated run.+    run :: Prelude.Maybe ProblemDetail,+    -- | Information about the associated suite.+    suite :: Prelude.Maybe ProblemDetail,+    -- | Information about the associated test.+    test :: Prelude.Maybe ProblemDetail+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Problem' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'device', 'problem_device' - Information about the associated device.+--+-- 'job', 'problem_job' - Information about the associated job.+--+-- 'message', 'problem_message' - A message about the problem\'s result.+--+-- 'result', 'problem_result' - The problem\'s result.+--+-- Allowed values include:+--+-- -   PENDING+--+-- -   PASSED+--+-- -   WARNED+--+-- -   FAILED+--+-- -   SKIPPED+--+-- -   ERRORED+--+-- -   STOPPED+--+-- 'run', 'problem_run' - Information about the associated run.+--+-- 'suite', 'problem_suite' - Information about the associated suite.+--+-- 'test', 'problem_test' - Information about the associated test.+newProblem ::+  Problem+newProblem =+  Problem'+    { device = Prelude.Nothing,+      job = Prelude.Nothing,+      message = Prelude.Nothing,+      result = Prelude.Nothing,+      run = Prelude.Nothing,+      suite = Prelude.Nothing,+      test = Prelude.Nothing+    }++-- | Information about the associated device.+problem_device :: Lens.Lens' Problem (Prelude.Maybe Device)+problem_device = Lens.lens (\Problem' {device} -> device) (\s@Problem' {} a -> s {device = a} :: Problem)++-- | Information about the associated job.+problem_job :: Lens.Lens' Problem (Prelude.Maybe ProblemDetail)+problem_job = Lens.lens (\Problem' {job} -> job) (\s@Problem' {} a -> s {job = a} :: Problem)++-- | A message about the problem\'s result.+problem_message :: Lens.Lens' Problem (Prelude.Maybe Prelude.Text)+problem_message = Lens.lens (\Problem' {message} -> message) (\s@Problem' {} a -> s {message = a} :: Problem)++-- | The problem\'s result.+--+-- Allowed values include:+--+-- -   PENDING+--+-- -   PASSED+--+-- -   WARNED+--+-- -   FAILED+--+-- -   SKIPPED+--+-- -   ERRORED+--+-- -   STOPPED+problem_result :: Lens.Lens' Problem (Prelude.Maybe ExecutionResult)+problem_result = Lens.lens (\Problem' {result} -> result) (\s@Problem' {} a -> s {result = a} :: Problem)++-- | Information about the associated run.+problem_run :: Lens.Lens' Problem (Prelude.Maybe ProblemDetail)+problem_run = Lens.lens (\Problem' {run} -> run) (\s@Problem' {} a -> s {run = a} :: Problem)++-- | Information about the associated suite.+problem_suite :: Lens.Lens' Problem (Prelude.Maybe ProblemDetail)+problem_suite = Lens.lens (\Problem' {suite} -> suite) (\s@Problem' {} a -> s {suite = a} :: Problem)++-- | Information about the associated test.+problem_test :: Lens.Lens' Problem (Prelude.Maybe ProblemDetail)+problem_test = Lens.lens (\Problem' {test} -> test) (\s@Problem' {} a -> s {test = a} :: Problem)++instance Data.FromJSON Problem where+  parseJSON =+    Data.withObject+      "Problem"+      ( \x ->+          Problem'+            Prelude.<$> (x Data..:? "device")+            Prelude.<*> (x Data..:? "job")+            Prelude.<*> (x Data..:? "message")+            Prelude.<*> (x Data..:? "result")+            Prelude.<*> (x Data..:? "run")+            Prelude.<*> (x Data..:? "suite")+            Prelude.<*> (x Data..:? "test")+      )++instance Prelude.Hashable Problem where+  hashWithSalt _salt Problem' {..} =+    _salt+      `Prelude.hashWithSalt` device+      `Prelude.hashWithSalt` job+      `Prelude.hashWithSalt` message+      `Prelude.hashWithSalt` result+      `Prelude.hashWithSalt` run+      `Prelude.hashWithSalt` suite+      `Prelude.hashWithSalt` test++instance Prelude.NFData Problem where+  rnf Problem' {..} =+    Prelude.rnf device+      `Prelude.seq` Prelude.rnf job+      `Prelude.seq` Prelude.rnf message+      `Prelude.seq` Prelude.rnf result+      `Prelude.seq` Prelude.rnf run+      `Prelude.seq` Prelude.rnf suite+      `Prelude.seq` Prelude.rnf test
+ gen/Amazonka/DeviceFarm/Types/ProblemDetail.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.ProblemDetail+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.ProblemDetail where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Information about a problem detail.+--+-- /See:/ 'newProblemDetail' smart constructor.+data ProblemDetail = ProblemDetail'+  { -- | The problem detail\'s ARN.+    arn :: Prelude.Maybe Prelude.Text,+    -- | The problem detail\'s name.+    name :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ProblemDetail' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'problemDetail_arn' - The problem detail\'s ARN.+--+-- 'name', 'problemDetail_name' - The problem detail\'s name.+newProblemDetail ::+  ProblemDetail+newProblemDetail =+  ProblemDetail'+    { arn = Prelude.Nothing,+      name = Prelude.Nothing+    }++-- | The problem detail\'s ARN.+problemDetail_arn :: Lens.Lens' ProblemDetail (Prelude.Maybe Prelude.Text)+problemDetail_arn = Lens.lens (\ProblemDetail' {arn} -> arn) (\s@ProblemDetail' {} a -> s {arn = a} :: ProblemDetail)++-- | The problem detail\'s name.+problemDetail_name :: Lens.Lens' ProblemDetail (Prelude.Maybe Prelude.Text)+problemDetail_name = Lens.lens (\ProblemDetail' {name} -> name) (\s@ProblemDetail' {} a -> s {name = a} :: ProblemDetail)++instance Data.FromJSON ProblemDetail where+  parseJSON =+    Data.withObject+      "ProblemDetail"+      ( \x ->+          ProblemDetail'+            Prelude.<$> (x Data..:? "arn")+            Prelude.<*> (x Data..:? "name")+      )++instance Prelude.Hashable ProblemDetail where+  hashWithSalt _salt ProblemDetail' {..} =+    _salt+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` name++instance Prelude.NFData ProblemDetail where+  rnf ProblemDetail' {..} =+    Prelude.rnf arn `Prelude.seq` Prelude.rnf name
+ gen/Amazonka/DeviceFarm/Types/Project.hs view
@@ -0,0 +1,125 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.Project+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.Project where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.VpcConfig+import qualified Amazonka.Prelude as Prelude++-- | Represents an operating-system neutral workspace for running and+-- managing tests.+--+-- /See:/ 'newProject' smart constructor.+data Project = Project'+  { -- | The project\'s ARN.+    arn :: Prelude.Maybe Prelude.Text,+    -- | When the project was created.+    created :: Prelude.Maybe Data.POSIX,+    -- | The default number of minutes (at the project level) a test run executes+    -- before it times out. The default value is 150 minutes.+    defaultJobTimeoutMinutes :: Prelude.Maybe Prelude.Int,+    -- | The project\'s name.+    name :: Prelude.Maybe Prelude.Text,+    -- | The VPC security groups and subnets that are attached to a project.+    vpcConfig :: Prelude.Maybe VpcConfig+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Project' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'project_arn' - The project\'s ARN.+--+-- 'created', 'project_created' - When the project was created.+--+-- 'defaultJobTimeoutMinutes', 'project_defaultJobTimeoutMinutes' - The default number of minutes (at the project level) a test run executes+-- before it times out. The default value is 150 minutes.+--+-- 'name', 'project_name' - The project\'s name.+--+-- 'vpcConfig', 'project_vpcConfig' - The VPC security groups and subnets that are attached to a project.+newProject ::+  Project+newProject =+  Project'+    { arn = Prelude.Nothing,+      created = Prelude.Nothing,+      defaultJobTimeoutMinutes = Prelude.Nothing,+      name = Prelude.Nothing,+      vpcConfig = Prelude.Nothing+    }++-- | The project\'s ARN.+project_arn :: Lens.Lens' Project (Prelude.Maybe Prelude.Text)+project_arn = Lens.lens (\Project' {arn} -> arn) (\s@Project' {} a -> s {arn = a} :: Project)++-- | When the project was created.+project_created :: Lens.Lens' Project (Prelude.Maybe Prelude.UTCTime)+project_created = Lens.lens (\Project' {created} -> created) (\s@Project' {} a -> s {created = a} :: Project) Prelude.. Lens.mapping Data._Time++-- | The default number of minutes (at the project level) a test run executes+-- before it times out. The default value is 150 minutes.+project_defaultJobTimeoutMinutes :: Lens.Lens' Project (Prelude.Maybe Prelude.Int)+project_defaultJobTimeoutMinutes = Lens.lens (\Project' {defaultJobTimeoutMinutes} -> defaultJobTimeoutMinutes) (\s@Project' {} a -> s {defaultJobTimeoutMinutes = a} :: Project)++-- | The project\'s name.+project_name :: Lens.Lens' Project (Prelude.Maybe Prelude.Text)+project_name = Lens.lens (\Project' {name} -> name) (\s@Project' {} a -> s {name = a} :: Project)++-- | The VPC security groups and subnets that are attached to a project.+project_vpcConfig :: Lens.Lens' Project (Prelude.Maybe VpcConfig)+project_vpcConfig = Lens.lens (\Project' {vpcConfig} -> vpcConfig) (\s@Project' {} a -> s {vpcConfig = a} :: Project)++instance Data.FromJSON Project where+  parseJSON =+    Data.withObject+      "Project"+      ( \x ->+          Project'+            Prelude.<$> (x Data..:? "arn")+            Prelude.<*> (x Data..:? "created")+            Prelude.<*> (x Data..:? "defaultJobTimeoutMinutes")+            Prelude.<*> (x Data..:? "name")+            Prelude.<*> (x Data..:? "vpcConfig")+      )++instance Prelude.Hashable Project where+  hashWithSalt _salt Project' {..} =+    _salt+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` created+      `Prelude.hashWithSalt` defaultJobTimeoutMinutes+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` vpcConfig++instance Prelude.NFData Project where+  rnf Project' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf created+      `Prelude.seq` Prelude.rnf defaultJobTimeoutMinutes+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf vpcConfig
+ gen/Amazonka/DeviceFarm/Types/Radios.hs view
@@ -0,0 +1,123 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.Radios+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.Radios where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Represents the set of radios and their states on a device. Examples of+-- radios include Wi-Fi, GPS, Bluetooth, and NFC.+--+-- /See:/ 'newRadios' smart constructor.+data Radios = Radios'+  { -- | True if Bluetooth is enabled at the beginning of the test. Otherwise,+    -- false.+    bluetooth :: Prelude.Maybe Prelude.Bool,+    -- | True if GPS is enabled at the beginning of the test. Otherwise, false.+    gps :: Prelude.Maybe Prelude.Bool,+    -- | True if NFC is enabled at the beginning of the test. Otherwise, false.+    nfc :: Prelude.Maybe Prelude.Bool,+    -- | True if Wi-Fi is enabled at the beginning of the test. Otherwise, false.+    wifi :: Prelude.Maybe Prelude.Bool+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Radios' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'bluetooth', 'radios_bluetooth' - True if Bluetooth is enabled at the beginning of the test. Otherwise,+-- false.+--+-- 'gps', 'radios_gps' - True if GPS is enabled at the beginning of the test. Otherwise, false.+--+-- 'nfc', 'radios_nfc' - True if NFC is enabled at the beginning of the test. Otherwise, false.+--+-- 'wifi', 'radios_wifi' - True if Wi-Fi is enabled at the beginning of the test. Otherwise, false.+newRadios ::+  Radios+newRadios =+  Radios'+    { bluetooth = Prelude.Nothing,+      gps = Prelude.Nothing,+      nfc = Prelude.Nothing,+      wifi = Prelude.Nothing+    }++-- | True if Bluetooth is enabled at the beginning of the test. Otherwise,+-- false.+radios_bluetooth :: Lens.Lens' Radios (Prelude.Maybe Prelude.Bool)+radios_bluetooth = Lens.lens (\Radios' {bluetooth} -> bluetooth) (\s@Radios' {} a -> s {bluetooth = a} :: Radios)++-- | True if GPS is enabled at the beginning of the test. Otherwise, false.+radios_gps :: Lens.Lens' Radios (Prelude.Maybe Prelude.Bool)+radios_gps = Lens.lens (\Radios' {gps} -> gps) (\s@Radios' {} a -> s {gps = a} :: Radios)++-- | True if NFC is enabled at the beginning of the test. Otherwise, false.+radios_nfc :: Lens.Lens' Radios (Prelude.Maybe Prelude.Bool)+radios_nfc = Lens.lens (\Radios' {nfc} -> nfc) (\s@Radios' {} a -> s {nfc = a} :: Radios)++-- | True if Wi-Fi is enabled at the beginning of the test. Otherwise, false.+radios_wifi :: Lens.Lens' Radios (Prelude.Maybe Prelude.Bool)+radios_wifi = Lens.lens (\Radios' {wifi} -> wifi) (\s@Radios' {} a -> s {wifi = a} :: Radios)++instance Data.FromJSON Radios where+  parseJSON =+    Data.withObject+      "Radios"+      ( \x ->+          Radios'+            Prelude.<$> (x Data..:? "bluetooth")+            Prelude.<*> (x Data..:? "gps")+            Prelude.<*> (x Data..:? "nfc")+            Prelude.<*> (x Data..:? "wifi")+      )++instance Prelude.Hashable Radios where+  hashWithSalt _salt Radios' {..} =+    _salt+      `Prelude.hashWithSalt` bluetooth+      `Prelude.hashWithSalt` gps+      `Prelude.hashWithSalt` nfc+      `Prelude.hashWithSalt` wifi++instance Prelude.NFData Radios where+  rnf Radios' {..} =+    Prelude.rnf bluetooth+      `Prelude.seq` Prelude.rnf gps+      `Prelude.seq` Prelude.rnf nfc+      `Prelude.seq` Prelude.rnf wifi++instance Data.ToJSON Radios where+  toJSON Radios' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("bluetooth" Data..=) Prelude.<$> bluetooth,+            ("gps" Data..=) Prelude.<$> gps,+            ("nfc" Data..=) Prelude.<$> nfc,+            ("wifi" Data..=) Prelude.<$> wifi+          ]+      )
+ gen/Amazonka/DeviceFarm/Types/RecurringCharge.hs view
@@ -0,0 +1,86 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.RecurringCharge+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.RecurringCharge where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.MonetaryAmount+import Amazonka.DeviceFarm.Types.RecurringChargeFrequency+import qualified Amazonka.Prelude as Prelude++-- | Specifies whether charges for devices are recurring.+--+-- /See:/ 'newRecurringCharge' smart constructor.+data RecurringCharge = RecurringCharge'+  { -- | The cost of the recurring charge.+    cost :: Prelude.Maybe MonetaryAmount,+    -- | The frequency in which charges recur.+    frequency :: Prelude.Maybe RecurringChargeFrequency+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RecurringCharge' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cost', 'recurringCharge_cost' - The cost of the recurring charge.+--+-- 'frequency', 'recurringCharge_frequency' - The frequency in which charges recur.+newRecurringCharge ::+  RecurringCharge+newRecurringCharge =+  RecurringCharge'+    { cost = Prelude.Nothing,+      frequency = Prelude.Nothing+    }++-- | The cost of the recurring charge.+recurringCharge_cost :: Lens.Lens' RecurringCharge (Prelude.Maybe MonetaryAmount)+recurringCharge_cost = Lens.lens (\RecurringCharge' {cost} -> cost) (\s@RecurringCharge' {} a -> s {cost = a} :: RecurringCharge)++-- | The frequency in which charges recur.+recurringCharge_frequency :: Lens.Lens' RecurringCharge (Prelude.Maybe RecurringChargeFrequency)+recurringCharge_frequency = Lens.lens (\RecurringCharge' {frequency} -> frequency) (\s@RecurringCharge' {} a -> s {frequency = a} :: RecurringCharge)++instance Data.FromJSON RecurringCharge where+  parseJSON =+    Data.withObject+      "RecurringCharge"+      ( \x ->+          RecurringCharge'+            Prelude.<$> (x Data..:? "cost")+            Prelude.<*> (x Data..:? "frequency")+      )++instance Prelude.Hashable RecurringCharge where+  hashWithSalt _salt RecurringCharge' {..} =+    _salt+      `Prelude.hashWithSalt` cost+      `Prelude.hashWithSalt` frequency++instance Prelude.NFData RecurringCharge where+  rnf RecurringCharge' {..} =+    Prelude.rnf cost+      `Prelude.seq` Prelude.rnf frequency
+ gen/Amazonka/DeviceFarm/Types/RecurringChargeFrequency.hs view
@@ -0,0 +1,66 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.RecurringChargeFrequency+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.RecurringChargeFrequency+  ( RecurringChargeFrequency+      ( ..,+        RecurringChargeFrequency_MONTHLY+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype RecurringChargeFrequency = RecurringChargeFrequency'+  { fromRecurringChargeFrequency ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern RecurringChargeFrequency_MONTHLY :: RecurringChargeFrequency+pattern RecurringChargeFrequency_MONTHLY = RecurringChargeFrequency' "MONTHLY"++{-# COMPLETE+  RecurringChargeFrequency_MONTHLY,+  RecurringChargeFrequency'+  #-}
+ gen/Amazonka/DeviceFarm/Types/RemoteAccessSession.hs view
@@ -0,0 +1,544 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.RemoteAccessSession+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.RemoteAccessSession where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.BillingMethod+import Amazonka.DeviceFarm.Types.Device+import Amazonka.DeviceFarm.Types.DeviceMinutes+import Amazonka.DeviceFarm.Types.ExecutionResult+import Amazonka.DeviceFarm.Types.ExecutionStatus+import Amazonka.DeviceFarm.Types.InteractionMode+import Amazonka.DeviceFarm.Types.VpcConfig+import qualified Amazonka.Prelude as Prelude++-- | Represents information about the remote access session.+--+-- /See:/ 'newRemoteAccessSession' smart constructor.+data RemoteAccessSession = RemoteAccessSession'+  { -- | The Amazon Resource Name (ARN) of the remote access session.+    arn :: Prelude.Maybe Prelude.Text,+    -- | The billing method of the remote access session. Possible values include+    -- @METERED@ or @UNMETERED@. For more information about metered devices,+    -- see+    -- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/welcome.html#welcome-terminology AWS Device Farm terminology>.+    billingMethod :: Prelude.Maybe BillingMethod,+    -- | Unique identifier of your client for the remote access session. Only+    -- returned if remote debugging is enabled for the remote access session.+    --+    -- Remote debugging is+    -- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>.+    clientId :: Prelude.Maybe Prelude.Text,+    -- | The date and time the remote access session was created.+    created :: Prelude.Maybe Data.POSIX,+    -- | The device (phone or tablet) used in the remote access session.+    device :: Prelude.Maybe Device,+    -- | The number of minutes a device is used in a remote access session+    -- (including setup and teardown minutes).+    deviceMinutes :: Prelude.Maybe DeviceMinutes,+    -- | Unique device identifier for the remote device. Only returned if remote+    -- debugging is enabled for the remote access session.+    --+    -- Remote debugging is+    -- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>.+    deviceUdid :: Prelude.Maybe Prelude.Text,+    -- | The endpoint for the remote access sesssion.+    endpoint :: Prelude.Maybe Prelude.Text,+    -- | 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.+    --+    -- Remote debugging is+    -- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>.+    hostAddress :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the instance.+    instanceArn :: Prelude.Maybe Prelude.Text,+    -- | 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.+    interactionMode :: Prelude.Maybe InteractionMode,+    -- | A message about the remote access session.+    message :: Prelude.Maybe Prelude.Text,+    -- | The name of the remote access session.+    name :: Prelude.Maybe Prelude.Text,+    -- | This flag is set to @true@ if remote debugging is enabled for the remote+    -- access session.+    --+    -- Remote debugging is+    -- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>.+    remoteDebugEnabled :: Prelude.Maybe Prelude.Bool,+    -- | The ARN for the app to be recorded in the remote access session.+    remoteRecordAppArn :: Prelude.Maybe Prelude.Text,+    -- | This flag is set to @true@ if remote recording is enabled for the remote+    -- access session.+    remoteRecordEnabled :: Prelude.Maybe Prelude.Bool,+    -- | The result of the remote access session. Can be any of the following:+    --+    -- -   PENDING.+    --+    -- -   PASSED.+    --+    -- -   WARNED.+    --+    -- -   FAILED.+    --+    -- -   SKIPPED.+    --+    -- -   ERRORED.+    --+    -- -   STOPPED.+    result :: Prelude.Maybe ExecutionResult,+    -- | When set to @true@, for private devices, Device Farm does not sign your+    -- app again. For public devices, Device Farm always signs your apps again.+    --+    -- For more information about how Device Farm re-signs your apps, see+    -- <http://aws.amazon.com/device-farm/faqs/ Do you modify my app?> in the+    -- /AWS Device Farm FAQs/.+    skipAppResign :: Prelude.Maybe Prelude.Bool,+    -- | The date and time the remote access session was started.+    started :: Prelude.Maybe Data.POSIX,+    -- | The status of the remote access session. Can be any of the following:+    --+    -- -   PENDING.+    --+    -- -   PENDING_CONCURRENCY.+    --+    -- -   PENDING_DEVICE.+    --+    -- -   PROCESSING.+    --+    -- -   SCHEDULING.+    --+    -- -   PREPARING.+    --+    -- -   RUNNING.+    --+    -- -   COMPLETED.+    --+    -- -   STOPPING.+    status :: Prelude.Maybe ExecutionStatus,+    -- | The date and time the remote access session was stopped.+    stopped :: Prelude.Maybe Data.POSIX,+    -- | The VPC security groups and subnets that are attached to a project.+    vpcConfig :: Prelude.Maybe VpcConfig+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RemoteAccessSession' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'remoteAccessSession_arn' - The Amazon Resource Name (ARN) of the remote access session.+--+-- 'billingMethod', 'remoteAccessSession_billingMethod' - The billing method of the remote access session. Possible values include+-- @METERED@ or @UNMETERED@. For more information about metered devices,+-- see+-- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/welcome.html#welcome-terminology AWS Device Farm terminology>.+--+-- 'clientId', 'remoteAccessSession_clientId' - Unique identifier of your client for the remote access session. Only+-- returned if remote debugging is enabled for the remote access session.+--+-- Remote debugging is+-- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>.+--+-- 'created', 'remoteAccessSession_created' - The date and time the remote access session was created.+--+-- 'device', 'remoteAccessSession_device' - The device (phone or tablet) used in the remote access session.+--+-- 'deviceMinutes', 'remoteAccessSession_deviceMinutes' - The number of minutes a device is used in a remote access session+-- (including setup and teardown minutes).+--+-- 'deviceUdid', 'remoteAccessSession_deviceUdid' - Unique device identifier for the remote device. Only returned if remote+-- debugging is enabled for the remote access session.+--+-- Remote debugging is+-- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>.+--+-- 'endpoint', 'remoteAccessSession_endpoint' - The endpoint for the remote access sesssion.+--+-- 'hostAddress', 'remoteAccessSession_hostAddress' - 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.+--+-- Remote debugging is+-- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>.+--+-- 'instanceArn', 'remoteAccessSession_instanceArn' - The ARN of the instance.+--+-- 'interactionMode', 'remoteAccessSession_interactionMode' - 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.+--+-- 'message', 'remoteAccessSession_message' - A message about the remote access session.+--+-- 'name', 'remoteAccessSession_name' - The name of the remote access session.+--+-- 'remoteDebugEnabled', 'remoteAccessSession_remoteDebugEnabled' - This flag is set to @true@ if remote debugging is enabled for the remote+-- access session.+--+-- Remote debugging is+-- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>.+--+-- 'remoteRecordAppArn', 'remoteAccessSession_remoteRecordAppArn' - The ARN for the app to be recorded in the remote access session.+--+-- 'remoteRecordEnabled', 'remoteAccessSession_remoteRecordEnabled' - This flag is set to @true@ if remote recording is enabled for the remote+-- access session.+--+-- 'result', 'remoteAccessSession_result' - The result of the remote access session. Can be any of the following:+--+-- -   PENDING.+--+-- -   PASSED.+--+-- -   WARNED.+--+-- -   FAILED.+--+-- -   SKIPPED.+--+-- -   ERRORED.+--+-- -   STOPPED.+--+-- 'skipAppResign', 'remoteAccessSession_skipAppResign' - When set to @true@, for private devices, Device Farm does not sign your+-- app again. For public devices, Device Farm always signs your apps again.+--+-- For more information about how Device Farm re-signs your apps, see+-- <http://aws.amazon.com/device-farm/faqs/ Do you modify my app?> in the+-- /AWS Device Farm FAQs/.+--+-- 'started', 'remoteAccessSession_started' - The date and time the remote access session was started.+--+-- 'status', 'remoteAccessSession_status' - The status of the remote access session. Can be any of the following:+--+-- -   PENDING.+--+-- -   PENDING_CONCURRENCY.+--+-- -   PENDING_DEVICE.+--+-- -   PROCESSING.+--+-- -   SCHEDULING.+--+-- -   PREPARING.+--+-- -   RUNNING.+--+-- -   COMPLETED.+--+-- -   STOPPING.+--+-- 'stopped', 'remoteAccessSession_stopped' - The date and time the remote access session was stopped.+--+-- 'vpcConfig', 'remoteAccessSession_vpcConfig' - The VPC security groups and subnets that are attached to a project.+newRemoteAccessSession ::+  RemoteAccessSession+newRemoteAccessSession =+  RemoteAccessSession'+    { arn = Prelude.Nothing,+      billingMethod = Prelude.Nothing,+      clientId = Prelude.Nothing,+      created = Prelude.Nothing,+      device = Prelude.Nothing,+      deviceMinutes = Prelude.Nothing,+      deviceUdid = Prelude.Nothing,+      endpoint = Prelude.Nothing,+      hostAddress = Prelude.Nothing,+      instanceArn = Prelude.Nothing,+      interactionMode = Prelude.Nothing,+      message = Prelude.Nothing,+      name = Prelude.Nothing,+      remoteDebugEnabled = Prelude.Nothing,+      remoteRecordAppArn = Prelude.Nothing,+      remoteRecordEnabled = Prelude.Nothing,+      result = Prelude.Nothing,+      skipAppResign = Prelude.Nothing,+      started = Prelude.Nothing,+      status = Prelude.Nothing,+      stopped = Prelude.Nothing,+      vpcConfig = Prelude.Nothing+    }++-- | The Amazon Resource Name (ARN) of the remote access session.+remoteAccessSession_arn :: Lens.Lens' RemoteAccessSession (Prelude.Maybe Prelude.Text)+remoteAccessSession_arn = Lens.lens (\RemoteAccessSession' {arn} -> arn) (\s@RemoteAccessSession' {} a -> s {arn = a} :: RemoteAccessSession)++-- | The billing method of the remote access session. Possible values include+-- @METERED@ or @UNMETERED@. For more information about metered devices,+-- see+-- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/welcome.html#welcome-terminology AWS Device Farm terminology>.+remoteAccessSession_billingMethod :: Lens.Lens' RemoteAccessSession (Prelude.Maybe BillingMethod)+remoteAccessSession_billingMethod = Lens.lens (\RemoteAccessSession' {billingMethod} -> billingMethod) (\s@RemoteAccessSession' {} a -> s {billingMethod = a} :: RemoteAccessSession)++-- | Unique identifier of your client for the remote access session. Only+-- returned if remote debugging is enabled for the remote access session.+--+-- Remote debugging is+-- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>.+remoteAccessSession_clientId :: Lens.Lens' RemoteAccessSession (Prelude.Maybe Prelude.Text)+remoteAccessSession_clientId = Lens.lens (\RemoteAccessSession' {clientId} -> clientId) (\s@RemoteAccessSession' {} a -> s {clientId = a} :: RemoteAccessSession)++-- | The date and time the remote access session was created.+remoteAccessSession_created :: Lens.Lens' RemoteAccessSession (Prelude.Maybe Prelude.UTCTime)+remoteAccessSession_created = Lens.lens (\RemoteAccessSession' {created} -> created) (\s@RemoteAccessSession' {} a -> s {created = a} :: RemoteAccessSession) Prelude.. Lens.mapping Data._Time++-- | The device (phone or tablet) used in the remote access session.+remoteAccessSession_device :: Lens.Lens' RemoteAccessSession (Prelude.Maybe Device)+remoteAccessSession_device = Lens.lens (\RemoteAccessSession' {device} -> device) (\s@RemoteAccessSession' {} a -> s {device = a} :: RemoteAccessSession)++-- | The number of minutes a device is used in a remote access session+-- (including setup and teardown minutes).+remoteAccessSession_deviceMinutes :: Lens.Lens' RemoteAccessSession (Prelude.Maybe DeviceMinutes)+remoteAccessSession_deviceMinutes = Lens.lens (\RemoteAccessSession' {deviceMinutes} -> deviceMinutes) (\s@RemoteAccessSession' {} a -> s {deviceMinutes = a} :: RemoteAccessSession)++-- | Unique device identifier for the remote device. Only returned if remote+-- debugging is enabled for the remote access session.+--+-- Remote debugging is+-- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>.+remoteAccessSession_deviceUdid :: Lens.Lens' RemoteAccessSession (Prelude.Maybe Prelude.Text)+remoteAccessSession_deviceUdid = Lens.lens (\RemoteAccessSession' {deviceUdid} -> deviceUdid) (\s@RemoteAccessSession' {} a -> s {deviceUdid = a} :: RemoteAccessSession)++-- | The endpoint for the remote access sesssion.+remoteAccessSession_endpoint :: Lens.Lens' RemoteAccessSession (Prelude.Maybe Prelude.Text)+remoteAccessSession_endpoint = Lens.lens (\RemoteAccessSession' {endpoint} -> endpoint) (\s@RemoteAccessSession' {} a -> s {endpoint = a} :: RemoteAccessSession)++-- | 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.+--+-- Remote debugging is+-- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>.+remoteAccessSession_hostAddress :: Lens.Lens' RemoteAccessSession (Prelude.Maybe Prelude.Text)+remoteAccessSession_hostAddress = Lens.lens (\RemoteAccessSession' {hostAddress} -> hostAddress) (\s@RemoteAccessSession' {} a -> s {hostAddress = a} :: RemoteAccessSession)++-- | The ARN of the instance.+remoteAccessSession_instanceArn :: Lens.Lens' RemoteAccessSession (Prelude.Maybe Prelude.Text)+remoteAccessSession_instanceArn = Lens.lens (\RemoteAccessSession' {instanceArn} -> instanceArn) (\s@RemoteAccessSession' {} a -> s {instanceArn = a} :: RemoteAccessSession)++-- | 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.+remoteAccessSession_interactionMode :: Lens.Lens' RemoteAccessSession (Prelude.Maybe InteractionMode)+remoteAccessSession_interactionMode = Lens.lens (\RemoteAccessSession' {interactionMode} -> interactionMode) (\s@RemoteAccessSession' {} a -> s {interactionMode = a} :: RemoteAccessSession)++-- | A message about the remote access session.+remoteAccessSession_message :: Lens.Lens' RemoteAccessSession (Prelude.Maybe Prelude.Text)+remoteAccessSession_message = Lens.lens (\RemoteAccessSession' {message} -> message) (\s@RemoteAccessSession' {} a -> s {message = a} :: RemoteAccessSession)++-- | The name of the remote access session.+remoteAccessSession_name :: Lens.Lens' RemoteAccessSession (Prelude.Maybe Prelude.Text)+remoteAccessSession_name = Lens.lens (\RemoteAccessSession' {name} -> name) (\s@RemoteAccessSession' {} a -> s {name = a} :: RemoteAccessSession)++-- | This flag is set to @true@ if remote debugging is enabled for the remote+-- access session.+--+-- Remote debugging is+-- <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>.+remoteAccessSession_remoteDebugEnabled :: Lens.Lens' RemoteAccessSession (Prelude.Maybe Prelude.Bool)+remoteAccessSession_remoteDebugEnabled = Lens.lens (\RemoteAccessSession' {remoteDebugEnabled} -> remoteDebugEnabled) (\s@RemoteAccessSession' {} a -> s {remoteDebugEnabled = a} :: RemoteAccessSession)++-- | The ARN for the app to be recorded in the remote access session.+remoteAccessSession_remoteRecordAppArn :: Lens.Lens' RemoteAccessSession (Prelude.Maybe Prelude.Text)+remoteAccessSession_remoteRecordAppArn = Lens.lens (\RemoteAccessSession' {remoteRecordAppArn} -> remoteRecordAppArn) (\s@RemoteAccessSession' {} a -> s {remoteRecordAppArn = a} :: RemoteAccessSession)++-- | This flag is set to @true@ if remote recording is enabled for the remote+-- access session.+remoteAccessSession_remoteRecordEnabled :: Lens.Lens' RemoteAccessSession (Prelude.Maybe Prelude.Bool)+remoteAccessSession_remoteRecordEnabled = Lens.lens (\RemoteAccessSession' {remoteRecordEnabled} -> remoteRecordEnabled) (\s@RemoteAccessSession' {} a -> s {remoteRecordEnabled = a} :: RemoteAccessSession)++-- | The result of the remote access session. Can be any of the following:+--+-- -   PENDING.+--+-- -   PASSED.+--+-- -   WARNED.+--+-- -   FAILED.+--+-- -   SKIPPED.+--+-- -   ERRORED.+--+-- -   STOPPED.+remoteAccessSession_result :: Lens.Lens' RemoteAccessSession (Prelude.Maybe ExecutionResult)+remoteAccessSession_result = Lens.lens (\RemoteAccessSession' {result} -> result) (\s@RemoteAccessSession' {} a -> s {result = a} :: RemoteAccessSession)++-- | When set to @true@, for private devices, Device Farm does not sign your+-- app again. For public devices, Device Farm always signs your apps again.+--+-- For more information about how Device Farm re-signs your apps, see+-- <http://aws.amazon.com/device-farm/faqs/ Do you modify my app?> in the+-- /AWS Device Farm FAQs/.+remoteAccessSession_skipAppResign :: Lens.Lens' RemoteAccessSession (Prelude.Maybe Prelude.Bool)+remoteAccessSession_skipAppResign = Lens.lens (\RemoteAccessSession' {skipAppResign} -> skipAppResign) (\s@RemoteAccessSession' {} a -> s {skipAppResign = a} :: RemoteAccessSession)++-- | The date and time the remote access session was started.+remoteAccessSession_started :: Lens.Lens' RemoteAccessSession (Prelude.Maybe Prelude.UTCTime)+remoteAccessSession_started = Lens.lens (\RemoteAccessSession' {started} -> started) (\s@RemoteAccessSession' {} a -> s {started = a} :: RemoteAccessSession) Prelude.. Lens.mapping Data._Time++-- | The status of the remote access session. Can be any of the following:+--+-- -   PENDING.+--+-- -   PENDING_CONCURRENCY.+--+-- -   PENDING_DEVICE.+--+-- -   PROCESSING.+--+-- -   SCHEDULING.+--+-- -   PREPARING.+--+-- -   RUNNING.+--+-- -   COMPLETED.+--+-- -   STOPPING.+remoteAccessSession_status :: Lens.Lens' RemoteAccessSession (Prelude.Maybe ExecutionStatus)+remoteAccessSession_status = Lens.lens (\RemoteAccessSession' {status} -> status) (\s@RemoteAccessSession' {} a -> s {status = a} :: RemoteAccessSession)++-- | The date and time the remote access session was stopped.+remoteAccessSession_stopped :: Lens.Lens' RemoteAccessSession (Prelude.Maybe Prelude.UTCTime)+remoteAccessSession_stopped = Lens.lens (\RemoteAccessSession' {stopped} -> stopped) (\s@RemoteAccessSession' {} a -> s {stopped = a} :: RemoteAccessSession) Prelude.. Lens.mapping Data._Time++-- | The VPC security groups and subnets that are attached to a project.+remoteAccessSession_vpcConfig :: Lens.Lens' RemoteAccessSession (Prelude.Maybe VpcConfig)+remoteAccessSession_vpcConfig = Lens.lens (\RemoteAccessSession' {vpcConfig} -> vpcConfig) (\s@RemoteAccessSession' {} a -> s {vpcConfig = a} :: RemoteAccessSession)++instance Data.FromJSON RemoteAccessSession where+  parseJSON =+    Data.withObject+      "RemoteAccessSession"+      ( \x ->+          RemoteAccessSession'+            Prelude.<$> (x Data..:? "arn")+            Prelude.<*> (x Data..:? "billingMethod")+            Prelude.<*> (x Data..:? "clientId")+            Prelude.<*> (x Data..:? "created")+            Prelude.<*> (x Data..:? "device")+            Prelude.<*> (x Data..:? "deviceMinutes")+            Prelude.<*> (x Data..:? "deviceUdid")+            Prelude.<*> (x Data..:? "endpoint")+            Prelude.<*> (x Data..:? "hostAddress")+            Prelude.<*> (x Data..:? "instanceArn")+            Prelude.<*> (x Data..:? "interactionMode")+            Prelude.<*> (x Data..:? "message")+            Prelude.<*> (x Data..:? "name")+            Prelude.<*> (x Data..:? "remoteDebugEnabled")+            Prelude.<*> (x Data..:? "remoteRecordAppArn")+            Prelude.<*> (x Data..:? "remoteRecordEnabled")+            Prelude.<*> (x Data..:? "result")+            Prelude.<*> (x Data..:? "skipAppResign")+            Prelude.<*> (x Data..:? "started")+            Prelude.<*> (x Data..:? "status")+            Prelude.<*> (x Data..:? "stopped")+            Prelude.<*> (x Data..:? "vpcConfig")+      )++instance Prelude.Hashable RemoteAccessSession where+  hashWithSalt _salt RemoteAccessSession' {..} =+    _salt+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` billingMethod+      `Prelude.hashWithSalt` clientId+      `Prelude.hashWithSalt` created+      `Prelude.hashWithSalt` device+      `Prelude.hashWithSalt` deviceMinutes+      `Prelude.hashWithSalt` deviceUdid+      `Prelude.hashWithSalt` endpoint+      `Prelude.hashWithSalt` hostAddress+      `Prelude.hashWithSalt` instanceArn+      `Prelude.hashWithSalt` interactionMode+      `Prelude.hashWithSalt` message+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` remoteDebugEnabled+      `Prelude.hashWithSalt` remoteRecordAppArn+      `Prelude.hashWithSalt` remoteRecordEnabled+      `Prelude.hashWithSalt` result+      `Prelude.hashWithSalt` skipAppResign+      `Prelude.hashWithSalt` started+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` stopped+      `Prelude.hashWithSalt` vpcConfig++instance Prelude.NFData RemoteAccessSession where+  rnf RemoteAccessSession' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf billingMethod+      `Prelude.seq` Prelude.rnf clientId+      `Prelude.seq` Prelude.rnf created+      `Prelude.seq` Prelude.rnf device+      `Prelude.seq` Prelude.rnf deviceMinutes+      `Prelude.seq` Prelude.rnf deviceUdid+      `Prelude.seq` Prelude.rnf endpoint+      `Prelude.seq` Prelude.rnf hostAddress+      `Prelude.seq` Prelude.rnf instanceArn+      `Prelude.seq` Prelude.rnf interactionMode+      `Prelude.seq` Prelude.rnf message+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf remoteDebugEnabled+      `Prelude.seq` Prelude.rnf remoteRecordAppArn+      `Prelude.seq` Prelude.rnf remoteRecordEnabled+      `Prelude.seq` Prelude.rnf result+      `Prelude.seq` Prelude.rnf skipAppResign+      `Prelude.seq` Prelude.rnf started+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf stopped+      `Prelude.seq` Prelude.rnf vpcConfig
+ gen/Amazonka/DeviceFarm/Types/Resolution.hs view
@@ -0,0 +1,84 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.Resolution+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.Resolution where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Represents the screen resolution of a device in height and width,+-- expressed in pixels.+--+-- /See:/ 'newResolution' smart constructor.+data Resolution = Resolution'+  { -- | The screen resolution\'s height, expressed in pixels.+    height :: Prelude.Maybe Prelude.Int,+    -- | The screen resolution\'s width, expressed in pixels.+    width :: Prelude.Maybe Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Resolution' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'height', 'resolution_height' - The screen resolution\'s height, expressed in pixels.+--+-- 'width', 'resolution_width' - The screen resolution\'s width, expressed in pixels.+newResolution ::+  Resolution+newResolution =+  Resolution'+    { height = Prelude.Nothing,+      width = Prelude.Nothing+    }++-- | The screen resolution\'s height, expressed in pixels.+resolution_height :: Lens.Lens' Resolution (Prelude.Maybe Prelude.Int)+resolution_height = Lens.lens (\Resolution' {height} -> height) (\s@Resolution' {} a -> s {height = a} :: Resolution)++-- | The screen resolution\'s width, expressed in pixels.+resolution_width :: Lens.Lens' Resolution (Prelude.Maybe Prelude.Int)+resolution_width = Lens.lens (\Resolution' {width} -> width) (\s@Resolution' {} a -> s {width = a} :: Resolution)++instance Data.FromJSON Resolution where+  parseJSON =+    Data.withObject+      "Resolution"+      ( \x ->+          Resolution'+            Prelude.<$> (x Data..:? "height")+            Prelude.<*> (x Data..:? "width")+      )++instance Prelude.Hashable Resolution where+  hashWithSalt _salt Resolution' {..} =+    _salt+      `Prelude.hashWithSalt` height+      `Prelude.hashWithSalt` width++instance Prelude.NFData Resolution where+  rnf Resolution' {..} =+    Prelude.rnf height `Prelude.seq` Prelude.rnf width
+ gen/Amazonka/DeviceFarm/Types/Rule.hs view
@@ -0,0 +1,351 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.Rule+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.Rule where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.DeviceAttribute+import Amazonka.DeviceFarm.Types.RuleOperator+import qualified Amazonka.Prelude as Prelude++-- | Represents a condition for a device pool.+--+-- /See:/ 'newRule' smart constructor.+data Rule = Rule'+  { -- | The rule\'s stringified attribute. For example, specify the value as+    -- @\"\\\"abc\\\"\"@.+    --+    -- The supported operators for each attribute are provided in the following+    -- list.+    --+    -- [APPIUM_VERSION]+    --     The Appium version for the test.+    --+    --     Supported operators: @CONTAINS@+    --+    -- [ARN]+    --     The Amazon Resource Name (ARN) of the device (for example,+    --     @arn:aws:devicefarm:us-west-2::device:12345Example@.+    --+    --     Supported operators: @EQUALS@, @IN@, @NOT_IN@+    --+    -- [AVAILABILITY]+    --     The current availability of the device. Valid values are AVAILABLE,+    --     HIGHLY_AVAILABLE, BUSY, or TEMPORARY_NOT_AVAILABLE.+    --+    --     Supported operators: @EQUALS@+    --+    -- [FLEET_TYPE]+    --     The fleet type. Valid values are PUBLIC or PRIVATE.+    --+    --     Supported operators: @EQUALS@+    --+    -- [FORM_FACTOR]+    --     The device form factor. Valid values are PHONE or TABLET.+    --+    --     Supported operators: @EQUALS@, @IN@, @NOT_IN@+    --+    -- [INSTANCE_ARN]+    --     The Amazon Resource Name (ARN) of the device instance.+    --+    --     Supported operators: @IN@, @NOT_IN@+    --+    -- [INSTANCE_LABELS]+    --     The label of the device instance.+    --+    --     Supported operators: @CONTAINS@+    --+    -- [MANUFACTURER]+    --     The device manufacturer (for example, Apple).+    --+    --     Supported operators: @EQUALS@, @IN@, @NOT_IN@+    --+    -- [MODEL]+    --     The device model, such as Apple iPad Air 2 or Google Pixel.+    --+    --     Supported operators: @CONTAINS@, @EQUALS@, @IN@, @NOT_IN@+    --+    -- [OS_VERSION]+    --     The operating system version (for example, 10.3.2).+    --+    --     Supported operators: @EQUALS@, @GREATER_THAN@,+    --     @GREATER_THAN_OR_EQUALS@, @IN@, @LESS_THAN@, @LESS_THAN_OR_EQUALS@,+    --     @NOT_IN@+    --+    -- [PLATFORM]+    --     The device platform. Valid values are ANDROID or IOS.+    --+    --     Supported operators: @EQUALS@, @IN@, @NOT_IN@+    --+    -- [REMOTE_ACCESS_ENABLED]+    --     Whether the device is enabled for remote access. Valid values are+    --     TRUE or FALSE.+    --+    --     Supported operators: @EQUALS@+    --+    -- [REMOTE_DEBUG_ENABLED]+    --     Whether the device is enabled for remote debugging. Valid values are+    --     TRUE or FALSE.+    --+    --     Supported operators: @EQUALS@+    --+    --     Because remote debugging is+    --     <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>,+    --     this filter is ignored.+    attribute :: Prelude.Maybe DeviceAttribute,+    -- | Specifies how Device Farm compares the rule\'s attribute to the value.+    -- For the operators that are supported by each attribute, see the+    -- attribute descriptions.+    operator :: Prelude.Maybe RuleOperator,+    -- | The rule\'s value.+    value :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Rule' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'attribute', 'rule_attribute' - The rule\'s stringified attribute. For example, specify the value as+-- @\"\\\"abc\\\"\"@.+--+-- The supported operators for each attribute are provided in the following+-- list.+--+-- [APPIUM_VERSION]+--     The Appium version for the test.+--+--     Supported operators: @CONTAINS@+--+-- [ARN]+--     The Amazon Resource Name (ARN) of the device (for example,+--     @arn:aws:devicefarm:us-west-2::device:12345Example@.+--+--     Supported operators: @EQUALS@, @IN@, @NOT_IN@+--+-- [AVAILABILITY]+--     The current availability of the device. Valid values are AVAILABLE,+--     HIGHLY_AVAILABLE, BUSY, or TEMPORARY_NOT_AVAILABLE.+--+--     Supported operators: @EQUALS@+--+-- [FLEET_TYPE]+--     The fleet type. Valid values are PUBLIC or PRIVATE.+--+--     Supported operators: @EQUALS@+--+-- [FORM_FACTOR]+--     The device form factor. Valid values are PHONE or TABLET.+--+--     Supported operators: @EQUALS@, @IN@, @NOT_IN@+--+-- [INSTANCE_ARN]+--     The Amazon Resource Name (ARN) of the device instance.+--+--     Supported operators: @IN@, @NOT_IN@+--+-- [INSTANCE_LABELS]+--     The label of the device instance.+--+--     Supported operators: @CONTAINS@+--+-- [MANUFACTURER]+--     The device manufacturer (for example, Apple).+--+--     Supported operators: @EQUALS@, @IN@, @NOT_IN@+--+-- [MODEL]+--     The device model, such as Apple iPad Air 2 or Google Pixel.+--+--     Supported operators: @CONTAINS@, @EQUALS@, @IN@, @NOT_IN@+--+-- [OS_VERSION]+--     The operating system version (for example, 10.3.2).+--+--     Supported operators: @EQUALS@, @GREATER_THAN@,+--     @GREATER_THAN_OR_EQUALS@, @IN@, @LESS_THAN@, @LESS_THAN_OR_EQUALS@,+--     @NOT_IN@+--+-- [PLATFORM]+--     The device platform. Valid values are ANDROID or IOS.+--+--     Supported operators: @EQUALS@, @IN@, @NOT_IN@+--+-- [REMOTE_ACCESS_ENABLED]+--     Whether the device is enabled for remote access. Valid values are+--     TRUE or FALSE.+--+--     Supported operators: @EQUALS@+--+-- [REMOTE_DEBUG_ENABLED]+--     Whether the device is enabled for remote debugging. Valid values are+--     TRUE or FALSE.+--+--     Supported operators: @EQUALS@+--+--     Because remote debugging is+--     <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>,+--     this filter is ignored.+--+-- 'operator', 'rule_operator' - Specifies how Device Farm compares the rule\'s attribute to the value.+-- For the operators that are supported by each attribute, see the+-- attribute descriptions.+--+-- 'value', 'rule_value' - The rule\'s value.+newRule ::+  Rule+newRule =+  Rule'+    { attribute = Prelude.Nothing,+      operator = Prelude.Nothing,+      value = Prelude.Nothing+    }++-- | The rule\'s stringified attribute. For example, specify the value as+-- @\"\\\"abc\\\"\"@.+--+-- The supported operators for each attribute are provided in the following+-- list.+--+-- [APPIUM_VERSION]+--     The Appium version for the test.+--+--     Supported operators: @CONTAINS@+--+-- [ARN]+--     The Amazon Resource Name (ARN) of the device (for example,+--     @arn:aws:devicefarm:us-west-2::device:12345Example@.+--+--     Supported operators: @EQUALS@, @IN@, @NOT_IN@+--+-- [AVAILABILITY]+--     The current availability of the device. Valid values are AVAILABLE,+--     HIGHLY_AVAILABLE, BUSY, or TEMPORARY_NOT_AVAILABLE.+--+--     Supported operators: @EQUALS@+--+-- [FLEET_TYPE]+--     The fleet type. Valid values are PUBLIC or PRIVATE.+--+--     Supported operators: @EQUALS@+--+-- [FORM_FACTOR]+--     The device form factor. Valid values are PHONE or TABLET.+--+--     Supported operators: @EQUALS@, @IN@, @NOT_IN@+--+-- [INSTANCE_ARN]+--     The Amazon Resource Name (ARN) of the device instance.+--+--     Supported operators: @IN@, @NOT_IN@+--+-- [INSTANCE_LABELS]+--     The label of the device instance.+--+--     Supported operators: @CONTAINS@+--+-- [MANUFACTURER]+--     The device manufacturer (for example, Apple).+--+--     Supported operators: @EQUALS@, @IN@, @NOT_IN@+--+-- [MODEL]+--     The device model, such as Apple iPad Air 2 or Google Pixel.+--+--     Supported operators: @CONTAINS@, @EQUALS@, @IN@, @NOT_IN@+--+-- [OS_VERSION]+--     The operating system version (for example, 10.3.2).+--+--     Supported operators: @EQUALS@, @GREATER_THAN@,+--     @GREATER_THAN_OR_EQUALS@, @IN@, @LESS_THAN@, @LESS_THAN_OR_EQUALS@,+--     @NOT_IN@+--+-- [PLATFORM]+--     The device platform. Valid values are ANDROID or IOS.+--+--     Supported operators: @EQUALS@, @IN@, @NOT_IN@+--+-- [REMOTE_ACCESS_ENABLED]+--     Whether the device is enabled for remote access. Valid values are+--     TRUE or FALSE.+--+--     Supported operators: @EQUALS@+--+-- [REMOTE_DEBUG_ENABLED]+--     Whether the device is enabled for remote debugging. Valid values are+--     TRUE or FALSE.+--+--     Supported operators: @EQUALS@+--+--     Because remote debugging is+--     <https://docs.aws.amazon.com/devicefarm/latest/developerguide/history.html no longer supported>,+--     this filter is ignored.+rule_attribute :: Lens.Lens' Rule (Prelude.Maybe DeviceAttribute)+rule_attribute = Lens.lens (\Rule' {attribute} -> attribute) (\s@Rule' {} a -> s {attribute = a} :: Rule)++-- | Specifies how Device Farm compares the rule\'s attribute to the value.+-- For the operators that are supported by each attribute, see the+-- attribute descriptions.+rule_operator :: Lens.Lens' Rule (Prelude.Maybe RuleOperator)+rule_operator = Lens.lens (\Rule' {operator} -> operator) (\s@Rule' {} a -> s {operator = a} :: Rule)++-- | The rule\'s value.+rule_value :: Lens.Lens' Rule (Prelude.Maybe Prelude.Text)+rule_value = Lens.lens (\Rule' {value} -> value) (\s@Rule' {} a -> s {value = a} :: Rule)++instance Data.FromJSON Rule where+  parseJSON =+    Data.withObject+      "Rule"+      ( \x ->+          Rule'+            Prelude.<$> (x Data..:? "attribute")+            Prelude.<*> (x Data..:? "operator")+            Prelude.<*> (x Data..:? "value")+      )++instance Prelude.Hashable Rule where+  hashWithSalt _salt Rule' {..} =+    _salt+      `Prelude.hashWithSalt` attribute+      `Prelude.hashWithSalt` operator+      `Prelude.hashWithSalt` value++instance Prelude.NFData Rule where+  rnf Rule' {..} =+    Prelude.rnf attribute+      `Prelude.seq` Prelude.rnf operator+      `Prelude.seq` Prelude.rnf value++instance Data.ToJSON Rule where+  toJSON Rule' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("attribute" Data..=) Prelude.<$> attribute,+            ("operator" Data..=) Prelude.<$> operator,+            ("value" Data..=) Prelude.<$> value+          ]+      )
+ gen/Amazonka/DeviceFarm/Types/RuleOperator.hs view
@@ -0,0 +1,101 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.RuleOperator+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.RuleOperator+  ( RuleOperator+      ( ..,+        RuleOperator_CONTAINS,+        RuleOperator_EQUALS,+        RuleOperator_GREATER_THAN,+        RuleOperator_GREATER_THAN_OR_EQUALS,+        RuleOperator_IN,+        RuleOperator_LESS_THAN,+        RuleOperator_LESS_THAN_OR_EQUALS,+        RuleOperator_NOT_IN+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype RuleOperator = RuleOperator'+  { fromRuleOperator ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern RuleOperator_CONTAINS :: RuleOperator+pattern RuleOperator_CONTAINS = RuleOperator' "CONTAINS"++pattern RuleOperator_EQUALS :: RuleOperator+pattern RuleOperator_EQUALS = RuleOperator' "EQUALS"++pattern RuleOperator_GREATER_THAN :: RuleOperator+pattern RuleOperator_GREATER_THAN = RuleOperator' "GREATER_THAN"++pattern RuleOperator_GREATER_THAN_OR_EQUALS :: RuleOperator+pattern RuleOperator_GREATER_THAN_OR_EQUALS = RuleOperator' "GREATER_THAN_OR_EQUALS"++pattern RuleOperator_IN :: RuleOperator+pattern RuleOperator_IN = RuleOperator' "IN"++pattern RuleOperator_LESS_THAN :: RuleOperator+pattern RuleOperator_LESS_THAN = RuleOperator' "LESS_THAN"++pattern RuleOperator_LESS_THAN_OR_EQUALS :: RuleOperator+pattern RuleOperator_LESS_THAN_OR_EQUALS = RuleOperator' "LESS_THAN_OR_EQUALS"++pattern RuleOperator_NOT_IN :: RuleOperator+pattern RuleOperator_NOT_IN = RuleOperator' "NOT_IN"++{-# COMPLETE+  RuleOperator_CONTAINS,+  RuleOperator_EQUALS,+  RuleOperator_GREATER_THAN,+  RuleOperator_GREATER_THAN_OR_EQUALS,+  RuleOperator_IN,+  RuleOperator_LESS_THAN,+  RuleOperator_LESS_THAN_OR_EQUALS,+  RuleOperator_NOT_IN,+  RuleOperator'+  #-}
+ gen/Amazonka/DeviceFarm/Types/Run.hs view
@@ -0,0 +1,772 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.Run+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.Run where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.BillingMethod+import Amazonka.DeviceFarm.Types.Counters+import Amazonka.DeviceFarm.Types.CustomerArtifactPaths+import Amazonka.DeviceFarm.Types.DeviceMinutes+import Amazonka.DeviceFarm.Types.DevicePlatform+import Amazonka.DeviceFarm.Types.DeviceSelectionResult+import Amazonka.DeviceFarm.Types.ExecutionResult+import Amazonka.DeviceFarm.Types.ExecutionResultCode+import Amazonka.DeviceFarm.Types.ExecutionStatus+import Amazonka.DeviceFarm.Types.Location+import Amazonka.DeviceFarm.Types.NetworkProfile+import Amazonka.DeviceFarm.Types.Radios+import Amazonka.DeviceFarm.Types.TestType+import Amazonka.DeviceFarm.Types.VpcConfig+import qualified Amazonka.Prelude as Prelude++-- | Represents a test run on a set of devices with a given app package, test+-- parameters, and so on.+--+-- /See:/ 'newRun' smart constructor.+data Run = Run'+  { -- | An app to upload or that has been uploaded.+    appUpload :: Prelude.Maybe Prelude.Text,+    -- | The run\'s ARN.+    arn :: Prelude.Maybe Prelude.Text,+    -- | Specifies the billing method for a test run: @metered@ or @unmetered@.+    -- If the parameter is not specified, the default value is @metered@.+    --+    -- If you have unmetered device slots, you must set this to @unmetered@ to+    -- use them. Otherwise, the run is counted toward metered device minutes.+    billingMethod :: Prelude.Maybe BillingMethod,+    -- | The total number of completed jobs.+    completedJobs :: Prelude.Maybe Prelude.Int,+    -- | The run\'s result counters.+    counters :: Prelude.Maybe Counters,+    -- | When the run was created.+    created :: Prelude.Maybe Data.POSIX,+    -- | Output @CustomerArtifactPaths@ object for the test run.+    customerArtifactPaths :: Prelude.Maybe CustomerArtifactPaths,+    -- | Represents the total (metered or unmetered) minutes used by the test+    -- run.+    deviceMinutes :: Prelude.Maybe DeviceMinutes,+    -- | The ARN of the device pool for the run.+    devicePoolArn :: Prelude.Maybe Prelude.Text,+    -- | The results of a device filter used to select the devices for a test+    -- run.+    deviceSelectionResult :: Prelude.Maybe DeviceSelectionResult,+    -- | For fuzz tests, this is the number of events, between 1 and 10000, that+    -- the UI fuzz test should perform.+    eventCount :: Prelude.Maybe Prelude.Int,+    -- | The number of minutes the job executes before it times out.+    jobTimeoutMinutes :: Prelude.Maybe Prelude.Int,+    -- | Information about the locale that is used for the run.+    locale :: Prelude.Maybe Prelude.Text,+    -- | Information about the location that is used for the run.+    location :: Prelude.Maybe Location,+    -- | A message about the run\'s result.+    message :: Prelude.Maybe Prelude.Text,+    -- | The run\'s name.+    name :: Prelude.Maybe Prelude.Text,+    -- | The network profile being used for a test run.+    networkProfile :: Prelude.Maybe NetworkProfile,+    -- | Read-only URL for an object in an 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.+    parsingResultUrl :: Prelude.Maybe Prelude.Text,+    -- | The run\'s platform.+    --+    -- Allowed values include:+    --+    -- -   ANDROID+    --+    -- -   IOS+    platform :: Prelude.Maybe DevicePlatform,+    -- | Information about the radio states for the run.+    radios :: Prelude.Maybe Radios,+    -- | The run\'s result.+    --+    -- Allowed values include:+    --+    -- -   PENDING+    --+    -- -   PASSED+    --+    -- -   WARNED+    --+    -- -   FAILED+    --+    -- -   SKIPPED+    --+    -- -   ERRORED+    --+    -- -   STOPPED+    result :: Prelude.Maybe ExecutionResult,+    -- | 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.+    resultCode :: Prelude.Maybe ExecutionResultCode,+    -- | 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.+    seed :: Prelude.Maybe Prelude.Int,+    -- | When set to @true@, for private devices, Device Farm does not sign your+    -- app again. For public devices, Device Farm always signs your apps again.+    --+    -- For more information about how Device Farm re-signs your apps, see+    -- <http://aws.amazon.com/device-farm/faqs/ Do you modify my app?> in the+    -- /AWS Device Farm FAQs/.+    skipAppResign :: Prelude.Maybe Prelude.Bool,+    -- | The run\'s start time.+    started :: Prelude.Maybe Data.POSIX,+    -- | The run\'s status.+    --+    -- Allowed values include:+    --+    -- -   PENDING+    --+    -- -   PENDING_CONCURRENCY+    --+    -- -   PENDING_DEVICE+    --+    -- -   PROCESSING+    --+    -- -   SCHEDULING+    --+    -- -   PREPARING+    --+    -- -   RUNNING+    --+    -- -   COMPLETED+    --+    -- -   STOPPING+    status :: Prelude.Maybe ExecutionStatus,+    -- | The run\'s stop time.+    stopped :: Prelude.Maybe Data.POSIX,+    -- | The ARN of the YAML-formatted test specification for the run.+    testSpecArn :: Prelude.Maybe Prelude.Text,+    -- | The total number of jobs for the run.+    totalJobs :: Prelude.Maybe Prelude.Int,+    -- | The run\'s type.+    --+    -- Must be one of the following values:+    --+    -- -   BUILTIN_FUZZ+    --+    -- -   BUILTIN_EXPLORER+    --+    --     For Android, an app explorer that traverses an Android app,+    --     interacting with it and capturing screenshots at the same time.+    --+    -- -   APPIUM_JAVA_JUNIT+    --+    -- -   APPIUM_JAVA_TESTNG+    --+    -- -   APPIUM_PYTHON+    --+    -- -   APPIUM_NODE+    --+    -- -   APPIUM_RUBY+    --+    -- -   APPIUM_WEB_JAVA_JUNIT+    --+    -- -   APPIUM_WEB_JAVA_TESTNG+    --+    -- -   APPIUM_WEB_PYTHON+    --+    -- -   APPIUM_WEB_NODE+    --+    -- -   APPIUM_WEB_RUBY+    --+    -- -   CALABASH+    --+    -- -   INSTRUMENTATION+    --+    -- -   UIAUTOMATION+    --+    -- -   UIAUTOMATOR+    --+    -- -   XCTEST+    --+    -- -   XCTEST_UI+    type' :: Prelude.Maybe TestType,+    -- | The VPC security groups and subnets that are attached to a project.+    vpcConfig :: Prelude.Maybe VpcConfig,+    -- | The Device Farm console URL for the recording of the run.+    webUrl :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Run' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'appUpload', 'run_appUpload' - An app to upload or that has been uploaded.+--+-- 'arn', 'run_arn' - The run\'s ARN.+--+-- 'billingMethod', 'run_billingMethod' - Specifies the billing method for a test run: @metered@ or @unmetered@.+-- If the parameter is not specified, the default value is @metered@.+--+-- If you have unmetered device slots, you must set this to @unmetered@ to+-- use them. Otherwise, the run is counted toward metered device minutes.+--+-- 'completedJobs', 'run_completedJobs' - The total number of completed jobs.+--+-- 'counters', 'run_counters' - The run\'s result counters.+--+-- 'created', 'run_created' - When the run was created.+--+-- 'customerArtifactPaths', 'run_customerArtifactPaths' - Output @CustomerArtifactPaths@ object for the test run.+--+-- 'deviceMinutes', 'run_deviceMinutes' - Represents the total (metered or unmetered) minutes used by the test+-- run.+--+-- 'devicePoolArn', 'run_devicePoolArn' - The ARN of the device pool for the run.+--+-- 'deviceSelectionResult', 'run_deviceSelectionResult' - The results of a device filter used to select the devices for a test+-- run.+--+-- 'eventCount', 'run_eventCount' - For fuzz tests, this is the number of events, between 1 and 10000, that+-- the UI fuzz test should perform.+--+-- 'jobTimeoutMinutes', 'run_jobTimeoutMinutes' - The number of minutes the job executes before it times out.+--+-- 'locale', 'run_locale' - Information about the locale that is used for the run.+--+-- 'location', 'run_location' - Information about the location that is used for the run.+--+-- 'message', 'run_message' - A message about the run\'s result.+--+-- 'name', 'run_name' - The run\'s name.+--+-- 'networkProfile', 'run_networkProfile' - The network profile being used for a test run.+--+-- 'parsingResultUrl', 'run_parsingResultUrl' - Read-only URL for an object in an 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.+--+-- 'platform', 'run_platform' - The run\'s platform.+--+-- Allowed values include:+--+-- -   ANDROID+--+-- -   IOS+--+-- 'radios', 'run_radios' - Information about the radio states for the run.+--+-- 'result', 'run_result' - The run\'s result.+--+-- Allowed values include:+--+-- -   PENDING+--+-- -   PASSED+--+-- -   WARNED+--+-- -   FAILED+--+-- -   SKIPPED+--+-- -   ERRORED+--+-- -   STOPPED+--+-- 'resultCode', 'run_resultCode' - 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.+--+-- 'seed', 'run_seed' - 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.+--+-- 'skipAppResign', 'run_skipAppResign' - When set to @true@, for private devices, Device Farm does not sign your+-- app again. For public devices, Device Farm always signs your apps again.+--+-- For more information about how Device Farm re-signs your apps, see+-- <http://aws.amazon.com/device-farm/faqs/ Do you modify my app?> in the+-- /AWS Device Farm FAQs/.+--+-- 'started', 'run_started' - The run\'s start time.+--+-- 'status', 'run_status' - The run\'s status.+--+-- Allowed values include:+--+-- -   PENDING+--+-- -   PENDING_CONCURRENCY+--+-- -   PENDING_DEVICE+--+-- -   PROCESSING+--+-- -   SCHEDULING+--+-- -   PREPARING+--+-- -   RUNNING+--+-- -   COMPLETED+--+-- -   STOPPING+--+-- 'stopped', 'run_stopped' - The run\'s stop time.+--+-- 'testSpecArn', 'run_testSpecArn' - The ARN of the YAML-formatted test specification for the run.+--+-- 'totalJobs', 'run_totalJobs' - The total number of jobs for the run.+--+-- 'type'', 'run_type' - The run\'s type.+--+-- Must be one of the following values:+--+-- -   BUILTIN_FUZZ+--+-- -   BUILTIN_EXPLORER+--+--     For Android, an app explorer that traverses an Android app,+--     interacting with it and capturing screenshots at the same time.+--+-- -   APPIUM_JAVA_JUNIT+--+-- -   APPIUM_JAVA_TESTNG+--+-- -   APPIUM_PYTHON+--+-- -   APPIUM_NODE+--+-- -   APPIUM_RUBY+--+-- -   APPIUM_WEB_JAVA_JUNIT+--+-- -   APPIUM_WEB_JAVA_TESTNG+--+-- -   APPIUM_WEB_PYTHON+--+-- -   APPIUM_WEB_NODE+--+-- -   APPIUM_WEB_RUBY+--+-- -   CALABASH+--+-- -   INSTRUMENTATION+--+-- -   UIAUTOMATION+--+-- -   UIAUTOMATOR+--+-- -   XCTEST+--+-- -   XCTEST_UI+--+-- 'vpcConfig', 'run_vpcConfig' - The VPC security groups and subnets that are attached to a project.+--+-- 'webUrl', 'run_webUrl' - The Device Farm console URL for the recording of the run.+newRun ::+  Run+newRun =+  Run'+    { appUpload = Prelude.Nothing,+      arn = Prelude.Nothing,+      billingMethod = Prelude.Nothing,+      completedJobs = Prelude.Nothing,+      counters = Prelude.Nothing,+      created = Prelude.Nothing,+      customerArtifactPaths = Prelude.Nothing,+      deviceMinutes = Prelude.Nothing,+      devicePoolArn = Prelude.Nothing,+      deviceSelectionResult = Prelude.Nothing,+      eventCount = Prelude.Nothing,+      jobTimeoutMinutes = Prelude.Nothing,+      locale = Prelude.Nothing,+      location = Prelude.Nothing,+      message = Prelude.Nothing,+      name = Prelude.Nothing,+      networkProfile = Prelude.Nothing,+      parsingResultUrl = Prelude.Nothing,+      platform = Prelude.Nothing,+      radios = Prelude.Nothing,+      result = Prelude.Nothing,+      resultCode = Prelude.Nothing,+      seed = Prelude.Nothing,+      skipAppResign = Prelude.Nothing,+      started = Prelude.Nothing,+      status = Prelude.Nothing,+      stopped = Prelude.Nothing,+      testSpecArn = Prelude.Nothing,+      totalJobs = Prelude.Nothing,+      type' = Prelude.Nothing,+      vpcConfig = Prelude.Nothing,+      webUrl = Prelude.Nothing+    }++-- | An app to upload or that has been uploaded.+run_appUpload :: Lens.Lens' Run (Prelude.Maybe Prelude.Text)+run_appUpload = Lens.lens (\Run' {appUpload} -> appUpload) (\s@Run' {} a -> s {appUpload = a} :: Run)++-- | The run\'s ARN.+run_arn :: Lens.Lens' Run (Prelude.Maybe Prelude.Text)+run_arn = Lens.lens (\Run' {arn} -> arn) (\s@Run' {} a -> s {arn = a} :: Run)++-- | Specifies the billing method for a test run: @metered@ or @unmetered@.+-- If the parameter is not specified, the default value is @metered@.+--+-- If you have unmetered device slots, you must set this to @unmetered@ to+-- use them. Otherwise, the run is counted toward metered device minutes.+run_billingMethod :: Lens.Lens' Run (Prelude.Maybe BillingMethod)+run_billingMethod = Lens.lens (\Run' {billingMethod} -> billingMethod) (\s@Run' {} a -> s {billingMethod = a} :: Run)++-- | The total number of completed jobs.+run_completedJobs :: Lens.Lens' Run (Prelude.Maybe Prelude.Int)+run_completedJobs = Lens.lens (\Run' {completedJobs} -> completedJobs) (\s@Run' {} a -> s {completedJobs = a} :: Run)++-- | The run\'s result counters.+run_counters :: Lens.Lens' Run (Prelude.Maybe Counters)+run_counters = Lens.lens (\Run' {counters} -> counters) (\s@Run' {} a -> s {counters = a} :: Run)++-- | When the run was created.+run_created :: Lens.Lens' Run (Prelude.Maybe Prelude.UTCTime)+run_created = Lens.lens (\Run' {created} -> created) (\s@Run' {} a -> s {created = a} :: Run) Prelude.. Lens.mapping Data._Time++-- | Output @CustomerArtifactPaths@ object for the test run.+run_customerArtifactPaths :: Lens.Lens' Run (Prelude.Maybe CustomerArtifactPaths)+run_customerArtifactPaths = Lens.lens (\Run' {customerArtifactPaths} -> customerArtifactPaths) (\s@Run' {} a -> s {customerArtifactPaths = a} :: Run)++-- | Represents the total (metered or unmetered) minutes used by the test+-- run.+run_deviceMinutes :: Lens.Lens' Run (Prelude.Maybe DeviceMinutes)+run_deviceMinutes = Lens.lens (\Run' {deviceMinutes} -> deviceMinutes) (\s@Run' {} a -> s {deviceMinutes = a} :: Run)++-- | The ARN of the device pool for the run.+run_devicePoolArn :: Lens.Lens' Run (Prelude.Maybe Prelude.Text)+run_devicePoolArn = Lens.lens (\Run' {devicePoolArn} -> devicePoolArn) (\s@Run' {} a -> s {devicePoolArn = a} :: Run)++-- | The results of a device filter used to select the devices for a test+-- run.+run_deviceSelectionResult :: Lens.Lens' Run (Prelude.Maybe DeviceSelectionResult)+run_deviceSelectionResult = Lens.lens (\Run' {deviceSelectionResult} -> deviceSelectionResult) (\s@Run' {} a -> s {deviceSelectionResult = a} :: Run)++-- | For fuzz tests, this is the number of events, between 1 and 10000, that+-- the UI fuzz test should perform.+run_eventCount :: Lens.Lens' Run (Prelude.Maybe Prelude.Int)+run_eventCount = Lens.lens (\Run' {eventCount} -> eventCount) (\s@Run' {} a -> s {eventCount = a} :: Run)++-- | The number of minutes the job executes before it times out.+run_jobTimeoutMinutes :: Lens.Lens' Run (Prelude.Maybe Prelude.Int)+run_jobTimeoutMinutes = Lens.lens (\Run' {jobTimeoutMinutes} -> jobTimeoutMinutes) (\s@Run' {} a -> s {jobTimeoutMinutes = a} :: Run)++-- | Information about the locale that is used for the run.+run_locale :: Lens.Lens' Run (Prelude.Maybe Prelude.Text)+run_locale = Lens.lens (\Run' {locale} -> locale) (\s@Run' {} a -> s {locale = a} :: Run)++-- | Information about the location that is used for the run.+run_location :: Lens.Lens' Run (Prelude.Maybe Location)+run_location = Lens.lens (\Run' {location} -> location) (\s@Run' {} a -> s {location = a} :: Run)++-- | A message about the run\'s result.+run_message :: Lens.Lens' Run (Prelude.Maybe Prelude.Text)+run_message = Lens.lens (\Run' {message} -> message) (\s@Run' {} a -> s {message = a} :: Run)++-- | The run\'s name.+run_name :: Lens.Lens' Run (Prelude.Maybe Prelude.Text)+run_name = Lens.lens (\Run' {name} -> name) (\s@Run' {} a -> s {name = a} :: Run)++-- | The network profile being used for a test run.+run_networkProfile :: Lens.Lens' Run (Prelude.Maybe NetworkProfile)+run_networkProfile = Lens.lens (\Run' {networkProfile} -> networkProfile) (\s@Run' {} a -> s {networkProfile = a} :: Run)++-- | Read-only URL for an object in an 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.+run_parsingResultUrl :: Lens.Lens' Run (Prelude.Maybe Prelude.Text)+run_parsingResultUrl = Lens.lens (\Run' {parsingResultUrl} -> parsingResultUrl) (\s@Run' {} a -> s {parsingResultUrl = a} :: Run)++-- | The run\'s platform.+--+-- Allowed values include:+--+-- -   ANDROID+--+-- -   IOS+run_platform :: Lens.Lens' Run (Prelude.Maybe DevicePlatform)+run_platform = Lens.lens (\Run' {platform} -> platform) (\s@Run' {} a -> s {platform = a} :: Run)++-- | Information about the radio states for the run.+run_radios :: Lens.Lens' Run (Prelude.Maybe Radios)+run_radios = Lens.lens (\Run' {radios} -> radios) (\s@Run' {} a -> s {radios = a} :: Run)++-- | The run\'s result.+--+-- Allowed values include:+--+-- -   PENDING+--+-- -   PASSED+--+-- -   WARNED+--+-- -   FAILED+--+-- -   SKIPPED+--+-- -   ERRORED+--+-- -   STOPPED+run_result :: Lens.Lens' Run (Prelude.Maybe ExecutionResult)+run_result = Lens.lens (\Run' {result} -> result) (\s@Run' {} a -> s {result = a} :: Run)++-- | 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.+run_resultCode :: Lens.Lens' Run (Prelude.Maybe ExecutionResultCode)+run_resultCode = Lens.lens (\Run' {resultCode} -> resultCode) (\s@Run' {} a -> s {resultCode = a} :: Run)++-- | 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.+run_seed :: Lens.Lens' Run (Prelude.Maybe Prelude.Int)+run_seed = Lens.lens (\Run' {seed} -> seed) (\s@Run' {} a -> s {seed = a} :: Run)++-- | When set to @true@, for private devices, Device Farm does not sign your+-- app again. For public devices, Device Farm always signs your apps again.+--+-- For more information about how Device Farm re-signs your apps, see+-- <http://aws.amazon.com/device-farm/faqs/ Do you modify my app?> in the+-- /AWS Device Farm FAQs/.+run_skipAppResign :: Lens.Lens' Run (Prelude.Maybe Prelude.Bool)+run_skipAppResign = Lens.lens (\Run' {skipAppResign} -> skipAppResign) (\s@Run' {} a -> s {skipAppResign = a} :: Run)++-- | The run\'s start time.+run_started :: Lens.Lens' Run (Prelude.Maybe Prelude.UTCTime)+run_started = Lens.lens (\Run' {started} -> started) (\s@Run' {} a -> s {started = a} :: Run) Prelude.. Lens.mapping Data._Time++-- | The run\'s status.+--+-- Allowed values include:+--+-- -   PENDING+--+-- -   PENDING_CONCURRENCY+--+-- -   PENDING_DEVICE+--+-- -   PROCESSING+--+-- -   SCHEDULING+--+-- -   PREPARING+--+-- -   RUNNING+--+-- -   COMPLETED+--+-- -   STOPPING+run_status :: Lens.Lens' Run (Prelude.Maybe ExecutionStatus)+run_status = Lens.lens (\Run' {status} -> status) (\s@Run' {} a -> s {status = a} :: Run)++-- | The run\'s stop time.+run_stopped :: Lens.Lens' Run (Prelude.Maybe Prelude.UTCTime)+run_stopped = Lens.lens (\Run' {stopped} -> stopped) (\s@Run' {} a -> s {stopped = a} :: Run) Prelude.. Lens.mapping Data._Time++-- | The ARN of the YAML-formatted test specification for the run.+run_testSpecArn :: Lens.Lens' Run (Prelude.Maybe Prelude.Text)+run_testSpecArn = Lens.lens (\Run' {testSpecArn} -> testSpecArn) (\s@Run' {} a -> s {testSpecArn = a} :: Run)++-- | The total number of jobs for the run.+run_totalJobs :: Lens.Lens' Run (Prelude.Maybe Prelude.Int)+run_totalJobs = Lens.lens (\Run' {totalJobs} -> totalJobs) (\s@Run' {} a -> s {totalJobs = a} :: Run)++-- | The run\'s type.+--+-- Must be one of the following values:+--+-- -   BUILTIN_FUZZ+--+-- -   BUILTIN_EXPLORER+--+--     For Android, an app explorer that traverses an Android app,+--     interacting with it and capturing screenshots at the same time.+--+-- -   APPIUM_JAVA_JUNIT+--+-- -   APPIUM_JAVA_TESTNG+--+-- -   APPIUM_PYTHON+--+-- -   APPIUM_NODE+--+-- -   APPIUM_RUBY+--+-- -   APPIUM_WEB_JAVA_JUNIT+--+-- -   APPIUM_WEB_JAVA_TESTNG+--+-- -   APPIUM_WEB_PYTHON+--+-- -   APPIUM_WEB_NODE+--+-- -   APPIUM_WEB_RUBY+--+-- -   CALABASH+--+-- -   INSTRUMENTATION+--+-- -   UIAUTOMATION+--+-- -   UIAUTOMATOR+--+-- -   XCTEST+--+-- -   XCTEST_UI+run_type :: Lens.Lens' Run (Prelude.Maybe TestType)+run_type = Lens.lens (\Run' {type'} -> type') (\s@Run' {} a -> s {type' = a} :: Run)++-- | The VPC security groups and subnets that are attached to a project.+run_vpcConfig :: Lens.Lens' Run (Prelude.Maybe VpcConfig)+run_vpcConfig = Lens.lens (\Run' {vpcConfig} -> vpcConfig) (\s@Run' {} a -> s {vpcConfig = a} :: Run)++-- | The Device Farm console URL for the recording of the run.+run_webUrl :: Lens.Lens' Run (Prelude.Maybe Prelude.Text)+run_webUrl = Lens.lens (\Run' {webUrl} -> webUrl) (\s@Run' {} a -> s {webUrl = a} :: Run)++instance Data.FromJSON Run where+  parseJSON =+    Data.withObject+      "Run"+      ( \x ->+          Run'+            Prelude.<$> (x Data..:? "appUpload")+            Prelude.<*> (x Data..:? "arn")+            Prelude.<*> (x Data..:? "billingMethod")+            Prelude.<*> (x Data..:? "completedJobs")+            Prelude.<*> (x Data..:? "counters")+            Prelude.<*> (x Data..:? "created")+            Prelude.<*> (x Data..:? "customerArtifactPaths")+            Prelude.<*> (x Data..:? "deviceMinutes")+            Prelude.<*> (x Data..:? "devicePoolArn")+            Prelude.<*> (x Data..:? "deviceSelectionResult")+            Prelude.<*> (x Data..:? "eventCount")+            Prelude.<*> (x Data..:? "jobTimeoutMinutes")+            Prelude.<*> (x Data..:? "locale")+            Prelude.<*> (x Data..:? "location")+            Prelude.<*> (x Data..:? "message")+            Prelude.<*> (x Data..:? "name")+            Prelude.<*> (x Data..:? "networkProfile")+            Prelude.<*> (x Data..:? "parsingResultUrl")+            Prelude.<*> (x Data..:? "platform")+            Prelude.<*> (x Data..:? "radios")+            Prelude.<*> (x Data..:? "result")+            Prelude.<*> (x Data..:? "resultCode")+            Prelude.<*> (x Data..:? "seed")+            Prelude.<*> (x Data..:? "skipAppResign")+            Prelude.<*> (x Data..:? "started")+            Prelude.<*> (x Data..:? "status")+            Prelude.<*> (x Data..:? "stopped")+            Prelude.<*> (x Data..:? "testSpecArn")+            Prelude.<*> (x Data..:? "totalJobs")+            Prelude.<*> (x Data..:? "type")+            Prelude.<*> (x Data..:? "vpcConfig")+            Prelude.<*> (x Data..:? "webUrl")+      )++instance Prelude.Hashable Run where+  hashWithSalt _salt Run' {..} =+    _salt+      `Prelude.hashWithSalt` appUpload+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` billingMethod+      `Prelude.hashWithSalt` completedJobs+      `Prelude.hashWithSalt` counters+      `Prelude.hashWithSalt` created+      `Prelude.hashWithSalt` customerArtifactPaths+      `Prelude.hashWithSalt` deviceMinutes+      `Prelude.hashWithSalt` devicePoolArn+      `Prelude.hashWithSalt` deviceSelectionResult+      `Prelude.hashWithSalt` eventCount+      `Prelude.hashWithSalt` jobTimeoutMinutes+      `Prelude.hashWithSalt` locale+      `Prelude.hashWithSalt` location+      `Prelude.hashWithSalt` message+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` networkProfile+      `Prelude.hashWithSalt` parsingResultUrl+      `Prelude.hashWithSalt` platform+      `Prelude.hashWithSalt` radios+      `Prelude.hashWithSalt` result+      `Prelude.hashWithSalt` resultCode+      `Prelude.hashWithSalt` seed+      `Prelude.hashWithSalt` skipAppResign+      `Prelude.hashWithSalt` started+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` stopped+      `Prelude.hashWithSalt` testSpecArn+      `Prelude.hashWithSalt` totalJobs+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` vpcConfig+      `Prelude.hashWithSalt` webUrl++instance Prelude.NFData Run where+  rnf Run' {..} =+    Prelude.rnf appUpload+      `Prelude.seq` Prelude.rnf arn+      `Prelude.seq` Prelude.rnf billingMethod+      `Prelude.seq` Prelude.rnf completedJobs+      `Prelude.seq` Prelude.rnf counters+      `Prelude.seq` Prelude.rnf created+      `Prelude.seq` Prelude.rnf customerArtifactPaths+      `Prelude.seq` Prelude.rnf deviceMinutes+      `Prelude.seq` Prelude.rnf devicePoolArn+      `Prelude.seq` Prelude.rnf deviceSelectionResult+      `Prelude.seq` Prelude.rnf eventCount+      `Prelude.seq` Prelude.rnf jobTimeoutMinutes+      `Prelude.seq` Prelude.rnf locale+      `Prelude.seq` Prelude.rnf location+      `Prelude.seq` Prelude.rnf message+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf networkProfile+      `Prelude.seq` Prelude.rnf parsingResultUrl+      `Prelude.seq` Prelude.rnf platform+      `Prelude.seq` Prelude.rnf radios+      `Prelude.seq` Prelude.rnf result+      `Prelude.seq` Prelude.rnf resultCode+      `Prelude.seq` Prelude.rnf seed+      `Prelude.seq` Prelude.rnf+        skipAppResign+      `Prelude.seq` Prelude.rnf started+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf+        stopped+      `Prelude.seq` Prelude.rnf+        testSpecArn+      `Prelude.seq` Prelude.rnf+        totalJobs+      `Prelude.seq` Prelude.rnf+        type'+      `Prelude.seq` Prelude.rnf+        vpcConfig+      `Prelude.seq` Prelude.rnf+        webUrl
+ gen/Amazonka/DeviceFarm/Types/Sample.hs view
@@ -0,0 +1,226 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.Sample+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.Sample where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.SampleType+import qualified Amazonka.Prelude as Prelude++-- | Represents a sample of performance data.+--+-- /See:/ 'newSample' smart constructor.+data Sample = Sample'+  { -- | The sample\'s ARN.+    arn :: Prelude.Maybe Prelude.Text,+    -- | 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.+    type' :: Prelude.Maybe SampleType,+    -- | The presigned Amazon S3 URL that can be used with a GET request to+    -- download the sample\'s file.+    url :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Sample' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'sample_arn' - The sample\'s ARN.+--+-- 'type'', 'sample_type' - 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.+--+-- 'url', 'sample_url' - The presigned Amazon S3 URL that can be used with a GET request to+-- download the sample\'s file.+newSample ::+  Sample+newSample =+  Sample'+    { arn = Prelude.Nothing,+      type' = Prelude.Nothing,+      url = Prelude.Nothing+    }++-- | The sample\'s ARN.+sample_arn :: Lens.Lens' Sample (Prelude.Maybe Prelude.Text)+sample_arn = Lens.lens (\Sample' {arn} -> arn) (\s@Sample' {} a -> s {arn = a} :: Sample)++-- | 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.+sample_type :: Lens.Lens' Sample (Prelude.Maybe SampleType)+sample_type = Lens.lens (\Sample' {type'} -> type') (\s@Sample' {} a -> s {type' = a} :: Sample)++-- | The presigned Amazon S3 URL that can be used with a GET request to+-- download the sample\'s file.+sample_url :: Lens.Lens' Sample (Prelude.Maybe Prelude.Text)+sample_url = Lens.lens (\Sample' {url} -> url) (\s@Sample' {} a -> s {url = a} :: Sample)++instance Data.FromJSON Sample where+  parseJSON =+    Data.withObject+      "Sample"+      ( \x ->+          Sample'+            Prelude.<$> (x Data..:? "arn")+            Prelude.<*> (x Data..:? "type")+            Prelude.<*> (x Data..:? "url")+      )++instance Prelude.Hashable Sample where+  hashWithSalt _salt Sample' {..} =+    _salt+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` url++instance Prelude.NFData Sample where+  rnf Sample' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf url
+ gen/Amazonka/DeviceFarm/Types/SampleType.hs view
@@ -0,0 +1,146 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.SampleType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.SampleType+  ( SampleType+      ( ..,+        SampleType_CPU,+        SampleType_MEMORY,+        SampleType_NATIVE_AVG_DRAWTIME,+        SampleType_NATIVE_FPS,+        SampleType_NATIVE_FRAMES,+        SampleType_NATIVE_MAX_DRAWTIME,+        SampleType_NATIVE_MIN_DRAWTIME,+        SampleType_OPENGL_AVG_DRAWTIME,+        SampleType_OPENGL_FPS,+        SampleType_OPENGL_FRAMES,+        SampleType_OPENGL_MAX_DRAWTIME,+        SampleType_OPENGL_MIN_DRAWTIME,+        SampleType_RX,+        SampleType_RX_RATE,+        SampleType_THREADS,+        SampleType_TX,+        SampleType_TX_RATE+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype SampleType = SampleType'+  { fromSampleType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern SampleType_CPU :: SampleType+pattern SampleType_CPU = SampleType' "CPU"++pattern SampleType_MEMORY :: SampleType+pattern SampleType_MEMORY = SampleType' "MEMORY"++pattern SampleType_NATIVE_AVG_DRAWTIME :: SampleType+pattern SampleType_NATIVE_AVG_DRAWTIME = SampleType' "NATIVE_AVG_DRAWTIME"++pattern SampleType_NATIVE_FPS :: SampleType+pattern SampleType_NATIVE_FPS = SampleType' "NATIVE_FPS"++pattern SampleType_NATIVE_FRAMES :: SampleType+pattern SampleType_NATIVE_FRAMES = SampleType' "NATIVE_FRAMES"++pattern SampleType_NATIVE_MAX_DRAWTIME :: SampleType+pattern SampleType_NATIVE_MAX_DRAWTIME = SampleType' "NATIVE_MAX_DRAWTIME"++pattern SampleType_NATIVE_MIN_DRAWTIME :: SampleType+pattern SampleType_NATIVE_MIN_DRAWTIME = SampleType' "NATIVE_MIN_DRAWTIME"++pattern SampleType_OPENGL_AVG_DRAWTIME :: SampleType+pattern SampleType_OPENGL_AVG_DRAWTIME = SampleType' "OPENGL_AVG_DRAWTIME"++pattern SampleType_OPENGL_FPS :: SampleType+pattern SampleType_OPENGL_FPS = SampleType' "OPENGL_FPS"++pattern SampleType_OPENGL_FRAMES :: SampleType+pattern SampleType_OPENGL_FRAMES = SampleType' "OPENGL_FRAMES"++pattern SampleType_OPENGL_MAX_DRAWTIME :: SampleType+pattern SampleType_OPENGL_MAX_DRAWTIME = SampleType' "OPENGL_MAX_DRAWTIME"++pattern SampleType_OPENGL_MIN_DRAWTIME :: SampleType+pattern SampleType_OPENGL_MIN_DRAWTIME = SampleType' "OPENGL_MIN_DRAWTIME"++pattern SampleType_RX :: SampleType+pattern SampleType_RX = SampleType' "RX"++pattern SampleType_RX_RATE :: SampleType+pattern SampleType_RX_RATE = SampleType' "RX_RATE"++pattern SampleType_THREADS :: SampleType+pattern SampleType_THREADS = SampleType' "THREADS"++pattern SampleType_TX :: SampleType+pattern SampleType_TX = SampleType' "TX"++pattern SampleType_TX_RATE :: SampleType+pattern SampleType_TX_RATE = SampleType' "TX_RATE"++{-# COMPLETE+  SampleType_CPU,+  SampleType_MEMORY,+  SampleType_NATIVE_AVG_DRAWTIME,+  SampleType_NATIVE_FPS,+  SampleType_NATIVE_FRAMES,+  SampleType_NATIVE_MAX_DRAWTIME,+  SampleType_NATIVE_MIN_DRAWTIME,+  SampleType_OPENGL_AVG_DRAWTIME,+  SampleType_OPENGL_FPS,+  SampleType_OPENGL_FRAMES,+  SampleType_OPENGL_MAX_DRAWTIME,+  SampleType_OPENGL_MIN_DRAWTIME,+  SampleType_RX,+  SampleType_RX_RATE,+  SampleType_THREADS,+  SampleType_TX,+  SampleType_TX_RATE,+  SampleType'+  #-}
+ gen/Amazonka/DeviceFarm/Types/ScheduleRunConfiguration.hs view
@@ -0,0 +1,201 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.ScheduleRunConfiguration+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.ScheduleRunConfiguration where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.BillingMethod+import Amazonka.DeviceFarm.Types.CustomerArtifactPaths+import Amazonka.DeviceFarm.Types.Location+import Amazonka.DeviceFarm.Types.Radios+import qualified Amazonka.Prelude as Prelude++-- | Represents the settings for a run. Includes things like location, radio+-- states, auxiliary apps, and network profiles.+--+-- /See:/ 'newScheduleRunConfiguration' smart constructor.+data ScheduleRunConfiguration = ScheduleRunConfiguration'+  { -- | A list of upload ARNs for app packages to be installed with your app.+    auxiliaryApps :: Prelude.Maybe [Prelude.Text],+    -- | Specifies the billing method for a test run: @metered@ or @unmetered@.+    -- If the parameter is not specified, the default value is @metered@.+    --+    -- If you have purchased unmetered device slots, you must set this+    -- parameter to @unmetered@ to make use of them. Otherwise, your run counts+    -- against your metered time.+    billingMethod :: Prelude.Maybe BillingMethod,+    -- | Input @CustomerArtifactPaths@ object for the scheduled run+    -- configuration.+    customerArtifactPaths :: Prelude.Maybe CustomerArtifactPaths,+    -- | The ARN of the extra data for the run. The extra data is a .zip file+    -- that AWS Device Farm extracts to external data for Android or the app\'s+    -- sandbox for iOS.+    extraDataPackageArn :: Prelude.Maybe Prelude.Text,+    -- | Information about the locale that is used for the run.+    locale :: Prelude.Maybe Prelude.Text,+    -- | Information about the location that is used for the run.+    location :: Prelude.Maybe Location,+    -- | Reserved for internal use.+    networkProfileArn :: Prelude.Maybe Prelude.Text,+    -- | Information about the radio states for the run.+    radios :: Prelude.Maybe Radios,+    -- | An array of ARNs for your VPC endpoint configurations.+    vpceConfigurationArns :: Prelude.Maybe [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ScheduleRunConfiguration' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'auxiliaryApps', 'scheduleRunConfiguration_auxiliaryApps' - A list of upload ARNs for app packages to be installed with your app.+--+-- 'billingMethod', 'scheduleRunConfiguration_billingMethod' - Specifies the billing method for a test run: @metered@ or @unmetered@.+-- If the parameter is not specified, the default value is @metered@.+--+-- If you have purchased unmetered device slots, you must set this+-- parameter to @unmetered@ to make use of them. Otherwise, your run counts+-- against your metered time.+--+-- 'customerArtifactPaths', 'scheduleRunConfiguration_customerArtifactPaths' - Input @CustomerArtifactPaths@ object for the scheduled run+-- configuration.+--+-- 'extraDataPackageArn', 'scheduleRunConfiguration_extraDataPackageArn' - The ARN of the extra data for the run. The extra data is a .zip file+-- that AWS Device Farm extracts to external data for Android or the app\'s+-- sandbox for iOS.+--+-- 'locale', 'scheduleRunConfiguration_locale' - Information about the locale that is used for the run.+--+-- 'location', 'scheduleRunConfiguration_location' - Information about the location that is used for the run.+--+-- 'networkProfileArn', 'scheduleRunConfiguration_networkProfileArn' - Reserved for internal use.+--+-- 'radios', 'scheduleRunConfiguration_radios' - Information about the radio states for the run.+--+-- 'vpceConfigurationArns', 'scheduleRunConfiguration_vpceConfigurationArns' - An array of ARNs for your VPC endpoint configurations.+newScheduleRunConfiguration ::+  ScheduleRunConfiguration+newScheduleRunConfiguration =+  ScheduleRunConfiguration'+    { auxiliaryApps =+        Prelude.Nothing,+      billingMethod = Prelude.Nothing,+      customerArtifactPaths = Prelude.Nothing,+      extraDataPackageArn = Prelude.Nothing,+      locale = Prelude.Nothing,+      location = Prelude.Nothing,+      networkProfileArn = Prelude.Nothing,+      radios = Prelude.Nothing,+      vpceConfigurationArns = Prelude.Nothing+    }++-- | A list of upload ARNs for app packages to be installed with your app.+scheduleRunConfiguration_auxiliaryApps :: Lens.Lens' ScheduleRunConfiguration (Prelude.Maybe [Prelude.Text])+scheduleRunConfiguration_auxiliaryApps = Lens.lens (\ScheduleRunConfiguration' {auxiliaryApps} -> auxiliaryApps) (\s@ScheduleRunConfiguration' {} a -> s {auxiliaryApps = a} :: ScheduleRunConfiguration) Prelude.. Lens.mapping Lens.coerced++-- | Specifies the billing method for a test run: @metered@ or @unmetered@.+-- If the parameter is not specified, the default value is @metered@.+--+-- If you have purchased unmetered device slots, you must set this+-- parameter to @unmetered@ to make use of them. Otherwise, your run counts+-- against your metered time.+scheduleRunConfiguration_billingMethod :: Lens.Lens' ScheduleRunConfiguration (Prelude.Maybe BillingMethod)+scheduleRunConfiguration_billingMethod = Lens.lens (\ScheduleRunConfiguration' {billingMethod} -> billingMethod) (\s@ScheduleRunConfiguration' {} a -> s {billingMethod = a} :: ScheduleRunConfiguration)++-- | Input @CustomerArtifactPaths@ object for the scheduled run+-- configuration.+scheduleRunConfiguration_customerArtifactPaths :: Lens.Lens' ScheduleRunConfiguration (Prelude.Maybe CustomerArtifactPaths)+scheduleRunConfiguration_customerArtifactPaths = Lens.lens (\ScheduleRunConfiguration' {customerArtifactPaths} -> customerArtifactPaths) (\s@ScheduleRunConfiguration' {} a -> s {customerArtifactPaths = a} :: ScheduleRunConfiguration)++-- | The ARN of the extra data for the run. The extra data is a .zip file+-- that AWS Device Farm extracts to external data for Android or the app\'s+-- sandbox for iOS.+scheduleRunConfiguration_extraDataPackageArn :: Lens.Lens' ScheduleRunConfiguration (Prelude.Maybe Prelude.Text)+scheduleRunConfiguration_extraDataPackageArn = Lens.lens (\ScheduleRunConfiguration' {extraDataPackageArn} -> extraDataPackageArn) (\s@ScheduleRunConfiguration' {} a -> s {extraDataPackageArn = a} :: ScheduleRunConfiguration)++-- | Information about the locale that is used for the run.+scheduleRunConfiguration_locale :: Lens.Lens' ScheduleRunConfiguration (Prelude.Maybe Prelude.Text)+scheduleRunConfiguration_locale = Lens.lens (\ScheduleRunConfiguration' {locale} -> locale) (\s@ScheduleRunConfiguration' {} a -> s {locale = a} :: ScheduleRunConfiguration)++-- | Information about the location that is used for the run.+scheduleRunConfiguration_location :: Lens.Lens' ScheduleRunConfiguration (Prelude.Maybe Location)+scheduleRunConfiguration_location = Lens.lens (\ScheduleRunConfiguration' {location} -> location) (\s@ScheduleRunConfiguration' {} a -> s {location = a} :: ScheduleRunConfiguration)++-- | Reserved for internal use.+scheduleRunConfiguration_networkProfileArn :: Lens.Lens' ScheduleRunConfiguration (Prelude.Maybe Prelude.Text)+scheduleRunConfiguration_networkProfileArn = Lens.lens (\ScheduleRunConfiguration' {networkProfileArn} -> networkProfileArn) (\s@ScheduleRunConfiguration' {} a -> s {networkProfileArn = a} :: ScheduleRunConfiguration)++-- | Information about the radio states for the run.+scheduleRunConfiguration_radios :: Lens.Lens' ScheduleRunConfiguration (Prelude.Maybe Radios)+scheduleRunConfiguration_radios = Lens.lens (\ScheduleRunConfiguration' {radios} -> radios) (\s@ScheduleRunConfiguration' {} a -> s {radios = a} :: ScheduleRunConfiguration)++-- | An array of ARNs for your VPC endpoint configurations.+scheduleRunConfiguration_vpceConfigurationArns :: Lens.Lens' ScheduleRunConfiguration (Prelude.Maybe [Prelude.Text])+scheduleRunConfiguration_vpceConfigurationArns = Lens.lens (\ScheduleRunConfiguration' {vpceConfigurationArns} -> vpceConfigurationArns) (\s@ScheduleRunConfiguration' {} a -> s {vpceConfigurationArns = a} :: ScheduleRunConfiguration) Prelude.. Lens.mapping Lens.coerced++instance Prelude.Hashable ScheduleRunConfiguration where+  hashWithSalt _salt ScheduleRunConfiguration' {..} =+    _salt+      `Prelude.hashWithSalt` auxiliaryApps+      `Prelude.hashWithSalt` billingMethod+      `Prelude.hashWithSalt` customerArtifactPaths+      `Prelude.hashWithSalt` extraDataPackageArn+      `Prelude.hashWithSalt` locale+      `Prelude.hashWithSalt` location+      `Prelude.hashWithSalt` networkProfileArn+      `Prelude.hashWithSalt` radios+      `Prelude.hashWithSalt` vpceConfigurationArns++instance Prelude.NFData ScheduleRunConfiguration where+  rnf ScheduleRunConfiguration' {..} =+    Prelude.rnf auxiliaryApps+      `Prelude.seq` Prelude.rnf billingMethod+      `Prelude.seq` Prelude.rnf customerArtifactPaths+      `Prelude.seq` Prelude.rnf extraDataPackageArn+      `Prelude.seq` Prelude.rnf locale+      `Prelude.seq` Prelude.rnf location+      `Prelude.seq` Prelude.rnf networkProfileArn+      `Prelude.seq` Prelude.rnf radios+      `Prelude.seq` Prelude.rnf vpceConfigurationArns++instance Data.ToJSON ScheduleRunConfiguration where+  toJSON ScheduleRunConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("auxiliaryApps" Data..=) Prelude.<$> auxiliaryApps,+            ("billingMethod" Data..=) Prelude.<$> billingMethod,+            ("customerArtifactPaths" Data..=)+              Prelude.<$> customerArtifactPaths,+            ("extraDataPackageArn" Data..=)+              Prelude.<$> extraDataPackageArn,+            ("locale" Data..=) Prelude.<$> locale,+            ("location" Data..=) Prelude.<$> location,+            ("networkProfileArn" Data..=)+              Prelude.<$> networkProfileArn,+            ("radios" Data..=) Prelude.<$> radios,+            ("vpceConfigurationArns" Data..=)+              Prelude.<$> vpceConfigurationArns+          ]+      )
+ gen/Amazonka/DeviceFarm/Types/ScheduleRunTest.hs view
@@ -0,0 +1,488 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.ScheduleRunTest+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.ScheduleRunTest where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.TestType+import qualified Amazonka.Prelude as Prelude++-- | Represents test settings. This data structure is passed in as the test+-- parameter to ScheduleRun. For an example of the JSON request syntax, see+-- ScheduleRun.+--+-- /See:/ 'newScheduleRunTest' smart constructor.+data ScheduleRunTest = ScheduleRunTest'+  { -- | The test\'s filter.+    filter' :: Prelude.Maybe Prelude.Text,+    -- | The test\'s parameters, such as test framework parameters and fixture+    -- settings. Parameters are represented by name-value pairs of strings.+    --+    -- For all tests:+    --+    -- -   @app_performance_monitoring@: Performance monitoring is enabled by+    --     default. Set this parameter to false to disable it.+    --+    -- For Calabash tests:+    --+    -- -   profile: A cucumber profile (for example, @my_profile_name@).+    --+    -- -   tags: You can limit execution to features or scenarios that have (or+    --     don\'t have) certain tags (for example, \@smoke or \@smoke,~\@wip).+    --+    -- For Appium tests (all types):+    --+    -- -   appium_version: The Appium version. Currently supported values are+    --     1.6.5 (and later), latest, and default.+    --+    --     -   latest runs the latest Appium version supported by Device Farm+    --         (1.9.1).+    --+    --     -   For default, Device Farm selects a compatible version of Appium+    --         for the device. The current behavior is to run 1.7.2 on Android+    --         devices and iOS 9 and earlier and 1.7.2 for iOS 10 and later.+    --+    --     -   This behavior is subject to change.+    --+    -- For fuzz tests (Android only):+    --+    -- -   event_count: The number of events, between 1 and 10000, that the UI+    --     fuzz test should perform.+    --+    -- -   throttle: The time, in ms, between 0 and 1000, that the UI fuzz test+    --     should wait between events.+    --+    -- -   seed: A seed to use for randomizing the UI fuzz test. Using the same+    --     seed value between tests ensures identical event sequences.+    --+    -- For Explorer tests:+    --+    -- -   username: A user name to use if the Explorer encounters a login+    --     form. If not supplied, no user name is inserted.+    --+    -- -   password: A password to use if the Explorer encounters a login form.+    --     If not supplied, no password is inserted.+    --+    -- For Instrumentation:+    --+    -- -   filter: A test filter string. Examples:+    --+    --     -   Running a single test case: @com.android.abc.Test1@+    --+    --     -   Running a single test: @com.android.abc.Test1#smoke@+    --+    --     -   Running multiple tests:+    --         @com.android.abc.Test1,com.android.abc.Test2@+    --+    -- For XCTest and XCTestUI:+    --+    -- -   filter: A test filter string. Examples:+    --+    --     -   Running a single test class: @LoginTests@+    --+    --     -   Running a multiple test classes: @LoginTests,SmokeTests@+    --+    --     -   Running a single test: @LoginTests\/testValid@+    --+    --     -   Running multiple tests:+    --         @LoginTests\/testValid,LoginTests\/testInvalid@+    --+    -- For UIAutomator:+    --+    -- -   filter: A test filter string. Examples:+    --+    --     -   Running a single test case: @com.android.abc.Test1@+    --+    --     -   Running a single test: @com.android.abc.Test1#smoke@+    --+    --     -   Running multiple tests:+    --         @com.android.abc.Test1,com.android.abc.Test2@+    parameters :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The ARN of the uploaded test to be run.+    testPackageArn :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the YAML-formatted test specification.+    testSpecArn :: Prelude.Maybe Prelude.Text,+    -- | The test\'s type.+    --+    -- Must be one of the following values:+    --+    -- -   BUILTIN_FUZZ+    --+    -- -   BUILTIN_EXPLORER. For Android, an app explorer that traverses an+    --     Android app, interacting with it and capturing screenshots at the+    --     same time.+    --+    -- -   APPIUM_JAVA_JUNIT+    --+    -- -   APPIUM_JAVA_TESTNG+    --+    -- -   APPIUM_PYTHON+    --+    -- -   APPIUM_NODE+    --+    -- -   APPIUM_RUBY+    --+    -- -   APPIUM_WEB_JAVA_JUNIT+    --+    -- -   APPIUM_WEB_JAVA_TESTNG+    --+    -- -   APPIUM_WEB_PYTHON+    --+    -- -   APPIUM_WEB_NODE+    --+    -- -   APPIUM_WEB_RUBY+    --+    -- -   CALABASH+    --+    -- -   INSTRUMENTATION+    --+    -- -   UIAUTOMATION+    --+    -- -   UIAUTOMATOR+    --+    -- -   XCTEST+    --+    -- -   XCTEST_UI+    type' :: TestType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ScheduleRunTest' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'filter'', 'scheduleRunTest_filter' - The test\'s filter.+--+-- 'parameters', 'scheduleRunTest_parameters' - The test\'s parameters, such as test framework parameters and fixture+-- settings. Parameters are represented by name-value pairs of strings.+--+-- For all tests:+--+-- -   @app_performance_monitoring@: Performance monitoring is enabled by+--     default. Set this parameter to false to disable it.+--+-- For Calabash tests:+--+-- -   profile: A cucumber profile (for example, @my_profile_name@).+--+-- -   tags: You can limit execution to features or scenarios that have (or+--     don\'t have) certain tags (for example, \@smoke or \@smoke,~\@wip).+--+-- For Appium tests (all types):+--+-- -   appium_version: The Appium version. Currently supported values are+--     1.6.5 (and later), latest, and default.+--+--     -   latest runs the latest Appium version supported by Device Farm+--         (1.9.1).+--+--     -   For default, Device Farm selects a compatible version of Appium+--         for the device. The current behavior is to run 1.7.2 on Android+--         devices and iOS 9 and earlier and 1.7.2 for iOS 10 and later.+--+--     -   This behavior is subject to change.+--+-- For fuzz tests (Android only):+--+-- -   event_count: The number of events, between 1 and 10000, that the UI+--     fuzz test should perform.+--+-- -   throttle: The time, in ms, between 0 and 1000, that the UI fuzz test+--     should wait between events.+--+-- -   seed: A seed to use for randomizing the UI fuzz test. Using the same+--     seed value between tests ensures identical event sequences.+--+-- For Explorer tests:+--+-- -   username: A user name to use if the Explorer encounters a login+--     form. If not supplied, no user name is inserted.+--+-- -   password: A password to use if the Explorer encounters a login form.+--     If not supplied, no password is inserted.+--+-- For Instrumentation:+--+-- -   filter: A test filter string. Examples:+--+--     -   Running a single test case: @com.android.abc.Test1@+--+--     -   Running a single test: @com.android.abc.Test1#smoke@+--+--     -   Running multiple tests:+--         @com.android.abc.Test1,com.android.abc.Test2@+--+-- For XCTest and XCTestUI:+--+-- -   filter: A test filter string. Examples:+--+--     -   Running a single test class: @LoginTests@+--+--     -   Running a multiple test classes: @LoginTests,SmokeTests@+--+--     -   Running a single test: @LoginTests\/testValid@+--+--     -   Running multiple tests:+--         @LoginTests\/testValid,LoginTests\/testInvalid@+--+-- For UIAutomator:+--+-- -   filter: A test filter string. Examples:+--+--     -   Running a single test case: @com.android.abc.Test1@+--+--     -   Running a single test: @com.android.abc.Test1#smoke@+--+--     -   Running multiple tests:+--         @com.android.abc.Test1,com.android.abc.Test2@+--+-- 'testPackageArn', 'scheduleRunTest_testPackageArn' - The ARN of the uploaded test to be run.+--+-- 'testSpecArn', 'scheduleRunTest_testSpecArn' - The ARN of the YAML-formatted test specification.+--+-- 'type'', 'scheduleRunTest_type' - The test\'s type.+--+-- Must be one of the following values:+--+-- -   BUILTIN_FUZZ+--+-- -   BUILTIN_EXPLORER. For Android, an app explorer that traverses an+--     Android app, interacting with it and capturing screenshots at the+--     same time.+--+-- -   APPIUM_JAVA_JUNIT+--+-- -   APPIUM_JAVA_TESTNG+--+-- -   APPIUM_PYTHON+--+-- -   APPIUM_NODE+--+-- -   APPIUM_RUBY+--+-- -   APPIUM_WEB_JAVA_JUNIT+--+-- -   APPIUM_WEB_JAVA_TESTNG+--+-- -   APPIUM_WEB_PYTHON+--+-- -   APPIUM_WEB_NODE+--+-- -   APPIUM_WEB_RUBY+--+-- -   CALABASH+--+-- -   INSTRUMENTATION+--+-- -   UIAUTOMATION+--+-- -   UIAUTOMATOR+--+-- -   XCTEST+--+-- -   XCTEST_UI+newScheduleRunTest ::+  -- | 'type''+  TestType ->+  ScheduleRunTest+newScheduleRunTest pType_ =+  ScheduleRunTest'+    { filter' = Prelude.Nothing,+      parameters = Prelude.Nothing,+      testPackageArn = Prelude.Nothing,+      testSpecArn = Prelude.Nothing,+      type' = pType_+    }++-- | The test\'s filter.+scheduleRunTest_filter :: Lens.Lens' ScheduleRunTest (Prelude.Maybe Prelude.Text)+scheduleRunTest_filter = Lens.lens (\ScheduleRunTest' {filter'} -> filter') (\s@ScheduleRunTest' {} a -> s {filter' = a} :: ScheduleRunTest)++-- | The test\'s parameters, such as test framework parameters and fixture+-- settings. Parameters are represented by name-value pairs of strings.+--+-- For all tests:+--+-- -   @app_performance_monitoring@: Performance monitoring is enabled by+--     default. Set this parameter to false to disable it.+--+-- For Calabash tests:+--+-- -   profile: A cucumber profile (for example, @my_profile_name@).+--+-- -   tags: You can limit execution to features or scenarios that have (or+--     don\'t have) certain tags (for example, \@smoke or \@smoke,~\@wip).+--+-- For Appium tests (all types):+--+-- -   appium_version: The Appium version. Currently supported values are+--     1.6.5 (and later), latest, and default.+--+--     -   latest runs the latest Appium version supported by Device Farm+--         (1.9.1).+--+--     -   For default, Device Farm selects a compatible version of Appium+--         for the device. The current behavior is to run 1.7.2 on Android+--         devices and iOS 9 and earlier and 1.7.2 for iOS 10 and later.+--+--     -   This behavior is subject to change.+--+-- For fuzz tests (Android only):+--+-- -   event_count: The number of events, between 1 and 10000, that the UI+--     fuzz test should perform.+--+-- -   throttle: The time, in ms, between 0 and 1000, that the UI fuzz test+--     should wait between events.+--+-- -   seed: A seed to use for randomizing the UI fuzz test. Using the same+--     seed value between tests ensures identical event sequences.+--+-- For Explorer tests:+--+-- -   username: A user name to use if the Explorer encounters a login+--     form. If not supplied, no user name is inserted.+--+-- -   password: A password to use if the Explorer encounters a login form.+--     If not supplied, no password is inserted.+--+-- For Instrumentation:+--+-- -   filter: A test filter string. Examples:+--+--     -   Running a single test case: @com.android.abc.Test1@+--+--     -   Running a single test: @com.android.abc.Test1#smoke@+--+--     -   Running multiple tests:+--         @com.android.abc.Test1,com.android.abc.Test2@+--+-- For XCTest and XCTestUI:+--+-- -   filter: A test filter string. Examples:+--+--     -   Running a single test class: @LoginTests@+--+--     -   Running a multiple test classes: @LoginTests,SmokeTests@+--+--     -   Running a single test: @LoginTests\/testValid@+--+--     -   Running multiple tests:+--         @LoginTests\/testValid,LoginTests\/testInvalid@+--+-- For UIAutomator:+--+-- -   filter: A test filter string. Examples:+--+--     -   Running a single test case: @com.android.abc.Test1@+--+--     -   Running a single test: @com.android.abc.Test1#smoke@+--+--     -   Running multiple tests:+--         @com.android.abc.Test1,com.android.abc.Test2@+scheduleRunTest_parameters :: Lens.Lens' ScheduleRunTest (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+scheduleRunTest_parameters = Lens.lens (\ScheduleRunTest' {parameters} -> parameters) (\s@ScheduleRunTest' {} a -> s {parameters = a} :: ScheduleRunTest) Prelude.. Lens.mapping Lens.coerced++-- | The ARN of the uploaded test to be run.+scheduleRunTest_testPackageArn :: Lens.Lens' ScheduleRunTest (Prelude.Maybe Prelude.Text)+scheduleRunTest_testPackageArn = Lens.lens (\ScheduleRunTest' {testPackageArn} -> testPackageArn) (\s@ScheduleRunTest' {} a -> s {testPackageArn = a} :: ScheduleRunTest)++-- | The ARN of the YAML-formatted test specification.+scheduleRunTest_testSpecArn :: Lens.Lens' ScheduleRunTest (Prelude.Maybe Prelude.Text)+scheduleRunTest_testSpecArn = Lens.lens (\ScheduleRunTest' {testSpecArn} -> testSpecArn) (\s@ScheduleRunTest' {} a -> s {testSpecArn = a} :: ScheduleRunTest)++-- | The test\'s type.+--+-- Must be one of the following values:+--+-- -   BUILTIN_FUZZ+--+-- -   BUILTIN_EXPLORER. For Android, an app explorer that traverses an+--     Android app, interacting with it and capturing screenshots at the+--     same time.+--+-- -   APPIUM_JAVA_JUNIT+--+-- -   APPIUM_JAVA_TESTNG+--+-- -   APPIUM_PYTHON+--+-- -   APPIUM_NODE+--+-- -   APPIUM_RUBY+--+-- -   APPIUM_WEB_JAVA_JUNIT+--+-- -   APPIUM_WEB_JAVA_TESTNG+--+-- -   APPIUM_WEB_PYTHON+--+-- -   APPIUM_WEB_NODE+--+-- -   APPIUM_WEB_RUBY+--+-- -   CALABASH+--+-- -   INSTRUMENTATION+--+-- -   UIAUTOMATION+--+-- -   UIAUTOMATOR+--+-- -   XCTEST+--+-- -   XCTEST_UI+scheduleRunTest_type :: Lens.Lens' ScheduleRunTest TestType+scheduleRunTest_type = Lens.lens (\ScheduleRunTest' {type'} -> type') (\s@ScheduleRunTest' {} a -> s {type' = a} :: ScheduleRunTest)++instance Prelude.Hashable ScheduleRunTest where+  hashWithSalt _salt ScheduleRunTest' {..} =+    _salt+      `Prelude.hashWithSalt` filter'+      `Prelude.hashWithSalt` parameters+      `Prelude.hashWithSalt` testPackageArn+      `Prelude.hashWithSalt` testSpecArn+      `Prelude.hashWithSalt` type'++instance Prelude.NFData ScheduleRunTest where+  rnf ScheduleRunTest' {..} =+    Prelude.rnf filter'+      `Prelude.seq` Prelude.rnf parameters+      `Prelude.seq` Prelude.rnf testPackageArn+      `Prelude.seq` Prelude.rnf testSpecArn+      `Prelude.seq` Prelude.rnf type'++instance Data.ToJSON ScheduleRunTest where+  toJSON ScheduleRunTest' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("filter" Data..=) Prelude.<$> filter',+            ("parameters" Data..=) Prelude.<$> parameters,+            ("testPackageArn" Data..=)+              Prelude.<$> testPackageArn,+            ("testSpecArn" Data..=) Prelude.<$> testSpecArn,+            Prelude.Just ("type" Data..= type')+          ]+      )
+ gen/Amazonka/DeviceFarm/Types/Suite.hs view
@@ -0,0 +1,434 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.Suite+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.Suite where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.Counters+import Amazonka.DeviceFarm.Types.DeviceMinutes+import Amazonka.DeviceFarm.Types.ExecutionResult+import Amazonka.DeviceFarm.Types.ExecutionStatus+import Amazonka.DeviceFarm.Types.TestType+import qualified Amazonka.Prelude as Prelude++-- | Represents a collection of one or more tests.+--+-- /See:/ 'newSuite' smart constructor.+data Suite = Suite'+  { -- | The suite\'s ARN.+    arn :: Prelude.Maybe Prelude.Text,+    -- | The suite\'s result counters.+    counters :: Prelude.Maybe Counters,+    -- | When the suite was created.+    created :: Prelude.Maybe Data.POSIX,+    -- | Represents the total (metered or unmetered) minutes used by the test+    -- suite.+    deviceMinutes :: Prelude.Maybe DeviceMinutes,+    -- | A message about the suite\'s result.+    message :: Prelude.Maybe Prelude.Text,+    -- | The suite\'s name.+    name :: Prelude.Maybe Prelude.Text,+    -- | The suite\'s result.+    --+    -- Allowed values include:+    --+    -- -   PENDING+    --+    -- -   PASSED+    --+    -- -   WARNED+    --+    -- -   FAILED+    --+    -- -   SKIPPED+    --+    -- -   ERRORED+    --+    -- -   STOPPED+    result :: Prelude.Maybe ExecutionResult,+    -- | The suite\'s start time.+    started :: Prelude.Maybe Data.POSIX,+    -- | The suite\'s status.+    --+    -- Allowed values include:+    --+    -- -   PENDING+    --+    -- -   PENDING_CONCURRENCY+    --+    -- -   PENDING_DEVICE+    --+    -- -   PROCESSING+    --+    -- -   SCHEDULING+    --+    -- -   PREPARING+    --+    -- -   RUNNING+    --+    -- -   COMPLETED+    --+    -- -   STOPPING+    status :: Prelude.Maybe ExecutionStatus,+    -- | The suite\'s stop time.+    stopped :: Prelude.Maybe Data.POSIX,+    -- | The suite\'s type.+    --+    -- Must be one of the following values:+    --+    -- -   BUILTIN_FUZZ+    --+    -- -   BUILTIN_EXPLORER+    --+    --     Only available for Android; an app explorer that traverses an+    --     Android app, interacting with it and capturing screenshots at the+    --     same time.+    --+    -- -   APPIUM_JAVA_JUNIT+    --+    -- -   APPIUM_JAVA_TESTNG+    --+    -- -   APPIUM_PYTHON+    --+    -- -   APPIUM_NODE+    --+    -- -   APPIUM_RUBY+    --+    -- -   APPIUM_WEB_JAVA_JUNIT+    --+    -- -   APPIUM_WEB_JAVA_TESTNG+    --+    -- -   APPIUM_WEB_PYTHON+    --+    -- -   APPIUM_WEB_NODE+    --+    -- -   APPIUM_WEB_RUBY+    --+    -- -   CALABASH+    --+    -- -   INSTRUMENTATION+    --+    -- -   UIAUTOMATION+    --+    -- -   UIAUTOMATOR+    --+    -- -   XCTEST+    --+    -- -   XCTEST_UI+    type' :: Prelude.Maybe TestType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Suite' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'suite_arn' - The suite\'s ARN.+--+-- 'counters', 'suite_counters' - The suite\'s result counters.+--+-- 'created', 'suite_created' - When the suite was created.+--+-- 'deviceMinutes', 'suite_deviceMinutes' - Represents the total (metered or unmetered) minutes used by the test+-- suite.+--+-- 'message', 'suite_message' - A message about the suite\'s result.+--+-- 'name', 'suite_name' - The suite\'s name.+--+-- 'result', 'suite_result' - The suite\'s result.+--+-- Allowed values include:+--+-- -   PENDING+--+-- -   PASSED+--+-- -   WARNED+--+-- -   FAILED+--+-- -   SKIPPED+--+-- -   ERRORED+--+-- -   STOPPED+--+-- 'started', 'suite_started' - The suite\'s start time.+--+-- 'status', 'suite_status' - The suite\'s status.+--+-- Allowed values include:+--+-- -   PENDING+--+-- -   PENDING_CONCURRENCY+--+-- -   PENDING_DEVICE+--+-- -   PROCESSING+--+-- -   SCHEDULING+--+-- -   PREPARING+--+-- -   RUNNING+--+-- -   COMPLETED+--+-- -   STOPPING+--+-- 'stopped', 'suite_stopped' - The suite\'s stop time.+--+-- 'type'', 'suite_type' - The suite\'s type.+--+-- Must be one of the following values:+--+-- -   BUILTIN_FUZZ+--+-- -   BUILTIN_EXPLORER+--+--     Only available for Android; an app explorer that traverses an+--     Android app, interacting with it and capturing screenshots at the+--     same time.+--+-- -   APPIUM_JAVA_JUNIT+--+-- -   APPIUM_JAVA_TESTNG+--+-- -   APPIUM_PYTHON+--+-- -   APPIUM_NODE+--+-- -   APPIUM_RUBY+--+-- -   APPIUM_WEB_JAVA_JUNIT+--+-- -   APPIUM_WEB_JAVA_TESTNG+--+-- -   APPIUM_WEB_PYTHON+--+-- -   APPIUM_WEB_NODE+--+-- -   APPIUM_WEB_RUBY+--+-- -   CALABASH+--+-- -   INSTRUMENTATION+--+-- -   UIAUTOMATION+--+-- -   UIAUTOMATOR+--+-- -   XCTEST+--+-- -   XCTEST_UI+newSuite ::+  Suite+newSuite =+  Suite'+    { arn = Prelude.Nothing,+      counters = Prelude.Nothing,+      created = Prelude.Nothing,+      deviceMinutes = Prelude.Nothing,+      message = Prelude.Nothing,+      name = Prelude.Nothing,+      result = Prelude.Nothing,+      started = Prelude.Nothing,+      status = Prelude.Nothing,+      stopped = Prelude.Nothing,+      type' = Prelude.Nothing+    }++-- | The suite\'s ARN.+suite_arn :: Lens.Lens' Suite (Prelude.Maybe Prelude.Text)+suite_arn = Lens.lens (\Suite' {arn} -> arn) (\s@Suite' {} a -> s {arn = a} :: Suite)++-- | The suite\'s result counters.+suite_counters :: Lens.Lens' Suite (Prelude.Maybe Counters)+suite_counters = Lens.lens (\Suite' {counters} -> counters) (\s@Suite' {} a -> s {counters = a} :: Suite)++-- | When the suite was created.+suite_created :: Lens.Lens' Suite (Prelude.Maybe Prelude.UTCTime)+suite_created = Lens.lens (\Suite' {created} -> created) (\s@Suite' {} a -> s {created = a} :: Suite) Prelude.. Lens.mapping Data._Time++-- | Represents the total (metered or unmetered) minutes used by the test+-- suite.+suite_deviceMinutes :: Lens.Lens' Suite (Prelude.Maybe DeviceMinutes)+suite_deviceMinutes = Lens.lens (\Suite' {deviceMinutes} -> deviceMinutes) (\s@Suite' {} a -> s {deviceMinutes = a} :: Suite)++-- | A message about the suite\'s result.+suite_message :: Lens.Lens' Suite (Prelude.Maybe Prelude.Text)+suite_message = Lens.lens (\Suite' {message} -> message) (\s@Suite' {} a -> s {message = a} :: Suite)++-- | The suite\'s name.+suite_name :: Lens.Lens' Suite (Prelude.Maybe Prelude.Text)+suite_name = Lens.lens (\Suite' {name} -> name) (\s@Suite' {} a -> s {name = a} :: Suite)++-- | The suite\'s result.+--+-- Allowed values include:+--+-- -   PENDING+--+-- -   PASSED+--+-- -   WARNED+--+-- -   FAILED+--+-- -   SKIPPED+--+-- -   ERRORED+--+-- -   STOPPED+suite_result :: Lens.Lens' Suite (Prelude.Maybe ExecutionResult)+suite_result = Lens.lens (\Suite' {result} -> result) (\s@Suite' {} a -> s {result = a} :: Suite)++-- | The suite\'s start time.+suite_started :: Lens.Lens' Suite (Prelude.Maybe Prelude.UTCTime)+suite_started = Lens.lens (\Suite' {started} -> started) (\s@Suite' {} a -> s {started = a} :: Suite) Prelude.. Lens.mapping Data._Time++-- | The suite\'s status.+--+-- Allowed values include:+--+-- -   PENDING+--+-- -   PENDING_CONCURRENCY+--+-- -   PENDING_DEVICE+--+-- -   PROCESSING+--+-- -   SCHEDULING+--+-- -   PREPARING+--+-- -   RUNNING+--+-- -   COMPLETED+--+-- -   STOPPING+suite_status :: Lens.Lens' Suite (Prelude.Maybe ExecutionStatus)+suite_status = Lens.lens (\Suite' {status} -> status) (\s@Suite' {} a -> s {status = a} :: Suite)++-- | The suite\'s stop time.+suite_stopped :: Lens.Lens' Suite (Prelude.Maybe Prelude.UTCTime)+suite_stopped = Lens.lens (\Suite' {stopped} -> stopped) (\s@Suite' {} a -> s {stopped = a} :: Suite) Prelude.. Lens.mapping Data._Time++-- | The suite\'s type.+--+-- Must be one of the following values:+--+-- -   BUILTIN_FUZZ+--+-- -   BUILTIN_EXPLORER+--+--     Only available for Android; an app explorer that traverses an+--     Android app, interacting with it and capturing screenshots at the+--     same time.+--+-- -   APPIUM_JAVA_JUNIT+--+-- -   APPIUM_JAVA_TESTNG+--+-- -   APPIUM_PYTHON+--+-- -   APPIUM_NODE+--+-- -   APPIUM_RUBY+--+-- -   APPIUM_WEB_JAVA_JUNIT+--+-- -   APPIUM_WEB_JAVA_TESTNG+--+-- -   APPIUM_WEB_PYTHON+--+-- -   APPIUM_WEB_NODE+--+-- -   APPIUM_WEB_RUBY+--+-- -   CALABASH+--+-- -   INSTRUMENTATION+--+-- -   UIAUTOMATION+--+-- -   UIAUTOMATOR+--+-- -   XCTEST+--+-- -   XCTEST_UI+suite_type :: Lens.Lens' Suite (Prelude.Maybe TestType)+suite_type = Lens.lens (\Suite' {type'} -> type') (\s@Suite' {} a -> s {type' = a} :: Suite)++instance Data.FromJSON Suite where+  parseJSON =+    Data.withObject+      "Suite"+      ( \x ->+          Suite'+            Prelude.<$> (x Data..:? "arn")+            Prelude.<*> (x Data..:? "counters")+            Prelude.<*> (x Data..:? "created")+            Prelude.<*> (x Data..:? "deviceMinutes")+            Prelude.<*> (x Data..:? "message")+            Prelude.<*> (x Data..:? "name")+            Prelude.<*> (x Data..:? "result")+            Prelude.<*> (x Data..:? "started")+            Prelude.<*> (x Data..:? "status")+            Prelude.<*> (x Data..:? "stopped")+            Prelude.<*> (x Data..:? "type")+      )++instance Prelude.Hashable Suite where+  hashWithSalt _salt Suite' {..} =+    _salt+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` counters+      `Prelude.hashWithSalt` created+      `Prelude.hashWithSalt` deviceMinutes+      `Prelude.hashWithSalt` message+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` result+      `Prelude.hashWithSalt` started+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` stopped+      `Prelude.hashWithSalt` type'++instance Prelude.NFData Suite where+  rnf Suite' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf counters+      `Prelude.seq` Prelude.rnf created+      `Prelude.seq` Prelude.rnf deviceMinutes+      `Prelude.seq` Prelude.rnf message+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf result+      `Prelude.seq` Prelude.rnf started+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf stopped+      `Prelude.seq` Prelude.rnf type'
+ gen/Amazonka/DeviceFarm/Types/Tag.hs view
@@ -0,0 +1,102 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.Tag+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.Tag where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | The metadata that you apply to a resource to help you categorize and+-- organize it. Each tag consists of a key and an optional value, both of+-- which you define. Tag keys can have a maximum character length of 128+-- characters. Tag values can have a maximum length of 256 characters.+--+-- /See:/ 'newTag' smart constructor.+data Tag = Tag'+  { -- | One part of a key-value pair that makes up a tag. A @key@ is a general+    -- label that acts like a category for more specific tag values.+    key :: Prelude.Text,+    -- | The optional part of a key-value pair that makes up a tag. A @value@+    -- acts as a descriptor in a tag category (key).+    value :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Tag' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'key', 'tag_key' - One part of a key-value pair that makes up a tag. A @key@ is a general+-- label that acts like a category for more specific tag values.+--+-- 'value', 'tag_value' - The optional part of a key-value pair that makes up a tag. A @value@+-- acts as a descriptor in a tag category (key).+newTag ::+  -- | 'key'+  Prelude.Text ->+  -- | 'value'+  Prelude.Text ->+  Tag+newTag pKey_ pValue_ =+  Tag' {key = pKey_, value = pValue_}++-- | One part of a key-value pair that makes up a tag. A @key@ is a general+-- label that acts like a category for more specific tag values.+tag_key :: Lens.Lens' Tag Prelude.Text+tag_key = Lens.lens (\Tag' {key} -> key) (\s@Tag' {} a -> s {key = a} :: Tag)++-- | The optional part of a key-value pair that makes up a tag. A @value@+-- acts as a descriptor in a tag category (key).+tag_value :: Lens.Lens' Tag Prelude.Text+tag_value = Lens.lens (\Tag' {value} -> value) (\s@Tag' {} a -> s {value = a} :: Tag)++instance Data.FromJSON Tag where+  parseJSON =+    Data.withObject+      "Tag"+      ( \x ->+          Tag'+            Prelude.<$> (x Data..: "Key")+            Prelude.<*> (x Data..: "Value")+      )++instance Prelude.Hashable Tag where+  hashWithSalt _salt Tag' {..} =+    _salt+      `Prelude.hashWithSalt` key+      `Prelude.hashWithSalt` value++instance Prelude.NFData Tag where+  rnf Tag' {..} =+    Prelude.rnf key `Prelude.seq` Prelude.rnf value++instance Data.ToJSON Tag where+  toJSON Tag' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("Key" Data..= key),+            Prelude.Just ("Value" Data..= value)+          ]+      )
+ gen/Amazonka/DeviceFarm/Types/Test.hs view
@@ -0,0 +1,428 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.Test+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.Test where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.Counters+import Amazonka.DeviceFarm.Types.DeviceMinutes+import Amazonka.DeviceFarm.Types.ExecutionResult+import Amazonka.DeviceFarm.Types.ExecutionStatus+import Amazonka.DeviceFarm.Types.TestType+import qualified Amazonka.Prelude as Prelude++-- | Represents a condition that is evaluated.+--+-- /See:/ 'newTest' smart constructor.+data Test = Test'+  { -- | The test\'s ARN.+    arn :: Prelude.Maybe Prelude.Text,+    -- | The test\'s result counters.+    counters :: Prelude.Maybe Counters,+    -- | When the test was created.+    created :: Prelude.Maybe Data.POSIX,+    -- | Represents the total (metered or unmetered) minutes used by the test.+    deviceMinutes :: Prelude.Maybe DeviceMinutes,+    -- | A message about the test\'s result.+    message :: Prelude.Maybe Prelude.Text,+    -- | The test\'s name.+    name :: Prelude.Maybe Prelude.Text,+    -- | The test\'s result.+    --+    -- Allowed values include:+    --+    -- -   PENDING+    --+    -- -   PASSED+    --+    -- -   WARNED+    --+    -- -   FAILED+    --+    -- -   SKIPPED+    --+    -- -   ERRORED+    --+    -- -   STOPPED+    result :: Prelude.Maybe ExecutionResult,+    -- | The test\'s start time.+    started :: Prelude.Maybe Data.POSIX,+    -- | The test\'s status.+    --+    -- Allowed values include:+    --+    -- -   PENDING+    --+    -- -   PENDING_CONCURRENCY+    --+    -- -   PENDING_DEVICE+    --+    -- -   PROCESSING+    --+    -- -   SCHEDULING+    --+    -- -   PREPARING+    --+    -- -   RUNNING+    --+    -- -   COMPLETED+    --+    -- -   STOPPING+    status :: Prelude.Maybe ExecutionStatus,+    -- | The test\'s stop time.+    stopped :: Prelude.Maybe Data.POSIX,+    -- | The test\'s type.+    --+    -- Must be one of the following values:+    --+    -- -   BUILTIN_FUZZ+    --+    -- -   BUILTIN_EXPLORER+    --+    --     For Android, an app explorer that traverses an Android app,+    --     interacting with it and capturing screenshots at the same time.+    --+    -- -   APPIUM_JAVA_JUNIT+    --+    -- -   APPIUM_JAVA_TESTNG+    --+    -- -   APPIUM_PYTHON+    --+    -- -   APPIUM_NODE+    --+    -- -   APPIUM_RUBY+    --+    -- -   APPIUM_WEB_JAVA_JUNIT+    --+    -- -   APPIUM_WEB_JAVA_TESTNG+    --+    -- -   APPIUM_WEB_PYTHON+    --+    -- -   APPIUM_WEB_NODE+    --+    -- -   APPIUM_WEB_RUBY+    --+    -- -   CALABASH+    --+    -- -   INSTRUMENTATION+    --+    -- -   UIAUTOMATION+    --+    -- -   UIAUTOMATOR+    --+    -- -   XCTEST+    --+    -- -   XCTEST_UI+    type' :: Prelude.Maybe TestType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Test' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'test_arn' - The test\'s ARN.+--+-- 'counters', 'test_counters' - The test\'s result counters.+--+-- 'created', 'test_created' - When the test was created.+--+-- 'deviceMinutes', 'test_deviceMinutes' - Represents the total (metered or unmetered) minutes used by the test.+--+-- 'message', 'test_message' - A message about the test\'s result.+--+-- 'name', 'test_name' - The test\'s name.+--+-- 'result', 'test_result' - The test\'s result.+--+-- Allowed values include:+--+-- -   PENDING+--+-- -   PASSED+--+-- -   WARNED+--+-- -   FAILED+--+-- -   SKIPPED+--+-- -   ERRORED+--+-- -   STOPPED+--+-- 'started', 'test_started' - The test\'s start time.+--+-- 'status', 'test_status' - The test\'s status.+--+-- Allowed values include:+--+-- -   PENDING+--+-- -   PENDING_CONCURRENCY+--+-- -   PENDING_DEVICE+--+-- -   PROCESSING+--+-- -   SCHEDULING+--+-- -   PREPARING+--+-- -   RUNNING+--+-- -   COMPLETED+--+-- -   STOPPING+--+-- 'stopped', 'test_stopped' - The test\'s stop time.+--+-- 'type'', 'test_type' - The test\'s type.+--+-- Must be one of the following values:+--+-- -   BUILTIN_FUZZ+--+-- -   BUILTIN_EXPLORER+--+--     For Android, an app explorer that traverses an Android app,+--     interacting with it and capturing screenshots at the same time.+--+-- -   APPIUM_JAVA_JUNIT+--+-- -   APPIUM_JAVA_TESTNG+--+-- -   APPIUM_PYTHON+--+-- -   APPIUM_NODE+--+-- -   APPIUM_RUBY+--+-- -   APPIUM_WEB_JAVA_JUNIT+--+-- -   APPIUM_WEB_JAVA_TESTNG+--+-- -   APPIUM_WEB_PYTHON+--+-- -   APPIUM_WEB_NODE+--+-- -   APPIUM_WEB_RUBY+--+-- -   CALABASH+--+-- -   INSTRUMENTATION+--+-- -   UIAUTOMATION+--+-- -   UIAUTOMATOR+--+-- -   XCTEST+--+-- -   XCTEST_UI+newTest ::+  Test+newTest =+  Test'+    { arn = Prelude.Nothing,+      counters = Prelude.Nothing,+      created = Prelude.Nothing,+      deviceMinutes = Prelude.Nothing,+      message = Prelude.Nothing,+      name = Prelude.Nothing,+      result = Prelude.Nothing,+      started = Prelude.Nothing,+      status = Prelude.Nothing,+      stopped = Prelude.Nothing,+      type' = Prelude.Nothing+    }++-- | The test\'s ARN.+test_arn :: Lens.Lens' Test (Prelude.Maybe Prelude.Text)+test_arn = Lens.lens (\Test' {arn} -> arn) (\s@Test' {} a -> s {arn = a} :: Test)++-- | The test\'s result counters.+test_counters :: Lens.Lens' Test (Prelude.Maybe Counters)+test_counters = Lens.lens (\Test' {counters} -> counters) (\s@Test' {} a -> s {counters = a} :: Test)++-- | When the test was created.+test_created :: Lens.Lens' Test (Prelude.Maybe Prelude.UTCTime)+test_created = Lens.lens (\Test' {created} -> created) (\s@Test' {} a -> s {created = a} :: Test) Prelude.. Lens.mapping Data._Time++-- | Represents the total (metered or unmetered) minutes used by the test.+test_deviceMinutes :: Lens.Lens' Test (Prelude.Maybe DeviceMinutes)+test_deviceMinutes = Lens.lens (\Test' {deviceMinutes} -> deviceMinutes) (\s@Test' {} a -> s {deviceMinutes = a} :: Test)++-- | A message about the test\'s result.+test_message :: Lens.Lens' Test (Prelude.Maybe Prelude.Text)+test_message = Lens.lens (\Test' {message} -> message) (\s@Test' {} a -> s {message = a} :: Test)++-- | The test\'s name.+test_name :: Lens.Lens' Test (Prelude.Maybe Prelude.Text)+test_name = Lens.lens (\Test' {name} -> name) (\s@Test' {} a -> s {name = a} :: Test)++-- | The test\'s result.+--+-- Allowed values include:+--+-- -   PENDING+--+-- -   PASSED+--+-- -   WARNED+--+-- -   FAILED+--+-- -   SKIPPED+--+-- -   ERRORED+--+-- -   STOPPED+test_result :: Lens.Lens' Test (Prelude.Maybe ExecutionResult)+test_result = Lens.lens (\Test' {result} -> result) (\s@Test' {} a -> s {result = a} :: Test)++-- | The test\'s start time.+test_started :: Lens.Lens' Test (Prelude.Maybe Prelude.UTCTime)+test_started = Lens.lens (\Test' {started} -> started) (\s@Test' {} a -> s {started = a} :: Test) Prelude.. Lens.mapping Data._Time++-- | The test\'s status.+--+-- Allowed values include:+--+-- -   PENDING+--+-- -   PENDING_CONCURRENCY+--+-- -   PENDING_DEVICE+--+-- -   PROCESSING+--+-- -   SCHEDULING+--+-- -   PREPARING+--+-- -   RUNNING+--+-- -   COMPLETED+--+-- -   STOPPING+test_status :: Lens.Lens' Test (Prelude.Maybe ExecutionStatus)+test_status = Lens.lens (\Test' {status} -> status) (\s@Test' {} a -> s {status = a} :: Test)++-- | The test\'s stop time.+test_stopped :: Lens.Lens' Test (Prelude.Maybe Prelude.UTCTime)+test_stopped = Lens.lens (\Test' {stopped} -> stopped) (\s@Test' {} a -> s {stopped = a} :: Test) Prelude.. Lens.mapping Data._Time++-- | The test\'s type.+--+-- Must be one of the following values:+--+-- -   BUILTIN_FUZZ+--+-- -   BUILTIN_EXPLORER+--+--     For Android, an app explorer that traverses an Android app,+--     interacting with it and capturing screenshots at the same time.+--+-- -   APPIUM_JAVA_JUNIT+--+-- -   APPIUM_JAVA_TESTNG+--+-- -   APPIUM_PYTHON+--+-- -   APPIUM_NODE+--+-- -   APPIUM_RUBY+--+-- -   APPIUM_WEB_JAVA_JUNIT+--+-- -   APPIUM_WEB_JAVA_TESTNG+--+-- -   APPIUM_WEB_PYTHON+--+-- -   APPIUM_WEB_NODE+--+-- -   APPIUM_WEB_RUBY+--+-- -   CALABASH+--+-- -   INSTRUMENTATION+--+-- -   UIAUTOMATION+--+-- -   UIAUTOMATOR+--+-- -   XCTEST+--+-- -   XCTEST_UI+test_type :: Lens.Lens' Test (Prelude.Maybe TestType)+test_type = Lens.lens (\Test' {type'} -> type') (\s@Test' {} a -> s {type' = a} :: Test)++instance Data.FromJSON Test where+  parseJSON =+    Data.withObject+      "Test"+      ( \x ->+          Test'+            Prelude.<$> (x Data..:? "arn")+            Prelude.<*> (x Data..:? "counters")+            Prelude.<*> (x Data..:? "created")+            Prelude.<*> (x Data..:? "deviceMinutes")+            Prelude.<*> (x Data..:? "message")+            Prelude.<*> (x Data..:? "name")+            Prelude.<*> (x Data..:? "result")+            Prelude.<*> (x Data..:? "started")+            Prelude.<*> (x Data..:? "status")+            Prelude.<*> (x Data..:? "stopped")+            Prelude.<*> (x Data..:? "type")+      )++instance Prelude.Hashable Test where+  hashWithSalt _salt Test' {..} =+    _salt+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` counters+      `Prelude.hashWithSalt` created+      `Prelude.hashWithSalt` deviceMinutes+      `Prelude.hashWithSalt` message+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` result+      `Prelude.hashWithSalt` started+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` stopped+      `Prelude.hashWithSalt` type'++instance Prelude.NFData Test where+  rnf Test' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf counters+      `Prelude.seq` Prelude.rnf created+      `Prelude.seq` Prelude.rnf deviceMinutes+      `Prelude.seq` Prelude.rnf message+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf result+      `Prelude.seq` Prelude.rnf started+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf stopped+      `Prelude.seq` Prelude.rnf type'
+ gen/Amazonka/DeviceFarm/Types/TestGridProject.hs view
@@ -0,0 +1,122 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.TestGridProject+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.TestGridProject where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.TestGridVpcConfig+import qualified Amazonka.Prelude as Prelude++-- | A Selenium testing project. Projects are used to collect and collate+-- sessions.+--+-- /See:/ 'newTestGridProject' smart constructor.+data TestGridProject = TestGridProject'+  { -- | The ARN for the project.+    arn :: Prelude.Maybe Prelude.Text,+    -- | When the project was created.+    created :: Prelude.Maybe Data.POSIX,+    -- | A human-readable description for the project.+    description :: Prelude.Maybe Prelude.Text,+    -- | A human-readable name for the project.+    name :: Prelude.Maybe Prelude.Text,+    -- | The VPC security groups and subnets that are attached to a project.+    vpcConfig :: Prelude.Maybe TestGridVpcConfig+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TestGridProject' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'testGridProject_arn' - The ARN for the project.+--+-- 'created', 'testGridProject_created' - When the project was created.+--+-- 'description', 'testGridProject_description' - A human-readable description for the project.+--+-- 'name', 'testGridProject_name' - A human-readable name for the project.+--+-- 'vpcConfig', 'testGridProject_vpcConfig' - The VPC security groups and subnets that are attached to a project.+newTestGridProject ::+  TestGridProject+newTestGridProject =+  TestGridProject'+    { arn = Prelude.Nothing,+      created = Prelude.Nothing,+      description = Prelude.Nothing,+      name = Prelude.Nothing,+      vpcConfig = Prelude.Nothing+    }++-- | The ARN for the project.+testGridProject_arn :: Lens.Lens' TestGridProject (Prelude.Maybe Prelude.Text)+testGridProject_arn = Lens.lens (\TestGridProject' {arn} -> arn) (\s@TestGridProject' {} a -> s {arn = a} :: TestGridProject)++-- | When the project was created.+testGridProject_created :: Lens.Lens' TestGridProject (Prelude.Maybe Prelude.UTCTime)+testGridProject_created = Lens.lens (\TestGridProject' {created} -> created) (\s@TestGridProject' {} a -> s {created = a} :: TestGridProject) Prelude.. Lens.mapping Data._Time++-- | A human-readable description for the project.+testGridProject_description :: Lens.Lens' TestGridProject (Prelude.Maybe Prelude.Text)+testGridProject_description = Lens.lens (\TestGridProject' {description} -> description) (\s@TestGridProject' {} a -> s {description = a} :: TestGridProject)++-- | A human-readable name for the project.+testGridProject_name :: Lens.Lens' TestGridProject (Prelude.Maybe Prelude.Text)+testGridProject_name = Lens.lens (\TestGridProject' {name} -> name) (\s@TestGridProject' {} a -> s {name = a} :: TestGridProject)++-- | The VPC security groups and subnets that are attached to a project.+testGridProject_vpcConfig :: Lens.Lens' TestGridProject (Prelude.Maybe TestGridVpcConfig)+testGridProject_vpcConfig = Lens.lens (\TestGridProject' {vpcConfig} -> vpcConfig) (\s@TestGridProject' {} a -> s {vpcConfig = a} :: TestGridProject)++instance Data.FromJSON TestGridProject where+  parseJSON =+    Data.withObject+      "TestGridProject"+      ( \x ->+          TestGridProject'+            Prelude.<$> (x Data..:? "arn")+            Prelude.<*> (x Data..:? "created")+            Prelude.<*> (x Data..:? "description")+            Prelude.<*> (x Data..:? "name")+            Prelude.<*> (x Data..:? "vpcConfig")+      )++instance Prelude.Hashable TestGridProject where+  hashWithSalt _salt TestGridProject' {..} =+    _salt+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` created+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` vpcConfig++instance Prelude.NFData TestGridProject where+  rnf TestGridProject' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf created+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf vpcConfig
+ gen/Amazonka/DeviceFarm/Types/TestGridSession.hs view
@@ -0,0 +1,137 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.TestGridSession+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.TestGridSession where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.TestGridSessionStatus+import qualified Amazonka.Prelude as Prelude++-- | A TestGridSession is a single instance of a browser launched from the+-- URL provided by a call to CreateTestGridUrl.+--+-- /See:/ 'newTestGridSession' smart constructor.+data TestGridSession = TestGridSession'+  { -- | The ARN of the session.+    arn :: Prelude.Maybe Prelude.Text,+    -- | The number of billed minutes that were used for this session.+    billingMinutes :: Prelude.Maybe Prelude.Double,+    -- | The time that the session was started.+    created :: Prelude.Maybe Data.POSIX,+    -- | The time the session ended.+    ended :: Prelude.Maybe Data.POSIX,+    -- | A JSON object of options and parameters passed to the Selenium+    -- WebDriver.+    seleniumProperties :: Prelude.Maybe Prelude.Text,+    -- | The state of the session.+    status :: Prelude.Maybe TestGridSessionStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TestGridSession' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'testGridSession_arn' - The ARN of the session.+--+-- 'billingMinutes', 'testGridSession_billingMinutes' - The number of billed minutes that were used for this session.+--+-- 'created', 'testGridSession_created' - The time that the session was started.+--+-- 'ended', 'testGridSession_ended' - The time the session ended.+--+-- 'seleniumProperties', 'testGridSession_seleniumProperties' - A JSON object of options and parameters passed to the Selenium+-- WebDriver.+--+-- 'status', 'testGridSession_status' - The state of the session.+newTestGridSession ::+  TestGridSession+newTestGridSession =+  TestGridSession'+    { arn = Prelude.Nothing,+      billingMinutes = Prelude.Nothing,+      created = Prelude.Nothing,+      ended = Prelude.Nothing,+      seleniumProperties = Prelude.Nothing,+      status = Prelude.Nothing+    }++-- | The ARN of the session.+testGridSession_arn :: Lens.Lens' TestGridSession (Prelude.Maybe Prelude.Text)+testGridSession_arn = Lens.lens (\TestGridSession' {arn} -> arn) (\s@TestGridSession' {} a -> s {arn = a} :: TestGridSession)++-- | The number of billed minutes that were used for this session.+testGridSession_billingMinutes :: Lens.Lens' TestGridSession (Prelude.Maybe Prelude.Double)+testGridSession_billingMinutes = Lens.lens (\TestGridSession' {billingMinutes} -> billingMinutes) (\s@TestGridSession' {} a -> s {billingMinutes = a} :: TestGridSession)++-- | The time that the session was started.+testGridSession_created :: Lens.Lens' TestGridSession (Prelude.Maybe Prelude.UTCTime)+testGridSession_created = Lens.lens (\TestGridSession' {created} -> created) (\s@TestGridSession' {} a -> s {created = a} :: TestGridSession) Prelude.. Lens.mapping Data._Time++-- | The time the session ended.+testGridSession_ended :: Lens.Lens' TestGridSession (Prelude.Maybe Prelude.UTCTime)+testGridSession_ended = Lens.lens (\TestGridSession' {ended} -> ended) (\s@TestGridSession' {} a -> s {ended = a} :: TestGridSession) Prelude.. Lens.mapping Data._Time++-- | A JSON object of options and parameters passed to the Selenium+-- WebDriver.+testGridSession_seleniumProperties :: Lens.Lens' TestGridSession (Prelude.Maybe Prelude.Text)+testGridSession_seleniumProperties = Lens.lens (\TestGridSession' {seleniumProperties} -> seleniumProperties) (\s@TestGridSession' {} a -> s {seleniumProperties = a} :: TestGridSession)++-- | The state of the session.+testGridSession_status :: Lens.Lens' TestGridSession (Prelude.Maybe TestGridSessionStatus)+testGridSession_status = Lens.lens (\TestGridSession' {status} -> status) (\s@TestGridSession' {} a -> s {status = a} :: TestGridSession)++instance Data.FromJSON TestGridSession where+  parseJSON =+    Data.withObject+      "TestGridSession"+      ( \x ->+          TestGridSession'+            Prelude.<$> (x Data..:? "arn")+            Prelude.<*> (x Data..:? "billingMinutes")+            Prelude.<*> (x Data..:? "created")+            Prelude.<*> (x Data..:? "ended")+            Prelude.<*> (x Data..:? "seleniumProperties")+            Prelude.<*> (x Data..:? "status")+      )++instance Prelude.Hashable TestGridSession where+  hashWithSalt _salt TestGridSession' {..} =+    _salt+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` billingMinutes+      `Prelude.hashWithSalt` created+      `Prelude.hashWithSalt` ended+      `Prelude.hashWithSalt` seleniumProperties+      `Prelude.hashWithSalt` status++instance Prelude.NFData TestGridSession where+  rnf TestGridSession' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf billingMinutes+      `Prelude.seq` Prelude.rnf created+      `Prelude.seq` Prelude.rnf ended+      `Prelude.seq` Prelude.rnf seleniumProperties+      `Prelude.seq` Prelude.rnf status
+ gen/Amazonka/DeviceFarm/Types/TestGridSessionAction.hs view
@@ -0,0 +1,123 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.TestGridSessionAction+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.TestGridSessionAction where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | An action taken by a TestGridSession browser instance.+--+-- /See:/ 'newTestGridSessionAction' smart constructor.+data TestGridSessionAction = TestGridSessionAction'+  { -- | The action taken by the session.+    action :: Prelude.Maybe Prelude.Text,+    -- | The time, in milliseconds, that the action took to complete in the+    -- browser.+    duration :: Prelude.Maybe Prelude.Integer,+    -- | HTTP method that the browser used to make the request.+    requestMethod :: Prelude.Maybe Prelude.Text,+    -- | The time that the session invoked the action.+    started :: Prelude.Maybe Data.POSIX,+    -- | HTTP status code returned to the browser when the action was taken.+    statusCode :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TestGridSessionAction' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'action', 'testGridSessionAction_action' - The action taken by the session.+--+-- 'duration', 'testGridSessionAction_duration' - The time, in milliseconds, that the action took to complete in the+-- browser.+--+-- 'requestMethod', 'testGridSessionAction_requestMethod' - HTTP method that the browser used to make the request.+--+-- 'started', 'testGridSessionAction_started' - The time that the session invoked the action.+--+-- 'statusCode', 'testGridSessionAction_statusCode' - HTTP status code returned to the browser when the action was taken.+newTestGridSessionAction ::+  TestGridSessionAction+newTestGridSessionAction =+  TestGridSessionAction'+    { action = Prelude.Nothing,+      duration = Prelude.Nothing,+      requestMethod = Prelude.Nothing,+      started = Prelude.Nothing,+      statusCode = Prelude.Nothing+    }++-- | The action taken by the session.+testGridSessionAction_action :: Lens.Lens' TestGridSessionAction (Prelude.Maybe Prelude.Text)+testGridSessionAction_action = Lens.lens (\TestGridSessionAction' {action} -> action) (\s@TestGridSessionAction' {} a -> s {action = a} :: TestGridSessionAction)++-- | The time, in milliseconds, that the action took to complete in the+-- browser.+testGridSessionAction_duration :: Lens.Lens' TestGridSessionAction (Prelude.Maybe Prelude.Integer)+testGridSessionAction_duration = Lens.lens (\TestGridSessionAction' {duration} -> duration) (\s@TestGridSessionAction' {} a -> s {duration = a} :: TestGridSessionAction)++-- | HTTP method that the browser used to make the request.+testGridSessionAction_requestMethod :: Lens.Lens' TestGridSessionAction (Prelude.Maybe Prelude.Text)+testGridSessionAction_requestMethod = Lens.lens (\TestGridSessionAction' {requestMethod} -> requestMethod) (\s@TestGridSessionAction' {} a -> s {requestMethod = a} :: TestGridSessionAction)++-- | The time that the session invoked the action.+testGridSessionAction_started :: Lens.Lens' TestGridSessionAction (Prelude.Maybe Prelude.UTCTime)+testGridSessionAction_started = Lens.lens (\TestGridSessionAction' {started} -> started) (\s@TestGridSessionAction' {} a -> s {started = a} :: TestGridSessionAction) Prelude.. Lens.mapping Data._Time++-- | HTTP status code returned to the browser when the action was taken.+testGridSessionAction_statusCode :: Lens.Lens' TestGridSessionAction (Prelude.Maybe Prelude.Text)+testGridSessionAction_statusCode = Lens.lens (\TestGridSessionAction' {statusCode} -> statusCode) (\s@TestGridSessionAction' {} a -> s {statusCode = a} :: TestGridSessionAction)++instance Data.FromJSON TestGridSessionAction where+  parseJSON =+    Data.withObject+      "TestGridSessionAction"+      ( \x ->+          TestGridSessionAction'+            Prelude.<$> (x Data..:? "action")+            Prelude.<*> (x Data..:? "duration")+            Prelude.<*> (x Data..:? "requestMethod")+            Prelude.<*> (x Data..:? "started")+            Prelude.<*> (x Data..:? "statusCode")+      )++instance Prelude.Hashable TestGridSessionAction where+  hashWithSalt _salt TestGridSessionAction' {..} =+    _salt+      `Prelude.hashWithSalt` action+      `Prelude.hashWithSalt` duration+      `Prelude.hashWithSalt` requestMethod+      `Prelude.hashWithSalt` started+      `Prelude.hashWithSalt` statusCode++instance Prelude.NFData TestGridSessionAction where+  rnf TestGridSessionAction' {..} =+    Prelude.rnf action+      `Prelude.seq` Prelude.rnf duration+      `Prelude.seq` Prelude.rnf requestMethod+      `Prelude.seq` Prelude.rnf started+      `Prelude.seq` Prelude.rnf statusCode
+ gen/Amazonka/DeviceFarm/Types/TestGridSessionArtifact.hs view
@@ -0,0 +1,102 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.TestGridSessionArtifact+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.TestGridSessionArtifact where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.TestGridSessionArtifactType+import qualified Amazonka.Prelude as Prelude++-- | Artifacts are video and other files that are produced in the process of+-- running a browser in an automated context.+--+-- Video elements might be broken up into multiple artifacts as they grow+-- in size during creation.+--+-- /See:/ 'newTestGridSessionArtifact' smart constructor.+data TestGridSessionArtifact = TestGridSessionArtifact'+  { -- | The file name of the artifact.+    filename :: Prelude.Maybe Prelude.Text,+    -- | The kind of artifact.+    type' :: Prelude.Maybe TestGridSessionArtifactType,+    -- | A semi-stable URL to the content of the object.+    url :: Prelude.Maybe (Data.Sensitive Prelude.Text)+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TestGridSessionArtifact' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'filename', 'testGridSessionArtifact_filename' - The file name of the artifact.+--+-- 'type'', 'testGridSessionArtifact_type' - The kind of artifact.+--+-- 'url', 'testGridSessionArtifact_url' - A semi-stable URL to the content of the object.+newTestGridSessionArtifact ::+  TestGridSessionArtifact+newTestGridSessionArtifact =+  TestGridSessionArtifact'+    { filename =+        Prelude.Nothing,+      type' = Prelude.Nothing,+      url = Prelude.Nothing+    }++-- | The file name of the artifact.+testGridSessionArtifact_filename :: Lens.Lens' TestGridSessionArtifact (Prelude.Maybe Prelude.Text)+testGridSessionArtifact_filename = Lens.lens (\TestGridSessionArtifact' {filename} -> filename) (\s@TestGridSessionArtifact' {} a -> s {filename = a} :: TestGridSessionArtifact)++-- | The kind of artifact.+testGridSessionArtifact_type :: Lens.Lens' TestGridSessionArtifact (Prelude.Maybe TestGridSessionArtifactType)+testGridSessionArtifact_type = Lens.lens (\TestGridSessionArtifact' {type'} -> type') (\s@TestGridSessionArtifact' {} a -> s {type' = a} :: TestGridSessionArtifact)++-- | A semi-stable URL to the content of the object.+testGridSessionArtifact_url :: Lens.Lens' TestGridSessionArtifact (Prelude.Maybe Prelude.Text)+testGridSessionArtifact_url = Lens.lens (\TestGridSessionArtifact' {url} -> url) (\s@TestGridSessionArtifact' {} a -> s {url = a} :: TestGridSessionArtifact) Prelude.. Lens.mapping Data._Sensitive++instance Data.FromJSON TestGridSessionArtifact where+  parseJSON =+    Data.withObject+      "TestGridSessionArtifact"+      ( \x ->+          TestGridSessionArtifact'+            Prelude.<$> (x Data..:? "filename")+            Prelude.<*> (x Data..:? "type")+            Prelude.<*> (x Data..:? "url")+      )++instance Prelude.Hashable TestGridSessionArtifact where+  hashWithSalt _salt TestGridSessionArtifact' {..} =+    _salt+      `Prelude.hashWithSalt` filename+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` url++instance Prelude.NFData TestGridSessionArtifact where+  rnf TestGridSessionArtifact' {..} =+    Prelude.rnf filename+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf url
+ gen/Amazonka/DeviceFarm/Types/TestGridSessionArtifactCategory.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.TestGridSessionArtifactCategory+  ( TestGridSessionArtifactCategory+      ( ..,+        TestGridSessionArtifactCategory_LOG,+        TestGridSessionArtifactCategory_VIDEO+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype TestGridSessionArtifactCategory = TestGridSessionArtifactCategory'+  { fromTestGridSessionArtifactCategory ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern TestGridSessionArtifactCategory_LOG :: TestGridSessionArtifactCategory+pattern TestGridSessionArtifactCategory_LOG = TestGridSessionArtifactCategory' "LOG"++pattern TestGridSessionArtifactCategory_VIDEO :: TestGridSessionArtifactCategory+pattern TestGridSessionArtifactCategory_VIDEO = TestGridSessionArtifactCategory' "VIDEO"++{-# COMPLETE+  TestGridSessionArtifactCategory_LOG,+  TestGridSessionArtifactCategory_VIDEO,+  TestGridSessionArtifactCategory'+  #-}
+ gen/Amazonka/DeviceFarm/Types/TestGridSessionArtifactType.hs view
@@ -0,0 +1,76 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.TestGridSessionArtifactType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.TestGridSessionArtifactType+  ( TestGridSessionArtifactType+      ( ..,+        TestGridSessionArtifactType_SELENIUM_LOG,+        TestGridSessionArtifactType_UNKNOWN,+        TestGridSessionArtifactType_VIDEO+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype TestGridSessionArtifactType = TestGridSessionArtifactType'+  { fromTestGridSessionArtifactType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern TestGridSessionArtifactType_SELENIUM_LOG :: TestGridSessionArtifactType+pattern TestGridSessionArtifactType_SELENIUM_LOG = TestGridSessionArtifactType' "SELENIUM_LOG"++pattern TestGridSessionArtifactType_UNKNOWN :: TestGridSessionArtifactType+pattern TestGridSessionArtifactType_UNKNOWN = TestGridSessionArtifactType' "UNKNOWN"++pattern TestGridSessionArtifactType_VIDEO :: TestGridSessionArtifactType+pattern TestGridSessionArtifactType_VIDEO = TestGridSessionArtifactType' "VIDEO"++{-# COMPLETE+  TestGridSessionArtifactType_SELENIUM_LOG,+  TestGridSessionArtifactType_UNKNOWN,+  TestGridSessionArtifactType_VIDEO,+  TestGridSessionArtifactType'+  #-}
+ gen/Amazonka/DeviceFarm/Types/TestGridSessionStatus.hs view
@@ -0,0 +1,76 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.TestGridSessionStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.TestGridSessionStatus+  ( TestGridSessionStatus+      ( ..,+        TestGridSessionStatus_ACTIVE,+        TestGridSessionStatus_CLOSED,+        TestGridSessionStatus_ERRORED+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype TestGridSessionStatus = TestGridSessionStatus'+  { fromTestGridSessionStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern TestGridSessionStatus_ACTIVE :: TestGridSessionStatus+pattern TestGridSessionStatus_ACTIVE = TestGridSessionStatus' "ACTIVE"++pattern TestGridSessionStatus_CLOSED :: TestGridSessionStatus+pattern TestGridSessionStatus_CLOSED = TestGridSessionStatus' "CLOSED"++pattern TestGridSessionStatus_ERRORED :: TestGridSessionStatus+pattern TestGridSessionStatus_ERRORED = TestGridSessionStatus' "ERRORED"++{-# COMPLETE+  TestGridSessionStatus_ACTIVE,+  TestGridSessionStatus_CLOSED,+  TestGridSessionStatus_ERRORED,+  TestGridSessionStatus'+  #-}
+ gen/Amazonka/DeviceFarm/Types/TestGridVpcConfig.hs view
@@ -0,0 +1,117 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.TestGridVpcConfig+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.TestGridVpcConfig where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | The VPC security groups and subnets that are attached to a project.+--+-- /See:/ 'newTestGridVpcConfig' smart constructor.+data TestGridVpcConfig = TestGridVpcConfig'+  { -- | A list of VPC security group IDs in your Amazon VPC.+    securityGroupIds :: Prelude.NonEmpty Prelude.Text,+    -- | A list of VPC subnet IDs in your Amazon VPC.+    subnetIds :: Prelude.NonEmpty Prelude.Text,+    -- | The ID of the Amazon VPC.+    vpcId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TestGridVpcConfig' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'securityGroupIds', 'testGridVpcConfig_securityGroupIds' - A list of VPC security group IDs in your Amazon VPC.+--+-- 'subnetIds', 'testGridVpcConfig_subnetIds' - A list of VPC subnet IDs in your Amazon VPC.+--+-- 'vpcId', 'testGridVpcConfig_vpcId' - The ID of the Amazon VPC.+newTestGridVpcConfig ::+  -- | 'securityGroupIds'+  Prelude.NonEmpty Prelude.Text ->+  -- | 'subnetIds'+  Prelude.NonEmpty Prelude.Text ->+  -- | 'vpcId'+  Prelude.Text ->+  TestGridVpcConfig+newTestGridVpcConfig+  pSecurityGroupIds_+  pSubnetIds_+  pVpcId_ =+    TestGridVpcConfig'+      { securityGroupIds =+          Lens.coerced Lens.# pSecurityGroupIds_,+        subnetIds = Lens.coerced Lens.# pSubnetIds_,+        vpcId = pVpcId_+      }++-- | A list of VPC security group IDs in your Amazon VPC.+testGridVpcConfig_securityGroupIds :: Lens.Lens' TestGridVpcConfig (Prelude.NonEmpty Prelude.Text)+testGridVpcConfig_securityGroupIds = Lens.lens (\TestGridVpcConfig' {securityGroupIds} -> securityGroupIds) (\s@TestGridVpcConfig' {} a -> s {securityGroupIds = a} :: TestGridVpcConfig) Prelude.. Lens.coerced++-- | A list of VPC subnet IDs in your Amazon VPC.+testGridVpcConfig_subnetIds :: Lens.Lens' TestGridVpcConfig (Prelude.NonEmpty Prelude.Text)+testGridVpcConfig_subnetIds = Lens.lens (\TestGridVpcConfig' {subnetIds} -> subnetIds) (\s@TestGridVpcConfig' {} a -> s {subnetIds = a} :: TestGridVpcConfig) Prelude.. Lens.coerced++-- | The ID of the Amazon VPC.+testGridVpcConfig_vpcId :: Lens.Lens' TestGridVpcConfig Prelude.Text+testGridVpcConfig_vpcId = Lens.lens (\TestGridVpcConfig' {vpcId} -> vpcId) (\s@TestGridVpcConfig' {} a -> s {vpcId = a} :: TestGridVpcConfig)++instance Data.FromJSON TestGridVpcConfig where+  parseJSON =+    Data.withObject+      "TestGridVpcConfig"+      ( \x ->+          TestGridVpcConfig'+            Prelude.<$> (x Data..: "securityGroupIds")+            Prelude.<*> (x Data..: "subnetIds")+            Prelude.<*> (x Data..: "vpcId")+      )++instance Prelude.Hashable TestGridVpcConfig where+  hashWithSalt _salt TestGridVpcConfig' {..} =+    _salt+      `Prelude.hashWithSalt` securityGroupIds+      `Prelude.hashWithSalt` subnetIds+      `Prelude.hashWithSalt` vpcId++instance Prelude.NFData TestGridVpcConfig where+  rnf TestGridVpcConfig' {..} =+    Prelude.rnf securityGroupIds+      `Prelude.seq` Prelude.rnf subnetIds+      `Prelude.seq` Prelude.rnf vpcId++instance Data.ToJSON TestGridVpcConfig where+  toJSON TestGridVpcConfig' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("securityGroupIds" Data..= securityGroupIds),+            Prelude.Just ("subnetIds" Data..= subnetIds),+            Prelude.Just ("vpcId" Data..= vpcId)+          ]+      )
+ gen/Amazonka/DeviceFarm/Types/TestType.hs view
@@ -0,0 +1,166 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.TestType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.TestType+  ( TestType+      ( ..,+        TestType_APPIUM_JAVA_JUNIT,+        TestType_APPIUM_JAVA_TESTNG,+        TestType_APPIUM_NODE,+        TestType_APPIUM_PYTHON,+        TestType_APPIUM_RUBY,+        TestType_APPIUM_WEB_JAVA_JUNIT,+        TestType_APPIUM_WEB_JAVA_TESTNG,+        TestType_APPIUM_WEB_NODE,+        TestType_APPIUM_WEB_PYTHON,+        TestType_APPIUM_WEB_RUBY,+        TestType_BUILTIN_EXPLORER,+        TestType_BUILTIN_FUZZ,+        TestType_CALABASH,+        TestType_INSTRUMENTATION,+        TestType_REMOTE_ACCESS_RECORD,+        TestType_REMOTE_ACCESS_REPLAY,+        TestType_UIAUTOMATION,+        TestType_UIAUTOMATOR,+        TestType_WEB_PERFORMANCE_PROFILE,+        TestType_XCTEST,+        TestType_XCTEST_UI+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype TestType = TestType'+  { fromTestType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern TestType_APPIUM_JAVA_JUNIT :: TestType+pattern TestType_APPIUM_JAVA_JUNIT = TestType' "APPIUM_JAVA_JUNIT"++pattern TestType_APPIUM_JAVA_TESTNG :: TestType+pattern TestType_APPIUM_JAVA_TESTNG = TestType' "APPIUM_JAVA_TESTNG"++pattern TestType_APPIUM_NODE :: TestType+pattern TestType_APPIUM_NODE = TestType' "APPIUM_NODE"++pattern TestType_APPIUM_PYTHON :: TestType+pattern TestType_APPIUM_PYTHON = TestType' "APPIUM_PYTHON"++pattern TestType_APPIUM_RUBY :: TestType+pattern TestType_APPIUM_RUBY = TestType' "APPIUM_RUBY"++pattern TestType_APPIUM_WEB_JAVA_JUNIT :: TestType+pattern TestType_APPIUM_WEB_JAVA_JUNIT = TestType' "APPIUM_WEB_JAVA_JUNIT"++pattern TestType_APPIUM_WEB_JAVA_TESTNG :: TestType+pattern TestType_APPIUM_WEB_JAVA_TESTNG = TestType' "APPIUM_WEB_JAVA_TESTNG"++pattern TestType_APPIUM_WEB_NODE :: TestType+pattern TestType_APPIUM_WEB_NODE = TestType' "APPIUM_WEB_NODE"++pattern TestType_APPIUM_WEB_PYTHON :: TestType+pattern TestType_APPIUM_WEB_PYTHON = TestType' "APPIUM_WEB_PYTHON"++pattern TestType_APPIUM_WEB_RUBY :: TestType+pattern TestType_APPIUM_WEB_RUBY = TestType' "APPIUM_WEB_RUBY"++pattern TestType_BUILTIN_EXPLORER :: TestType+pattern TestType_BUILTIN_EXPLORER = TestType' "BUILTIN_EXPLORER"++pattern TestType_BUILTIN_FUZZ :: TestType+pattern TestType_BUILTIN_FUZZ = TestType' "BUILTIN_FUZZ"++pattern TestType_CALABASH :: TestType+pattern TestType_CALABASH = TestType' "CALABASH"++pattern TestType_INSTRUMENTATION :: TestType+pattern TestType_INSTRUMENTATION = TestType' "INSTRUMENTATION"++pattern TestType_REMOTE_ACCESS_RECORD :: TestType+pattern TestType_REMOTE_ACCESS_RECORD = TestType' "REMOTE_ACCESS_RECORD"++pattern TestType_REMOTE_ACCESS_REPLAY :: TestType+pattern TestType_REMOTE_ACCESS_REPLAY = TestType' "REMOTE_ACCESS_REPLAY"++pattern TestType_UIAUTOMATION :: TestType+pattern TestType_UIAUTOMATION = TestType' "UIAUTOMATION"++pattern TestType_UIAUTOMATOR :: TestType+pattern TestType_UIAUTOMATOR = TestType' "UIAUTOMATOR"++pattern TestType_WEB_PERFORMANCE_PROFILE :: TestType+pattern TestType_WEB_PERFORMANCE_PROFILE = TestType' "WEB_PERFORMANCE_PROFILE"++pattern TestType_XCTEST :: TestType+pattern TestType_XCTEST = TestType' "XCTEST"++pattern TestType_XCTEST_UI :: TestType+pattern TestType_XCTEST_UI = TestType' "XCTEST_UI"++{-# COMPLETE+  TestType_APPIUM_JAVA_JUNIT,+  TestType_APPIUM_JAVA_TESTNG,+  TestType_APPIUM_NODE,+  TestType_APPIUM_PYTHON,+  TestType_APPIUM_RUBY,+  TestType_APPIUM_WEB_JAVA_JUNIT,+  TestType_APPIUM_WEB_JAVA_TESTNG,+  TestType_APPIUM_WEB_NODE,+  TestType_APPIUM_WEB_PYTHON,+  TestType_APPIUM_WEB_RUBY,+  TestType_BUILTIN_EXPLORER,+  TestType_BUILTIN_FUZZ,+  TestType_CALABASH,+  TestType_INSTRUMENTATION,+  TestType_REMOTE_ACCESS_RECORD,+  TestType_REMOTE_ACCESS_REPLAY,+  TestType_UIAUTOMATION,+  TestType_UIAUTOMATOR,+  TestType_WEB_PERFORMANCE_PROFILE,+  TestType_XCTEST,+  TestType_XCTEST_UI,+  TestType'+  #-}
+ gen/Amazonka/DeviceFarm/Types/TrialMinutes.hs view
@@ -0,0 +1,85 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.TrialMinutes+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.TrialMinutes where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Represents information about free trial device minutes for an AWS+-- account.+--+-- /See:/ 'newTrialMinutes' smart constructor.+data TrialMinutes = TrialMinutes'+  { -- | The number of free trial minutes remaining in the account.+    remaining :: Prelude.Maybe Prelude.Double,+    -- | The total number of free trial minutes that the account started with.+    total :: Prelude.Maybe Prelude.Double+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TrialMinutes' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'remaining', 'trialMinutes_remaining' - The number of free trial minutes remaining in the account.+--+-- 'total', 'trialMinutes_total' - The total number of free trial minutes that the account started with.+newTrialMinutes ::+  TrialMinutes+newTrialMinutes =+  TrialMinutes'+    { remaining = Prelude.Nothing,+      total = Prelude.Nothing+    }++-- | The number of free trial minutes remaining in the account.+trialMinutes_remaining :: Lens.Lens' TrialMinutes (Prelude.Maybe Prelude.Double)+trialMinutes_remaining = Lens.lens (\TrialMinutes' {remaining} -> remaining) (\s@TrialMinutes' {} a -> s {remaining = a} :: TrialMinutes)++-- | The total number of free trial minutes that the account started with.+trialMinutes_total :: Lens.Lens' TrialMinutes (Prelude.Maybe Prelude.Double)+trialMinutes_total = Lens.lens (\TrialMinutes' {total} -> total) (\s@TrialMinutes' {} a -> s {total = a} :: TrialMinutes)++instance Data.FromJSON TrialMinutes where+  parseJSON =+    Data.withObject+      "TrialMinutes"+      ( \x ->+          TrialMinutes'+            Prelude.<$> (x Data..:? "remaining")+            Prelude.<*> (x Data..:? "total")+      )++instance Prelude.Hashable TrialMinutes where+  hashWithSalt _salt TrialMinutes' {..} =+    _salt+      `Prelude.hashWithSalt` remaining+      `Prelude.hashWithSalt` total++instance Prelude.NFData TrialMinutes where+  rnf TrialMinutes' {..} =+    Prelude.rnf remaining+      `Prelude.seq` Prelude.rnf total
+ gen/Amazonka/DeviceFarm/Types/UniqueProblem.hs view
@@ -0,0 +1,85 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.UniqueProblem+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.UniqueProblem where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.Problem+import qualified Amazonka.Prelude as Prelude++-- | A collection of one or more problems, grouped by their result.+--+-- /See:/ 'newUniqueProblem' smart constructor.+data UniqueProblem = UniqueProblem'+  { -- | A message about the unique problems\' result.+    message :: Prelude.Maybe Prelude.Text,+    -- | Information about the problems.+    problems :: Prelude.Maybe [Problem]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UniqueProblem' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'message', 'uniqueProblem_message' - A message about the unique problems\' result.+--+-- 'problems', 'uniqueProblem_problems' - Information about the problems.+newUniqueProblem ::+  UniqueProblem+newUniqueProblem =+  UniqueProblem'+    { message = Prelude.Nothing,+      problems = Prelude.Nothing+    }++-- | A message about the unique problems\' result.+uniqueProblem_message :: Lens.Lens' UniqueProblem (Prelude.Maybe Prelude.Text)+uniqueProblem_message = Lens.lens (\UniqueProblem' {message} -> message) (\s@UniqueProblem' {} a -> s {message = a} :: UniqueProblem)++-- | Information about the problems.+uniqueProblem_problems :: Lens.Lens' UniqueProblem (Prelude.Maybe [Problem])+uniqueProblem_problems = Lens.lens (\UniqueProblem' {problems} -> problems) (\s@UniqueProblem' {} a -> s {problems = a} :: UniqueProblem) Prelude.. Lens.mapping Lens.coerced++instance Data.FromJSON UniqueProblem where+  parseJSON =+    Data.withObject+      "UniqueProblem"+      ( \x ->+          UniqueProblem'+            Prelude.<$> (x Data..:? "message")+            Prelude.<*> (x Data..:? "problems" Data..!= Prelude.mempty)+      )++instance Prelude.Hashable UniqueProblem where+  hashWithSalt _salt UniqueProblem' {..} =+    _salt+      `Prelude.hashWithSalt` message+      `Prelude.hashWithSalt` problems++instance Prelude.NFData UniqueProblem where+  rnf UniqueProblem' {..} =+    Prelude.rnf message+      `Prelude.seq` Prelude.rnf problems
+ gen/Amazonka/DeviceFarm/Types/Upload.hs view
@@ -0,0 +1,433 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.Upload+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.Upload where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types.UploadCategory+import Amazonka.DeviceFarm.Types.UploadStatus+import Amazonka.DeviceFarm.Types.UploadType+import qualified Amazonka.Prelude as Prelude++-- | An app or a set of one or more tests to upload or that have been+-- uploaded.+--+-- /See:/ 'newUpload' smart constructor.+data Upload = Upload'+  { -- | The upload\'s ARN.+    arn :: Prelude.Maybe Prelude.Text,+    -- | The upload\'s category. Allowed values include:+    --+    -- -   CURATED: An upload managed by AWS Device Farm.+    --+    -- -   PRIVATE: An upload managed by the AWS Device Farm customer.+    category :: Prelude.Maybe UploadCategory,+    -- | The upload\'s content type (for example, @application\/octet-stream@).+    contentType :: Prelude.Maybe Prelude.Text,+    -- | When the upload was created.+    created :: Prelude.Maybe Data.POSIX,+    -- | A message about the upload\'s result.+    message :: Prelude.Maybe Prelude.Text,+    -- | 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.+    metadata :: Prelude.Maybe Prelude.Text,+    -- | The upload\'s file name.+    name :: Prelude.Maybe Prelude.Text,+    -- | The upload\'s status.+    --+    -- Must be one of the following values:+    --+    -- -   FAILED+    --+    -- -   INITIALIZED+    --+    -- -   PROCESSING+    --+    -- -   SUCCEEDED+    status :: Prelude.Maybe UploadStatus,+    -- | The upload\'s type.+    --+    -- Must be one of the following values:+    --+    -- -   ANDROID_APP+    --+    -- -   IOS_APP+    --+    -- -   WEB_APP+    --+    -- -   EXTERNAL_DATA+    --+    -- -   APPIUM_JAVA_JUNIT_TEST_PACKAGE+    --+    -- -   APPIUM_JAVA_TESTNG_TEST_PACKAGE+    --+    -- -   APPIUM_PYTHON_TEST_PACKAGE+    --+    -- -   APPIUM_NODE_TEST_PACKAGE+    --+    -- -   APPIUM_RUBY_TEST_PACKAGE+    --+    -- -   APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE+    --+    -- -   APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE+    --+    -- -   APPIUM_WEB_PYTHON_TEST_PACKAGE+    --+    -- -   APPIUM_WEB_NODE_TEST_PACKAGE+    --+    -- -   APPIUM_WEB_RUBY_TEST_PACKAGE+    --+    -- -   CALABASH_TEST_PACKAGE+    --+    -- -   INSTRUMENTATION_TEST_PACKAGE+    --+    -- -   UIAUTOMATION_TEST_PACKAGE+    --+    -- -   UIAUTOMATOR_TEST_PACKAGE+    --+    -- -   XCTEST_TEST_PACKAGE+    --+    -- -   XCTEST_UI_TEST_PACKAGE+    --+    -- -   APPIUM_JAVA_JUNIT_TEST_SPEC+    --+    -- -   APPIUM_JAVA_TESTNG_TEST_SPEC+    --+    -- -   APPIUM_PYTHON_TEST_SPEC+    --+    -- -   APPIUM_NODE_TEST_SPEC+    --+    -- -   APPIUM_RUBY_TEST_SPEC+    --+    -- -   APPIUM_WEB_JAVA_JUNIT_TEST_SPEC+    --+    -- -   APPIUM_WEB_JAVA_TESTNG_TEST_SPEC+    --+    -- -   APPIUM_WEB_PYTHON_TEST_SPEC+    --+    -- -   APPIUM_WEB_NODE_TEST_SPEC+    --+    -- -   APPIUM_WEB_RUBY_TEST_SPEC+    --+    -- -   INSTRUMENTATION_TEST_SPEC+    --+    -- -   XCTEST_UI_TEST_SPEC+    type' :: Prelude.Maybe UploadType,+    -- | The presigned Amazon S3 URL that was used to store a file using a PUT+    -- request.+    url :: Prelude.Maybe (Data.Sensitive Prelude.Text)+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Upload' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'upload_arn' - The upload\'s ARN.+--+-- 'category', 'upload_category' - The upload\'s category. Allowed values include:+--+-- -   CURATED: An upload managed by AWS Device Farm.+--+-- -   PRIVATE: An upload managed by the AWS Device Farm customer.+--+-- 'contentType', 'upload_contentType' - The upload\'s content type (for example, @application\/octet-stream@).+--+-- 'created', 'upload_created' - When the upload was created.+--+-- 'message', 'upload_message' - A message about the upload\'s result.+--+-- 'metadata', 'upload_metadata' - 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.+--+-- 'name', 'upload_name' - The upload\'s file name.+--+-- 'status', 'upload_status' - The upload\'s status.+--+-- Must be one of the following values:+--+-- -   FAILED+--+-- -   INITIALIZED+--+-- -   PROCESSING+--+-- -   SUCCEEDED+--+-- 'type'', 'upload_type' - The upload\'s type.+--+-- Must be one of the following values:+--+-- -   ANDROID_APP+--+-- -   IOS_APP+--+-- -   WEB_APP+--+-- -   EXTERNAL_DATA+--+-- -   APPIUM_JAVA_JUNIT_TEST_PACKAGE+--+-- -   APPIUM_JAVA_TESTNG_TEST_PACKAGE+--+-- -   APPIUM_PYTHON_TEST_PACKAGE+--+-- -   APPIUM_NODE_TEST_PACKAGE+--+-- -   APPIUM_RUBY_TEST_PACKAGE+--+-- -   APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE+--+-- -   APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE+--+-- -   APPIUM_WEB_PYTHON_TEST_PACKAGE+--+-- -   APPIUM_WEB_NODE_TEST_PACKAGE+--+-- -   APPIUM_WEB_RUBY_TEST_PACKAGE+--+-- -   CALABASH_TEST_PACKAGE+--+-- -   INSTRUMENTATION_TEST_PACKAGE+--+-- -   UIAUTOMATION_TEST_PACKAGE+--+-- -   UIAUTOMATOR_TEST_PACKAGE+--+-- -   XCTEST_TEST_PACKAGE+--+-- -   XCTEST_UI_TEST_PACKAGE+--+-- -   APPIUM_JAVA_JUNIT_TEST_SPEC+--+-- -   APPIUM_JAVA_TESTNG_TEST_SPEC+--+-- -   APPIUM_PYTHON_TEST_SPEC+--+-- -   APPIUM_NODE_TEST_SPEC+--+-- -   APPIUM_RUBY_TEST_SPEC+--+-- -   APPIUM_WEB_JAVA_JUNIT_TEST_SPEC+--+-- -   APPIUM_WEB_JAVA_TESTNG_TEST_SPEC+--+-- -   APPIUM_WEB_PYTHON_TEST_SPEC+--+-- -   APPIUM_WEB_NODE_TEST_SPEC+--+-- -   APPIUM_WEB_RUBY_TEST_SPEC+--+-- -   INSTRUMENTATION_TEST_SPEC+--+-- -   XCTEST_UI_TEST_SPEC+--+-- 'url', 'upload_url' - The presigned Amazon S3 URL that was used to store a file using a PUT+-- request.+newUpload ::+  Upload+newUpload =+  Upload'+    { arn = Prelude.Nothing,+      category = Prelude.Nothing,+      contentType = Prelude.Nothing,+      created = Prelude.Nothing,+      message = Prelude.Nothing,+      metadata = Prelude.Nothing,+      name = Prelude.Nothing,+      status = Prelude.Nothing,+      type' = Prelude.Nothing,+      url = Prelude.Nothing+    }++-- | The upload\'s ARN.+upload_arn :: Lens.Lens' Upload (Prelude.Maybe Prelude.Text)+upload_arn = Lens.lens (\Upload' {arn} -> arn) (\s@Upload' {} a -> s {arn = a} :: Upload)++-- | The upload\'s category. Allowed values include:+--+-- -   CURATED: An upload managed by AWS Device Farm.+--+-- -   PRIVATE: An upload managed by the AWS Device Farm customer.+upload_category :: Lens.Lens' Upload (Prelude.Maybe UploadCategory)+upload_category = Lens.lens (\Upload' {category} -> category) (\s@Upload' {} a -> s {category = a} :: Upload)++-- | The upload\'s content type (for example, @application\/octet-stream@).+upload_contentType :: Lens.Lens' Upload (Prelude.Maybe Prelude.Text)+upload_contentType = Lens.lens (\Upload' {contentType} -> contentType) (\s@Upload' {} a -> s {contentType = a} :: Upload)++-- | When the upload was created.+upload_created :: Lens.Lens' Upload (Prelude.Maybe Prelude.UTCTime)+upload_created = Lens.lens (\Upload' {created} -> created) (\s@Upload' {} a -> s {created = a} :: Upload) Prelude.. Lens.mapping Data._Time++-- | A message about the upload\'s result.+upload_message :: Lens.Lens' Upload (Prelude.Maybe Prelude.Text)+upload_message = Lens.lens (\Upload' {message} -> message) (\s@Upload' {} a -> s {message = a} :: Upload)++-- | 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.+upload_metadata :: Lens.Lens' Upload (Prelude.Maybe Prelude.Text)+upload_metadata = Lens.lens (\Upload' {metadata} -> metadata) (\s@Upload' {} a -> s {metadata = a} :: Upload)++-- | The upload\'s file name.+upload_name :: Lens.Lens' Upload (Prelude.Maybe Prelude.Text)+upload_name = Lens.lens (\Upload' {name} -> name) (\s@Upload' {} a -> s {name = a} :: Upload)++-- | The upload\'s status.+--+-- Must be one of the following values:+--+-- -   FAILED+--+-- -   INITIALIZED+--+-- -   PROCESSING+--+-- -   SUCCEEDED+upload_status :: Lens.Lens' Upload (Prelude.Maybe UploadStatus)+upload_status = Lens.lens (\Upload' {status} -> status) (\s@Upload' {} a -> s {status = a} :: Upload)++-- | The upload\'s type.+--+-- Must be one of the following values:+--+-- -   ANDROID_APP+--+-- -   IOS_APP+--+-- -   WEB_APP+--+-- -   EXTERNAL_DATA+--+-- -   APPIUM_JAVA_JUNIT_TEST_PACKAGE+--+-- -   APPIUM_JAVA_TESTNG_TEST_PACKAGE+--+-- -   APPIUM_PYTHON_TEST_PACKAGE+--+-- -   APPIUM_NODE_TEST_PACKAGE+--+-- -   APPIUM_RUBY_TEST_PACKAGE+--+-- -   APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE+--+-- -   APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE+--+-- -   APPIUM_WEB_PYTHON_TEST_PACKAGE+--+-- -   APPIUM_WEB_NODE_TEST_PACKAGE+--+-- -   APPIUM_WEB_RUBY_TEST_PACKAGE+--+-- -   CALABASH_TEST_PACKAGE+--+-- -   INSTRUMENTATION_TEST_PACKAGE+--+-- -   UIAUTOMATION_TEST_PACKAGE+--+-- -   UIAUTOMATOR_TEST_PACKAGE+--+-- -   XCTEST_TEST_PACKAGE+--+-- -   XCTEST_UI_TEST_PACKAGE+--+-- -   APPIUM_JAVA_JUNIT_TEST_SPEC+--+-- -   APPIUM_JAVA_TESTNG_TEST_SPEC+--+-- -   APPIUM_PYTHON_TEST_SPEC+--+-- -   APPIUM_NODE_TEST_SPEC+--+-- -   APPIUM_RUBY_TEST_SPEC+--+-- -   APPIUM_WEB_JAVA_JUNIT_TEST_SPEC+--+-- -   APPIUM_WEB_JAVA_TESTNG_TEST_SPEC+--+-- -   APPIUM_WEB_PYTHON_TEST_SPEC+--+-- -   APPIUM_WEB_NODE_TEST_SPEC+--+-- -   APPIUM_WEB_RUBY_TEST_SPEC+--+-- -   INSTRUMENTATION_TEST_SPEC+--+-- -   XCTEST_UI_TEST_SPEC+upload_type :: Lens.Lens' Upload (Prelude.Maybe UploadType)+upload_type = Lens.lens (\Upload' {type'} -> type') (\s@Upload' {} a -> s {type' = a} :: Upload)++-- | The presigned Amazon S3 URL that was used to store a file using a PUT+-- request.+upload_url :: Lens.Lens' Upload (Prelude.Maybe Prelude.Text)+upload_url = Lens.lens (\Upload' {url} -> url) (\s@Upload' {} a -> s {url = a} :: Upload) Prelude.. Lens.mapping Data._Sensitive++instance Data.FromJSON Upload where+  parseJSON =+    Data.withObject+      "Upload"+      ( \x ->+          Upload'+            Prelude.<$> (x Data..:? "arn")+            Prelude.<*> (x Data..:? "category")+            Prelude.<*> (x Data..:? "contentType")+            Prelude.<*> (x Data..:? "created")+            Prelude.<*> (x Data..:? "message")+            Prelude.<*> (x Data..:? "metadata")+            Prelude.<*> (x Data..:? "name")+            Prelude.<*> (x Data..:? "status")+            Prelude.<*> (x Data..:? "type")+            Prelude.<*> (x Data..:? "url")+      )++instance Prelude.Hashable Upload where+  hashWithSalt _salt Upload' {..} =+    _salt+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` category+      `Prelude.hashWithSalt` contentType+      `Prelude.hashWithSalt` created+      `Prelude.hashWithSalt` message+      `Prelude.hashWithSalt` metadata+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` url++instance Prelude.NFData Upload where+  rnf Upload' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf category+      `Prelude.seq` Prelude.rnf contentType+      `Prelude.seq` Prelude.rnf created+      `Prelude.seq` Prelude.rnf message+      `Prelude.seq` Prelude.rnf metadata+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf url
+ gen/Amazonka/DeviceFarm/Types/UploadCategory.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.UploadCategory+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.UploadCategory+  ( UploadCategory+      ( ..,+        UploadCategory_CURATED,+        UploadCategory_PRIVATE+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype UploadCategory = UploadCategory'+  { fromUploadCategory ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern UploadCategory_CURATED :: UploadCategory+pattern UploadCategory_CURATED = UploadCategory' "CURATED"++pattern UploadCategory_PRIVATE :: UploadCategory+pattern UploadCategory_PRIVATE = UploadCategory' "PRIVATE"++{-# COMPLETE+  UploadCategory_CURATED,+  UploadCategory_PRIVATE,+  UploadCategory'+  #-}
+ gen/Amazonka/DeviceFarm/Types/UploadStatus.hs view
@@ -0,0 +1,81 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.UploadStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.UploadStatus+  ( UploadStatus+      ( ..,+        UploadStatus_FAILED,+        UploadStatus_INITIALIZED,+        UploadStatus_PROCESSING,+        UploadStatus_SUCCEEDED+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype UploadStatus = UploadStatus'+  { fromUploadStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern UploadStatus_FAILED :: UploadStatus+pattern UploadStatus_FAILED = UploadStatus' "FAILED"++pattern UploadStatus_INITIALIZED :: UploadStatus+pattern UploadStatus_INITIALIZED = UploadStatus' "INITIALIZED"++pattern UploadStatus_PROCESSING :: UploadStatus+pattern UploadStatus_PROCESSING = UploadStatus' "PROCESSING"++pattern UploadStatus_SUCCEEDED :: UploadStatus+pattern UploadStatus_SUCCEEDED = UploadStatus' "SUCCEEDED"++{-# COMPLETE+  UploadStatus_FAILED,+  UploadStatus_INITIALIZED,+  UploadStatus_PROCESSING,+  UploadStatus_SUCCEEDED,+  UploadStatus'+  #-}
+ gen/Amazonka/DeviceFarm/Types/UploadType.hs view
@@ -0,0 +1,221 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.UploadType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.UploadType+  ( UploadType+      ( ..,+        UploadType_ANDROID_APP,+        UploadType_APPIUM_JAVA_JUNIT_TEST_PACKAGE,+        UploadType_APPIUM_JAVA_JUNIT_TEST_SPEC,+        UploadType_APPIUM_JAVA_TESTNG_TEST_PACKAGE,+        UploadType_APPIUM_JAVA_TESTNG_TEST_SPEC,+        UploadType_APPIUM_NODE_TEST_PACKAGE,+        UploadType_APPIUM_NODE_TEST_SPEC,+        UploadType_APPIUM_PYTHON_TEST_PACKAGE,+        UploadType_APPIUM_PYTHON_TEST_SPEC,+        UploadType_APPIUM_RUBY_TEST_PACKAGE,+        UploadType_APPIUM_RUBY_TEST_SPEC,+        UploadType_APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE,+        UploadType_APPIUM_WEB_JAVA_JUNIT_TEST_SPEC,+        UploadType_APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE,+        UploadType_APPIUM_WEB_JAVA_TESTNG_TEST_SPEC,+        UploadType_APPIUM_WEB_NODE_TEST_PACKAGE,+        UploadType_APPIUM_WEB_NODE_TEST_SPEC,+        UploadType_APPIUM_WEB_PYTHON_TEST_PACKAGE,+        UploadType_APPIUM_WEB_PYTHON_TEST_SPEC,+        UploadType_APPIUM_WEB_RUBY_TEST_PACKAGE,+        UploadType_APPIUM_WEB_RUBY_TEST_SPEC,+        UploadType_CALABASH_TEST_PACKAGE,+        UploadType_EXTERNAL_DATA,+        UploadType_INSTRUMENTATION_TEST_PACKAGE,+        UploadType_INSTRUMENTATION_TEST_SPEC,+        UploadType_IOS_APP,+        UploadType_UIAUTOMATION_TEST_PACKAGE,+        UploadType_UIAUTOMATOR_TEST_PACKAGE,+        UploadType_WEB_APP,+        UploadType_XCTEST_TEST_PACKAGE,+        UploadType_XCTEST_UI_TEST_PACKAGE,+        UploadType_XCTEST_UI_TEST_SPEC+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype UploadType = UploadType'+  { fromUploadType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern UploadType_ANDROID_APP :: UploadType+pattern UploadType_ANDROID_APP = UploadType' "ANDROID_APP"++pattern UploadType_APPIUM_JAVA_JUNIT_TEST_PACKAGE :: UploadType+pattern UploadType_APPIUM_JAVA_JUNIT_TEST_PACKAGE = UploadType' "APPIUM_JAVA_JUNIT_TEST_PACKAGE"++pattern UploadType_APPIUM_JAVA_JUNIT_TEST_SPEC :: UploadType+pattern UploadType_APPIUM_JAVA_JUNIT_TEST_SPEC = UploadType' "APPIUM_JAVA_JUNIT_TEST_SPEC"++pattern UploadType_APPIUM_JAVA_TESTNG_TEST_PACKAGE :: UploadType+pattern UploadType_APPIUM_JAVA_TESTNG_TEST_PACKAGE = UploadType' "APPIUM_JAVA_TESTNG_TEST_PACKAGE"++pattern UploadType_APPIUM_JAVA_TESTNG_TEST_SPEC :: UploadType+pattern UploadType_APPIUM_JAVA_TESTNG_TEST_SPEC = UploadType' "APPIUM_JAVA_TESTNG_TEST_SPEC"++pattern UploadType_APPIUM_NODE_TEST_PACKAGE :: UploadType+pattern UploadType_APPIUM_NODE_TEST_PACKAGE = UploadType' "APPIUM_NODE_TEST_PACKAGE"++pattern UploadType_APPIUM_NODE_TEST_SPEC :: UploadType+pattern UploadType_APPIUM_NODE_TEST_SPEC = UploadType' "APPIUM_NODE_TEST_SPEC"++pattern UploadType_APPIUM_PYTHON_TEST_PACKAGE :: UploadType+pattern UploadType_APPIUM_PYTHON_TEST_PACKAGE = UploadType' "APPIUM_PYTHON_TEST_PACKAGE"++pattern UploadType_APPIUM_PYTHON_TEST_SPEC :: UploadType+pattern UploadType_APPIUM_PYTHON_TEST_SPEC = UploadType' "APPIUM_PYTHON_TEST_SPEC"++pattern UploadType_APPIUM_RUBY_TEST_PACKAGE :: UploadType+pattern UploadType_APPIUM_RUBY_TEST_PACKAGE = UploadType' "APPIUM_RUBY_TEST_PACKAGE"++pattern UploadType_APPIUM_RUBY_TEST_SPEC :: UploadType+pattern UploadType_APPIUM_RUBY_TEST_SPEC = UploadType' "APPIUM_RUBY_TEST_SPEC"++pattern UploadType_APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE :: UploadType+pattern UploadType_APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE = UploadType' "APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE"++pattern UploadType_APPIUM_WEB_JAVA_JUNIT_TEST_SPEC :: UploadType+pattern UploadType_APPIUM_WEB_JAVA_JUNIT_TEST_SPEC = UploadType' "APPIUM_WEB_JAVA_JUNIT_TEST_SPEC"++pattern UploadType_APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE :: UploadType+pattern UploadType_APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE = UploadType' "APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE"++pattern UploadType_APPIUM_WEB_JAVA_TESTNG_TEST_SPEC :: UploadType+pattern UploadType_APPIUM_WEB_JAVA_TESTNG_TEST_SPEC = UploadType' "APPIUM_WEB_JAVA_TESTNG_TEST_SPEC"++pattern UploadType_APPIUM_WEB_NODE_TEST_PACKAGE :: UploadType+pattern UploadType_APPIUM_WEB_NODE_TEST_PACKAGE = UploadType' "APPIUM_WEB_NODE_TEST_PACKAGE"++pattern UploadType_APPIUM_WEB_NODE_TEST_SPEC :: UploadType+pattern UploadType_APPIUM_WEB_NODE_TEST_SPEC = UploadType' "APPIUM_WEB_NODE_TEST_SPEC"++pattern UploadType_APPIUM_WEB_PYTHON_TEST_PACKAGE :: UploadType+pattern UploadType_APPIUM_WEB_PYTHON_TEST_PACKAGE = UploadType' "APPIUM_WEB_PYTHON_TEST_PACKAGE"++pattern UploadType_APPIUM_WEB_PYTHON_TEST_SPEC :: UploadType+pattern UploadType_APPIUM_WEB_PYTHON_TEST_SPEC = UploadType' "APPIUM_WEB_PYTHON_TEST_SPEC"++pattern UploadType_APPIUM_WEB_RUBY_TEST_PACKAGE :: UploadType+pattern UploadType_APPIUM_WEB_RUBY_TEST_PACKAGE = UploadType' "APPIUM_WEB_RUBY_TEST_PACKAGE"++pattern UploadType_APPIUM_WEB_RUBY_TEST_SPEC :: UploadType+pattern UploadType_APPIUM_WEB_RUBY_TEST_SPEC = UploadType' "APPIUM_WEB_RUBY_TEST_SPEC"++pattern UploadType_CALABASH_TEST_PACKAGE :: UploadType+pattern UploadType_CALABASH_TEST_PACKAGE = UploadType' "CALABASH_TEST_PACKAGE"++pattern UploadType_EXTERNAL_DATA :: UploadType+pattern UploadType_EXTERNAL_DATA = UploadType' "EXTERNAL_DATA"++pattern UploadType_INSTRUMENTATION_TEST_PACKAGE :: UploadType+pattern UploadType_INSTRUMENTATION_TEST_PACKAGE = UploadType' "INSTRUMENTATION_TEST_PACKAGE"++pattern UploadType_INSTRUMENTATION_TEST_SPEC :: UploadType+pattern UploadType_INSTRUMENTATION_TEST_SPEC = UploadType' "INSTRUMENTATION_TEST_SPEC"++pattern UploadType_IOS_APP :: UploadType+pattern UploadType_IOS_APP = UploadType' "IOS_APP"++pattern UploadType_UIAUTOMATION_TEST_PACKAGE :: UploadType+pattern UploadType_UIAUTOMATION_TEST_PACKAGE = UploadType' "UIAUTOMATION_TEST_PACKAGE"++pattern UploadType_UIAUTOMATOR_TEST_PACKAGE :: UploadType+pattern UploadType_UIAUTOMATOR_TEST_PACKAGE = UploadType' "UIAUTOMATOR_TEST_PACKAGE"++pattern UploadType_WEB_APP :: UploadType+pattern UploadType_WEB_APP = UploadType' "WEB_APP"++pattern UploadType_XCTEST_TEST_PACKAGE :: UploadType+pattern UploadType_XCTEST_TEST_PACKAGE = UploadType' "XCTEST_TEST_PACKAGE"++pattern UploadType_XCTEST_UI_TEST_PACKAGE :: UploadType+pattern UploadType_XCTEST_UI_TEST_PACKAGE = UploadType' "XCTEST_UI_TEST_PACKAGE"++pattern UploadType_XCTEST_UI_TEST_SPEC :: UploadType+pattern UploadType_XCTEST_UI_TEST_SPEC = UploadType' "XCTEST_UI_TEST_SPEC"++{-# COMPLETE+  UploadType_ANDROID_APP,+  UploadType_APPIUM_JAVA_JUNIT_TEST_PACKAGE,+  UploadType_APPIUM_JAVA_JUNIT_TEST_SPEC,+  UploadType_APPIUM_JAVA_TESTNG_TEST_PACKAGE,+  UploadType_APPIUM_JAVA_TESTNG_TEST_SPEC,+  UploadType_APPIUM_NODE_TEST_PACKAGE,+  UploadType_APPIUM_NODE_TEST_SPEC,+  UploadType_APPIUM_PYTHON_TEST_PACKAGE,+  UploadType_APPIUM_PYTHON_TEST_SPEC,+  UploadType_APPIUM_RUBY_TEST_PACKAGE,+  UploadType_APPIUM_RUBY_TEST_SPEC,+  UploadType_APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE,+  UploadType_APPIUM_WEB_JAVA_JUNIT_TEST_SPEC,+  UploadType_APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE,+  UploadType_APPIUM_WEB_JAVA_TESTNG_TEST_SPEC,+  UploadType_APPIUM_WEB_NODE_TEST_PACKAGE,+  UploadType_APPIUM_WEB_NODE_TEST_SPEC,+  UploadType_APPIUM_WEB_PYTHON_TEST_PACKAGE,+  UploadType_APPIUM_WEB_PYTHON_TEST_SPEC,+  UploadType_APPIUM_WEB_RUBY_TEST_PACKAGE,+  UploadType_APPIUM_WEB_RUBY_TEST_SPEC,+  UploadType_CALABASH_TEST_PACKAGE,+  UploadType_EXTERNAL_DATA,+  UploadType_INSTRUMENTATION_TEST_PACKAGE,+  UploadType_INSTRUMENTATION_TEST_SPEC,+  UploadType_IOS_APP,+  UploadType_UIAUTOMATION_TEST_PACKAGE,+  UploadType_UIAUTOMATOR_TEST_PACKAGE,+  UploadType_WEB_APP,+  UploadType_XCTEST_TEST_PACKAGE,+  UploadType_XCTEST_UI_TEST_PACKAGE,+  UploadType_XCTEST_UI_TEST_SPEC,+  UploadType'+  #-}
+ gen/Amazonka/DeviceFarm/Types/VPCEConfiguration.hs view
@@ -0,0 +1,132 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.VPCEConfiguration+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.VPCEConfiguration where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Represents an Amazon Virtual Private Cloud (VPC) endpoint configuration.+--+-- /See:/ 'newVPCEConfiguration' smart constructor.+data VPCEConfiguration = VPCEConfiguration'+  { -- | The Amazon Resource Name (ARN) of the VPC endpoint configuration.+    arn :: Prelude.Maybe Prelude.Text,+    -- | The DNS name that maps to the private IP address of the service you want+    -- to access.+    serviceDnsName :: Prelude.Maybe Prelude.Text,+    -- | An optional description that provides details about your VPC endpoint+    -- configuration.+    vpceConfigurationDescription :: Prelude.Maybe Prelude.Text,+    -- | The friendly name you give to your VPC endpoint configuration to manage+    -- your configurations more easily.+    vpceConfigurationName :: Prelude.Maybe Prelude.Text,+    -- | The name of the VPC endpoint service running in your AWS account that+    -- you want Device Farm to test.+    vpceServiceName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'VPCEConfiguration' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'vPCEConfiguration_arn' - The Amazon Resource Name (ARN) of the VPC endpoint configuration.+--+-- 'serviceDnsName', 'vPCEConfiguration_serviceDnsName' - The DNS name that maps to the private IP address of the service you want+-- to access.+--+-- 'vpceConfigurationDescription', 'vPCEConfiguration_vpceConfigurationDescription' - An optional description that provides details about your VPC endpoint+-- configuration.+--+-- 'vpceConfigurationName', 'vPCEConfiguration_vpceConfigurationName' - The friendly name you give to your VPC endpoint configuration to manage+-- your configurations more easily.+--+-- 'vpceServiceName', 'vPCEConfiguration_vpceServiceName' - The name of the VPC endpoint service running in your AWS account that+-- you want Device Farm to test.+newVPCEConfiguration ::+  VPCEConfiguration+newVPCEConfiguration =+  VPCEConfiguration'+    { arn = Prelude.Nothing,+      serviceDnsName = Prelude.Nothing,+      vpceConfigurationDescription = Prelude.Nothing,+      vpceConfigurationName = Prelude.Nothing,+      vpceServiceName = Prelude.Nothing+    }++-- | The Amazon Resource Name (ARN) of the VPC endpoint configuration.+vPCEConfiguration_arn :: Lens.Lens' VPCEConfiguration (Prelude.Maybe Prelude.Text)+vPCEConfiguration_arn = Lens.lens (\VPCEConfiguration' {arn} -> arn) (\s@VPCEConfiguration' {} a -> s {arn = a} :: VPCEConfiguration)++-- | The DNS name that maps to the private IP address of the service you want+-- to access.+vPCEConfiguration_serviceDnsName :: Lens.Lens' VPCEConfiguration (Prelude.Maybe Prelude.Text)+vPCEConfiguration_serviceDnsName = Lens.lens (\VPCEConfiguration' {serviceDnsName} -> serviceDnsName) (\s@VPCEConfiguration' {} a -> s {serviceDnsName = a} :: VPCEConfiguration)++-- | An optional description that provides details about your VPC endpoint+-- configuration.+vPCEConfiguration_vpceConfigurationDescription :: Lens.Lens' VPCEConfiguration (Prelude.Maybe Prelude.Text)+vPCEConfiguration_vpceConfigurationDescription = Lens.lens (\VPCEConfiguration' {vpceConfigurationDescription} -> vpceConfigurationDescription) (\s@VPCEConfiguration' {} a -> s {vpceConfigurationDescription = a} :: VPCEConfiguration)++-- | The friendly name you give to your VPC endpoint configuration to manage+-- your configurations more easily.+vPCEConfiguration_vpceConfigurationName :: Lens.Lens' VPCEConfiguration (Prelude.Maybe Prelude.Text)+vPCEConfiguration_vpceConfigurationName = Lens.lens (\VPCEConfiguration' {vpceConfigurationName} -> vpceConfigurationName) (\s@VPCEConfiguration' {} a -> s {vpceConfigurationName = a} :: VPCEConfiguration)++-- | The name of the VPC endpoint service running in your AWS account that+-- you want Device Farm to test.+vPCEConfiguration_vpceServiceName :: Lens.Lens' VPCEConfiguration (Prelude.Maybe Prelude.Text)+vPCEConfiguration_vpceServiceName = Lens.lens (\VPCEConfiguration' {vpceServiceName} -> vpceServiceName) (\s@VPCEConfiguration' {} a -> s {vpceServiceName = a} :: VPCEConfiguration)++instance Data.FromJSON VPCEConfiguration where+  parseJSON =+    Data.withObject+      "VPCEConfiguration"+      ( \x ->+          VPCEConfiguration'+            Prelude.<$> (x Data..:? "arn")+            Prelude.<*> (x Data..:? "serviceDnsName")+            Prelude.<*> (x Data..:? "vpceConfigurationDescription")+            Prelude.<*> (x Data..:? "vpceConfigurationName")+            Prelude.<*> (x Data..:? "vpceServiceName")+      )++instance Prelude.Hashable VPCEConfiguration where+  hashWithSalt _salt VPCEConfiguration' {..} =+    _salt+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` serviceDnsName+      `Prelude.hashWithSalt` vpceConfigurationDescription+      `Prelude.hashWithSalt` vpceConfigurationName+      `Prelude.hashWithSalt` vpceServiceName++instance Prelude.NFData VPCEConfiguration where+  rnf VPCEConfiguration' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf serviceDnsName+      `Prelude.seq` Prelude.rnf vpceConfigurationDescription+      `Prelude.seq` Prelude.rnf vpceConfigurationName+      `Prelude.seq` Prelude.rnf vpceServiceName
+ gen/Amazonka/DeviceFarm/Types/VpcConfig.hs view
@@ -0,0 +1,115 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Types.VpcConfig+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Types.VpcConfig where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Contains the VPC configuration data necessary to interface with AWS+-- Device Farm\'s services.+--+-- /See:/ 'newVpcConfig' smart constructor.+data VpcConfig = VpcConfig'+  { -- | An array of one or more security groups IDs in your Amazon VPC.+    securityGroupIds :: Prelude.NonEmpty Prelude.Text,+    -- | An array of one or more subnet IDs in your Amazon VPC.+    subnetIds :: Prelude.NonEmpty Prelude.Text,+    -- | The ID of the Amazon VPC.+    vpcId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'VpcConfig' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'securityGroupIds', 'vpcConfig_securityGroupIds' - An array of one or more security groups IDs in your Amazon VPC.+--+-- 'subnetIds', 'vpcConfig_subnetIds' - An array of one or more subnet IDs in your Amazon VPC.+--+-- 'vpcId', 'vpcConfig_vpcId' - The ID of the Amazon VPC.+newVpcConfig ::+  -- | 'securityGroupIds'+  Prelude.NonEmpty Prelude.Text ->+  -- | 'subnetIds'+  Prelude.NonEmpty Prelude.Text ->+  -- | 'vpcId'+  Prelude.Text ->+  VpcConfig+newVpcConfig pSecurityGroupIds_ pSubnetIds_ pVpcId_ =+  VpcConfig'+    { securityGroupIds =+        Lens.coerced Lens.# pSecurityGroupIds_,+      subnetIds = Lens.coerced Lens.# pSubnetIds_,+      vpcId = pVpcId_+    }++-- | An array of one or more security groups IDs in your Amazon VPC.+vpcConfig_securityGroupIds :: Lens.Lens' VpcConfig (Prelude.NonEmpty Prelude.Text)+vpcConfig_securityGroupIds = Lens.lens (\VpcConfig' {securityGroupIds} -> securityGroupIds) (\s@VpcConfig' {} a -> s {securityGroupIds = a} :: VpcConfig) Prelude.. Lens.coerced++-- | An array of one or more subnet IDs in your Amazon VPC.+vpcConfig_subnetIds :: Lens.Lens' VpcConfig (Prelude.NonEmpty Prelude.Text)+vpcConfig_subnetIds = Lens.lens (\VpcConfig' {subnetIds} -> subnetIds) (\s@VpcConfig' {} a -> s {subnetIds = a} :: VpcConfig) Prelude.. Lens.coerced++-- | The ID of the Amazon VPC.+vpcConfig_vpcId :: Lens.Lens' VpcConfig Prelude.Text+vpcConfig_vpcId = Lens.lens (\VpcConfig' {vpcId} -> vpcId) (\s@VpcConfig' {} a -> s {vpcId = a} :: VpcConfig)++instance Data.FromJSON VpcConfig where+  parseJSON =+    Data.withObject+      "VpcConfig"+      ( \x ->+          VpcConfig'+            Prelude.<$> (x Data..: "securityGroupIds")+            Prelude.<*> (x Data..: "subnetIds")+            Prelude.<*> (x Data..: "vpcId")+      )++instance Prelude.Hashable VpcConfig where+  hashWithSalt _salt VpcConfig' {..} =+    _salt+      `Prelude.hashWithSalt` securityGroupIds+      `Prelude.hashWithSalt` subnetIds+      `Prelude.hashWithSalt` vpcId++instance Prelude.NFData VpcConfig where+  rnf VpcConfig' {..} =+    Prelude.rnf securityGroupIds+      `Prelude.seq` Prelude.rnf subnetIds+      `Prelude.seq` Prelude.rnf vpcId++instance Data.ToJSON VpcConfig where+  toJSON VpcConfig' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("securityGroupIds" Data..= securityGroupIds),+            Prelude.Just ("subnetIds" Data..= subnetIds),+            Prelude.Just ("vpcId" Data..= vpcId)+          ]+      )
+ gen/Amazonka/DeviceFarm/UntagResource.hs view
@@ -0,0 +1,183 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.UntagResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified tags from a resource.+module Amazonka.DeviceFarm.UntagResource+  ( -- * Creating a Request+    UntagResource (..),+    newUntagResource,++    -- * Request Lenses+    untagResource_resourceARN,+    untagResource_tagKeys,++    -- * Destructuring the Response+    UntagResourceResponse (..),+    newUntagResourceResponse,++    -- * Response Lenses+    untagResourceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUntagResource' smart constructor.+data UntagResource = UntagResource'+  { -- | The Amazon Resource Name (ARN) of the resource or resources from which+    -- to delete tags. You can associate tags with the following Device Farm+    -- resources: @PROJECT@, @RUN@, @NETWORK_PROFILE@, @INSTANCE_PROFILE@,+    -- @DEVICE_INSTANCE@, @SESSION@, @DEVICE_POOL@, @DEVICE@, and+    -- @VPCE_CONFIGURATION@.+    resourceARN :: Prelude.Text,+    -- | The keys of the tags to be removed.+    tagKeys :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UntagResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceARN', 'untagResource_resourceARN' - The Amazon Resource Name (ARN) of the resource or resources from which+-- to delete tags. You can associate tags with the following Device Farm+-- resources: @PROJECT@, @RUN@, @NETWORK_PROFILE@, @INSTANCE_PROFILE@,+-- @DEVICE_INSTANCE@, @SESSION@, @DEVICE_POOL@, @DEVICE@, and+-- @VPCE_CONFIGURATION@.+--+-- 'tagKeys', 'untagResource_tagKeys' - The keys of the tags to be removed.+newUntagResource ::+  -- | 'resourceARN'+  Prelude.Text ->+  UntagResource+newUntagResource pResourceARN_ =+  UntagResource'+    { resourceARN = pResourceARN_,+      tagKeys = Prelude.mempty+    }++-- | The Amazon Resource Name (ARN) of the resource or resources from which+-- to delete tags. You can associate tags with the following Device Farm+-- resources: @PROJECT@, @RUN@, @NETWORK_PROFILE@, @INSTANCE_PROFILE@,+-- @DEVICE_INSTANCE@, @SESSION@, @DEVICE_POOL@, @DEVICE@, and+-- @VPCE_CONFIGURATION@.+untagResource_resourceARN :: Lens.Lens' UntagResource Prelude.Text+untagResource_resourceARN = Lens.lens (\UntagResource' {resourceARN} -> resourceARN) (\s@UntagResource' {} a -> s {resourceARN = a} :: UntagResource)++-- | The keys of the tags to be removed.+untagResource_tagKeys :: Lens.Lens' UntagResource [Prelude.Text]+untagResource_tagKeys = Lens.lens (\UntagResource' {tagKeys} -> tagKeys) (\s@UntagResource' {} a -> s {tagKeys = a} :: UntagResource) Prelude.. Lens.coerced++instance Core.AWSRequest UntagResource where+  type+    AWSResponse UntagResource =+      UntagResourceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          UntagResourceResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UntagResource where+  hashWithSalt _salt UntagResource' {..} =+    _salt+      `Prelude.hashWithSalt` resourceARN+      `Prelude.hashWithSalt` tagKeys++instance Prelude.NFData UntagResource where+  rnf UntagResource' {..} =+    Prelude.rnf resourceARN+      `Prelude.seq` Prelude.rnf tagKeys++instance Data.ToHeaders UntagResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.UntagResource" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UntagResource where+  toJSON UntagResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ResourceARN" Data..= resourceARN),+            Prelude.Just ("TagKeys" Data..= tagKeys)+          ]+      )++instance Data.ToPath UntagResource where+  toPath = Prelude.const "/"++instance Data.ToQuery UntagResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUntagResourceResponse' smart constructor.+data UntagResourceResponse = UntagResourceResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UntagResourceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'untagResourceResponse_httpStatus' - The response's http status code.+newUntagResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UntagResourceResponse+newUntagResourceResponse pHttpStatus_ =+  UntagResourceResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+untagResourceResponse_httpStatus :: Lens.Lens' UntagResourceResponse Prelude.Int+untagResourceResponse_httpStatus = Lens.lens (\UntagResourceResponse' {httpStatus} -> httpStatus) (\s@UntagResourceResponse' {} a -> s {httpStatus = a} :: UntagResourceResponse)++instance Prelude.NFData UntagResourceResponse where+  rnf UntagResourceResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/UpdateDeviceInstance.hs view
@@ -0,0 +1,202 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.UpdateDeviceInstance+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates information about a private device instance.+module Amazonka.DeviceFarm.UpdateDeviceInstance+  ( -- * Creating a Request+    UpdateDeviceInstance (..),+    newUpdateDeviceInstance,++    -- * Request Lenses+    updateDeviceInstance_labels,+    updateDeviceInstance_profileArn,+    updateDeviceInstance_arn,++    -- * Destructuring the Response+    UpdateDeviceInstanceResponse (..),+    newUpdateDeviceInstanceResponse,++    -- * Response Lenses+    updateDeviceInstanceResponse_deviceInstance,+    updateDeviceInstanceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateDeviceInstance' smart constructor.+data UpdateDeviceInstance = UpdateDeviceInstance'+  { -- | An array of strings that you want to associate with the device instance.+    labels :: Prelude.Maybe [Prelude.Text],+    -- | The ARN of the profile that you want to associate with the device+    -- instance.+    profileArn :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the device instance.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateDeviceInstance' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'labels', 'updateDeviceInstance_labels' - An array of strings that you want to associate with the device instance.+--+-- 'profileArn', 'updateDeviceInstance_profileArn' - The ARN of the profile that you want to associate with the device+-- instance.+--+-- 'arn', 'updateDeviceInstance_arn' - The Amazon Resource Name (ARN) of the device instance.+newUpdateDeviceInstance ::+  -- | 'arn'+  Prelude.Text ->+  UpdateDeviceInstance+newUpdateDeviceInstance pArn_ =+  UpdateDeviceInstance'+    { labels = Prelude.Nothing,+      profileArn = Prelude.Nothing,+      arn = pArn_+    }++-- | An array of strings that you want to associate with the device instance.+updateDeviceInstance_labels :: Lens.Lens' UpdateDeviceInstance (Prelude.Maybe [Prelude.Text])+updateDeviceInstance_labels = Lens.lens (\UpdateDeviceInstance' {labels} -> labels) (\s@UpdateDeviceInstance' {} a -> s {labels = a} :: UpdateDeviceInstance) Prelude.. Lens.mapping Lens.coerced++-- | The ARN of the profile that you want to associate with the device+-- instance.+updateDeviceInstance_profileArn :: Lens.Lens' UpdateDeviceInstance (Prelude.Maybe Prelude.Text)+updateDeviceInstance_profileArn = Lens.lens (\UpdateDeviceInstance' {profileArn} -> profileArn) (\s@UpdateDeviceInstance' {} a -> s {profileArn = a} :: UpdateDeviceInstance)++-- | The Amazon Resource Name (ARN) of the device instance.+updateDeviceInstance_arn :: Lens.Lens' UpdateDeviceInstance Prelude.Text+updateDeviceInstance_arn = Lens.lens (\UpdateDeviceInstance' {arn} -> arn) (\s@UpdateDeviceInstance' {} a -> s {arn = a} :: UpdateDeviceInstance)++instance Core.AWSRequest UpdateDeviceInstance where+  type+    AWSResponse UpdateDeviceInstance =+      UpdateDeviceInstanceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateDeviceInstanceResponse'+            Prelude.<$> (x Data..?> "deviceInstance")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UpdateDeviceInstance where+  hashWithSalt _salt UpdateDeviceInstance' {..} =+    _salt+      `Prelude.hashWithSalt` labels+      `Prelude.hashWithSalt` profileArn+      `Prelude.hashWithSalt` arn++instance Prelude.NFData UpdateDeviceInstance where+  rnf UpdateDeviceInstance' {..} =+    Prelude.rnf labels+      `Prelude.seq` Prelude.rnf profileArn+      `Prelude.seq` Prelude.rnf arn++instance Data.ToHeaders UpdateDeviceInstance where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.UpdateDeviceInstance" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateDeviceInstance where+  toJSON UpdateDeviceInstance' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("labels" Data..=) Prelude.<$> labels,+            ("profileArn" Data..=) Prelude.<$> profileArn,+            Prelude.Just ("arn" Data..= arn)+          ]+      )++instance Data.ToPath UpdateDeviceInstance where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateDeviceInstance where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateDeviceInstanceResponse' smart constructor.+data UpdateDeviceInstanceResponse = UpdateDeviceInstanceResponse'+  { -- | An object that contains information about your device instance.+    deviceInstance :: Prelude.Maybe DeviceInstance,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateDeviceInstanceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'deviceInstance', 'updateDeviceInstanceResponse_deviceInstance' - An object that contains information about your device instance.+--+-- 'httpStatus', 'updateDeviceInstanceResponse_httpStatus' - The response's http status code.+newUpdateDeviceInstanceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UpdateDeviceInstanceResponse+newUpdateDeviceInstanceResponse pHttpStatus_ =+  UpdateDeviceInstanceResponse'+    { deviceInstance =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An object that contains information about your device instance.+updateDeviceInstanceResponse_deviceInstance :: Lens.Lens' UpdateDeviceInstanceResponse (Prelude.Maybe DeviceInstance)+updateDeviceInstanceResponse_deviceInstance = Lens.lens (\UpdateDeviceInstanceResponse' {deviceInstance} -> deviceInstance) (\s@UpdateDeviceInstanceResponse' {} a -> s {deviceInstance = a} :: UpdateDeviceInstanceResponse)++-- | The response's http status code.+updateDeviceInstanceResponse_httpStatus :: Lens.Lens' UpdateDeviceInstanceResponse Prelude.Int+updateDeviceInstanceResponse_httpStatus = Lens.lens (\UpdateDeviceInstanceResponse' {httpStatus} -> httpStatus) (\s@UpdateDeviceInstanceResponse' {} a -> s {httpStatus = a} :: UpdateDeviceInstanceResponse)++instance Prelude.NFData UpdateDeviceInstanceResponse where+  rnf UpdateDeviceInstanceResponse' {..} =+    Prelude.rnf deviceInstance+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/UpdateDevicePool.hs view
@@ -0,0 +1,303 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.UpdateDevicePool+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies the name, description, and rules in a device pool given the+-- attributes and the pool ARN. Rule updates are all-or-nothing, meaning+-- they can only be updated as a whole (or not at all).+module Amazonka.DeviceFarm.UpdateDevicePool+  ( -- * Creating a Request+    UpdateDevicePool (..),+    newUpdateDevicePool,++    -- * Request Lenses+    updateDevicePool_clearMaxDevices,+    updateDevicePool_description,+    updateDevicePool_maxDevices,+    updateDevicePool_name,+    updateDevicePool_rules,+    updateDevicePool_arn,++    -- * Destructuring the Response+    UpdateDevicePoolResponse (..),+    newUpdateDevicePoolResponse,++    -- * Response Lenses+    updateDevicePoolResponse_devicePool,+    updateDevicePoolResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the update device pool operation.+--+-- /See:/ 'newUpdateDevicePool' smart constructor.+data UpdateDevicePool = UpdateDevicePool'+  { -- | Sets whether the @maxDevices@ parameter applies to your device pool. If+    -- you set this parameter to @true@, the @maxDevices@ parameter does not+    -- apply, and Device Farm does not limit the number of devices that it adds+    -- to your device pool. In this case, Device Farm adds all available+    -- devices that meet the criteria specified in the @rules@ parameter.+    --+    -- If you use this parameter in your request, you cannot use the+    -- @maxDevices@ parameter in the same request.+    clearMaxDevices :: Prelude.Maybe Prelude.Bool,+    -- | A description of the device pool to update.+    description :: Prelude.Maybe Prelude.Text,+    -- | The number of devices that Device Farm can add to your device pool.+    -- Device Farm adds devices that are available and that meet the criteria+    -- that you assign for the @rules@ parameter. Depending on how many devices+    -- meet these constraints, your device pool might contain fewer devices+    -- than the value for this parameter.+    --+    -- By specifying the maximum number of devices, you can control the costs+    -- that you incur by running tests.+    --+    -- If you use this parameter in your request, you cannot use the+    -- @clearMaxDevices@ parameter in the same request.+    maxDevices :: Prelude.Maybe Prelude.Int,+    -- | A string that represents the name of the device pool to update.+    name :: Prelude.Maybe Prelude.Text,+    -- | Represents the rules to modify for the device pool. Updating rules is+    -- optional. If you update rules for your request, the update replaces the+    -- existing rules.+    rules :: Prelude.Maybe [Rule],+    -- | The Amazon Resource Name (ARN) of the Device Farm device pool to update.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateDevicePool' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clearMaxDevices', 'updateDevicePool_clearMaxDevices' - Sets whether the @maxDevices@ parameter applies to your device pool. If+-- you set this parameter to @true@, the @maxDevices@ parameter does not+-- apply, and Device Farm does not limit the number of devices that it adds+-- to your device pool. In this case, Device Farm adds all available+-- devices that meet the criteria specified in the @rules@ parameter.+--+-- If you use this parameter in your request, you cannot use the+-- @maxDevices@ parameter in the same request.+--+-- 'description', 'updateDevicePool_description' - A description of the device pool to update.+--+-- 'maxDevices', 'updateDevicePool_maxDevices' - The number of devices that Device Farm can add to your device pool.+-- Device Farm adds devices that are available and that meet the criteria+-- that you assign for the @rules@ parameter. Depending on how many devices+-- meet these constraints, your device pool might contain fewer devices+-- than the value for this parameter.+--+-- By specifying the maximum number of devices, you can control the costs+-- that you incur by running tests.+--+-- If you use this parameter in your request, you cannot use the+-- @clearMaxDevices@ parameter in the same request.+--+-- 'name', 'updateDevicePool_name' - A string that represents the name of the device pool to update.+--+-- 'rules', 'updateDevicePool_rules' - Represents the rules to modify for the device pool. Updating rules is+-- optional. If you update rules for your request, the update replaces the+-- existing rules.+--+-- 'arn', 'updateDevicePool_arn' - The Amazon Resource Name (ARN) of the Device Farm device pool to update.+newUpdateDevicePool ::+  -- | 'arn'+  Prelude.Text ->+  UpdateDevicePool+newUpdateDevicePool pArn_ =+  UpdateDevicePool'+    { clearMaxDevices =+        Prelude.Nothing,+      description = Prelude.Nothing,+      maxDevices = Prelude.Nothing,+      name = Prelude.Nothing,+      rules = Prelude.Nothing,+      arn = pArn_+    }++-- | Sets whether the @maxDevices@ parameter applies to your device pool. If+-- you set this parameter to @true@, the @maxDevices@ parameter does not+-- apply, and Device Farm does not limit the number of devices that it adds+-- to your device pool. In this case, Device Farm adds all available+-- devices that meet the criteria specified in the @rules@ parameter.+--+-- If you use this parameter in your request, you cannot use the+-- @maxDevices@ parameter in the same request.+updateDevicePool_clearMaxDevices :: Lens.Lens' UpdateDevicePool (Prelude.Maybe Prelude.Bool)+updateDevicePool_clearMaxDevices = Lens.lens (\UpdateDevicePool' {clearMaxDevices} -> clearMaxDevices) (\s@UpdateDevicePool' {} a -> s {clearMaxDevices = a} :: UpdateDevicePool)++-- | A description of the device pool to update.+updateDevicePool_description :: Lens.Lens' UpdateDevicePool (Prelude.Maybe Prelude.Text)+updateDevicePool_description = Lens.lens (\UpdateDevicePool' {description} -> description) (\s@UpdateDevicePool' {} a -> s {description = a} :: UpdateDevicePool)++-- | The number of devices that Device Farm can add to your device pool.+-- Device Farm adds devices that are available and that meet the criteria+-- that you assign for the @rules@ parameter. Depending on how many devices+-- meet these constraints, your device pool might contain fewer devices+-- than the value for this parameter.+--+-- By specifying the maximum number of devices, you can control the costs+-- that you incur by running tests.+--+-- If you use this parameter in your request, you cannot use the+-- @clearMaxDevices@ parameter in the same request.+updateDevicePool_maxDevices :: Lens.Lens' UpdateDevicePool (Prelude.Maybe Prelude.Int)+updateDevicePool_maxDevices = Lens.lens (\UpdateDevicePool' {maxDevices} -> maxDevices) (\s@UpdateDevicePool' {} a -> s {maxDevices = a} :: UpdateDevicePool)++-- | A string that represents the name of the device pool to update.+updateDevicePool_name :: Lens.Lens' UpdateDevicePool (Prelude.Maybe Prelude.Text)+updateDevicePool_name = Lens.lens (\UpdateDevicePool' {name} -> name) (\s@UpdateDevicePool' {} a -> s {name = a} :: UpdateDevicePool)++-- | Represents the rules to modify for the device pool. Updating rules is+-- optional. If you update rules for your request, the update replaces the+-- existing rules.+updateDevicePool_rules :: Lens.Lens' UpdateDevicePool (Prelude.Maybe [Rule])+updateDevicePool_rules = Lens.lens (\UpdateDevicePool' {rules} -> rules) (\s@UpdateDevicePool' {} a -> s {rules = a} :: UpdateDevicePool) Prelude.. Lens.mapping Lens.coerced++-- | The Amazon Resource Name (ARN) of the Device Farm device pool to update.+updateDevicePool_arn :: Lens.Lens' UpdateDevicePool Prelude.Text+updateDevicePool_arn = Lens.lens (\UpdateDevicePool' {arn} -> arn) (\s@UpdateDevicePool' {} a -> s {arn = a} :: UpdateDevicePool)++instance Core.AWSRequest UpdateDevicePool where+  type+    AWSResponse UpdateDevicePool =+      UpdateDevicePoolResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateDevicePoolResponse'+            Prelude.<$> (x Data..?> "devicePool")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UpdateDevicePool where+  hashWithSalt _salt UpdateDevicePool' {..} =+    _salt+      `Prelude.hashWithSalt` clearMaxDevices+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` maxDevices+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` rules+      `Prelude.hashWithSalt` arn++instance Prelude.NFData UpdateDevicePool where+  rnf UpdateDevicePool' {..} =+    Prelude.rnf clearMaxDevices+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf maxDevices+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf rules+      `Prelude.seq` Prelude.rnf arn++instance Data.ToHeaders UpdateDevicePool where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.UpdateDevicePool" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateDevicePool where+  toJSON UpdateDevicePool' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("clearMaxDevices" Data..=)+              Prelude.<$> clearMaxDevices,+            ("description" Data..=) Prelude.<$> description,+            ("maxDevices" Data..=) Prelude.<$> maxDevices,+            ("name" Data..=) Prelude.<$> name,+            ("rules" Data..=) Prelude.<$> rules,+            Prelude.Just ("arn" Data..= arn)+          ]+      )++instance Data.ToPath UpdateDevicePool where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateDevicePool where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of an update device pool request.+--+-- /See:/ 'newUpdateDevicePoolResponse' smart constructor.+data UpdateDevicePoolResponse = UpdateDevicePoolResponse'+  { -- | The device pool you just updated.+    devicePool :: Prelude.Maybe DevicePool,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateDevicePoolResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'devicePool', 'updateDevicePoolResponse_devicePool' - The device pool you just updated.+--+-- 'httpStatus', 'updateDevicePoolResponse_httpStatus' - The response's http status code.+newUpdateDevicePoolResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UpdateDevicePoolResponse+newUpdateDevicePoolResponse pHttpStatus_ =+  UpdateDevicePoolResponse'+    { devicePool =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The device pool you just updated.+updateDevicePoolResponse_devicePool :: Lens.Lens' UpdateDevicePoolResponse (Prelude.Maybe DevicePool)+updateDevicePoolResponse_devicePool = Lens.lens (\UpdateDevicePoolResponse' {devicePool} -> devicePool) (\s@UpdateDevicePoolResponse' {} a -> s {devicePool = a} :: UpdateDevicePoolResponse)++-- | The response's http status code.+updateDevicePoolResponse_httpStatus :: Lens.Lens' UpdateDevicePoolResponse Prelude.Int+updateDevicePoolResponse_httpStatus = Lens.lens (\UpdateDevicePoolResponse' {httpStatus} -> httpStatus) (\s@UpdateDevicePoolResponse' {} a -> s {httpStatus = a} :: UpdateDevicePoolResponse)++instance Prelude.NFData UpdateDevicePoolResponse where+  rnf UpdateDevicePoolResponse' {..} =+    Prelude.rnf devicePool+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/UpdateInstanceProfile.hs view
@@ -0,0 +1,260 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.UpdateInstanceProfile+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates information about an existing private device instance profile.+module Amazonka.DeviceFarm.UpdateInstanceProfile+  ( -- * Creating a Request+    UpdateInstanceProfile (..),+    newUpdateInstanceProfile,++    -- * Request Lenses+    updateInstanceProfile_description,+    updateInstanceProfile_excludeAppPackagesFromCleanup,+    updateInstanceProfile_name,+    updateInstanceProfile_packageCleanup,+    updateInstanceProfile_rebootAfterUse,+    updateInstanceProfile_arn,++    -- * Destructuring the Response+    UpdateInstanceProfileResponse (..),+    newUpdateInstanceProfileResponse,++    -- * Response Lenses+    updateInstanceProfileResponse_instanceProfile,+    updateInstanceProfileResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateInstanceProfile' smart constructor.+data UpdateInstanceProfile = UpdateInstanceProfile'+  { -- | The updated description for your instance profile.+    description :: Prelude.Maybe Prelude.Text,+    -- | An array of strings that specifies 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@.+    excludeAppPackagesFromCleanup :: Prelude.Maybe [Prelude.Text],+    -- | The updated name for your instance profile.+    name :: Prelude.Maybe Prelude.Text,+    -- | The updated choice for whether you want to specify package cleanup. The+    -- default value is @false@ for private devices.+    packageCleanup :: Prelude.Maybe Prelude.Bool,+    -- | The updated choice for whether you want to reboot the device after use.+    -- The default value is @true@.+    rebootAfterUse :: Prelude.Maybe Prelude.Bool,+    -- | The Amazon Resource Name (ARN) of the instance profile.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateInstanceProfile' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'updateInstanceProfile_description' - The updated description for your instance profile.+--+-- 'excludeAppPackagesFromCleanup', 'updateInstanceProfile_excludeAppPackagesFromCleanup' - An array of strings that specifies 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@.+--+-- 'name', 'updateInstanceProfile_name' - The updated name for your instance profile.+--+-- 'packageCleanup', 'updateInstanceProfile_packageCleanup' - The updated choice for whether you want to specify package cleanup. The+-- default value is @false@ for private devices.+--+-- 'rebootAfterUse', 'updateInstanceProfile_rebootAfterUse' - The updated choice for whether you want to reboot the device after use.+-- The default value is @true@.+--+-- 'arn', 'updateInstanceProfile_arn' - The Amazon Resource Name (ARN) of the instance profile.+newUpdateInstanceProfile ::+  -- | 'arn'+  Prelude.Text ->+  UpdateInstanceProfile+newUpdateInstanceProfile pArn_ =+  UpdateInstanceProfile'+    { description =+        Prelude.Nothing,+      excludeAppPackagesFromCleanup = Prelude.Nothing,+      name = Prelude.Nothing,+      packageCleanup = Prelude.Nothing,+      rebootAfterUse = Prelude.Nothing,+      arn = pArn_+    }++-- | The updated description for your instance profile.+updateInstanceProfile_description :: Lens.Lens' UpdateInstanceProfile (Prelude.Maybe Prelude.Text)+updateInstanceProfile_description = Lens.lens (\UpdateInstanceProfile' {description} -> description) (\s@UpdateInstanceProfile' {} a -> s {description = a} :: UpdateInstanceProfile)++-- | An array of strings that specifies 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@.+updateInstanceProfile_excludeAppPackagesFromCleanup :: Lens.Lens' UpdateInstanceProfile (Prelude.Maybe [Prelude.Text])+updateInstanceProfile_excludeAppPackagesFromCleanup = Lens.lens (\UpdateInstanceProfile' {excludeAppPackagesFromCleanup} -> excludeAppPackagesFromCleanup) (\s@UpdateInstanceProfile' {} a -> s {excludeAppPackagesFromCleanup = a} :: UpdateInstanceProfile) Prelude.. Lens.mapping Lens.coerced++-- | The updated name for your instance profile.+updateInstanceProfile_name :: Lens.Lens' UpdateInstanceProfile (Prelude.Maybe Prelude.Text)+updateInstanceProfile_name = Lens.lens (\UpdateInstanceProfile' {name} -> name) (\s@UpdateInstanceProfile' {} a -> s {name = a} :: UpdateInstanceProfile)++-- | The updated choice for whether you want to specify package cleanup. The+-- default value is @false@ for private devices.+updateInstanceProfile_packageCleanup :: Lens.Lens' UpdateInstanceProfile (Prelude.Maybe Prelude.Bool)+updateInstanceProfile_packageCleanup = Lens.lens (\UpdateInstanceProfile' {packageCleanup} -> packageCleanup) (\s@UpdateInstanceProfile' {} a -> s {packageCleanup = a} :: UpdateInstanceProfile)++-- | The updated choice for whether you want to reboot the device after use.+-- The default value is @true@.+updateInstanceProfile_rebootAfterUse :: Lens.Lens' UpdateInstanceProfile (Prelude.Maybe Prelude.Bool)+updateInstanceProfile_rebootAfterUse = Lens.lens (\UpdateInstanceProfile' {rebootAfterUse} -> rebootAfterUse) (\s@UpdateInstanceProfile' {} a -> s {rebootAfterUse = a} :: UpdateInstanceProfile)++-- | The Amazon Resource Name (ARN) of the instance profile.+updateInstanceProfile_arn :: Lens.Lens' UpdateInstanceProfile Prelude.Text+updateInstanceProfile_arn = Lens.lens (\UpdateInstanceProfile' {arn} -> arn) (\s@UpdateInstanceProfile' {} a -> s {arn = a} :: UpdateInstanceProfile)++instance Core.AWSRequest UpdateInstanceProfile where+  type+    AWSResponse UpdateInstanceProfile =+      UpdateInstanceProfileResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateInstanceProfileResponse'+            Prelude.<$> (x Data..?> "instanceProfile")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UpdateInstanceProfile where+  hashWithSalt _salt UpdateInstanceProfile' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` excludeAppPackagesFromCleanup+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` packageCleanup+      `Prelude.hashWithSalt` rebootAfterUse+      `Prelude.hashWithSalt` arn++instance Prelude.NFData UpdateInstanceProfile where+  rnf UpdateInstanceProfile' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf excludeAppPackagesFromCleanup+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf packageCleanup+      `Prelude.seq` Prelude.rnf rebootAfterUse+      `Prelude.seq` Prelude.rnf arn++instance Data.ToHeaders UpdateInstanceProfile where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.UpdateInstanceProfile" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateInstanceProfile where+  toJSON UpdateInstanceProfile' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("description" Data..=) Prelude.<$> description,+            ("excludeAppPackagesFromCleanup" Data..=)+              Prelude.<$> excludeAppPackagesFromCleanup,+            ("name" Data..=) Prelude.<$> name,+            ("packageCleanup" Data..=)+              Prelude.<$> packageCleanup,+            ("rebootAfterUse" Data..=)+              Prelude.<$> rebootAfterUse,+            Prelude.Just ("arn" Data..= arn)+          ]+      )++instance Data.ToPath UpdateInstanceProfile where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateInstanceProfile where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateInstanceProfileResponse' smart constructor.+data UpdateInstanceProfileResponse = UpdateInstanceProfileResponse'+  { -- | An object that contains information about your instance profile.+    instanceProfile :: Prelude.Maybe InstanceProfile,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateInstanceProfileResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'instanceProfile', 'updateInstanceProfileResponse_instanceProfile' - An object that contains information about your instance profile.+--+-- 'httpStatus', 'updateInstanceProfileResponse_httpStatus' - The response's http status code.+newUpdateInstanceProfileResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UpdateInstanceProfileResponse+newUpdateInstanceProfileResponse pHttpStatus_ =+  UpdateInstanceProfileResponse'+    { instanceProfile =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An object that contains information about your instance profile.+updateInstanceProfileResponse_instanceProfile :: Lens.Lens' UpdateInstanceProfileResponse (Prelude.Maybe InstanceProfile)+updateInstanceProfileResponse_instanceProfile = Lens.lens (\UpdateInstanceProfileResponse' {instanceProfile} -> instanceProfile) (\s@UpdateInstanceProfileResponse' {} a -> s {instanceProfile = a} :: UpdateInstanceProfileResponse)++-- | The response's http status code.+updateInstanceProfileResponse_httpStatus :: Lens.Lens' UpdateInstanceProfileResponse Prelude.Int+updateInstanceProfileResponse_httpStatus = Lens.lens (\UpdateInstanceProfileResponse' {httpStatus} -> httpStatus) (\s@UpdateInstanceProfileResponse' {} a -> s {httpStatus = a} :: UpdateInstanceProfileResponse)++instance Prelude.NFData UpdateInstanceProfileResponse where+  rnf UpdateInstanceProfileResponse' {..} =+    Prelude.rnf instanceProfile+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/UpdateNetworkProfile.hs view
@@ -0,0 +1,360 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.UpdateNetworkProfile+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates the network profile.+module Amazonka.DeviceFarm.UpdateNetworkProfile+  ( -- * Creating a Request+    UpdateNetworkProfile (..),+    newUpdateNetworkProfile,++    -- * Request Lenses+    updateNetworkProfile_description,+    updateNetworkProfile_downlinkBandwidthBits,+    updateNetworkProfile_downlinkDelayMs,+    updateNetworkProfile_downlinkJitterMs,+    updateNetworkProfile_downlinkLossPercent,+    updateNetworkProfile_name,+    updateNetworkProfile_type,+    updateNetworkProfile_uplinkBandwidthBits,+    updateNetworkProfile_uplinkDelayMs,+    updateNetworkProfile_uplinkJitterMs,+    updateNetworkProfile_uplinkLossPercent,+    updateNetworkProfile_arn,++    -- * Destructuring the Response+    UpdateNetworkProfileResponse (..),+    newUpdateNetworkProfileResponse,++    -- * Response Lenses+    updateNetworkProfileResponse_networkProfile,+    updateNetworkProfileResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateNetworkProfile' smart constructor.+data UpdateNetworkProfile = UpdateNetworkProfile'+  { -- | The description of the network profile about which you are returning+    -- information.+    description :: Prelude.Maybe Prelude.Text,+    -- | The data throughput rate in bits per second, as an integer from 0 to+    -- 104857600.+    downlinkBandwidthBits :: Prelude.Maybe Prelude.Integer,+    -- | Delay time for all packets to destination in milliseconds as an integer+    -- from 0 to 2000.+    downlinkDelayMs :: Prelude.Maybe Prelude.Integer,+    -- | Time variation in the delay of received packets in milliseconds as an+    -- integer from 0 to 2000.+    downlinkJitterMs :: Prelude.Maybe Prelude.Integer,+    -- | Proportion of received packets that fail to arrive from 0 to 100+    -- percent.+    downlinkLossPercent :: Prelude.Maybe Prelude.Natural,+    -- | The name of the network profile about which you are returning+    -- information.+    name :: Prelude.Maybe Prelude.Text,+    -- | The type of network profile to return information about. Valid values+    -- are listed here.+    type' :: Prelude.Maybe NetworkProfileType,+    -- | The data throughput rate in bits per second, as an integer from 0 to+    -- 104857600.+    uplinkBandwidthBits :: Prelude.Maybe Prelude.Integer,+    -- | Delay time for all packets to destination in milliseconds as an integer+    -- from 0 to 2000.+    uplinkDelayMs :: Prelude.Maybe Prelude.Integer,+    -- | Time variation in the delay of received packets in milliseconds as an+    -- integer from 0 to 2000.+    uplinkJitterMs :: Prelude.Maybe Prelude.Integer,+    -- | Proportion of transmitted packets that fail to arrive from 0 to 100+    -- percent.+    uplinkLossPercent :: Prelude.Maybe Prelude.Natural,+    -- | The Amazon Resource Name (ARN) of the project for which you want to+    -- update network profile settings.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateNetworkProfile' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'updateNetworkProfile_description' - The description of the network profile about which you are returning+-- information.+--+-- 'downlinkBandwidthBits', 'updateNetworkProfile_downlinkBandwidthBits' - The data throughput rate in bits per second, as an integer from 0 to+-- 104857600.+--+-- 'downlinkDelayMs', 'updateNetworkProfile_downlinkDelayMs' - Delay time for all packets to destination in milliseconds as an integer+-- from 0 to 2000.+--+-- 'downlinkJitterMs', 'updateNetworkProfile_downlinkJitterMs' - Time variation in the delay of received packets in milliseconds as an+-- integer from 0 to 2000.+--+-- 'downlinkLossPercent', 'updateNetworkProfile_downlinkLossPercent' - Proportion of received packets that fail to arrive from 0 to 100+-- percent.+--+-- 'name', 'updateNetworkProfile_name' - The name of the network profile about which you are returning+-- information.+--+-- 'type'', 'updateNetworkProfile_type' - The type of network profile to return information about. Valid values+-- are listed here.+--+-- 'uplinkBandwidthBits', 'updateNetworkProfile_uplinkBandwidthBits' - The data throughput rate in bits per second, as an integer from 0 to+-- 104857600.+--+-- 'uplinkDelayMs', 'updateNetworkProfile_uplinkDelayMs' - Delay time for all packets to destination in milliseconds as an integer+-- from 0 to 2000.+--+-- 'uplinkJitterMs', 'updateNetworkProfile_uplinkJitterMs' - Time variation in the delay of received packets in milliseconds as an+-- integer from 0 to 2000.+--+-- 'uplinkLossPercent', 'updateNetworkProfile_uplinkLossPercent' - Proportion of transmitted packets that fail to arrive from 0 to 100+-- percent.+--+-- 'arn', 'updateNetworkProfile_arn' - The Amazon Resource Name (ARN) of the project for which you want to+-- update network profile settings.+newUpdateNetworkProfile ::+  -- | 'arn'+  Prelude.Text ->+  UpdateNetworkProfile+newUpdateNetworkProfile pArn_ =+  UpdateNetworkProfile'+    { description =+        Prelude.Nothing,+      downlinkBandwidthBits = Prelude.Nothing,+      downlinkDelayMs = Prelude.Nothing,+      downlinkJitterMs = Prelude.Nothing,+      downlinkLossPercent = Prelude.Nothing,+      name = Prelude.Nothing,+      type' = Prelude.Nothing,+      uplinkBandwidthBits = Prelude.Nothing,+      uplinkDelayMs = Prelude.Nothing,+      uplinkJitterMs = Prelude.Nothing,+      uplinkLossPercent = Prelude.Nothing,+      arn = pArn_+    }++-- | The description of the network profile about which you are returning+-- information.+updateNetworkProfile_description :: Lens.Lens' UpdateNetworkProfile (Prelude.Maybe Prelude.Text)+updateNetworkProfile_description = Lens.lens (\UpdateNetworkProfile' {description} -> description) (\s@UpdateNetworkProfile' {} a -> s {description = a} :: UpdateNetworkProfile)++-- | The data throughput rate in bits per second, as an integer from 0 to+-- 104857600.+updateNetworkProfile_downlinkBandwidthBits :: Lens.Lens' UpdateNetworkProfile (Prelude.Maybe Prelude.Integer)+updateNetworkProfile_downlinkBandwidthBits = Lens.lens (\UpdateNetworkProfile' {downlinkBandwidthBits} -> downlinkBandwidthBits) (\s@UpdateNetworkProfile' {} a -> s {downlinkBandwidthBits = a} :: UpdateNetworkProfile)++-- | Delay time for all packets to destination in milliseconds as an integer+-- from 0 to 2000.+updateNetworkProfile_downlinkDelayMs :: Lens.Lens' UpdateNetworkProfile (Prelude.Maybe Prelude.Integer)+updateNetworkProfile_downlinkDelayMs = Lens.lens (\UpdateNetworkProfile' {downlinkDelayMs} -> downlinkDelayMs) (\s@UpdateNetworkProfile' {} a -> s {downlinkDelayMs = a} :: UpdateNetworkProfile)++-- | Time variation in the delay of received packets in milliseconds as an+-- integer from 0 to 2000.+updateNetworkProfile_downlinkJitterMs :: Lens.Lens' UpdateNetworkProfile (Prelude.Maybe Prelude.Integer)+updateNetworkProfile_downlinkJitterMs = Lens.lens (\UpdateNetworkProfile' {downlinkJitterMs} -> downlinkJitterMs) (\s@UpdateNetworkProfile' {} a -> s {downlinkJitterMs = a} :: UpdateNetworkProfile)++-- | Proportion of received packets that fail to arrive from 0 to 100+-- percent.+updateNetworkProfile_downlinkLossPercent :: Lens.Lens' UpdateNetworkProfile (Prelude.Maybe Prelude.Natural)+updateNetworkProfile_downlinkLossPercent = Lens.lens (\UpdateNetworkProfile' {downlinkLossPercent} -> downlinkLossPercent) (\s@UpdateNetworkProfile' {} a -> s {downlinkLossPercent = a} :: UpdateNetworkProfile)++-- | The name of the network profile about which you are returning+-- information.+updateNetworkProfile_name :: Lens.Lens' UpdateNetworkProfile (Prelude.Maybe Prelude.Text)+updateNetworkProfile_name = Lens.lens (\UpdateNetworkProfile' {name} -> name) (\s@UpdateNetworkProfile' {} a -> s {name = a} :: UpdateNetworkProfile)++-- | The type of network profile to return information about. Valid values+-- are listed here.+updateNetworkProfile_type :: Lens.Lens' UpdateNetworkProfile (Prelude.Maybe NetworkProfileType)+updateNetworkProfile_type = Lens.lens (\UpdateNetworkProfile' {type'} -> type') (\s@UpdateNetworkProfile' {} a -> s {type' = a} :: UpdateNetworkProfile)++-- | The data throughput rate in bits per second, as an integer from 0 to+-- 104857600.+updateNetworkProfile_uplinkBandwidthBits :: Lens.Lens' UpdateNetworkProfile (Prelude.Maybe Prelude.Integer)+updateNetworkProfile_uplinkBandwidthBits = Lens.lens (\UpdateNetworkProfile' {uplinkBandwidthBits} -> uplinkBandwidthBits) (\s@UpdateNetworkProfile' {} a -> s {uplinkBandwidthBits = a} :: UpdateNetworkProfile)++-- | Delay time for all packets to destination in milliseconds as an integer+-- from 0 to 2000.+updateNetworkProfile_uplinkDelayMs :: Lens.Lens' UpdateNetworkProfile (Prelude.Maybe Prelude.Integer)+updateNetworkProfile_uplinkDelayMs = Lens.lens (\UpdateNetworkProfile' {uplinkDelayMs} -> uplinkDelayMs) (\s@UpdateNetworkProfile' {} a -> s {uplinkDelayMs = a} :: UpdateNetworkProfile)++-- | Time variation in the delay of received packets in milliseconds as an+-- integer from 0 to 2000.+updateNetworkProfile_uplinkJitterMs :: Lens.Lens' UpdateNetworkProfile (Prelude.Maybe Prelude.Integer)+updateNetworkProfile_uplinkJitterMs = Lens.lens (\UpdateNetworkProfile' {uplinkJitterMs} -> uplinkJitterMs) (\s@UpdateNetworkProfile' {} a -> s {uplinkJitterMs = a} :: UpdateNetworkProfile)++-- | Proportion of transmitted packets that fail to arrive from 0 to 100+-- percent.+updateNetworkProfile_uplinkLossPercent :: Lens.Lens' UpdateNetworkProfile (Prelude.Maybe Prelude.Natural)+updateNetworkProfile_uplinkLossPercent = Lens.lens (\UpdateNetworkProfile' {uplinkLossPercent} -> uplinkLossPercent) (\s@UpdateNetworkProfile' {} a -> s {uplinkLossPercent = a} :: UpdateNetworkProfile)++-- | The Amazon Resource Name (ARN) of the project for which you want to+-- update network profile settings.+updateNetworkProfile_arn :: Lens.Lens' UpdateNetworkProfile Prelude.Text+updateNetworkProfile_arn = Lens.lens (\UpdateNetworkProfile' {arn} -> arn) (\s@UpdateNetworkProfile' {} a -> s {arn = a} :: UpdateNetworkProfile)++instance Core.AWSRequest UpdateNetworkProfile where+  type+    AWSResponse UpdateNetworkProfile =+      UpdateNetworkProfileResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateNetworkProfileResponse'+            Prelude.<$> (x Data..?> "networkProfile")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UpdateNetworkProfile where+  hashWithSalt _salt UpdateNetworkProfile' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` downlinkBandwidthBits+      `Prelude.hashWithSalt` downlinkDelayMs+      `Prelude.hashWithSalt` downlinkJitterMs+      `Prelude.hashWithSalt` downlinkLossPercent+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` uplinkBandwidthBits+      `Prelude.hashWithSalt` uplinkDelayMs+      `Prelude.hashWithSalt` uplinkJitterMs+      `Prelude.hashWithSalt` uplinkLossPercent+      `Prelude.hashWithSalt` arn++instance Prelude.NFData UpdateNetworkProfile where+  rnf UpdateNetworkProfile' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf downlinkBandwidthBits+      `Prelude.seq` Prelude.rnf downlinkDelayMs+      `Prelude.seq` Prelude.rnf downlinkJitterMs+      `Prelude.seq` Prelude.rnf downlinkLossPercent+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf uplinkBandwidthBits+      `Prelude.seq` Prelude.rnf uplinkDelayMs+      `Prelude.seq` Prelude.rnf uplinkJitterMs+      `Prelude.seq` Prelude.rnf uplinkLossPercent+      `Prelude.seq` Prelude.rnf arn++instance Data.ToHeaders UpdateNetworkProfile where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.UpdateNetworkProfile" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateNetworkProfile where+  toJSON UpdateNetworkProfile' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("description" Data..=) Prelude.<$> description,+            ("downlinkBandwidthBits" Data..=)+              Prelude.<$> downlinkBandwidthBits,+            ("downlinkDelayMs" Data..=)+              Prelude.<$> downlinkDelayMs,+            ("downlinkJitterMs" Data..=)+              Prelude.<$> downlinkJitterMs,+            ("downlinkLossPercent" Data..=)+              Prelude.<$> downlinkLossPercent,+            ("name" Data..=) Prelude.<$> name,+            ("type" Data..=) Prelude.<$> type',+            ("uplinkBandwidthBits" Data..=)+              Prelude.<$> uplinkBandwidthBits,+            ("uplinkDelayMs" Data..=) Prelude.<$> uplinkDelayMs,+            ("uplinkJitterMs" Data..=)+              Prelude.<$> uplinkJitterMs,+            ("uplinkLossPercent" Data..=)+              Prelude.<$> uplinkLossPercent,+            Prelude.Just ("arn" Data..= arn)+          ]+      )++instance Data.ToPath UpdateNetworkProfile where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateNetworkProfile where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateNetworkProfileResponse' smart constructor.+data UpdateNetworkProfileResponse = UpdateNetworkProfileResponse'+  { -- | A list of the available network profiles.+    networkProfile :: Prelude.Maybe NetworkProfile,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateNetworkProfileResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'networkProfile', 'updateNetworkProfileResponse_networkProfile' - A list of the available network profiles.+--+-- 'httpStatus', 'updateNetworkProfileResponse_httpStatus' - The response's http status code.+newUpdateNetworkProfileResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UpdateNetworkProfileResponse+newUpdateNetworkProfileResponse pHttpStatus_ =+  UpdateNetworkProfileResponse'+    { networkProfile =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A list of the available network profiles.+updateNetworkProfileResponse_networkProfile :: Lens.Lens' UpdateNetworkProfileResponse (Prelude.Maybe NetworkProfile)+updateNetworkProfileResponse_networkProfile = Lens.lens (\UpdateNetworkProfileResponse' {networkProfile} -> networkProfile) (\s@UpdateNetworkProfileResponse' {} a -> s {networkProfile = a} :: UpdateNetworkProfileResponse)++-- | The response's http status code.+updateNetworkProfileResponse_httpStatus :: Lens.Lens' UpdateNetworkProfileResponse Prelude.Int+updateNetworkProfileResponse_httpStatus = Lens.lens (\UpdateNetworkProfileResponse' {httpStatus} -> httpStatus) (\s@UpdateNetworkProfileResponse' {} a -> s {httpStatus = a} :: UpdateNetworkProfileResponse)++instance Prelude.NFData UpdateNetworkProfileResponse where+  rnf UpdateNetworkProfileResponse' {..} =+    Prelude.rnf networkProfile+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/UpdateProject.hs view
@@ -0,0 +1,224 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.UpdateProject+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies the specified project name, given the project ARN and a new+-- name.+module Amazonka.DeviceFarm.UpdateProject+  ( -- * Creating a Request+    UpdateProject (..),+    newUpdateProject,++    -- * Request Lenses+    updateProject_defaultJobTimeoutMinutes,+    updateProject_name,+    updateProject_vpcConfig,+    updateProject_arn,++    -- * Destructuring the Response+    UpdateProjectResponse (..),+    newUpdateProjectResponse,++    -- * Response Lenses+    updateProjectResponse_project,+    updateProjectResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Represents a request to the update project operation.+--+-- /See:/ 'newUpdateProject' smart constructor.+data UpdateProject = UpdateProject'+  { -- | The number of minutes a test run in the project executes before it times+    -- out.+    defaultJobTimeoutMinutes :: Prelude.Maybe Prelude.Int,+    -- | A string that represents the new name of the project that you are+    -- updating.+    name :: Prelude.Maybe Prelude.Text,+    -- | The VPC security groups and subnets that are attached to a project.+    vpcConfig :: Prelude.Maybe VpcConfig,+    -- | The Amazon Resource Name (ARN) of the project whose name to update.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateProject' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'defaultJobTimeoutMinutes', 'updateProject_defaultJobTimeoutMinutes' - The number of minutes a test run in the project executes before it times+-- out.+--+-- 'name', 'updateProject_name' - A string that represents the new name of the project that you are+-- updating.+--+-- 'vpcConfig', 'updateProject_vpcConfig' - The VPC security groups and subnets that are attached to a project.+--+-- 'arn', 'updateProject_arn' - The Amazon Resource Name (ARN) of the project whose name to update.+newUpdateProject ::+  -- | 'arn'+  Prelude.Text ->+  UpdateProject+newUpdateProject pArn_ =+  UpdateProject'+    { defaultJobTimeoutMinutes =+        Prelude.Nothing,+      name = Prelude.Nothing,+      vpcConfig = Prelude.Nothing,+      arn = pArn_+    }++-- | The number of minutes a test run in the project executes before it times+-- out.+updateProject_defaultJobTimeoutMinutes :: Lens.Lens' UpdateProject (Prelude.Maybe Prelude.Int)+updateProject_defaultJobTimeoutMinutes = Lens.lens (\UpdateProject' {defaultJobTimeoutMinutes} -> defaultJobTimeoutMinutes) (\s@UpdateProject' {} a -> s {defaultJobTimeoutMinutes = a} :: UpdateProject)++-- | A string that represents the new name of the project that you are+-- updating.+updateProject_name :: Lens.Lens' UpdateProject (Prelude.Maybe Prelude.Text)+updateProject_name = Lens.lens (\UpdateProject' {name} -> name) (\s@UpdateProject' {} a -> s {name = a} :: UpdateProject)++-- | The VPC security groups and subnets that are attached to a project.+updateProject_vpcConfig :: Lens.Lens' UpdateProject (Prelude.Maybe VpcConfig)+updateProject_vpcConfig = Lens.lens (\UpdateProject' {vpcConfig} -> vpcConfig) (\s@UpdateProject' {} a -> s {vpcConfig = a} :: UpdateProject)++-- | The Amazon Resource Name (ARN) of the project whose name to update.+updateProject_arn :: Lens.Lens' UpdateProject Prelude.Text+updateProject_arn = Lens.lens (\UpdateProject' {arn} -> arn) (\s@UpdateProject' {} a -> s {arn = a} :: UpdateProject)++instance Core.AWSRequest UpdateProject where+  type+    AWSResponse UpdateProject =+      UpdateProjectResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateProjectResponse'+            Prelude.<$> (x Data..?> "project")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UpdateProject where+  hashWithSalt _salt UpdateProject' {..} =+    _salt+      `Prelude.hashWithSalt` defaultJobTimeoutMinutes+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` vpcConfig+      `Prelude.hashWithSalt` arn++instance Prelude.NFData UpdateProject where+  rnf UpdateProject' {..} =+    Prelude.rnf defaultJobTimeoutMinutes+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf vpcConfig+      `Prelude.seq` Prelude.rnf arn++instance Data.ToHeaders UpdateProject where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.UpdateProject" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateProject where+  toJSON UpdateProject' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("defaultJobTimeoutMinutes" Data..=)+              Prelude.<$> defaultJobTimeoutMinutes,+            ("name" Data..=) Prelude.<$> name,+            ("vpcConfig" Data..=) Prelude.<$> vpcConfig,+            Prelude.Just ("arn" Data..= arn)+          ]+      )++instance Data.ToPath UpdateProject where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateProject where+  toQuery = Prelude.const Prelude.mempty++-- | Represents the result of an update project request.+--+-- /See:/ 'newUpdateProjectResponse' smart constructor.+data UpdateProjectResponse = UpdateProjectResponse'+  { -- | The project to update.+    project :: Prelude.Maybe Project,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateProjectResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'project', 'updateProjectResponse_project' - The project to update.+--+-- 'httpStatus', 'updateProjectResponse_httpStatus' - The response's http status code.+newUpdateProjectResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UpdateProjectResponse+newUpdateProjectResponse pHttpStatus_ =+  UpdateProjectResponse'+    { project = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The project to update.+updateProjectResponse_project :: Lens.Lens' UpdateProjectResponse (Prelude.Maybe Project)+updateProjectResponse_project = Lens.lens (\UpdateProjectResponse' {project} -> project) (\s@UpdateProjectResponse' {} a -> s {project = a} :: UpdateProjectResponse)++-- | The response's http status code.+updateProjectResponse_httpStatus :: Lens.Lens' UpdateProjectResponse Prelude.Int+updateProjectResponse_httpStatus = Lens.lens (\UpdateProjectResponse' {httpStatus} -> httpStatus) (\s@UpdateProjectResponse' {} a -> s {httpStatus = a} :: UpdateProjectResponse)++instance Prelude.NFData UpdateProjectResponse where+  rnf UpdateProjectResponse' {..} =+    Prelude.rnf project+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/UpdateTestGridProject.hs view
@@ -0,0 +1,213 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.UpdateTestGridProject+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Change details of a project.+module Amazonka.DeviceFarm.UpdateTestGridProject+  ( -- * Creating a Request+    UpdateTestGridProject (..),+    newUpdateTestGridProject,++    -- * Request Lenses+    updateTestGridProject_description,+    updateTestGridProject_name,+    updateTestGridProject_vpcConfig,+    updateTestGridProject_projectArn,++    -- * Destructuring the Response+    UpdateTestGridProjectResponse (..),+    newUpdateTestGridProjectResponse,++    -- * Response Lenses+    updateTestGridProjectResponse_testGridProject,+    updateTestGridProjectResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateTestGridProject' smart constructor.+data UpdateTestGridProject = UpdateTestGridProject'+  { -- | Human-readable description for the project.+    description :: Prelude.Maybe Prelude.Text,+    -- | Human-readable name for the project.+    name :: Prelude.Maybe Prelude.Text,+    -- | The VPC security groups and subnets that are attached to a project.+    vpcConfig :: Prelude.Maybe TestGridVpcConfig,+    -- | ARN of the project to update.+    projectArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateTestGridProject' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'updateTestGridProject_description' - Human-readable description for the project.+--+-- 'name', 'updateTestGridProject_name' - Human-readable name for the project.+--+-- 'vpcConfig', 'updateTestGridProject_vpcConfig' - The VPC security groups and subnets that are attached to a project.+--+-- 'projectArn', 'updateTestGridProject_projectArn' - ARN of the project to update.+newUpdateTestGridProject ::+  -- | 'projectArn'+  Prelude.Text ->+  UpdateTestGridProject+newUpdateTestGridProject pProjectArn_ =+  UpdateTestGridProject'+    { description =+        Prelude.Nothing,+      name = Prelude.Nothing,+      vpcConfig = Prelude.Nothing,+      projectArn = pProjectArn_+    }++-- | Human-readable description for the project.+updateTestGridProject_description :: Lens.Lens' UpdateTestGridProject (Prelude.Maybe Prelude.Text)+updateTestGridProject_description = Lens.lens (\UpdateTestGridProject' {description} -> description) (\s@UpdateTestGridProject' {} a -> s {description = a} :: UpdateTestGridProject)++-- | Human-readable name for the project.+updateTestGridProject_name :: Lens.Lens' UpdateTestGridProject (Prelude.Maybe Prelude.Text)+updateTestGridProject_name = Lens.lens (\UpdateTestGridProject' {name} -> name) (\s@UpdateTestGridProject' {} a -> s {name = a} :: UpdateTestGridProject)++-- | The VPC security groups and subnets that are attached to a project.+updateTestGridProject_vpcConfig :: Lens.Lens' UpdateTestGridProject (Prelude.Maybe TestGridVpcConfig)+updateTestGridProject_vpcConfig = Lens.lens (\UpdateTestGridProject' {vpcConfig} -> vpcConfig) (\s@UpdateTestGridProject' {} a -> s {vpcConfig = a} :: UpdateTestGridProject)++-- | ARN of the project to update.+updateTestGridProject_projectArn :: Lens.Lens' UpdateTestGridProject Prelude.Text+updateTestGridProject_projectArn = Lens.lens (\UpdateTestGridProject' {projectArn} -> projectArn) (\s@UpdateTestGridProject' {} a -> s {projectArn = a} :: UpdateTestGridProject)++instance Core.AWSRequest UpdateTestGridProject where+  type+    AWSResponse UpdateTestGridProject =+      UpdateTestGridProjectResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateTestGridProjectResponse'+            Prelude.<$> (x Data..?> "testGridProject")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UpdateTestGridProject where+  hashWithSalt _salt UpdateTestGridProject' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` vpcConfig+      `Prelude.hashWithSalt` projectArn++instance Prelude.NFData UpdateTestGridProject where+  rnf UpdateTestGridProject' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf vpcConfig+      `Prelude.seq` Prelude.rnf projectArn++instance Data.ToHeaders UpdateTestGridProject where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.UpdateTestGridProject" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateTestGridProject where+  toJSON UpdateTestGridProject' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("description" Data..=) Prelude.<$> description,+            ("name" Data..=) Prelude.<$> name,+            ("vpcConfig" Data..=) Prelude.<$> vpcConfig,+            Prelude.Just ("projectArn" Data..= projectArn)+          ]+      )++instance Data.ToPath UpdateTestGridProject where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateTestGridProject where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateTestGridProjectResponse' smart constructor.+data UpdateTestGridProjectResponse = UpdateTestGridProjectResponse'+  { -- | The project, including updated information.+    testGridProject :: Prelude.Maybe TestGridProject,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateTestGridProjectResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'testGridProject', 'updateTestGridProjectResponse_testGridProject' - The project, including updated information.+--+-- 'httpStatus', 'updateTestGridProjectResponse_httpStatus' - The response's http status code.+newUpdateTestGridProjectResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UpdateTestGridProjectResponse+newUpdateTestGridProjectResponse pHttpStatus_ =+  UpdateTestGridProjectResponse'+    { testGridProject =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The project, including updated information.+updateTestGridProjectResponse_testGridProject :: Lens.Lens' UpdateTestGridProjectResponse (Prelude.Maybe TestGridProject)+updateTestGridProjectResponse_testGridProject = Lens.lens (\UpdateTestGridProjectResponse' {testGridProject} -> testGridProject) (\s@UpdateTestGridProjectResponse' {} a -> s {testGridProject = a} :: UpdateTestGridProjectResponse)++-- | The response's http status code.+updateTestGridProjectResponse_httpStatus :: Lens.Lens' UpdateTestGridProjectResponse Prelude.Int+updateTestGridProjectResponse_httpStatus = Lens.lens (\UpdateTestGridProjectResponse' {httpStatus} -> httpStatus) (\s@UpdateTestGridProjectResponse' {} a -> s {httpStatus = a} :: UpdateTestGridProjectResponse)++instance Prelude.NFData UpdateTestGridProjectResponse where+  rnf UpdateTestGridProjectResponse' {..} =+    Prelude.rnf testGridProject+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/UpdateUpload.hs view
@@ -0,0 +1,218 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.UpdateUpload+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates an uploaded test spec.+module Amazonka.DeviceFarm.UpdateUpload+  ( -- * Creating a Request+    UpdateUpload (..),+    newUpdateUpload,++    -- * Request Lenses+    updateUpload_contentType,+    updateUpload_editContent,+    updateUpload_name,+    updateUpload_arn,++    -- * Destructuring the Response+    UpdateUploadResponse (..),+    newUpdateUploadResponse,++    -- * Response Lenses+    updateUploadResponse_upload,+    updateUploadResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateUpload' smart constructor.+data UpdateUpload = UpdateUpload'+  { -- | The upload\'s content type (for example, @application\/x-yaml@).+    contentType :: Prelude.Maybe Prelude.Text,+    -- | Set to true if the YAML file has changed and must be updated. Otherwise,+    -- set to false.+    editContent :: Prelude.Maybe Prelude.Bool,+    -- | The upload\'s test spec file name. The name must not contain any forward+    -- slashes (\/). The test spec file name must end with the @.yaml@ or+    -- @.yml@ file extension.+    name :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the uploaded test spec.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateUpload' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'contentType', 'updateUpload_contentType' - The upload\'s content type (for example, @application\/x-yaml@).+--+-- 'editContent', 'updateUpload_editContent' - Set to true if the YAML file has changed and must be updated. Otherwise,+-- set to false.+--+-- 'name', 'updateUpload_name' - The upload\'s test spec file name. The name must not contain any forward+-- slashes (\/). The test spec file name must end with the @.yaml@ or+-- @.yml@ file extension.+--+-- 'arn', 'updateUpload_arn' - The Amazon Resource Name (ARN) of the uploaded test spec.+newUpdateUpload ::+  -- | 'arn'+  Prelude.Text ->+  UpdateUpload+newUpdateUpload pArn_ =+  UpdateUpload'+    { contentType = Prelude.Nothing,+      editContent = Prelude.Nothing,+      name = Prelude.Nothing,+      arn = pArn_+    }++-- | The upload\'s content type (for example, @application\/x-yaml@).+updateUpload_contentType :: Lens.Lens' UpdateUpload (Prelude.Maybe Prelude.Text)+updateUpload_contentType = Lens.lens (\UpdateUpload' {contentType} -> contentType) (\s@UpdateUpload' {} a -> s {contentType = a} :: UpdateUpload)++-- | Set to true if the YAML file has changed and must be updated. Otherwise,+-- set to false.+updateUpload_editContent :: Lens.Lens' UpdateUpload (Prelude.Maybe Prelude.Bool)+updateUpload_editContent = Lens.lens (\UpdateUpload' {editContent} -> editContent) (\s@UpdateUpload' {} a -> s {editContent = a} :: UpdateUpload)++-- | The upload\'s test spec file name. The name must not contain any forward+-- slashes (\/). The test spec file name must end with the @.yaml@ or+-- @.yml@ file extension.+updateUpload_name :: Lens.Lens' UpdateUpload (Prelude.Maybe Prelude.Text)+updateUpload_name = Lens.lens (\UpdateUpload' {name} -> name) (\s@UpdateUpload' {} a -> s {name = a} :: UpdateUpload)++-- | The Amazon Resource Name (ARN) of the uploaded test spec.+updateUpload_arn :: Lens.Lens' UpdateUpload Prelude.Text+updateUpload_arn = Lens.lens (\UpdateUpload' {arn} -> arn) (\s@UpdateUpload' {} a -> s {arn = a} :: UpdateUpload)++instance Core.AWSRequest UpdateUpload where+  type AWSResponse UpdateUpload = UpdateUploadResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateUploadResponse'+            Prelude.<$> (x Data..?> "upload")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UpdateUpload where+  hashWithSalt _salt UpdateUpload' {..} =+    _salt+      `Prelude.hashWithSalt` contentType+      `Prelude.hashWithSalt` editContent+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` arn++instance Prelude.NFData UpdateUpload where+  rnf UpdateUpload' {..} =+    Prelude.rnf contentType+      `Prelude.seq` Prelude.rnf editContent+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf arn++instance Data.ToHeaders UpdateUpload where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.UpdateUpload" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateUpload where+  toJSON UpdateUpload' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("contentType" Data..=) Prelude.<$> contentType,+            ("editContent" Data..=) Prelude.<$> editContent,+            ("name" Data..=) Prelude.<$> name,+            Prelude.Just ("arn" Data..= arn)+          ]+      )++instance Data.ToPath UpdateUpload where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateUpload where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateUploadResponse' smart constructor.+data UpdateUploadResponse = UpdateUploadResponse'+  { -- | A test spec uploaded to Device Farm.+    upload :: Prelude.Maybe Upload,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateUploadResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'upload', 'updateUploadResponse_upload' - A test spec uploaded to Device Farm.+--+-- 'httpStatus', 'updateUploadResponse_httpStatus' - The response's http status code.+newUpdateUploadResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UpdateUploadResponse+newUpdateUploadResponse pHttpStatus_ =+  UpdateUploadResponse'+    { upload = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A test spec uploaded to Device Farm.+updateUploadResponse_upload :: Lens.Lens' UpdateUploadResponse (Prelude.Maybe Upload)+updateUploadResponse_upload = Lens.lens (\UpdateUploadResponse' {upload} -> upload) (\s@UpdateUploadResponse' {} a -> s {upload = a} :: UpdateUploadResponse)++-- | The response's http status code.+updateUploadResponse_httpStatus :: Lens.Lens' UpdateUploadResponse Prelude.Int+updateUploadResponse_httpStatus = Lens.lens (\UpdateUploadResponse' {httpStatus} -> httpStatus) (\s@UpdateUploadResponse' {} a -> s {httpStatus = a} :: UpdateUploadResponse)++instance Prelude.NFData UpdateUploadResponse where+  rnf UpdateUploadResponse' {..} =+    Prelude.rnf upload+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/UpdateVPCEConfiguration.hs view
@@ -0,0 +1,252 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.UpdateVPCEConfiguration+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates information about an Amazon Virtual Private Cloud (VPC) endpoint+-- configuration.+module Amazonka.DeviceFarm.UpdateVPCEConfiguration+  ( -- * Creating a Request+    UpdateVPCEConfiguration (..),+    newUpdateVPCEConfiguration,++    -- * Request Lenses+    updateVPCEConfiguration_serviceDnsName,+    updateVPCEConfiguration_vpceConfigurationDescription,+    updateVPCEConfiguration_vpceConfigurationName,+    updateVPCEConfiguration_vpceServiceName,+    updateVPCEConfiguration_arn,++    -- * Destructuring the Response+    UpdateVPCEConfigurationResponse (..),+    newUpdateVPCEConfigurationResponse,++    -- * Response Lenses+    updateVPCEConfigurationResponse_vpceConfiguration,+    updateVPCEConfigurationResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateVPCEConfiguration' smart constructor.+data UpdateVPCEConfiguration = UpdateVPCEConfiguration'+  { -- | The DNS (domain) name used to connect to your private service in your+    -- VPC. The DNS name must not already be in use on the internet.+    serviceDnsName :: Prelude.Maybe Prelude.Text,+    -- | An optional description that provides details about your VPC endpoint+    -- configuration.+    vpceConfigurationDescription :: Prelude.Maybe Prelude.Text,+    -- | The friendly name you give to your VPC endpoint configuration to manage+    -- your configurations more easily.+    vpceConfigurationName :: Prelude.Maybe Prelude.Text,+    -- | The name of the VPC endpoint service running in your AWS account that+    -- you want Device Farm to test.+    vpceServiceName :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the VPC endpoint configuration you+    -- want to update.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateVPCEConfiguration' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'serviceDnsName', 'updateVPCEConfiguration_serviceDnsName' - The DNS (domain) name used to connect to your private service in your+-- VPC. The DNS name must not already be in use on the internet.+--+-- 'vpceConfigurationDescription', 'updateVPCEConfiguration_vpceConfigurationDescription' - An optional description that provides details about your VPC endpoint+-- configuration.+--+-- 'vpceConfigurationName', 'updateVPCEConfiguration_vpceConfigurationName' - The friendly name you give to your VPC endpoint configuration to manage+-- your configurations more easily.+--+-- 'vpceServiceName', 'updateVPCEConfiguration_vpceServiceName' - The name of the VPC endpoint service running in your AWS account that+-- you want Device Farm to test.+--+-- 'arn', 'updateVPCEConfiguration_arn' - The Amazon Resource Name (ARN) of the VPC endpoint configuration you+-- want to update.+newUpdateVPCEConfiguration ::+  -- | 'arn'+  Prelude.Text ->+  UpdateVPCEConfiguration+newUpdateVPCEConfiguration pArn_ =+  UpdateVPCEConfiguration'+    { serviceDnsName =+        Prelude.Nothing,+      vpceConfigurationDescription = Prelude.Nothing,+      vpceConfigurationName = Prelude.Nothing,+      vpceServiceName = Prelude.Nothing,+      arn = pArn_+    }++-- | The DNS (domain) name used to connect to your private service in your+-- VPC. The DNS name must not already be in use on the internet.+updateVPCEConfiguration_serviceDnsName :: Lens.Lens' UpdateVPCEConfiguration (Prelude.Maybe Prelude.Text)+updateVPCEConfiguration_serviceDnsName = Lens.lens (\UpdateVPCEConfiguration' {serviceDnsName} -> serviceDnsName) (\s@UpdateVPCEConfiguration' {} a -> s {serviceDnsName = a} :: UpdateVPCEConfiguration)++-- | An optional description that provides details about your VPC endpoint+-- configuration.+updateVPCEConfiguration_vpceConfigurationDescription :: Lens.Lens' UpdateVPCEConfiguration (Prelude.Maybe Prelude.Text)+updateVPCEConfiguration_vpceConfigurationDescription = Lens.lens (\UpdateVPCEConfiguration' {vpceConfigurationDescription} -> vpceConfigurationDescription) (\s@UpdateVPCEConfiguration' {} a -> s {vpceConfigurationDescription = a} :: UpdateVPCEConfiguration)++-- | The friendly name you give to your VPC endpoint configuration to manage+-- your configurations more easily.+updateVPCEConfiguration_vpceConfigurationName :: Lens.Lens' UpdateVPCEConfiguration (Prelude.Maybe Prelude.Text)+updateVPCEConfiguration_vpceConfigurationName = Lens.lens (\UpdateVPCEConfiguration' {vpceConfigurationName} -> vpceConfigurationName) (\s@UpdateVPCEConfiguration' {} a -> s {vpceConfigurationName = a} :: UpdateVPCEConfiguration)++-- | The name of the VPC endpoint service running in your AWS account that+-- you want Device Farm to test.+updateVPCEConfiguration_vpceServiceName :: Lens.Lens' UpdateVPCEConfiguration (Prelude.Maybe Prelude.Text)+updateVPCEConfiguration_vpceServiceName = Lens.lens (\UpdateVPCEConfiguration' {vpceServiceName} -> vpceServiceName) (\s@UpdateVPCEConfiguration' {} a -> s {vpceServiceName = a} :: UpdateVPCEConfiguration)++-- | The Amazon Resource Name (ARN) of the VPC endpoint configuration you+-- want to update.+updateVPCEConfiguration_arn :: Lens.Lens' UpdateVPCEConfiguration Prelude.Text+updateVPCEConfiguration_arn = Lens.lens (\UpdateVPCEConfiguration' {arn} -> arn) (\s@UpdateVPCEConfiguration' {} a -> s {arn = a} :: UpdateVPCEConfiguration)++instance Core.AWSRequest UpdateVPCEConfiguration where+  type+    AWSResponse UpdateVPCEConfiguration =+      UpdateVPCEConfigurationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateVPCEConfigurationResponse'+            Prelude.<$> (x Data..?> "vpceConfiguration")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UpdateVPCEConfiguration where+  hashWithSalt _salt UpdateVPCEConfiguration' {..} =+    _salt+      `Prelude.hashWithSalt` serviceDnsName+      `Prelude.hashWithSalt` vpceConfigurationDescription+      `Prelude.hashWithSalt` vpceConfigurationName+      `Prelude.hashWithSalt` vpceServiceName+      `Prelude.hashWithSalt` arn++instance Prelude.NFData UpdateVPCEConfiguration where+  rnf UpdateVPCEConfiguration' {..} =+    Prelude.rnf serviceDnsName+      `Prelude.seq` Prelude.rnf vpceConfigurationDescription+      `Prelude.seq` Prelude.rnf vpceConfigurationName+      `Prelude.seq` Prelude.rnf vpceServiceName+      `Prelude.seq` Prelude.rnf arn++instance Data.ToHeaders UpdateVPCEConfiguration where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DeviceFarm_20150623.UpdateVPCEConfiguration" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateVPCEConfiguration where+  toJSON UpdateVPCEConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("serviceDnsName" Data..=)+              Prelude.<$> serviceDnsName,+            ("vpceConfigurationDescription" Data..=)+              Prelude.<$> vpceConfigurationDescription,+            ("vpceConfigurationName" Data..=)+              Prelude.<$> vpceConfigurationName,+            ("vpceServiceName" Data..=)+              Prelude.<$> vpceServiceName,+            Prelude.Just ("arn" Data..= arn)+          ]+      )++instance Data.ToPath UpdateVPCEConfiguration where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateVPCEConfiguration where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateVPCEConfigurationResponse' smart constructor.+data UpdateVPCEConfigurationResponse = UpdateVPCEConfigurationResponse'+  { -- | An object that contains information about your VPC endpoint+    -- configuration.+    vpceConfiguration :: Prelude.Maybe VPCEConfiguration,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateVPCEConfigurationResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'vpceConfiguration', 'updateVPCEConfigurationResponse_vpceConfiguration' - An object that contains information about your VPC endpoint+-- configuration.+--+-- 'httpStatus', 'updateVPCEConfigurationResponse_httpStatus' - The response's http status code.+newUpdateVPCEConfigurationResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UpdateVPCEConfigurationResponse+newUpdateVPCEConfigurationResponse pHttpStatus_ =+  UpdateVPCEConfigurationResponse'+    { vpceConfiguration =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An object that contains information about your VPC endpoint+-- configuration.+updateVPCEConfigurationResponse_vpceConfiguration :: Lens.Lens' UpdateVPCEConfigurationResponse (Prelude.Maybe VPCEConfiguration)+updateVPCEConfigurationResponse_vpceConfiguration = Lens.lens (\UpdateVPCEConfigurationResponse' {vpceConfiguration} -> vpceConfiguration) (\s@UpdateVPCEConfigurationResponse' {} a -> s {vpceConfiguration = a} :: UpdateVPCEConfigurationResponse)++-- | The response's http status code.+updateVPCEConfigurationResponse_httpStatus :: Lens.Lens' UpdateVPCEConfigurationResponse Prelude.Int+updateVPCEConfigurationResponse_httpStatus = Lens.lens (\UpdateVPCEConfigurationResponse' {httpStatus} -> httpStatus) (\s@UpdateVPCEConfigurationResponse' {} a -> s {httpStatus = a} :: UpdateVPCEConfigurationResponse)++instance+  Prelude.NFData+    UpdateVPCEConfigurationResponse+  where+  rnf UpdateVPCEConfigurationResponse' {..} =+    Prelude.rnf vpceConfiguration+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/DeviceFarm/Waiters.hs view
@@ -0,0 +1,24 @@+{-# LANGUAGE DisambiguateRecordFields #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DeviceFarm.Waiters+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DeviceFarm.Waiters where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DeviceFarm.Lens+import Amazonka.DeviceFarm.Types+import qualified Amazonka.Prelude as Prelude
− gen/Network/AWS/DeviceFarm.hs
@@ -1,811 +0,0 @@-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DeviceFarm--- 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)------ AWS Device Farm is a service that enables mobile app developers to test Android, iOS, and Fire OS apps on physical phones, tablets, and other devices in the cloud.-------module Network.AWS.DeviceFarm-    (-    -- * Service Configuration-      deviceFarm--    -- * Errors-    -- $errors--    -- ** NotEligibleException-    , _NotEligibleException--    -- ** IdempotencyException-    , _IdempotencyException--    -- ** ArgumentException-    , _ArgumentException--    -- ** NotFoundException-    , _NotFoundException--    -- ** ServiceAccountException-    , _ServiceAccountException--    -- ** InvalidOperationException-    , _InvalidOperationException--    -- ** LimitExceededException-    , _LimitExceededException--    -- * Waiters-    -- $waiters--    -- * Operations-    -- $operations--    -- ** ListProjects (Paginated)-    , module Network.AWS.DeviceFarm.ListProjects--    -- ** DeleteProject-    , module Network.AWS.DeviceFarm.DeleteProject--    -- ** UpdateProject-    , module Network.AWS.DeviceFarm.UpdateProject--    -- ** UpdateNetworkProfile-    , module Network.AWS.DeviceFarm.UpdateNetworkProfile--    -- ** DeleteNetworkProfile-    , module Network.AWS.DeviceFarm.DeleteNetworkProfile--    -- ** GetDevicePoolCompatibility-    , module Network.AWS.DeviceFarm.GetDevicePoolCompatibility--    -- ** InstallToRemoteAccessSession-    , module Network.AWS.DeviceFarm.InstallToRemoteAccessSession--    -- ** ListTests (Paginated)-    , module Network.AWS.DeviceFarm.ListTests--    -- ** ListArtifacts (Paginated)-    , module Network.AWS.DeviceFarm.ListArtifacts--    -- ** CreateUpload-    , module Network.AWS.DeviceFarm.CreateUpload--    -- ** GetDeviceInstance-    , module Network.AWS.DeviceFarm.GetDeviceInstance--    -- ** DeleteRemoteAccessSession-    , module Network.AWS.DeviceFarm.DeleteRemoteAccessSession--    -- ** DeleteUpload-    , module Network.AWS.DeviceFarm.DeleteUpload--    -- ** GetDevicePool-    , module Network.AWS.DeviceFarm.GetDevicePool--    -- ** ListDevicePools (Paginated)-    , module Network.AWS.DeviceFarm.ListDevicePools--    -- ** UpdateDevicePool-    , module Network.AWS.DeviceFarm.UpdateDevicePool--    -- ** DeleteDevicePool-    , module Network.AWS.DeviceFarm.DeleteDevicePool--    -- ** GetUpload-    , module Network.AWS.DeviceFarm.GetUpload--    -- ** ListOfferingTransactions (Paginated)-    , module Network.AWS.DeviceFarm.ListOfferingTransactions--    -- ** CreateDevicePool-    , module Network.AWS.DeviceFarm.CreateDevicePool--    -- ** DeleteRun-    , module Network.AWS.DeviceFarm.DeleteRun--    -- ** ListRuns (Paginated)-    , module Network.AWS.DeviceFarm.ListRuns--    -- ** 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--    -- ** GetRun-    , module Network.AWS.DeviceFarm.GetRun--    -- ** ListSamples (Paginated)-    , module Network.AWS.DeviceFarm.ListSamples--    -- ** ListSuites (Paginated)-    , module Network.AWS.DeviceFarm.ListSuites--    -- ** ListRemoteAccessSessions-    , module Network.AWS.DeviceFarm.ListRemoteAccessSessions--    -- ** GetAccountSettings-    , module Network.AWS.DeviceFarm.GetAccountSettings--    -- ** CreateRemoteAccessSession-    , module Network.AWS.DeviceFarm.CreateRemoteAccessSession--    -- ** ListOfferingPromotions-    , module Network.AWS.DeviceFarm.ListOfferingPromotions--    -- ** GetOfferingStatus (Paginated)-    , module Network.AWS.DeviceFarm.GetOfferingStatus--    -- ** ListUploads (Paginated)-    , module Network.AWS.DeviceFarm.ListUploads--    -- ** GetSuite-    , module Network.AWS.DeviceFarm.GetSuite--    -- ** 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--    -- ** ListDevices (Paginated)-    , module Network.AWS.DeviceFarm.ListDevices--    -- ** CreateProject-    , module Network.AWS.DeviceFarm.CreateProject--    -- ** ListOfferings (Paginated)-    , module Network.AWS.DeviceFarm.ListOfferings--    -- * Types--    -- ** ArtifactCategory-    , ArtifactCategory (..)--    -- ** ArtifactType-    , ArtifactType (..)--    -- ** BillingMethod-    , BillingMethod (..)--    -- ** CurrencyCode-    , CurrencyCode (..)--    -- ** DeviceAttribute-    , DeviceAttribute (..)--    -- ** DeviceFormFactor-    , DeviceFormFactor (..)--    -- ** DevicePlatform-    , DevicePlatform (..)--    -- ** DevicePoolType-    , DevicePoolType (..)--    -- ** ExecutionResult-    , ExecutionResult (..)--    -- ** ExecutionResultCode-    , ExecutionResultCode (..)--    -- ** ExecutionStatus-    , ExecutionStatus (..)--    -- ** InstanceStatus-    , InstanceStatus (..)--    -- ** InteractionMode-    , InteractionMode (..)--    -- ** NetworkProfileType-    , NetworkProfileType (..)--    -- ** OfferingTransactionType-    , OfferingTransactionType (..)--    -- ** OfferingType-    , OfferingType (..)--    -- ** RecurringChargeFrequency-    , RecurringChargeFrequency (..)--    -- ** RuleOperator-    , RuleOperator (..)--    -- ** SampleType-    , SampleType (..)--    -- ** TestType-    , TestType (..)--    -- ** UploadStatus-    , UploadStatus (..)--    -- ** UploadType-    , UploadType (..)--    -- ** AccountSettings-    , AccountSettings-    , accountSettings-    , asSkipAppResign-    , asAwsAccountNumber-    , asMaxJobTimeoutMinutes-    , asMaxSlots-    , asTrialMinutes-    , asUnmeteredDevices-    , asUnmeteredRemoteAccessDevices-    , asDefaultJobTimeoutMinutes--    -- ** Artifact-    , Artifact-    , artifact-    , aArn-    , aUrl-    , aExtension-    , aName-    , aType--    -- ** CPU-    , CPU-    , cpu-    , cpuFrequency-    , cpuClock-    , cpuArchitecture--    -- ** Counters-    , Counters-    , counters-    , cPassed-    , cSkipped-    , cWarned-    , cStopped-    , cTotal-    , cFailed-    , cErrored--    -- ** CreateRemoteAccessSessionConfiguration-    , CreateRemoteAccessSessionConfiguration-    , createRemoteAccessSessionConfiguration-    , crascBillingMethod--    -- ** CustomerArtifactPaths-    , CustomerArtifactPaths-    , customerArtifactPaths-    , capAndroidPaths-    , capDeviceHostPaths-    , capIosPaths--    -- ** Device-    , Device-    , device-    , devCarrier-    , devImage-    , devManufacturer-    , devPlatform-    , devModelId-    , devRemoteAccessEnabled-    , devArn-    , devFormFactor-    , devFleetType-    , devResolution-    , devMemory-    , devRadio-    , devOs-    , devName-    , devModel-    , devInstances-    , devRemoteDebugEnabled-    , devCpu-    , devHeapSize-    , devFleetName--    -- ** DeviceInstance-    , DeviceInstance-    , deviceInstance-    , diStatus-    , diUdid-    , diInstanceProfile-    , diArn-    , diDeviceARN-    , diLabels--    -- ** DeviceMinutes-    , DeviceMinutes-    , deviceMinutes-    , dmMetered-    , dmTotal-    , dmUnmetered--    -- ** DevicePool-    , DevicePool-    , devicePool-    , dArn-    , dRules-    , dName-    , dType-    , dDescription--    -- ** DevicePoolCompatibilityResult-    , DevicePoolCompatibilityResult-    , devicePoolCompatibilityResult-    , dpcrDevice-    , dpcrCompatible-    , dpcrIncompatibilityMessages--    -- ** ExecutionConfiguration-    , ExecutionConfiguration-    , executionConfiguration-    , ecSkipAppResign-    , ecAccountsCleanup-    , ecAppPackagesCleanup-    , ecJobTimeoutMinutes--    -- ** IncompatibilityMessage-    , IncompatibilityMessage-    , incompatibilityMessage-    , imType-    , imMessage--    -- ** InstanceProfile-    , InstanceProfile-    , instanceProfile-    , ipArn-    , ipRebootAfterUse-    , ipName-    , ipPackageCleanup-    , ipExcludeAppPackagesFromCleanup-    , ipDescription--    -- ** Job-    , Job-    , job-    , jobInstanceARN-    , jobStatus-    , jobCounters-    , jobArn-    , jobCreated-    , jobDevice-    , jobStopped-    , jobResult-    , jobName-    , jobDeviceMinutes-    , jobType-    , jobMessage-    , jobStarted--    -- ** Location-    , Location-    , location-    , lLatitude-    , lLongitude--    -- ** MonetaryAmount-    , MonetaryAmount-    , monetaryAmount-    , maAmount-    , maCurrencyCode--    -- ** NetworkProfile-    , NetworkProfile-    , networkProfile-    , npUplinkJitterMs-    , npArn-    , npUplinkLossPercent-    , npDownlinkJitterMs-    , npName-    , npDownlinkLossPercent-    , npType-    , npUplinkDelayMs-    , npUplinkBandwidthBits-    , npDescription-    , npDownlinkDelayMs-    , npDownlinkBandwidthBits--    -- ** Offering-    , Offering-    , offering-    , oPlatform-    , oId-    , oRecurringCharges-    , oType-    , oDescription--    -- ** OfferingPromotion-    , OfferingPromotion-    , offeringPromotion-    , opId-    , opDescription--    -- ** OfferingStatus-    , OfferingStatus-    , offeringStatus-    , osEffectiveOn-    , osOffering-    , osQuantity-    , osType--    -- ** OfferingTransaction-    , OfferingTransaction-    , offeringTransaction-    , otOfferingStatus-    , otCost-    , otTransactionId-    , otOfferingPromotionId-    , otCreatedOn--    -- ** Problem-    , Problem-    , problem-    , pDevice-    , pTest-    , pResult-    , pRun-    , pJob-    , pMessage-    , pSuite--    -- ** ProblemDetail-    , ProblemDetail-    , problemDetail-    , pdArn-    , pdName--    -- ** Project-    , Project-    , project-    , pArn-    , pCreated-    , pName-    , pDefaultJobTimeoutMinutes--    -- ** Radios-    , Radios-    , radios-    , rNfc-    , rGps-    , rBluetooth-    , rWifi--    -- ** RecurringCharge-    , RecurringCharge-    , recurringCharge-    , rcFrequency-    , rcCost--    -- ** RemoteAccessSession-    , RemoteAccessSession-    , remoteAccessSession-    , rasBillingMethod-    , rasClientId-    , rasDeviceUdid-    , rasSkipAppResign-    , rasInstanceARN-    , rasStatus-    , rasRemoteRecordEnabled-    , rasArn-    , rasRemoteRecordAppARN-    , rasCreated-    , rasDevice-    , rasStopped-    , rasResult-    , rasName-    , rasDeviceMinutes-    , rasRemoteDebugEnabled-    , rasEndpoint-    , rasMessage-    , rasHostAddress-    , rasInteractionMode-    , rasStarted--    -- ** Resolution-    , Resolution-    , resolution-    , rHeight-    , rWidth--    -- ** Rule-    , Rule-    , rule-    , rAttribute-    , rOperator-    , rValue--    -- ** Run-    , 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-    , Sample-    , sample-    , samArn-    , samUrl-    , samType--    -- ** ScheduleRunConfiguration-    , ScheduleRunConfiguration-    , scheduleRunConfiguration-    , srcBillingMethod-    , srcCustomerArtifactPaths-    , srcRadios-    , srcLocation-    , srcLocale-    , srcNetworkProfileARN-    , srcExtraDataPackageARN-    , srcAuxiliaryApps-    , srcVpceConfigurationARNs--    -- ** ScheduleRunTest-    , ScheduleRunTest-    , scheduleRunTest-    , srtTestPackageARN-    , srtParameters-    , srtFilter-    , srtType--    -- ** Suite-    , Suite-    , suite-    , sStatus-    , sCounters-    , sArn-    , sCreated-    , sStopped-    , sResult-    , sName-    , sDeviceMinutes-    , sType-    , sMessage-    , sStarted--    -- ** Test-    , Test-    , test-    , tStatus-    , tCounters-    , tArn-    , tCreated-    , tStopped-    , tResult-    , tName-    , tDeviceMinutes-    , tType-    , tMessage-    , tStarted--    -- ** TrialMinutes-    , TrialMinutes-    , trialMinutes-    , tmRemaining-    , tmTotal--    -- ** UniqueProblem-    , UniqueProblem-    , uniqueProblem-    , upProblems-    , upMessage--    -- ** Upload-    , Upload-    , upload-    , uStatus-    , uArn-    , uCreated-    , uUrl-    , uName-    , uMetadata-    , 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-import Network.AWS.DeviceFarm.GetProject-import Network.AWS.DeviceFarm.GetRemoteAccessSession-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-import Network.AWS.DeviceFarm.ListOfferings-import Network.AWS.DeviceFarm.ListOfferingTransactions-import Network.AWS.DeviceFarm.ListProjects-import Network.AWS.DeviceFarm.ListRemoteAccessSessions-import Network.AWS.DeviceFarm.ListRuns-import Network.AWS.DeviceFarm.ListSamples-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-Error matchers are designed for use with the functions provided by-<http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.-This allows catching (and rethrowing) service specific errors returned-by 'DeviceFarm'.--}--{- $operations-Some AWS operations return results that are incomplete and require subsequent-requests in order to obtain the entire result set. The process of sending-subsequent requests to continue where a previous request left off is called-pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to-1000 objects at a time, and you must send subsequent requests with the-appropriate Marker in order to retrieve the next page of results.--Operations that have an 'AWSPager' instance can transparently perform subsequent-requests, correctly setting Markers and other request facets to iterate through-the entire result set of a truncated API operation. Operations which support-this have an additional note in the documentation.--Many operations have the ability to filter results on the server side. See the-individual operation parameters for details.--}--{- $waiters-Waiters poll by repeatedly sending a request until some remote success condition-configured by the 'Wait' specification is fulfilled. The 'Wait' specification-determines how many attempts should be made, in addition to delay and retry strategies.--}
− gen/Network/AWS/DeviceFarm/CreateDevicePool.hs
@@ -1,175 +0,0 @@-{-# 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.CreateDevicePool--- 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 device pool.-------module Network.AWS.DeviceFarm.CreateDevicePool-    (-    -- * Creating a Request-      createDevicePool-    , CreateDevicePool-    -- * Request Lenses-    , cdpDescription-    , cdpProjectARN-    , cdpName-    , cdpRules--    -- * Destructuring the Response-    , createDevicePoolResponse-    , CreateDevicePoolResponse-    -- * Response Lenses-    , cdprsDevicePool-    , cdprsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the create device pool operation.------------ /See:/ 'createDevicePool' smart constructor.-data CreateDevicePool = CreateDevicePool'-  { _cdpDescription :: !(Maybe Text)-  , _cdpProjectARN  :: !Text-  , _cdpName        :: !Text-  , _cdpRules       :: ![Rule]-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateDevicePool' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cdpDescription' - The device pool's description.------ * 'cdpProjectARN' - The ARN of the project for the device pool.------ * 'cdpName' - The device pool's name.------ * 'cdpRules' - The device pool's rules.-createDevicePool-    :: Text -- ^ 'cdpProjectARN'-    -> Text -- ^ 'cdpName'-    -> CreateDevicePool-createDevicePool pProjectARN_ pName_ =-  CreateDevicePool'-    { _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})---- | The ARN of the project for the device pool.-cdpProjectARN :: Lens' CreateDevicePool Text-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})---- | The device pool's rules.-cdpRules :: Lens' CreateDevicePool [Rule]-cdpRules = lens _cdpRules (\ s a -> s{_cdpRules = a}) . _Coerce--instance AWSRequest CreateDevicePool where-        type Rs CreateDevicePool = CreateDevicePoolResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 CreateDevicePoolResponse' <$>-                   (x .?> "devicePool") <*> (pure (fromEnum s)))--instance Hashable CreateDevicePool where--instance NFData CreateDevicePool where--instance ToHeaders CreateDevicePool where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.CreateDevicePool" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON CreateDevicePool where-        toJSON CreateDevicePool'{..}-          = object-              (catMaybes-                 [("description" .=) <$> _cdpDescription,-                  Just ("projectArn" .= _cdpProjectARN),-                  Just ("name" .= _cdpName),-                  Just ("rules" .= _cdpRules)])--instance ToPath CreateDevicePool where-        toPath = const "/"--instance ToQuery CreateDevicePool where-        toQuery = const mempty---- | Represents the result of a create device pool request.------------ /See:/ 'createDevicePoolResponse' smart constructor.-data CreateDevicePoolResponse = CreateDevicePoolResponse'-  { _cdprsDevicePool     :: !(Maybe DevicePool)-  , _cdprsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateDevicePoolResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cdprsDevicePool' - The newly created device pool.------ * 'cdprsResponseStatus' - -- | The response status code.-createDevicePoolResponse-    :: Int -- ^ 'cdprsResponseStatus'-    -> CreateDevicePoolResponse-createDevicePoolResponse pResponseStatus_ =-  CreateDevicePoolResponse'-    {_cdprsDevicePool = Nothing, _cdprsResponseStatus = pResponseStatus_}----- | The newly created device pool.-cdprsDevicePool :: Lens' CreateDevicePoolResponse (Maybe DevicePool)-cdprsDevicePool = lens _cdprsDevicePool (\ s a -> s{_cdprsDevicePool = a})---- | -- | The response status code.-cdprsResponseStatus :: Lens' CreateDevicePoolResponse Int-cdprsResponseStatus = lens _cdprsResponseStatus (\ s a -> s{_cdprsResponseStatus = a})--instance NFData CreateDevicePoolResponse where
− gen/Network/AWS/DeviceFarm/CreateInstanceProfile.hs
@@ -1,178 +0,0 @@-{-# 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
− gen/Network/AWS/DeviceFarm/CreateNetworkProfile.hs
@@ -1,251 +0,0 @@-{-# 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.CreateNetworkProfile--- 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 network profile.-------module Network.AWS.DeviceFarm.CreateNetworkProfile-    (-    -- * Creating a Request-      createNetworkProfile-    , CreateNetworkProfile-    -- * Request Lenses-    , cnpUplinkJitterMs-    , cnpUplinkLossPercent-    , cnpDownlinkJitterMs-    , cnpDownlinkLossPercent-    , cnpType-    , cnpUplinkDelayMs-    , cnpUplinkBandwidthBits-    , cnpDescription-    , cnpDownlinkDelayMs-    , cnpDownlinkBandwidthBits-    , cnpProjectARN-    , cnpName--    -- * Destructuring the Response-    , createNetworkProfileResponse-    , CreateNetworkProfileResponse-    -- * Response Lenses-    , cnprsNetworkProfile-    , cnprsResponseStatus-    ) 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:/ 'createNetworkProfile' smart constructor.-data CreateNetworkProfile = CreateNetworkProfile'-  { _cnpUplinkJitterMs        :: !(Maybe Integer)-  , _cnpUplinkLossPercent     :: !(Maybe Nat)-  , _cnpDownlinkJitterMs      :: !(Maybe Integer)-  , _cnpDownlinkLossPercent   :: !(Maybe Nat)-  , _cnpType                  :: !(Maybe NetworkProfileType)-  , _cnpUplinkDelayMs         :: !(Maybe Integer)-  , _cnpUplinkBandwidthBits   :: !(Maybe Integer)-  , _cnpDescription           :: !(Maybe Text)-  , _cnpDownlinkDelayMs       :: !(Maybe Integer)-  , _cnpDownlinkBandwidthBits :: !(Maybe Integer)-  , _cnpProjectARN            :: !Text-  , _cnpName                  :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateNetworkProfile' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cnpUplinkJitterMs' - Time variation in the delay of received packets in milliseconds as an integer from 0 to 2000.------ * 'cnpUplinkLossPercent' - Proportion of transmitted packets that fail to arrive from 0 to 100 percent.------ * 'cnpDownlinkJitterMs' - Time variation in the delay of received packets in milliseconds as an integer from 0 to 2000.------ * 'cnpDownlinkLossPercent' - Proportion of received packets that fail to arrive from 0 to 100 percent.------ * 'cnpType' - The type of network profile you wish to create. Valid values are listed below.------ * 'cnpUplinkDelayMs' - Delay time for all packets to destination in milliseconds as an integer from 0 to 2000.------ * 'cnpUplinkBandwidthBits' - The data throughput rate in bits per second, as an integer from 0 to 104857600.------ * 'cnpDescription' - The description of the network profile.------ * 'cnpDownlinkDelayMs' - Delay time for all packets to destination in milliseconds as an integer from 0 to 2000.------ * 'cnpDownlinkBandwidthBits' - The data throughput rate in bits per second, as an integer from 0 to 104857600.------ * 'cnpProjectARN' - The Amazon Resource Name (ARN) of the project for which you want to create a network profile.------ * 'cnpName' - The name you wish to specify for the new network profile.-createNetworkProfile-    :: Text -- ^ 'cnpProjectARN'-    -> Text -- ^ 'cnpName'-    -> 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_-    }----- | 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})---- | 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---- | 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})---- | 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---- | 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})---- | 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})---- | 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})---- | The description of the network profile.-cnpDescription :: Lens' CreateNetworkProfile (Maybe Text)-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})---- | 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})---- | 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})---- | The name you wish to specify for the new network profile.-cnpName :: Lens' CreateNetworkProfile Text-cnpName = lens _cnpName (\ s a -> s{_cnpName = a})--instance AWSRequest CreateNetworkProfile where-        type Rs CreateNetworkProfile =-             CreateNetworkProfileResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 CreateNetworkProfileResponse' <$>-                   (x .?> "networkProfile") <*> (pure (fromEnum s)))--instance Hashable CreateNetworkProfile where--instance NFData CreateNetworkProfile where--instance ToHeaders CreateNetworkProfile where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.CreateNetworkProfile" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON CreateNetworkProfile where-        toJSON CreateNetworkProfile'{..}-          = object-              (catMaybes-                 [("uplinkJitterMs" .=) <$> _cnpUplinkJitterMs,-                  ("uplinkLossPercent" .=) <$> _cnpUplinkLossPercent,-                  ("downlinkJitterMs" .=) <$> _cnpDownlinkJitterMs,-                  ("downlinkLossPercent" .=) <$>-                    _cnpDownlinkLossPercent,-                  ("type" .=) <$> _cnpType,-                  ("uplinkDelayMs" .=) <$> _cnpUplinkDelayMs,-                  ("uplinkBandwidthBits" .=) <$>-                    _cnpUplinkBandwidthBits,-                  ("description" .=) <$> _cnpDescription,-                  ("downlinkDelayMs" .=) <$> _cnpDownlinkDelayMs,-                  ("downlinkBandwidthBits" .=) <$>-                    _cnpDownlinkBandwidthBits,-                  Just ("projectArn" .= _cnpProjectARN),-                  Just ("name" .= _cnpName)])--instance ToPath CreateNetworkProfile where-        toPath = const "/"--instance ToQuery CreateNetworkProfile where-        toQuery = const mempty---- | /See:/ 'createNetworkProfileResponse' smart constructor.-data CreateNetworkProfileResponse = CreateNetworkProfileResponse'-  { _cnprsNetworkProfile :: !(Maybe NetworkProfile)-  , _cnprsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateNetworkProfileResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cnprsNetworkProfile' - The network profile that is returned by the create network profile request.------ * 'cnprsResponseStatus' - -- | The response status code.-createNetworkProfileResponse-    :: Int -- ^ 'cnprsResponseStatus'-    -> CreateNetworkProfileResponse-createNetworkProfileResponse pResponseStatus_ =-  CreateNetworkProfileResponse'-    {_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})---- | -- | The response status code.-cnprsResponseStatus :: Lens' CreateNetworkProfileResponse Int-cnprsResponseStatus = lens _cnprsResponseStatus (\ s a -> s{_cnprsResponseStatus = a})--instance NFData CreateNetworkProfileResponse where
− gen/Network/AWS/DeviceFarm/CreateProject.hs
@@ -1,151 +0,0 @@-{-# 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.CreateProject--- 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 new project.-------module Network.AWS.DeviceFarm.CreateProject-    (-    -- * Creating a Request-      createProject-    , CreateProject-    -- * Request Lenses-    , cpDefaultJobTimeoutMinutes-    , cpName--    -- * Destructuring the Response-    , createProjectResponse-    , CreateProjectResponse-    -- * Response Lenses-    , cprsProject-    , cprsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the create project operation.------------ /See:/ 'createProject' smart constructor.-data CreateProject = CreateProject'-  { _cpDefaultJobTimeoutMinutes :: !(Maybe Int)-  , _cpName                     :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateProject' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cpDefaultJobTimeoutMinutes' - 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.------ * 'cpName' - The project's name.-createProject-    :: Text -- ^ 'cpName'-    -> CreateProject-createProject pName_ =-  CreateProject' {_cpDefaultJobTimeoutMinutes = Nothing, _cpName = 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})---- | The project's name.-cpName :: Lens' CreateProject Text-cpName = lens _cpName (\ s a -> s{_cpName = a})--instance AWSRequest CreateProject where-        type Rs CreateProject = CreateProjectResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 CreateProjectResponse' <$>-                   (x .?> "project") <*> (pure (fromEnum s)))--instance Hashable CreateProject where--instance NFData CreateProject where--instance ToHeaders CreateProject where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.CreateProject" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON CreateProject where-        toJSON CreateProject'{..}-          = object-              (catMaybes-                 [("defaultJobTimeoutMinutes" .=) <$>-                    _cpDefaultJobTimeoutMinutes,-                  Just ("name" .= _cpName)])--instance ToPath CreateProject where-        toPath = const "/"--instance ToQuery CreateProject where-        toQuery = const mempty---- | Represents the result of a create project request.------------ /See:/ 'createProjectResponse' smart constructor.-data CreateProjectResponse = CreateProjectResponse'-  { _cprsProject        :: !(Maybe Project)-  , _cprsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateProjectResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cprsProject' - The newly created project.------ * 'cprsResponseStatus' - -- | The response status code.-createProjectResponse-    :: Int -- ^ 'cprsResponseStatus'-    -> CreateProjectResponse-createProjectResponse pResponseStatus_ =-  CreateProjectResponse'-    {_cprsProject = Nothing, _cprsResponseStatus = pResponseStatus_}----- | The newly created project.-cprsProject :: Lens' CreateProjectResponse (Maybe Project)-cprsProject = lens _cprsProject (\ s a -> s{_cprsProject = a})---- | -- | The response status code.-cprsResponseStatus :: Lens' CreateProjectResponse Int-cprsResponseStatus = lens _cprsResponseStatus (\ s a -> s{_cprsResponseStatus = a})--instance NFData CreateProjectResponse where
− gen/Network/AWS/DeviceFarm/CreateRemoteAccessSession.hs
@@ -1,263 +0,0 @@-{-# 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.CreateRemoteAccessSession--- 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)------ Specifies and starts a remote access session.-------module Network.AWS.DeviceFarm.CreateRemoteAccessSession-    (-    -- * Creating a Request-      createRemoteAccessSession-    , CreateRemoteAccessSession-    -- * Request Lenses-    , crasClientId-    , crasSkipAppResign-    , crasInstanceARN-    , crasRemoteRecordEnabled-    , crasRemoteRecordAppARN-    , crasSshPublicKey-    , crasName-    , crasRemoteDebugEnabled-    , crasConfiguration-    , crasInteractionMode-    , crasProjectARN-    , crasDeviceARN--    -- * Destructuring the Response-    , createRemoteAccessSessionResponse-    , CreateRemoteAccessSessionResponse-    -- * Response Lenses-    , crasrsRemoteAccessSession-    , crasrsResponseStatus-    ) 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---- | Creates and submits a request to start a remote access session.------------ /See:/ 'createRemoteAccessSession' smart constructor.-data CreateRemoteAccessSession = CreateRemoteAccessSession'-  { _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)----- | Creates a value of 'CreateRemoteAccessSession' with the minimum fields required to make a request.------ 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@ .------ * '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@ .------ * 'crasName' - The name of the remote access session that you wish to create.------ * 'crasRemoteDebugEnabled' - Set to @true@ if you want to access devices remotely for debugging in your remote access session.------ * '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.-createRemoteAccessSession-    :: Text -- ^ 'crasProjectARN'-    -> Text -- ^ 'crasDeviceARN'-    -> CreateRemoteAccessSession-createRemoteAccessSession pProjectARN_ pDeviceARN_ =-  CreateRemoteAccessSession'-    { _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@ .-crasClientId :: Lens' CreateRemoteAccessSession (Maybe Text)-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})---- | 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})---- | 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})---- | The configuration information for the remote access session request.-crasConfiguration :: Lens' CreateRemoteAccessSession (Maybe CreateRemoteAccessSessionConfiguration)-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})---- | 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})--instance AWSRequest CreateRemoteAccessSession where-        type Rs CreateRemoteAccessSession =-             CreateRemoteAccessSessionResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 CreateRemoteAccessSessionResponse' <$>-                   (x .?> "remoteAccessSession") <*>-                     (pure (fromEnum s)))--instance Hashable CreateRemoteAccessSession where--instance NFData CreateRemoteAccessSession where--instance ToHeaders CreateRemoteAccessSession where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.CreateRemoteAccessSession" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON CreateRemoteAccessSession where-        toJSON CreateRemoteAccessSession'{..}-          = 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)])--instance ToPath CreateRemoteAccessSession where-        toPath = const "/"--instance ToQuery CreateRemoteAccessSession where-        toQuery = const mempty---- | Represents the server response from a request to create a remote access session.------------ /See:/ 'createRemoteAccessSessionResponse' smart constructor.-data CreateRemoteAccessSessionResponse = CreateRemoteAccessSessionResponse'-  { _crasrsRemoteAccessSession :: !(Maybe RemoteAccessSession)-  , _crasrsResponseStatus      :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateRemoteAccessSessionResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'crasrsRemoteAccessSession' - A container that describes the remote access session when the request to create a remote access session is sent.------ * 'crasrsResponseStatus' - -- | The response status code.-createRemoteAccessSessionResponse-    :: Int -- ^ 'crasrsResponseStatus'-    -> CreateRemoteAccessSessionResponse-createRemoteAccessSessionResponse pResponseStatus_ =-  CreateRemoteAccessSessionResponse'-    { _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})---- | -- | The response status code.-crasrsResponseStatus :: Lens' CreateRemoteAccessSessionResponse Int-crasrsResponseStatus = lens _crasrsResponseStatus (\ s a -> s{_crasrsResponseStatus = a})--instance NFData CreateRemoteAccessSessionResponse-         where
− gen/Network/AWS/DeviceFarm/CreateUpload.hs
@@ -1,174 +0,0 @@-{-# 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.CreateUpload--- 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)------ Uploads an app or test scripts.-------module Network.AWS.DeviceFarm.CreateUpload-    (-    -- * Creating a Request-      createUpload-    , CreateUpload-    -- * Request Lenses-    , cuContentType-    , cuProjectARN-    , cuName-    , cuType--    -- * Destructuring the Response-    , createUploadResponse-    , CreateUploadResponse-    -- * Response Lenses-    , cursUpload-    , cursResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the create upload operation.------------ /See:/ 'createUpload' smart constructor.-data CreateUpload = CreateUpload'-  { _cuContentType :: !(Maybe Text)-  , _cuProjectARN  :: !Text-  , _cuName        :: !Text-  , _cuType        :: !UploadType-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateUpload' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cuContentType' - The upload's content type (for example, "application/octet-stream").------ * 'cuProjectARN' - The ARN of the project for the upload.------ * 'cuName' - 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.------ * 'cuType' - 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.-createUpload-    :: Text -- ^ 'cuProjectARN'-    -> Text -- ^ 'cuName'-    -> UploadType -- ^ 'cuType'-    -> CreateUpload-createUpload pProjectARN_ pName_ pType_ =-  CreateUpload'-    { _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})---- | The ARN of the project for the upload.-cuProjectARN :: Lens' CreateUpload Text-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})---- | 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})--instance AWSRequest CreateUpload where-        type Rs CreateUpload = CreateUploadResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 CreateUploadResponse' <$>-                   (x .?> "upload") <*> (pure (fromEnum s)))--instance Hashable CreateUpload where--instance NFData CreateUpload where--instance ToHeaders CreateUpload where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.CreateUpload" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON CreateUpload where-        toJSON CreateUpload'{..}-          = object-              (catMaybes-                 [("contentType" .=) <$> _cuContentType,-                  Just ("projectArn" .= _cuProjectARN),-                  Just ("name" .= _cuName), Just ("type" .= _cuType)])--instance ToPath CreateUpload where-        toPath = const "/"--instance ToQuery CreateUpload where-        toQuery = const mempty---- | Represents the result of a create upload request.------------ /See:/ 'createUploadResponse' smart constructor.-data CreateUploadResponse = CreateUploadResponse'-  { _cursUpload         :: !(Maybe Upload)-  , _cursResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateUploadResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cursUpload' - The newly created upload.------ * 'cursResponseStatus' - -- | The response status code.-createUploadResponse-    :: Int -- ^ 'cursResponseStatus'-    -> CreateUploadResponse-createUploadResponse pResponseStatus_ =-  CreateUploadResponse'-    {_cursUpload = Nothing, _cursResponseStatus = pResponseStatus_}----- | The newly created upload.-cursUpload :: Lens' CreateUploadResponse (Maybe Upload)-cursUpload = lens _cursUpload (\ s a -> s{_cursUpload = a})---- | -- | The response status code.-cursResponseStatus :: Lens' CreateUploadResponse Int-cursResponseStatus = lens _cursResponseStatus (\ s a -> s{_cursResponseStatus = a})--instance NFData CreateUploadResponse where
− gen/Network/AWS/DeviceFarm/CreateVPCEConfiguration.hs
@@ -1,174 +0,0 @@-{-# 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
− gen/Network/AWS/DeviceFarm/DeleteDevicePool.hs
@@ -1,129 +0,0 @@-{-# 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.DeleteDevicePool--- 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 device pool given the pool ARN. Does not allow deletion of curated pools owned by the system.-------module Network.AWS.DeviceFarm.DeleteDevicePool-    (-    -- * Creating a Request-      deleteDevicePool-    , DeleteDevicePool-    -- * Request Lenses-    , ddpArn--    -- * Destructuring the Response-    , deleteDevicePoolResponse-    , DeleteDevicePoolResponse-    -- * Response Lenses-    , ddprsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the delete device pool operation.------------ /See:/ 'deleteDevicePool' smart constructor.-newtype DeleteDevicePool = DeleteDevicePool'-  { _ddpArn :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteDevicePool' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ddpArn' - Represents the Amazon Resource Name (ARN) of the Device Farm device pool you wish to delete.-deleteDevicePool-    :: Text -- ^ 'ddpArn'-    -> DeleteDevicePool-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})--instance AWSRequest DeleteDevicePool where-        type Rs DeleteDevicePool = DeleteDevicePoolResponse-        request = postJSON deviceFarm-        response-          = receiveEmpty-              (\ s h x ->-                 DeleteDevicePoolResponse' <$> (pure (fromEnum s)))--instance Hashable DeleteDevicePool where--instance NFData DeleteDevicePool where--instance ToHeaders DeleteDevicePool where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.DeleteDevicePool" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DeleteDevicePool where-        toJSON DeleteDevicePool'{..}-          = object (catMaybes [Just ("arn" .= _ddpArn)])--instance ToPath DeleteDevicePool where-        toPath = const "/"--instance ToQuery DeleteDevicePool where-        toQuery = const mempty---- | Represents the result of a delete device pool request.------------ /See:/ 'deleteDevicePoolResponse' smart constructor.-newtype DeleteDevicePoolResponse = DeleteDevicePoolResponse'-  { _ddprsResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteDevicePoolResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ddprsResponseStatus' - -- | The response status code.-deleteDevicePoolResponse-    :: Int -- ^ 'ddprsResponseStatus'-    -> DeleteDevicePoolResponse-deleteDevicePoolResponse pResponseStatus_ =-  DeleteDevicePoolResponse' {_ddprsResponseStatus = pResponseStatus_}----- | -- | The response status code.-ddprsResponseStatus :: Lens' DeleteDevicePoolResponse Int-ddprsResponseStatus = lens _ddprsResponseStatus (\ s a -> s{_ddprsResponseStatus = a})--instance NFData DeleteDevicePoolResponse where
− gen/Network/AWS/DeviceFarm/DeleteInstanceProfile.hs
@@ -1,123 +0,0 @@-{-# 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
− gen/Network/AWS/DeviceFarm/DeleteNetworkProfile.hs
@@ -1,123 +0,0 @@-{-# 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.DeleteNetworkProfile--- 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 network profile.-------module Network.AWS.DeviceFarm.DeleteNetworkProfile-    (-    -- * Creating a Request-      deleteNetworkProfile-    , DeleteNetworkProfile-    -- * Request Lenses-    , dnpArn--    -- * Destructuring the Response-    , deleteNetworkProfileResponse-    , DeleteNetworkProfileResponse-    -- * Response Lenses-    , dnprsResponseStatus-    ) 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:/ 'deleteNetworkProfile' smart constructor.-newtype DeleteNetworkProfile = DeleteNetworkProfile'-  { _dnpArn :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteNetworkProfile' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dnpArn' - The Amazon Resource Name (ARN) of the network profile you want to delete.-deleteNetworkProfile-    :: Text -- ^ 'dnpArn'-    -> DeleteNetworkProfile-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})--instance AWSRequest DeleteNetworkProfile where-        type Rs DeleteNetworkProfile =-             DeleteNetworkProfileResponse-        request = postJSON deviceFarm-        response-          = receiveEmpty-              (\ s h x ->-                 DeleteNetworkProfileResponse' <$>-                   (pure (fromEnum s)))--instance Hashable DeleteNetworkProfile where--instance NFData DeleteNetworkProfile where--instance ToHeaders DeleteNetworkProfile where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.DeleteNetworkProfile" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DeleteNetworkProfile where-        toJSON DeleteNetworkProfile'{..}-          = object (catMaybes [Just ("arn" .= _dnpArn)])--instance ToPath DeleteNetworkProfile where-        toPath = const "/"--instance ToQuery DeleteNetworkProfile where-        toQuery = const mempty---- | /See:/ 'deleteNetworkProfileResponse' smart constructor.-newtype DeleteNetworkProfileResponse = DeleteNetworkProfileResponse'-  { _dnprsResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteNetworkProfileResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dnprsResponseStatus' - -- | The response status code.-deleteNetworkProfileResponse-    :: Int -- ^ 'dnprsResponseStatus'-    -> DeleteNetworkProfileResponse-deleteNetworkProfileResponse pResponseStatus_ =-  DeleteNetworkProfileResponse' {_dnprsResponseStatus = pResponseStatus_}----- | -- | The response status code.-dnprsResponseStatus :: Lens' DeleteNetworkProfileResponse Int-dnprsResponseStatus = lens _dnprsResponseStatus (\ s a -> s{_dnprsResponseStatus = a})--instance NFData DeleteNetworkProfileResponse where
− gen/Network/AWS/DeviceFarm/DeleteProject.hs
@@ -1,130 +0,0 @@-{-# 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.DeleteProject--- 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 an AWS Device Farm project, given the project ARN.--------- __Note__ Deleting this resource does not stop an in-progress run.----module Network.AWS.DeviceFarm.DeleteProject-    (-    -- * Creating a Request-      deleteProject-    , DeleteProject-    -- * Request Lenses-    , dpArn--    -- * Destructuring the Response-    , deleteProjectResponse-    , DeleteProjectResponse-    -- * Response Lenses-    , dprsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the delete project operation.------------ /See:/ 'deleteProject' smart constructor.-newtype DeleteProject = DeleteProject'-  { _dpArn :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteProject' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dpArn' - Represents the Amazon Resource Name (ARN) of the Device Farm project you wish to delete.-deleteProject-    :: Text -- ^ 'dpArn'-    -> DeleteProject-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})--instance AWSRequest DeleteProject where-        type Rs DeleteProject = DeleteProjectResponse-        request = postJSON deviceFarm-        response-          = receiveEmpty-              (\ s h x ->-                 DeleteProjectResponse' <$> (pure (fromEnum s)))--instance Hashable DeleteProject where--instance NFData DeleteProject where--instance ToHeaders DeleteProject where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.DeleteProject" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DeleteProject where-        toJSON DeleteProject'{..}-          = object (catMaybes [Just ("arn" .= _dpArn)])--instance ToPath DeleteProject where-        toPath = const "/"--instance ToQuery DeleteProject where-        toQuery = const mempty---- | Represents the result of a delete project request.------------ /See:/ 'deleteProjectResponse' smart constructor.-newtype DeleteProjectResponse = DeleteProjectResponse'-  { _dprsResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteProjectResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dprsResponseStatus' - -- | The response status code.-deleteProjectResponse-    :: Int -- ^ 'dprsResponseStatus'-    -> DeleteProjectResponse-deleteProjectResponse pResponseStatus_ =-  DeleteProjectResponse' {_dprsResponseStatus = pResponseStatus_}----- | -- | The response status code.-dprsResponseStatus :: Lens' DeleteProjectResponse Int-dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a})--instance NFData DeleteProjectResponse where
− gen/Network/AWS/DeviceFarm/DeleteRemoteAccessSession.hs
@@ -1,132 +0,0 @@-{-# 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.DeleteRemoteAccessSession--- 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 completed remote access session and its results.-------module Network.AWS.DeviceFarm.DeleteRemoteAccessSession-    (-    -- * Creating a Request-      deleteRemoteAccessSession-    , DeleteRemoteAccessSession-    -- * Request Lenses-    , drasArn--    -- * Destructuring the Response-    , deleteRemoteAccessSessionResponse-    , DeleteRemoteAccessSessionResponse-    -- * Response Lenses-    , drasrsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents the request to delete the specified remote access session.------------ /See:/ 'deleteRemoteAccessSession' smart constructor.-newtype DeleteRemoteAccessSession = DeleteRemoteAccessSession'-  { _drasArn :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteRemoteAccessSession' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'drasArn' - The Amazon Resource Name (ARN) of the sesssion for which you want to delete remote access.-deleteRemoteAccessSession-    :: Text -- ^ 'drasArn'-    -> DeleteRemoteAccessSession-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})--instance AWSRequest DeleteRemoteAccessSession where-        type Rs DeleteRemoteAccessSession =-             DeleteRemoteAccessSessionResponse-        request = postJSON deviceFarm-        response-          = receiveEmpty-              (\ s h x ->-                 DeleteRemoteAccessSessionResponse' <$>-                   (pure (fromEnum s)))--instance Hashable DeleteRemoteAccessSession where--instance NFData DeleteRemoteAccessSession where--instance ToHeaders DeleteRemoteAccessSession where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.DeleteRemoteAccessSession" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DeleteRemoteAccessSession where-        toJSON DeleteRemoteAccessSession'{..}-          = object (catMaybes [Just ("arn" .= _drasArn)])--instance ToPath DeleteRemoteAccessSession where-        toPath = const "/"--instance ToQuery DeleteRemoteAccessSession where-        toQuery = const mempty---- | The response from the server when a request is made to delete the remote access session.------------ /See:/ 'deleteRemoteAccessSessionResponse' smart constructor.-newtype DeleteRemoteAccessSessionResponse = DeleteRemoteAccessSessionResponse'-  { _drasrsResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteRemoteAccessSessionResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'drasrsResponseStatus' - -- | The response status code.-deleteRemoteAccessSessionResponse-    :: Int -- ^ 'drasrsResponseStatus'-    -> DeleteRemoteAccessSessionResponse-deleteRemoteAccessSessionResponse pResponseStatus_ =-  DeleteRemoteAccessSessionResponse' {_drasrsResponseStatus = pResponseStatus_}----- | -- | The response status code.-drasrsResponseStatus :: Lens' DeleteRemoteAccessSessionResponse Int-drasrsResponseStatus = lens _drasrsResponseStatus (\ s a -> s{_drasrsResponseStatus = a})--instance NFData DeleteRemoteAccessSessionResponse-         where
− gen/Network/AWS/DeviceFarm/DeleteRun.hs
@@ -1,130 +0,0 @@-{-# 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.DeleteRun--- 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 the run, given the run ARN.--------- __Note__ Deleting this resource does not stop an in-progress run.----module Network.AWS.DeviceFarm.DeleteRun-    (-    -- * Creating a Request-      deleteRun-    , DeleteRun-    -- * Request Lenses-    , drArn--    -- * Destructuring the Response-    , deleteRunResponse-    , DeleteRunResponse-    -- * Response Lenses-    , drrsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the delete run operation.------------ /See:/ 'deleteRun' smart constructor.-newtype DeleteRun = DeleteRun'-  { _drArn :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteRun' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'drArn' - The Amazon Resource Name (ARN) for the run you wish to delete.-deleteRun-    :: Text -- ^ 'drArn'-    -> DeleteRun-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})--instance AWSRequest DeleteRun where-        type Rs DeleteRun = DeleteRunResponse-        request = postJSON deviceFarm-        response-          = receiveEmpty-              (\ s h x ->-                 DeleteRunResponse' <$> (pure (fromEnum s)))--instance Hashable DeleteRun where--instance NFData DeleteRun where--instance ToHeaders DeleteRun where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.DeleteRun" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DeleteRun where-        toJSON DeleteRun'{..}-          = object (catMaybes [Just ("arn" .= _drArn)])--instance ToPath DeleteRun where-        toPath = const "/"--instance ToQuery DeleteRun where-        toQuery = const mempty---- | Represents the result of a delete run request.------------ /See:/ 'deleteRunResponse' smart constructor.-newtype DeleteRunResponse = DeleteRunResponse'-  { _drrsResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteRunResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'drrsResponseStatus' - -- | The response status code.-deleteRunResponse-    :: Int -- ^ 'drrsResponseStatus'-    -> DeleteRunResponse-deleteRunResponse pResponseStatus_ =-  DeleteRunResponse' {_drrsResponseStatus = pResponseStatus_}----- | -- | The response status code.-drrsResponseStatus :: Lens' DeleteRunResponse Int-drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a})--instance NFData DeleteRunResponse where
− gen/Network/AWS/DeviceFarm/DeleteUpload.hs
@@ -1,128 +0,0 @@-{-# 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.DeleteUpload--- 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 an upload given the upload ARN.-------module Network.AWS.DeviceFarm.DeleteUpload-    (-    -- * Creating a Request-      deleteUpload-    , DeleteUpload-    -- * Request Lenses-    , duArn--    -- * Destructuring the Response-    , deleteUploadResponse-    , DeleteUploadResponse-    -- * Response Lenses-    , dursResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the delete upload operation.------------ /See:/ 'deleteUpload' smart constructor.-newtype DeleteUpload = DeleteUpload'-  { _duArn :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteUpload' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'duArn' - Represents the Amazon Resource Name (ARN) of the Device Farm upload you wish to delete.-deleteUpload-    :: Text -- ^ 'duArn'-    -> DeleteUpload-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})--instance AWSRequest DeleteUpload where-        type Rs DeleteUpload = DeleteUploadResponse-        request = postJSON deviceFarm-        response-          = receiveEmpty-              (\ s h x ->-                 DeleteUploadResponse' <$> (pure (fromEnum s)))--instance Hashable DeleteUpload where--instance NFData DeleteUpload where--instance ToHeaders DeleteUpload where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.DeleteUpload" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DeleteUpload where-        toJSON DeleteUpload'{..}-          = object (catMaybes [Just ("arn" .= _duArn)])--instance ToPath DeleteUpload where-        toPath = const "/"--instance ToQuery DeleteUpload where-        toQuery = const mempty---- | Represents the result of a delete upload request.------------ /See:/ 'deleteUploadResponse' smart constructor.-newtype DeleteUploadResponse = DeleteUploadResponse'-  { _dursResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteUploadResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dursResponseStatus' - -- | The response status code.-deleteUploadResponse-    :: Int -- ^ 'dursResponseStatus'-    -> DeleteUploadResponse-deleteUploadResponse pResponseStatus_ =-  DeleteUploadResponse' {_dursResponseStatus = pResponseStatus_}----- | -- | The response status code.-dursResponseStatus :: Lens' DeleteUploadResponse Int-dursResponseStatus = lens _dursResponseStatus (\ s a -> s{_dursResponseStatus = a})--instance NFData DeleteUploadResponse where
− gen/Network/AWS/DeviceFarm/DeleteVPCEConfiguration.hs
@@ -1,123 +0,0 @@-{-# 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
− gen/Network/AWS/DeviceFarm/GetAccountSettings.hs
@@ -1,129 +0,0 @@-{-# 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.GetAccountSettings--- 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 the number of unmetered iOS and/or unmetered Android devices that have been purchased by the account.-------module Network.AWS.DeviceFarm.GetAccountSettings-    (-    -- * Creating a Request-      getAccountSettings-    , GetAccountSettings--    -- * Destructuring the Response-    , getAccountSettingsResponse-    , GetAccountSettingsResponse-    -- * Response Lenses-    , gasrsAccountSettings-    , gasrsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents the request sent to retrieve the account settings.------------ /See:/ 'getAccountSettings' smart constructor.-data GetAccountSettings =-  GetAccountSettings'-  deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetAccountSettings' with the minimum fields required to make a request.----getAccountSettings-    :: GetAccountSettings-getAccountSettings = GetAccountSettings'---instance AWSRequest GetAccountSettings where-        type Rs GetAccountSettings =-             GetAccountSettingsResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 GetAccountSettingsResponse' <$>-                   (x .?> "accountSettings") <*> (pure (fromEnum s)))--instance Hashable GetAccountSettings where--instance NFData GetAccountSettings where--instance ToHeaders GetAccountSettings where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.GetAccountSettings" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON GetAccountSettings where-        toJSON = const (Object mempty)--instance ToPath GetAccountSettings where-        toPath = const "/"--instance ToQuery GetAccountSettings where-        toQuery = const mempty---- | Represents the account settings return values from the @GetAccountSettings@ request.------------ /See:/ 'getAccountSettingsResponse' smart constructor.-data GetAccountSettingsResponse = GetAccountSettingsResponse'-  { _gasrsAccountSettings :: !(Maybe AccountSettings)-  , _gasrsResponseStatus  :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetAccountSettingsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gasrsAccountSettings' - The account settings.------ * 'gasrsResponseStatus' - -- | The response status code.-getAccountSettingsResponse-    :: Int -- ^ 'gasrsResponseStatus'-    -> GetAccountSettingsResponse-getAccountSettingsResponse pResponseStatus_ =-  GetAccountSettingsResponse'-    {_gasrsAccountSettings = Nothing, _gasrsResponseStatus = pResponseStatus_}----- | The account settings.-gasrsAccountSettings :: Lens' GetAccountSettingsResponse (Maybe AccountSettings)-gasrsAccountSettings = lens _gasrsAccountSettings (\ s a -> s{_gasrsAccountSettings = a})---- | -- | The response status code.-gasrsResponseStatus :: Lens' GetAccountSettingsResponse Int-gasrsResponseStatus = lens _gasrsResponseStatus (\ s a -> s{_gasrsResponseStatus = a})--instance NFData GetAccountSettingsResponse where
− gen/Network/AWS/DeviceFarm/GetDevice.hs
@@ -1,138 +0,0 @@-{-# 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.GetDevice--- 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 a unique device type.-------module Network.AWS.DeviceFarm.GetDevice-    (-    -- * Creating a Request-      getDevice-    , GetDevice-    -- * Request Lenses-    , gdArn--    -- * Destructuring the Response-    , getDeviceResponse-    , GetDeviceResponse-    -- * Response Lenses-    , gdrsDevice-    , gdrsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the get device request.------------ /See:/ 'getDevice' smart constructor.-newtype GetDevice = GetDevice'-  { _gdArn :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetDevice' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gdArn' - The device type's ARN.-getDevice-    :: Text -- ^ 'gdArn'-    -> GetDevice-getDevice pArn_ = GetDevice' {_gdArn = pArn_}----- | The device type's ARN.-gdArn :: Lens' GetDevice Text-gdArn = lens _gdArn (\ s a -> s{_gdArn = a})--instance AWSRequest GetDevice where-        type Rs GetDevice = GetDeviceResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 GetDeviceResponse' <$>-                   (x .?> "device") <*> (pure (fromEnum s)))--instance Hashable GetDevice where--instance NFData GetDevice where--instance ToHeaders GetDevice where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.GetDevice" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON GetDevice where-        toJSON GetDevice'{..}-          = object (catMaybes [Just ("arn" .= _gdArn)])--instance ToPath GetDevice where-        toPath = const "/"--instance ToQuery GetDevice where-        toQuery = const mempty---- | Represents the result of a get device request.------------ /See:/ 'getDeviceResponse' smart constructor.-data GetDeviceResponse = GetDeviceResponse'-  { _gdrsDevice         :: !(Maybe Device)-  , _gdrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetDeviceResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gdrsDevice' - An object containing information about the requested device.------ * 'gdrsResponseStatus' - -- | The response status code.-getDeviceResponse-    :: Int -- ^ 'gdrsResponseStatus'-    -> GetDeviceResponse-getDeviceResponse pResponseStatus_ =-  GetDeviceResponse'-    {_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})---- | -- | The response status code.-gdrsResponseStatus :: Lens' GetDeviceResponse Int-gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a})--instance NFData GetDeviceResponse where
− gen/Network/AWS/DeviceFarm/GetDeviceInstance.hs
@@ -1,131 +0,0 @@-{-# 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
− gen/Network/AWS/DeviceFarm/GetDevicePool.hs
@@ -1,138 +0,0 @@-{-# 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.GetDevicePool--- 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 a device pool.-------module Network.AWS.DeviceFarm.GetDevicePool-    (-    -- * Creating a Request-      getDevicePool-    , GetDevicePool-    -- * Request Lenses-    , gdpArn--    -- * Destructuring the Response-    , getDevicePoolResponse-    , GetDevicePoolResponse-    -- * Response Lenses-    , gdprsDevicePool-    , gdprsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the get device pool operation.------------ /See:/ 'getDevicePool' smart constructor.-newtype GetDevicePool = GetDevicePool'-  { _gdpArn :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetDevicePool' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gdpArn' - The device pool's ARN.-getDevicePool-    :: Text -- ^ 'gdpArn'-    -> GetDevicePool-getDevicePool pArn_ = GetDevicePool' {_gdpArn = pArn_}----- | The device pool's ARN.-gdpArn :: Lens' GetDevicePool Text-gdpArn = lens _gdpArn (\ s a -> s{_gdpArn = a})--instance AWSRequest GetDevicePool where-        type Rs GetDevicePool = GetDevicePoolResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 GetDevicePoolResponse' <$>-                   (x .?> "devicePool") <*> (pure (fromEnum s)))--instance Hashable GetDevicePool where--instance NFData GetDevicePool where--instance ToHeaders GetDevicePool where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.GetDevicePool" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON GetDevicePool where-        toJSON GetDevicePool'{..}-          = object (catMaybes [Just ("arn" .= _gdpArn)])--instance ToPath GetDevicePool where-        toPath = const "/"--instance ToQuery GetDevicePool where-        toQuery = const mempty---- | Represents the result of a get device pool request.------------ /See:/ 'getDevicePoolResponse' smart constructor.-data GetDevicePoolResponse = GetDevicePoolResponse'-  { _gdprsDevicePool     :: !(Maybe DevicePool)-  , _gdprsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetDevicePoolResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gdprsDevicePool' - An object containing information about the requested device pool.------ * 'gdprsResponseStatus' - -- | The response status code.-getDevicePoolResponse-    :: Int -- ^ 'gdprsResponseStatus'-    -> GetDevicePoolResponse-getDevicePoolResponse pResponseStatus_ =-  GetDevicePoolResponse'-    {_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})---- | -- | The response status code.-gdprsResponseStatus :: Lens' GetDevicePoolResponse Int-gdprsResponseStatus = lens _gdprsResponseStatus (\ s a -> s{_gdprsResponseStatus = a})--instance NFData GetDevicePoolResponse where
− gen/Network/AWS/DeviceFarm/GetDevicePoolCompatibility.hs
@@ -1,199 +0,0 @@-{-# 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.GetDevicePoolCompatibility--- 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 compatibility with a device pool.-------module Network.AWS.DeviceFarm.GetDevicePoolCompatibility-    (-    -- * Creating a Request-      getDevicePoolCompatibility-    , GetDevicePoolCompatibility-    -- * Request Lenses-    , gdpcTest-    , gdpcAppARN-    , gdpcConfiguration-    , gdpcTestType-    , gdpcDevicePoolARN--    -- * Destructuring the Response-    , getDevicePoolCompatibilityResponse-    , GetDevicePoolCompatibilityResponse-    -- * Response Lenses-    , gdpcrsIncompatibleDevices-    , gdpcrsCompatibleDevices-    , gdpcrsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the get device pool compatibility operation.------------ /See:/ 'getDevicePoolCompatibility' smart constructor.-data GetDevicePoolCompatibility = GetDevicePoolCompatibility'-  { _gdpcTest          :: !(Maybe ScheduleRunTest)-  , _gdpcAppARN        :: !(Maybe Text)-  , _gdpcConfiguration :: !(Maybe ScheduleRunConfiguration)-  , _gdpcTestType      :: !(Maybe TestType)-  , _gdpcDevicePoolARN :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetDevicePoolCompatibility' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gdpcTest' - Information about the uploaded test to be run against the device pool.------ * '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.-getDevicePoolCompatibility-    :: Text -- ^ 'gdpcDevicePoolARN'-    -> GetDevicePoolCompatibility-getDevicePoolCompatibility pDevicePoolARN_ =-  GetDevicePoolCompatibility'-    { _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})---- | 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})---- | 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})---- | The device pool's ARN.-gdpcDevicePoolARN :: Lens' GetDevicePoolCompatibility Text-gdpcDevicePoolARN = lens _gdpcDevicePoolARN (\ s a -> s{_gdpcDevicePoolARN = a})--instance AWSRequest GetDevicePoolCompatibility where-        type Rs GetDevicePoolCompatibility =-             GetDevicePoolCompatibilityResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 GetDevicePoolCompatibilityResponse' <$>-                   (x .?> "incompatibleDevices" .!@ mempty) <*>-                     (x .?> "compatibleDevices" .!@ mempty)-                     <*> (pure (fromEnum s)))--instance Hashable GetDevicePoolCompatibility where--instance NFData GetDevicePoolCompatibility where--instance ToHeaders GetDevicePoolCompatibility where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.GetDevicePoolCompatibility" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON GetDevicePoolCompatibility where-        toJSON GetDevicePoolCompatibility'{..}-          = object-              (catMaybes-                 [("test" .=) <$> _gdpcTest,-                  ("appArn" .=) <$> _gdpcAppARN,-                  ("configuration" .=) <$> _gdpcConfiguration,-                  ("testType" .=) <$> _gdpcTestType,-                  Just ("devicePoolArn" .= _gdpcDevicePoolARN)])--instance ToPath GetDevicePoolCompatibility where-        toPath = const "/"--instance ToQuery GetDevicePoolCompatibility where-        toQuery = const mempty---- | Represents the result of describe device pool compatibility request.------------ /See:/ 'getDevicePoolCompatibilityResponse' smart constructor.-data GetDevicePoolCompatibilityResponse = GetDevicePoolCompatibilityResponse'-  { _gdpcrsIncompatibleDevices :: !(Maybe [DevicePoolCompatibilityResult])-  , _gdpcrsCompatibleDevices   :: !(Maybe [DevicePoolCompatibilityResult])-  , _gdpcrsResponseStatus      :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetDevicePoolCompatibilityResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gdpcrsIncompatibleDevices' - Information about incompatible devices.------ * 'gdpcrsCompatibleDevices' - Information about compatible devices.------ * 'gdpcrsResponseStatus' - -- | The response status code.-getDevicePoolCompatibilityResponse-    :: Int -- ^ 'gdpcrsResponseStatus'-    -> GetDevicePoolCompatibilityResponse-getDevicePoolCompatibilityResponse pResponseStatus_ =-  GetDevicePoolCompatibilityResponse'-    { _gdpcrsIncompatibleDevices = Nothing-    , _gdpcrsCompatibleDevices = Nothing-    , _gdpcrsResponseStatus = pResponseStatus_-    }----- | Information about incompatible devices.-gdpcrsIncompatibleDevices :: Lens' GetDevicePoolCompatibilityResponse [DevicePoolCompatibilityResult]-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---- | -- | The response status code.-gdpcrsResponseStatus :: Lens' GetDevicePoolCompatibilityResponse Int-gdpcrsResponseStatus = lens _gdpcrsResponseStatus (\ s a -> s{_gdpcrsResponseStatus = a})--instance NFData GetDevicePoolCompatibilityResponse-         where
− gen/Network/AWS/DeviceFarm/GetInstanceProfile.hs
@@ -1,132 +0,0 @@-{-# 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
− gen/Network/AWS/DeviceFarm/GetJob.hs
@@ -1,137 +0,0 @@-{-# 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.GetJob--- 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 a job.-------module Network.AWS.DeviceFarm.GetJob-    (-    -- * Creating a Request-      getJob-    , GetJob-    -- * Request Lenses-    , gjArn--    -- * Destructuring the Response-    , getJobResponse-    , GetJobResponse-    -- * Response Lenses-    , gjrsJob-    , gjrsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the get job operation.------------ /See:/ 'getJob' smart constructor.-newtype GetJob = GetJob'-  { _gjArn :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetJob' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gjArn' - The job's ARN.-getJob-    :: Text -- ^ 'gjArn'-    -> GetJob-getJob pArn_ = GetJob' {_gjArn = pArn_}----- | The job's ARN.-gjArn :: Lens' GetJob Text-gjArn = lens _gjArn (\ s a -> s{_gjArn = a})--instance AWSRequest GetJob where-        type Rs GetJob = GetJobResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 GetJobResponse' <$>-                   (x .?> "job") <*> (pure (fromEnum s)))--instance Hashable GetJob where--instance NFData GetJob where--instance ToHeaders GetJob where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.GetJob" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON GetJob where-        toJSON GetJob'{..}-          = object (catMaybes [Just ("arn" .= _gjArn)])--instance ToPath GetJob where-        toPath = const "/"--instance ToQuery GetJob where-        toQuery = const mempty---- | Represents the result of a get job request.------------ /See:/ 'getJobResponse' smart constructor.-data GetJobResponse = GetJobResponse'-  { _gjrsJob            :: !(Maybe Job)-  , _gjrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetJobResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gjrsJob' - An object containing information about the requested job.------ * 'gjrsResponseStatus' - -- | The response status code.-getJobResponse-    :: Int -- ^ 'gjrsResponseStatus'-    -> GetJobResponse-getJobResponse pResponseStatus_ =-  GetJobResponse' {_gjrsJob = Nothing, _gjrsResponseStatus = pResponseStatus_}----- | An object containing information about the requested job.-gjrsJob :: Lens' GetJobResponse (Maybe Job)-gjrsJob = lens _gjrsJob (\ s a -> s{_gjrsJob = a})---- | -- | The response status code.-gjrsResponseStatus :: Lens' GetJobResponse Int-gjrsResponseStatus = lens _gjrsResponseStatus (\ s a -> s{_gjrsResponseStatus = a})--instance NFData GetJobResponse where
− gen/Network/AWS/DeviceFarm/GetNetworkProfile.hs
@@ -1,131 +0,0 @@-{-# 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.GetNetworkProfile--- 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 network profile.-------module Network.AWS.DeviceFarm.GetNetworkProfile-    (-    -- * Creating a Request-      getNetworkProfile-    , GetNetworkProfile-    -- * Request Lenses-    , gnpArn--    -- * Destructuring the Response-    , getNetworkProfileResponse-    , GetNetworkProfileResponse-    -- * Response Lenses-    , gnprsNetworkProfile-    , gnprsResponseStatus-    ) 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:/ 'getNetworkProfile' smart constructor.-newtype GetNetworkProfile = GetNetworkProfile'-  { _gnpArn :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetNetworkProfile' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gnpArn' - The Amazon Resource Name (ARN) of the network profile you want to return information about.-getNetworkProfile-    :: Text -- ^ 'gnpArn'-    -> GetNetworkProfile-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})--instance AWSRequest GetNetworkProfile where-        type Rs GetNetworkProfile = GetNetworkProfileResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 GetNetworkProfileResponse' <$>-                   (x .?> "networkProfile") <*> (pure (fromEnum s)))--instance Hashable GetNetworkProfile where--instance NFData GetNetworkProfile where--instance ToHeaders GetNetworkProfile where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.GetNetworkProfile" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON GetNetworkProfile where-        toJSON GetNetworkProfile'{..}-          = object (catMaybes [Just ("arn" .= _gnpArn)])--instance ToPath GetNetworkProfile where-        toPath = const "/"--instance ToQuery GetNetworkProfile where-        toQuery = const mempty---- | /See:/ 'getNetworkProfileResponse' smart constructor.-data GetNetworkProfileResponse = GetNetworkProfileResponse'-  { _gnprsNetworkProfile :: !(Maybe NetworkProfile)-  , _gnprsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetNetworkProfileResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gnprsNetworkProfile' - The network profile.------ * 'gnprsResponseStatus' - -- | The response status code.-getNetworkProfileResponse-    :: Int -- ^ 'gnprsResponseStatus'-    -> GetNetworkProfileResponse-getNetworkProfileResponse pResponseStatus_ =-  GetNetworkProfileResponse'-    {_gnprsNetworkProfile = Nothing, _gnprsResponseStatus = pResponseStatus_}----- | The network profile.-gnprsNetworkProfile :: Lens' GetNetworkProfileResponse (Maybe NetworkProfile)-gnprsNetworkProfile = lens _gnprsNetworkProfile (\ s a -> s{_gnprsNetworkProfile = a})---- | -- | The response status code.-gnprsResponseStatus :: Lens' GetNetworkProfileResponse Int-gnprsResponseStatus = lens _gnprsResponseStatus (\ s a -> s{_gnprsResponseStatus = a})--instance NFData GetNetworkProfileResponse where
− gen/Network/AWS/DeviceFarm/GetOfferingStatus.hs
@@ -1,173 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DeviceFarm.GetOfferingStatus--- Copyright   : (c) 2013-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 the current status and future status of all offerings purchased by an AWS account. The response indicates how many offerings are currently available and the offerings that will be available in the next period. The API returns a @NotEligible@ error if the user is not permitted to invoke the operation. Please contact <mailto:aws-devicefarm-support@amazon.com aws-devicefarm-support@amazon.com> if you believe that you should be able to invoke this operation.------------ This operation returns paginated results.-module Network.AWS.DeviceFarm.GetOfferingStatus-    (-    -- * Creating a Request-      getOfferingStatus-    , GetOfferingStatus-    -- * Request Lenses-    , gosNextToken--    -- * Destructuring the Response-    , getOfferingStatusResponse-    , GetOfferingStatusResponse-    -- * Response Lenses-    , gosrsNextPeriod-    , gosrsCurrent-    , gosrsNextToken-    , gosrsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents the request to retrieve the offering status for the specified customer or account.------------ /See:/ 'getOfferingStatus' smart constructor.-newtype GetOfferingStatus = GetOfferingStatus'-  { _gosNextToken :: Maybe Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetOfferingStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gosNextToken' - 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.-getOfferingStatus-    :: GetOfferingStatus-getOfferingStatus = GetOfferingStatus' {_gosNextToken = Nothing}----- | An identifier that was returned from the previous call to this operation, which can be used to return the next set of items in the list.-gosNextToken :: Lens' GetOfferingStatus (Maybe Text)-gosNextToken = lens _gosNextToken (\ s a -> s{_gosNextToken = a})--instance AWSPager GetOfferingStatus where-        page rq rs-          | stop (rs ^. gosrsNextToken) = Nothing-          | stop (rs ^. gosrsCurrent) = Nothing-          | stop (rs ^. gosrsNextPeriod) = Nothing-          | otherwise =-            Just $ rq & gosNextToken .~ rs ^. gosrsNextToken--instance AWSRequest GetOfferingStatus where-        type Rs GetOfferingStatus = GetOfferingStatusResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 GetOfferingStatusResponse' <$>-                   (x .?> "nextPeriod" .!@ mempty) <*>-                     (x .?> "current" .!@ mempty)-                     <*> (x .?> "nextToken")-                     <*> (pure (fromEnum s)))--instance Hashable GetOfferingStatus where--instance NFData GetOfferingStatus where--instance ToHeaders GetOfferingStatus where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.GetOfferingStatus" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON GetOfferingStatus where-        toJSON GetOfferingStatus'{..}-          = object-              (catMaybes [("nextToken" .=) <$> _gosNextToken])--instance ToPath GetOfferingStatus where-        toPath = const "/"--instance ToQuery GetOfferingStatus where-        toQuery = const mempty---- | Returns the status result for a device offering.------------ /See:/ 'getOfferingStatusResponse' smart constructor.-data GetOfferingStatusResponse = GetOfferingStatusResponse'-  { _gosrsNextPeriod     :: !(Maybe (Map Text OfferingStatus))-  , _gosrsCurrent        :: !(Maybe (Map Text OfferingStatus))-  , _gosrsNextToken      :: !(Maybe Text)-  , _gosrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetOfferingStatusResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gosrsNextPeriod' - When specified, gets the offering status for the next period.------ * 'gosrsCurrent' - When specified, gets the offering status for the current period.------ * 'gosrsNextToken' - 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.------ * 'gosrsResponseStatus' - -- | The response status code.-getOfferingStatusResponse-    :: Int -- ^ 'gosrsResponseStatus'-    -> GetOfferingStatusResponse-getOfferingStatusResponse pResponseStatus_ =-  GetOfferingStatusResponse'-    { _gosrsNextPeriod = Nothing-    , _gosrsCurrent = Nothing-    , _gosrsNextToken = Nothing-    , _gosrsResponseStatus = pResponseStatus_-    }----- | When specified, gets the offering status for the next period.-gosrsNextPeriod :: Lens' GetOfferingStatusResponse (HashMap Text OfferingStatus)-gosrsNextPeriod = lens _gosrsNextPeriod (\ s a -> s{_gosrsNextPeriod = a}) . _Default . _Map---- | When specified, gets the offering status for the current period.-gosrsCurrent :: Lens' GetOfferingStatusResponse (HashMap Text OfferingStatus)-gosrsCurrent = lens _gosrsCurrent (\ s a -> s{_gosrsCurrent = a}) . _Default . _Map---- | An identifier that was returned from the previous call to this operation, which can be used to return the next set of items in the list.-gosrsNextToken :: Lens' GetOfferingStatusResponse (Maybe Text)-gosrsNextToken = lens _gosrsNextToken (\ s a -> s{_gosrsNextToken = a})---- | -- | The response status code.-gosrsResponseStatus :: Lens' GetOfferingStatusResponse Int-gosrsResponseStatus = lens _gosrsResponseStatus (\ s a -> s{_gosrsResponseStatus = a})--instance NFData GetOfferingStatusResponse where
− gen/Network/AWS/DeviceFarm/GetProject.hs
@@ -1,138 +0,0 @@-{-# 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.GetProject--- 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 a project.-------module Network.AWS.DeviceFarm.GetProject-    (-    -- * Creating a Request-      getProject-    , GetProject-    -- * Request Lenses-    , gpArn--    -- * Destructuring the Response-    , getProjectResponse-    , GetProjectResponse-    -- * Response Lenses-    , gprsProject-    , gprsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the get project operation.------------ /See:/ 'getProject' smart constructor.-newtype GetProject = GetProject'-  { _gpArn :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetProject' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gpArn' - The project's ARN.-getProject-    :: Text -- ^ 'gpArn'-    -> GetProject-getProject pArn_ = GetProject' {_gpArn = pArn_}----- | The project's ARN.-gpArn :: Lens' GetProject Text-gpArn = lens _gpArn (\ s a -> s{_gpArn = a})--instance AWSRequest GetProject where-        type Rs GetProject = GetProjectResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 GetProjectResponse' <$>-                   (x .?> "project") <*> (pure (fromEnum s)))--instance Hashable GetProject where--instance NFData GetProject where--instance ToHeaders GetProject where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.GetProject" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON GetProject where-        toJSON GetProject'{..}-          = object (catMaybes [Just ("arn" .= _gpArn)])--instance ToPath GetProject where-        toPath = const "/"--instance ToQuery GetProject where-        toQuery = const mempty---- | Represents the result of a get project request.------------ /See:/ 'getProjectResponse' smart constructor.-data GetProjectResponse = GetProjectResponse'-  { _gprsProject        :: !(Maybe Project)-  , _gprsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetProjectResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gprsProject' - The project you wish to get information about.------ * 'gprsResponseStatus' - -- | The response status code.-getProjectResponse-    :: Int -- ^ 'gprsResponseStatus'-    -> GetProjectResponse-getProjectResponse pResponseStatus_ =-  GetProjectResponse'-    {_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})---- | -- | The response status code.-gprsResponseStatus :: Lens' GetProjectResponse Int-gprsResponseStatus = lens _gprsResponseStatus (\ s a -> s{_gprsResponseStatus = a})--instance NFData GetProjectResponse where
− gen/Network/AWS/DeviceFarm/GetRemoteAccessSession.hs
@@ -1,143 +0,0 @@-{-# 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.GetRemoteAccessSession--- 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 a link to a currently running remote access session.-------module Network.AWS.DeviceFarm.GetRemoteAccessSession-    (-    -- * Creating a Request-      getRemoteAccessSession-    , GetRemoteAccessSession-    -- * Request Lenses-    , grasArn--    -- * Destructuring the Response-    , getRemoteAccessSessionResponse-    , GetRemoteAccessSessionResponse-    -- * Response Lenses-    , grasrsRemoteAccessSession-    , grasrsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents the request to get information about the specified remote access session.------------ /See:/ 'getRemoteAccessSession' smart constructor.-newtype GetRemoteAccessSession = GetRemoteAccessSession'-  { _grasArn :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetRemoteAccessSession' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'grasArn' - The Amazon Resource Name (ARN) of the remote access session about which you want to get session information.-getRemoteAccessSession-    :: Text -- ^ 'grasArn'-    -> GetRemoteAccessSession-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})--instance AWSRequest GetRemoteAccessSession where-        type Rs GetRemoteAccessSession =-             GetRemoteAccessSessionResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 GetRemoteAccessSessionResponse' <$>-                   (x .?> "remoteAccessSession") <*>-                     (pure (fromEnum s)))--instance Hashable GetRemoteAccessSession where--instance NFData GetRemoteAccessSession where--instance ToHeaders GetRemoteAccessSession where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.GetRemoteAccessSession" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON GetRemoteAccessSession where-        toJSON GetRemoteAccessSession'{..}-          = object (catMaybes [Just ("arn" .= _grasArn)])--instance ToPath GetRemoteAccessSession where-        toPath = const "/"--instance ToQuery GetRemoteAccessSession where-        toQuery = const mempty---- | Represents the response from the server that lists detailed information about the remote access session.------------ /See:/ 'getRemoteAccessSessionResponse' smart constructor.-data GetRemoteAccessSessionResponse = GetRemoteAccessSessionResponse'-  { _grasrsRemoteAccessSession :: !(Maybe RemoteAccessSession)-  , _grasrsResponseStatus      :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetRemoteAccessSessionResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'grasrsRemoteAccessSession' - A container that lists detailed information about the remote access session.------ * 'grasrsResponseStatus' - -- | The response status code.-getRemoteAccessSessionResponse-    :: Int -- ^ 'grasrsResponseStatus'-    -> GetRemoteAccessSessionResponse-getRemoteAccessSessionResponse pResponseStatus_ =-  GetRemoteAccessSessionResponse'-    { _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})---- | -- | The response status code.-grasrsResponseStatus :: Lens' GetRemoteAccessSessionResponse Int-grasrsResponseStatus = lens _grasrsResponseStatus (\ s a -> s{_grasrsResponseStatus = a})--instance NFData GetRemoteAccessSessionResponse where
− gen/Network/AWS/DeviceFarm/GetRun.hs
@@ -1,137 +0,0 @@-{-# 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.GetRun--- 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 a run.-------module Network.AWS.DeviceFarm.GetRun-    (-    -- * Creating a Request-      getRun-    , GetRun-    -- * Request Lenses-    , grArn--    -- * Destructuring the Response-    , getRunResponse-    , GetRunResponse-    -- * Response Lenses-    , grrsRun-    , grrsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the get run operation.------------ /See:/ 'getRun' smart constructor.-newtype GetRun = GetRun'-  { _grArn :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetRun' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'grArn' - The run's ARN.-getRun-    :: Text -- ^ 'grArn'-    -> GetRun-getRun pArn_ = GetRun' {_grArn = pArn_}----- | The run's ARN.-grArn :: Lens' GetRun Text-grArn = lens _grArn (\ s a -> s{_grArn = a})--instance AWSRequest GetRun where-        type Rs GetRun = GetRunResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 GetRunResponse' <$>-                   (x .?> "run") <*> (pure (fromEnum s)))--instance Hashable GetRun where--instance NFData GetRun where--instance ToHeaders GetRun where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.GetRun" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON GetRun where-        toJSON GetRun'{..}-          = object (catMaybes [Just ("arn" .= _grArn)])--instance ToPath GetRun where-        toPath = const "/"--instance ToQuery GetRun where-        toQuery = const mempty---- | Represents the result of a get run request.------------ /See:/ 'getRunResponse' smart constructor.-data GetRunResponse = GetRunResponse'-  { _grrsRun            :: !(Maybe Run)-  , _grrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetRunResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'grrsRun' - The run you wish to get results from.------ * 'grrsResponseStatus' - -- | The response status code.-getRunResponse-    :: Int -- ^ 'grrsResponseStatus'-    -> GetRunResponse-getRunResponse pResponseStatus_ =-  GetRunResponse' {_grrsRun = Nothing, _grrsResponseStatus = pResponseStatus_}----- | The run you wish to get results from.-grrsRun :: Lens' GetRunResponse (Maybe Run)-grrsRun = lens _grrsRun (\ s a -> s{_grrsRun = a})---- | -- | The response status code.-grrsResponseStatus :: Lens' GetRunResponse Int-grrsResponseStatus = lens _grrsResponseStatus (\ s a -> s{_grrsResponseStatus = a})--instance NFData GetRunResponse where
− gen/Network/AWS/DeviceFarm/GetSuite.hs
@@ -1,138 +0,0 @@-{-# 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.GetSuite--- 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 a suite.-------module Network.AWS.DeviceFarm.GetSuite-    (-    -- * Creating a Request-      getSuite-    , GetSuite-    -- * Request Lenses-    , gsArn--    -- * Destructuring the Response-    , getSuiteResponse-    , GetSuiteResponse-    -- * Response Lenses-    , gsrsSuite-    , gsrsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the get suite operation.------------ /See:/ 'getSuite' smart constructor.-newtype GetSuite = GetSuite'-  { _gsArn :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetSuite' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gsArn' - The suite's ARN.-getSuite-    :: Text -- ^ 'gsArn'-    -> GetSuite-getSuite pArn_ = GetSuite' {_gsArn = pArn_}----- | The suite's ARN.-gsArn :: Lens' GetSuite Text-gsArn = lens _gsArn (\ s a -> s{_gsArn = a})--instance AWSRequest GetSuite where-        type Rs GetSuite = GetSuiteResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 GetSuiteResponse' <$>-                   (x .?> "suite") <*> (pure (fromEnum s)))--instance Hashable GetSuite where--instance NFData GetSuite where--instance ToHeaders GetSuite where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.GetSuite" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON GetSuite where-        toJSON GetSuite'{..}-          = object (catMaybes [Just ("arn" .= _gsArn)])--instance ToPath GetSuite where-        toPath = const "/"--instance ToQuery GetSuite where-        toQuery = const mempty---- | Represents the result of a get suite request.------------ /See:/ 'getSuiteResponse' smart constructor.-data GetSuiteResponse = GetSuiteResponse'-  { _gsrsSuite          :: !(Maybe Suite)-  , _gsrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetSuiteResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gsrsSuite' - A collection of one or more tests.------ * 'gsrsResponseStatus' - -- | The response status code.-getSuiteResponse-    :: Int -- ^ 'gsrsResponseStatus'-    -> GetSuiteResponse-getSuiteResponse pResponseStatus_ =-  GetSuiteResponse'-    {_gsrsSuite = Nothing, _gsrsResponseStatus = pResponseStatus_}----- | A collection of one or more tests.-gsrsSuite :: Lens' GetSuiteResponse (Maybe Suite)-gsrsSuite = lens _gsrsSuite (\ s a -> s{_gsrsSuite = a})---- | -- | The response status code.-gsrsResponseStatus :: Lens' GetSuiteResponse Int-gsrsResponseStatus = lens _gsrsResponseStatus (\ s a -> s{_gsrsResponseStatus = a})--instance NFData GetSuiteResponse where
− gen/Network/AWS/DeviceFarm/GetTest.hs
@@ -1,137 +0,0 @@-{-# 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.GetTest--- 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 a test.-------module Network.AWS.DeviceFarm.GetTest-    (-    -- * Creating a Request-      getTest-    , GetTest-    -- * Request Lenses-    , gtArn--    -- * Destructuring the Response-    , getTestResponse-    , GetTestResponse-    -- * Response Lenses-    , gtrsTest-    , gtrsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the get test operation.------------ /See:/ 'getTest' smart constructor.-newtype GetTest = GetTest'-  { _gtArn :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetTest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gtArn' - The test's ARN.-getTest-    :: Text -- ^ 'gtArn'-    -> GetTest-getTest pArn_ = GetTest' {_gtArn = pArn_}----- | The test's ARN.-gtArn :: Lens' GetTest Text-gtArn = lens _gtArn (\ s a -> s{_gtArn = a})--instance AWSRequest GetTest where-        type Rs GetTest = GetTestResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 GetTestResponse' <$>-                   (x .?> "test") <*> (pure (fromEnum s)))--instance Hashable GetTest where--instance NFData GetTest where--instance ToHeaders GetTest where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.GetTest" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON GetTest where-        toJSON GetTest'{..}-          = object (catMaybes [Just ("arn" .= _gtArn)])--instance ToPath GetTest where-        toPath = const "/"--instance ToQuery GetTest where-        toQuery = const mempty---- | Represents the result of a get test request.------------ /See:/ 'getTestResponse' smart constructor.-data GetTestResponse = GetTestResponse'-  { _gtrsTest           :: !(Maybe Test)-  , _gtrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetTestResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gtrsTest' - A test condition that is evaluated.------ * 'gtrsResponseStatus' - -- | The response status code.-getTestResponse-    :: Int -- ^ 'gtrsResponseStatus'-    -> GetTestResponse-getTestResponse pResponseStatus_ =-  GetTestResponse' {_gtrsTest = Nothing, _gtrsResponseStatus = pResponseStatus_}----- | A test condition that is evaluated.-gtrsTest :: Lens' GetTestResponse (Maybe Test)-gtrsTest = lens _gtrsTest (\ s a -> s{_gtrsTest = a})---- | -- | The response status code.-gtrsResponseStatus :: Lens' GetTestResponse Int-gtrsResponseStatus = lens _gtrsResponseStatus (\ s a -> s{_gtrsResponseStatus = a})--instance NFData GetTestResponse where
− gen/Network/AWS/DeviceFarm/GetUpload.hs
@@ -1,138 +0,0 @@-{-# 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.GetUpload--- 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 an upload.-------module Network.AWS.DeviceFarm.GetUpload-    (-    -- * Creating a Request-      getUpload-    , GetUpload-    -- * Request Lenses-    , guArn--    -- * Destructuring the Response-    , getUploadResponse-    , GetUploadResponse-    -- * Response Lenses-    , gursUpload-    , gursResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the get upload operation.------------ /See:/ 'getUpload' smart constructor.-newtype GetUpload = GetUpload'-  { _guArn :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetUpload' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'guArn' - The upload's ARN.-getUpload-    :: Text -- ^ 'guArn'-    -> GetUpload-getUpload pArn_ = GetUpload' {_guArn = pArn_}----- | The upload's ARN.-guArn :: Lens' GetUpload Text-guArn = lens _guArn (\ s a -> s{_guArn = a})--instance AWSRequest GetUpload where-        type Rs GetUpload = GetUploadResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 GetUploadResponse' <$>-                   (x .?> "upload") <*> (pure (fromEnum s)))--instance Hashable GetUpload where--instance NFData GetUpload where--instance ToHeaders GetUpload where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.GetUpload" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON GetUpload where-        toJSON GetUpload'{..}-          = object (catMaybes [Just ("arn" .= _guArn)])--instance ToPath GetUpload where-        toPath = const "/"--instance ToQuery GetUpload where-        toQuery = const mempty---- | Represents the result of a get upload request.------------ /See:/ 'getUploadResponse' smart constructor.-data GetUploadResponse = GetUploadResponse'-  { _gursUpload         :: !(Maybe Upload)-  , _gursResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetUploadResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gursUpload' - An app or a set of one or more tests to upload or that have been uploaded.------ * 'gursResponseStatus' - -- | The response status code.-getUploadResponse-    :: Int -- ^ 'gursResponseStatus'-    -> GetUploadResponse-getUploadResponse pResponseStatus_ =-  GetUploadResponse'-    {_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})---- | -- | The response status code.-gursResponseStatus :: Lens' GetUploadResponse Int-gursResponseStatus = lens _gursResponseStatus (\ s a -> s{_gursResponseStatus = a})--instance NFData GetUploadResponse where
− gen/Network/AWS/DeviceFarm/GetVPCEConfiguration.hs
@@ -1,134 +0,0 @@-{-# 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
− gen/Network/AWS/DeviceFarm/InstallToRemoteAccessSession.hs
@@ -1,160 +0,0 @@-{-# 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.InstallToRemoteAccessSession--- 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)------ Installs an application to the device in a remote access session. For Android applications, the file must be in .apk format. For iOS applications, the file must be in .ipa format.-------module Network.AWS.DeviceFarm.InstallToRemoteAccessSession-    (-    -- * Creating a Request-      installToRemoteAccessSession-    , InstallToRemoteAccessSession-    -- * Request Lenses-    , itrasRemoteAccessSessionARN-    , itrasAppARN--    -- * Destructuring the Response-    , installToRemoteAccessSessionResponse-    , InstallToRemoteAccessSessionResponse-    -- * Response Lenses-    , itrasrsAppUpload-    , itrasrsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents the request to install an Android application (in .apk format) or an iOS application (in .ipa format) as part of a remote access session.------------ /See:/ 'installToRemoteAccessSession' smart constructor.-data InstallToRemoteAccessSession = InstallToRemoteAccessSession'-  { _itrasRemoteAccessSessionARN :: !Text-  , _itrasAppARN                 :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'InstallToRemoteAccessSession' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'itrasRemoteAccessSessionARN' - The Amazon Resource Name (ARN) of the remote access session about which you are requesting information.------ * 'itrasAppARN' - The Amazon Resource Name (ARN) of the app about which you are requesting information.-installToRemoteAccessSession-    :: Text -- ^ 'itrasRemoteAccessSessionARN'-    -> Text -- ^ 'itrasAppARN'-    -> InstallToRemoteAccessSession-installToRemoteAccessSession pRemoteAccessSessionARN_ pAppARN_ =-  InstallToRemoteAccessSession'-    { _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})---- | 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})--instance AWSRequest InstallToRemoteAccessSession-         where-        type Rs InstallToRemoteAccessSession =-             InstallToRemoteAccessSessionResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 InstallToRemoteAccessSessionResponse' <$>-                   (x .?> "appUpload") <*> (pure (fromEnum s)))--instance Hashable InstallToRemoteAccessSession where--instance NFData InstallToRemoteAccessSession where--instance ToHeaders InstallToRemoteAccessSession where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.InstallToRemoteAccessSession"-                       :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON InstallToRemoteAccessSession where-        toJSON InstallToRemoteAccessSession'{..}-          = object-              (catMaybes-                 [Just-                    ("remoteAccessSessionArn" .=-                       _itrasRemoteAccessSessionARN),-                  Just ("appArn" .= _itrasAppARN)])--instance ToPath InstallToRemoteAccessSession where-        toPath = const "/"--instance ToQuery InstallToRemoteAccessSession where-        toQuery = const mempty---- | Represents the response from the server after AWS Device Farm makes a request to install to a remote access session.------------ /See:/ 'installToRemoteAccessSessionResponse' smart constructor.-data InstallToRemoteAccessSessionResponse = InstallToRemoteAccessSessionResponse'-  { _itrasrsAppUpload      :: !(Maybe Upload)-  , _itrasrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'InstallToRemoteAccessSessionResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'itrasrsAppUpload' - An app to upload or that has been uploaded.------ * 'itrasrsResponseStatus' - -- | The response status code.-installToRemoteAccessSessionResponse-    :: Int -- ^ 'itrasrsResponseStatus'-    -> InstallToRemoteAccessSessionResponse-installToRemoteAccessSessionResponse pResponseStatus_ =-  InstallToRemoteAccessSessionResponse'-    {_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})---- | -- | The response status code.-itrasrsResponseStatus :: Lens' InstallToRemoteAccessSessionResponse Int-itrasrsResponseStatus = lens _itrasrsResponseStatus (\ s a -> s{_itrasrsResponseStatus = a})--instance NFData InstallToRemoteAccessSessionResponse-         where
− gen/Network/AWS/DeviceFarm/ListArtifacts.hs
@@ -1,182 +0,0 @@-{-# 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.ListArtifacts--- 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 artifacts.------------ This operation returns paginated results.-module Network.AWS.DeviceFarm.ListArtifacts-    (-    -- * Creating a Request-      listArtifacts-    , ListArtifacts-    -- * Request Lenses-    , laNextToken-    , laArn-    , laType--    -- * Destructuring the Response-    , listArtifactsResponse-    , ListArtifactsResponse-    -- * Response Lenses-    , larsArtifacts-    , larsNextToken-    , larsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the list artifacts operation.------------ /See:/ 'listArtifacts' smart constructor.-data ListArtifacts = ListArtifacts'-  { _laNextToken :: !(Maybe Text)-  , _laArn       :: !Text-  , _laType      :: !ArtifactCategory-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListArtifacts' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'laNextToken' - 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.------ * 'laArn' - The Run, Job, Suite, or Test ARN.------ * 'laType' - The artifacts' type. Allowed values include:     * FILE: The artifacts are files.     * LOG: The artifacts are logs.     * SCREENSHOT: The artifacts are screenshots.-listArtifacts-    :: Text -- ^ 'laArn'-    -> ArtifactCategory -- ^ 'laType'-    -> ListArtifacts-listArtifacts pArn_ pType_ =-  ListArtifacts' {_laNextToken = Nothing, _laArn = pArn_, _laType = 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})---- | The Run, Job, Suite, or Test ARN.-laArn :: Lens' ListArtifacts Text-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})--instance AWSPager ListArtifacts where-        page rq rs-          | stop (rs ^. larsNextToken) = Nothing-          | stop (rs ^. larsArtifacts) = Nothing-          | otherwise =-            Just $ rq & laNextToken .~ rs ^. larsNextToken--instance AWSRequest ListArtifacts where-        type Rs ListArtifacts = ListArtifactsResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 ListArtifactsResponse' <$>-                   (x .?> "artifacts" .!@ mempty) <*>-                     (x .?> "nextToken")-                     <*> (pure (fromEnum s)))--instance Hashable ListArtifacts where--instance NFData ListArtifacts where--instance ToHeaders ListArtifacts where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.ListArtifacts" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON ListArtifacts where-        toJSON ListArtifacts'{..}-          = object-              (catMaybes-                 [("nextToken" .=) <$> _laNextToken,-                  Just ("arn" .= _laArn), Just ("type" .= _laType)])--instance ToPath ListArtifacts where-        toPath = const "/"--instance ToQuery ListArtifacts where-        toQuery = const mempty---- | Represents the result of a list artifacts operation.------------ /See:/ 'listArtifactsResponse' smart constructor.-data ListArtifactsResponse = ListArtifactsResponse'-  { _larsArtifacts      :: !(Maybe [Artifact])-  , _larsNextToken      :: !(Maybe Text)-  , _larsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListArtifactsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'larsArtifacts' - Information about the artifacts.------ * 'larsNextToken' - 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.------ * 'larsResponseStatus' - -- | The response status code.-listArtifactsResponse-    :: Int -- ^ 'larsResponseStatus'-    -> ListArtifactsResponse-listArtifactsResponse pResponseStatus_ =-  ListArtifactsResponse'-    { _larsArtifacts = Nothing-    , _larsNextToken = Nothing-    , _larsResponseStatus = pResponseStatus_-    }----- | Information about the artifacts.-larsArtifacts :: Lens' ListArtifactsResponse [Artifact]-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})---- | -- | The response status code.-larsResponseStatus :: Lens' ListArtifactsResponse Int-larsResponseStatus = lens _larsResponseStatus (\ s a -> s{_larsResponseStatus = a})--instance NFData ListArtifactsResponse where
− gen/Network/AWS/DeviceFarm/ListDeviceInstances.hs
@@ -1,156 +0,0 @@-{-# 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
− gen/Network/AWS/DeviceFarm/ListDevicePools.hs
@@ -1,183 +0,0 @@-{-# 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.ListDevicePools--- 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 device pools.------------ This operation returns paginated results.-module Network.AWS.DeviceFarm.ListDevicePools-    (-    -- * Creating a Request-      listDevicePools-    , ListDevicePools-    -- * Request Lenses-    , ldpNextToken-    , ldpType-    , ldpArn--    -- * Destructuring the Response-    , listDevicePoolsResponse-    , ListDevicePoolsResponse-    -- * Response Lenses-    , ldprsDevicePools-    , ldprsNextToken-    , ldprsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents the result of a list device pools request.------------ /See:/ 'listDevicePools' smart constructor.-data ListDevicePools = ListDevicePools'-  { _ldpNextToken :: !(Maybe Text)-  , _ldpType      :: !(Maybe DevicePoolType)-  , _ldpArn       :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListDevicePools' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ldpNextToken' - 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.------ * 'ldpType' - 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.------ * 'ldpArn' - The project ARN.-listDevicePools-    :: Text -- ^ 'ldpArn'-    -> ListDevicePools-listDevicePools pArn_ =-  ListDevicePools'-    {_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})---- | 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})---- | The project ARN.-ldpArn :: Lens' ListDevicePools Text-ldpArn = lens _ldpArn (\ s a -> s{_ldpArn = a})--instance AWSPager ListDevicePools where-        page rq rs-          | stop (rs ^. ldprsNextToken) = Nothing-          | stop (rs ^. ldprsDevicePools) = Nothing-          | otherwise =-            Just $ rq & ldpNextToken .~ rs ^. ldprsNextToken--instance AWSRequest ListDevicePools where-        type Rs ListDevicePools = ListDevicePoolsResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 ListDevicePoolsResponse' <$>-                   (x .?> "devicePools" .!@ mempty) <*>-                     (x .?> "nextToken")-                     <*> (pure (fromEnum s)))--instance Hashable ListDevicePools where--instance NFData ListDevicePools where--instance ToHeaders ListDevicePools where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.ListDevicePools" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON ListDevicePools where-        toJSON ListDevicePools'{..}-          = object-              (catMaybes-                 [("nextToken" .=) <$> _ldpNextToken,-                  ("type" .=) <$> _ldpType, Just ("arn" .= _ldpArn)])--instance ToPath ListDevicePools where-        toPath = const "/"--instance ToQuery ListDevicePools where-        toQuery = const mempty---- | Represents the result of a list device pools request.------------ /See:/ 'listDevicePoolsResponse' smart constructor.-data ListDevicePoolsResponse = ListDevicePoolsResponse'-  { _ldprsDevicePools    :: !(Maybe [DevicePool])-  , _ldprsNextToken      :: !(Maybe Text)-  , _ldprsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListDevicePoolsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ldprsDevicePools' - Information about the device pools.------ * 'ldprsNextToken' - 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.------ * 'ldprsResponseStatus' - -- | The response status code.-listDevicePoolsResponse-    :: Int -- ^ 'ldprsResponseStatus'-    -> ListDevicePoolsResponse-listDevicePoolsResponse pResponseStatus_ =-  ListDevicePoolsResponse'-    { _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---- | 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})---- | -- | The response status code.-ldprsResponseStatus :: Lens' ListDevicePoolsResponse Int-ldprsResponseStatus = lens _ldprsResponseStatus (\ s a -> s{_ldprsResponseStatus = a})--instance NFData ListDevicePoolsResponse where
− gen/Network/AWS/DeviceFarm/ListDevices.hs
@@ -1,170 +0,0 @@-{-# 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.ListDevices--- 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 unique device types.------------ This operation returns paginated results.-module Network.AWS.DeviceFarm.ListDevices-    (-    -- * Creating a Request-      listDevices-    , ListDevices-    -- * Request Lenses-    , ldArn-    , ldNextToken--    -- * Destructuring the Response-    , listDevicesResponse-    , ListDevicesResponse-    -- * Response Lenses-    , ldrsNextToken-    , ldrsDevices-    , ldrsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents the result of a list devices request.------------ /See:/ 'listDevices' smart constructor.-data ListDevices = ListDevices'-  { _ldArn       :: !(Maybe Text)-  , _ldNextToken :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListDevices' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ldArn' - The Amazon Resource Name (ARN) of the project.------ * 'ldNextToken' - 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.-listDevices-    :: ListDevices-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})---- | 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})--instance AWSPager ListDevices where-        page rq rs-          | stop (rs ^. ldrsNextToken) = Nothing-          | stop (rs ^. ldrsDevices) = Nothing-          | otherwise =-            Just $ rq & ldNextToken .~ rs ^. ldrsNextToken--instance AWSRequest ListDevices where-        type Rs ListDevices = ListDevicesResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 ListDevicesResponse' <$>-                   (x .?> "nextToken") <*> (x .?> "devices" .!@ mempty)-                     <*> (pure (fromEnum s)))--instance Hashable ListDevices where--instance NFData ListDevices where--instance ToHeaders ListDevices where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.ListDevices" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON ListDevices where-        toJSON ListDevices'{..}-          = object-              (catMaybes-                 [("arn" .=) <$> _ldArn,-                  ("nextToken" .=) <$> _ldNextToken])--instance ToPath ListDevices where-        toPath = const "/"--instance ToQuery ListDevices where-        toQuery = const mempty---- | Represents the result of a list devices operation.------------ /See:/ 'listDevicesResponse' smart constructor.-data ListDevicesResponse = ListDevicesResponse'-  { _ldrsNextToken      :: !(Maybe Text)-  , _ldrsDevices        :: !(Maybe [Device])-  , _ldrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListDevicesResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ldrsNextToken' - 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.------ * 'ldrsDevices' - Information about the devices.------ * 'ldrsResponseStatus' - -- | The response status code.-listDevicesResponse-    :: Int -- ^ 'ldrsResponseStatus'-    -> ListDevicesResponse-listDevicesResponse pResponseStatus_ =-  ListDevicesResponse'-    { _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})---- | Information about the devices.-ldrsDevices :: Lens' ListDevicesResponse [Device]-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})--instance NFData ListDevicesResponse where
− gen/Network/AWS/DeviceFarm/ListInstanceProfiles.hs
@@ -1,156 +0,0 @@-{-# 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
− gen/Network/AWS/DeviceFarm/ListJobs.hs
@@ -1,171 +0,0 @@-{-# 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.ListJobs--- 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 for a given test run.------------ This operation returns paginated results.-module Network.AWS.DeviceFarm.ListJobs-    (-    -- * Creating a Request-      listJobs-    , ListJobs-    -- * Request Lenses-    , ljNextToken-    , ljArn--    -- * Destructuring the Response-    , listJobsResponse-    , ListJobsResponse-    -- * Response Lenses-    , ljrsJobs-    , ljrsNextToken-    , ljrsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the list jobs operation.------------ /See:/ 'listJobs' smart constructor.-data ListJobs = ListJobs'-  { _ljNextToken :: !(Maybe Text)-  , _ljArn       :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListJobs' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * '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 run's Amazon Resource Name (ARN).-listJobs-    :: Text -- ^ 'ljArn'-    -> ListJobs-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})---- | The run's Amazon Resource Name (ARN).-ljArn :: Lens' ListJobs Text-ljArn = lens _ljArn (\ s a -> s{_ljArn = a})--instance AWSPager ListJobs where-        page rq rs-          | stop (rs ^. ljrsNextToken) = Nothing-          | stop (rs ^. ljrsJobs) = Nothing-          | otherwise =-            Just $ rq & ljNextToken .~ rs ^. ljrsNextToken--instance AWSRequest ListJobs where-        type Rs ListJobs = ListJobsResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 ListJobsResponse' <$>-                   (x .?> "jobs" .!@ mempty) <*> (x .?> "nextToken") <*>-                     (pure (fromEnum s)))--instance Hashable ListJobs where--instance NFData ListJobs where--instance ToHeaders ListJobs where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.ListJobs" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON ListJobs where-        toJSON ListJobs'{..}-          = object-              (catMaybes-                 [("nextToken" .=) <$> _ljNextToken,-                  Just ("arn" .= _ljArn)])--instance ToPath ListJobs where-        toPath = const "/"--instance ToQuery ListJobs where-        toQuery = const mempty---- | Represents the result of a list jobs request.------------ /See:/ 'listJobsResponse' smart constructor.-data ListJobsResponse = ListJobsResponse'-  { _ljrsJobs           :: !(Maybe [Job])-  , _ljrsNextToken      :: !(Maybe Text)-  , _ljrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListJobsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ljrsJobs' - Information about the jobs.------ * 'ljrsNextToken' - 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.------ * 'ljrsResponseStatus' - -- | The response status code.-listJobsResponse-    :: Int -- ^ 'ljrsResponseStatus'-    -> ListJobsResponse-listJobsResponse pResponseStatus_ =-  ListJobsResponse'-    { _ljrsJobs = Nothing-    , _ljrsNextToken = Nothing-    , _ljrsResponseStatus = pResponseStatus_-    }----- | Information about the jobs.-ljrsJobs :: Lens' ListJobsResponse [Job]-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})---- | -- | The response status code.-ljrsResponseStatus :: Lens' ListJobsResponse Int-ljrsResponseStatus = lens _ljrsResponseStatus (\ s a -> s{_ljrsResponseStatus = a})--instance NFData ListJobsResponse where
− gen/Network/AWS/DeviceFarm/ListNetworkProfiles.hs
@@ -1,166 +0,0 @@-{-# 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.ListNetworkProfiles--- 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 the list of available network profiles.-------module Network.AWS.DeviceFarm.ListNetworkProfiles-    (-    -- * Creating a Request-      listNetworkProfiles-    , ListNetworkProfiles-    -- * Request Lenses-    , lnpNextToken-    , lnpType-    , lnpArn--    -- * Destructuring the Response-    , listNetworkProfilesResponse-    , ListNetworkProfilesResponse-    -- * Response Lenses-    , lnprsNetworkProfiles-    , lnprsNextToken-    , lnprsResponseStatus-    ) 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:/ 'listNetworkProfiles' smart constructor.-data ListNetworkProfiles = ListNetworkProfiles'-  { _lnpNextToken :: !(Maybe Text)-  , _lnpType      :: !(Maybe NetworkProfileType)-  , _lnpArn       :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListNetworkProfiles' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lnpNextToken' - 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.------ * 'lnpType' - The type of network profile you wish to return information about. Valid values are listed below.------ * 'lnpArn' - The Amazon Resource Name (ARN) of the project for which you want to list network profiles.-listNetworkProfiles-    :: Text -- ^ 'lnpArn'-    -> ListNetworkProfiles-listNetworkProfiles pArn_ =-  ListNetworkProfiles'-    {_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})---- | 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})---- | 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})--instance AWSRequest ListNetworkProfiles where-        type Rs ListNetworkProfiles =-             ListNetworkProfilesResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 ListNetworkProfilesResponse' <$>-                   (x .?> "networkProfiles" .!@ mempty) <*>-                     (x .?> "nextToken")-                     <*> (pure (fromEnum s)))--instance Hashable ListNetworkProfiles where--instance NFData ListNetworkProfiles where--instance ToHeaders ListNetworkProfiles where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.ListNetworkProfiles" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON ListNetworkProfiles where-        toJSON ListNetworkProfiles'{..}-          = object-              (catMaybes-                 [("nextToken" .=) <$> _lnpNextToken,-                  ("type" .=) <$> _lnpType, Just ("arn" .= _lnpArn)])--instance ToPath ListNetworkProfiles where-        toPath = const "/"--instance ToQuery ListNetworkProfiles where-        toQuery = const mempty---- | /See:/ 'listNetworkProfilesResponse' smart constructor.-data ListNetworkProfilesResponse = ListNetworkProfilesResponse'-  { _lnprsNetworkProfiles :: !(Maybe [NetworkProfile])-  , _lnprsNextToken       :: !(Maybe Text)-  , _lnprsResponseStatus  :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListNetworkProfilesResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lnprsNetworkProfiles' - A list of the available network profiles.------ * 'lnprsNextToken' - 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.------ * 'lnprsResponseStatus' - -- | The response status code.-listNetworkProfilesResponse-    :: Int -- ^ 'lnprsResponseStatus'-    -> ListNetworkProfilesResponse-listNetworkProfilesResponse pResponseStatus_ =-  ListNetworkProfilesResponse'-    { _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---- | 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})---- | -- | The response status code.-lnprsResponseStatus :: Lens' ListNetworkProfilesResponse Int-lnprsResponseStatus = lens _lnprsResponseStatus (\ s a -> s{_lnprsResponseStatus = a})--instance NFData ListNetworkProfilesResponse where
− gen/Network/AWS/DeviceFarm/ListOfferingPromotions.hs
@@ -1,145 +0,0 @@-{-# 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.ListOfferingPromotions--- 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 a list of offering promotions. Each offering promotion record contains the ID and description of the promotion. The API returns a @NotEligible@ error if the caller is not permitted to invoke the operation. Contact <mailto:aws-devicefarm-support@amazon.com aws-devicefarm-support@amazon.com> if you believe that you should be able to invoke this operation.-------module Network.AWS.DeviceFarm.ListOfferingPromotions-    (-    -- * Creating a Request-      listOfferingPromotions-    , ListOfferingPromotions-    -- * Request Lenses-    , lopNextToken--    -- * Destructuring the Response-    , listOfferingPromotionsResponse-    , ListOfferingPromotionsResponse-    -- * Response Lenses-    , loprsNextToken-    , loprsOfferingPromotions-    , loprsResponseStatus-    ) 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:/ 'listOfferingPromotions' smart constructor.-newtype ListOfferingPromotions = ListOfferingPromotions'-  { _lopNextToken :: Maybe Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListOfferingPromotions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lopNextToken' - 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.-listOfferingPromotions-    :: ListOfferingPromotions-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})--instance AWSRequest ListOfferingPromotions where-        type Rs ListOfferingPromotions =-             ListOfferingPromotionsResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 ListOfferingPromotionsResponse' <$>-                   (x .?> "nextToken") <*>-                     (x .?> "offeringPromotions" .!@ mempty)-                     <*> (pure (fromEnum s)))--instance Hashable ListOfferingPromotions where--instance NFData ListOfferingPromotions where--instance ToHeaders ListOfferingPromotions where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.ListOfferingPromotions" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON ListOfferingPromotions where-        toJSON ListOfferingPromotions'{..}-          = object-              (catMaybes [("nextToken" .=) <$> _lopNextToken])--instance ToPath ListOfferingPromotions where-        toPath = const "/"--instance ToQuery ListOfferingPromotions where-        toQuery = const mempty---- | /See:/ 'listOfferingPromotionsResponse' smart constructor.-data ListOfferingPromotionsResponse = ListOfferingPromotionsResponse'-  { _loprsNextToken          :: !(Maybe Text)-  , _loprsOfferingPromotions :: !(Maybe [OfferingPromotion])-  , _loprsResponseStatus     :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListOfferingPromotionsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'loprsNextToken' - An identifier to be used in the next call to this operation, to return the next set of items in the list.------ * 'loprsOfferingPromotions' - Information about the offering promotions.------ * 'loprsResponseStatus' - -- | The response status code.-listOfferingPromotionsResponse-    :: Int -- ^ 'loprsResponseStatus'-    -> ListOfferingPromotionsResponse-listOfferingPromotionsResponse pResponseStatus_ =-  ListOfferingPromotionsResponse'-    { _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})---- | Information about the offering promotions.-loprsOfferingPromotions :: Lens' ListOfferingPromotionsResponse [OfferingPromotion]-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})--instance NFData ListOfferingPromotionsResponse where
− gen/Network/AWS/DeviceFarm/ListOfferingTransactions.hs
@@ -1,164 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DeviceFarm.ListOfferingTransactions--- Copyright   : (c) 2013-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 a list of all historical purchases, renewals, and system renewal transactions for an AWS account. The list is paginated and ordered by a descending timestamp (most recent transactions are first). The API returns a @NotEligible@ error if the user is not permitted to invoke the operation. Please contact <mailto:aws-devicefarm-support@amazon.com aws-devicefarm-support@amazon.com> if you believe that you should be able to invoke this operation.------------ This operation returns paginated results.-module Network.AWS.DeviceFarm.ListOfferingTransactions-    (-    -- * Creating a Request-      listOfferingTransactions-    , ListOfferingTransactions-    -- * Request Lenses-    , lotNextToken--    -- * Destructuring the Response-    , listOfferingTransactionsResponse-    , ListOfferingTransactionsResponse-    -- * Response Lenses-    , lotrsOfferingTransactions-    , lotrsNextToken-    , lotrsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents the request to list the offering transaction history.------------ /See:/ 'listOfferingTransactions' smart constructor.-newtype ListOfferingTransactions = ListOfferingTransactions'-  { _lotNextToken :: Maybe Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListOfferingTransactions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lotNextToken' - 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.-listOfferingTransactions-    :: ListOfferingTransactions-listOfferingTransactions = ListOfferingTransactions' {_lotNextToken = Nothing}----- | An identifier that was returned from the previous call to this operation, which can be used to return the next set of items in the list.-lotNextToken :: Lens' ListOfferingTransactions (Maybe Text)-lotNextToken = lens _lotNextToken (\ s a -> s{_lotNextToken = a})--instance AWSPager ListOfferingTransactions where-        page rq rs-          | stop (rs ^. lotrsNextToken) = Nothing-          | stop (rs ^. lotrsOfferingTransactions) = Nothing-          | otherwise =-            Just $ rq & lotNextToken .~ rs ^. lotrsNextToken--instance AWSRequest ListOfferingTransactions where-        type Rs ListOfferingTransactions =-             ListOfferingTransactionsResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 ListOfferingTransactionsResponse' <$>-                   (x .?> "offeringTransactions" .!@ mempty) <*>-                     (x .?> "nextToken")-                     <*> (pure (fromEnum s)))--instance Hashable ListOfferingTransactions where--instance NFData ListOfferingTransactions where--instance ToHeaders ListOfferingTransactions where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.ListOfferingTransactions" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON ListOfferingTransactions where-        toJSON ListOfferingTransactions'{..}-          = object-              (catMaybes [("nextToken" .=) <$> _lotNextToken])--instance ToPath ListOfferingTransactions where-        toPath = const "/"--instance ToQuery ListOfferingTransactions where-        toQuery = const mempty---- | Returns the transaction log of the specified offerings.------------ /See:/ 'listOfferingTransactionsResponse' smart constructor.-data ListOfferingTransactionsResponse = ListOfferingTransactionsResponse'-  { _lotrsOfferingTransactions :: !(Maybe [OfferingTransaction])-  , _lotrsNextToken            :: !(Maybe Text)-  , _lotrsResponseStatus       :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListOfferingTransactionsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lotrsOfferingTransactions' - The audit log of subscriptions you have purchased and modified through AWS Device Farm.------ * 'lotrsNextToken' - 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.------ * 'lotrsResponseStatus' - -- | The response status code.-listOfferingTransactionsResponse-    :: Int -- ^ 'lotrsResponseStatus'-    -> ListOfferingTransactionsResponse-listOfferingTransactionsResponse pResponseStatus_ =-  ListOfferingTransactionsResponse'-    { _lotrsOfferingTransactions = Nothing-    , _lotrsNextToken = Nothing-    , _lotrsResponseStatus = pResponseStatus_-    }----- | The audit log of subscriptions you have purchased and modified through AWS Device Farm.-lotrsOfferingTransactions :: Lens' ListOfferingTransactionsResponse [OfferingTransaction]-lotrsOfferingTransactions = lens _lotrsOfferingTransactions (\ s a -> s{_lotrsOfferingTransactions = a}) . _Default . _Coerce---- | An identifier that was returned from the previous call to this operation, which can be used to return the next set of items in the list.-lotrsNextToken :: Lens' ListOfferingTransactionsResponse (Maybe Text)-lotrsNextToken = lens _lotrsNextToken (\ s a -> s{_lotrsNextToken = a})---- | -- | The response status code.-lotrsResponseStatus :: Lens' ListOfferingTransactionsResponse Int-lotrsResponseStatus = lens _lotrsResponseStatus (\ s a -> s{_lotrsResponseStatus = a})--instance NFData ListOfferingTransactionsResponse-         where
− gen/Network/AWS/DeviceFarm/ListOfferings.hs
@@ -1,161 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DeviceFarm.ListOfferings--- Copyright   : (c) 2013-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 a list of products or offerings that the user can manage through the API. Each offering record indicates the recurring price per unit and the frequency for that offering. The API returns a @NotEligible@ error if the user is not permitted to invoke the operation. Please contact <mailto:aws-devicefarm-support@amazon.com aws-devicefarm-support@amazon.com> if you believe that you should be able to invoke this operation.------------ This operation returns paginated results.-module Network.AWS.DeviceFarm.ListOfferings-    (-    -- * Creating a Request-      listOfferings-    , ListOfferings-    -- * Request Lenses-    , loNextToken--    -- * Destructuring the Response-    , listOfferingsResponse-    , ListOfferingsResponse-    -- * Response Lenses-    , lorsNextToken-    , lorsOfferings-    , lorsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents the request to list all offerings.------------ /See:/ 'listOfferings' smart constructor.-newtype ListOfferings = ListOfferings'-  { _loNextToken :: Maybe Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListOfferings' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'loNextToken' - 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.-listOfferings-    :: ListOfferings-listOfferings = ListOfferings' {_loNextToken = Nothing}----- | An identifier that was returned from the previous call to this operation, which can be used to return the next set of items in the list.-loNextToken :: Lens' ListOfferings (Maybe Text)-loNextToken = lens _loNextToken (\ s a -> s{_loNextToken = a})--instance AWSPager ListOfferings where-        page rq rs-          | stop (rs ^. lorsNextToken) = Nothing-          | stop (rs ^. lorsOfferings) = Nothing-          | otherwise =-            Just $ rq & loNextToken .~ rs ^. lorsNextToken--instance AWSRequest ListOfferings where-        type Rs ListOfferings = ListOfferingsResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 ListOfferingsResponse' <$>-                   (x .?> "nextToken") <*>-                     (x .?> "offerings" .!@ mempty)-                     <*> (pure (fromEnum s)))--instance Hashable ListOfferings where--instance NFData ListOfferings where--instance ToHeaders ListOfferings where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.ListOfferings" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON ListOfferings where-        toJSON ListOfferings'{..}-          = object-              (catMaybes [("nextToken" .=) <$> _loNextToken])--instance ToPath ListOfferings where-        toPath = const "/"--instance ToQuery ListOfferings where-        toQuery = const mempty---- | Represents the return values of the list of offerings.------------ /See:/ 'listOfferingsResponse' smart constructor.-data ListOfferingsResponse = ListOfferingsResponse'-  { _lorsNextToken      :: !(Maybe Text)-  , _lorsOfferings      :: !(Maybe [Offering])-  , _lorsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListOfferingsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lorsNextToken' - 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.------ * 'lorsOfferings' - A value representing the list offering results.------ * 'lorsResponseStatus' - -- | The response status code.-listOfferingsResponse-    :: Int -- ^ 'lorsResponseStatus'-    -> ListOfferingsResponse-listOfferingsResponse pResponseStatus_ =-  ListOfferingsResponse'-    { _lorsNextToken = Nothing-    , _lorsOfferings = Nothing-    , _lorsResponseStatus = pResponseStatus_-    }----- | An identifier that was returned from the previous call to this operation, which can be used to return the next set of items in the list.-lorsNextToken :: Lens' ListOfferingsResponse (Maybe Text)-lorsNextToken = lens _lorsNextToken (\ s a -> s{_lorsNextToken = a})---- | A value representing the list offering results.-lorsOfferings :: Lens' ListOfferingsResponse [Offering]-lorsOfferings = lens _lorsOfferings (\ s a -> s{_lorsOfferings = a}) . _Default . _Coerce---- | -- | The response status code.-lorsResponseStatus :: Lens' ListOfferingsResponse Int-lorsResponseStatus = lens _lorsResponseStatus (\ s a -> s{_lorsResponseStatus = a})--instance NFData ListOfferingsResponse where
− gen/Network/AWS/DeviceFarm/ListProjects.hs
@@ -1,170 +0,0 @@-{-# 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.ListProjects--- 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 projects.------------ This operation returns paginated results.-module Network.AWS.DeviceFarm.ListProjects-    (-    -- * Creating a Request-      listProjects-    , ListProjects-    -- * Request Lenses-    , lpArn-    , lpNextToken--    -- * Destructuring the Response-    , listProjectsResponse-    , ListProjectsResponse-    -- * Response Lenses-    , lprsNextToken-    , lprsProjects-    , lprsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the list projects operation.------------ /See:/ 'listProjects' smart constructor.-data ListProjects = ListProjects'-  { _lpArn       :: !(Maybe Text)-  , _lpNextToken :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListProjects' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lpArn' - 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.------ * 'lpNextToken' - 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.-listProjects-    :: ListProjects-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})---- | 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})--instance AWSPager ListProjects where-        page rq rs-          | stop (rs ^. lprsNextToken) = Nothing-          | stop (rs ^. lprsProjects) = Nothing-          | otherwise =-            Just $ rq & lpNextToken .~ rs ^. lprsNextToken--instance AWSRequest ListProjects where-        type Rs ListProjects = ListProjectsResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 ListProjectsResponse' <$>-                   (x .?> "nextToken") <*> (x .?> "projects" .!@ mempty)-                     <*> (pure (fromEnum s)))--instance Hashable ListProjects where--instance NFData ListProjects where--instance ToHeaders ListProjects where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.ListProjects" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON ListProjects where-        toJSON ListProjects'{..}-          = object-              (catMaybes-                 [("arn" .=) <$> _lpArn,-                  ("nextToken" .=) <$> _lpNextToken])--instance ToPath ListProjects where-        toPath = const "/"--instance ToQuery ListProjects where-        toQuery = const mempty---- | Represents the result of a list projects request.------------ /See:/ 'listProjectsResponse' smart constructor.-data ListProjectsResponse = ListProjectsResponse'-  { _lprsNextToken      :: !(Maybe Text)-  , _lprsProjects       :: !(Maybe [Project])-  , _lprsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListProjectsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lprsNextToken' - 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.------ * 'lprsProjects' - Information about the projects.------ * 'lprsResponseStatus' - -- | The response status code.-listProjectsResponse-    :: Int -- ^ 'lprsResponseStatus'-    -> ListProjectsResponse-listProjectsResponse pResponseStatus_ =-  ListProjectsResponse'-    { _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})---- | Information about the projects.-lprsProjects :: Lens' ListProjectsResponse [Project]-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})--instance NFData ListProjectsResponse where
− gen/Network/AWS/DeviceFarm/ListRemoteAccessSessions.hs
@@ -1,166 +0,0 @@-{-# 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.ListRemoteAccessSessions--- 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 a list of all currently running remote access sessions.-------module Network.AWS.DeviceFarm.ListRemoteAccessSessions-    (-    -- * Creating a Request-      listRemoteAccessSessions-    , ListRemoteAccessSessions-    -- * Request Lenses-    , lrasNextToken-    , lrasArn--    -- * Destructuring the Response-    , listRemoteAccessSessionsResponse-    , ListRemoteAccessSessionsResponse-    -- * Response Lenses-    , lrasrsNextToken-    , lrasrsRemoteAccessSessions-    , lrasrsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents the request to return information about the remote access session.------------ /See:/ 'listRemoteAccessSessions' smart constructor.-data ListRemoteAccessSessions = ListRemoteAccessSessions'-  { _lrasNextToken :: !(Maybe Text)-  , _lrasArn       :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListRemoteAccessSessions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lrasNextToken' - 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.------ * 'lrasArn' - The Amazon Resource Name (ARN) of the remote access session about which you are requesting information.-listRemoteAccessSessions-    :: Text -- ^ 'lrasArn'-    -> ListRemoteAccessSessions-listRemoteAccessSessions pArn_ =-  ListRemoteAccessSessions' {_lrasNextToken = Nothing, _lrasArn = 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})---- | 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})--instance AWSRequest ListRemoteAccessSessions where-        type Rs ListRemoteAccessSessions =-             ListRemoteAccessSessionsResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 ListRemoteAccessSessionsResponse' <$>-                   (x .?> "nextToken") <*>-                     (x .?> "remoteAccessSessions" .!@ mempty)-                     <*> (pure (fromEnum s)))--instance Hashable ListRemoteAccessSessions where--instance NFData ListRemoteAccessSessions where--instance ToHeaders ListRemoteAccessSessions where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.ListRemoteAccessSessions" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON ListRemoteAccessSessions where-        toJSON ListRemoteAccessSessions'{..}-          = object-              (catMaybes-                 [("nextToken" .=) <$> _lrasNextToken,-                  Just ("arn" .= _lrasArn)])--instance ToPath ListRemoteAccessSessions where-        toPath = const "/"--instance ToQuery ListRemoteAccessSessions where-        toQuery = const mempty---- | Represents the response from the server after AWS Device Farm makes a request to return information about the remote access session.------------ /See:/ 'listRemoteAccessSessionsResponse' smart constructor.-data ListRemoteAccessSessionsResponse = ListRemoteAccessSessionsResponse'-  { _lrasrsNextToken            :: !(Maybe Text)-  , _lrasrsRemoteAccessSessions :: !(Maybe [RemoteAccessSession])-  , _lrasrsResponseStatus       :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListRemoteAccessSessionsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lrasrsNextToken' - 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.------ * 'lrasrsRemoteAccessSessions' - A container representing the metadata from the service about each remote access session you are requesting.------ * 'lrasrsResponseStatus' - -- | The response status code.-listRemoteAccessSessionsResponse-    :: Int -- ^ 'lrasrsResponseStatus'-    -> ListRemoteAccessSessionsResponse-listRemoteAccessSessionsResponse pResponseStatus_ =-  ListRemoteAccessSessionsResponse'-    { _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})---- | 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---- | -- | The response status code.-lrasrsResponseStatus :: Lens' ListRemoteAccessSessionsResponse Int-lrasrsResponseStatus = lens _lrasrsResponseStatus (\ s a -> s{_lrasrsResponseStatus = a})--instance NFData ListRemoteAccessSessionsResponse-         where
− gen/Network/AWS/DeviceFarm/ListRuns.hs
@@ -1,171 +0,0 @@-{-# 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.ListRuns--- 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 runs, given an AWS Device Farm project ARN.------------ This operation returns paginated results.-module Network.AWS.DeviceFarm.ListRuns-    (-    -- * Creating a Request-      listRuns-    , ListRuns-    -- * Request Lenses-    , lrNextToken-    , lrArn--    -- * Destructuring the Response-    , listRunsResponse-    , ListRunsResponse-    -- * Response Lenses-    , lrrsRuns-    , lrrsNextToken-    , lrrsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the list runs operation.------------ /See:/ 'listRuns' smart constructor.-data ListRuns = ListRuns'-  { _lrNextToken :: !(Maybe Text)-  , _lrArn       :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListRuns' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lrNextToken' - 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.------ * 'lrArn' - The Amazon Resource Name (ARN) of the project for which you want to list runs.-listRuns-    :: Text -- ^ 'lrArn'-    -> ListRuns-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})---- | 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})--instance AWSPager ListRuns where-        page rq rs-          | stop (rs ^. lrrsNextToken) = Nothing-          | stop (rs ^. lrrsRuns) = Nothing-          | otherwise =-            Just $ rq & lrNextToken .~ rs ^. lrrsNextToken--instance AWSRequest ListRuns where-        type Rs ListRuns = ListRunsResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 ListRunsResponse' <$>-                   (x .?> "runs" .!@ mempty) <*> (x .?> "nextToken") <*>-                     (pure (fromEnum s)))--instance Hashable ListRuns where--instance NFData ListRuns where--instance ToHeaders ListRuns where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.ListRuns" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON ListRuns where-        toJSON ListRuns'{..}-          = object-              (catMaybes-                 [("nextToken" .=) <$> _lrNextToken,-                  Just ("arn" .= _lrArn)])--instance ToPath ListRuns where-        toPath = const "/"--instance ToQuery ListRuns where-        toQuery = const mempty---- | Represents the result of a list runs request.------------ /See:/ 'listRunsResponse' smart constructor.-data ListRunsResponse = ListRunsResponse'-  { _lrrsRuns           :: !(Maybe [Run])-  , _lrrsNextToken      :: !(Maybe Text)-  , _lrrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListRunsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lrrsRuns' - Information about the runs.------ * 'lrrsNextToken' - 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.------ * 'lrrsResponseStatus' - -- | The response status code.-listRunsResponse-    :: Int -- ^ 'lrrsResponseStatus'-    -> ListRunsResponse-listRunsResponse pResponseStatus_ =-  ListRunsResponse'-    { _lrrsRuns = Nothing-    , _lrrsNextToken = Nothing-    , _lrrsResponseStatus = pResponseStatus_-    }----- | Information about the runs.-lrrsRuns :: Lens' ListRunsResponse [Run]-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})---- | -- | The response status code.-lrrsResponseStatus :: Lens' ListRunsResponse Int-lrrsResponseStatus = lens _lrrsResponseStatus (\ s a -> s{_lrrsResponseStatus = a})--instance NFData ListRunsResponse where
− gen/Network/AWS/DeviceFarm/ListSamples.hs
@@ -1,171 +0,0 @@-{-# 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.ListSamples--- 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 samples, given an AWS Device Farm project ARN------------ This operation returns paginated results.-module Network.AWS.DeviceFarm.ListSamples-    (-    -- * Creating a Request-      listSamples-    , ListSamples-    -- * Request Lenses-    , lsNextToken-    , lsArn--    -- * Destructuring the Response-    , listSamplesResponse-    , ListSamplesResponse-    -- * Response Lenses-    , lrsNextToken-    , lrsSamples-    , lrsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the list samples operation.------------ /See:/ 'listSamples' smart constructor.-data ListSamples = ListSamples'-  { _lsNextToken :: !(Maybe Text)-  , _lsArn       :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListSamples' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lsNextToken' - 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.------ * 'lsArn' - The Amazon Resource Name (ARN) of the project for which you want to list samples.-listSamples-    :: Text -- ^ 'lsArn'-    -> ListSamples-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})---- | 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})--instance AWSPager ListSamples where-        page rq rs-          | stop (rs ^. lrsNextToken) = Nothing-          | stop (rs ^. lrsSamples) = Nothing-          | otherwise =-            Just $ rq & lsNextToken .~ rs ^. lrsNextToken--instance AWSRequest ListSamples where-        type Rs ListSamples = ListSamplesResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 ListSamplesResponse' <$>-                   (x .?> "nextToken") <*> (x .?> "samples" .!@ mempty)-                     <*> (pure (fromEnum s)))--instance Hashable ListSamples where--instance NFData ListSamples where--instance ToHeaders ListSamples where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.ListSamples" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON ListSamples where-        toJSON ListSamples'{..}-          = object-              (catMaybes-                 [("nextToken" .=) <$> _lsNextToken,-                  Just ("arn" .= _lsArn)])--instance ToPath ListSamples where-        toPath = const "/"--instance ToQuery ListSamples where-        toQuery = const mempty---- | Represents the result of a list samples request.------------ /See:/ 'listSamplesResponse' smart constructor.-data ListSamplesResponse = ListSamplesResponse'-  { _lrsNextToken      :: !(Maybe Text)-  , _lrsSamples        :: !(Maybe [Sample])-  , _lrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListSamplesResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lrsNextToken' - 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.------ * 'lrsSamples' - Information about the samples.------ * 'lrsResponseStatus' - -- | The response status code.-listSamplesResponse-    :: Int -- ^ 'lrsResponseStatus'-    -> ListSamplesResponse-listSamplesResponse pResponseStatus_ =-  ListSamplesResponse'-    { _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})---- | Information about the samples.-lrsSamples :: Lens' ListSamplesResponse [Sample]-lrsSamples = lens _lrsSamples (\ s a -> s{_lrsSamples = a}) . _Default . _Coerce---- | -- | The response status code.-lrsResponseStatus :: Lens' ListSamplesResponse Int-lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a})--instance NFData ListSamplesResponse where
− gen/Network/AWS/DeviceFarm/ListSuites.hs
@@ -1,171 +0,0 @@-{-# 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.ListSuites--- 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 test suites for a given job.------------ This operation returns paginated results.-module Network.AWS.DeviceFarm.ListSuites-    (-    -- * Creating a Request-      listSuites-    , ListSuites-    -- * Request Lenses-    , lNextToken-    , lArn--    -- * Destructuring the Response-    , listSuitesResponse-    , ListSuitesResponse-    -- * Response Lenses-    , lsrsNextToken-    , lsrsSuites-    , lsrsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the list suites operation.------------ /See:/ 'listSuites' smart constructor.-data ListSuites = ListSuites'-  { _lNextToken :: !(Maybe Text)-  , _lArn       :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListSuites' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * '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 job's Amazon Resource Name (ARN).-listSuites-    :: Text -- ^ 'lArn'-    -> ListSuites-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})---- | The job's Amazon Resource Name (ARN).-lArn :: Lens' ListSuites Text-lArn = lens _lArn (\ s a -> s{_lArn = a})--instance AWSPager ListSuites where-        page rq rs-          | stop (rs ^. lsrsNextToken) = Nothing-          | stop (rs ^. lsrsSuites) = Nothing-          | otherwise =-            Just $ rq & lNextToken .~ rs ^. lsrsNextToken--instance AWSRequest ListSuites where-        type Rs ListSuites = ListSuitesResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 ListSuitesResponse' <$>-                   (x .?> "nextToken") <*> (x .?> "suites" .!@ mempty)-                     <*> (pure (fromEnum s)))--instance Hashable ListSuites where--instance NFData ListSuites where--instance ToHeaders ListSuites where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.ListSuites" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON ListSuites where-        toJSON ListSuites'{..}-          = object-              (catMaybes-                 [("nextToken" .=) <$> _lNextToken,-                  Just ("arn" .= _lArn)])--instance ToPath ListSuites where-        toPath = const "/"--instance ToQuery ListSuites where-        toQuery = const mempty---- | Represents the result of a list suites request.------------ /See:/ 'listSuitesResponse' smart constructor.-data ListSuitesResponse = ListSuitesResponse'-  { _lsrsNextToken      :: !(Maybe Text)-  , _lsrsSuites         :: !(Maybe [Suite])-  , _lsrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListSuitesResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lsrsNextToken' - 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.------ * 'lsrsSuites' - Information about the suites.------ * 'lsrsResponseStatus' - -- | The response status code.-listSuitesResponse-    :: Int -- ^ 'lsrsResponseStatus'-    -> ListSuitesResponse-listSuitesResponse pResponseStatus_ =-  ListSuitesResponse'-    { _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})---- | Information about the suites.-lsrsSuites :: Lens' ListSuitesResponse [Suite]-lsrsSuites = lens _lsrsSuites (\ s a -> s{_lsrsSuites = a}) . _Default . _Coerce---- | -- | The response status code.-lsrsResponseStatus :: Lens' ListSuitesResponse Int-lsrsResponseStatus = lens _lsrsResponseStatus (\ s a -> s{_lsrsResponseStatus = a})--instance NFData ListSuitesResponse where
− gen/Network/AWS/DeviceFarm/ListTests.hs
@@ -1,171 +0,0 @@-{-# 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.ListTests--- 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 in a given test suite.------------ This operation returns paginated results.-module Network.AWS.DeviceFarm.ListTests-    (-    -- * Creating a Request-      listTests-    , ListTests-    -- * Request Lenses-    , ltNextToken-    , ltArn--    -- * Destructuring the Response-    , listTestsResponse-    , ListTestsResponse-    -- * Response Lenses-    , ltrsTests-    , ltrsNextToken-    , ltrsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the list tests operation.------------ /See:/ 'listTests' smart constructor.-data ListTests = ListTests'-  { _ltNextToken :: !(Maybe Text)-  , _ltArn       :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListTests' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * '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 test suite's Amazon Resource Name (ARN).-listTests-    :: Text -- ^ 'ltArn'-    -> ListTests-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})---- | The test suite's Amazon Resource Name (ARN).-ltArn :: Lens' ListTests Text-ltArn = lens _ltArn (\ s a -> s{_ltArn = a})--instance AWSPager ListTests where-        page rq rs-          | stop (rs ^. ltrsNextToken) = Nothing-          | stop (rs ^. ltrsTests) = Nothing-          | otherwise =-            Just $ rq & ltNextToken .~ rs ^. ltrsNextToken--instance AWSRequest ListTests where-        type Rs ListTests = ListTestsResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 ListTestsResponse' <$>-                   (x .?> "tests" .!@ mempty) <*> (x .?> "nextToken")-                     <*> (pure (fromEnum s)))--instance Hashable ListTests where--instance NFData ListTests where--instance ToHeaders ListTests where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.ListTests" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON ListTests where-        toJSON ListTests'{..}-          = object-              (catMaybes-                 [("nextToken" .=) <$> _ltNextToken,-                  Just ("arn" .= _ltArn)])--instance ToPath ListTests where-        toPath = const "/"--instance ToQuery ListTests where-        toQuery = const mempty---- | Represents the result of a list tests request.------------ /See:/ 'listTestsResponse' smart constructor.-data ListTestsResponse = ListTestsResponse'-  { _ltrsTests          :: !(Maybe [Test])-  , _ltrsNextToken      :: !(Maybe Text)-  , _ltrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListTestsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ltrsTests' - Information about the tests.------ * 'ltrsNextToken' - 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.------ * 'ltrsResponseStatus' - -- | The response status code.-listTestsResponse-    :: Int -- ^ 'ltrsResponseStatus'-    -> ListTestsResponse-listTestsResponse pResponseStatus_ =-  ListTestsResponse'-    { _ltrsTests = Nothing-    , _ltrsNextToken = Nothing-    , _ltrsResponseStatus = pResponseStatus_-    }----- | Information about the tests.-ltrsTests :: Lens' ListTestsResponse [Test]-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})---- | -- | The response status code.-ltrsResponseStatus :: Lens' ListTestsResponse Int-ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a})--instance NFData ListTestsResponse where
− gen/Network/AWS/DeviceFarm/ListUniqueProblems.hs
@@ -1,175 +0,0 @@-{-# 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.ListUniqueProblems--- 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 unique problems.------------ This operation returns paginated results.-module Network.AWS.DeviceFarm.ListUniqueProblems-    (-    -- * Creating a Request-      listUniqueProblems-    , ListUniqueProblems-    -- * Request Lenses-    , lupNextToken-    , lupArn--    -- * Destructuring the Response-    , listUniqueProblemsResponse-    , ListUniqueProblemsResponse-    -- * Response Lenses-    , luprsNextToken-    , luprsUniqueProblems-    , luprsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the list unique problems operation.------------ /See:/ 'listUniqueProblems' smart constructor.-data ListUniqueProblems = ListUniqueProblems'-  { _lupNextToken :: !(Maybe Text)-  , _lupArn       :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListUniqueProblems' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lupNextToken' - 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.------ * 'lupArn' - The unique problems' ARNs.-listUniqueProblems-    :: Text -- ^ 'lupArn'-    -> ListUniqueProblems-listUniqueProblems pArn_ =-  ListUniqueProblems' {_lupNextToken = Nothing, _lupArn = 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})---- | The unique problems' ARNs.-lupArn :: Lens' ListUniqueProblems Text-lupArn = lens _lupArn (\ s a -> s{_lupArn = a})--instance AWSPager ListUniqueProblems where-        page rq rs-          | stop (rs ^. luprsNextToken) = Nothing-          | stop (rs ^. luprsUniqueProblems) = Nothing-          | otherwise =-            Just $ rq & lupNextToken .~ rs ^. luprsNextToken--instance AWSRequest ListUniqueProblems where-        type Rs ListUniqueProblems =-             ListUniqueProblemsResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 ListUniqueProblemsResponse' <$>-                   (x .?> "nextToken") <*>-                     (x .?> "uniqueProblems" .!@ mempty)-                     <*> (pure (fromEnum s)))--instance Hashable ListUniqueProblems where--instance NFData ListUniqueProblems where--instance ToHeaders ListUniqueProblems where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.ListUniqueProblems" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON ListUniqueProblems where-        toJSON ListUniqueProblems'{..}-          = object-              (catMaybes-                 [("nextToken" .=) <$> _lupNextToken,-                  Just ("arn" .= _lupArn)])--instance ToPath ListUniqueProblems where-        toPath = const "/"--instance ToQuery ListUniqueProblems where-        toQuery = const mempty---- | Represents the result of a list unique problems request.------------ /See:/ 'listUniqueProblemsResponse' smart constructor.-data ListUniqueProblemsResponse = ListUniqueProblemsResponse'-  { _luprsNextToken      :: !(Maybe Text)-  , _luprsUniqueProblems :: !(Maybe (Map ExecutionResult [UniqueProblem]))-  , _luprsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListUniqueProblemsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'luprsNextToken' - 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.------ * 'luprsUniqueProblems' - 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.------ * 'luprsResponseStatus' - -- | The response status code.-listUniqueProblemsResponse-    :: Int -- ^ 'luprsResponseStatus'-    -> ListUniqueProblemsResponse-listUniqueProblemsResponse pResponseStatus_ =-  ListUniqueProblemsResponse'-    { _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})---- | 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---- | -- | The response status code.-luprsResponseStatus :: Lens' ListUniqueProblemsResponse Int-luprsResponseStatus = lens _luprsResponseStatus (\ s a -> s{_luprsResponseStatus = a})--instance NFData ListUniqueProblemsResponse where
− gen/Network/AWS/DeviceFarm/ListUploads.hs
@@ -1,171 +0,0 @@-{-# 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.ListUploads--- 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 uploads, given an AWS Device Farm project ARN.------------ This operation returns paginated results.-module Network.AWS.DeviceFarm.ListUploads-    (-    -- * Creating a Request-      listUploads-    , ListUploads-    -- * Request Lenses-    , luNextToken-    , luArn--    -- * Destructuring the Response-    , listUploadsResponse-    , ListUploadsResponse-    -- * Response Lenses-    , lursNextToken-    , lursUploads-    , lursResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the list uploads operation.------------ /See:/ 'listUploads' smart constructor.-data ListUploads = ListUploads'-  { _luNextToken :: !(Maybe Text)-  , _luArn       :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListUploads' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'luNextToken' - 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.------ * 'luArn' - The Amazon Resource Name (ARN) of the project for which you want to list uploads.-listUploads-    :: Text -- ^ 'luArn'-    -> ListUploads-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})---- | 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})--instance AWSPager ListUploads where-        page rq rs-          | stop (rs ^. lursNextToken) = Nothing-          | stop (rs ^. lursUploads) = Nothing-          | otherwise =-            Just $ rq & luNextToken .~ rs ^. lursNextToken--instance AWSRequest ListUploads where-        type Rs ListUploads = ListUploadsResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 ListUploadsResponse' <$>-                   (x .?> "nextToken") <*> (x .?> "uploads" .!@ mempty)-                     <*> (pure (fromEnum s)))--instance Hashable ListUploads where--instance NFData ListUploads where--instance ToHeaders ListUploads where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.ListUploads" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON ListUploads where-        toJSON ListUploads'{..}-          = object-              (catMaybes-                 [("nextToken" .=) <$> _luNextToken,-                  Just ("arn" .= _luArn)])--instance ToPath ListUploads where-        toPath = const "/"--instance ToQuery ListUploads where-        toQuery = const mempty---- | Represents the result of a list uploads request.------------ /See:/ 'listUploadsResponse' smart constructor.-data ListUploadsResponse = ListUploadsResponse'-  { _lursNextToken      :: !(Maybe Text)-  , _lursUploads        :: !(Maybe [Upload])-  , _lursResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListUploadsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lursNextToken' - 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.------ * 'lursUploads' - Information about the uploads.------ * 'lursResponseStatus' - -- | The response status code.-listUploadsResponse-    :: Int -- ^ 'lursResponseStatus'-    -> ListUploadsResponse-listUploadsResponse pResponseStatus_ =-  ListUploadsResponse'-    { _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})---- | Information about the uploads.-lursUploads :: Lens' ListUploadsResponse [Upload]-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})--instance NFData ListUploadsResponse where
− gen/Network/AWS/DeviceFarm/ListVPCEConfigurations.hs
@@ -1,156 +0,0 @@-{-# 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
− gen/Network/AWS/DeviceFarm/PurchaseOffering.hs
@@ -1,165 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DeviceFarm.PurchaseOffering--- Copyright   : (c) 2013-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)------ Immediately purchases offerings for an AWS account. Offerings renew with the latest total purchased quantity for an offering, unless the renewal was overridden. The API returns a @NotEligible@ error if the user is not permitted to invoke the operation. Please contact <mailto:aws-devicefarm-support@amazon.com aws-devicefarm-support@amazon.com> if you believe that you should be able to invoke this operation.-------module Network.AWS.DeviceFarm.PurchaseOffering-    (-    -- * Creating a Request-      purchaseOffering-    , PurchaseOffering-    -- * Request Lenses-    , poQuantity-    , poOfferingId-    , poOfferingPromotionId--    -- * Destructuring the Response-    , purchaseOfferingResponse-    , PurchaseOfferingResponse-    -- * Response Lenses-    , porsOfferingTransaction-    , porsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request for a purchase offering.------------ /See:/ 'purchaseOffering' smart constructor.-data PurchaseOffering = PurchaseOffering'-  { _poQuantity            :: !(Maybe Int)-  , _poOfferingId          :: !(Maybe Text)-  , _poOfferingPromotionId :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'PurchaseOffering' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'poQuantity' - The number of device slots you wish to purchase in an offering request.------ * 'poOfferingId' - The ID of the offering.------ * 'poOfferingPromotionId' - The ID of the offering promotion to be applied to the purchase.-purchaseOffering-    :: PurchaseOffering-purchaseOffering =-  PurchaseOffering'-    { _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})---- | The ID of the offering.-poOfferingId :: Lens' PurchaseOffering (Maybe Text)-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})--instance AWSRequest PurchaseOffering where-        type Rs PurchaseOffering = PurchaseOfferingResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 PurchaseOfferingResponse' <$>-                   (x .?> "offeringTransaction") <*>-                     (pure (fromEnum s)))--instance Hashable PurchaseOffering where--instance NFData PurchaseOffering where--instance ToHeaders PurchaseOffering where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.PurchaseOffering" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON PurchaseOffering where-        toJSON PurchaseOffering'{..}-          = object-              (catMaybes-                 [("quantity" .=) <$> _poQuantity,-                  ("offeringId" .=) <$> _poOfferingId,-                  ("offeringPromotionId" .=) <$>-                    _poOfferingPromotionId])--instance ToPath PurchaseOffering where-        toPath = const "/"--instance ToQuery PurchaseOffering where-        toQuery = const mempty---- | The result of the purchase offering (e.g., success or failure).------------ /See:/ 'purchaseOfferingResponse' smart constructor.-data PurchaseOfferingResponse = PurchaseOfferingResponse'-  { _porsOfferingTransaction :: !(Maybe OfferingTransaction)-  , _porsResponseStatus      :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'PurchaseOfferingResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'porsOfferingTransaction' - Represents the offering transaction for the purchase result.------ * 'porsResponseStatus' - -- | The response status code.-purchaseOfferingResponse-    :: Int -- ^ 'porsResponseStatus'-    -> PurchaseOfferingResponse-purchaseOfferingResponse pResponseStatus_ =-  PurchaseOfferingResponse'-    {_porsOfferingTransaction = Nothing, _porsResponseStatus = pResponseStatus_}----- | Represents the offering transaction for the purchase result.-porsOfferingTransaction :: Lens' PurchaseOfferingResponse (Maybe OfferingTransaction)-porsOfferingTransaction = lens _porsOfferingTransaction (\ s a -> s{_porsOfferingTransaction = a})---- | -- | The response status code.-porsResponseStatus :: Lens' PurchaseOfferingResponse Int-porsResponseStatus = lens _porsResponseStatus (\ s a -> s{_porsResponseStatus = a})--instance NFData PurchaseOfferingResponse where
− gen/Network/AWS/DeviceFarm/RenewOffering.hs
@@ -1,149 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DeviceFarm.RenewOffering--- Copyright   : (c) 2013-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)------ Explicitly sets the quantity of devices to renew for an offering, starting from the @effectiveDate@ of the next period. The API returns a @NotEligible@ error if the user is not permitted to invoke the operation. Please contact <mailto:aws-devicefarm-support@amazon.com aws-devicefarm-support@amazon.com> if you believe that you should be able to invoke this operation.-------module Network.AWS.DeviceFarm.RenewOffering-    (-    -- * Creating a Request-      renewOffering-    , RenewOffering-    -- * Request Lenses-    , roQuantity-    , roOfferingId--    -- * Destructuring the Response-    , renewOfferingResponse-    , RenewOfferingResponse-    -- * Response Lenses-    , rorsOfferingTransaction-    , rorsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | A request representing an offering renewal.------------ /See:/ 'renewOffering' smart constructor.-data RenewOffering = RenewOffering'-  { _roQuantity   :: !(Maybe Int)-  , _roOfferingId :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RenewOffering' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'roQuantity' - The quantity requested in an offering renewal.------ * 'roOfferingId' - The ID of a request to renew an offering.-renewOffering-    :: RenewOffering-renewOffering = RenewOffering' {_roQuantity = Nothing, _roOfferingId = Nothing}----- | The quantity requested in an offering renewal.-roQuantity :: Lens' RenewOffering (Maybe Int)-roQuantity = lens _roQuantity (\ s a -> s{_roQuantity = a})---- | The ID of a request to renew an offering.-roOfferingId :: Lens' RenewOffering (Maybe Text)-roOfferingId = lens _roOfferingId (\ s a -> s{_roOfferingId = a})--instance AWSRequest RenewOffering where-        type Rs RenewOffering = RenewOfferingResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 RenewOfferingResponse' <$>-                   (x .?> "offeringTransaction") <*>-                     (pure (fromEnum s)))--instance Hashable RenewOffering where--instance NFData RenewOffering where--instance ToHeaders RenewOffering where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.RenewOffering" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON RenewOffering where-        toJSON RenewOffering'{..}-          = object-              (catMaybes-                 [("quantity" .=) <$> _roQuantity,-                  ("offeringId" .=) <$> _roOfferingId])--instance ToPath RenewOffering where-        toPath = const "/"--instance ToQuery RenewOffering where-        toQuery = const mempty---- | The result of a renewal offering.------------ /See:/ 'renewOfferingResponse' smart constructor.-data RenewOfferingResponse = RenewOfferingResponse'-  { _rorsOfferingTransaction :: !(Maybe OfferingTransaction)-  , _rorsResponseStatus      :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RenewOfferingResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rorsOfferingTransaction' - Represents the status of the offering transaction for the renewal.------ * 'rorsResponseStatus' - -- | The response status code.-renewOfferingResponse-    :: Int -- ^ 'rorsResponseStatus'-    -> RenewOfferingResponse-renewOfferingResponse pResponseStatus_ =-  RenewOfferingResponse'-    {_rorsOfferingTransaction = Nothing, _rorsResponseStatus = pResponseStatus_}----- | Represents the status of the offering transaction for the renewal.-rorsOfferingTransaction :: Lens' RenewOfferingResponse (Maybe OfferingTransaction)-rorsOfferingTransaction = lens _rorsOfferingTransaction (\ s a -> s{_rorsOfferingTransaction = a})---- | -- | The response status code.-rorsResponseStatus :: Lens' RenewOfferingResponse Int-rorsResponseStatus = lens _rorsResponseStatus (\ s a -> s{_rorsResponseStatus = a})--instance NFData RenewOfferingResponse where
− gen/Network/AWS/DeviceFarm/ScheduleRun.hs
@@ -1,205 +0,0 @@-{-# 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.ScheduleRun--- 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)------ Schedules a run.-------module Network.AWS.DeviceFarm.ScheduleRun-    (-    -- * Creating a Request-      scheduleRun-    , ScheduleRun-    -- * Request Lenses-    , srExecutionConfiguration-    , srAppARN-    , srName-    , srConfiguration-    , srProjectARN-    , srDevicePoolARN-    , srTest--    -- * Destructuring the Response-    , scheduleRunResponse-    , ScheduleRunResponse-    -- * Response Lenses-    , srrsRun-    , srrsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the schedule run operation.------------ /See:/ 'scheduleRun' smart constructor.-data ScheduleRun = ScheduleRun'-  { _srExecutionConfiguration :: !(Maybe ExecutionConfiguration)-  , _srAppARN                 :: !(Maybe Text)-  , _srName                   :: !(Maybe Text)-  , _srConfiguration          :: !(Maybe ScheduleRunConfiguration)-  , _srProjectARN             :: !Text-  , _srDevicePoolARN          :: !Text-  , _srTest                   :: !ScheduleRunTest-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ScheduleRun' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'srExecutionConfiguration' - Specifies configuration information about a test run, such as the execution timeout (in minutes).------ * 'srAppARN' - The ARN of the app to schedule a run.------ * 'srName' - The name for the run to be scheduled.------ * 'srConfiguration' - Information about the settings for the run to be scheduled.------ * 'srProjectARN' - The ARN of the project for the run to be scheduled.------ * 'srDevicePoolARN' - The ARN of the device pool for the run to be scheduled.------ * 'srTest' - Information about the test for the run to be scheduled.-scheduleRun-    :: Text -- ^ 'srProjectARN'-    -> Text -- ^ 'srDevicePoolARN'-    -> ScheduleRunTest -- ^ 'srTest'-    -> ScheduleRun-scheduleRun pProjectARN_ pDevicePoolARN_ pTest_ =-  ScheduleRun'-    { _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})---- | The ARN of the app to schedule a run.-srAppARN :: Lens' ScheduleRun (Maybe Text)-srAppARN = lens _srAppARN (\ s a -> s{_srAppARN = a})---- | The name for the run to be scheduled.-srName :: Lens' ScheduleRun (Maybe Text)-srName = lens _srName (\ s a -> s{_srName = a})---- | Information about the settings for the run to be scheduled.-srConfiguration :: Lens' ScheduleRun (Maybe ScheduleRunConfiguration)-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})---- | The ARN of the device pool for the run to be scheduled.-srDevicePoolARN :: Lens' ScheduleRun Text-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})--instance AWSRequest ScheduleRun where-        type Rs ScheduleRun = ScheduleRunResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 ScheduleRunResponse' <$>-                   (x .?> "run") <*> (pure (fromEnum s)))--instance Hashable ScheduleRun where--instance NFData ScheduleRun where--instance ToHeaders ScheduleRun where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.ScheduleRun" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON ScheduleRun where-        toJSON ScheduleRun'{..}-          = object-              (catMaybes-                 [("executionConfiguration" .=) <$>-                    _srExecutionConfiguration,-                  ("appArn" .=) <$> _srAppARN, ("name" .=) <$> _srName,-                  ("configuration" .=) <$> _srConfiguration,-                  Just ("projectArn" .= _srProjectARN),-                  Just ("devicePoolArn" .= _srDevicePoolARN),-                  Just ("test" .= _srTest)])--instance ToPath ScheduleRun where-        toPath = const "/"--instance ToQuery ScheduleRun where-        toQuery = const mempty---- | Represents the result of a schedule run request.------------ /See:/ 'scheduleRunResponse' smart constructor.-data ScheduleRunResponse = ScheduleRunResponse'-  { _srrsRun            :: !(Maybe Run)-  , _srrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ScheduleRunResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'srrsRun' - Information about the scheduled run.------ * 'srrsResponseStatus' - -- | The response status code.-scheduleRunResponse-    :: Int -- ^ 'srrsResponseStatus'-    -> ScheduleRunResponse-scheduleRunResponse pResponseStatus_ =-  ScheduleRunResponse'-    {_srrsRun = Nothing, _srrsResponseStatus = pResponseStatus_}----- | Information about the scheduled run.-srrsRun :: Lens' ScheduleRunResponse (Maybe Run)-srrsRun = lens _srrsRun (\ s a -> s{_srrsRun = a})---- | -- | The response status code.-srrsResponseStatus :: Lens' ScheduleRunResponse Int-srrsResponseStatus = lens _srrsResponseStatus (\ s a -> s{_srrsResponseStatus = a})--instance NFData ScheduleRunResponse where
− gen/Network/AWS/DeviceFarm/StopRemoteAccessSession.hs
@@ -1,143 +0,0 @@-{-# 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.StopRemoteAccessSession--- 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)------ Ends a specified remote access session.-------module Network.AWS.DeviceFarm.StopRemoteAccessSession-    (-    -- * Creating a Request-      stopRemoteAccessSession-    , StopRemoteAccessSession-    -- * Request Lenses-    , srasArn--    -- * Destructuring the Response-    , stopRemoteAccessSessionResponse-    , StopRemoteAccessSessionResponse-    -- * Response Lenses-    , srasrsRemoteAccessSession-    , srasrsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents the request to stop the remote access session.------------ /See:/ 'stopRemoteAccessSession' smart constructor.-newtype StopRemoteAccessSession = StopRemoteAccessSession'-  { _srasArn :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'StopRemoteAccessSession' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'srasArn' - The Amazon Resource Name (ARN) of the remote access session you wish to stop.-stopRemoteAccessSession-    :: Text -- ^ 'srasArn'-    -> StopRemoteAccessSession-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})--instance AWSRequest StopRemoteAccessSession where-        type Rs StopRemoteAccessSession =-             StopRemoteAccessSessionResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 StopRemoteAccessSessionResponse' <$>-                   (x .?> "remoteAccessSession") <*>-                     (pure (fromEnum s)))--instance Hashable StopRemoteAccessSession where--instance NFData StopRemoteAccessSession where--instance ToHeaders StopRemoteAccessSession where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.StopRemoteAccessSession" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON StopRemoteAccessSession where-        toJSON StopRemoteAccessSession'{..}-          = object (catMaybes [Just ("arn" .= _srasArn)])--instance ToPath StopRemoteAccessSession where-        toPath = const "/"--instance ToQuery StopRemoteAccessSession where-        toQuery = const mempty---- | Represents the response from the server that describes the remote access session when AWS Device Farm stops the session.------------ /See:/ 'stopRemoteAccessSessionResponse' smart constructor.-data StopRemoteAccessSessionResponse = StopRemoteAccessSessionResponse'-  { _srasrsRemoteAccessSession :: !(Maybe RemoteAccessSession)-  , _srasrsResponseStatus      :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'StopRemoteAccessSessionResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'srasrsRemoteAccessSession' - A container representing the metadata from the service about the remote access session you are stopping.------ * 'srasrsResponseStatus' - -- | The response status code.-stopRemoteAccessSessionResponse-    :: Int -- ^ 'srasrsResponseStatus'-    -> StopRemoteAccessSessionResponse-stopRemoteAccessSessionResponse pResponseStatus_ =-  StopRemoteAccessSessionResponse'-    { _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})---- | -- | The response status code.-srasrsResponseStatus :: Lens' StopRemoteAccessSessionResponse Int-srasrsResponseStatus = lens _srasrsResponseStatus (\ s a -> s{_srasrsResponseStatus = a})--instance NFData StopRemoteAccessSessionResponse where
− gen/Network/AWS/DeviceFarm/StopRun.hs
@@ -1,137 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DeviceFarm.StopRun--- Copyright   : (c) 2013-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)------ Initiates a stop request for the current test run. AWS Device Farm will immediately stop the run on devices where tests have not started executing, and you will not be billed for these devices. On devices where tests have started executing, Setup Suite and Teardown Suite tests will run to completion before stopping execution on those devices. You will be billed for Setup, Teardown, and any tests that were in progress or already completed.-------module Network.AWS.DeviceFarm.StopRun-    (-    -- * Creating a Request-      stopRun-    , StopRun-    -- * Request Lenses-    , srArn--    -- * Destructuring the Response-    , stopRunResponse-    , StopRunResponse-    -- * Response Lenses-    , srsRun-    , srsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents the request to stop a specific run.------------ /See:/ 'stopRun' smart constructor.-newtype StopRun = StopRun'-  { _srArn :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'StopRun' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'srArn' - Represents the Amazon Resource Name (ARN) of the Device Farm run you wish to stop.-stopRun-    :: Text -- ^ 'srArn'-    -> StopRun-stopRun pArn_ = StopRun' {_srArn = pArn_}----- | Represents the Amazon Resource Name (ARN) of the Device Farm run you wish to stop.-srArn :: Lens' StopRun Text-srArn = lens _srArn (\ s a -> s{_srArn = a})--instance AWSRequest StopRun where-        type Rs StopRun = StopRunResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 StopRunResponse' <$>-                   (x .?> "run") <*> (pure (fromEnum s)))--instance Hashable StopRun where--instance NFData StopRun where--instance ToHeaders StopRun where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.StopRun" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON StopRun where-        toJSON StopRun'{..}-          = object (catMaybes [Just ("arn" .= _srArn)])--instance ToPath StopRun where-        toPath = const "/"--instance ToQuery StopRun where-        toQuery = const mempty---- | Represents the results of your stop run attempt.------------ /See:/ 'stopRunResponse' smart constructor.-data StopRunResponse = StopRunResponse'-  { _srsRun            :: !(Maybe Run)-  , _srsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'StopRunResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'srsRun' - The run that was stopped.------ * 'srsResponseStatus' - -- | The response status code.-stopRunResponse-    :: Int -- ^ 'srsResponseStatus'-    -> StopRunResponse-stopRunResponse pResponseStatus_ =-  StopRunResponse' {_srsRun = Nothing, _srsResponseStatus = pResponseStatus_}----- | The run that was stopped.-srsRun :: Lens' StopRunResponse (Maybe Run)-srsRun = lens _srsRun (\ s a -> s{_srsRun = a})---- | -- | The response status code.-srsResponseStatus :: Lens' StopRunResponse Int-srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a})--instance NFData StopRunResponse where
− gen/Network/AWS/DeviceFarm/Types.hs
@@ -1,599 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DeviceFarm.Types--- 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)----module Network.AWS.DeviceFarm.Types-    (-    -- * Service Configuration-      deviceFarm--    -- * Errors-    , _NotEligibleException-    , _IdempotencyException-    , _ArgumentException-    , _NotFoundException-    , _ServiceAccountException-    , _InvalidOperationException-    , _LimitExceededException--    -- * ArtifactCategory-    , ArtifactCategory (..)--    -- * ArtifactType-    , ArtifactType (..)--    -- * BillingMethod-    , BillingMethod (..)--    -- * CurrencyCode-    , CurrencyCode (..)--    -- * DeviceAttribute-    , DeviceAttribute (..)--    -- * DeviceFormFactor-    , DeviceFormFactor (..)--    -- * DevicePlatform-    , DevicePlatform (..)--    -- * DevicePoolType-    , DevicePoolType (..)--    -- * ExecutionResult-    , ExecutionResult (..)--    -- * ExecutionResultCode-    , ExecutionResultCode (..)--    -- * ExecutionStatus-    , ExecutionStatus (..)--    -- * InstanceStatus-    , InstanceStatus (..)--    -- * InteractionMode-    , InteractionMode (..)--    -- * NetworkProfileType-    , NetworkProfileType (..)--    -- * OfferingTransactionType-    , OfferingTransactionType (..)--    -- * OfferingType-    , OfferingType (..)--    -- * RecurringChargeFrequency-    , RecurringChargeFrequency (..)--    -- * RuleOperator-    , RuleOperator (..)--    -- * SampleType-    , SampleType (..)--    -- * TestType-    , TestType (..)--    -- * UploadStatus-    , UploadStatus (..)--    -- * UploadType-    , UploadType (..)--    -- * AccountSettings-    , AccountSettings-    , accountSettings-    , asSkipAppResign-    , asAwsAccountNumber-    , asMaxJobTimeoutMinutes-    , asMaxSlots-    , asTrialMinutes-    , asUnmeteredDevices-    , asUnmeteredRemoteAccessDevices-    , asDefaultJobTimeoutMinutes--    -- * Artifact-    , Artifact-    , artifact-    , aArn-    , aUrl-    , aExtension-    , aName-    , aType--    -- * CPU-    , CPU-    , cpu-    , cpuFrequency-    , cpuClock-    , cpuArchitecture--    -- * Counters-    , Counters-    , counters-    , cPassed-    , cSkipped-    , cWarned-    , cStopped-    , cTotal-    , cFailed-    , cErrored--    -- * CreateRemoteAccessSessionConfiguration-    , CreateRemoteAccessSessionConfiguration-    , createRemoteAccessSessionConfiguration-    , crascBillingMethod--    -- * CustomerArtifactPaths-    , CustomerArtifactPaths-    , customerArtifactPaths-    , capAndroidPaths-    , capDeviceHostPaths-    , capIosPaths--    -- * Device-    , Device-    , device-    , devCarrier-    , devImage-    , devManufacturer-    , devPlatform-    , devModelId-    , devRemoteAccessEnabled-    , devArn-    , devFormFactor-    , devFleetType-    , devResolution-    , devMemory-    , devRadio-    , devOs-    , devName-    , devModel-    , devInstances-    , devRemoteDebugEnabled-    , devCpu-    , devHeapSize-    , devFleetName--    -- * DeviceInstance-    , DeviceInstance-    , deviceInstance-    , diStatus-    , diUdid-    , diInstanceProfile-    , diArn-    , diDeviceARN-    , diLabels--    -- * DeviceMinutes-    , DeviceMinutes-    , deviceMinutes-    , dmMetered-    , dmTotal-    , dmUnmetered--    -- * DevicePool-    , DevicePool-    , devicePool-    , dArn-    , dRules-    , dName-    , dType-    , dDescription--    -- * DevicePoolCompatibilityResult-    , DevicePoolCompatibilityResult-    , devicePoolCompatibilityResult-    , dpcrDevice-    , dpcrCompatible-    , dpcrIncompatibilityMessages--    -- * ExecutionConfiguration-    , ExecutionConfiguration-    , executionConfiguration-    , ecSkipAppResign-    , ecAccountsCleanup-    , ecAppPackagesCleanup-    , ecJobTimeoutMinutes--    -- * IncompatibilityMessage-    , IncompatibilityMessage-    , incompatibilityMessage-    , imType-    , imMessage--    -- * InstanceProfile-    , InstanceProfile-    , instanceProfile-    , ipArn-    , ipRebootAfterUse-    , ipName-    , ipPackageCleanup-    , ipExcludeAppPackagesFromCleanup-    , ipDescription--    -- * Job-    , Job-    , job-    , jobInstanceARN-    , jobStatus-    , jobCounters-    , jobArn-    , jobCreated-    , jobDevice-    , jobStopped-    , jobResult-    , jobName-    , jobDeviceMinutes-    , jobType-    , jobMessage-    , jobStarted--    -- * Location-    , Location-    , location-    , lLatitude-    , lLongitude--    -- * MonetaryAmount-    , MonetaryAmount-    , monetaryAmount-    , maAmount-    , maCurrencyCode--    -- * NetworkProfile-    , NetworkProfile-    , networkProfile-    , npUplinkJitterMs-    , npArn-    , npUplinkLossPercent-    , npDownlinkJitterMs-    , npName-    , npDownlinkLossPercent-    , npType-    , npUplinkDelayMs-    , npUplinkBandwidthBits-    , npDescription-    , npDownlinkDelayMs-    , npDownlinkBandwidthBits--    -- * Offering-    , Offering-    , offering-    , oPlatform-    , oId-    , oRecurringCharges-    , oType-    , oDescription--    -- * OfferingPromotion-    , OfferingPromotion-    , offeringPromotion-    , opId-    , opDescription--    -- * OfferingStatus-    , OfferingStatus-    , offeringStatus-    , osEffectiveOn-    , osOffering-    , osQuantity-    , osType--    -- * OfferingTransaction-    , OfferingTransaction-    , offeringTransaction-    , otOfferingStatus-    , otCost-    , otTransactionId-    , otOfferingPromotionId-    , otCreatedOn--    -- * Problem-    , Problem-    , problem-    , pDevice-    , pTest-    , pResult-    , pRun-    , pJob-    , pMessage-    , pSuite--    -- * ProblemDetail-    , ProblemDetail-    , problemDetail-    , pdArn-    , pdName--    -- * Project-    , Project-    , project-    , pArn-    , pCreated-    , pName-    , pDefaultJobTimeoutMinutes--    -- * Radios-    , Radios-    , radios-    , rNfc-    , rGps-    , rBluetooth-    , rWifi--    -- * RecurringCharge-    , RecurringCharge-    , recurringCharge-    , rcFrequency-    , rcCost--    -- * RemoteAccessSession-    , RemoteAccessSession-    , remoteAccessSession-    , rasBillingMethod-    , rasClientId-    , rasDeviceUdid-    , rasSkipAppResign-    , rasInstanceARN-    , rasStatus-    , rasRemoteRecordEnabled-    , rasArn-    , rasRemoteRecordAppARN-    , rasCreated-    , rasDevice-    , rasStopped-    , rasResult-    , rasName-    , rasDeviceMinutes-    , rasRemoteDebugEnabled-    , rasEndpoint-    , rasMessage-    , rasHostAddress-    , rasInteractionMode-    , rasStarted--    -- * Resolution-    , Resolution-    , resolution-    , rHeight-    , rWidth--    -- * Rule-    , Rule-    , rule-    , rAttribute-    , rOperator-    , rValue--    -- * Run-    , 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-    , Sample-    , sample-    , samArn-    , samUrl-    , samType--    -- * ScheduleRunConfiguration-    , ScheduleRunConfiguration-    , scheduleRunConfiguration-    , srcBillingMethod-    , srcCustomerArtifactPaths-    , srcRadios-    , srcLocation-    , srcLocale-    , srcNetworkProfileARN-    , srcExtraDataPackageARN-    , srcAuxiliaryApps-    , srcVpceConfigurationARNs--    -- * ScheduleRunTest-    , ScheduleRunTest-    , scheduleRunTest-    , srtTestPackageARN-    , srtParameters-    , srtFilter-    , srtType--    -- * Suite-    , Suite-    , suite-    , sStatus-    , sCounters-    , sArn-    , sCreated-    , sStopped-    , sResult-    , sName-    , sDeviceMinutes-    , sType-    , sMessage-    , sStarted--    -- * Test-    , Test-    , test-    , tStatus-    , tCounters-    , tArn-    , tCreated-    , tStopped-    , tResult-    , tName-    , tDeviceMinutes-    , tType-    , tMessage-    , tStarted--    -- * TrialMinutes-    , TrialMinutes-    , trialMinutes-    , tmRemaining-    , tmTotal--    -- * UniqueProblem-    , UniqueProblem-    , uniqueProblem-    , upProblems-    , upMessage--    -- * Upload-    , Upload-    , upload-    , uStatus-    , uArn-    , uCreated-    , uUrl-    , uName-    , uMetadata-    , uType-    , uMessage-    , uContentType--    -- * VPCEConfiguration-    , VPCEConfiguration-    , vpcEConfiguration-    , vecVpceServiceName-    , vecArn-    , vecVpceConfigurationName-    , vecServiceDNSName-    , vecVpceConfigurationDescription-    ) where--import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.DeviceFarm.Types.Sum-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Sign.V4---- | API version @2015-06-23@ of the Amazon Device Farm SDK configuration.-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-    }-  where-    retry =-      Exponential-        { _retryBase = 5.0e-2-        , _retryGrowth = 2-        , _retryAttempts = 5-        , _retryCheck = check-        }-    check e-      | has (hasCode "ThrottledException" . hasStatus 400) e =-        Just "throttled_exception"-      | has (hasStatus 429) e = Just "too_many_requests"-      | has (hasCode "ThrottlingException" . hasStatus 400) e =-        Just "throttling_exception"-      | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"-      | has (hasStatus 504) e = Just "gateway_timeout"-      | has (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"-      | has (hasStatus 509) e = Just "limit_exceeded"-      | otherwise = Nothing----- | Exception gets thrown when a user is not eligible to perform the specified transaction.-------_NotEligibleException :: AsError a => Getting (First ServiceError) a ServiceError-_NotEligibleException = _MatchServiceError deviceFarm "NotEligibleException"----- | An entity with the same name already exists.-------_IdempotencyException :: AsError a => Getting (First ServiceError) a ServiceError-_IdempotencyException = _MatchServiceError deviceFarm "IdempotencyException"----- | An invalid argument was specified.-------_ArgumentException :: AsError a => Getting (First ServiceError) a ServiceError-_ArgumentException = _MatchServiceError deviceFarm "ArgumentException"----- | The specified entity was not found.-------_NotFoundException :: AsError a => Getting (First ServiceError) a ServiceError-_NotFoundException = _MatchServiceError deviceFarm "NotFoundException"----- | There was a problem with the service account.-------_ServiceAccountException :: AsError a => Getting (First ServiceError) a ServiceError-_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.-------_LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError-_LimitExceededException = _MatchServiceError deviceFarm "LimitExceededException"-
− gen/Network/AWS/DeviceFarm/Types/Product.hs
@@ -1,3398 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DeviceFarm.Types.Product--- 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)----module Network.AWS.DeviceFarm.Types.Product where--import Network.AWS.DeviceFarm.Types.Sum-import Network.AWS.Lens-import Network.AWS.Prelude---- | A container for account-level settings within AWS Device Farm.------------ /See:/ 'accountSettings' smart constructor.-data AccountSettings = AccountSettings'-  { _asSkipAppResign                :: !(Maybe Bool)-  , _asAwsAccountNumber             :: !(Maybe Text)-  , _asMaxJobTimeoutMinutes         :: !(Maybe Int)-  , _asMaxSlots                     :: !(Maybe (Map Text Int))-  , _asTrialMinutes                 :: !(Maybe TrialMinutes)-  , _asUnmeteredDevices             :: !(Maybe (Map DevicePlatform Int))-  , _asUnmeteredRemoteAccessDevices :: !(Maybe (Map DevicePlatform Int))-  , _asDefaultJobTimeoutMinutes     :: !(Maybe Int)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'AccountSettings' with the minimum fields required to make a request.------ 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.------ * 'asMaxSlots' - 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.------ * 'asTrialMinutes' - Information about an AWS account's usage of free trial device minutes.------ * 'asUnmeteredDevices' - Returns the unmetered devices you have purchased or want to purchase.------ * 'asUnmeteredRemoteAccessDevices' - Returns the unmetered remote access devices you have purchased or want to purchase.------ * 'asDefaultJobTimeoutMinutes' - The default number of minutes (at the account level) a test run will execute before it times out. Default value is 60 minutes.-accountSettings-    :: AccountSettings-accountSettings =-  AccountSettings'-    { _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})---- | 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})---- | 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---- | 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})---- | Returns the unmetered devices you have purchased or want to purchase.-asUnmeteredDevices :: Lens' AccountSettings (HashMap DevicePlatform Int)-asUnmeteredDevices = lens _asUnmeteredDevices (\ s a -> s{_asUnmeteredDevices = a}) . _Default . _Map---- | Returns the unmetered remote access devices you have purchased or want to purchase.-asUnmeteredRemoteAccessDevices :: Lens' AccountSettings (HashMap DevicePlatform Int)-asUnmeteredRemoteAccessDevices = lens _asUnmeteredRemoteAccessDevices (\ s a -> s{_asUnmeteredRemoteAccessDevices = a}) . _Default . _Map---- | 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})--instance FromJSON AccountSettings where-        parseJSON-          = withObject "AccountSettings"-              (\ x ->-                 AccountSettings' <$>-                   (x .:? "skipAppResign") <*>-                     (x .:? "awsAccountNumber")-                     <*> (x .:? "maxJobTimeoutMinutes")-                     <*> (x .:? "maxSlots" .!= mempty)-                     <*> (x .:? "trialMinutes")-                     <*> (x .:? "unmeteredDevices" .!= mempty)-                     <*> (x .:? "unmeteredRemoteAccessDevices" .!= mempty)-                     <*> (x .:? "defaultJobTimeoutMinutes"))--instance Hashable AccountSettings where--instance NFData AccountSettings where---- | Represents the output of a test. Examples of artifacts include logs and screenshots.------------ /See:/ 'artifact' smart constructor.-data Artifact = Artifact'-  { _aArn       :: !(Maybe Text)-  , _aUrl       :: !(Maybe Text)-  , _aExtension :: !(Maybe Text)-  , _aName      :: !(Maybe Text)-  , _aType      :: !(Maybe ArtifactType)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Artifact' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aArn' - The artifact's ARN.------ * 'aUrl' - The pre-signed Amazon S3 URL that can be used with a corresponding GET request to download the artifact's file.------ * 'aExtension' - The artifact's file extension.------ * 'aName' - The artifact's name.------ * 'aType' - 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.-artifact-    :: Artifact-artifact =-  Artifact'-    { _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})---- | 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})---- | The artifact's file extension.-aExtension :: Lens' Artifact (Maybe Text)-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})---- | 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})--instance FromJSON Artifact where-        parseJSON-          = withObject "Artifact"-              (\ x ->-                 Artifact' <$>-                   (x .:? "arn") <*> (x .:? "url") <*>-                     (x .:? "extension")-                     <*> (x .:? "name")-                     <*> (x .:? "type"))--instance Hashable Artifact where--instance NFData Artifact where---- | Represents the amount of CPU that an app is using on a physical device.--------- Note that this does not represent system-wide CPU usage.--------- /See:/ 'cpu' smart constructor.-data CPU = CPU'-  { _cpuFrequency    :: !(Maybe Text)-  , _cpuClock        :: !(Maybe Double)-  , _cpuArchitecture :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CPU' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cpuFrequency' - The CPU's frequency.------ * 'cpuClock' - The clock speed of the device's CPU, expressed in hertz (Hz). For example, a 1.2 GHz CPU is expressed as 1200000000.------ * 'cpuArchitecture' - The CPU's architecture, for example x86 or ARM.-cpu-    :: CPU-cpu =-  CPU'-    {_cpuFrequency = Nothing, _cpuClock = Nothing, _cpuArchitecture = Nothing}----- | The CPU's frequency.-cpuFrequency :: Lens' CPU (Maybe Text)-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})---- | The CPU's architecture, for example x86 or ARM.-cpuArchitecture :: Lens' CPU (Maybe Text)-cpuArchitecture = lens _cpuArchitecture (\ s a -> s{_cpuArchitecture = a})--instance FromJSON CPU where-        parseJSON-          = withObject "CPU"-              (\ x ->-                 CPU' <$>-                   (x .:? "frequency") <*> (x .:? "clock") <*>-                     (x .:? "architecture"))--instance Hashable CPU where--instance NFData CPU where---- | Represents entity counters.------------ /See:/ 'counters' smart constructor.-data Counters = Counters'-  { _cPassed  :: !(Maybe Int)-  , _cSkipped :: !(Maybe Int)-  , _cWarned  :: !(Maybe Int)-  , _cStopped :: !(Maybe Int)-  , _cTotal   :: !(Maybe Int)-  , _cFailed  :: !(Maybe Int)-  , _cErrored :: !(Maybe Int)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Counters' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cPassed' - The number of passed entities.------ * 'cSkipped' - The number of skipped entities.------ * 'cWarned' - The number of warned entities.------ * 'cStopped' - The number of stopped entities.------ * 'cTotal' - The total number of entities.------ * 'cFailed' - The number of failed entities.------ * 'cErrored' - The number of errored entities.-counters-    :: Counters-counters =-  Counters'-    { _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})---- | The number of skipped entities.-cSkipped :: Lens' Counters (Maybe Int)-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})---- | The number of stopped entities.-cStopped :: Lens' Counters (Maybe Int)-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})---- | The number of failed entities.-cFailed :: Lens' Counters (Maybe Int)-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})--instance FromJSON Counters where-        parseJSON-          = withObject "Counters"-              (\ x ->-                 Counters' <$>-                   (x .:? "passed") <*> (x .:? "skipped") <*>-                     (x .:? "warned")-                     <*> (x .:? "stopped")-                     <*> (x .:? "total")-                     <*> (x .:? "failed")-                     <*> (x .:? "errored"))--instance Hashable Counters where--instance NFData Counters where---- | Configuration settings for a remote access session, including billing method.------------ /See:/ 'createRemoteAccessSessionConfiguration' smart constructor.-newtype CreateRemoteAccessSessionConfiguration = CreateRemoteAccessSessionConfiguration'-  { _crascBillingMethod :: Maybe BillingMethod-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateRemoteAccessSessionConfiguration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'crascBillingMethod' - The billing method for the remote access session.-createRemoteAccessSessionConfiguration-    :: CreateRemoteAccessSessionConfiguration-createRemoteAccessSessionConfiguration =-  CreateRemoteAccessSessionConfiguration' {_crascBillingMethod = Nothing}----- | The billing method for the remote access session.-crascBillingMethod :: Lens' CreateRemoteAccessSessionConfiguration (Maybe BillingMethod)-crascBillingMethod = lens _crascBillingMethod (\ s a -> s{_crascBillingMethod = a})--instance Hashable-           CreateRemoteAccessSessionConfiguration-         where--instance NFData-           CreateRemoteAccessSessionConfiguration-         where--instance ToJSON-           CreateRemoteAccessSessionConfiguration-         where-        toJSON CreateRemoteAccessSessionConfiguration'{..}-          = object-              (catMaybes-                 [("billingMethod" .=) <$> _crascBillingMethod])---- | A JSON object specifying the paths where the artifacts generated by the customer's tests, on the device or in the test environment, will be pulled from.--------- Specify @deviceHostPaths@ and optionally specify either @iosPaths@ or @androidPaths@ .------ For web app tests, you can specify both @iosPaths@ and @androidPaths@ .--------- /See:/ 'customerArtifactPaths' smart constructor.-data CustomerArtifactPaths = CustomerArtifactPaths'-  { _capAndroidPaths    :: !(Maybe [Text])-  , _capDeviceHostPaths :: !(Maybe [Text])-  , _capIosPaths        :: !(Maybe [Text])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomerArtifactPaths' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'capAndroidPaths' - Comma-separated list of paths on the Android device where the artifacts generated by the customer's tests will be pulled from.------ * 'capDeviceHostPaths' - Comma-separated list of paths in the test execution environment where the artifacts generated by the customer's tests will be pulled from.------ * 'capIosPaths' - Comma-separated list of paths on the iOS device where the artifacts generated by the customer's tests will be pulled from.-customerArtifactPaths-    :: CustomerArtifactPaths-customerArtifactPaths =-  CustomerArtifactPaths'-    { _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---- | 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---- | 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--instance FromJSON CustomerArtifactPaths where-        parseJSON-          = withObject "CustomerArtifactPaths"-              (\ x ->-                 CustomerArtifactPaths' <$>-                   (x .:? "androidPaths" .!= mempty) <*>-                     (x .:? "deviceHostPaths" .!= mempty)-                     <*> (x .:? "iosPaths" .!= mempty))--instance Hashable CustomerArtifactPaths where--instance NFData CustomerArtifactPaths where--instance ToJSON CustomerArtifactPaths where-        toJSON CustomerArtifactPaths'{..}-          = object-              (catMaybes-                 [("androidPaths" .=) <$> _capAndroidPaths,-                  ("deviceHostPaths" .=) <$> _capDeviceHostPaths,-                  ("iosPaths" .=) <$> _capIosPaths])---- | Represents a device type that an app is tested against.------------ /See:/ 'device' smart constructor.-data Device = Device'-  { _devCarrier             :: !(Maybe Text)-  , _devImage               :: !(Maybe Text)-  , _devManufacturer        :: !(Maybe Text)-  , _devPlatform            :: !(Maybe DevicePlatform)-  , _devModelId             :: !(Maybe Text)-  , _devRemoteAccessEnabled :: !(Maybe Bool)-  , _devArn                 :: !(Maybe Text)-  , _devFormFactor          :: !(Maybe DeviceFormFactor)-  , _devFleetType           :: !(Maybe Text)-  , _devResolution          :: !(Maybe Resolution)-  , _devMemory              :: !(Maybe Integer)-  , _devRadio               :: !(Maybe Text)-  , _devOs                  :: !(Maybe Text)-  , _devName                :: !(Maybe Text)-  , _devModel               :: !(Maybe Text)-  , _devInstances           :: !(Maybe [DeviceInstance])-  , _devRemoteDebugEnabled  :: !(Maybe Bool)-  , _devCpu                 :: !(Maybe CPU)-  , _devHeapSize            :: !(Maybe Integer)-  , _devFleetName           :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Device' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'devCarrier' - The device's carrier.------ * 'devImage' - The device's image name.------ * 'devManufacturer' - The device's manufacturer name.------ * '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.------ * 'devFormFactor' - The device's form factor. Allowed values include:     * PHONE: The phone form factor.     * TABLET: The tablet form factor.------ * 'devFleetType' - The type of fleet to which this device belongs. Possible values for fleet type are PRIVATE and PUBLIC.------ * 'devResolution' - The resolution of the device.------ * 'devMemory' - The device's total memory size, expressed in bytes.------ * 'devRadio' - The device's radio.------ * 'devOs' - The device's operating system type.------ * 'devName' - The device's display name.------ * '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.------ * 'devHeapSize' - The device's heap size, expressed in bytes.------ * 'devFleetName' - The name of the fleet to which this device belongs.-device-    :: Device-device =-  Device'-    { _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})---- | The device's image name.-devImage :: Lens' Device (Maybe Text)-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})---- | 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})---- | 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})---- | The device's ARN.-devArn :: Lens' Device (Maybe Text)-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})---- | 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})---- | The resolution of the device.-devResolution :: Lens' Device (Maybe Resolution)-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})---- | The device's radio.-devRadio :: Lens' Device (Maybe Text)-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})---- | The device's display name.-devName :: Lens' Device (Maybe Text)-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})---- | 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})---- | Information about the device's CPU.-devCpu :: Lens' Device (Maybe CPU)-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})---- | The name of the fleet to which this device belongs.-devFleetName :: Lens' Device (Maybe Text)-devFleetName = lens _devFleetName (\ s a -> s{_devFleetName = a})--instance FromJSON Device where-        parseJSON-          = withObject "Device"-              (\ x ->-                 Device' <$>-                   (x .:? "carrier") <*> (x .:? "image") <*>-                     (x .:? "manufacturer")-                     <*> (x .:? "platform")-                     <*> (x .:? "modelId")-                     <*> (x .:? "remoteAccessEnabled")-                     <*> (x .:? "arn")-                     <*> (x .:? "formFactor")-                     <*> (x .:? "fleetType")-                     <*> (x .:? "resolution")-                     <*> (x .:? "memory")-                     <*> (x .:? "radio")-                     <*> (x .:? "os")-                     <*> (x .:? "name")-                     <*> (x .:? "model")-                     <*> (x .:? "instances" .!= mempty)-                     <*> (x .:? "remoteDebugEnabled")-                     <*> (x .:? "cpu")-                     <*> (x .:? "heapSize")-                     <*> (x .:? "fleetName"))--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.------------ /See:/ 'deviceMinutes' smart constructor.-data DeviceMinutes = DeviceMinutes'-  { _dmMetered   :: !(Maybe Double)-  , _dmTotal     :: !(Maybe Double)-  , _dmUnmetered :: !(Maybe Double)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeviceMinutes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dmMetered' - When specified, represents only the sum of metered minutes used by the resource to run tests.------ * 'dmTotal' - When specified, represents the total minutes used by the resource to run tests.------ * 'dmUnmetered' - When specified, represents only the sum of unmetered minutes used by the resource to run tests.-deviceMinutes-    :: DeviceMinutes-deviceMinutes =-  DeviceMinutes'-    {_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})---- | 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})---- | 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})--instance FromJSON DeviceMinutes where-        parseJSON-          = withObject "DeviceMinutes"-              (\ x ->-                 DeviceMinutes' <$>-                   (x .:? "metered") <*> (x .:? "total") <*>-                     (x .:? "unmetered"))--instance Hashable DeviceMinutes where--instance NFData DeviceMinutes where---- | Represents a collection of device types.------------ /See:/ 'devicePool' smart constructor.-data DevicePool = DevicePool'-  { _dArn         :: !(Maybe Text)-  , _dRules       :: !(Maybe [Rule])-  , _dName        :: !(Maybe Text)-  , _dType        :: !(Maybe DevicePoolType)-  , _dDescription :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DevicePool' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dArn' - The device pool's ARN.------ * 'dRules' - Information about the device pool's rules.------ * 'dName' - The device pool's name.------ * 'dType' - 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.------ * 'dDescription' - The device pool's description.-devicePool-    :: DevicePool-devicePool =-  DevicePool'-    { _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})---- | Information about the device pool's rules.-dRules :: Lens' DevicePool [Rule]-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})---- | 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})---- | The device pool's description.-dDescription :: Lens' DevicePool (Maybe Text)-dDescription = lens _dDescription (\ s a -> s{_dDescription = a})--instance FromJSON DevicePool where-        parseJSON-          = withObject "DevicePool"-              (\ x ->-                 DevicePool' <$>-                   (x .:? "arn") <*> (x .:? "rules" .!= mempty) <*>-                     (x .:? "name")-                     <*> (x .:? "type")-                     <*> (x .:? "description"))--instance Hashable DevicePool where--instance NFData DevicePool where---- | Represents a device pool compatibility result.------------ /See:/ 'devicePoolCompatibilityResult' smart constructor.-data DevicePoolCompatibilityResult = DevicePoolCompatibilityResult'-  { _dpcrDevice                  :: !(Maybe Device)-  , _dpcrCompatible              :: !(Maybe Bool)-  , _dpcrIncompatibilityMessages :: !(Maybe [IncompatibilityMessage])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DevicePoolCompatibilityResult' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dpcrDevice' - The device (phone or tablet) that you wish to return information about.------ * 'dpcrCompatible' - Whether the result was compatible with the device pool.------ * 'dpcrIncompatibilityMessages' - Information about the compatibility.-devicePoolCompatibilityResult-    :: DevicePoolCompatibilityResult-devicePoolCompatibilityResult =-  DevicePoolCompatibilityResult'-    { _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})---- | Whether the result was compatible with the device pool.-dpcrCompatible :: Lens' DevicePoolCompatibilityResult (Maybe Bool)-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--instance FromJSON DevicePoolCompatibilityResult where-        parseJSON-          = withObject "DevicePoolCompatibilityResult"-              (\ x ->-                 DevicePoolCompatibilityResult' <$>-                   (x .:? "device") <*> (x .:? "compatible") <*>-                     (x .:? "incompatibilityMessages" .!= mempty))--instance Hashable DevicePoolCompatibilityResult where--instance NFData DevicePoolCompatibilityResult where---- | Represents configuration information about a test run, such as the execution timeout (in minutes).------------ /See:/ 'executionConfiguration' smart constructor.-data ExecutionConfiguration = ExecutionConfiguration'-  { _ecSkipAppResign      :: !(Maybe Bool)-  , _ecAccountsCleanup    :: !(Maybe Bool)-  , _ecAppPackagesCleanup :: !(Maybe Bool)-  , _ecJobTimeoutMinutes  :: !(Maybe Int)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ExecutionConfiguration' with the minimum fields required to make a request.------ 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.------ * 'ecJobTimeoutMinutes' - The number of minutes a test run will execute before it times out.-executionConfiguration-    :: ExecutionConfiguration-executionConfiguration =-  ExecutionConfiguration'-    { _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})---- | 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})---- | 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})--instance Hashable ExecutionConfiguration where--instance NFData ExecutionConfiguration where--instance ToJSON ExecutionConfiguration where-        toJSON ExecutionConfiguration'{..}-          = object-              (catMaybes-                 [("skipAppResign" .=) <$> _ecSkipAppResign,-                  ("accountsCleanup" .=) <$> _ecAccountsCleanup,-                  ("appPackagesCleanup" .=) <$> _ecAppPackagesCleanup,-                  ("jobTimeoutMinutes" .=) <$> _ecJobTimeoutMinutes])---- | Represents information about incompatibility.------------ /See:/ 'incompatibilityMessage' smart constructor.-data IncompatibilityMessage = IncompatibilityMessage'-  { _imType    :: !(Maybe DeviceAttribute)-  , _imMessage :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'IncompatibilityMessage' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'imType' - 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.------ * 'imMessage' - A message about the incompatibility.-incompatibilityMessage-    :: IncompatibilityMessage-incompatibilityMessage =-  IncompatibilityMessage' {_imType = Nothing, _imMessage = Nothing}----- | 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})---- | A message about the incompatibility.-imMessage :: Lens' IncompatibilityMessage (Maybe Text)-imMessage = lens _imMessage (\ s a -> s{_imMessage = a})--instance FromJSON IncompatibilityMessage where-        parseJSON-          = withObject "IncompatibilityMessage"-              (\ x ->-                 IncompatibilityMessage' <$>-                   (x .:? "type") <*> (x .:? "message"))--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'-  { _jobInstanceARN   :: !(Maybe Text)-  , _jobStatus        :: !(Maybe ExecutionStatus)-  , _jobCounters      :: !(Maybe Counters)-  , _jobArn           :: !(Maybe Text)-  , _jobCreated       :: !(Maybe POSIX)-  , _jobDevice        :: !(Maybe Device)-  , _jobStopped       :: !(Maybe POSIX)-  , _jobResult        :: !(Maybe ExecutionResult)-  , _jobName          :: !(Maybe Text)-  , _jobDeviceMinutes :: !(Maybe DeviceMinutes)-  , _jobType          :: !(Maybe TestType)-  , _jobMessage       :: !(Maybe Text)-  , _jobStarted       :: !(Maybe POSIX)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Job' with the minimum fields required to make a request.------ 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.------ * 'jobArn' - The job's ARN.------ * 'jobCreated' - When the job was created.------ * 'jobDevice' - The device (phone or tablet).------ * 'jobStopped' - The job's stop time.------ * 'jobResult' - 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.------ * 'jobName' - The job's name.------ * 'jobDeviceMinutes' - Represents the total (metered or unmetered) minutes used by the job.------ * 'jobType' - 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.------ * 'jobMessage' - A message about the job's result.------ * 'jobStarted' - The job's start time.-job-    :: Job-job =-  Job'-    { _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})---- | The job's result counters.-jobCounters :: Lens' Job (Maybe Counters)-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})---- | When the job was created.-jobCreated :: Lens' Job (Maybe UTCTime)-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})---- | The job's stop time.-jobStopped :: Lens' Job (Maybe UTCTime)-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})---- | The job's name.-jobName :: Lens' Job (Maybe Text)-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})---- | 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})---- | A message about the job's result.-jobMessage :: Lens' Job (Maybe Text)-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--instance FromJSON Job where-        parseJSON-          = withObject "Job"-              (\ x ->-                 Job' <$>-                   (x .:? "instanceArn") <*> (x .:? "status") <*>-                     (x .:? "counters")-                     <*> (x .:? "arn")-                     <*> (x .:? "created")-                     <*> (x .:? "device")-                     <*> (x .:? "stopped")-                     <*> (x .:? "result")-                     <*> (x .:? "name")-                     <*> (x .:? "deviceMinutes")-                     <*> (x .:? "type")-                     <*> (x .:? "message")-                     <*> (x .:? "started"))--instance Hashable Job where--instance NFData Job where---- | Represents a latitude and longitude pair, expressed in geographic coordinate system degrees (for example 47.6204, -122.3491).--------- Elevation is currently not supported.--------- /See:/ 'location' smart constructor.-data Location = Location'-  { _lLatitude  :: !Double-  , _lLongitude :: !Double-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Location' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lLatitude' - The latitude.------ * 'lLongitude' - The longitude.-location-    :: Double -- ^ 'lLatitude'-    -> Double -- ^ 'lLongitude'-    -> Location-location pLatitude_ pLongitude_ =-  Location' {_lLatitude = pLatitude_, _lLongitude = pLongitude_}----- | The latitude.-lLatitude :: Lens' Location Double-lLatitude = lens _lLatitude (\ s a -> s{_lLatitude = a})---- | The longitude.-lLongitude :: Lens' Location Double-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--instance NFData Location where--instance ToJSON Location where-        toJSON Location'{..}-          = object-              (catMaybes-                 [Just ("latitude" .= _lLatitude),-                  Just ("longitude" .= _lLongitude)])---- | A number representing the monetary amount for an offering or transaction.------------ /See:/ 'monetaryAmount' smart constructor.-data MonetaryAmount = MonetaryAmount'-  { _maAmount       :: !(Maybe Double)-  , _maCurrencyCode :: !(Maybe CurrencyCode)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'MonetaryAmount' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'maAmount' - The numerical amount of an offering or transaction.------ * 'maCurrencyCode' - The currency code of a monetary amount. For example, @USD@ means "U.S. dollars."-monetaryAmount-    :: MonetaryAmount-monetaryAmount =-  MonetaryAmount' {_maAmount = Nothing, _maCurrencyCode = Nothing}----- | The numerical amount of an offering or transaction.-maAmount :: Lens' MonetaryAmount (Maybe Double)-maAmount = lens _maAmount (\ s a -> s{_maAmount = a})---- | The currency code of a monetary amount. For example, @USD@ means "U.S. dollars."-maCurrencyCode :: Lens' MonetaryAmount (Maybe CurrencyCode)-maCurrencyCode = lens _maCurrencyCode (\ s a -> s{_maCurrencyCode = a})--instance FromJSON MonetaryAmount where-        parseJSON-          = withObject "MonetaryAmount"-              (\ x ->-                 MonetaryAmount' <$>-                   (x .:? "amount") <*> (x .:? "currencyCode"))--instance Hashable MonetaryAmount where--instance NFData MonetaryAmount where---- | An array of settings that describes characteristics of a network profile.------------ /See:/ 'networkProfile' smart constructor.-data NetworkProfile = NetworkProfile'-  { _npUplinkJitterMs        :: !(Maybe Integer)-  , _npArn                   :: !(Maybe Text)-  , _npUplinkLossPercent     :: !(Maybe Nat)-  , _npDownlinkJitterMs      :: !(Maybe Integer)-  , _npName                  :: !(Maybe Text)-  , _npDownlinkLossPercent   :: !(Maybe Nat)-  , _npType                  :: !(Maybe NetworkProfileType)-  , _npUplinkDelayMs         :: !(Maybe Integer)-  , _npUplinkBandwidthBits   :: !(Maybe Integer)-  , _npDescription           :: !(Maybe Text)-  , _npDownlinkDelayMs       :: !(Maybe Integer)-  , _npDownlinkBandwidthBits :: !(Maybe Integer)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'NetworkProfile' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'npUplinkJitterMs' - Time variation in the delay of received packets in milliseconds as an integer from 0 to 2000.------ * 'npArn' - The Amazon Resource Name (ARN) of the network profile.------ * 'npUplinkLossPercent' - Proportion of transmitted packets that fail to arrive from 0 to 100 percent.------ * 'npDownlinkJitterMs' - Time variation in the delay of received packets in milliseconds as an integer from 0 to 2000.------ * 'npName' - The name of the network profile.------ * 'npDownlinkLossPercent' - Proportion of received packets that fail to arrive from 0 to 100 percent.------ * 'npType' - The type of network profile. Valid values are listed below.------ * 'npUplinkDelayMs' - Delay time for all packets to destination in milliseconds as an integer from 0 to 2000.------ * 'npUplinkBandwidthBits' - The data throughput rate in bits per second, as an integer from 0 to 104857600.------ * 'npDescription' - The description of the network profile.------ * 'npDownlinkDelayMs' - Delay time for all packets to destination in milliseconds as an integer from 0 to 2000.------ * 'npDownlinkBandwidthBits' - The data throughput rate in bits per second, as an integer from 0 to 104857600.-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-    }----- | 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})---- | The Amazon Resource Name (ARN) of the network profile.-npArn :: Lens' NetworkProfile (Maybe Text)-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---- | 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})---- | The name of the network profile.-npName :: Lens' NetworkProfile (Maybe Text)-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---- | The type of network profile. Valid values are listed below.-npType :: Lens' NetworkProfile (Maybe NetworkProfileType)-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})---- | 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})---- | The description of the network profile.-npDescription :: Lens' NetworkProfile (Maybe Text)-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})---- | 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})--instance FromJSON NetworkProfile where-        parseJSON-          = withObject "NetworkProfile"-              (\ x ->-                 NetworkProfile' <$>-                   (x .:? "uplinkJitterMs") <*> (x .:? "arn") <*>-                     (x .:? "uplinkLossPercent")-                     <*> (x .:? "downlinkJitterMs")-                     <*> (x .:? "name")-                     <*> (x .:? "downlinkLossPercent")-                     <*> (x .:? "type")-                     <*> (x .:? "uplinkDelayMs")-                     <*> (x .:? "uplinkBandwidthBits")-                     <*> (x .:? "description")-                     <*> (x .:? "downlinkDelayMs")-                     <*> (x .:? "downlinkBandwidthBits"))--instance Hashable NetworkProfile where--instance NFData NetworkProfile where---- | Represents the metadata of a device offering.------------ /See:/ 'offering' smart constructor.-data Offering = Offering'-  { _oPlatform         :: !(Maybe DevicePlatform)-  , _oId               :: !(Maybe Text)-  , _oRecurringCharges :: !(Maybe [RecurringCharge])-  , _oType             :: !(Maybe OfferingType)-  , _oDescription      :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Offering' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'oPlatform' - The platform of the device (e.g., ANDROID or IOS).------ * 'oId' - The ID that corresponds to a device offering.------ * 'oRecurringCharges' - Specifies whether there are recurring charges for the offering.------ * 'oType' - The type of offering (e.g., "RECURRING") for a device.------ * 'oDescription' - A string describing the offering.-offering-    :: Offering-offering =-  Offering'-    { _oPlatform = Nothing-    , _oId = Nothing-    , _oRecurringCharges = Nothing-    , _oType = Nothing-    , _oDescription = Nothing-    }----- | The platform of the device (e.g., ANDROID or IOS).-oPlatform :: Lens' Offering (Maybe DevicePlatform)-oPlatform = lens _oPlatform (\ s a -> s{_oPlatform = a})---- | The ID that corresponds to a device offering.-oId :: Lens' Offering (Maybe Text)-oId = lens _oId (\ s a -> s{_oId = a})---- | Specifies whether there are recurring charges for the offering.-oRecurringCharges :: Lens' Offering [RecurringCharge]-oRecurringCharges = lens _oRecurringCharges (\ s a -> s{_oRecurringCharges = a}) . _Default . _Coerce---- | The type of offering (e.g., "RECURRING") for a device.-oType :: Lens' Offering (Maybe OfferingType)-oType = lens _oType (\ s a -> s{_oType = a})---- | A string describing the offering.-oDescription :: Lens' Offering (Maybe Text)-oDescription = lens _oDescription (\ s a -> s{_oDescription = a})--instance FromJSON Offering where-        parseJSON-          = withObject "Offering"-              (\ x ->-                 Offering' <$>-                   (x .:? "platform") <*> (x .:? "id") <*>-                     (x .:? "recurringCharges" .!= mempty)-                     <*> (x .:? "type")-                     <*> (x .:? "description"))--instance Hashable Offering where--instance NFData Offering where---- | Represents information about an offering promotion.------------ /See:/ 'offeringPromotion' smart constructor.-data OfferingPromotion = OfferingPromotion'-  { _opId          :: !(Maybe Text)-  , _opDescription :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'OfferingPromotion' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'opId' - The ID of the offering promotion.------ * 'opDescription' - A string describing the offering promotion.-offeringPromotion-    :: OfferingPromotion-offeringPromotion =-  OfferingPromotion' {_opId = Nothing, _opDescription = Nothing}----- | The ID of the offering promotion.-opId :: Lens' OfferingPromotion (Maybe Text)-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})--instance FromJSON OfferingPromotion where-        parseJSON-          = withObject "OfferingPromotion"-              (\ x ->-                 OfferingPromotion' <$>-                   (x .:? "id") <*> (x .:? "description"))--instance Hashable OfferingPromotion where--instance NFData OfferingPromotion where---- | The status of the offering.------------ /See:/ 'offeringStatus' smart constructor.-data OfferingStatus = OfferingStatus'-  { _osEffectiveOn :: !(Maybe POSIX)-  , _osOffering    :: !(Maybe Offering)-  , _osQuantity    :: !(Maybe Int)-  , _osType        :: !(Maybe OfferingTransactionType)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'OfferingStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'osEffectiveOn' - The date on which the offering is effective.------ * 'osOffering' - Represents the metadata of an offering status.------ * 'osQuantity' - The number of available devices in the offering.------ * 'osType' - The type specified for the offering status.-offeringStatus-    :: OfferingStatus-offeringStatus =-  OfferingStatus'-    { _osEffectiveOn = Nothing-    , _osOffering = Nothing-    , _osQuantity = Nothing-    , _osType = Nothing-    }----- | The date on which the offering is effective.-osEffectiveOn :: Lens' OfferingStatus (Maybe UTCTime)-osEffectiveOn = lens _osEffectiveOn (\ s a -> s{_osEffectiveOn = a}) . mapping _Time---- | Represents the metadata of an offering status.-osOffering :: Lens' OfferingStatus (Maybe Offering)-osOffering = lens _osOffering (\ s a -> s{_osOffering = a})---- | The number of available devices in the offering.-osQuantity :: Lens' OfferingStatus (Maybe Int)-osQuantity = lens _osQuantity (\ s a -> s{_osQuantity = a})---- | The type specified for the offering status.-osType :: Lens' OfferingStatus (Maybe OfferingTransactionType)-osType = lens _osType (\ s a -> s{_osType = a})--instance FromJSON OfferingStatus where-        parseJSON-          = withObject "OfferingStatus"-              (\ x ->-                 OfferingStatus' <$>-                   (x .:? "effectiveOn") <*> (x .:? "offering") <*>-                     (x .:? "quantity")-                     <*> (x .:? "type"))--instance Hashable OfferingStatus where--instance NFData OfferingStatus where---- | Represents the metadata of an offering transaction.------------ /See:/ 'offeringTransaction' smart constructor.-data OfferingTransaction = OfferingTransaction'-  { _otOfferingStatus      :: !(Maybe OfferingStatus)-  , _otCost                :: !(Maybe MonetaryAmount)-  , _otTransactionId       :: !(Maybe Text)-  , _otOfferingPromotionId :: !(Maybe Text)-  , _otCreatedOn           :: !(Maybe POSIX)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'OfferingTransaction' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'otOfferingStatus' - The status of an offering transaction.------ * 'otCost' - The cost of an offering transaction.------ * 'otTransactionId' - The transaction ID of the offering transaction.------ * 'otOfferingPromotionId' - The ID that corresponds to a device offering promotion.------ * 'otCreatedOn' - The date on which an offering transaction was created.-offeringTransaction-    :: OfferingTransaction-offeringTransaction =-  OfferingTransaction'-    { _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})---- | The cost of an offering transaction.-otCost :: Lens' OfferingTransaction (Maybe MonetaryAmount)-otCost = lens _otCost (\ s a -> s{_otCost = a})---- | The transaction ID of the offering transaction.-otTransactionId :: Lens' OfferingTransaction (Maybe Text)-otTransactionId = lens _otTransactionId (\ s a -> s{_otTransactionId = a})---- | The ID that corresponds to a device offering promotion.-otOfferingPromotionId :: Lens' OfferingTransaction (Maybe Text)-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--instance FromJSON OfferingTransaction where-        parseJSON-          = withObject "OfferingTransaction"-              (\ x ->-                 OfferingTransaction' <$>-                   (x .:? "offeringStatus") <*> (x .:? "cost") <*>-                     (x .:? "transactionId")-                     <*> (x .:? "offeringPromotionId")-                     <*> (x .:? "createdOn"))--instance Hashable OfferingTransaction where--instance NFData OfferingTransaction where---- | Represents a specific warning or failure.------------ /See:/ 'problem' smart constructor.-data Problem = Problem'-  { _pDevice  :: !(Maybe Device)-  , _pTest    :: !(Maybe ProblemDetail)-  , _pResult  :: !(Maybe ExecutionResult)-  , _pRun     :: !(Maybe ProblemDetail)-  , _pJob     :: !(Maybe ProblemDetail)-  , _pMessage :: !(Maybe Text)-  , _pSuite   :: !(Maybe ProblemDetail)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Problem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pDevice' - Information about the associated device.------ * 'pTest' - Information about the associated test.------ * 'pResult' - 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.------ * 'pRun' - Information about the associated run.------ * 'pJob' - Information about the associated job.------ * 'pMessage' - A message about the problem's result.------ * 'pSuite' - Information about the associated suite.-problem-    :: Problem-problem =-  Problem'-    { _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})---- | Information about the associated test.-pTest :: Lens' Problem (Maybe ProblemDetail)-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})---- | Information about the associated run.-pRun :: Lens' Problem (Maybe ProblemDetail)-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})---- | A message about the problem's result.-pMessage :: Lens' Problem (Maybe Text)-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})--instance FromJSON Problem where-        parseJSON-          = withObject "Problem"-              (\ x ->-                 Problem' <$>-                   (x .:? "device") <*> (x .:? "test") <*>-                     (x .:? "result")-                     <*> (x .:? "run")-                     <*> (x .:? "job")-                     <*> (x .:? "message")-                     <*> (x .:? "suite"))--instance Hashable Problem where--instance NFData Problem where---- | Information about a problem detail.------------ /See:/ 'problemDetail' smart constructor.-data ProblemDetail = ProblemDetail'-  { _pdArn  :: !(Maybe Text)-  , _pdName :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ProblemDetail' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pdArn' - The problem detail's ARN.------ * 'pdName' - The problem detail's name.-problemDetail-    :: ProblemDetail-problemDetail = ProblemDetail' {_pdArn = Nothing, _pdName = Nothing}----- | The problem detail's ARN.-pdArn :: Lens' ProblemDetail (Maybe Text)-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})--instance FromJSON ProblemDetail where-        parseJSON-          = withObject "ProblemDetail"-              (\ x ->-                 ProblemDetail' <$> (x .:? "arn") <*> (x .:? "name"))--instance Hashable ProblemDetail where--instance NFData ProblemDetail where---- | Represents an operating-system neutral workspace for running and managing tests.------------ /See:/ 'project' smart constructor.-data Project = Project'-  { _pArn                      :: !(Maybe Text)-  , _pCreated                  :: !(Maybe POSIX)-  , _pName                     :: !(Maybe Text)-  , _pDefaultJobTimeoutMinutes :: !(Maybe Int)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Project' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pArn' - The project's ARN.------ * 'pCreated' - When the project was created.------ * 'pName' - The project's name.------ * 'pDefaultJobTimeoutMinutes' - The default number of minutes (at the project level) a test run will execute before it times out. Default value is 60 minutes.-project-    :: Project-project =-  Project'-    { _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})---- | When the project was created.-pCreated :: Lens' Project (Maybe UTCTime)-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})---- | 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})--instance FromJSON Project where-        parseJSON-          = withObject "Project"-              (\ x ->-                 Project' <$>-                   (x .:? "arn") <*> (x .:? "created") <*>-                     (x .:? "name")-                     <*> (x .:? "defaultJobTimeoutMinutes"))--instance Hashable Project where--instance NFData Project where---- | Represents the set of radios and their states on a device. Examples of radios include Wi-Fi, GPS, Bluetooth, and NFC.------------ /See:/ 'radios' smart constructor.-data Radios = Radios'-  { _rNfc       :: !(Maybe Bool)-  , _rGps       :: !(Maybe Bool)-  , _rBluetooth :: !(Maybe Bool)-  , _rWifi      :: !(Maybe Bool)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Radios' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rNfc' - True if NFC is enabled at the beginning of the test; otherwise, false.------ * 'rGps' - True if GPS is enabled at the beginning of the test; otherwise, false.------ * 'rBluetooth' - True if Bluetooth is enabled at the beginning of the test; otherwise, false.------ * 'rWifi' - True if Wi-Fi is enabled at the beginning of the test; otherwise, false.-radios-    :: Radios-radios =-  Radios'-    {_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})---- | 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})---- | 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})---- | 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})--instance FromJSON Radios where-        parseJSON-          = withObject "Radios"-              (\ x ->-                 Radios' <$>-                   (x .:? "nfc") <*> (x .:? "gps") <*>-                     (x .:? "bluetooth")-                     <*> (x .:? "wifi"))--instance Hashable Radios where--instance NFData Radios where--instance ToJSON Radios where-        toJSON Radios'{..}-          = object-              (catMaybes-                 [("nfc" .=) <$> _rNfc, ("gps" .=) <$> _rGps,-                  ("bluetooth" .=) <$> _rBluetooth,-                  ("wifi" .=) <$> _rWifi])---- | Specifies whether charges for devices will be recurring.------------ /See:/ 'recurringCharge' smart constructor.-data RecurringCharge = RecurringCharge'-  { _rcFrequency :: !(Maybe RecurringChargeFrequency)-  , _rcCost      :: !(Maybe MonetaryAmount)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RecurringCharge' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rcFrequency' - The frequency in which charges will recur.------ * 'rcCost' - The cost of the recurring charge.-recurringCharge-    :: RecurringCharge-recurringCharge = RecurringCharge' {_rcFrequency = Nothing, _rcCost = Nothing}----- | The frequency in which charges will recur.-rcFrequency :: Lens' RecurringCharge (Maybe RecurringChargeFrequency)-rcFrequency = lens _rcFrequency (\ s a -> s{_rcFrequency = a})---- | The cost of the recurring charge.-rcCost :: Lens' RecurringCharge (Maybe MonetaryAmount)-rcCost = lens _rcCost (\ s a -> s{_rcCost = a})--instance FromJSON RecurringCharge where-        parseJSON-          = withObject "RecurringCharge"-              (\ x ->-                 RecurringCharge' <$>-                   (x .:? "frequency") <*> (x .:? "cost"))--instance Hashable RecurringCharge where--instance NFData RecurringCharge where---- | Represents information about the remote access session.------------ /See:/ 'remoteAccessSession' smart constructor.-data RemoteAccessSession = RemoteAccessSession'-  { _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)----- | Creates a value of 'RemoteAccessSession' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rasBillingMethod' - 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> ."------ * 'rasClientId' - Unique identifier of your client for the remote access session. Only returned if remote debugging is enabled for the remote access session.------ * '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.------ * 'rasStopped' - The date and time the remote access session was stopped.------ * 'rasResult' - 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.------ * 'rasName' - The name of the remote access session.------ * 'rasDeviceMinutes' - The number of minutes a device is used in a remote access sesssion (including setup and teardown minutes).------ * 'rasRemoteDebugEnabled' - This flag is set to @true@ if remote debugging is enabled for the remote access session.------ * 'rasEndpoint' - The endpoint for the remote access sesssion.------ * 'rasMessage' - A message about the remote access session.------ * '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-    , _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})---- | 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})---- | 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})---- | 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})---- | 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})---- | 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---- | The device (phone or tablet) used in the remote access session.-rasDevice :: Lens' RemoteAccessSession (Maybe Device)-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---- | 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})---- | The name of the remote access session.-rasName :: Lens' RemoteAccessSession (Maybe Text)-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})---- | 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})---- | The endpoint for the remote access sesssion.-rasEndpoint :: Lens' RemoteAccessSession (Maybe Text)-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})---- | 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})---- | 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--instance FromJSON RemoteAccessSession where-        parseJSON-          = withObject "RemoteAccessSession"-              (\ x ->-                 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")-                     <*> (x .:? "result")-                     <*> (x .:? "name")-                     <*> (x .:? "deviceMinutes")-                     <*> (x .:? "remoteDebugEnabled")-                     <*> (x .:? "endpoint")-                     <*> (x .:? "message")-                     <*> (x .:? "hostAddress")-                     <*> (x .:? "interactionMode")-                     <*> (x .:? "started"))--instance Hashable RemoteAccessSession where--instance NFData RemoteAccessSession where---- | Represents the screen resolution of a device in height and width, expressed in pixels.------------ /See:/ 'resolution' smart constructor.-data Resolution = Resolution'-  { _rHeight :: !(Maybe Int)-  , _rWidth  :: !(Maybe Int)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Resolution' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rHeight' - The screen resolution's height, expressed in pixels.------ * 'rWidth' - The screen resolution's width, expressed in pixels.-resolution-    :: Resolution-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})---- | The screen resolution's width, expressed in pixels.-rWidth :: Lens' Resolution (Maybe Int)-rWidth = lens _rWidth (\ s a -> s{_rWidth = a})--instance FromJSON Resolution where-        parseJSON-          = withObject "Resolution"-              (\ x ->-                 Resolution' <$> (x .:? "height") <*> (x .:? "width"))--instance Hashable Resolution where--instance NFData Resolution where---- | Represents a condition for a device pool.------------ /See:/ 'rule' smart constructor.-data Rule = Rule'-  { _rAttribute :: !(Maybe DeviceAttribute)-  , _rOperator  :: !(Maybe RuleOperator)-  , _rValue     :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Rule' with the minimum fields required to make a request.------ 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.     * 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.------ * 'rValue' - The rule's value.-rule-    :: 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.     * 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})---- | 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})---- | The rule's value.-rValue :: Lens' Rule (Maybe Text)-rValue = lens _rValue (\ s a -> s{_rValue = a})--instance FromJSON Rule where-        parseJSON-          = withObject "Rule"-              (\ x ->-                 Rule' <$>-                   (x .:? "attribute") <*> (x .:? "operator") <*>-                     (x .:? "value"))--instance Hashable Rule where--instance NFData Rule where--instance ToJSON Rule where-        toJSON Rule'{..}-          = object-              (catMaybes-                 [("attribute" .=) <$> _rAttribute,-                  ("operator" .=) <$> _rOperator,-                  ("value" .=) <$> _rValue])---- | Represents a test run on a set of devices with a given app package, test parameters, etc.------------ /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)----- | Creates a value of 'Run' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * '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.------ * 'runDeviceMinutes' - Represents the total (metered or unmetered) minutes used by the test run.------ * 'runType' - 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.------ * '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-    , _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})---- | 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})---- | Output @CustomerArtifactPaths@ object for the test run.-runCustomerArtifactPaths :: Lens' Run (Maybe CustomerArtifactPaths)-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})---- | 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})---- | 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})---- | 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---- | 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---- | 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})---- | 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})---- | 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})---- | The run's name.-runName :: Lens' Run (Maybe Text)-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})---- | The network profile being used for a test run.-runNetworkProfile :: Lens' Run (Maybe NetworkProfile)-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})---- | 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})---- | A message about the run's result.-runMessage :: Lens' Run (Maybe Text)-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})---- | 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--instance FromJSON Run where-        parseJSON-          = withObject "Run"-              (\ x ->-                 Run' <$>-                   (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--instance NFData Run where---- | Represents a sample of performance data.------------ /See:/ 'sample' smart constructor.-data Sample = Sample'-  { _samArn  :: !(Maybe Text)-  , _samUrl  :: !(Maybe Text)-  , _samType :: !(Maybe SampleType)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Sample' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'samArn' - The sample's ARN.------ * 'samUrl' - The pre-signed Amazon S3 URL that can be used with a corresponding GET request to download the sample's file.------ * 'samType' - 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.-sample-    :: Sample-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})---- | 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})---- | 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})--instance FromJSON Sample where-        parseJSON-          = withObject "Sample"-              (\ x ->-                 Sample' <$>-                   (x .:? "arn") <*> (x .:? "url") <*> (x .:? "type"))--instance Hashable Sample where--instance NFData Sample where---- | Represents the settings for a run. Includes things like location, radio states, auxiliary apps, and network profiles.------------ /See:/ 'scheduleRunConfiguration' smart constructor.-data ScheduleRunConfiguration = ScheduleRunConfiguration'-  { _srcBillingMethod         :: !(Maybe BillingMethod)-  , _srcCustomerArtifactPaths :: !(Maybe CustomerArtifactPaths)-  , _srcRadios                :: !(Maybe Radios)-  , _srcLocation              :: !(Maybe Location)-  , _srcLocale                :: !(Maybe Text)-  , _srcNetworkProfileARN     :: !(Maybe Text)-  , _srcExtraDataPackageARN   :: !(Maybe Text)-  , _srcAuxiliaryApps         :: !(Maybe [Text])-  , _srcVpceConfigurationARNs :: !(Maybe [Text])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ScheduleRunConfiguration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'srcBillingMethod' - Specifies the billing method for a test run: @metered@ or @unmetered@ . If the parameter is not specified, the default value is @metered@ .------ * 'srcCustomerArtifactPaths' - Input @CustomerArtifactPaths@ object for the scheduled run configuration.------ * 'srcRadios' - Information about the radio states for the run.------ * 'srcLocation' - Information about the location that is used for the run.------ * 'srcLocale' - Information about the locale that is used for the run.------ * 'srcNetworkProfileARN' - Reserved for internal use.------ * '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-    , _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})---- | Input @CustomerArtifactPaths@ object for the scheduled run configuration.-srcCustomerArtifactPaths :: Lens' ScheduleRunConfiguration (Maybe CustomerArtifactPaths)-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})---- | Information about the location that is used for the run.-srcLocation :: Lens' ScheduleRunConfiguration (Maybe Location)-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})---- | Reserved for internal use.-srcNetworkProfileARN :: Lens' ScheduleRunConfiguration (Maybe Text)-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})---- | A list of auxiliary apps for the run.-srcAuxiliaryApps :: Lens' ScheduleRunConfiguration [Text]-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--instance NFData ScheduleRunConfiguration where--instance ToJSON ScheduleRunConfiguration where-        toJSON ScheduleRunConfiguration'{..}-          = object-              (catMaybes-                 [("billingMethod" .=) <$> _srcBillingMethod,-                  ("customerArtifactPaths" .=) <$>-                    _srcCustomerArtifactPaths,-                  ("radios" .=) <$> _srcRadios,-                  ("location" .=) <$> _srcLocation,-                  ("locale" .=) <$> _srcLocale,-                  ("networkProfileArn" .=) <$> _srcNetworkProfileARN,-                  ("extraDataPackageArn" .=) <$>-                    _srcExtraDataPackageARN,-                  ("auxiliaryApps" .=) <$> _srcAuxiliaryApps,-                  ("vpceConfigurationArns" .=) <$>-                    _srcVpceConfigurationARNs])---- | Represents additional test settings.------------ /See:/ 'scheduleRunTest' smart constructor.-data ScheduleRunTest = ScheduleRunTest'-  { _srtTestPackageARN :: !(Maybe Text)-  , _srtParameters     :: !(Maybe (Map Text Text))-  , _srtFilter         :: !(Maybe Text)-  , _srtType           :: !TestType-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ScheduleRunTest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'srtTestPackageARN' - The ARN of the uploaded test that will be run.------ * 'srtParameters' - 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"------ * 'srtFilter' - The test's filter.------ * 'srtType' - 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.-scheduleRunTest-    :: TestType -- ^ 'srtType'-    -> ScheduleRunTest-scheduleRunTest pType_ =-  ScheduleRunTest'-    { _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})---- | 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---- | The test's filter.-srtFilter :: Lens' ScheduleRunTest (Maybe Text)-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})--instance Hashable ScheduleRunTest where--instance NFData ScheduleRunTest where--instance ToJSON ScheduleRunTest where-        toJSON ScheduleRunTest'{..}-          = object-              (catMaybes-                 [("testPackageArn" .=) <$> _srtTestPackageARN,-                  ("parameters" .=) <$> _srtParameters,-                  ("filter" .=) <$> _srtFilter,-                  Just ("type" .= _srtType)])---- | Represents a collection of one or more tests.------------ /See:/ 'suite' smart constructor.-data Suite = Suite'-  { _sStatus        :: !(Maybe ExecutionStatus)-  , _sCounters      :: !(Maybe Counters)-  , _sArn           :: !(Maybe Text)-  , _sCreated       :: !(Maybe POSIX)-  , _sStopped       :: !(Maybe POSIX)-  , _sResult        :: !(Maybe ExecutionResult)-  , _sName          :: !(Maybe Text)-  , _sDeviceMinutes :: !(Maybe DeviceMinutes)-  , _sType          :: !(Maybe TestType)-  , _sMessage       :: !(Maybe Text)-  , _sStarted       :: !(Maybe POSIX)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Suite' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sStatus' - 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.------ * 'sCounters' - The suite's result counters.------ * 'sArn' - The suite's ARN.------ * 'sCreated' - When the suite was created.------ * 'sStopped' - The suite's stop time.------ * 'sResult' - 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.------ * 'sName' - The suite's name.------ * 'sDeviceMinutes' - Represents the total (metered or unmetered) minutes used by the test suite.------ * 'sType' - 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.------ * 'sMessage' - A message about the suite's result.------ * 'sStarted' - The suite's start time.-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-    }----- | 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})---- | The suite's result counters.-sCounters :: Lens' Suite (Maybe Counters)-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})---- | When the suite was created.-sCreated :: Lens' Suite (Maybe UTCTime)-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---- | 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})---- | The suite's name.-sName :: Lens' Suite (Maybe Text)-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})---- | 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})---- | A message about the suite's result.-sMessage :: Lens' Suite (Maybe Text)-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--instance FromJSON Suite where-        parseJSON-          = withObject "Suite"-              (\ x ->-                 Suite' <$>-                   (x .:? "status") <*> (x .:? "counters") <*>-                     (x .:? "arn")-                     <*> (x .:? "created")-                     <*> (x .:? "stopped")-                     <*> (x .:? "result")-                     <*> (x .:? "name")-                     <*> (x .:? "deviceMinutes")-                     <*> (x .:? "type")-                     <*> (x .:? "message")-                     <*> (x .:? "started"))--instance Hashable Suite where--instance NFData Suite where---- | Represents a condition that is evaluated.------------ /See:/ 'test' smart constructor.-data Test = Test'-  { _tStatus        :: !(Maybe ExecutionStatus)-  , _tCounters      :: !(Maybe Counters)-  , _tArn           :: !(Maybe Text)-  , _tCreated       :: !(Maybe POSIX)-  , _tStopped       :: !(Maybe POSIX)-  , _tResult        :: !(Maybe ExecutionResult)-  , _tName          :: !(Maybe Text)-  , _tDeviceMinutes :: !(Maybe DeviceMinutes)-  , _tType          :: !(Maybe TestType)-  , _tMessage       :: !(Maybe Text)-  , _tStarted       :: !(Maybe POSIX)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Test' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tStatus' - 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.------ * 'tCounters' - The test's result counters.------ * 'tArn' - The test's ARN.------ * 'tCreated' - When the test was created.------ * 'tStopped' - The test's stop time.------ * 'tResult' - 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.------ * 'tName' - The test's name.------ * 'tDeviceMinutes' - Represents the total (metered or unmetered) minutes used by the test.------ * 'tType' - 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.------ * 'tMessage' - A message about the test's result.------ * 'tStarted' - The test's start time.-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-    }----- | 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})---- | The test's result counters.-tCounters :: Lens' Test (Maybe Counters)-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})---- | When the test was created.-tCreated :: Lens' Test (Maybe UTCTime)-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---- | 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})---- | The test's name.-tName :: Lens' Test (Maybe Text)-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})---- | 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})---- | A message about the test's result.-tMessage :: Lens' Test (Maybe Text)-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--instance FromJSON Test where-        parseJSON-          = withObject "Test"-              (\ x ->-                 Test' <$>-                   (x .:? "status") <*> (x .:? "counters") <*>-                     (x .:? "arn")-                     <*> (x .:? "created")-                     <*> (x .:? "stopped")-                     <*> (x .:? "result")-                     <*> (x .:? "name")-                     <*> (x .:? "deviceMinutes")-                     <*> (x .:? "type")-                     <*> (x .:? "message")-                     <*> (x .:? "started"))--instance Hashable Test where--instance NFData Test where---- | Represents information about free trial device minutes for an AWS account.------------ /See:/ 'trialMinutes' smart constructor.-data TrialMinutes = TrialMinutes'-  { _tmRemaining :: !(Maybe Double)-  , _tmTotal     :: !(Maybe Double)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'TrialMinutes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tmRemaining' - The number of free trial minutes remaining in the account.------ * 'tmTotal' - The total number of free trial minutes that the account started with.-trialMinutes-    :: TrialMinutes-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})---- | 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})--instance FromJSON TrialMinutes where-        parseJSON-          = withObject "TrialMinutes"-              (\ x ->-                 TrialMinutes' <$>-                   (x .:? "remaining") <*> (x .:? "total"))--instance Hashable TrialMinutes where--instance NFData TrialMinutes where---- | A collection of one or more problems, grouped by their result.------------ /See:/ 'uniqueProblem' smart constructor.-data UniqueProblem = UniqueProblem'-  { _upProblems :: !(Maybe [Problem])-  , _upMessage  :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'UniqueProblem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'upProblems' - Information about the problems.------ * 'upMessage' - A message about the unique problems' result.-uniqueProblem-    :: UniqueProblem-uniqueProblem = UniqueProblem' {_upProblems = Nothing, _upMessage = Nothing}----- | Information about the problems.-upProblems :: Lens' UniqueProblem [Problem]-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})--instance FromJSON UniqueProblem where-        parseJSON-          = withObject "UniqueProblem"-              (\ x ->-                 UniqueProblem' <$>-                   (x .:? "problems" .!= mempty) <*> (x .:? "message"))--instance Hashable UniqueProblem where--instance NFData UniqueProblem where---- | An app or a set of one or more tests to upload or that have been uploaded.------------ /See:/ 'upload' smart constructor.-data Upload = Upload'-  { _uStatus      :: !(Maybe UploadStatus)-  , _uArn         :: !(Maybe Text)-  , _uCreated     :: !(Maybe POSIX)-  , _uUrl         :: !(Maybe Text)-  , _uName        :: !(Maybe Text)-  , _uMetadata    :: !(Maybe Text)-  , _uType        :: !(Maybe UploadType)-  , _uMessage     :: !(Maybe Text)-  , _uContentType :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Upload' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uStatus' - 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.------ * 'uArn' - The upload's ARN.------ * 'uCreated' - When the upload was created.------ * 'uUrl' - The pre-signed Amazon S3 URL that was used to store a file through a corresponding PUT request.------ * 'uName' - The upload's file name.------ * 'uMetadata' - 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.------ * 'uType' - 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.------ * 'uMessage' - A message about the upload's result.------ * 'uContentType' - The upload's content type (for example, "application/octet-stream").-upload-    :: Upload-upload =-  Upload'-    { _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})---- | The upload's ARN.-uArn :: Lens' Upload (Maybe Text)-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---- | 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})---- | The upload's file name.-uName :: Lens' Upload (Maybe Text)-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})---- | 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})---- | A message about the upload's result.-uMessage :: Lens' Upload (Maybe Text)-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})--instance FromJSON Upload where-        parseJSON-          = withObject "Upload"-              (\ x ->-                 Upload' <$>-                   (x .:? "status") <*> (x .:? "arn") <*>-                     (x .:? "created")-                     <*> (x .:? "url")-                     <*> (x .:? "name")-                     <*> (x .:? "metadata")-                     <*> (x .:? "type")-                     <*> (x .:? "message")-                     <*> (x .:? "contentType"))--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
− gen/Network/AWS/DeviceFarm/Types/Sum.hs
@@ -1,929 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE LambdaCase         #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DeviceFarm.Types.Sum--- 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)----module Network.AWS.DeviceFarm.Types.Sum where--import Network.AWS.Prelude--data ArtifactCategory-  = ACFile-  | ACLog-  | ACScreenshot-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText ArtifactCategory where-    parser = takeLowerText >>= \case-        "file" -> pure ACFile-        "log" -> pure ACLog-        "screenshot" -> pure ACScreenshot-        e -> fromTextError $ "Failure parsing ArtifactCategory from value: '" <> e-           <> "'. Accepted values: file, log, screenshot"--instance ToText ArtifactCategory where-    toText = \case-        ACFile -> "FILE"-        ACLog -> "LOG"-        ACScreenshot -> "SCREENSHOT"--instance Hashable     ArtifactCategory-instance NFData       ArtifactCategory-instance ToByteString ArtifactCategory-instance ToQuery      ArtifactCategory-instance ToHeader     ArtifactCategory--instance ToJSON ArtifactCategory where-    toJSON = toJSONText--data ArtifactType-  = AppiumJavaOutput-  | AppiumJavaXMLOutput-  | AppiumPythonOutput-  | AppiumPythonXMLOutput-  | AppiumServerOutput-  | ApplicationCrashReport-  | AutomationOutput-  | CalabashJSONOutput-  | CalabashJavaXMLOutput-  | CalabashPrettyOutput-  | CalabashStandardOutput-  | CustomerArtifact-  | CustomerArtifactLog-  | DeviceLog-  | ExerciserMonkeyOutput-  | ExplorerEventLog-  | ExplorerSummaryLog-  | InstrumentationOutput-  | MessageLog-  | ResultLog-  | Screenshot-  | ServiceLog-  | Unknown-  | Video-  | VideoLog-  | WebkitLog-  | XctestLog-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText ArtifactType where-    parser = takeLowerText >>= \case-        "appium_java_output" -> pure AppiumJavaOutput-        "appium_java_xml_output" -> pure AppiumJavaXMLOutput-        "appium_python_output" -> pure AppiumPythonOutput-        "appium_python_xml_output" -> pure AppiumPythonXMLOutput-        "appium_server_output" -> pure AppiumServerOutput-        "application_crash_report" -> pure ApplicationCrashReport-        "automation_output" -> pure AutomationOutput-        "calabash_json_output" -> pure CalabashJSONOutput-        "calabash_java_xml_output" -> pure CalabashJavaXMLOutput-        "calabash_pretty_output" -> pure CalabashPrettyOutput-        "calabash_standard_output" -> pure CalabashStandardOutput-        "customer_artifact" -> pure CustomerArtifact-        "customer_artifact_log" -> pure CustomerArtifactLog-        "device_log" -> pure DeviceLog-        "exerciser_monkey_output" -> pure ExerciserMonkeyOutput-        "explorer_event_log" -> pure ExplorerEventLog-        "explorer_summary_log" -> pure ExplorerSummaryLog-        "instrumentation_output" -> pure InstrumentationOutput-        "message_log" -> pure MessageLog-        "result_log" -> pure ResultLog-        "screenshot" -> pure Screenshot-        "service_log" -> pure ServiceLog-        "unknown" -> pure Unknown-        "video" -> pure Video-        "video_log" -> pure VideoLog-        "webkit_log" -> pure WebkitLog-        "xctest_log" -> pure XctestLog-        e -> fromTextError $ "Failure parsing ArtifactType from value: '" <> e-           <> "'. Accepted values: appium_java_output, appium_java_xml_output, appium_python_output, appium_python_xml_output, appium_server_output, application_crash_report, automation_output, calabash_json_output, calabash_java_xml_output, calabash_pretty_output, calabash_standard_output, customer_artifact, customer_artifact_log, device_log, exerciser_monkey_output, explorer_event_log, explorer_summary_log, instrumentation_output, message_log, result_log, screenshot, service_log, unknown, video, video_log, webkit_log, xctest_log"--instance ToText ArtifactType where-    toText = \case-        AppiumJavaOutput -> "APPIUM_JAVA_OUTPUT"-        AppiumJavaXMLOutput -> "APPIUM_JAVA_XML_OUTPUT"-        AppiumPythonOutput -> "APPIUM_PYTHON_OUTPUT"-        AppiumPythonXMLOutput -> "APPIUM_PYTHON_XML_OUTPUT"-        AppiumServerOutput -> "APPIUM_SERVER_OUTPUT"-        ApplicationCrashReport -> "APPLICATION_CRASH_REPORT"-        AutomationOutput -> "AUTOMATION_OUTPUT"-        CalabashJSONOutput -> "CALABASH_JSON_OUTPUT"-        CalabashJavaXMLOutput -> "CALABASH_JAVA_XML_OUTPUT"-        CalabashPrettyOutput -> "CALABASH_PRETTY_OUTPUT"-        CalabashStandardOutput -> "CALABASH_STANDARD_OUTPUT"-        CustomerArtifact -> "CUSTOMER_ARTIFACT"-        CustomerArtifactLog -> "CUSTOMER_ARTIFACT_LOG"-        DeviceLog -> "DEVICE_LOG"-        ExerciserMonkeyOutput -> "EXERCISER_MONKEY_OUTPUT"-        ExplorerEventLog -> "EXPLORER_EVENT_LOG"-        ExplorerSummaryLog -> "EXPLORER_SUMMARY_LOG"-        InstrumentationOutput -> "INSTRUMENTATION_OUTPUT"-        MessageLog -> "MESSAGE_LOG"-        ResultLog -> "RESULT_LOG"-        Screenshot -> "SCREENSHOT"-        ServiceLog -> "SERVICE_LOG"-        Unknown -> "UNKNOWN"-        Video -> "VIDEO"-        VideoLog -> "VIDEO_LOG"-        WebkitLog -> "WEBKIT_LOG"-        XctestLog -> "XCTEST_LOG"--instance Hashable     ArtifactType-instance NFData       ArtifactType-instance ToByteString ArtifactType-instance ToQuery      ArtifactType-instance ToHeader     ArtifactType--instance FromJSON ArtifactType where-    parseJSON = parseJSONText "ArtifactType"--data BillingMethod-  = Metered-  | Unmetered-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText BillingMethod where-    parser = takeLowerText >>= \case-        "metered" -> pure Metered-        "unmetered" -> pure Unmetered-        e -> fromTextError $ "Failure parsing BillingMethod from value: '" <> e-           <> "'. Accepted values: metered, unmetered"--instance ToText BillingMethod where-    toText = \case-        Metered -> "METERED"-        Unmetered -> "UNMETERED"--instance Hashable     BillingMethod-instance NFData       BillingMethod-instance ToByteString BillingMethod-instance ToQuery      BillingMethod-instance ToHeader     BillingMethod--instance ToJSON BillingMethod where-    toJSON = toJSONText--instance FromJSON BillingMethod where-    parseJSON = parseJSONText "BillingMethod"--data CurrencyCode =-  Usd-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText CurrencyCode where-    parser = takeLowerText >>= \case-        "usd" -> pure Usd-        e -> fromTextError $ "Failure parsing CurrencyCode from value: '" <> e-           <> "'. Accepted values: usd"--instance ToText CurrencyCode where-    toText = \case-        Usd -> "USD"--instance Hashable     CurrencyCode-instance NFData       CurrencyCode-instance ToByteString CurrencyCode-instance ToQuery      CurrencyCode-instance ToHeader     CurrencyCode--instance FromJSON CurrencyCode where-    parseJSON = parseJSONText "CurrencyCode"--data DeviceAttribute-  = ARN-  | AppiumVersion-  | FleetType-  | FormFactor-  | InstanceARN-  | InstanceLabels-  | Manufacturer-  | Platform-  | RemoteAccessEnabled-  | RemoteDebugEnabled-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---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, 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"-        RemoteDebugEnabled -> "REMOTE_DEBUG_ENABLED"--instance Hashable     DeviceAttribute-instance NFData       DeviceAttribute-instance ToByteString DeviceAttribute-instance ToQuery      DeviceAttribute-instance ToHeader     DeviceAttribute--instance ToJSON DeviceAttribute where-    toJSON = toJSONText--instance FromJSON DeviceAttribute where-    parseJSON = parseJSONText "DeviceAttribute"--data DeviceFormFactor-  = Phone-  | Tablet-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText DeviceFormFactor where-    parser = takeLowerText >>= \case-        "phone" -> pure Phone-        "tablet" -> pure Tablet-        e -> fromTextError $ "Failure parsing DeviceFormFactor from value: '" <> e-           <> "'. Accepted values: phone, tablet"--instance ToText DeviceFormFactor where-    toText = \case-        Phone -> "PHONE"-        Tablet -> "TABLET"--instance Hashable     DeviceFormFactor-instance NFData       DeviceFormFactor-instance ToByteString DeviceFormFactor-instance ToQuery      DeviceFormFactor-instance ToHeader     DeviceFormFactor--instance FromJSON DeviceFormFactor where-    parseJSON = parseJSONText "DeviceFormFactor"--data DevicePlatform-  = Android-  | Ios-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText DevicePlatform where-    parser = takeLowerText >>= \case-        "android" -> pure Android-        "ios" -> pure Ios-        e -> fromTextError $ "Failure parsing DevicePlatform from value: '" <> e-           <> "'. Accepted values: android, ios"--instance ToText DevicePlatform where-    toText = \case-        Android -> "ANDROID"-        Ios -> "IOS"--instance Hashable     DevicePlatform-instance NFData       DevicePlatform-instance ToByteString DevicePlatform-instance ToQuery      DevicePlatform-instance ToHeader     DevicePlatform--instance FromJSON DevicePlatform where-    parseJSON = parseJSONText "DevicePlatform"--data DevicePoolType-  = DPTCurated-  | DPTPrivate-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText DevicePoolType where-    parser = takeLowerText >>= \case-        "curated" -> pure DPTCurated-        "private" -> pure DPTPrivate-        e -> fromTextError $ "Failure parsing DevicePoolType from value: '" <> e-           <> "'. Accepted values: curated, private"--instance ToText DevicePoolType where-    toText = \case-        DPTCurated -> "CURATED"-        DPTPrivate -> "PRIVATE"--instance Hashable     DevicePoolType-instance NFData       DevicePoolType-instance ToByteString DevicePoolType-instance ToQuery      DevicePoolType-instance ToHeader     DevicePoolType--instance ToJSON DevicePoolType where-    toJSON = toJSONText--instance FromJSON DevicePoolType where-    parseJSON = parseJSONText "DevicePoolType"--data ExecutionResult-  = ERErrored-  | ERFailed-  | ERPassed-  | ERPending-  | ERSkipped-  | ERStopped-  | ERWarned-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText ExecutionResult where-    parser = takeLowerText >>= \case-        "errored" -> pure ERErrored-        "failed" -> pure ERFailed-        "passed" -> pure ERPassed-        "pending" -> pure ERPending-        "skipped" -> pure ERSkipped-        "stopped" -> pure ERStopped-        "warned" -> pure ERWarned-        e -> fromTextError $ "Failure parsing ExecutionResult from value: '" <> e-           <> "'. Accepted values: errored, failed, passed, pending, skipped, stopped, warned"--instance ToText ExecutionResult where-    toText = \case-        ERErrored -> "ERRORED"-        ERFailed -> "FAILED"-        ERPassed -> "PASSED"-        ERPending -> "PENDING"-        ERSkipped -> "SKIPPED"-        ERStopped -> "STOPPED"-        ERWarned -> "WARNED"--instance Hashable     ExecutionResult-instance NFData       ExecutionResult-instance ToByteString ExecutionResult-instance ToQuery      ExecutionResult-instance ToHeader     ExecutionResult--instance FromJSON ExecutionResult where-    parseJSON = parseJSONText "ExecutionResult"--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, vpc_endpoint_setup_failed"--instance ToText ExecutionResultCode where-    toText = \case-        ParsingFailed -> "PARSING_FAILED"-        VPCEndpointSetupFailed -> "VPC_ENDPOINT_SETUP_FAILED"--instance Hashable     ExecutionResultCode-instance NFData       ExecutionResultCode-instance ToByteString ExecutionResultCode-instance ToQuery      ExecutionResultCode-instance ToHeader     ExecutionResultCode--instance FromJSON ExecutionResultCode where-    parseJSON = parseJSONText "ExecutionResultCode"--data ExecutionStatus-  = Completed-  | Pending-  | PendingConcurrency-  | PendingDevice-  | Preparing-  | Processing-  | Running-  | Scheduling-  | Stopping-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText ExecutionStatus where-    parser = takeLowerText >>= \case-        "completed" -> pure Completed-        "pending" -> pure Pending-        "pending_concurrency" -> pure PendingConcurrency-        "pending_device" -> pure PendingDevice-        "preparing" -> pure Preparing-        "processing" -> pure Processing-        "running" -> pure Running-        "scheduling" -> pure Scheduling-        "stopping" -> pure Stopping-        e -> fromTextError $ "Failure parsing ExecutionStatus from value: '" <> e-           <> "'. Accepted values: completed, pending, pending_concurrency, pending_device, preparing, processing, running, scheduling, stopping"--instance ToText ExecutionStatus where-    toText = \case-        Completed -> "COMPLETED"-        Pending -> "PENDING"-        PendingConcurrency -> "PENDING_CONCURRENCY"-        PendingDevice -> "PENDING_DEVICE"-        Preparing -> "PREPARING"-        Processing -> "PROCESSING"-        Running -> "RUNNING"-        Scheduling -> "SCHEDULING"-        Stopping -> "STOPPING"--instance Hashable     ExecutionStatus-instance NFData       ExecutionStatus-instance ToByteString ExecutionStatus-instance ToQuery      ExecutionStatus-instance ToHeader     ExecutionStatus--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-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText NetworkProfileType where-    parser = takeLowerText >>= \case-        "curated" -> pure Curated-        "private" -> pure Private-        e -> fromTextError $ "Failure parsing NetworkProfileType from value: '" <> e-           <> "'. Accepted values: curated, private"--instance ToText NetworkProfileType where-    toText = \case-        Curated -> "CURATED"-        Private -> "PRIVATE"--instance Hashable     NetworkProfileType-instance NFData       NetworkProfileType-instance ToByteString NetworkProfileType-instance ToQuery      NetworkProfileType-instance ToHeader     NetworkProfileType--instance ToJSON NetworkProfileType where-    toJSON = toJSONText--instance FromJSON NetworkProfileType where-    parseJSON = parseJSONText "NetworkProfileType"--data OfferingTransactionType-  = Purchase-  | Renew-  | System-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText OfferingTransactionType where-    parser = takeLowerText >>= \case-        "purchase" -> pure Purchase-        "renew" -> pure Renew-        "system" -> pure System-        e -> fromTextError $ "Failure parsing OfferingTransactionType from value: '" <> e-           <> "'. Accepted values: purchase, renew, system"--instance ToText OfferingTransactionType where-    toText = \case-        Purchase -> "PURCHASE"-        Renew -> "RENEW"-        System -> "SYSTEM"--instance Hashable     OfferingTransactionType-instance NFData       OfferingTransactionType-instance ToByteString OfferingTransactionType-instance ToQuery      OfferingTransactionType-instance ToHeader     OfferingTransactionType--instance FromJSON OfferingTransactionType where-    parseJSON = parseJSONText "OfferingTransactionType"--data OfferingType =-  Recurring-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText OfferingType where-    parser = takeLowerText >>= \case-        "recurring" -> pure Recurring-        e -> fromTextError $ "Failure parsing OfferingType from value: '" <> e-           <> "'. Accepted values: recurring"--instance ToText OfferingType where-    toText = \case-        Recurring -> "RECURRING"--instance Hashable     OfferingType-instance NFData       OfferingType-instance ToByteString OfferingType-instance ToQuery      OfferingType-instance ToHeader     OfferingType--instance FromJSON OfferingType where-    parseJSON = parseJSONText "OfferingType"--data RecurringChargeFrequency =-  Monthly-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText RecurringChargeFrequency where-    parser = takeLowerText >>= \case-        "monthly" -> pure Monthly-        e -> fromTextError $ "Failure parsing RecurringChargeFrequency from value: '" <> e-           <> "'. Accepted values: monthly"--instance ToText RecurringChargeFrequency where-    toText = \case-        Monthly -> "MONTHLY"--instance Hashable     RecurringChargeFrequency-instance NFData       RecurringChargeFrequency-instance ToByteString RecurringChargeFrequency-instance ToQuery      RecurringChargeFrequency-instance ToHeader     RecurringChargeFrequency--instance FromJSON RecurringChargeFrequency where-    parseJSON = parseJSONText "RecurringChargeFrequency"--data RuleOperator-  = Contains-  | Equals-  | GreaterThan-  | IN-  | LessThan-  | NotIn-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText RuleOperator where-    parser = takeLowerText >>= \case-        "contains" -> pure Contains-        "equals" -> pure Equals-        "greater_than" -> pure GreaterThan-        "in" -> pure IN-        "less_than" -> pure LessThan-        "not_in" -> pure NotIn-        e -> fromTextError $ "Failure parsing RuleOperator from value: '" <> e-           <> "'. Accepted values: contains, equals, greater_than, in, less_than, not_in"--instance ToText RuleOperator where-    toText = \case-        Contains -> "CONTAINS"-        Equals -> "EQUALS"-        GreaterThan -> "GREATER_THAN"-        IN -> "IN"-        LessThan -> "LESS_THAN"-        NotIn -> "NOT_IN"--instance Hashable     RuleOperator-instance NFData       RuleOperator-instance ToByteString RuleOperator-instance ToQuery      RuleOperator-instance ToHeader     RuleOperator--instance ToJSON RuleOperator where-    toJSON = toJSONText--instance FromJSON RuleOperator where-    parseJSON = parseJSONText "RuleOperator"--data SampleType-  = CPU-  | Memory-  | NativeAvgDrawtime-  | NativeFps-  | NativeFrames-  | NativeMaxDrawtime-  | NativeMinDrawtime-  | OpenglAvgDrawtime-  | OpenglFps-  | OpenglFrames-  | OpenglMaxDrawtime-  | OpenglMinDrawtime-  | RX-  | RxRate-  | TX-  | Threads-  | TxRate-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText SampleType where-    parser = takeLowerText >>= \case-        "cpu" -> pure CPU-        "memory" -> pure Memory-        "native_avg_drawtime" -> pure NativeAvgDrawtime-        "native_fps" -> pure NativeFps-        "native_frames" -> pure NativeFrames-        "native_max_drawtime" -> pure NativeMaxDrawtime-        "native_min_drawtime" -> pure NativeMinDrawtime-        "opengl_avg_drawtime" -> pure OpenglAvgDrawtime-        "opengl_fps" -> pure OpenglFps-        "opengl_frames" -> pure OpenglFrames-        "opengl_max_drawtime" -> pure OpenglMaxDrawtime-        "opengl_min_drawtime" -> pure OpenglMinDrawtime-        "rx" -> pure RX-        "rx_rate" -> pure RxRate-        "tx" -> pure TX-        "threads" -> pure Threads-        "tx_rate" -> pure TxRate-        e -> fromTextError $ "Failure parsing SampleType from value: '" <> e-           <> "'. Accepted values: cpu, memory, 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, tx, threads, tx_rate"--instance ToText SampleType where-    toText = \case-        CPU -> "CPU"-        Memory -> "MEMORY"-        NativeAvgDrawtime -> "NATIVE_AVG_DRAWTIME"-        NativeFps -> "NATIVE_FPS"-        NativeFrames -> "NATIVE_FRAMES"-        NativeMaxDrawtime -> "NATIVE_MAX_DRAWTIME"-        NativeMinDrawtime -> "NATIVE_MIN_DRAWTIME"-        OpenglAvgDrawtime -> "OPENGL_AVG_DRAWTIME"-        OpenglFps -> "OPENGL_FPS"-        OpenglFrames -> "OPENGL_FRAMES"-        OpenglMaxDrawtime -> "OPENGL_MAX_DRAWTIME"-        OpenglMinDrawtime -> "OPENGL_MIN_DRAWTIME"-        RX -> "RX"-        RxRate -> "RX_RATE"-        TX -> "TX"-        Threads -> "THREADS"-        TxRate -> "TX_RATE"--instance Hashable     SampleType-instance NFData       SampleType-instance ToByteString SampleType-instance ToQuery      SampleType-instance ToHeader     SampleType--instance FromJSON SampleType where-    parseJSON = parseJSONText "SampleType"--data TestType-  = AppiumJavaJunit-  | AppiumJavaTestng-  | AppiumPython-  | AppiumWebJavaJunit-  | AppiumWebJavaTestng-  | AppiumWebPython-  | BuiltinExplorer-  | BuiltinFuzz-  | Calabash-  | Instrumentation-  | RemoteAccessRecord-  | RemoteAccessReplay-  | Uiautomation-  | Uiautomator-  | WebPerformanceProfile-  | Xctest-  | XctestUi-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText TestType where-    parser = takeLowerText >>= \case-        "appium_java_junit" -> pure AppiumJavaJunit-        "appium_java_testng" -> pure AppiumJavaTestng-        "appium_python" -> pure AppiumPython-        "appium_web_java_junit" -> pure AppiumWebJavaJunit-        "appium_web_java_testng" -> pure AppiumWebJavaTestng-        "appium_web_python" -> pure AppiumWebPython-        "builtin_explorer" -> pure BuiltinExplorer-        "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, remote_access_record, remote_access_replay, uiautomation, uiautomator, web_performance_profile, xctest, xctest_ui"--instance ToText TestType where-    toText = \case-        AppiumJavaJunit -> "APPIUM_JAVA_JUNIT"-        AppiumJavaTestng -> "APPIUM_JAVA_TESTNG"-        AppiumPython -> "APPIUM_PYTHON"-        AppiumWebJavaJunit -> "APPIUM_WEB_JAVA_JUNIT"-        AppiumWebJavaTestng -> "APPIUM_WEB_JAVA_TESTNG"-        AppiumWebPython -> "APPIUM_WEB_PYTHON"-        BuiltinExplorer -> "BUILTIN_EXPLORER"-        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"--instance Hashable     TestType-instance NFData       TestType-instance ToByteString TestType-instance ToQuery      TestType-instance ToHeader     TestType--instance ToJSON TestType where-    toJSON = toJSONText--instance FromJSON TestType where-    parseJSON = parseJSONText "TestType"--data UploadStatus-  = USFailed-  | USInitialized-  | USProcessing-  | USSucceeded-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText UploadStatus where-    parser = takeLowerText >>= \case-        "failed" -> pure USFailed-        "initialized" -> pure USInitialized-        "processing" -> pure USProcessing-        "succeeded" -> pure USSucceeded-        e -> fromTextError $ "Failure parsing UploadStatus from value: '" <> e-           <> "'. Accepted values: failed, initialized, processing, succeeded"--instance ToText UploadStatus where-    toText = \case-        USFailed -> "FAILED"-        USInitialized -> "INITIALIZED"-        USProcessing -> "PROCESSING"-        USSucceeded -> "SUCCEEDED"--instance Hashable     UploadStatus-instance NFData       UploadStatus-instance ToByteString UploadStatus-instance ToQuery      UploadStatus-instance ToHeader     UploadStatus--instance FromJSON UploadStatus where-    parseJSON = parseJSONText "UploadStatus"--data UploadType-  = AndroidApp-  | AppiumJavaJunitTestPackage-  | AppiumJavaTestngTestPackage-  | AppiumPythonTestPackage-  | AppiumWebJavaJunitTestPackage-  | AppiumWebJavaTestngTestPackage-  | AppiumWebPythonTestPackage-  | CalabashTestPackage-  | ExternalData-  | InstrumentationTestPackage-  | IosApp-  | UiautomationTestPackage-  | UiautomatorTestPackage-  | WebApp-  | XctestTestPackage-  | XctestUiTestPackage-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText UploadType where-    parser = takeLowerText >>= \case-        "android_app" -> pure AndroidApp-        "appium_java_junit_test_package" -> pure AppiumJavaJunitTestPackage-        "appium_java_testng_test_package" -> pure AppiumJavaTestngTestPackage-        "appium_python_test_package" -> pure AppiumPythonTestPackage-        "appium_web_java_junit_test_package" -> pure AppiumWebJavaJunitTestPackage-        "appium_web_java_testng_test_package" -> pure AppiumWebJavaTestngTestPackage-        "appium_web_python_test_package" -> pure AppiumWebPythonTestPackage-        "calabash_test_package" -> pure CalabashTestPackage-        "external_data" -> pure ExternalData-        "instrumentation_test_package" -> pure InstrumentationTestPackage-        "ios_app" -> pure IosApp-        "uiautomation_test_package" -> pure UiautomationTestPackage-        "uiautomator_test_package" -> pure UiautomatorTestPackage-        "web_app" -> pure WebApp-        "xctest_test_package" -> pure XctestTestPackage-        "xctest_ui_test_package" -> pure XctestUiTestPackage-        e -> fromTextError $ "Failure parsing UploadType from value: '" <> e-           <> "'. Accepted values: android_app, appium_java_junit_test_package, appium_java_testng_test_package, appium_python_test_package, appium_web_java_junit_test_package, appium_web_java_testng_test_package, appium_web_python_test_package, calabash_test_package, external_data, instrumentation_test_package, ios_app, uiautomation_test_package, uiautomator_test_package, web_app, xctest_test_package, xctest_ui_test_package"--instance ToText UploadType where-    toText = \case-        AndroidApp -> "ANDROID_APP"-        AppiumJavaJunitTestPackage -> "APPIUM_JAVA_JUNIT_TEST_PACKAGE"-        AppiumJavaTestngTestPackage -> "APPIUM_JAVA_TESTNG_TEST_PACKAGE"-        AppiumPythonTestPackage -> "APPIUM_PYTHON_TEST_PACKAGE"-        AppiumWebJavaJunitTestPackage -> "APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE"-        AppiumWebJavaTestngTestPackage -> "APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE"-        AppiumWebPythonTestPackage -> "APPIUM_WEB_PYTHON_TEST_PACKAGE"-        CalabashTestPackage -> "CALABASH_TEST_PACKAGE"-        ExternalData -> "EXTERNAL_DATA"-        InstrumentationTestPackage -> "INSTRUMENTATION_TEST_PACKAGE"-        IosApp -> "IOS_APP"-        UiautomationTestPackage -> "UIAUTOMATION_TEST_PACKAGE"-        UiautomatorTestPackage -> "UIAUTOMATOR_TEST_PACKAGE"-        WebApp -> "WEB_APP"-        XctestTestPackage -> "XCTEST_TEST_PACKAGE"-        XctestUiTestPackage -> "XCTEST_UI_TEST_PACKAGE"--instance Hashable     UploadType-instance NFData       UploadType-instance ToByteString UploadType-instance ToQuery      UploadType-instance ToHeader     UploadType--instance ToJSON UploadType where-    toJSON = toJSONText--instance FromJSON UploadType where-    parseJSON = parseJSONText "UploadType"
− gen/Network/AWS/DeviceFarm/UpdateDeviceInstance.hs
@@ -1,154 +0,0 @@-{-# 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
− gen/Network/AWS/DeviceFarm/UpdateDevicePool.hs
@@ -1,174 +0,0 @@-{-# 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.UpdateDevicePool--- 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)------ Modifies the name, description, and rules in a device pool given the attributes and the pool ARN. Rule updates are all-or-nothing, meaning they can only be updated as a whole (or not at all).-------module Network.AWS.DeviceFarm.UpdateDevicePool-    (-    -- * Creating a Request-      updateDevicePool-    , UpdateDevicePool-    -- * Request Lenses-    , udpRules-    , udpName-    , udpDescription-    , udpArn--    -- * Destructuring the Response-    , updateDevicePoolResponse-    , UpdateDevicePoolResponse-    -- * Response Lenses-    , udprsDevicePool-    , udprsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the update device pool operation.------------ /See:/ 'updateDevicePool' smart constructor.-data UpdateDevicePool = UpdateDevicePool'-  { _udpRules       :: !(Maybe [Rule])-  , _udpName        :: !(Maybe Text)-  , _udpDescription :: !(Maybe Text)-  , _udpArn         :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'UpdateDevicePool' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'udpRules' - 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.------ * 'udpName' - A string representing the name of the device pool you wish to update.------ * 'udpDescription' - A description of the device pool you wish to update.------ * 'udpArn' - The Amazon Resourc Name (ARN) of the Device Farm device pool you wish to update.-updateDevicePool-    :: Text -- ^ 'udpArn'-    -> UpdateDevicePool-updateDevicePool pArn_ =-  UpdateDevicePool'-    { _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---- | 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})---- | A description of the device pool you wish to update.-udpDescription :: Lens' UpdateDevicePool (Maybe Text)-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})--instance AWSRequest UpdateDevicePool where-        type Rs UpdateDevicePool = UpdateDevicePoolResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 UpdateDevicePoolResponse' <$>-                   (x .?> "devicePool") <*> (pure (fromEnum s)))--instance Hashable UpdateDevicePool where--instance NFData UpdateDevicePool where--instance ToHeaders UpdateDevicePool where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.UpdateDevicePool" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON UpdateDevicePool where-        toJSON UpdateDevicePool'{..}-          = object-              (catMaybes-                 [("rules" .=) <$> _udpRules,-                  ("name" .=) <$> _udpName,-                  ("description" .=) <$> _udpDescription,-                  Just ("arn" .= _udpArn)])--instance ToPath UpdateDevicePool where-        toPath = const "/"--instance ToQuery UpdateDevicePool where-        toQuery = const mempty---- | Represents the result of an update device pool request.------------ /See:/ 'updateDevicePoolResponse' smart constructor.-data UpdateDevicePoolResponse = UpdateDevicePoolResponse'-  { _udprsDevicePool     :: !(Maybe DevicePool)-  , _udprsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'UpdateDevicePoolResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'udprsDevicePool' - The device pool you just updated.------ * 'udprsResponseStatus' - -- | The response status code.-updateDevicePoolResponse-    :: Int -- ^ 'udprsResponseStatus'-    -> UpdateDevicePoolResponse-updateDevicePoolResponse pResponseStatus_ =-  UpdateDevicePoolResponse'-    {_udprsDevicePool = Nothing, _udprsResponseStatus = pResponseStatus_}----- | The device pool you just updated.-udprsDevicePool :: Lens' UpdateDevicePoolResponse (Maybe DevicePool)-udprsDevicePool = lens _udprsDevicePool (\ s a -> s{_udprsDevicePool = a})---- | -- | The response status code.-udprsResponseStatus :: Lens' UpdateDevicePoolResponse Int-udprsResponseStatus = lens _udprsResponseStatus (\ s a -> s{_udprsResponseStatus = a})--instance NFData UpdateDevicePoolResponse where
− gen/Network/AWS/DeviceFarm/UpdateInstanceProfile.hs
@@ -1,188 +0,0 @@-{-# 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
− gen/Network/AWS/DeviceFarm/UpdateNetworkProfile.hs
@@ -1,250 +0,0 @@-{-# 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.UpdateNetworkProfile--- 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 the network profile with specific settings.-------module Network.AWS.DeviceFarm.UpdateNetworkProfile-    (-    -- * Creating a Request-      updateNetworkProfile-    , UpdateNetworkProfile-    -- * Request Lenses-    , unpUplinkJitterMs-    , unpUplinkLossPercent-    , unpDownlinkJitterMs-    , unpName-    , unpDownlinkLossPercent-    , unpType-    , unpUplinkDelayMs-    , unpUplinkBandwidthBits-    , unpDescription-    , unpDownlinkDelayMs-    , unpDownlinkBandwidthBits-    , unpArn--    -- * Destructuring the Response-    , updateNetworkProfileResponse-    , UpdateNetworkProfileResponse-    -- * Response Lenses-    , unprsNetworkProfile-    , unprsResponseStatus-    ) 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:/ 'updateNetworkProfile' smart constructor.-data UpdateNetworkProfile = UpdateNetworkProfile'-  { _unpUplinkJitterMs        :: !(Maybe Integer)-  , _unpUplinkLossPercent     :: !(Maybe Nat)-  , _unpDownlinkJitterMs      :: !(Maybe Integer)-  , _unpName                  :: !(Maybe Text)-  , _unpDownlinkLossPercent   :: !(Maybe Nat)-  , _unpType                  :: !(Maybe NetworkProfileType)-  , _unpUplinkDelayMs         :: !(Maybe Integer)-  , _unpUplinkBandwidthBits   :: !(Maybe Integer)-  , _unpDescription           :: !(Maybe Text)-  , _unpDownlinkDelayMs       :: !(Maybe Integer)-  , _unpDownlinkBandwidthBits :: !(Maybe Integer)-  , _unpArn                   :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'UpdateNetworkProfile' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'unpUplinkJitterMs' - Time variation in the delay of received packets in milliseconds as an integer from 0 to 2000.------ * 'unpUplinkLossPercent' - Proportion of transmitted packets that fail to arrive from 0 to 100 percent.------ * 'unpDownlinkJitterMs' - Time variation in the delay of received packets in milliseconds as an integer from 0 to 2000.------ * 'unpName' - The name of the network profile about which you are returning information.------ * 'unpDownlinkLossPercent' - Proportion of received packets that fail to arrive from 0 to 100 percent.------ * 'unpType' - The type of network profile you wish to return information about. Valid values are listed below.------ * 'unpUplinkDelayMs' - Delay time for all packets to destination in milliseconds as an integer from 0 to 2000.------ * 'unpUplinkBandwidthBits' - The data throughput rate in bits per second, as an integer from 0 to 104857600.------ * 'unpDescription' - The descriptoin of the network profile about which you are returning information.------ * 'unpDownlinkDelayMs' - Delay time for all packets to destination in milliseconds as an integer from 0 to 2000.------ * '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 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_-    }----- | 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})---- | 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---- | 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})---- | 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})---- | 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---- | 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})---- | 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})---- | 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})---- | 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})---- | 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})---- | 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})---- | 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})--instance AWSRequest UpdateNetworkProfile where-        type Rs UpdateNetworkProfile =-             UpdateNetworkProfileResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 UpdateNetworkProfileResponse' <$>-                   (x .?> "networkProfile") <*> (pure (fromEnum s)))--instance Hashable UpdateNetworkProfile where--instance NFData UpdateNetworkProfile where--instance ToHeaders UpdateNetworkProfile where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.UpdateNetworkProfile" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON UpdateNetworkProfile where-        toJSON UpdateNetworkProfile'{..}-          = object-              (catMaybes-                 [("uplinkJitterMs" .=) <$> _unpUplinkJitterMs,-                  ("uplinkLossPercent" .=) <$> _unpUplinkLossPercent,-                  ("downlinkJitterMs" .=) <$> _unpDownlinkJitterMs,-                  ("name" .=) <$> _unpName,-                  ("downlinkLossPercent" .=) <$>-                    _unpDownlinkLossPercent,-                  ("type" .=) <$> _unpType,-                  ("uplinkDelayMs" .=) <$> _unpUplinkDelayMs,-                  ("uplinkBandwidthBits" .=) <$>-                    _unpUplinkBandwidthBits,-                  ("description" .=) <$> _unpDescription,-                  ("downlinkDelayMs" .=) <$> _unpDownlinkDelayMs,-                  ("downlinkBandwidthBits" .=) <$>-                    _unpDownlinkBandwidthBits,-                  Just ("arn" .= _unpArn)])--instance ToPath UpdateNetworkProfile where-        toPath = const "/"--instance ToQuery UpdateNetworkProfile where-        toQuery = const mempty---- | /See:/ 'updateNetworkProfileResponse' smart constructor.-data UpdateNetworkProfileResponse = UpdateNetworkProfileResponse'-  { _unprsNetworkProfile :: !(Maybe NetworkProfile)-  , _unprsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'UpdateNetworkProfileResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'unprsNetworkProfile' - A list of the available network profiles.------ * 'unprsResponseStatus' - -- | The response status code.-updateNetworkProfileResponse-    :: Int -- ^ 'unprsResponseStatus'-    -> UpdateNetworkProfileResponse-updateNetworkProfileResponse pResponseStatus_ =-  UpdateNetworkProfileResponse'-    {_unprsNetworkProfile = Nothing, _unprsResponseStatus = pResponseStatus_}----- | A list of the available network profiles.-unprsNetworkProfile :: Lens' UpdateNetworkProfileResponse (Maybe NetworkProfile)-unprsNetworkProfile = lens _unprsNetworkProfile (\ s a -> s{_unprsNetworkProfile = a})---- | -- | The response status code.-unprsResponseStatus :: Lens' UpdateNetworkProfileResponse Int-unprsResponseStatus = lens _unprsResponseStatus (\ s a -> s{_unprsResponseStatus = a})--instance NFData UpdateNetworkProfileResponse where
− gen/Network/AWS/DeviceFarm/UpdateProject.hs
@@ -1,161 +0,0 @@-{-# 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.UpdateProject--- 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)------ Modifies the specified project name, given the project ARN and a new name.-------module Network.AWS.DeviceFarm.UpdateProject-    (-    -- * Creating a Request-      updateProject-    , UpdateProject-    -- * Request Lenses-    , upName-    , upDefaultJobTimeoutMinutes-    , upArn--    -- * Destructuring the Response-    , updateProjectResponse-    , UpdateProjectResponse-    -- * Response Lenses-    , uprsProject-    , uprsResponseStatus-    ) where--import Network.AWS.DeviceFarm.Types-import Network.AWS.DeviceFarm.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Represents a request to the update project operation.------------ /See:/ 'updateProject' smart constructor.-data UpdateProject = UpdateProject'-  { _upName                     :: !(Maybe Text)-  , _upDefaultJobTimeoutMinutes :: !(Maybe Int)-  , _upArn                      :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'UpdateProject' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'upName' - A string representing the new name of the project that you are updating.------ * 'upDefaultJobTimeoutMinutes' - The number of minutes a test run in the project will execute before it times out.------ * 'upArn' - The Amazon Resource Name (ARN) of the project whose name you wish to update.-updateProject-    :: Text -- ^ 'upArn'-    -> UpdateProject-updateProject pArn_ =-  UpdateProject'-    {_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})---- | 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})---- | 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})--instance AWSRequest UpdateProject where-        type Rs UpdateProject = UpdateProjectResponse-        request = postJSON deviceFarm-        response-          = receiveJSON-              (\ s h x ->-                 UpdateProjectResponse' <$>-                   (x .?> "project") <*> (pure (fromEnum s)))--instance Hashable UpdateProject where--instance NFData UpdateProject where--instance ToHeaders UpdateProject where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DeviceFarm_20150623.UpdateProject" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON UpdateProject where-        toJSON UpdateProject'{..}-          = object-              (catMaybes-                 [("name" .=) <$> _upName,-                  ("defaultJobTimeoutMinutes" .=) <$>-                    _upDefaultJobTimeoutMinutes,-                  Just ("arn" .= _upArn)])--instance ToPath UpdateProject where-        toPath = const "/"--instance ToQuery UpdateProject where-        toQuery = const mempty---- | Represents the result of an update project request.------------ /See:/ 'updateProjectResponse' smart constructor.-data UpdateProjectResponse = UpdateProjectResponse'-  { _uprsProject        :: !(Maybe Project)-  , _uprsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'UpdateProjectResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uprsProject' - The project you wish to update.------ * 'uprsResponseStatus' - -- | The response status code.-updateProjectResponse-    :: Int -- ^ 'uprsResponseStatus'-    -> UpdateProjectResponse-updateProjectResponse pResponseStatus_ =-  UpdateProjectResponse'-    {_uprsProject = Nothing, _uprsResponseStatus = pResponseStatus_}----- | The project you wish to update.-uprsProject :: Lens' UpdateProjectResponse (Maybe Project)-uprsProject = lens _uprsProject (\ s a -> s{_uprsProject = a})---- | -- | The response status code.-uprsResponseStatus :: Lens' UpdateProjectResponse Int-uprsResponseStatus = lens _uprsResponseStatus (\ s a -> s{_uprsResponseStatus = a})--instance NFData UpdateProjectResponse where
− gen/Network/AWS/DeviceFarm/UpdateVPCEConfiguration.hs
@@ -1,181 +0,0 @@-{-# 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
− gen/Network/AWS/DeviceFarm/Waiters.hs
@@ -1,21 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE TypeFamilies      #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DeviceFarm.Waiters--- 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)----module Network.AWS.DeviceFarm.Waiters where--import Network.AWS.DeviceFarm.Types-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Waiter
test/Main.hs view
@@ -2,20 +2,22 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2018 Brendan Hay+-- Copyright   : (c) 2013-2023 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Maintainer  : Brendan Hay -- Stability   : auto-generated -- Portability : non-portable (GHC extensions)--- module Main (main) where +import Test.Amazonka.DeviceFarm+import Test.Amazonka.DeviceFarm.Internal import Test.Tasty-import Test.AWS.DeviceFarm-import Test.AWS.DeviceFarm.Internal  main :: IO ()-main = defaultMain $ testGroup "DeviceFarm"-    [ testGroup "tests"    tests-    , testGroup "fixtures" fixtures-    ]+main =+  defaultMain $+    testGroup+      "DeviceFarm"+      [ testGroup "tests" tests,+        testGroup "fixtures" fixtures+      ]
− test/Test/AWS/DeviceFarm.hs
@@ -1,26 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}---- Module      : Test.AWS.DeviceFarm--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental--- Portability : non-portable (GHC extensions)--module Test.AWS.DeviceFarm-    ( tests-    , fixtures-    ) where--import           Network.AWS.DeviceFarm-import           Test.AWS.Gen.DeviceFarm-import           Test.Tasty--tests :: [TestTree]-tests = []--fixtures :: [TestTree]-fixtures = []
− test/Test/AWS/DeviceFarm/Internal.hs
@@ -1,16 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}-{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Module      : Test.AWS.DeviceFarm.Internal--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental--- Portability : non-portable (GHC extensions)--module Test.AWS.DeviceFarm.Internal where--import           Test.AWS.Prelude
− test/Test/AWS/Gen/DeviceFarm.hs
@@ -1,1155 +0,0 @@-{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-orphans        #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Test.AWS.Gen.DeviceFarm--- 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)----module Test.AWS.Gen.DeviceFarm where--import Data.Proxy-import Network.AWS.DeviceFarm-import Test.AWS.DeviceFarm.Internal-import Test.AWS.Fixture-import Test.AWS.Prelude-import Test.Tasty---- Auto-generated: the actual test selection needs to be manually placed into--- the top-level so that real test data can be incrementally added.------ This commented snippet is what the entire set should look like:---- fixtures :: TestTree--- fixtures =---     [ testGroup "request"---         [ requestListProjects $---             listProjects------         , requestDeleteProject $---             deleteProject------         , requestUpdateProject $---             updateProject------         , requestUpdateNetworkProfile $---             updateNetworkProfile------         , requestDeleteNetworkProfile $---             deleteNetworkProfile------         , requestGetDevicePoolCompatibility $---             getDevicePoolCompatibility------         , requestInstallToRemoteAccessSession $---             installToRemoteAccessSession------         , requestListTests $---             listTests------         , requestListArtifacts $---             listArtifacts------         , requestCreateUpload $---             createUpload------         , requestGetDeviceInstance $---             getDeviceInstance------         , requestDeleteRemoteAccessSession $---             deleteRemoteAccessSession------         , requestDeleteUpload $---             deleteUpload------         , requestGetDevicePool $---             getDevicePool------         , requestListDevicePools $---             listDevicePools------         , requestUpdateDevicePool $---             updateDevicePool------         , requestDeleteDevicePool $---             deleteDevicePool------         , requestGetUpload $---             getUpload------         , requestListOfferingTransactions $---             listOfferingTransactions------         , requestCreateDevicePool $---             createDevicePool------         , requestDeleteRun $---             deleteRun------         , requestListRuns $---             listRuns------         , 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------         , requestGetRun $---             getRun------         , requestListSamples $---             listSamples------         , requestListSuites $---             listSuites------         , requestListRemoteAccessSessions $---             listRemoteAccessSessions------         , requestGetAccountSettings $---             getAccountSettings------         , requestCreateRemoteAccessSession $---             createRemoteAccessSession------         , requestListOfferingPromotions $---             listOfferingPromotions------         , requestGetOfferingStatus $---             getOfferingStatus------         , requestListUploads $---             listUploads------         , requestGetSuite $---             getSuite------         , requestGetRemoteAccessSession $---             getRemoteAccessSession------         , requestListDeviceInstances $---             listDeviceInstances------         , requestPurchaseOffering $---             purchaseOffering------         , requestListInstanceProfiles $---             listInstanceProfiles------         , requestGetProject $---             getProject------         , requestListUniqueProblems $---             listUniqueProblems------         , requestListVPCEConfigurations $---             listVPCEConfigurations------         , requestStopRun $---             stopRun------         , requestListDevices $---             listDevices------         , requestCreateProject $---             createProject------         , requestListOfferings $---             listOfferings------           ]----     , testGroup "response"---         [ responseListProjects $---             listProjectsResponse------         , responseDeleteProject $---             deleteProjectResponse------         , responseUpdateProject $---             updateProjectResponse------         , responseUpdateNetworkProfile $---             updateNetworkProfileResponse------         , responseDeleteNetworkProfile $---             deleteNetworkProfileResponse------         , responseGetDevicePoolCompatibility $---             getDevicePoolCompatibilityResponse------         , responseInstallToRemoteAccessSession $---             installToRemoteAccessSessionResponse------         , responseListTests $---             listTestsResponse------         , responseListArtifacts $---             listArtifactsResponse------         , responseCreateUpload $---             createUploadResponse------         , responseGetDeviceInstance $---             getDeviceInstanceResponse------         , responseDeleteRemoteAccessSession $---             deleteRemoteAccessSessionResponse------         , responseDeleteUpload $---             deleteUploadResponse------         , responseGetDevicePool $---             getDevicePoolResponse------         , responseListDevicePools $---             listDevicePoolsResponse------         , responseUpdateDevicePool $---             updateDevicePoolResponse------         , responseDeleteDevicePool $---             deleteDevicePoolResponse------         , responseGetUpload $---             getUploadResponse------         , responseListOfferingTransactions $---             listOfferingTransactionsResponse------         , responseCreateDevicePool $---             createDevicePoolResponse------         , responseDeleteRun $---             deleteRunResponse------         , responseListRuns $---             listRunsResponse------         , 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------         , responseGetRun $---             getRunResponse------         , responseListSamples $---             listSamplesResponse------         , responseListSuites $---             listSuitesResponse------         , responseListRemoteAccessSessions $---             listRemoteAccessSessionsResponse------         , responseGetAccountSettings $---             getAccountSettingsResponse------         , responseCreateRemoteAccessSession $---             createRemoteAccessSessionResponse------         , responseListOfferingPromotions $---             listOfferingPromotionsResponse------         , responseGetOfferingStatus $---             getOfferingStatusResponse------         , responseListUploads $---             listUploadsResponse------         , responseGetSuite $---             getSuiteResponse------         , responseGetRemoteAccessSession $---             getRemoteAccessSessionResponse------         , responseListDeviceInstances $---             listDeviceInstancesResponse------         , responsePurchaseOffering $---             purchaseOfferingResponse------         , responseListInstanceProfiles $---             listInstanceProfilesResponse------         , responseGetProject $---             getProjectResponse------         , responseListUniqueProblems $---             listUniqueProblemsResponse------         , responseListVPCEConfigurations $---             listVPCEConfigurationsResponse------         , responseStopRun $---             stopRunResponse------         , responseListDevices $---             listDevicesResponse------         , responseCreateProject $---             createProjectResponse------         , responseListOfferings $---             listOfferingsResponse------           ]---     ]---- Requests--requestListProjects :: ListProjects -> TestTree-requestListProjects = req-    "ListProjects"-    "fixture/ListProjects.yaml"--requestDeleteProject :: DeleteProject -> TestTree-requestDeleteProject = req-    "DeleteProject"-    "fixture/DeleteProject.yaml"--requestUpdateProject :: UpdateProject -> TestTree-requestUpdateProject = req-    "UpdateProject"-    "fixture/UpdateProject.yaml"--requestUpdateNetworkProfile :: UpdateNetworkProfile -> TestTree-requestUpdateNetworkProfile = req-    "UpdateNetworkProfile"-    "fixture/UpdateNetworkProfile.yaml"--requestDeleteNetworkProfile :: DeleteNetworkProfile -> TestTree-requestDeleteNetworkProfile = req-    "DeleteNetworkProfile"-    "fixture/DeleteNetworkProfile.yaml"--requestGetDevicePoolCompatibility :: GetDevicePoolCompatibility -> TestTree-requestGetDevicePoolCompatibility = req-    "GetDevicePoolCompatibility"-    "fixture/GetDevicePoolCompatibility.yaml"--requestInstallToRemoteAccessSession :: InstallToRemoteAccessSession -> TestTree-requestInstallToRemoteAccessSession = req-    "InstallToRemoteAccessSession"-    "fixture/InstallToRemoteAccessSession.yaml"--requestListTests :: ListTests -> TestTree-requestListTests = req-    "ListTests"-    "fixture/ListTests.yaml"--requestListArtifacts :: ListArtifacts -> TestTree-requestListArtifacts = req-    "ListArtifacts"-    "fixture/ListArtifacts.yaml"--requestCreateUpload :: CreateUpload -> TestTree-requestCreateUpload = req-    "CreateUpload"-    "fixture/CreateUpload.yaml"--requestGetDeviceInstance :: GetDeviceInstance -> TestTree-requestGetDeviceInstance = req-    "GetDeviceInstance"-    "fixture/GetDeviceInstance.yaml"--requestDeleteRemoteAccessSession :: DeleteRemoteAccessSession -> TestTree-requestDeleteRemoteAccessSession = req-    "DeleteRemoteAccessSession"-    "fixture/DeleteRemoteAccessSession.yaml"--requestDeleteUpload :: DeleteUpload -> TestTree-requestDeleteUpload = req-    "DeleteUpload"-    "fixture/DeleteUpload.yaml"--requestGetDevicePool :: GetDevicePool -> TestTree-requestGetDevicePool = req-    "GetDevicePool"-    "fixture/GetDevicePool.yaml"--requestListDevicePools :: ListDevicePools -> TestTree-requestListDevicePools = req-    "ListDevicePools"-    "fixture/ListDevicePools.yaml"--requestUpdateDevicePool :: UpdateDevicePool -> TestTree-requestUpdateDevicePool = req-    "UpdateDevicePool"-    "fixture/UpdateDevicePool.yaml"--requestDeleteDevicePool :: DeleteDevicePool -> TestTree-requestDeleteDevicePool = req-    "DeleteDevicePool"-    "fixture/DeleteDevicePool.yaml"--requestGetUpload :: GetUpload -> TestTree-requestGetUpload = req-    "GetUpload"-    "fixture/GetUpload.yaml"--requestListOfferingTransactions :: ListOfferingTransactions -> TestTree-requestListOfferingTransactions = req-    "ListOfferingTransactions"-    "fixture/ListOfferingTransactions.yaml"--requestCreateDevicePool :: CreateDevicePool -> TestTree-requestCreateDevicePool = req-    "CreateDevicePool"-    "fixture/CreateDevicePool.yaml"--requestDeleteRun :: DeleteRun -> TestTree-requestDeleteRun = req-    "DeleteRun"-    "fixture/DeleteRun.yaml"--requestListRuns :: ListRuns -> TestTree-requestListRuns = req-    "ListRuns"-    "fixture/ListRuns.yaml"--requestGetTest :: GetTest -> TestTree-requestGetTest = req-    "GetTest"-    "fixture/GetTest.yaml"--requestUpdateDeviceInstance :: UpdateDeviceInstance -> TestTree-requestUpdateDeviceInstance = req-    "UpdateDeviceInstance"-    "fixture/UpdateDeviceInstance.yaml"--requestGetNetworkProfile :: GetNetworkProfile -> TestTree-requestGetNetworkProfile = req-    "GetNetworkProfile"-    "fixture/GetNetworkProfile.yaml"--requestRenewOffering :: RenewOffering -> TestTree-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"-    "fixture/GetDevice.yaml"--requestListJobs :: ListJobs -> TestTree-requestListJobs = req-    "ListJobs"-    "fixture/ListJobs.yaml"--requestGetVPCEConfiguration :: GetVPCEConfiguration -> TestTree-requestGetVPCEConfiguration = req-    "GetVPCEConfiguration"-    "fixture/GetVPCEConfiguration.yaml"--requestStopRemoteAccessSession :: StopRemoteAccessSession -> TestTree-requestStopRemoteAccessSession = req-    "StopRemoteAccessSession"-    "fixture/StopRemoteAccessSession.yaml"--requestCreateNetworkProfile :: CreateNetworkProfile -> TestTree-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"-    "fixture/ScheduleRun.yaml"--requestGetRun :: GetRun -> TestTree-requestGetRun = req-    "GetRun"-    "fixture/GetRun.yaml"--requestListSamples :: ListSamples -> TestTree-requestListSamples = req-    "ListSamples"-    "fixture/ListSamples.yaml"--requestListSuites :: ListSuites -> TestTree-requestListSuites = req-    "ListSuites"-    "fixture/ListSuites.yaml"--requestListRemoteAccessSessions :: ListRemoteAccessSessions -> TestTree-requestListRemoteAccessSessions = req-    "ListRemoteAccessSessions"-    "fixture/ListRemoteAccessSessions.yaml"--requestGetAccountSettings :: GetAccountSettings -> TestTree-requestGetAccountSettings = req-    "GetAccountSettings"-    "fixture/GetAccountSettings.yaml"--requestCreateRemoteAccessSession :: CreateRemoteAccessSession -> TestTree-requestCreateRemoteAccessSession = req-    "CreateRemoteAccessSession"-    "fixture/CreateRemoteAccessSession.yaml"--requestListOfferingPromotions :: ListOfferingPromotions -> TestTree-requestListOfferingPromotions = req-    "ListOfferingPromotions"-    "fixture/ListOfferingPromotions.yaml"--requestGetOfferingStatus :: GetOfferingStatus -> TestTree-requestGetOfferingStatus = req-    "GetOfferingStatus"-    "fixture/GetOfferingStatus.yaml"--requestListUploads :: ListUploads -> TestTree-requestListUploads = req-    "ListUploads"-    "fixture/ListUploads.yaml"--requestGetSuite :: GetSuite -> TestTree-requestGetSuite = req-    "GetSuite"-    "fixture/GetSuite.yaml"--requestGetRemoteAccessSession :: GetRemoteAccessSession -> TestTree-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"-    "fixture/GetProject.yaml"--requestListUniqueProblems :: ListUniqueProblems -> TestTree-requestListUniqueProblems = req-    "ListUniqueProblems"-    "fixture/ListUniqueProblems.yaml"--requestListVPCEConfigurations :: ListVPCEConfigurations -> TestTree-requestListVPCEConfigurations = req-    "ListVPCEConfigurations"-    "fixture/ListVPCEConfigurations.yaml"--requestStopRun :: StopRun -> TestTree-requestStopRun = req-    "StopRun"-    "fixture/StopRun.yaml"--requestListDevices :: ListDevices -> TestTree-requestListDevices = req-    "ListDevices"-    "fixture/ListDevices.yaml"--requestCreateProject :: CreateProject -> TestTree-requestCreateProject = req-    "CreateProject"-    "fixture/CreateProject.yaml"--requestListOfferings :: ListOfferings -> TestTree-requestListOfferings = req-    "ListOfferings"-    "fixture/ListOfferings.yaml"---- Responses--responseListProjects :: ListProjectsResponse -> TestTree-responseListProjects = res-    "ListProjectsResponse"-    "fixture/ListProjectsResponse.proto"-    deviceFarm-    (Proxy :: Proxy ListProjects)--responseDeleteProject :: DeleteProjectResponse -> TestTree-responseDeleteProject = res-    "DeleteProjectResponse"-    "fixture/DeleteProjectResponse.proto"-    deviceFarm-    (Proxy :: Proxy DeleteProject)--responseUpdateProject :: UpdateProjectResponse -> TestTree-responseUpdateProject = res-    "UpdateProjectResponse"-    "fixture/UpdateProjectResponse.proto"-    deviceFarm-    (Proxy :: Proxy UpdateProject)--responseUpdateNetworkProfile :: UpdateNetworkProfileResponse -> TestTree-responseUpdateNetworkProfile = res-    "UpdateNetworkProfileResponse"-    "fixture/UpdateNetworkProfileResponse.proto"-    deviceFarm-    (Proxy :: Proxy UpdateNetworkProfile)--responseDeleteNetworkProfile :: DeleteNetworkProfileResponse -> TestTree-responseDeleteNetworkProfile = res-    "DeleteNetworkProfileResponse"-    "fixture/DeleteNetworkProfileResponse.proto"-    deviceFarm-    (Proxy :: Proxy DeleteNetworkProfile)--responseGetDevicePoolCompatibility :: GetDevicePoolCompatibilityResponse -> TestTree-responseGetDevicePoolCompatibility = res-    "GetDevicePoolCompatibilityResponse"-    "fixture/GetDevicePoolCompatibilityResponse.proto"-    deviceFarm-    (Proxy :: Proxy GetDevicePoolCompatibility)--responseInstallToRemoteAccessSession :: InstallToRemoteAccessSessionResponse -> TestTree-responseInstallToRemoteAccessSession = res-    "InstallToRemoteAccessSessionResponse"-    "fixture/InstallToRemoteAccessSessionResponse.proto"-    deviceFarm-    (Proxy :: Proxy InstallToRemoteAccessSession)--responseListTests :: ListTestsResponse -> TestTree-responseListTests = res-    "ListTestsResponse"-    "fixture/ListTestsResponse.proto"-    deviceFarm-    (Proxy :: Proxy ListTests)--responseListArtifacts :: ListArtifactsResponse -> TestTree-responseListArtifacts = res-    "ListArtifactsResponse"-    "fixture/ListArtifactsResponse.proto"-    deviceFarm-    (Proxy :: Proxy ListArtifacts)--responseCreateUpload :: CreateUploadResponse -> TestTree-responseCreateUpload = res-    "CreateUploadResponse"-    "fixture/CreateUploadResponse.proto"-    deviceFarm-    (Proxy :: Proxy CreateUpload)--responseGetDeviceInstance :: GetDeviceInstanceResponse -> TestTree-responseGetDeviceInstance = res-    "GetDeviceInstanceResponse"-    "fixture/GetDeviceInstanceResponse.proto"-    deviceFarm-    (Proxy :: Proxy GetDeviceInstance)--responseDeleteRemoteAccessSession :: DeleteRemoteAccessSessionResponse -> TestTree-responseDeleteRemoteAccessSession = res-    "DeleteRemoteAccessSessionResponse"-    "fixture/DeleteRemoteAccessSessionResponse.proto"-    deviceFarm-    (Proxy :: Proxy DeleteRemoteAccessSession)--responseDeleteUpload :: DeleteUploadResponse -> TestTree-responseDeleteUpload = res-    "DeleteUploadResponse"-    "fixture/DeleteUploadResponse.proto"-    deviceFarm-    (Proxy :: Proxy DeleteUpload)--responseGetDevicePool :: GetDevicePoolResponse -> TestTree-responseGetDevicePool = res-    "GetDevicePoolResponse"-    "fixture/GetDevicePoolResponse.proto"-    deviceFarm-    (Proxy :: Proxy GetDevicePool)--responseListDevicePools :: ListDevicePoolsResponse -> TestTree-responseListDevicePools = res-    "ListDevicePoolsResponse"-    "fixture/ListDevicePoolsResponse.proto"-    deviceFarm-    (Proxy :: Proxy ListDevicePools)--responseUpdateDevicePool :: UpdateDevicePoolResponse -> TestTree-responseUpdateDevicePool = res-    "UpdateDevicePoolResponse"-    "fixture/UpdateDevicePoolResponse.proto"-    deviceFarm-    (Proxy :: Proxy UpdateDevicePool)--responseDeleteDevicePool :: DeleteDevicePoolResponse -> TestTree-responseDeleteDevicePool = res-    "DeleteDevicePoolResponse"-    "fixture/DeleteDevicePoolResponse.proto"-    deviceFarm-    (Proxy :: Proxy DeleteDevicePool)--responseGetUpload :: GetUploadResponse -> TestTree-responseGetUpload = res-    "GetUploadResponse"-    "fixture/GetUploadResponse.proto"-    deviceFarm-    (Proxy :: Proxy GetUpload)--responseListOfferingTransactions :: ListOfferingTransactionsResponse -> TestTree-responseListOfferingTransactions = res-    "ListOfferingTransactionsResponse"-    "fixture/ListOfferingTransactionsResponse.proto"-    deviceFarm-    (Proxy :: Proxy ListOfferingTransactions)--responseCreateDevicePool :: CreateDevicePoolResponse -> TestTree-responseCreateDevicePool = res-    "CreateDevicePoolResponse"-    "fixture/CreateDevicePoolResponse.proto"-    deviceFarm-    (Proxy :: Proxy CreateDevicePool)--responseDeleteRun :: DeleteRunResponse -> TestTree-responseDeleteRun = res-    "DeleteRunResponse"-    "fixture/DeleteRunResponse.proto"-    deviceFarm-    (Proxy :: Proxy DeleteRun)--responseListRuns :: ListRunsResponse -> TestTree-responseListRuns = res-    "ListRunsResponse"-    "fixture/ListRunsResponse.proto"-    deviceFarm-    (Proxy :: Proxy ListRuns)--responseGetTest :: GetTestResponse -> TestTree-responseGetTest = res-    "GetTestResponse"-    "fixture/GetTestResponse.proto"-    deviceFarm-    (Proxy :: Proxy GetTest)--responseUpdateDeviceInstance :: UpdateDeviceInstanceResponse -> TestTree-responseUpdateDeviceInstance = res-    "UpdateDeviceInstanceResponse"-    "fixture/UpdateDeviceInstanceResponse.proto"-    deviceFarm-    (Proxy :: Proxy UpdateDeviceInstance)--responseGetNetworkProfile :: GetNetworkProfileResponse -> TestTree-responseGetNetworkProfile = res-    "GetNetworkProfileResponse"-    "fixture/GetNetworkProfileResponse.proto"-    deviceFarm-    (Proxy :: Proxy GetNetworkProfile)--responseRenewOffering :: RenewOfferingResponse -> TestTree-responseRenewOffering = res-    "RenewOfferingResponse"-    "fixture/RenewOfferingResponse.proto"-    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"-    "fixture/GetDeviceResponse.proto"-    deviceFarm-    (Proxy :: Proxy GetDevice)--responseListJobs :: ListJobsResponse -> TestTree-responseListJobs = res-    "ListJobsResponse"-    "fixture/ListJobsResponse.proto"-    deviceFarm-    (Proxy :: Proxy ListJobs)--responseGetVPCEConfiguration :: GetVPCEConfigurationResponse -> TestTree-responseGetVPCEConfiguration = res-    "GetVPCEConfigurationResponse"-    "fixture/GetVPCEConfigurationResponse.proto"-    deviceFarm-    (Proxy :: Proxy GetVPCEConfiguration)--responseStopRemoteAccessSession :: StopRemoteAccessSessionResponse -> TestTree-responseStopRemoteAccessSession = res-    "StopRemoteAccessSessionResponse"-    "fixture/StopRemoteAccessSessionResponse.proto"-    deviceFarm-    (Proxy :: Proxy StopRemoteAccessSession)--responseCreateNetworkProfile :: CreateNetworkProfileResponse -> TestTree-responseCreateNetworkProfile = res-    "CreateNetworkProfileResponse"-    "fixture/CreateNetworkProfileResponse.proto"-    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"-    "fixture/GetJobResponse.proto"-    deviceFarm-    (Proxy :: Proxy GetJob)--responseGetInstanceProfile :: GetInstanceProfileResponse -> TestTree-responseGetInstanceProfile = res-    "GetInstanceProfileResponse"-    "fixture/GetInstanceProfileResponse.proto"-    deviceFarm-    (Proxy :: Proxy GetInstanceProfile)--responseListNetworkProfiles :: ListNetworkProfilesResponse -> TestTree-responseListNetworkProfiles = res-    "ListNetworkProfilesResponse"-    "fixture/ListNetworkProfilesResponse.proto"-    deviceFarm-    (Proxy :: Proxy ListNetworkProfiles)--responseCreateVPCEConfiguration :: CreateVPCEConfigurationResponse -> TestTree-responseCreateVPCEConfiguration = res-    "CreateVPCEConfigurationResponse"-    "fixture/CreateVPCEConfigurationResponse.proto"-    deviceFarm-    (Proxy :: Proxy CreateVPCEConfiguration)--responseScheduleRun :: ScheduleRunResponse -> TestTree-responseScheduleRun = res-    "ScheduleRunResponse"-    "fixture/ScheduleRunResponse.proto"-    deviceFarm-    (Proxy :: Proxy ScheduleRun)--responseGetRun :: GetRunResponse -> TestTree-responseGetRun = res-    "GetRunResponse"-    "fixture/GetRunResponse.proto"-    deviceFarm-    (Proxy :: Proxy GetRun)--responseListSamples :: ListSamplesResponse -> TestTree-responseListSamples = res-    "ListSamplesResponse"-    "fixture/ListSamplesResponse.proto"-    deviceFarm-    (Proxy :: Proxy ListSamples)--responseListSuites :: ListSuitesResponse -> TestTree-responseListSuites = res-    "ListSuitesResponse"-    "fixture/ListSuitesResponse.proto"-    deviceFarm-    (Proxy :: Proxy ListSuites)--responseListRemoteAccessSessions :: ListRemoteAccessSessionsResponse -> TestTree-responseListRemoteAccessSessions = res-    "ListRemoteAccessSessionsResponse"-    "fixture/ListRemoteAccessSessionsResponse.proto"-    deviceFarm-    (Proxy :: Proxy ListRemoteAccessSessions)--responseGetAccountSettings :: GetAccountSettingsResponse -> TestTree-responseGetAccountSettings = res-    "GetAccountSettingsResponse"-    "fixture/GetAccountSettingsResponse.proto"-    deviceFarm-    (Proxy :: Proxy GetAccountSettings)--responseCreateRemoteAccessSession :: CreateRemoteAccessSessionResponse -> TestTree-responseCreateRemoteAccessSession = res-    "CreateRemoteAccessSessionResponse"-    "fixture/CreateRemoteAccessSessionResponse.proto"-    deviceFarm-    (Proxy :: Proxy CreateRemoteAccessSession)--responseListOfferingPromotions :: ListOfferingPromotionsResponse -> TestTree-responseListOfferingPromotions = res-    "ListOfferingPromotionsResponse"-    "fixture/ListOfferingPromotionsResponse.proto"-    deviceFarm-    (Proxy :: Proxy ListOfferingPromotions)--responseGetOfferingStatus :: GetOfferingStatusResponse -> TestTree-responseGetOfferingStatus = res-    "GetOfferingStatusResponse"-    "fixture/GetOfferingStatusResponse.proto"-    deviceFarm-    (Proxy :: Proxy GetOfferingStatus)--responseListUploads :: ListUploadsResponse -> TestTree-responseListUploads = res-    "ListUploadsResponse"-    "fixture/ListUploadsResponse.proto"-    deviceFarm-    (Proxy :: Proxy ListUploads)--responseGetSuite :: GetSuiteResponse -> TestTree-responseGetSuite = res-    "GetSuiteResponse"-    "fixture/GetSuiteResponse.proto"-    deviceFarm-    (Proxy :: Proxy GetSuite)--responseGetRemoteAccessSession :: GetRemoteAccessSessionResponse -> TestTree-responseGetRemoteAccessSession = res-    "GetRemoteAccessSessionResponse"-    "fixture/GetRemoteAccessSessionResponse.proto"-    deviceFarm-    (Proxy :: Proxy GetRemoteAccessSession)--responseListDeviceInstances :: ListDeviceInstancesResponse -> TestTree-responseListDeviceInstances = res-    "ListDeviceInstancesResponse"-    "fixture/ListDeviceInstancesResponse.proto"-    deviceFarm-    (Proxy :: Proxy ListDeviceInstances)--responsePurchaseOffering :: PurchaseOfferingResponse -> TestTree-responsePurchaseOffering = res-    "PurchaseOfferingResponse"-    "fixture/PurchaseOfferingResponse.proto"-    deviceFarm-    (Proxy :: Proxy PurchaseOffering)--responseListInstanceProfiles :: ListInstanceProfilesResponse -> TestTree-responseListInstanceProfiles = res-    "ListInstanceProfilesResponse"-    "fixture/ListInstanceProfilesResponse.proto"-    deviceFarm-    (Proxy :: Proxy ListInstanceProfiles)--responseGetProject :: GetProjectResponse -> TestTree-responseGetProject = res-    "GetProjectResponse"-    "fixture/GetProjectResponse.proto"-    deviceFarm-    (Proxy :: Proxy GetProject)--responseListUniqueProblems :: ListUniqueProblemsResponse -> TestTree-responseListUniqueProblems = res-    "ListUniqueProblemsResponse"-    "fixture/ListUniqueProblemsResponse.proto"-    deviceFarm-    (Proxy :: Proxy ListUniqueProblems)--responseListVPCEConfigurations :: ListVPCEConfigurationsResponse -> TestTree-responseListVPCEConfigurations = res-    "ListVPCEConfigurationsResponse"-    "fixture/ListVPCEConfigurationsResponse.proto"-    deviceFarm-    (Proxy :: Proxy ListVPCEConfigurations)--responseStopRun :: StopRunResponse -> TestTree-responseStopRun = res-    "StopRunResponse"-    "fixture/StopRunResponse.proto"-    deviceFarm-    (Proxy :: Proxy StopRun)--responseListDevices :: ListDevicesResponse -> TestTree-responseListDevices = res-    "ListDevicesResponse"-    "fixture/ListDevicesResponse.proto"-    deviceFarm-    (Proxy :: Proxy ListDevices)--responseCreateProject :: CreateProjectResponse -> TestTree-responseCreateProject = res-    "CreateProjectResponse"-    "fixture/CreateProjectResponse.proto"-    deviceFarm-    (Proxy :: Proxy CreateProject)--responseListOfferings :: ListOfferingsResponse -> TestTree-responseListOfferings = res-    "ListOfferingsResponse"-    "fixture/ListOfferingsResponse.proto"-    deviceFarm-    (Proxy :: Proxy ListOfferings)
+ test/Test/Amazonka/DeviceFarm.hs view
@@ -0,0 +1,20 @@+-- |+-- Module      : Test.Amazonka.DeviceFarm+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Test.Amazonka.DeviceFarm+  ( tests,+    fixtures,+  )+where++import Test.Tasty (TestTree)++tests :: [TestTree]+tests = []++fixtures :: [TestTree]+fixtures = []
+ test/Test/Amazonka/DeviceFarm/Internal.hs view
@@ -0,0 +1,8 @@+-- |+-- Module      : Test.Amazonka.DeviceFarm.Internal+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Test.Amazonka.DeviceFarm.Internal where
+ test/Test/Amazonka/Gen/DeviceFarm.hs view
@@ -0,0 +1,1578 @@+{-# OPTIONS_GHC -fno-warn-orphans #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Test.Amazonka.Gen.DeviceFarm+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Test.Amazonka.Gen.DeviceFarm where++import Amazonka.DeviceFarm+import qualified Data.Proxy as Proxy+import Test.Amazonka.DeviceFarm.Internal+import Test.Amazonka.Fixture+import Test.Amazonka.Prelude+import Test.Tasty++-- Auto-generated: the actual test selection needs to be manually placed into+-- the top-level so that real test data can be incrementally added.+--+-- This commented snippet is what the entire set should look like:++-- fixtures :: TestTree+-- fixtures =+--     [ testGroup "request"+--         [ requestCreateDevicePool $+--             newCreateDevicePool+--+--         , requestCreateInstanceProfile $+--             newCreateInstanceProfile+--+--         , requestCreateNetworkProfile $+--             newCreateNetworkProfile+--+--         , requestCreateProject $+--             newCreateProject+--+--         , requestCreateRemoteAccessSession $+--             newCreateRemoteAccessSession+--+--         , requestCreateTestGridProject $+--             newCreateTestGridProject+--+--         , requestCreateTestGridUrl $+--             newCreateTestGridUrl+--+--         , requestCreateUpload $+--             newCreateUpload+--+--         , requestCreateVPCEConfiguration $+--             newCreateVPCEConfiguration+--+--         , requestDeleteDevicePool $+--             newDeleteDevicePool+--+--         , requestDeleteInstanceProfile $+--             newDeleteInstanceProfile+--+--         , requestDeleteNetworkProfile $+--             newDeleteNetworkProfile+--+--         , requestDeleteProject $+--             newDeleteProject+--+--         , requestDeleteRemoteAccessSession $+--             newDeleteRemoteAccessSession+--+--         , requestDeleteRun $+--             newDeleteRun+--+--         , requestDeleteTestGridProject $+--             newDeleteTestGridProject+--+--         , requestDeleteUpload $+--             newDeleteUpload+--+--         , requestDeleteVPCEConfiguration $+--             newDeleteVPCEConfiguration+--+--         , requestGetAccountSettings $+--             newGetAccountSettings+--+--         , requestGetDevice $+--             newGetDevice+--+--         , requestGetDeviceInstance $+--             newGetDeviceInstance+--+--         , requestGetDevicePool $+--             newGetDevicePool+--+--         , requestGetDevicePoolCompatibility $+--             newGetDevicePoolCompatibility+--+--         , requestGetInstanceProfile $+--             newGetInstanceProfile+--+--         , requestGetJob $+--             newGetJob+--+--         , requestGetNetworkProfile $+--             newGetNetworkProfile+--+--         , requestGetOfferingStatus $+--             newGetOfferingStatus+--+--         , requestGetProject $+--             newGetProject+--+--         , requestGetRemoteAccessSession $+--             newGetRemoteAccessSession+--+--         , requestGetRun $+--             newGetRun+--+--         , requestGetSuite $+--             newGetSuite+--+--         , requestGetTest $+--             newGetTest+--+--         , requestGetTestGridProject $+--             newGetTestGridProject+--+--         , requestGetTestGridSession $+--             newGetTestGridSession+--+--         , requestGetUpload $+--             newGetUpload+--+--         , requestGetVPCEConfiguration $+--             newGetVPCEConfiguration+--+--         , requestInstallToRemoteAccessSession $+--             newInstallToRemoteAccessSession+--+--         , requestListArtifacts $+--             newListArtifacts+--+--         , requestListDeviceInstances $+--             newListDeviceInstances+--+--         , requestListDevicePools $+--             newListDevicePools+--+--         , requestListDevices $+--             newListDevices+--+--         , requestListInstanceProfiles $+--             newListInstanceProfiles+--+--         , requestListJobs $+--             newListJobs+--+--         , requestListNetworkProfiles $+--             newListNetworkProfiles+--+--         , requestListOfferingPromotions $+--             newListOfferingPromotions+--+--         , requestListOfferingTransactions $+--             newListOfferingTransactions+--+--         , requestListOfferings $+--             newListOfferings+--+--         , requestListProjects $+--             newListProjects+--+--         , requestListRemoteAccessSessions $+--             newListRemoteAccessSessions+--+--         , requestListRuns $+--             newListRuns+--+--         , requestListSamples $+--             newListSamples+--+--         , requestListSuites $+--             newListSuites+--+--         , requestListTagsForResource $+--             newListTagsForResource+--+--         , requestListTestGridProjects $+--             newListTestGridProjects+--+--         , requestListTestGridSessionActions $+--             newListTestGridSessionActions+--+--         , requestListTestGridSessionArtifacts $+--             newListTestGridSessionArtifacts+--+--         , requestListTestGridSessions $+--             newListTestGridSessions+--+--         , requestListTests $+--             newListTests+--+--         , requestListUniqueProblems $+--             newListUniqueProblems+--+--         , requestListUploads $+--             newListUploads+--+--         , requestListVPCEConfigurations $+--             newListVPCEConfigurations+--+--         , requestPurchaseOffering $+--             newPurchaseOffering+--+--         , requestRenewOffering $+--             newRenewOffering+--+--         , requestScheduleRun $+--             newScheduleRun+--+--         , requestStopJob $+--             newStopJob+--+--         , requestStopRemoteAccessSession $+--             newStopRemoteAccessSession+--+--         , requestStopRun $+--             newStopRun+--+--         , requestTagResource $+--             newTagResource+--+--         , requestUntagResource $+--             newUntagResource+--+--         , requestUpdateDeviceInstance $+--             newUpdateDeviceInstance+--+--         , requestUpdateDevicePool $+--             newUpdateDevicePool+--+--         , requestUpdateInstanceProfile $+--             newUpdateInstanceProfile+--+--         , requestUpdateNetworkProfile $+--             newUpdateNetworkProfile+--+--         , requestUpdateProject $+--             newUpdateProject+--+--         , requestUpdateTestGridProject $+--             newUpdateTestGridProject+--+--         , requestUpdateUpload $+--             newUpdateUpload+--+--         , requestUpdateVPCEConfiguration $+--             newUpdateVPCEConfiguration+--+--           ]++--     , testGroup "response"+--         [ responseCreateDevicePool $+--             newCreateDevicePoolResponse+--+--         , responseCreateInstanceProfile $+--             newCreateInstanceProfileResponse+--+--         , responseCreateNetworkProfile $+--             newCreateNetworkProfileResponse+--+--         , responseCreateProject $+--             newCreateProjectResponse+--+--         , responseCreateRemoteAccessSession $+--             newCreateRemoteAccessSessionResponse+--+--         , responseCreateTestGridProject $+--             newCreateTestGridProjectResponse+--+--         , responseCreateTestGridUrl $+--             newCreateTestGridUrlResponse+--+--         , responseCreateUpload $+--             newCreateUploadResponse+--+--         , responseCreateVPCEConfiguration $+--             newCreateVPCEConfigurationResponse+--+--         , responseDeleteDevicePool $+--             newDeleteDevicePoolResponse+--+--         , responseDeleteInstanceProfile $+--             newDeleteInstanceProfileResponse+--+--         , responseDeleteNetworkProfile $+--             newDeleteNetworkProfileResponse+--+--         , responseDeleteProject $+--             newDeleteProjectResponse+--+--         , responseDeleteRemoteAccessSession $+--             newDeleteRemoteAccessSessionResponse+--+--         , responseDeleteRun $+--             newDeleteRunResponse+--+--         , responseDeleteTestGridProject $+--             newDeleteTestGridProjectResponse+--+--         , responseDeleteUpload $+--             newDeleteUploadResponse+--+--         , responseDeleteVPCEConfiguration $+--             newDeleteVPCEConfigurationResponse+--+--         , responseGetAccountSettings $+--             newGetAccountSettingsResponse+--+--         , responseGetDevice $+--             newGetDeviceResponse+--+--         , responseGetDeviceInstance $+--             newGetDeviceInstanceResponse+--+--         , responseGetDevicePool $+--             newGetDevicePoolResponse+--+--         , responseGetDevicePoolCompatibility $+--             newGetDevicePoolCompatibilityResponse+--+--         , responseGetInstanceProfile $+--             newGetInstanceProfileResponse+--+--         , responseGetJob $+--             newGetJobResponse+--+--         , responseGetNetworkProfile $+--             newGetNetworkProfileResponse+--+--         , responseGetOfferingStatus $+--             newGetOfferingStatusResponse+--+--         , responseGetProject $+--             newGetProjectResponse+--+--         , responseGetRemoteAccessSession $+--             newGetRemoteAccessSessionResponse+--+--         , responseGetRun $+--             newGetRunResponse+--+--         , responseGetSuite $+--             newGetSuiteResponse+--+--         , responseGetTest $+--             newGetTestResponse+--+--         , responseGetTestGridProject $+--             newGetTestGridProjectResponse+--+--         , responseGetTestGridSession $+--             newGetTestGridSessionResponse+--+--         , responseGetUpload $+--             newGetUploadResponse+--+--         , responseGetVPCEConfiguration $+--             newGetVPCEConfigurationResponse+--+--         , responseInstallToRemoteAccessSession $+--             newInstallToRemoteAccessSessionResponse+--+--         , responseListArtifacts $+--             newListArtifactsResponse+--+--         , responseListDeviceInstances $+--             newListDeviceInstancesResponse+--+--         , responseListDevicePools $+--             newListDevicePoolsResponse+--+--         , responseListDevices $+--             newListDevicesResponse+--+--         , responseListInstanceProfiles $+--             newListInstanceProfilesResponse+--+--         , responseListJobs $+--             newListJobsResponse+--+--         , responseListNetworkProfiles $+--             newListNetworkProfilesResponse+--+--         , responseListOfferingPromotions $+--             newListOfferingPromotionsResponse+--+--         , responseListOfferingTransactions $+--             newListOfferingTransactionsResponse+--+--         , responseListOfferings $+--             newListOfferingsResponse+--+--         , responseListProjects $+--             newListProjectsResponse+--+--         , responseListRemoteAccessSessions $+--             newListRemoteAccessSessionsResponse+--+--         , responseListRuns $+--             newListRunsResponse+--+--         , responseListSamples $+--             newListSamplesResponse+--+--         , responseListSuites $+--             newListSuitesResponse+--+--         , responseListTagsForResource $+--             newListTagsForResourceResponse+--+--         , responseListTestGridProjects $+--             newListTestGridProjectsResponse+--+--         , responseListTestGridSessionActions $+--             newListTestGridSessionActionsResponse+--+--         , responseListTestGridSessionArtifacts $+--             newListTestGridSessionArtifactsResponse+--+--         , responseListTestGridSessions $+--             newListTestGridSessionsResponse+--+--         , responseListTests $+--             newListTestsResponse+--+--         , responseListUniqueProblems $+--             newListUniqueProblemsResponse+--+--         , responseListUploads $+--             newListUploadsResponse+--+--         , responseListVPCEConfigurations $+--             newListVPCEConfigurationsResponse+--+--         , responsePurchaseOffering $+--             newPurchaseOfferingResponse+--+--         , responseRenewOffering $+--             newRenewOfferingResponse+--+--         , responseScheduleRun $+--             newScheduleRunResponse+--+--         , responseStopJob $+--             newStopJobResponse+--+--         , responseStopRemoteAccessSession $+--             newStopRemoteAccessSessionResponse+--+--         , responseStopRun $+--             newStopRunResponse+--+--         , responseTagResource $+--             newTagResourceResponse+--+--         , responseUntagResource $+--             newUntagResourceResponse+--+--         , responseUpdateDeviceInstance $+--             newUpdateDeviceInstanceResponse+--+--         , responseUpdateDevicePool $+--             newUpdateDevicePoolResponse+--+--         , responseUpdateInstanceProfile $+--             newUpdateInstanceProfileResponse+--+--         , responseUpdateNetworkProfile $+--             newUpdateNetworkProfileResponse+--+--         , responseUpdateProject $+--             newUpdateProjectResponse+--+--         , responseUpdateTestGridProject $+--             newUpdateTestGridProjectResponse+--+--         , responseUpdateUpload $+--             newUpdateUploadResponse+--+--         , responseUpdateVPCEConfiguration $+--             newUpdateVPCEConfigurationResponse+--+--           ]+--     ]++-- Requests++requestCreateDevicePool :: CreateDevicePool -> TestTree+requestCreateDevicePool =+  req+    "CreateDevicePool"+    "fixture/CreateDevicePool.yaml"++requestCreateInstanceProfile :: CreateInstanceProfile -> TestTree+requestCreateInstanceProfile =+  req+    "CreateInstanceProfile"+    "fixture/CreateInstanceProfile.yaml"++requestCreateNetworkProfile :: CreateNetworkProfile -> TestTree+requestCreateNetworkProfile =+  req+    "CreateNetworkProfile"+    "fixture/CreateNetworkProfile.yaml"++requestCreateProject :: CreateProject -> TestTree+requestCreateProject =+  req+    "CreateProject"+    "fixture/CreateProject.yaml"++requestCreateRemoteAccessSession :: CreateRemoteAccessSession -> TestTree+requestCreateRemoteAccessSession =+  req+    "CreateRemoteAccessSession"+    "fixture/CreateRemoteAccessSession.yaml"++requestCreateTestGridProject :: CreateTestGridProject -> TestTree+requestCreateTestGridProject =+  req+    "CreateTestGridProject"+    "fixture/CreateTestGridProject.yaml"++requestCreateTestGridUrl :: CreateTestGridUrl -> TestTree+requestCreateTestGridUrl =+  req+    "CreateTestGridUrl"+    "fixture/CreateTestGridUrl.yaml"++requestCreateUpload :: CreateUpload -> TestTree+requestCreateUpload =+  req+    "CreateUpload"+    "fixture/CreateUpload.yaml"++requestCreateVPCEConfiguration :: CreateVPCEConfiguration -> TestTree+requestCreateVPCEConfiguration =+  req+    "CreateVPCEConfiguration"+    "fixture/CreateVPCEConfiguration.yaml"++requestDeleteDevicePool :: DeleteDevicePool -> TestTree+requestDeleteDevicePool =+  req+    "DeleteDevicePool"+    "fixture/DeleteDevicePool.yaml"++requestDeleteInstanceProfile :: DeleteInstanceProfile -> TestTree+requestDeleteInstanceProfile =+  req+    "DeleteInstanceProfile"+    "fixture/DeleteInstanceProfile.yaml"++requestDeleteNetworkProfile :: DeleteNetworkProfile -> TestTree+requestDeleteNetworkProfile =+  req+    "DeleteNetworkProfile"+    "fixture/DeleteNetworkProfile.yaml"++requestDeleteProject :: DeleteProject -> TestTree+requestDeleteProject =+  req+    "DeleteProject"+    "fixture/DeleteProject.yaml"++requestDeleteRemoteAccessSession :: DeleteRemoteAccessSession -> TestTree+requestDeleteRemoteAccessSession =+  req+    "DeleteRemoteAccessSession"+    "fixture/DeleteRemoteAccessSession.yaml"++requestDeleteRun :: DeleteRun -> TestTree+requestDeleteRun =+  req+    "DeleteRun"+    "fixture/DeleteRun.yaml"++requestDeleteTestGridProject :: DeleteTestGridProject -> TestTree+requestDeleteTestGridProject =+  req+    "DeleteTestGridProject"+    "fixture/DeleteTestGridProject.yaml"++requestDeleteUpload :: DeleteUpload -> TestTree+requestDeleteUpload =+  req+    "DeleteUpload"+    "fixture/DeleteUpload.yaml"++requestDeleteVPCEConfiguration :: DeleteVPCEConfiguration -> TestTree+requestDeleteVPCEConfiguration =+  req+    "DeleteVPCEConfiguration"+    "fixture/DeleteVPCEConfiguration.yaml"++requestGetAccountSettings :: GetAccountSettings -> TestTree+requestGetAccountSettings =+  req+    "GetAccountSettings"+    "fixture/GetAccountSettings.yaml"++requestGetDevice :: GetDevice -> TestTree+requestGetDevice =+  req+    "GetDevice"+    "fixture/GetDevice.yaml"++requestGetDeviceInstance :: GetDeviceInstance -> TestTree+requestGetDeviceInstance =+  req+    "GetDeviceInstance"+    "fixture/GetDeviceInstance.yaml"++requestGetDevicePool :: GetDevicePool -> TestTree+requestGetDevicePool =+  req+    "GetDevicePool"+    "fixture/GetDevicePool.yaml"++requestGetDevicePoolCompatibility :: GetDevicePoolCompatibility -> TestTree+requestGetDevicePoolCompatibility =+  req+    "GetDevicePoolCompatibility"+    "fixture/GetDevicePoolCompatibility.yaml"++requestGetInstanceProfile :: GetInstanceProfile -> TestTree+requestGetInstanceProfile =+  req+    "GetInstanceProfile"+    "fixture/GetInstanceProfile.yaml"++requestGetJob :: GetJob -> TestTree+requestGetJob =+  req+    "GetJob"+    "fixture/GetJob.yaml"++requestGetNetworkProfile :: GetNetworkProfile -> TestTree+requestGetNetworkProfile =+  req+    "GetNetworkProfile"+    "fixture/GetNetworkProfile.yaml"++requestGetOfferingStatus :: GetOfferingStatus -> TestTree+requestGetOfferingStatus =+  req+    "GetOfferingStatus"+    "fixture/GetOfferingStatus.yaml"++requestGetProject :: GetProject -> TestTree+requestGetProject =+  req+    "GetProject"+    "fixture/GetProject.yaml"++requestGetRemoteAccessSession :: GetRemoteAccessSession -> TestTree+requestGetRemoteAccessSession =+  req+    "GetRemoteAccessSession"+    "fixture/GetRemoteAccessSession.yaml"++requestGetRun :: GetRun -> TestTree+requestGetRun =+  req+    "GetRun"+    "fixture/GetRun.yaml"++requestGetSuite :: GetSuite -> TestTree+requestGetSuite =+  req+    "GetSuite"+    "fixture/GetSuite.yaml"++requestGetTest :: GetTest -> TestTree+requestGetTest =+  req+    "GetTest"+    "fixture/GetTest.yaml"++requestGetTestGridProject :: GetTestGridProject -> TestTree+requestGetTestGridProject =+  req+    "GetTestGridProject"+    "fixture/GetTestGridProject.yaml"++requestGetTestGridSession :: GetTestGridSession -> TestTree+requestGetTestGridSession =+  req+    "GetTestGridSession"+    "fixture/GetTestGridSession.yaml"++requestGetUpload :: GetUpload -> TestTree+requestGetUpload =+  req+    "GetUpload"+    "fixture/GetUpload.yaml"++requestGetVPCEConfiguration :: GetVPCEConfiguration -> TestTree+requestGetVPCEConfiguration =+  req+    "GetVPCEConfiguration"+    "fixture/GetVPCEConfiguration.yaml"++requestInstallToRemoteAccessSession :: InstallToRemoteAccessSession -> TestTree+requestInstallToRemoteAccessSession =+  req+    "InstallToRemoteAccessSession"+    "fixture/InstallToRemoteAccessSession.yaml"++requestListArtifacts :: ListArtifacts -> TestTree+requestListArtifacts =+  req+    "ListArtifacts"+    "fixture/ListArtifacts.yaml"++requestListDeviceInstances :: ListDeviceInstances -> TestTree+requestListDeviceInstances =+  req+    "ListDeviceInstances"+    "fixture/ListDeviceInstances.yaml"++requestListDevicePools :: ListDevicePools -> TestTree+requestListDevicePools =+  req+    "ListDevicePools"+    "fixture/ListDevicePools.yaml"++requestListDevices :: ListDevices -> TestTree+requestListDevices =+  req+    "ListDevices"+    "fixture/ListDevices.yaml"++requestListInstanceProfiles :: ListInstanceProfiles -> TestTree+requestListInstanceProfiles =+  req+    "ListInstanceProfiles"+    "fixture/ListInstanceProfiles.yaml"++requestListJobs :: ListJobs -> TestTree+requestListJobs =+  req+    "ListJobs"+    "fixture/ListJobs.yaml"++requestListNetworkProfiles :: ListNetworkProfiles -> TestTree+requestListNetworkProfiles =+  req+    "ListNetworkProfiles"+    "fixture/ListNetworkProfiles.yaml"++requestListOfferingPromotions :: ListOfferingPromotions -> TestTree+requestListOfferingPromotions =+  req+    "ListOfferingPromotions"+    "fixture/ListOfferingPromotions.yaml"++requestListOfferingTransactions :: ListOfferingTransactions -> TestTree+requestListOfferingTransactions =+  req+    "ListOfferingTransactions"+    "fixture/ListOfferingTransactions.yaml"++requestListOfferings :: ListOfferings -> TestTree+requestListOfferings =+  req+    "ListOfferings"+    "fixture/ListOfferings.yaml"++requestListProjects :: ListProjects -> TestTree+requestListProjects =+  req+    "ListProjects"+    "fixture/ListProjects.yaml"++requestListRemoteAccessSessions :: ListRemoteAccessSessions -> TestTree+requestListRemoteAccessSessions =+  req+    "ListRemoteAccessSessions"+    "fixture/ListRemoteAccessSessions.yaml"++requestListRuns :: ListRuns -> TestTree+requestListRuns =+  req+    "ListRuns"+    "fixture/ListRuns.yaml"++requestListSamples :: ListSamples -> TestTree+requestListSamples =+  req+    "ListSamples"+    "fixture/ListSamples.yaml"++requestListSuites :: ListSuites -> TestTree+requestListSuites =+  req+    "ListSuites"+    "fixture/ListSuites.yaml"++requestListTagsForResource :: ListTagsForResource -> TestTree+requestListTagsForResource =+  req+    "ListTagsForResource"+    "fixture/ListTagsForResource.yaml"++requestListTestGridProjects :: ListTestGridProjects -> TestTree+requestListTestGridProjects =+  req+    "ListTestGridProjects"+    "fixture/ListTestGridProjects.yaml"++requestListTestGridSessionActions :: ListTestGridSessionActions -> TestTree+requestListTestGridSessionActions =+  req+    "ListTestGridSessionActions"+    "fixture/ListTestGridSessionActions.yaml"++requestListTestGridSessionArtifacts :: ListTestGridSessionArtifacts -> TestTree+requestListTestGridSessionArtifacts =+  req+    "ListTestGridSessionArtifacts"+    "fixture/ListTestGridSessionArtifacts.yaml"++requestListTestGridSessions :: ListTestGridSessions -> TestTree+requestListTestGridSessions =+  req+    "ListTestGridSessions"+    "fixture/ListTestGridSessions.yaml"++requestListTests :: ListTests -> TestTree+requestListTests =+  req+    "ListTests"+    "fixture/ListTests.yaml"++requestListUniqueProblems :: ListUniqueProblems -> TestTree+requestListUniqueProblems =+  req+    "ListUniqueProblems"+    "fixture/ListUniqueProblems.yaml"++requestListUploads :: ListUploads -> TestTree+requestListUploads =+  req+    "ListUploads"+    "fixture/ListUploads.yaml"++requestListVPCEConfigurations :: ListVPCEConfigurations -> TestTree+requestListVPCEConfigurations =+  req+    "ListVPCEConfigurations"+    "fixture/ListVPCEConfigurations.yaml"++requestPurchaseOffering :: PurchaseOffering -> TestTree+requestPurchaseOffering =+  req+    "PurchaseOffering"+    "fixture/PurchaseOffering.yaml"++requestRenewOffering :: RenewOffering -> TestTree+requestRenewOffering =+  req+    "RenewOffering"+    "fixture/RenewOffering.yaml"++requestScheduleRun :: ScheduleRun -> TestTree+requestScheduleRun =+  req+    "ScheduleRun"+    "fixture/ScheduleRun.yaml"++requestStopJob :: StopJob -> TestTree+requestStopJob =+  req+    "StopJob"+    "fixture/StopJob.yaml"++requestStopRemoteAccessSession :: StopRemoteAccessSession -> TestTree+requestStopRemoteAccessSession =+  req+    "StopRemoteAccessSession"+    "fixture/StopRemoteAccessSession.yaml"++requestStopRun :: StopRun -> TestTree+requestStopRun =+  req+    "StopRun"+    "fixture/StopRun.yaml"++requestTagResource :: TagResource -> TestTree+requestTagResource =+  req+    "TagResource"+    "fixture/TagResource.yaml"++requestUntagResource :: UntagResource -> TestTree+requestUntagResource =+  req+    "UntagResource"+    "fixture/UntagResource.yaml"++requestUpdateDeviceInstance :: UpdateDeviceInstance -> TestTree+requestUpdateDeviceInstance =+  req+    "UpdateDeviceInstance"+    "fixture/UpdateDeviceInstance.yaml"++requestUpdateDevicePool :: UpdateDevicePool -> TestTree+requestUpdateDevicePool =+  req+    "UpdateDevicePool"+    "fixture/UpdateDevicePool.yaml"++requestUpdateInstanceProfile :: UpdateInstanceProfile -> TestTree+requestUpdateInstanceProfile =+  req+    "UpdateInstanceProfile"+    "fixture/UpdateInstanceProfile.yaml"++requestUpdateNetworkProfile :: UpdateNetworkProfile -> TestTree+requestUpdateNetworkProfile =+  req+    "UpdateNetworkProfile"+    "fixture/UpdateNetworkProfile.yaml"++requestUpdateProject :: UpdateProject -> TestTree+requestUpdateProject =+  req+    "UpdateProject"+    "fixture/UpdateProject.yaml"++requestUpdateTestGridProject :: UpdateTestGridProject -> TestTree+requestUpdateTestGridProject =+  req+    "UpdateTestGridProject"+    "fixture/UpdateTestGridProject.yaml"++requestUpdateUpload :: UpdateUpload -> TestTree+requestUpdateUpload =+  req+    "UpdateUpload"+    "fixture/UpdateUpload.yaml"++requestUpdateVPCEConfiguration :: UpdateVPCEConfiguration -> TestTree+requestUpdateVPCEConfiguration =+  req+    "UpdateVPCEConfiguration"+    "fixture/UpdateVPCEConfiguration.yaml"++-- Responses++responseCreateDevicePool :: CreateDevicePoolResponse -> TestTree+responseCreateDevicePool =+  res+    "CreateDevicePoolResponse"+    "fixture/CreateDevicePoolResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateDevicePool)++responseCreateInstanceProfile :: CreateInstanceProfileResponse -> TestTree+responseCreateInstanceProfile =+  res+    "CreateInstanceProfileResponse"+    "fixture/CreateInstanceProfileResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateInstanceProfile)++responseCreateNetworkProfile :: CreateNetworkProfileResponse -> TestTree+responseCreateNetworkProfile =+  res+    "CreateNetworkProfileResponse"+    "fixture/CreateNetworkProfileResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateNetworkProfile)++responseCreateProject :: CreateProjectResponse -> TestTree+responseCreateProject =+  res+    "CreateProjectResponse"+    "fixture/CreateProjectResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateProject)++responseCreateRemoteAccessSession :: CreateRemoteAccessSessionResponse -> TestTree+responseCreateRemoteAccessSession =+  res+    "CreateRemoteAccessSessionResponse"+    "fixture/CreateRemoteAccessSessionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateRemoteAccessSession)++responseCreateTestGridProject :: CreateTestGridProjectResponse -> TestTree+responseCreateTestGridProject =+  res+    "CreateTestGridProjectResponse"+    "fixture/CreateTestGridProjectResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateTestGridProject)++responseCreateTestGridUrl :: CreateTestGridUrlResponse -> TestTree+responseCreateTestGridUrl =+  res+    "CreateTestGridUrlResponse"+    "fixture/CreateTestGridUrlResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateTestGridUrl)++responseCreateUpload :: CreateUploadResponse -> TestTree+responseCreateUpload =+  res+    "CreateUploadResponse"+    "fixture/CreateUploadResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateUpload)++responseCreateVPCEConfiguration :: CreateVPCEConfigurationResponse -> TestTree+responseCreateVPCEConfiguration =+  res+    "CreateVPCEConfigurationResponse"+    "fixture/CreateVPCEConfigurationResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateVPCEConfiguration)++responseDeleteDevicePool :: DeleteDevicePoolResponse -> TestTree+responseDeleteDevicePool =+  res+    "DeleteDevicePoolResponse"+    "fixture/DeleteDevicePoolResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteDevicePool)++responseDeleteInstanceProfile :: DeleteInstanceProfileResponse -> TestTree+responseDeleteInstanceProfile =+  res+    "DeleteInstanceProfileResponse"+    "fixture/DeleteInstanceProfileResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteInstanceProfile)++responseDeleteNetworkProfile :: DeleteNetworkProfileResponse -> TestTree+responseDeleteNetworkProfile =+  res+    "DeleteNetworkProfileResponse"+    "fixture/DeleteNetworkProfileResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteNetworkProfile)++responseDeleteProject :: DeleteProjectResponse -> TestTree+responseDeleteProject =+  res+    "DeleteProjectResponse"+    "fixture/DeleteProjectResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteProject)++responseDeleteRemoteAccessSession :: DeleteRemoteAccessSessionResponse -> TestTree+responseDeleteRemoteAccessSession =+  res+    "DeleteRemoteAccessSessionResponse"+    "fixture/DeleteRemoteAccessSessionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteRemoteAccessSession)++responseDeleteRun :: DeleteRunResponse -> TestTree+responseDeleteRun =+  res+    "DeleteRunResponse"+    "fixture/DeleteRunResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteRun)++responseDeleteTestGridProject :: DeleteTestGridProjectResponse -> TestTree+responseDeleteTestGridProject =+  res+    "DeleteTestGridProjectResponse"+    "fixture/DeleteTestGridProjectResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteTestGridProject)++responseDeleteUpload :: DeleteUploadResponse -> TestTree+responseDeleteUpload =+  res+    "DeleteUploadResponse"+    "fixture/DeleteUploadResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteUpload)++responseDeleteVPCEConfiguration :: DeleteVPCEConfigurationResponse -> TestTree+responseDeleteVPCEConfiguration =+  res+    "DeleteVPCEConfigurationResponse"+    "fixture/DeleteVPCEConfigurationResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteVPCEConfiguration)++responseGetAccountSettings :: GetAccountSettingsResponse -> TestTree+responseGetAccountSettings =+  res+    "GetAccountSettingsResponse"+    "fixture/GetAccountSettingsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetAccountSettings)++responseGetDevice :: GetDeviceResponse -> TestTree+responseGetDevice =+  res+    "GetDeviceResponse"+    "fixture/GetDeviceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetDevice)++responseGetDeviceInstance :: GetDeviceInstanceResponse -> TestTree+responseGetDeviceInstance =+  res+    "GetDeviceInstanceResponse"+    "fixture/GetDeviceInstanceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetDeviceInstance)++responseGetDevicePool :: GetDevicePoolResponse -> TestTree+responseGetDevicePool =+  res+    "GetDevicePoolResponse"+    "fixture/GetDevicePoolResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetDevicePool)++responseGetDevicePoolCompatibility :: GetDevicePoolCompatibilityResponse -> TestTree+responseGetDevicePoolCompatibility =+  res+    "GetDevicePoolCompatibilityResponse"+    "fixture/GetDevicePoolCompatibilityResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetDevicePoolCompatibility)++responseGetInstanceProfile :: GetInstanceProfileResponse -> TestTree+responseGetInstanceProfile =+  res+    "GetInstanceProfileResponse"+    "fixture/GetInstanceProfileResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetInstanceProfile)++responseGetJob :: GetJobResponse -> TestTree+responseGetJob =+  res+    "GetJobResponse"+    "fixture/GetJobResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetJob)++responseGetNetworkProfile :: GetNetworkProfileResponse -> TestTree+responseGetNetworkProfile =+  res+    "GetNetworkProfileResponse"+    "fixture/GetNetworkProfileResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetNetworkProfile)++responseGetOfferingStatus :: GetOfferingStatusResponse -> TestTree+responseGetOfferingStatus =+  res+    "GetOfferingStatusResponse"+    "fixture/GetOfferingStatusResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetOfferingStatus)++responseGetProject :: GetProjectResponse -> TestTree+responseGetProject =+  res+    "GetProjectResponse"+    "fixture/GetProjectResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetProject)++responseGetRemoteAccessSession :: GetRemoteAccessSessionResponse -> TestTree+responseGetRemoteAccessSession =+  res+    "GetRemoteAccessSessionResponse"+    "fixture/GetRemoteAccessSessionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetRemoteAccessSession)++responseGetRun :: GetRunResponse -> TestTree+responseGetRun =+  res+    "GetRunResponse"+    "fixture/GetRunResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetRun)++responseGetSuite :: GetSuiteResponse -> TestTree+responseGetSuite =+  res+    "GetSuiteResponse"+    "fixture/GetSuiteResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetSuite)++responseGetTest :: GetTestResponse -> TestTree+responseGetTest =+  res+    "GetTestResponse"+    "fixture/GetTestResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetTest)++responseGetTestGridProject :: GetTestGridProjectResponse -> TestTree+responseGetTestGridProject =+  res+    "GetTestGridProjectResponse"+    "fixture/GetTestGridProjectResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetTestGridProject)++responseGetTestGridSession :: GetTestGridSessionResponse -> TestTree+responseGetTestGridSession =+  res+    "GetTestGridSessionResponse"+    "fixture/GetTestGridSessionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetTestGridSession)++responseGetUpload :: GetUploadResponse -> TestTree+responseGetUpload =+  res+    "GetUploadResponse"+    "fixture/GetUploadResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetUpload)++responseGetVPCEConfiguration :: GetVPCEConfigurationResponse -> TestTree+responseGetVPCEConfiguration =+  res+    "GetVPCEConfigurationResponse"+    "fixture/GetVPCEConfigurationResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetVPCEConfiguration)++responseInstallToRemoteAccessSession :: InstallToRemoteAccessSessionResponse -> TestTree+responseInstallToRemoteAccessSession =+  res+    "InstallToRemoteAccessSessionResponse"+    "fixture/InstallToRemoteAccessSessionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy InstallToRemoteAccessSession)++responseListArtifacts :: ListArtifactsResponse -> TestTree+responseListArtifacts =+  res+    "ListArtifactsResponse"+    "fixture/ListArtifactsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListArtifacts)++responseListDeviceInstances :: ListDeviceInstancesResponse -> TestTree+responseListDeviceInstances =+  res+    "ListDeviceInstancesResponse"+    "fixture/ListDeviceInstancesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListDeviceInstances)++responseListDevicePools :: ListDevicePoolsResponse -> TestTree+responseListDevicePools =+  res+    "ListDevicePoolsResponse"+    "fixture/ListDevicePoolsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListDevicePools)++responseListDevices :: ListDevicesResponse -> TestTree+responseListDevices =+  res+    "ListDevicesResponse"+    "fixture/ListDevicesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListDevices)++responseListInstanceProfiles :: ListInstanceProfilesResponse -> TestTree+responseListInstanceProfiles =+  res+    "ListInstanceProfilesResponse"+    "fixture/ListInstanceProfilesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListInstanceProfiles)++responseListJobs :: ListJobsResponse -> TestTree+responseListJobs =+  res+    "ListJobsResponse"+    "fixture/ListJobsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListJobs)++responseListNetworkProfiles :: ListNetworkProfilesResponse -> TestTree+responseListNetworkProfiles =+  res+    "ListNetworkProfilesResponse"+    "fixture/ListNetworkProfilesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListNetworkProfiles)++responseListOfferingPromotions :: ListOfferingPromotionsResponse -> TestTree+responseListOfferingPromotions =+  res+    "ListOfferingPromotionsResponse"+    "fixture/ListOfferingPromotionsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListOfferingPromotions)++responseListOfferingTransactions :: ListOfferingTransactionsResponse -> TestTree+responseListOfferingTransactions =+  res+    "ListOfferingTransactionsResponse"+    "fixture/ListOfferingTransactionsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListOfferingTransactions)++responseListOfferings :: ListOfferingsResponse -> TestTree+responseListOfferings =+  res+    "ListOfferingsResponse"+    "fixture/ListOfferingsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListOfferings)++responseListProjects :: ListProjectsResponse -> TestTree+responseListProjects =+  res+    "ListProjectsResponse"+    "fixture/ListProjectsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListProjects)++responseListRemoteAccessSessions :: ListRemoteAccessSessionsResponse -> TestTree+responseListRemoteAccessSessions =+  res+    "ListRemoteAccessSessionsResponse"+    "fixture/ListRemoteAccessSessionsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListRemoteAccessSessions)++responseListRuns :: ListRunsResponse -> TestTree+responseListRuns =+  res+    "ListRunsResponse"+    "fixture/ListRunsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListRuns)++responseListSamples :: ListSamplesResponse -> TestTree+responseListSamples =+  res+    "ListSamplesResponse"+    "fixture/ListSamplesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListSamples)++responseListSuites :: ListSuitesResponse -> TestTree+responseListSuites =+  res+    "ListSuitesResponse"+    "fixture/ListSuitesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListSuites)++responseListTagsForResource :: ListTagsForResourceResponse -> TestTree+responseListTagsForResource =+  res+    "ListTagsForResourceResponse"+    "fixture/ListTagsForResourceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListTagsForResource)++responseListTestGridProjects :: ListTestGridProjectsResponse -> TestTree+responseListTestGridProjects =+  res+    "ListTestGridProjectsResponse"+    "fixture/ListTestGridProjectsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListTestGridProjects)++responseListTestGridSessionActions :: ListTestGridSessionActionsResponse -> TestTree+responseListTestGridSessionActions =+  res+    "ListTestGridSessionActionsResponse"+    "fixture/ListTestGridSessionActionsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListTestGridSessionActions)++responseListTestGridSessionArtifacts :: ListTestGridSessionArtifactsResponse -> TestTree+responseListTestGridSessionArtifacts =+  res+    "ListTestGridSessionArtifactsResponse"+    "fixture/ListTestGridSessionArtifactsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListTestGridSessionArtifacts)++responseListTestGridSessions :: ListTestGridSessionsResponse -> TestTree+responseListTestGridSessions =+  res+    "ListTestGridSessionsResponse"+    "fixture/ListTestGridSessionsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListTestGridSessions)++responseListTests :: ListTestsResponse -> TestTree+responseListTests =+  res+    "ListTestsResponse"+    "fixture/ListTestsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListTests)++responseListUniqueProblems :: ListUniqueProblemsResponse -> TestTree+responseListUniqueProblems =+  res+    "ListUniqueProblemsResponse"+    "fixture/ListUniqueProblemsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListUniqueProblems)++responseListUploads :: ListUploadsResponse -> TestTree+responseListUploads =+  res+    "ListUploadsResponse"+    "fixture/ListUploadsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListUploads)++responseListVPCEConfigurations :: ListVPCEConfigurationsResponse -> TestTree+responseListVPCEConfigurations =+  res+    "ListVPCEConfigurationsResponse"+    "fixture/ListVPCEConfigurationsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListVPCEConfigurations)++responsePurchaseOffering :: PurchaseOfferingResponse -> TestTree+responsePurchaseOffering =+  res+    "PurchaseOfferingResponse"+    "fixture/PurchaseOfferingResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy PurchaseOffering)++responseRenewOffering :: RenewOfferingResponse -> TestTree+responseRenewOffering =+  res+    "RenewOfferingResponse"+    "fixture/RenewOfferingResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy RenewOffering)++responseScheduleRun :: ScheduleRunResponse -> TestTree+responseScheduleRun =+  res+    "ScheduleRunResponse"+    "fixture/ScheduleRunResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ScheduleRun)++responseStopJob :: StopJobResponse -> TestTree+responseStopJob =+  res+    "StopJobResponse"+    "fixture/StopJobResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy StopJob)++responseStopRemoteAccessSession :: StopRemoteAccessSessionResponse -> TestTree+responseStopRemoteAccessSession =+  res+    "StopRemoteAccessSessionResponse"+    "fixture/StopRemoteAccessSessionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy StopRemoteAccessSession)++responseStopRun :: StopRunResponse -> TestTree+responseStopRun =+  res+    "StopRunResponse"+    "fixture/StopRunResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy StopRun)++responseTagResource :: TagResourceResponse -> TestTree+responseTagResource =+  res+    "TagResourceResponse"+    "fixture/TagResourceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy TagResource)++responseUntagResource :: UntagResourceResponse -> TestTree+responseUntagResource =+  res+    "UntagResourceResponse"+    "fixture/UntagResourceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UntagResource)++responseUpdateDeviceInstance :: UpdateDeviceInstanceResponse -> TestTree+responseUpdateDeviceInstance =+  res+    "UpdateDeviceInstanceResponse"+    "fixture/UpdateDeviceInstanceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateDeviceInstance)++responseUpdateDevicePool :: UpdateDevicePoolResponse -> TestTree+responseUpdateDevicePool =+  res+    "UpdateDevicePoolResponse"+    "fixture/UpdateDevicePoolResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateDevicePool)++responseUpdateInstanceProfile :: UpdateInstanceProfileResponse -> TestTree+responseUpdateInstanceProfile =+  res+    "UpdateInstanceProfileResponse"+    "fixture/UpdateInstanceProfileResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateInstanceProfile)++responseUpdateNetworkProfile :: UpdateNetworkProfileResponse -> TestTree+responseUpdateNetworkProfile =+  res+    "UpdateNetworkProfileResponse"+    "fixture/UpdateNetworkProfileResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateNetworkProfile)++responseUpdateProject :: UpdateProjectResponse -> TestTree+responseUpdateProject =+  res+    "UpdateProjectResponse"+    "fixture/UpdateProjectResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateProject)++responseUpdateTestGridProject :: UpdateTestGridProjectResponse -> TestTree+responseUpdateTestGridProject =+  res+    "UpdateTestGridProjectResponse"+    "fixture/UpdateTestGridProjectResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateTestGridProject)++responseUpdateUpload :: UpdateUploadResponse -> TestTree+responseUpdateUpload =+  res+    "UpdateUploadResponse"+    "fixture/UpdateUploadResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateUpload)++responseUpdateVPCEConfiguration :: UpdateVPCEConfigurationResponse -> TestTree+responseUpdateVPCEConfiguration =+  res+    "UpdateVPCEConfigurationResponse"+    "fixture/UpdateVPCEConfigurationResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateVPCEConfiguration)