amazonka-devicefarm 1.1.0 → 1.2.0

raw patch · 31 files changed

+186/−146 lines, 31 filesdep ~amazonka-coredep ~amazonka-devicefarmdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-devicefarm.cabal +5/−5
• gen/Network/AWS/DeviceFarm.hs +2/−2
• gen/Network/AWS/DeviceFarm/CreateDevicePool.hs +6/−5
• gen/Network/AWS/DeviceFarm/CreateProject.hs +2/−3
• gen/Network/AWS/DeviceFarm/CreateUpload.hs +5/−5
• gen/Network/AWS/DeviceFarm/GetAccountSettings.hs +1/−2
• gen/Network/AWS/DeviceFarm/GetDevice.hs +3/−3
• gen/Network/AWS/DeviceFarm/GetDevicePool.hs +3/−3
• gen/Network/AWS/DeviceFarm/GetDevicePoolCompatibility.hs +5/−5
• gen/Network/AWS/DeviceFarm/GetJob.hs +3/−3
• gen/Network/AWS/DeviceFarm/GetProject.hs +3/−3
• gen/Network/AWS/DeviceFarm/GetRun.hs +3/−3
• gen/Network/AWS/DeviceFarm/GetSuite.hs +3/−3
• gen/Network/AWS/DeviceFarm/GetTest.hs +3/−3
• gen/Network/AWS/DeviceFarm/GetUpload.hs +3/−3
• gen/Network/AWS/DeviceFarm/ListArtifacts.hs +4/−4
• gen/Network/AWS/DeviceFarm/ListDevicePools.hs +4/−4
• gen/Network/AWS/DeviceFarm/ListDevices.hs +4/−3
• gen/Network/AWS/DeviceFarm/ListJobs.hs +4/−3
• gen/Network/AWS/DeviceFarm/ListProjects.hs +4/−3
• gen/Network/AWS/DeviceFarm/ListRuns.hs +4/−3
• gen/Network/AWS/DeviceFarm/ListSamples.hs +4/−3
• gen/Network/AWS/DeviceFarm/ListSuites.hs +5/−3
• gen/Network/AWS/DeviceFarm/ListTests.hs +4/−3
• gen/Network/AWS/DeviceFarm/ListUniqueProblems.hs +4/−3
• gen/Network/AWS/DeviceFarm/ListUploads.hs +4/−3
• gen/Network/AWS/DeviceFarm/ScheduleRun.hs +8/−7
• gen/Network/AWS/DeviceFarm/Types.hs +32/−36
• gen/Network/AWS/DeviceFarm/Types/Product.hs +25/−16
• test/Test/AWS/Gen/DeviceFarm.hs +25/−0

@@ -8,7 +8,7 @@  ## Version -`1.1.0`+`1.2.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-devicefarm-version:               1.1.0+version:               1.2.0 synopsis:              Amazon Device Farm SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -76,7 +76,7 @@         , Network.AWS.DeviceFarm.Types.Sum      build-depends:-          amazonka-core == 1.1.0.*+          amazonka-core == 1.2.0.*         , base          >= 4.7     && < 5  test-suite amazonka-devicefarm-test@@ -95,9 +95,9 @@         , Test.AWS.DeviceFarm.Internal      build-depends:-          amazonka-core == 1.1.0-        , amazonka-test == 1.1.0-        , amazonka-devicefarm == 1.1.0+          amazonka-core == 1.2.0+        , amazonka-test == 1.2.0+        , amazonka-devicefarm == 1.2.0         , base         , bytestring         , lens

@@ -18,8 +18,8 @@ -- /See:/ <http://docs.aws.amazon.com/devicefarm/latest/APIReference/Welcome.html AWS API Reference> module Network.AWS.DeviceFarm     (-    -- * Service-      DeviceFarm+    -- * Service Configuration+      deviceFarm      -- * Errors     -- $errors

@@ -96,9 +96,8 @@ cdpRules = lens _cdpRules (\ s a -> s{_cdpRules = a}) . _Coerce;  instance AWSRequest CreateDevicePool where-        type Sv CreateDevicePool = DeviceFarm         type Rs CreateDevicePool = CreateDevicePoolResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->@@ -118,9 +117,11 @@ instance ToJSON CreateDevicePool where         toJSON CreateDevicePool'{..}           = object-              ["description" .= _cdpDescription,-               "projectArn" .= _cdpProjectARN, "name" .= _cdpName,-               "rules" .= _cdpRules]+              (catMaybes+                 [("description" .=) <$> _cdpDescription,+                  Just ("projectArn" .= _cdpProjectARN),+                  Just ("name" .= _cdpName),+                  Just ("rules" .= _cdpRules)])  instance ToPath CreateDevicePool where         toPath = const "/"

@@ -68,9 +68,8 @@ cpName = lens _cpName (\ s a -> s{_cpName = a});  instance AWSRequest CreateProject where-        type Sv CreateProject = DeviceFarm         type Rs CreateProject = CreateProjectResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->@@ -88,7 +87,7 @@  instance ToJSON CreateProject where         toJSON CreateProject'{..}-          = object ["name" .= _cpName]+          = object (catMaybes [Just ("name" .= _cpName)])  instance ToPath CreateProject where         toPath = const "/"

@@ -120,9 +120,8 @@ cuType = lens _cuType (\ s a -> s{_cuType = a});  instance AWSRequest CreateUpload where-        type Sv CreateUpload = DeviceFarm         type Rs CreateUpload = CreateUploadResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->@@ -141,9 +140,10 @@ instance ToJSON CreateUpload where         toJSON CreateUpload'{..}           = object-              ["contentType" .= _cuContentType,-               "projectArn" .= _cuProjectARN, "name" .= _cuName,-               "type" .= _cuType]+              (catMaybes+                 [("contentType" .=) <$> _cuContentType,+                  Just ("projectArn" .= _cuProjectARN),+                  Just ("name" .= _cuName), Just ("type" .= _cuType)])  instance ToPath CreateUpload where         toPath = const "/"

@@ -54,10 +54,9 @@ getAccountSettings = GetAccountSettings'  instance AWSRequest GetAccountSettings where-        type Sv GetAccountSettings = DeviceFarm         type Rs GetAccountSettings =              GetAccountSettingsResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->

@@ -68,9 +68,8 @@ gdArn = lens _gdArn (\ s a -> s{_gdArn = a});  instance AWSRequest GetDevice where-        type Sv GetDevice = DeviceFarm         type Rs GetDevice = GetDeviceResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->@@ -87,7 +86,8 @@                     ("application/x-amz-json-1.1" :: ByteString)])  instance ToJSON GetDevice where-        toJSON GetDevice'{..} = object ["arn" .= _gdArn]+        toJSON GetDevice'{..}+          = object (catMaybes [Just ("arn" .= _gdArn)])  instance ToPath GetDevice where         toPath = const "/"

@@ -68,9 +68,8 @@ gdpArn = lens _gdpArn (\ s a -> s{_gdpArn = a});  instance AWSRequest GetDevicePool where-        type Sv GetDevicePool = DeviceFarm         type Rs GetDevicePool = GetDevicePoolResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->@@ -87,7 +86,8 @@                     ("application/x-amz-json-1.1" :: ByteString)])  instance ToJSON GetDevicePool where-        toJSON GetDevicePool'{..} = object ["arn" .= _gdpArn]+        toJSON GetDevicePool'{..}+          = object (catMaybes [Just ("arn" .= _gdpArn)])  instance ToPath GetDevicePool where         toPath = const "/"

@@ -111,10 +111,9 @@ gdpcAppARN = lens _gdpcAppARN (\ s a -> s{_gdpcAppARN = a});  instance AWSRequest GetDevicePoolCompatibility where-        type Sv GetDevicePoolCompatibility = DeviceFarm         type Rs GetDevicePoolCompatibility =              GetDevicePoolCompatibilityResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->@@ -136,9 +135,10 @@ instance ToJSON GetDevicePoolCompatibility where         toJSON GetDevicePoolCompatibility'{..}           = object-              ["testType" .= _gdpcTestType,-               "devicePoolArn" .= _gdpcDevicePoolARN,-               "appArn" .= _gdpcAppARN]+              (catMaybes+                 [("testType" .=) <$> _gdpcTestType,+                  Just ("devicePoolArn" .= _gdpcDevicePoolARN),+                  Just ("appArn" .= _gdpcAppARN)])  instance ToPath GetDevicePoolCompatibility where         toPath = const "/"

@@ -68,9 +68,8 @@ gjArn = lens _gjArn (\ s a -> s{_gjArn = a});  instance AWSRequest GetJob where-        type Sv GetJob = DeviceFarm         type Rs GetJob = GetJobResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->@@ -87,7 +86,8 @@                     ("application/x-amz-json-1.1" :: ByteString)])  instance ToJSON GetJob where-        toJSON GetJob'{..} = object ["arn" .= _gjArn]+        toJSON GetJob'{..}+          = object (catMaybes [Just ("arn" .= _gjArn)])  instance ToPath GetJob where         toPath = const "/"

@@ -68,9 +68,8 @@ gpArn = lens _gpArn (\ s a -> s{_gpArn = a});  instance AWSRequest GetProject where-        type Sv GetProject = DeviceFarm         type Rs GetProject = GetProjectResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->@@ -87,7 +86,8 @@                     ("application/x-amz-json-1.1" :: ByteString)])  instance ToJSON GetProject where-        toJSON GetProject'{..} = object ["arn" .= _gpArn]+        toJSON GetProject'{..}+          = object (catMaybes [Just ("arn" .= _gpArn)])  instance ToPath GetProject where         toPath = const "/"

@@ -68,9 +68,8 @@ grArn = lens _grArn (\ s a -> s{_grArn = a});  instance AWSRequest GetRun where-        type Sv GetRun = DeviceFarm         type Rs GetRun = GetRunResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->@@ -87,7 +86,8 @@                     ("application/x-amz-json-1.1" :: ByteString)])  instance ToJSON GetRun where-        toJSON GetRun'{..} = object ["arn" .= _grArn]+        toJSON GetRun'{..}+          = object (catMaybes [Just ("arn" .= _grArn)])  instance ToPath GetRun where         toPath = const "/"

@@ -68,9 +68,8 @@ gsArn = lens _gsArn (\ s a -> s{_gsArn = a});  instance AWSRequest GetSuite where-        type Sv GetSuite = DeviceFarm         type Rs GetSuite = GetSuiteResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->@@ -87,7 +86,8 @@                     ("application/x-amz-json-1.1" :: ByteString)])  instance ToJSON GetSuite where-        toJSON GetSuite'{..} = object ["arn" .= _gsArn]+        toJSON GetSuite'{..}+          = object (catMaybes [Just ("arn" .= _gsArn)])  instance ToPath GetSuite where         toPath = const "/"

@@ -68,9 +68,8 @@ gtArn = lens _gtArn (\ s a -> s{_gtArn = a});  instance AWSRequest GetTest where-        type Sv GetTest = DeviceFarm         type Rs GetTest = GetTestResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->@@ -87,7 +86,8 @@                     ("application/x-amz-json-1.1" :: ByteString)])  instance ToJSON GetTest where-        toJSON GetTest'{..} = object ["arn" .= _gtArn]+        toJSON GetTest'{..}+          = object (catMaybes [Just ("arn" .= _gtArn)])  instance ToPath GetTest where         toPath = const "/"

@@ -68,9 +68,8 @@ guArn = lens _guArn (\ s a -> s{_guArn = a});  instance AWSRequest GetUpload where-        type Sv GetUpload = DeviceFarm         type Rs GetUpload = GetUploadResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->@@ -87,7 +86,8 @@                     ("application/x-amz-json-1.1" :: ByteString)])  instance ToJSON GetUpload where-        toJSON GetUpload'{..} = object ["arn" .= _guArn]+        toJSON GetUpload'{..}+          = object (catMaybes [Just ("arn" .= _guArn)])  instance ToPath GetUpload where         toPath = const "/"

@@ -96,9 +96,8 @@ laType = lens _laType (\ s a -> s{_laType = a});  instance AWSRequest ListArtifacts where-        type Sv ListArtifacts = DeviceFarm         type Rs ListArtifacts = ListArtifactsResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->@@ -119,8 +118,9 @@ instance ToJSON ListArtifacts where         toJSON ListArtifacts'{..}           = object-              ["nextToken" .= _laNextToken, "arn" .= _laArn,-               "type" .= _laType]+              (catMaybes+                 [("nextToken" .=) <$> _laNextToken,+                  Just ("arn" .= _laArn), Just ("type" .= _laType)])  instance ToPath ListArtifacts where         toPath = const "/"

@@ -98,9 +98,8 @@ ldpArn = lens _ldpArn (\ s a -> s{_ldpArn = a});  instance AWSRequest ListDevicePools where-        type Sv ListDevicePools = DeviceFarm         type Rs ListDevicePools = ListDevicePoolsResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->@@ -122,8 +121,9 @@ instance ToJSON ListDevicePools where         toJSON ListDevicePools'{..}           = object-              ["nextToken" .= _ldpNextToken, "type" .= _ldpType,-               "arn" .= _ldpArn]+              (catMaybes+                 [("nextToken" .=) <$> _ldpNextToken,+                  ("type" .=) <$> _ldpType, Just ("arn" .= _ldpArn)])  instance ToPath ListDevicePools where         toPath = const "/"

@@ -79,9 +79,8 @@ ldNextToken = lens _ldNextToken (\ s a -> s{_ldNextToken = a});  instance AWSRequest ListDevices where-        type Sv ListDevices = DeviceFarm         type Rs ListDevices = ListDevicesResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->@@ -101,7 +100,9 @@ instance ToJSON ListDevices where         toJSON ListDevices'{..}           = object-              ["arn" .= _ldArn, "nextToken" .= _ldNextToken]+              (catMaybes+                 [("arn" .=) <$> _ldArn,+                  ("nextToken" .=) <$> _ldNextToken])  instance ToPath ListDevices where         toPath = const "/"

@@ -80,9 +80,8 @@ ljArn = lens _ljArn (\ s a -> s{_ljArn = a});  instance AWSRequest ListJobs where-        type Sv ListJobs = DeviceFarm         type Rs ListJobs = ListJobsResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->@@ -102,7 +101,9 @@ instance ToJSON ListJobs where         toJSON ListJobs'{..}           = object-              ["nextToken" .= _ljNextToken, "arn" .= _ljArn]+              (catMaybes+                 [("nextToken" .=) <$> _ljNextToken,+                  Just ("arn" .= _ljArn)])  instance ToPath ListJobs where         toPath = const "/"

@@ -79,9 +79,8 @@ lpNextToken = lens _lpNextToken (\ s a -> s{_lpNextToken = a});  instance AWSRequest ListProjects where-        type Sv ListProjects = DeviceFarm         type Rs ListProjects = ListProjectsResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->@@ -101,7 +100,9 @@ instance ToJSON ListProjects where         toJSON ListProjects'{..}           = object-              ["arn" .= _lpArn, "nextToken" .= _lpNextToken]+              (catMaybes+                 [("arn" .=) <$> _lpArn,+                  ("nextToken" .=) <$> _lpNextToken])  instance ToPath ListProjects where         toPath = const "/"

@@ -80,9 +80,8 @@ lrArn = lens _lrArn (\ s a -> s{_lrArn = a});  instance AWSRequest ListRuns where-        type Sv ListRuns = DeviceFarm         type Rs ListRuns = ListRunsResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->@@ -102,7 +101,9 @@ instance ToJSON ListRuns where         toJSON ListRuns'{..}           = object-              ["nextToken" .= _lrNextToken, "arn" .= _lrArn]+              (catMaybes+                 [("nextToken" .=) <$> _lrNextToken,+                  Just ("arn" .= _lrArn)])  instance ToPath ListRuns where         toPath = const "/"

@@ -80,9 +80,8 @@ lsArn = lens _lsArn (\ s a -> s{_lsArn = a});  instance AWSRequest ListSamples where-        type Sv ListSamples = DeviceFarm         type Rs ListSamples = ListSamplesResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->@@ -102,7 +101,9 @@ instance ToJSON ListSamples where         toJSON ListSamples'{..}           = object-              ["nextToken" .= _lsNextToken, "arn" .= _lsArn]+              (catMaybes+                 [("nextToken" .=) <$> _lsNextToken,+                  Just ("arn" .= _lsArn)])  instance ToPath ListSamples where         toPath = const "/"

@@ -80,9 +80,8 @@ lArn = lens _lArn (\ s a -> s{_lArn = a});  instance AWSRequest ListSuites where-        type Sv ListSuites = DeviceFarm         type Rs ListSuites = ListSuitesResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->@@ -101,7 +100,10 @@  instance ToJSON ListSuites where         toJSON ListSuites'{..}-          = object ["nextToken" .= _lNextToken, "arn" .= _lArn]+          = object+              (catMaybes+                 [("nextToken" .=) <$> _lNextToken,+                  Just ("arn" .= _lArn)])  instance ToPath ListSuites where         toPath = const "/"

@@ -80,9 +80,8 @@ ltArn = lens _ltArn (\ s a -> s{_ltArn = a});  instance AWSRequest ListTests where-        type Sv ListTests = DeviceFarm         type Rs ListTests = ListTestsResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->@@ -102,7 +101,9 @@ instance ToJSON ListTests where         toJSON ListTests'{..}           = object-              ["nextToken" .= _ltNextToken, "arn" .= _ltArn]+              (catMaybes+                 [("nextToken" .=) <$> _ltNextToken,+                  Just ("arn" .= _ltArn)])  instance ToPath ListTests where         toPath = const "/"

@@ -80,10 +80,9 @@ lupArn = lens _lupArn (\ s a -> s{_lupArn = a});  instance AWSRequest ListUniqueProblems where-        type Sv ListUniqueProblems = DeviceFarm         type Rs ListUniqueProblems =              ListUniqueProblemsResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->@@ -105,7 +104,9 @@ instance ToJSON ListUniqueProblems where         toJSON ListUniqueProblems'{..}           = object-              ["nextToken" .= _lupNextToken, "arn" .= _lupArn]+              (catMaybes+                 [("nextToken" .=) <$> _lupNextToken,+                  Just ("arn" .= _lupArn)])  instance ToPath ListUniqueProblems where         toPath = const "/"

@@ -80,9 +80,8 @@ luArn = lens _luArn (\ s a -> s{_luArn = a});  instance AWSRequest ListUploads where-        type Sv ListUploads = DeviceFarm         type Rs ListUploads = ListUploadsResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->@@ -102,7 +101,9 @@ instance ToJSON ListUploads where         toJSON ListUploads'{..}           = object-              ["nextToken" .= _luNextToken, "arn" .= _luArn]+              (catMaybes+                 [("nextToken" .=) <$> _luNextToken,+                  Just ("arn" .= _luArn)])  instance ToPath ListUploads where         toPath = const "/"

@@ -116,9 +116,8 @@ srTest = lens _srTest (\ s a -> s{_srTest = a});  instance AWSRequest ScheduleRun where-        type Sv ScheduleRun = DeviceFarm         type Rs ScheduleRun = ScheduleRunResponse-        request = postJSON+        request = postJSON deviceFarm         response           = receiveJSON               (\ s h x ->@@ -137,11 +136,13 @@ instance ToJSON ScheduleRun where         toJSON ScheduleRun'{..}           = object-              ["name" .= _srName,-               "configuration" .= _srConfiguration,-               "projectArn" .= _srProjectARN, "appArn" .= _srAppARN,-               "devicePoolArn" .= _srDevicePoolARN,-               "test" .= _srTest]+              (catMaybes+                 [("name" .=) <$> _srName,+                  ("configuration" .=) <$> _srConfiguration,+                  Just ("projectArn" .= _srProjectARN),+                  Just ("appArn" .= _srAppARN),+                  Just ("devicePoolArn" .= _srDevicePoolARN),+                  Just ("test" .= _srTest)])  instance ToPath ScheduleRun where         toPath = const "/"

@@ -1,5 +1,4 @@ {-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE TypeFamilies      #-}  -- Derived from AWS service descriptions, licensed under Apache 2.0. @@ -13,8 +12,8 @@ -- module Network.AWS.DeviceFarm.Types     (-    -- * Service-      DeviceFarm+    -- * Service Configuration+      deviceFarm      -- * Errors     , _IdempotencyException@@ -301,39 +300,36 @@ import           Network.AWS.Prelude import           Network.AWS.Sign.V4 --- | Version @2015-06-23@ of the Amazon Device Farm SDK.-data DeviceFarm--instance AWSService DeviceFarm where-    type Sg DeviceFarm = V4-    service = const svc-      where-        svc =-            Service-            { _svcAbbrev = "DeviceFarm"-            , _svcPrefix = "devicefarm"-            , _svcVersion = "2015-06-23"-            , _svcEndpoint = defaultEndpoint svc-            , _svcTimeout = Just 70-            , _svcStatus = statusSuccess-            , _svcError = parseJSONError-            , _svcRetry = retry-            }-        retry =-            Exponential-            { _retryBase = 5.0e-2-            , _retryGrowth = 2-            , _retryAttempts = 5-            , _retryCheck = check-            }-        check e-          | has (hasCode "ThrottlingException" . hasStatus 400) e =-              Just "throttling_exception"-          | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"-          | has (hasStatus 503) e = Just "service_unavailable"-          | has (hasStatus 500) e = Just "general_server_error"-          | has (hasStatus 509) e = Just "limit_exceeded"-          | otherwise = Nothing+-- | 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+    , _svcRetry = retry+    }+  where+    retry =+        Exponential+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }+    check e+      | has (hasCode "ThrottlingException" . hasStatus 400) e =+          Just "throttling_exception"+      | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"+      | has (hasStatus 503) e = Just "service_unavailable"+      | has (hasStatus 500) e = Just "general_server_error"+      | has (hasStatus 509) e = Just "limit_exceeded"+      | otherwise = Nothing  -- | An entity with the same name already exists. _IdempotencyException :: AsError a => Getting (First ServiceError) a ServiceError

@@ -2,7 +2,6 @@ {-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE OverloadedStrings  #-} {-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-} @@ -837,8 +836,9 @@ instance ToJSON Location where         toJSON Location'{..}           = object-              ["latitude" .= _lLatitude,-               "longitude" .= _lLongitude]+              (catMaybes+                 [Just ("latitude" .= _lLatitude),+                  Just ("longitude" .= _lLongitude)])  -- | Represents a specific warning or failure. --@@ -1077,8 +1077,10 @@ instance ToJSON Radios where         toJSON Radios'{..}           = object-              ["nfc" .= _rNfc, "gps" .= _rGps,-               "bluetooth" .= _rBluetooth, "wifi" .= _rWifi]+              (catMaybes+                 [("nfc" .=) <$> _rNfc, ("gps" .=) <$> _rGps,+                  ("bluetooth" .=) <$> _rBluetooth,+                  ("wifi" .=) <$> _rWifi])  -- | Represents the screen resolution of a device in height and width, -- expressed in pixels.@@ -1190,8 +1192,10 @@ instance ToJSON Rule where         toJSON Rule'{..}           = object-              ["attribute" .= _rAttribute,-               "operator" .= _rOperator, "value" .= _rValue]+              (catMaybes+                 [("attribute" .=) <$> _rAttribute,+                  ("operator" .=) <$> _rOperator,+                  ("value" .=) <$> _rValue])  -- | Represents an app on a set of devices with a specific test and -- configuration.@@ -1569,12 +1573,15 @@ instance ToJSON ScheduleRunConfiguration where         toJSON ScheduleRunConfiguration'{..}           = object-              ["billingMethod" .= _srcBillingMethod,-               "radios" .= _srcRadios, "location" .= _srcLocation,-               "locale" .= _srcLocale,-               "networkProfileArn" .= _srcNetworkProfileARN,-               "extraDataPackageArn" .= _srcExtraDataPackageARN,-               "auxiliaryApps" .= _srcAuxiliaryApps]+              (catMaybes+                 [("billingMethod" .=) <$> _srcBillingMethod,+                  ("radios" .=) <$> _srcRadios,+                  ("location" .=) <$> _srcLocation,+                  ("locale" .=) <$> _srcLocale,+                  ("networkProfileArn" .=) <$> _srcNetworkProfileARN,+                  ("extraDataPackageArn" .=) <$>+                    _srcExtraDataPackageARN,+                  ("auxiliaryApps" .=) <$> _srcAuxiliaryApps])  -- | Represents additional test settings. --@@ -1651,9 +1658,11 @@ instance ToJSON ScheduleRunTest where         toJSON ScheduleRunTest'{..}           = object-              ["testPackageArn" .= _srtTestPackageARN,-               "parameters" .= _srtParameters,-               "filter" .= _srtFilter, "type" .= _srtType]+              (catMaybes+                 [("testPackageArn" .=) <$> _srtTestPackageARN,+                  ("parameters" .=) <$> _srtParameters,+                  ("filter" .=) <$> _srtFilter,+                  Just ("type" .= _srtType)])  -- | Represents a collection of one or more tests. --

@@ -317,148 +317,173 @@ testListProjectsResponse = res     "ListProjectsResponse"     "fixture/ListProjectsResponse"+    deviceFarm     (Proxy :: Proxy ListProjects)  testGetDevicePoolCompatibilityResponse :: GetDevicePoolCompatibilityResponse -> TestTree testGetDevicePoolCompatibilityResponse = res     "GetDevicePoolCompatibilityResponse"     "fixture/GetDevicePoolCompatibilityResponse"+    deviceFarm     (Proxy :: Proxy GetDevicePoolCompatibility)  testListTestsResponse :: ListTestsResponse -> TestTree testListTestsResponse = res     "ListTestsResponse"     "fixture/ListTestsResponse"+    deviceFarm     (Proxy :: Proxy ListTests)  testCreateUploadResponse :: CreateUploadResponse -> TestTree testCreateUploadResponse = res     "CreateUploadResponse"     "fixture/CreateUploadResponse"+    deviceFarm     (Proxy :: Proxy CreateUpload)  testListArtifactsResponse :: ListArtifactsResponse -> TestTree testListArtifactsResponse = res     "ListArtifactsResponse"     "fixture/ListArtifactsResponse"+    deviceFarm     (Proxy :: Proxy ListArtifacts)  testGetDevicePoolResponse :: GetDevicePoolResponse -> TestTree testGetDevicePoolResponse = res     "GetDevicePoolResponse"     "fixture/GetDevicePoolResponse"+    deviceFarm     (Proxy :: Proxy GetDevicePool)  testGetUploadResponse :: GetUploadResponse -> TestTree testGetUploadResponse = res     "GetUploadResponse"     "fixture/GetUploadResponse"+    deviceFarm     (Proxy :: Proxy GetUpload)  testListDevicePoolsResponse :: ListDevicePoolsResponse -> TestTree testListDevicePoolsResponse = res     "ListDevicePoolsResponse"     "fixture/ListDevicePoolsResponse"+    deviceFarm     (Proxy :: Proxy ListDevicePools)  testGetTestResponse :: GetTestResponse -> TestTree testGetTestResponse = res     "GetTestResponse"     "fixture/GetTestResponse"+    deviceFarm     (Proxy :: Proxy GetTest)  testCreateDevicePoolResponse :: CreateDevicePoolResponse -> TestTree testCreateDevicePoolResponse = res     "CreateDevicePoolResponse"     "fixture/CreateDevicePoolResponse"+    deviceFarm     (Proxy :: Proxy CreateDevicePool)  testListRunsResponse :: ListRunsResponse -> TestTree testListRunsResponse = res     "ListRunsResponse"     "fixture/ListRunsResponse"+    deviceFarm     (Proxy :: Proxy ListRuns)  testListJobsResponse :: ListJobsResponse -> TestTree testListJobsResponse = res     "ListJobsResponse"     "fixture/ListJobsResponse"+    deviceFarm     (Proxy :: Proxy ListJobs)  testGetDeviceResponse :: GetDeviceResponse -> TestTree testGetDeviceResponse = res     "GetDeviceResponse"     "fixture/GetDeviceResponse"+    deviceFarm     (Proxy :: Proxy GetDevice)  testGetJobResponse :: GetJobResponse -> TestTree testGetJobResponse = res     "GetJobResponse"     "fixture/GetJobResponse"+    deviceFarm     (Proxy :: Proxy GetJob)  testScheduleRunResponse :: ScheduleRunResponse -> TestTree testScheduleRunResponse = res     "ScheduleRunResponse"     "fixture/ScheduleRunResponse"+    deviceFarm     (Proxy :: Proxy ScheduleRun)  testGetRunResponse :: GetRunResponse -> TestTree testGetRunResponse = res     "GetRunResponse"     "fixture/GetRunResponse"+    deviceFarm     (Proxy :: Proxy GetRun)  testListSamplesResponse :: ListSamplesResponse -> TestTree testListSamplesResponse = res     "ListSamplesResponse"     "fixture/ListSamplesResponse"+    deviceFarm     (Proxy :: Proxy ListSamples)  testListSuitesResponse :: ListSuitesResponse -> TestTree testListSuitesResponse = res     "ListSuitesResponse"     "fixture/ListSuitesResponse"+    deviceFarm     (Proxy :: Proxy ListSuites)  testGetAccountSettingsResponse :: GetAccountSettingsResponse -> TestTree testGetAccountSettingsResponse = res     "GetAccountSettingsResponse"     "fixture/GetAccountSettingsResponse"+    deviceFarm     (Proxy :: Proxy GetAccountSettings)  testListUploadsResponse :: ListUploadsResponse -> TestTree testListUploadsResponse = res     "ListUploadsResponse"     "fixture/ListUploadsResponse"+    deviceFarm     (Proxy :: Proxy ListUploads)  testGetSuiteResponse :: GetSuiteResponse -> TestTree testGetSuiteResponse = res     "GetSuiteResponse"     "fixture/GetSuiteResponse"+    deviceFarm     (Proxy :: Proxy GetSuite)  testGetProjectResponse :: GetProjectResponse -> TestTree testGetProjectResponse = res     "GetProjectResponse"     "fixture/GetProjectResponse"+    deviceFarm     (Proxy :: Proxy GetProject)  testListDevicesResponse :: ListDevicesResponse -> TestTree testListDevicesResponse = res     "ListDevicesResponse"     "fixture/ListDevicesResponse"+    deviceFarm     (Proxy :: Proxy ListDevices)  testListUniqueProblemsResponse :: ListUniqueProblemsResponse -> TestTree testListUniqueProblemsResponse = res     "ListUniqueProblemsResponse"     "fixture/ListUniqueProblemsResponse"+    deviceFarm     (Proxy :: Proxy ListUniqueProblems)  testCreateProjectResponse :: CreateProjectResponse -> TestTree testCreateProjectResponse = res     "CreateProjectResponse"     "fixture/CreateProjectResponse"+    deviceFarm     (Proxy :: Proxy CreateProject)