amazonka-devicefarm 1.2.0.2 → 1.3.0

raw patch · 31 files changed

+475/−475 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 +31/−31
• gen/Network/AWS/DeviceFarm/CreateDevicePool.hs +9/−9
• gen/Network/AWS/DeviceFarm/CreateProject.hs +9/−9
• gen/Network/AWS/DeviceFarm/CreateUpload.hs +9/−9
• gen/Network/AWS/DeviceFarm/GetAccountSettings.hs +8/−8
• gen/Network/AWS/DeviceFarm/GetDevice.hs +9/−9
• gen/Network/AWS/DeviceFarm/GetDevicePool.hs +9/−9
• gen/Network/AWS/DeviceFarm/GetDevicePoolCompatibility.hs +8/−8
• gen/Network/AWS/DeviceFarm/GetJob.hs +9/−9
• gen/Network/AWS/DeviceFarm/GetProject.hs +9/−9
• gen/Network/AWS/DeviceFarm/GetRun.hs +9/−9
• gen/Network/AWS/DeviceFarm/GetSuite.hs +9/−9
• gen/Network/AWS/DeviceFarm/GetTest.hs +9/−9
• gen/Network/AWS/DeviceFarm/GetUpload.hs +9/−9
• gen/Network/AWS/DeviceFarm/ListArtifacts.hs +10/−10
• gen/Network/AWS/DeviceFarm/ListDevicePools.hs +10/−10
• gen/Network/AWS/DeviceFarm/ListDevices.hs +10/−10
• gen/Network/AWS/DeviceFarm/ListJobs.hs +10/−10
• gen/Network/AWS/DeviceFarm/ListProjects.hs +10/−10
• gen/Network/AWS/DeviceFarm/ListRuns.hs +10/−10
• gen/Network/AWS/DeviceFarm/ListSamples.hs +20/−20
• gen/Network/AWS/DeviceFarm/ListSuites.hs +20/−20
• gen/Network/AWS/DeviceFarm/ListTests.hs +10/−10
• gen/Network/AWS/DeviceFarm/ListUniqueProblems.hs +8/−8
• gen/Network/AWS/DeviceFarm/ListUploads.hs +10/−10
• gen/Network/AWS/DeviceFarm/ScheduleRun.hs +9/−9
• gen/Network/AWS/DeviceFarm/Types.hs +20/−20
• gen/Network/AWS/DeviceFarm/Types/Product.hs +86/−86
• test/Test/AWS/Gen/DeviceFarm.hs +80/−80

@@ -8,7 +8,7 @@  ## Version -`1.2.0.2`+`1.3.0`   ## Description

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

@@ -27,12 +27,12 @@     -- ** IdempotencyException     , _IdempotencyException -    -- ** NotFoundException-    , _NotFoundException-     -- ** ArgumentException     , _ArgumentException +    -- ** NotFoundException+    , _NotFoundException+     -- ** ServiceAccountException     , _ServiceAccountException @@ -54,23 +54,20 @@     -- ** ListTests     , module Network.AWS.DeviceFarm.ListTests -    -- ** CreateUpload-    , module Network.AWS.DeviceFarm.CreateUpload-     -- ** ListArtifacts     , module Network.AWS.DeviceFarm.ListArtifacts +    -- ** CreateUpload+    , module Network.AWS.DeviceFarm.CreateUpload+     -- ** GetDevicePool     , module Network.AWS.DeviceFarm.GetDevicePool -    -- ** GetUpload-    , module Network.AWS.DeviceFarm.GetUpload-     -- ** ListDevicePools     , module Network.AWS.DeviceFarm.ListDevicePools -    -- ** GetTest-    , module Network.AWS.DeviceFarm.GetTest+    -- ** GetUpload+    , module Network.AWS.DeviceFarm.GetUpload      -- ** CreateDevicePool     , module Network.AWS.DeviceFarm.CreateDevicePool@@ -78,12 +75,15 @@     -- ** ListRuns     , module Network.AWS.DeviceFarm.ListRuns -    -- ** ListJobs-    , module Network.AWS.DeviceFarm.ListJobs+    -- ** GetTest+    , module Network.AWS.DeviceFarm.GetTest      -- ** GetDevice     , module Network.AWS.DeviceFarm.GetDevice +    -- ** ListJobs+    , module Network.AWS.DeviceFarm.ListJobs+     -- ** GetJob     , module Network.AWS.DeviceFarm.GetJob @@ -111,12 +111,12 @@     -- ** GetProject     , module Network.AWS.DeviceFarm.GetProject -    -- ** ListDevices-    , module Network.AWS.DeviceFarm.ListDevices-     -- ** ListUniqueProblems     , module Network.AWS.DeviceFarm.ListUniqueProblems +    -- ** ListDevices+    , module Network.AWS.DeviceFarm.ListDevices+     -- ** CreateProject     , module Network.AWS.DeviceFarm.CreateProject @@ -306,15 +306,15 @@     -- ** Run     , Run     , run-    , runStatus     , runBillingMethod+    , runStatus     , runCounters     , runPlatform     , runArn     , runCreated-    , runCompletedJobs     , runStopped     , runResult+    , runCompletedJobs     , runName     , runType     , runMessage@@ -324,9 +324,9 @@     -- ** Sample     , Sample     , sample-    , sArn-    , sUrl-    , sType+    , samArn+    , samUrl+    , samType      -- ** ScheduleRunConfiguration     , ScheduleRunConfiguration@@ -350,16 +350,16 @@     -- ** Suite     , Suite     , suite-    , suiStatus-    , suiCounters-    , suiArn-    , suiCreated-    , suiStopped-    , suiResult-    , suiName-    , suiType-    , suiMessage-    , suiStarted+    , sStatus+    , sCounters+    , sArn+    , sCreated+    , sStopped+    , sResult+    , sName+    , sType+    , sMessage+    , sStarted      -- ** Test     , Test

@@ -37,7 +37,7 @@     , CreateDevicePoolResponse     -- * Response Lenses     , cdprsDevicePool-    , cdprsStatus+    , cdprsResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -133,8 +133,8 @@ -- -- /See:/ 'createDevicePoolResponse' smart constructor. data CreateDevicePoolResponse = CreateDevicePoolResponse'-    { _cdprsDevicePool :: !(Maybe DevicePool)-    , _cdprsStatus     :: !Int+    { _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.@@ -143,14 +143,14 @@ -- -- * 'cdprsDevicePool' ----- * 'cdprsStatus'+-- * 'cdprsResponseStatus' createDevicePoolResponse-    :: Int -- ^ 'cdprsStatus'+    :: Int -- ^ 'cdprsResponseStatus'     -> CreateDevicePoolResponse-createDevicePoolResponse pStatus_ =+createDevicePoolResponse pResponseStatus_ =     CreateDevicePoolResponse'     { _cdprsDevicePool = Nothing-    , _cdprsStatus = pStatus_+    , _cdprsResponseStatus = pResponseStatus_     }  -- | The newly created device pool.@@ -158,5 +158,5 @@ cdprsDevicePool = lens _cdprsDevicePool (\ s a -> s{_cdprsDevicePool = a});  -- | The response status code.-cdprsStatus :: Lens' CreateDevicePoolResponse Int-cdprsStatus = lens _cdprsStatus (\ s a -> s{_cdprsStatus = a});+cdprsResponseStatus :: Lens' CreateDevicePoolResponse Int+cdprsResponseStatus = lens _cdprsResponseStatus (\ s a -> s{_cdprsResponseStatus = a});

@@ -34,7 +34,7 @@     , CreateProjectResponse     -- * Response Lenses     , cprsProject-    , cprsStatus+    , cprsResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -99,8 +99,8 @@ -- -- /See:/ 'createProjectResponse' smart constructor. data CreateProjectResponse = CreateProjectResponse'-    { _cprsProject :: !(Maybe Project)-    , _cprsStatus  :: !Int+    { _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.@@ -109,14 +109,14 @@ -- -- * 'cprsProject' ----- * 'cprsStatus'+-- * 'cprsResponseStatus' createProjectResponse-    :: Int -- ^ 'cprsStatus'+    :: Int -- ^ 'cprsResponseStatus'     -> CreateProjectResponse-createProjectResponse pStatus_ =+createProjectResponse pResponseStatus_ =     CreateProjectResponse'     { _cprsProject = Nothing-    , _cprsStatus = pStatus_+    , _cprsResponseStatus = pResponseStatus_     }  -- | The newly created project.@@ -124,5 +124,5 @@ cprsProject = lens _cprsProject (\ s a -> s{_cprsProject = a});  -- | The response status code.-cprsStatus :: Lens' CreateProjectResponse Int-cprsStatus = lens _cprsStatus (\ s a -> s{_cprsStatus = a});+cprsResponseStatus :: Lens' CreateProjectResponse Int+cprsResponseStatus = lens _cprsResponseStatus (\ s a -> s{_cprsResponseStatus = a});

@@ -37,7 +37,7 @@     , CreateUploadResponse     -- * Response Lenses     , cursUpload-    , cursStatus+    , cursResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -155,8 +155,8 @@ -- -- /See:/ 'createUploadResponse' smart constructor. data CreateUploadResponse = CreateUploadResponse'-    { _cursUpload :: !(Maybe Upload)-    , _cursStatus :: !Int+    { _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.@@ -165,14 +165,14 @@ -- -- * 'cursUpload' ----- * 'cursStatus'+-- * 'cursResponseStatus' createUploadResponse-    :: Int -- ^ 'cursStatus'+    :: Int -- ^ 'cursResponseStatus'     -> CreateUploadResponse-createUploadResponse pStatus_ =+createUploadResponse pResponseStatus_ =     CreateUploadResponse'     { _cursUpload = Nothing-    , _cursStatus = pStatus_+    , _cursResponseStatus = pResponseStatus_     }  -- | The newly created upload.@@ -180,5 +180,5 @@ cursUpload = lens _cursUpload (\ s a -> s{_cursUpload = a});  -- | The response status code.-cursStatus :: Lens' CreateUploadResponse Int-cursStatus = lens _cursStatus (\ s a -> s{_cursStatus = a});+cursResponseStatus :: Lens' CreateUploadResponse Int+cursResponseStatus = lens _cursResponseStatus (\ s a -> s{_cursResponseStatus = a});

@@ -33,7 +33,7 @@     , GetAccountSettingsResponse     -- * Response Lenses     , gasrsAccountSettings-    , gasrsStatus+    , gasrsResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -85,7 +85,7 @@ -- | /See:/ 'getAccountSettingsResponse' smart constructor. data GetAccountSettingsResponse = GetAccountSettingsResponse'     { _gasrsAccountSettings :: !(Maybe AccountSettings)-    , _gasrsStatus          :: !Int+    , _gasrsResponseStatus  :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetAccountSettingsResponse' with the minimum fields required to make a request.@@ -94,14 +94,14 @@ -- -- * 'gasrsAccountSettings' ----- * 'gasrsStatus'+-- * 'gasrsResponseStatus' getAccountSettingsResponse-    :: Int -- ^ 'gasrsStatus'+    :: Int -- ^ 'gasrsResponseStatus'     -> GetAccountSettingsResponse-getAccountSettingsResponse pStatus_ =+getAccountSettingsResponse pResponseStatus_ =     GetAccountSettingsResponse'     { _gasrsAccountSettings = Nothing-    , _gasrsStatus = pStatus_+    , _gasrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -109,5 +109,5 @@ gasrsAccountSettings = lens _gasrsAccountSettings (\ s a -> s{_gasrsAccountSettings = a});  -- | The response status code.-gasrsStatus :: Lens' GetAccountSettingsResponse Int-gasrsStatus = lens _gasrsStatus (\ s a -> s{_gasrsStatus = a});+gasrsResponseStatus :: Lens' GetAccountSettingsResponse Int+gasrsResponseStatus = lens _gasrsResponseStatus (\ s a -> s{_gasrsResponseStatus = a});

@@ -34,7 +34,7 @@     , GetDeviceResponse     -- * Response Lenses     , gdrsDevice-    , gdrsStatus+    , gdrsResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -99,8 +99,8 @@ -- -- /See:/ 'getDeviceResponse' smart constructor. data GetDeviceResponse = GetDeviceResponse'-    { _gdrsDevice :: !(Maybe Device)-    , _gdrsStatus :: !Int+    { _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.@@ -109,14 +109,14 @@ -- -- * 'gdrsDevice' ----- * 'gdrsStatus'+-- * 'gdrsResponseStatus' getDeviceResponse-    :: Int -- ^ 'gdrsStatus'+    :: Int -- ^ 'gdrsResponseStatus'     -> GetDeviceResponse-getDeviceResponse pStatus_ =+getDeviceResponse pResponseStatus_ =     GetDeviceResponse'     { _gdrsDevice = Nothing-    , _gdrsStatus = pStatus_+    , _gdrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -124,5 +124,5 @@ gdrsDevice = lens _gdrsDevice (\ s a -> s{_gdrsDevice = a});  -- | The response status code.-gdrsStatus :: Lens' GetDeviceResponse Int-gdrsStatus = lens _gdrsStatus (\ s a -> s{_gdrsStatus = a});+gdrsResponseStatus :: Lens' GetDeviceResponse Int+gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a});

@@ -34,7 +34,7 @@     , GetDevicePoolResponse     -- * Response Lenses     , gdprsDevicePool-    , gdprsStatus+    , gdprsResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -99,8 +99,8 @@ -- -- /See:/ 'getDevicePoolResponse' smart constructor. data GetDevicePoolResponse = GetDevicePoolResponse'-    { _gdprsDevicePool :: !(Maybe DevicePool)-    , _gdprsStatus     :: !Int+    { _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.@@ -109,14 +109,14 @@ -- -- * 'gdprsDevicePool' ----- * 'gdprsStatus'+-- * 'gdprsResponseStatus' getDevicePoolResponse-    :: Int -- ^ 'gdprsStatus'+    :: Int -- ^ 'gdprsResponseStatus'     -> GetDevicePoolResponse-getDevicePoolResponse pStatus_ =+getDevicePoolResponse pResponseStatus_ =     GetDevicePoolResponse'     { _gdprsDevicePool = Nothing-    , _gdprsStatus = pStatus_+    , _gdprsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -124,5 +124,5 @@ gdprsDevicePool = lens _gdprsDevicePool (\ s a -> s{_gdprsDevicePool = a});  -- | The response status code.-gdprsStatus :: Lens' GetDevicePoolResponse Int-gdprsStatus = lens _gdprsStatus (\ s a -> s{_gdprsStatus = a});+gdprsResponseStatus :: Lens' GetDevicePoolResponse Int+gdprsResponseStatus = lens _gdprsResponseStatus (\ s a -> s{_gdprsResponseStatus = a});

@@ -37,7 +37,7 @@     -- * Response Lenses     , gdpcrsIncompatibleDevices     , gdpcrsCompatibleDevices-    , gdpcrsStatus+    , gdpcrsResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -152,7 +152,7 @@ data GetDevicePoolCompatibilityResponse = GetDevicePoolCompatibilityResponse'     { _gdpcrsIncompatibleDevices :: !(Maybe [DevicePoolCompatibilityResult])     , _gdpcrsCompatibleDevices   :: !(Maybe [DevicePoolCompatibilityResult])-    , _gdpcrsStatus              :: !Int+    , _gdpcrsResponseStatus      :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetDevicePoolCompatibilityResponse' with the minimum fields required to make a request.@@ -163,15 +163,15 @@ -- -- * 'gdpcrsCompatibleDevices' ----- * 'gdpcrsStatus'+-- * 'gdpcrsResponseStatus' getDevicePoolCompatibilityResponse-    :: Int -- ^ 'gdpcrsStatus'+    :: Int -- ^ 'gdpcrsResponseStatus'     -> GetDevicePoolCompatibilityResponse-getDevicePoolCompatibilityResponse pStatus_ =+getDevicePoolCompatibilityResponse pResponseStatus_ =     GetDevicePoolCompatibilityResponse'     { _gdpcrsIncompatibleDevices = Nothing     , _gdpcrsCompatibleDevices = Nothing-    , _gdpcrsStatus = pStatus_+    , _gdpcrsResponseStatus = pResponseStatus_     }  -- | Information about incompatible devices.@@ -183,5 +183,5 @@ gdpcrsCompatibleDevices = lens _gdpcrsCompatibleDevices (\ s a -> s{_gdpcrsCompatibleDevices = a}) . _Default . _Coerce;  -- | The response status code.-gdpcrsStatus :: Lens' GetDevicePoolCompatibilityResponse Int-gdpcrsStatus = lens _gdpcrsStatus (\ s a -> s{_gdpcrsStatus = a});+gdpcrsResponseStatus :: Lens' GetDevicePoolCompatibilityResponse Int+gdpcrsResponseStatus = lens _gdpcrsResponseStatus (\ s a -> s{_gdpcrsResponseStatus = a});

@@ -34,7 +34,7 @@     , GetJobResponse     -- * Response Lenses     , gjrsJob-    , gjrsStatus+    , gjrsResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -99,8 +99,8 @@ -- -- /See:/ 'getJobResponse' smart constructor. data GetJobResponse = GetJobResponse'-    { _gjrsJob    :: !(Maybe Job)-    , _gjrsStatus :: !Int+    { _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.@@ -109,14 +109,14 @@ -- -- * 'gjrsJob' ----- * 'gjrsStatus'+-- * 'gjrsResponseStatus' getJobResponse-    :: Int -- ^ 'gjrsStatus'+    :: Int -- ^ 'gjrsResponseStatus'     -> GetJobResponse-getJobResponse pStatus_ =+getJobResponse pResponseStatus_ =     GetJobResponse'     { _gjrsJob = Nothing-    , _gjrsStatus = pStatus_+    , _gjrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -124,5 +124,5 @@ gjrsJob = lens _gjrsJob (\ s a -> s{_gjrsJob = a});  -- | The response status code.-gjrsStatus :: Lens' GetJobResponse Int-gjrsStatus = lens _gjrsStatus (\ s a -> s{_gjrsStatus = a});+gjrsResponseStatus :: Lens' GetJobResponse Int+gjrsResponseStatus = lens _gjrsResponseStatus (\ s a -> s{_gjrsResponseStatus = a});

@@ -34,7 +34,7 @@     , GetProjectResponse     -- * Response Lenses     , gprsProject-    , gprsStatus+    , gprsResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -99,8 +99,8 @@ -- -- /See:/ 'getProjectResponse' smart constructor. data GetProjectResponse = GetProjectResponse'-    { _gprsProject :: !(Maybe Project)-    , _gprsStatus  :: !Int+    { _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.@@ -109,14 +109,14 @@ -- -- * 'gprsProject' ----- * 'gprsStatus'+-- * 'gprsResponseStatus' getProjectResponse-    :: Int -- ^ 'gprsStatus'+    :: Int -- ^ 'gprsResponseStatus'     -> GetProjectResponse-getProjectResponse pStatus_ =+getProjectResponse pResponseStatus_ =     GetProjectResponse'     { _gprsProject = Nothing-    , _gprsStatus = pStatus_+    , _gprsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -124,5 +124,5 @@ gprsProject = lens _gprsProject (\ s a -> s{_gprsProject = a});  -- | The response status code.-gprsStatus :: Lens' GetProjectResponse Int-gprsStatus = lens _gprsStatus (\ s a -> s{_gprsStatus = a});+gprsResponseStatus :: Lens' GetProjectResponse Int+gprsResponseStatus = lens _gprsResponseStatus (\ s a -> s{_gprsResponseStatus = a});

@@ -34,7 +34,7 @@     , GetRunResponse     -- * Response Lenses     , grrsRun-    , grrsStatus+    , grrsResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -99,8 +99,8 @@ -- -- /See:/ 'getRunResponse' smart constructor. data GetRunResponse = GetRunResponse'-    { _grrsRun    :: !(Maybe Run)-    , _grrsStatus :: !Int+    { _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.@@ -109,14 +109,14 @@ -- -- * 'grrsRun' ----- * 'grrsStatus'+-- * 'grrsResponseStatus' getRunResponse-    :: Int -- ^ 'grrsStatus'+    :: Int -- ^ 'grrsResponseStatus'     -> GetRunResponse-getRunResponse pStatus_ =+getRunResponse pResponseStatus_ =     GetRunResponse'     { _grrsRun = Nothing-    , _grrsStatus = pStatus_+    , _grrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -124,5 +124,5 @@ grrsRun = lens _grrsRun (\ s a -> s{_grrsRun = a});  -- | The response status code.-grrsStatus :: Lens' GetRunResponse Int-grrsStatus = lens _grrsStatus (\ s a -> s{_grrsStatus = a});+grrsResponseStatus :: Lens' GetRunResponse Int+grrsResponseStatus = lens _grrsResponseStatus (\ s a -> s{_grrsResponseStatus = a});

@@ -34,7 +34,7 @@     , GetSuiteResponse     -- * Response Lenses     , gsrsSuite-    , gsrsStatus+    , gsrsResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -99,8 +99,8 @@ -- -- /See:/ 'getSuiteResponse' smart constructor. data GetSuiteResponse = GetSuiteResponse'-    { _gsrsSuite  :: !(Maybe Suite)-    , _gsrsStatus :: !Int+    { _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.@@ -109,14 +109,14 @@ -- -- * 'gsrsSuite' ----- * 'gsrsStatus'+-- * 'gsrsResponseStatus' getSuiteResponse-    :: Int -- ^ 'gsrsStatus'+    :: Int -- ^ 'gsrsResponseStatus'     -> GetSuiteResponse-getSuiteResponse pStatus_ =+getSuiteResponse pResponseStatus_ =     GetSuiteResponse'     { _gsrsSuite = Nothing-    , _gsrsStatus = pStatus_+    , _gsrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -124,5 +124,5 @@ gsrsSuite = lens _gsrsSuite (\ s a -> s{_gsrsSuite = a});  -- | The response status code.-gsrsStatus :: Lens' GetSuiteResponse Int-gsrsStatus = lens _gsrsStatus (\ s a -> s{_gsrsStatus = a});+gsrsResponseStatus :: Lens' GetSuiteResponse Int+gsrsResponseStatus = lens _gsrsResponseStatus (\ s a -> s{_gsrsResponseStatus = a});

@@ -34,7 +34,7 @@     , GetTestResponse     -- * Response Lenses     , gtrsTest-    , gtrsStatus+    , gtrsResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -99,8 +99,8 @@ -- -- /See:/ 'getTestResponse' smart constructor. data GetTestResponse = GetTestResponse'-    { _gtrsTest   :: !(Maybe Test)-    , _gtrsStatus :: !Int+    { _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.@@ -109,14 +109,14 @@ -- -- * 'gtrsTest' ----- * 'gtrsStatus'+-- * 'gtrsResponseStatus' getTestResponse-    :: Int -- ^ 'gtrsStatus'+    :: Int -- ^ 'gtrsResponseStatus'     -> GetTestResponse-getTestResponse pStatus_ =+getTestResponse pResponseStatus_ =     GetTestResponse'     { _gtrsTest = Nothing-    , _gtrsStatus = pStatus_+    , _gtrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -124,5 +124,5 @@ gtrsTest = lens _gtrsTest (\ s a -> s{_gtrsTest = a});  -- | The response status code.-gtrsStatus :: Lens' GetTestResponse Int-gtrsStatus = lens _gtrsStatus (\ s a -> s{_gtrsStatus = a});+gtrsResponseStatus :: Lens' GetTestResponse Int+gtrsResponseStatus = lens _gtrsResponseStatus (\ s a -> s{_gtrsResponseStatus = a});

@@ -34,7 +34,7 @@     , GetUploadResponse     -- * Response Lenses     , gursUpload-    , gursStatus+    , gursResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -99,8 +99,8 @@ -- -- /See:/ 'getUploadResponse' smart constructor. data GetUploadResponse = GetUploadResponse'-    { _gursUpload :: !(Maybe Upload)-    , _gursStatus :: !Int+    { _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.@@ -109,14 +109,14 @@ -- -- * 'gursUpload' ----- * 'gursStatus'+-- * 'gursResponseStatus' getUploadResponse-    :: Int -- ^ 'gursStatus'+    :: Int -- ^ 'gursResponseStatus'     -> GetUploadResponse-getUploadResponse pStatus_ =+getUploadResponse pResponseStatus_ =     GetUploadResponse'     { _gursUpload = Nothing-    , _gursStatus = pStatus_+    , _gursResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -124,5 +124,5 @@ gursUpload = lens _gursUpload (\ s a -> s{_gursUpload = a});  -- | The response status code.-gursStatus :: Lens' GetUploadResponse Int-gursStatus = lens _gursStatus (\ s a -> s{_gursStatus = a});+gursResponseStatus :: Lens' GetUploadResponse Int+gursResponseStatus = lens _gursResponseStatus (\ s a -> s{_gursResponseStatus = a});

@@ -37,7 +37,7 @@     -- * Response Lenses     , larsArtifacts     , larsNextToken-    , larsStatus+    , larsResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -132,9 +132,9 @@ -- -- /See:/ 'listArtifactsResponse' smart constructor. data ListArtifactsResponse = ListArtifactsResponse'-    { _larsArtifacts :: !(Maybe [Artifact])-    , _larsNextToken :: !(Maybe Text)-    , _larsStatus    :: !Int+    { _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.@@ -145,15 +145,15 @@ -- -- * 'larsNextToken' ----- * 'larsStatus'+-- * 'larsResponseStatus' listArtifactsResponse-    :: Int -- ^ 'larsStatus'+    :: Int -- ^ 'larsResponseStatus'     -> ListArtifactsResponse-listArtifactsResponse pStatus_ =+listArtifactsResponse pResponseStatus_ =     ListArtifactsResponse'     { _larsArtifacts = Nothing     , _larsNextToken = Nothing-    , _larsStatus = pStatus_+    , _larsResponseStatus = pResponseStatus_     }  -- | Information about the artifacts.@@ -167,5 +167,5 @@ larsNextToken = lens _larsNextToken (\ s a -> s{_larsNextToken = a});  -- | The response status code.-larsStatus :: Lens' ListArtifactsResponse Int-larsStatus = lens _larsStatus (\ s a -> s{_larsStatus = a});+larsResponseStatus :: Lens' ListArtifactsResponse Int+larsResponseStatus = lens _larsResponseStatus (\ s a -> s{_larsResponseStatus = a});

@@ -37,7 +37,7 @@     -- * Response Lenses     , ldprsDevicePools     , ldprsNextToken-    , ldprsStatus+    , ldprsResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -135,9 +135,9 @@ -- -- /See:/ 'listDevicePoolsResponse' smart constructor. data ListDevicePoolsResponse = ListDevicePoolsResponse'-    { _ldprsDevicePools :: !(Maybe [DevicePool])-    , _ldprsNextToken   :: !(Maybe Text)-    , _ldprsStatus      :: !Int+    { _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.@@ -148,15 +148,15 @@ -- -- * 'ldprsNextToken' ----- * 'ldprsStatus'+-- * 'ldprsResponseStatus' listDevicePoolsResponse-    :: Int -- ^ 'ldprsStatus'+    :: Int -- ^ 'ldprsResponseStatus'     -> ListDevicePoolsResponse-listDevicePoolsResponse pStatus_ =+listDevicePoolsResponse pResponseStatus_ =     ListDevicePoolsResponse'     { _ldprsDevicePools = Nothing     , _ldprsNextToken = Nothing-    , _ldprsStatus = pStatus_+    , _ldprsResponseStatus = pResponseStatus_     }  -- | Information about the device pools.@@ -170,5 +170,5 @@ ldprsNextToken = lens _ldprsNextToken (\ s a -> s{_ldprsNextToken = a});  -- | The response status code.-ldprsStatus :: Lens' ListDevicePoolsResponse Int-ldprsStatus = lens _ldprsStatus (\ s a -> s{_ldprsStatus = a});+ldprsResponseStatus :: Lens' ListDevicePoolsResponse Int+ldprsResponseStatus = lens _ldprsResponseStatus (\ s a -> s{_ldprsResponseStatus = a});

@@ -36,7 +36,7 @@     -- * Response Lenses     , ldrsNextToken     , ldrsDevices-    , ldrsStatus+    , ldrsResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -114,9 +114,9 @@ -- -- /See:/ 'listDevicesResponse' smart constructor. data ListDevicesResponse = ListDevicesResponse'-    { _ldrsNextToken :: !(Maybe Text)-    , _ldrsDevices   :: !(Maybe [Device])-    , _ldrsStatus    :: !Int+    { _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.@@ -127,15 +127,15 @@ -- -- * 'ldrsDevices' ----- * 'ldrsStatus'+-- * 'ldrsResponseStatus' listDevicesResponse-    :: Int -- ^ 'ldrsStatus'+    :: Int -- ^ 'ldrsResponseStatus'     -> ListDevicesResponse-listDevicesResponse pStatus_ =+listDevicesResponse pResponseStatus_ =     ListDevicesResponse'     { _ldrsNextToken = Nothing     , _ldrsDevices = Nothing-    , _ldrsStatus = pStatus_+    , _ldrsResponseStatus = pResponseStatus_     }  -- | If the number of items that are returned is significantly large, this is@@ -149,5 +149,5 @@ ldrsDevices = lens _ldrsDevices (\ s a -> s{_ldrsDevices = a}) . _Default . _Coerce;  -- | The response status code.-ldrsStatus :: Lens' ListDevicesResponse Int-ldrsStatus = lens _ldrsStatus (\ s a -> s{_ldrsStatus = a});+ldrsResponseStatus :: Lens' ListDevicesResponse Int+ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a});

@@ -36,7 +36,7 @@     -- * Response Lenses     , ljrsJobs     , ljrsNextToken-    , ljrsStatus+    , ljrsResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -115,9 +115,9 @@ -- -- /See:/ 'listJobsResponse' smart constructor. data ListJobsResponse = ListJobsResponse'-    { _ljrsJobs      :: !(Maybe [Job])-    , _ljrsNextToken :: !(Maybe Text)-    , _ljrsStatus    :: !Int+    { _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.@@ -128,15 +128,15 @@ -- -- * 'ljrsNextToken' ----- * 'ljrsStatus'+-- * 'ljrsResponseStatus' listJobsResponse-    :: Int -- ^ 'ljrsStatus'+    :: Int -- ^ 'ljrsResponseStatus'     -> ListJobsResponse-listJobsResponse pStatus_ =+listJobsResponse pResponseStatus_ =     ListJobsResponse'     { _ljrsJobs = Nothing     , _ljrsNextToken = Nothing-    , _ljrsStatus = pStatus_+    , _ljrsResponseStatus = pResponseStatus_     }  -- | Information about the jobs.@@ -150,5 +150,5 @@ ljrsNextToken = lens _ljrsNextToken (\ s a -> s{_ljrsNextToken = a});  -- | The response status code.-ljrsStatus :: Lens' ListJobsResponse Int-ljrsStatus = lens _ljrsStatus (\ s a -> s{_ljrsStatus = a});+ljrsResponseStatus :: Lens' ListJobsResponse Int+ljrsResponseStatus = lens _ljrsResponseStatus (\ s a -> s{_ljrsResponseStatus = a});

@@ -36,7 +36,7 @@     -- * Response Lenses     , lprsNextToken     , lprsProjects-    , lprsStatus+    , lprsResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -114,9 +114,9 @@ -- -- /See:/ 'listProjectsResponse' smart constructor. data ListProjectsResponse = ListProjectsResponse'-    { _lprsNextToken :: !(Maybe Text)-    , _lprsProjects  :: !(Maybe [Project])-    , _lprsStatus    :: !Int+    { _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.@@ -127,15 +127,15 @@ -- -- * 'lprsProjects' ----- * 'lprsStatus'+-- * 'lprsResponseStatus' listProjectsResponse-    :: Int -- ^ 'lprsStatus'+    :: Int -- ^ 'lprsResponseStatus'     -> ListProjectsResponse-listProjectsResponse pStatus_ =+listProjectsResponse pResponseStatus_ =     ListProjectsResponse'     { _lprsNextToken = Nothing     , _lprsProjects = Nothing-    , _lprsStatus = pStatus_+    , _lprsResponseStatus = pResponseStatus_     }  -- | If the number of items that are returned is significantly large, this is@@ -149,5 +149,5 @@ lprsProjects = lens _lprsProjects (\ s a -> s{_lprsProjects = a}) . _Default . _Coerce;  -- | The response status code.-lprsStatus :: Lens' ListProjectsResponse Int-lprsStatus = lens _lprsStatus (\ s a -> s{_lprsStatus = a});+lprsResponseStatus :: Lens' ListProjectsResponse Int+lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a});

@@ -36,7 +36,7 @@     -- * Response Lenses     , lrrsRuns     , lrrsNextToken-    , lrrsStatus+    , lrrsResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -115,9 +115,9 @@ -- -- /See:/ 'listRunsResponse' smart constructor. data ListRunsResponse = ListRunsResponse'-    { _lrrsRuns      :: !(Maybe [Run])-    , _lrrsNextToken :: !(Maybe Text)-    , _lrrsStatus    :: !Int+    { _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.@@ -128,15 +128,15 @@ -- -- * 'lrrsNextToken' ----- * 'lrrsStatus'+-- * 'lrrsResponseStatus' listRunsResponse-    :: Int -- ^ 'lrrsStatus'+    :: Int -- ^ 'lrrsResponseStatus'     -> ListRunsResponse-listRunsResponse pStatus_ =+listRunsResponse pResponseStatus_ =     ListRunsResponse'     { _lrrsRuns = Nothing     , _lrrsNextToken = Nothing-    , _lrrsStatus = pStatus_+    , _lrrsResponseStatus = pResponseStatus_     }  -- | Information about the runs.@@ -150,5 +150,5 @@ lrrsNextToken = lens _lrrsNextToken (\ s a -> s{_lrrsNextToken = a});  -- | The response status code.-lrrsStatus :: Lens' ListRunsResponse Int-lrrsStatus = lens _lrrsStatus (\ s a -> s{_lrrsStatus = a});+lrrsResponseStatus :: Lens' ListRunsResponse Int+lrrsResponseStatus = lens _lrrsResponseStatus (\ s a -> s{_lrrsResponseStatus = a});

@@ -34,9 +34,9 @@     , listSamplesResponse     , ListSamplesResponse     -- * Response Lenses-    , lsrsNextToken-    , lsrsSamples-    , lsrsStatus+    , lrsNextToken+    , lrsSamples+    , lrsResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -115,40 +115,40 @@ -- -- /See:/ 'listSamplesResponse' smart constructor. data ListSamplesResponse = ListSamplesResponse'-    { _lsrsNextToken :: !(Maybe Text)-    , _lsrsSamples   :: !(Maybe [Sample])-    , _lsrsStatus    :: !Int+    { _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: ----- * 'lsrsNextToken'+-- * 'lrsNextToken' ----- * 'lsrsSamples'+-- * 'lrsSamples' ----- * 'lsrsStatus'+-- * 'lrsResponseStatus' listSamplesResponse-    :: Int -- ^ 'lsrsStatus'+    :: Int -- ^ 'lrsResponseStatus'     -> ListSamplesResponse-listSamplesResponse pStatus_ =+listSamplesResponse pResponseStatus_ =     ListSamplesResponse'-    { _lsrsNextToken = Nothing-    , _lsrsSamples = Nothing-    , _lsrsStatus = pStatus_+    { _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.-lsrsNextToken :: Lens' ListSamplesResponse (Maybe Text)-lsrsNextToken = lens _lsrsNextToken (\ s a -> s{_lsrsNextToken = a});+lrsNextToken :: Lens' ListSamplesResponse (Maybe Text)+lrsNextToken = lens _lrsNextToken (\ s a -> s{_lrsNextToken = a});  -- | Information about the samples.-lsrsSamples :: Lens' ListSamplesResponse [Sample]-lsrsSamples = lens _lsrsSamples (\ s a -> s{_lsrsSamples = a}) . _Default . _Coerce;+lrsSamples :: Lens' ListSamplesResponse [Sample]+lrsSamples = lens _lrsSamples (\ s a -> s{_lrsSamples = a}) . _Default . _Coerce;  -- | The response status code.-lsrsStatus :: Lens' ListSamplesResponse Int-lsrsStatus = lens _lsrsStatus (\ s a -> s{_lsrsStatus = a});+lrsResponseStatus :: Lens' ListSamplesResponse Int+lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a});

@@ -34,9 +34,9 @@     , listSuitesResponse     , ListSuitesResponse     -- * Response Lenses-    , lrsNextToken-    , lrsSuites-    , lrsStatus+    , lsrsNextToken+    , lsrsSuites+    , lsrsResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -115,40 +115,40 @@ -- -- /See:/ 'listSuitesResponse' smart constructor. data ListSuitesResponse = ListSuitesResponse'-    { _lrsNextToken :: !(Maybe Text)-    , _lrsSuites    :: !(Maybe [Suite])-    , _lrsStatus    :: !Int+    { _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: ----- * 'lrsNextToken'+-- * 'lsrsNextToken' ----- * 'lrsSuites'+-- * 'lsrsSuites' ----- * 'lrsStatus'+-- * 'lsrsResponseStatus' listSuitesResponse-    :: Int -- ^ 'lrsStatus'+    :: Int -- ^ 'lsrsResponseStatus'     -> ListSuitesResponse-listSuitesResponse pStatus_ =+listSuitesResponse pResponseStatus_ =     ListSuitesResponse'-    { _lrsNextToken = Nothing-    , _lrsSuites = Nothing-    , _lrsStatus = pStatus_+    { _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.-lrsNextToken :: Lens' ListSuitesResponse (Maybe Text)-lrsNextToken = lens _lrsNextToken (\ s a -> s{_lrsNextToken = a});+lsrsNextToken :: Lens' ListSuitesResponse (Maybe Text)+lsrsNextToken = lens _lsrsNextToken (\ s a -> s{_lsrsNextToken = a});  -- | Information about the suites.-lrsSuites :: Lens' ListSuitesResponse [Suite]-lrsSuites = lens _lrsSuites (\ s a -> s{_lrsSuites = a}) . _Default . _Coerce;+lsrsSuites :: Lens' ListSuitesResponse [Suite]+lsrsSuites = lens _lsrsSuites (\ s a -> s{_lsrsSuites = a}) . _Default . _Coerce;  -- | The response status code.-lrsStatus :: Lens' ListSuitesResponse Int-lrsStatus = lens _lrsStatus (\ s a -> s{_lrsStatus = a});+lsrsResponseStatus :: Lens' ListSuitesResponse Int+lsrsResponseStatus = lens _lsrsResponseStatus (\ s a -> s{_lsrsResponseStatus = a});

@@ -36,7 +36,7 @@     -- * Response Lenses     , ltrsTests     , ltrsNextToken-    , ltrsStatus+    , ltrsResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -115,9 +115,9 @@ -- -- /See:/ 'listTestsResponse' smart constructor. data ListTestsResponse = ListTestsResponse'-    { _ltrsTests     :: !(Maybe [Test])-    , _ltrsNextToken :: !(Maybe Text)-    , _ltrsStatus    :: !Int+    { _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.@@ -128,15 +128,15 @@ -- -- * 'ltrsNextToken' ----- * 'ltrsStatus'+-- * 'ltrsResponseStatus' listTestsResponse-    :: Int -- ^ 'ltrsStatus'+    :: Int -- ^ 'ltrsResponseStatus'     -> ListTestsResponse-listTestsResponse pStatus_ =+listTestsResponse pResponseStatus_ =     ListTestsResponse'     { _ltrsTests = Nothing     , _ltrsNextToken = Nothing-    , _ltrsStatus = pStatus_+    , _ltrsResponseStatus = pResponseStatus_     }  -- | Information about the tests.@@ -150,5 +150,5 @@ ltrsNextToken = lens _ltrsNextToken (\ s a -> s{_ltrsNextToken = a});  -- | The response status code.-ltrsStatus :: Lens' ListTestsResponse Int-ltrsStatus = lens _ltrsStatus (\ s a -> s{_ltrsStatus = a});+ltrsResponseStatus :: Lens' ListTestsResponse Int+ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a});

@@ -36,7 +36,7 @@     -- * Response Lenses     , luprsNextToken     , luprsUniqueProblems-    , luprsStatus+    , luprsResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -120,7 +120,7 @@ data ListUniqueProblemsResponse = ListUniqueProblemsResponse'     { _luprsNextToken      :: !(Maybe Text)     , _luprsUniqueProblems :: !(Maybe (Map ExecutionResult [UniqueProblem]))-    , _luprsStatus         :: !Int+    , _luprsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListUniqueProblemsResponse' with the minimum fields required to make a request.@@ -131,15 +131,15 @@ -- -- * 'luprsUniqueProblems' ----- * 'luprsStatus'+-- * 'luprsResponseStatus' listUniqueProblemsResponse-    :: Int -- ^ 'luprsStatus'+    :: Int -- ^ 'luprsResponseStatus'     -> ListUniqueProblemsResponse-listUniqueProblemsResponse pStatus_ =+listUniqueProblemsResponse pResponseStatus_ =     ListUniqueProblemsResponse'     { _luprsNextToken = Nothing     , _luprsUniqueProblems = Nothing-    , _luprsStatus = pStatus_+    , _luprsResponseStatus = pResponseStatus_     }  -- | If the number of items that are returned is significantly large, this is@@ -170,5 +170,5 @@ luprsUniqueProblems = lens _luprsUniqueProblems (\ s a -> s{_luprsUniqueProblems = a}) . _Default . _Map;  -- | The response status code.-luprsStatus :: Lens' ListUniqueProblemsResponse Int-luprsStatus = lens _luprsStatus (\ s a -> s{_luprsStatus = a});+luprsResponseStatus :: Lens' ListUniqueProblemsResponse Int+luprsResponseStatus = lens _luprsResponseStatus (\ s a -> s{_luprsResponseStatus = a});

@@ -36,7 +36,7 @@     -- * Response Lenses     , lursNextToken     , lursUploads-    , lursStatus+    , lursResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -115,9 +115,9 @@ -- -- /See:/ 'listUploadsResponse' smart constructor. data ListUploadsResponse = ListUploadsResponse'-    { _lursNextToken :: !(Maybe Text)-    , _lursUploads   :: !(Maybe [Upload])-    , _lursStatus    :: !Int+    { _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.@@ -128,15 +128,15 @@ -- -- * 'lursUploads' ----- * 'lursStatus'+-- * 'lursResponseStatus' listUploadsResponse-    :: Int -- ^ 'lursStatus'+    :: Int -- ^ 'lursResponseStatus'     -> ListUploadsResponse-listUploadsResponse pStatus_ =+listUploadsResponse pResponseStatus_ =     ListUploadsResponse'     { _lursNextToken = Nothing     , _lursUploads = Nothing-    , _lursStatus = pStatus_+    , _lursResponseStatus = pResponseStatus_     }  -- | If the number of items that are returned is significantly large, this is@@ -150,5 +150,5 @@ lursUploads = lens _lursUploads (\ s a -> s{_lursUploads = a}) . _Default . _Coerce;  -- | The response status code.-lursStatus :: Lens' ListUploadsResponse Int-lursStatus = lens _lursStatus (\ s a -> s{_lursStatus = a});+lursResponseStatus :: Lens' ListUploadsResponse Int+lursResponseStatus = lens _lursResponseStatus (\ s a -> s{_lursResponseStatus = a});

@@ -39,7 +39,7 @@     , ScheduleRunResponse     -- * Response Lenses     , srrsRun-    , srrsStatus+    , srrsResponseStatus     ) where  import           Network.AWS.DeviceFarm.Types@@ -154,8 +154,8 @@ -- -- /See:/ 'scheduleRunResponse' smart constructor. data ScheduleRunResponse = ScheduleRunResponse'-    { _srrsRun    :: !(Maybe Run)-    , _srrsStatus :: !Int+    { _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.@@ -164,14 +164,14 @@ -- -- * 'srrsRun' ----- * 'srrsStatus'+-- * 'srrsResponseStatus' scheduleRunResponse-    :: Int -- ^ 'srrsStatus'+    :: Int -- ^ 'srrsResponseStatus'     -> ScheduleRunResponse-scheduleRunResponse pStatus_ =+scheduleRunResponse pResponseStatus_ =     ScheduleRunResponse'     { _srrsRun = Nothing-    , _srrsStatus = pStatus_+    , _srrsResponseStatus = pResponseStatus_     }  -- | Information about the scheduled run.@@ -179,5 +179,5 @@ srrsRun = lens _srrsRun (\ s a -> s{_srrsRun = a});  -- | The response status code.-srrsStatus :: Lens' ScheduleRunResponse Int-srrsStatus = lens _srrsStatus (\ s a -> s{_srrsStatus = a});+srrsResponseStatus :: Lens' ScheduleRunResponse Int+srrsResponseStatus = lens _srrsResponseStatus (\ s a -> s{_srrsResponseStatus = a});

@@ -17,8 +17,8 @@      -- * Errors     , _IdempotencyException-    , _NotFoundException     , _ArgumentException+    , _NotFoundException     , _ServiceAccountException     , _LimitExceededException @@ -206,15 +206,15 @@     -- * Run     , Run     , run-    , runStatus     , runBillingMethod+    , runStatus     , runCounters     , runPlatform     , runArn     , runCreated-    , runCompletedJobs     , runStopped     , runResult+    , runCompletedJobs     , runName     , runType     , runMessage@@ -224,9 +224,9 @@     -- * Sample     , Sample     , sample-    , sArn-    , sUrl-    , sType+    , samArn+    , samUrl+    , samType      -- * ScheduleRunConfiguration     , ScheduleRunConfiguration@@ -250,16 +250,16 @@     -- * Suite     , Suite     , suite-    , suiStatus-    , suiCounters-    , suiArn-    , suiCreated-    , suiStopped-    , suiResult-    , suiName-    , suiType-    , suiMessage-    , suiStarted+    , sStatus+    , sCounters+    , sArn+    , sCreated+    , sStopped+    , sResult+    , sName+    , sType+    , sMessage+    , sStarted      -- * Test     , Test@@ -335,13 +335,13 @@ _IdempotencyException :: AsError a => Getting (First ServiceError) a ServiceError _IdempotencyException = _ServiceError . hasCode "IdempotencyException" --- | The specified entity was not found.-_NotFoundException :: AsError a => Getting (First ServiceError) a ServiceError-_NotFoundException = _ServiceError . hasCode "NotFoundException"- -- | An invalid argument was specified. _ArgumentException :: AsError a => Getting (First ServiceError) a ServiceError _ArgumentException = _ServiceError . hasCode "ArgumentException"++-- | The specified entity was not found.+_NotFoundException :: AsError a => Getting (First ServiceError) a ServiceError+_NotFoundException = _ServiceError . hasCode "NotFoundException"  -- | There was a problem with the service account. _ServiceAccountException :: AsError a => Getting (First ServiceError) a ServiceError

@@ -1202,15 +1202,15 @@ -- -- /See:/ 'run' smart constructor. data Run = Run'-    { _runStatus        :: !(Maybe ExecutionStatus)-    , _runBillingMethod :: !(Maybe BillingMethod)+    { _runBillingMethod :: !(Maybe BillingMethod)+    , _runStatus        :: !(Maybe ExecutionStatus)     , _runCounters      :: !(Maybe Counters)     , _runPlatform      :: !(Maybe DevicePlatform)     , _runArn           :: !(Maybe Text)     , _runCreated       :: !(Maybe POSIX)-    , _runCompletedJobs :: !(Maybe Int)     , _runStopped       :: !(Maybe POSIX)     , _runResult        :: !(Maybe ExecutionResult)+    , _runCompletedJobs :: !(Maybe Int)     , _runName          :: !(Maybe Text)     , _runType          :: !(Maybe TestType)     , _runMessage       :: !(Maybe Text)@@ -1222,10 +1222,10 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'runStatus'--- -- * 'runBillingMethod' --+-- * 'runStatus'+-- -- * 'runCounters' -- -- * 'runPlatform'@@ -1234,12 +1234,12 @@ -- -- * 'runCreated' ----- * 'runCompletedJobs'--- -- * 'runStopped' -- -- * 'runResult' --+-- * 'runCompletedJobs'+-- -- * 'runName' -- -- * 'runType'@@ -1253,15 +1253,15 @@     :: Run run =     Run'-    { _runStatus = Nothing-    , _runBillingMethod = Nothing+    { _runBillingMethod = Nothing+    , _runStatus = Nothing     , _runCounters = Nothing     , _runPlatform = Nothing     , _runArn = Nothing     , _runCreated = Nothing-    , _runCompletedJobs = Nothing     , _runStopped = Nothing     , _runResult = Nothing+    , _runCompletedJobs = Nothing     , _runName = Nothing     , _runType = Nothing     , _runMessage = Nothing@@ -1269,6 +1269,11 @@     , _runStarted = Nothing     } +-- | Specifies the billing method for a test run: 'metered' or 'unmetered'.+-- If the parameter is not specified, the default value is 'unmetered'.+runBillingMethod :: Lens' Run (Maybe BillingMethod)+runBillingMethod = lens _runBillingMethod (\ s a -> s{_runBillingMethod = a});+ -- | The run\'s status. -- -- Allowed values include:@@ -1286,11 +1291,6 @@ runStatus :: Lens' Run (Maybe ExecutionStatus) runStatus = lens _runStatus (\ s a -> s{_runStatus = a}); --- | Specifies the billing method for a test run: 'metered' or 'unmetered'.--- If the parameter is not specified, the default value is 'unmetered'.-runBillingMethod :: Lens' Run (Maybe BillingMethod)-runBillingMethod = lens _runBillingMethod (\ s a -> s{_runBillingMethod = a});- -- | The run\'s result counters. runCounters :: Lens' Run (Maybe Counters) runCounters = lens _runCounters (\ s a -> s{_runCounters = a});@@ -1314,10 +1314,6 @@ runCreated :: Lens' Run (Maybe UTCTime) runCreated = lens _runCreated (\ s a -> s{_runCreated = a}) . mapping _Time; --- | The total number of completed jobs.-runCompletedJobs :: Lens' Run (Maybe Int)-runCompletedJobs = lens _runCompletedJobs (\ s a -> s{_runCompletedJobs = a});- -- | The run\'s stop time. runStopped :: Lens' Run (Maybe UTCTime) runStopped = lens _runStopped (\ s a -> s{_runStopped = a}) . mapping _Time;@@ -1343,6 +1339,10 @@ runResult :: Lens' Run (Maybe ExecutionResult) runResult = lens _runResult (\ s a -> s{_runResult = a}); +-- | The total number of completed jobs.+runCompletedJobs :: Lens' Run (Maybe Int)+runCompletedJobs = lens _runCompletedJobs (\ s a -> s{_runCompletedJobs = a});+ -- | The run\'s name. runName :: Lens' Run (Maybe Text) runName = lens _runName (\ s a -> s{_runName = a});@@ -1391,14 +1391,14 @@           = withObject "Run"               (\ x ->                  Run' <$>-                   (x .:? "status") <*> (x .:? "billingMethod") <*>+                   (x .:? "billingMethod") <*> (x .:? "status") <*>                      (x .:? "counters")                      <*> (x .:? "platform")                      <*> (x .:? "arn")                      <*> (x .:? "created")-                     <*> (x .:? "completedJobs")                      <*> (x .:? "stopped")                      <*> (x .:? "result")+                     <*> (x .:? "completedJobs")                      <*> (x .:? "name")                      <*> (x .:? "type")                      <*> (x .:? "message")@@ -1409,37 +1409,37 @@ -- -- /See:/ 'sample' smart constructor. data Sample = Sample'-    { _sArn  :: !(Maybe Text)-    , _sUrl  :: !(Maybe Text)-    , _sType :: !(Maybe SampleType)+    { _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: ----- * 'sArn'+-- * 'samArn' ----- * 'sUrl'+-- * 'samUrl' ----- * 'sType'+-- * 'samType' sample     :: Sample sample =     Sample'-    { _sArn = Nothing-    , _sUrl = Nothing-    , _sType = Nothing+    { _samArn = Nothing+    , _samUrl = Nothing+    , _samType = Nothing     }  -- | The sample\'s ARN.-sArn :: Lens' Sample (Maybe Text)-sArn = lens _sArn (\ s a -> s{_sArn = a});+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.-sUrl :: Lens' Sample (Maybe Text)-sUrl = lens _sUrl (\ s a -> s{_sUrl = a});+samUrl :: Lens' Sample (Maybe Text)+samUrl = lens _samUrl (\ s a -> s{_samUrl = a});  -- | The sample\'s type. --@@ -1485,8 +1485,8 @@ -- -   TX_RATE: The total number of bytes per second (TCP and UDP) that are --     received, by app process. ---sType :: Lens' Sample (Maybe SampleType)-sType = lens _sType (\ s a -> s{_sType = a});+samType :: Lens' Sample (Maybe SampleType)+samType = lens _samType (\ s a -> s{_samType = a});  instance FromJSON Sample where         parseJSON@@ -1668,55 +1668,55 @@ -- -- /See:/ 'suite' smart constructor. data Suite = Suite'-    { _suiStatus   :: !(Maybe ExecutionStatus)-    , _suiCounters :: !(Maybe Counters)-    , _suiArn      :: !(Maybe Text)-    , _suiCreated  :: !(Maybe POSIX)-    , _suiStopped  :: !(Maybe POSIX)-    , _suiResult   :: !(Maybe ExecutionResult)-    , _suiName     :: !(Maybe Text)-    , _suiType     :: !(Maybe TestType)-    , _suiMessage  :: !(Maybe Text)-    , _suiStarted  :: !(Maybe POSIX)+    { _sStatus   :: !(Maybe ExecutionStatus)+    , _sCounters :: !(Maybe Counters)+    , _sArn      :: !(Maybe Text)+    , _sCreated  :: !(Maybe POSIX)+    , _sStopped  :: !(Maybe POSIX)+    , _sResult   :: !(Maybe ExecutionResult)+    , _sName     :: !(Maybe Text)+    , _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: ----- * 'suiStatus'+-- * 'sStatus' ----- * 'suiCounters'+-- * 'sCounters' ----- * 'suiArn'+-- * 'sArn' ----- * 'suiCreated'+-- * 'sCreated' ----- * 'suiStopped'+-- * 'sStopped' ----- * 'suiResult'+-- * 'sResult' ----- * 'suiName'+-- * 'sName' ----- * 'suiType'+-- * 'sType' ----- * 'suiMessage'+-- * 'sMessage' ----- * 'suiStarted'+-- * 'sStarted' suite     :: Suite suite =     Suite'-    { _suiStatus = Nothing-    , _suiCounters = Nothing-    , _suiArn = Nothing-    , _suiCreated = Nothing-    , _suiStopped = Nothing-    , _suiResult = Nothing-    , _suiName = Nothing-    , _suiType = Nothing-    , _suiMessage = Nothing-    , _suiStarted = Nothing+    { _sStatus = Nothing+    , _sCounters = Nothing+    , _sArn = Nothing+    , _sCreated = Nothing+    , _sStopped = Nothing+    , _sResult = Nothing+    , _sName = Nothing+    , _sType = Nothing+    , _sMessage = Nothing+    , _sStarted = Nothing     }  -- | The suite\'s status.@@ -1733,24 +1733,24 @@ -- -- -   SCHEDULING: A scheduling status. ---suiStatus :: Lens' Suite (Maybe ExecutionStatus)-suiStatus = lens _suiStatus (\ s a -> s{_suiStatus = a});+sStatus :: Lens' Suite (Maybe ExecutionStatus)+sStatus = lens _sStatus (\ s a -> s{_sStatus = a});  -- | The suite\'s result counters.-suiCounters :: Lens' Suite (Maybe Counters)-suiCounters = lens _suiCounters (\ s a -> s{_suiCounters = a});+sCounters :: Lens' Suite (Maybe Counters)+sCounters = lens _sCounters (\ s a -> s{_sCounters = a});  -- | The suite\'s ARN.-suiArn :: Lens' Suite (Maybe Text)-suiArn = lens _suiArn (\ s a -> s{_suiArn = a});+sArn :: Lens' Suite (Maybe Text)+sArn = lens _sArn (\ s a -> s{_sArn = a});  -- | When the suite was created.-suiCreated :: Lens' Suite (Maybe UTCTime)-suiCreated = lens _suiCreated (\ s a -> s{_suiCreated = a}) . mapping _Time;+sCreated :: Lens' Suite (Maybe UTCTime)+sCreated = lens _sCreated (\ s a -> s{_sCreated = a}) . mapping _Time;  -- | The suite\'s stop time.-suiStopped :: Lens' Suite (Maybe UTCTime)-suiStopped = lens _suiStopped (\ s a -> s{_suiStopped = a}) . mapping _Time;+sStopped :: Lens' Suite (Maybe UTCTime)+sStopped = lens _sStopped (\ s a -> s{_sStopped = a}) . mapping _Time;  -- | The suite\'s result. --@@ -1770,12 +1770,12 @@ -- -- -   WARNED: A warning condition. ---suiResult :: Lens' Suite (Maybe ExecutionResult)-suiResult = lens _suiResult (\ s a -> s{_suiResult = a});+sResult :: Lens' Suite (Maybe ExecutionResult)+sResult = lens _sResult (\ s a -> s{_sResult = a});  -- | The suite\'s name.-suiName :: Lens' Suite (Maybe Text)-suiName = lens _suiName (\ s a -> s{_suiName = a});+sName :: Lens' Suite (Maybe Text)+sName = lens _sName (\ s a -> s{_sName = a});  -- | The suite\'s type. --@@ -1801,16 +1801,16 @@ -- -- -   XCTEST: The XCode test type. ---suiType :: Lens' Suite (Maybe TestType)-suiType = lens _suiType (\ s a -> s{_suiType = a});+sType :: Lens' Suite (Maybe TestType)+sType = lens _sType (\ s a -> s{_sType = a});  -- | A message about the suite\'s result.-suiMessage :: Lens' Suite (Maybe Text)-suiMessage = lens _suiMessage (\ s a -> s{_suiMessage = a});+sMessage :: Lens' Suite (Maybe Text)+sMessage = lens _sMessage (\ s a -> s{_sMessage = a});  -- | The suite\'s start time.-suiStarted :: Lens' Suite (Maybe UTCTime)-suiStarted = lens _suiStarted (\ s a -> s{_suiStarted = a}) . mapping _Time;+sStarted :: Lens' Suite (Maybe UTCTime)+sStarted = lens _sStarted (\ s a -> s{_sStarted = a}) . mapping _Time;  instance FromJSON Suite where         parseJSON

@@ -37,23 +37,20 @@ --         , testListTests $ --             listTests -----         , testCreateUpload $---             createUpload--- --         , testListArtifacts $ --             listArtifacts --+--         , testCreateUpload $+--             createUpload+-- --         , testGetDevicePool $ --             getDevicePool -----         , testGetUpload $---             getUpload--- --         , testListDevicePools $ --             listDevicePools -----         , testGetTest $---             getTest+--         , testGetUpload $+--             getUpload -- --         , testCreateDevicePool $ --             createDevicePool@@ -61,12 +58,15 @@ --         , testListRuns $ --             listRuns -----         , testListJobs $---             listJobs+--         , testGetTest $+--             getTest -- --         , testGetDevice $ --             getDevice --+--         , testListJobs $+--             listJobs+-- --         , testGetJob $ --             getJob --@@ -94,12 +94,12 @@ --         , testGetProject $ --             getProject -----         , testListDevices $---             listDevices--- --         , testListUniqueProblems $ --             listUniqueProblems --+--         , testListDevices $+--             listDevices+-- --         , testCreateProject $ --             createProject --@@ -115,23 +115,20 @@ --         , testListTestsResponse $ --             listTestsResponse -----         , testCreateUploadResponse $---             createUploadResponse--- --         , testListArtifactsResponse $ --             listArtifactsResponse --+--         , testCreateUploadResponse $+--             createUploadResponse+-- --         , testGetDevicePoolResponse $ --             getDevicePoolResponse -----         , testGetUploadResponse $---             getUploadResponse--- --         , testListDevicePoolsResponse $ --             listDevicePoolsResponse -----         , testGetTestResponse $---             getTestResponse+--         , testGetUploadResponse $+--             getUploadResponse -- --         , testCreateDevicePoolResponse $ --             createDevicePoolResponse@@ -139,12 +136,15 @@ --         , testListRunsResponse $ --             listRunsResponse -----         , testListJobsResponse $---             listJobsResponse+--         , testGetTestResponse $+--             getTestResponse -- --         , testGetDeviceResponse $ --             getDeviceResponse --+--         , testListJobsResponse $+--             listJobsResponse+-- --         , testGetJobResponse $ --             getJobResponse --@@ -172,12 +172,12 @@ --         , testGetProjectResponse $ --             getProjectResponse -----         , testListDevicesResponse $---             listDevicesResponse--- --         , testListUniqueProblemsResponse $ --             listUniqueProblemsResponse --+--         , testListDevicesResponse $+--             listDevicesResponse+-- --         , testCreateProjectResponse $ --             createProjectResponse --@@ -201,35 +201,30 @@     "ListTests"     "fixture/ListTests.yaml" -testCreateUpload :: CreateUpload -> TestTree-testCreateUpload = req-    "CreateUpload"-    "fixture/CreateUpload.yaml"- testListArtifacts :: ListArtifacts -> TestTree testListArtifacts = req     "ListArtifacts"     "fixture/ListArtifacts.yaml" +testCreateUpload :: CreateUpload -> TestTree+testCreateUpload = req+    "CreateUpload"+    "fixture/CreateUpload.yaml"+ testGetDevicePool :: GetDevicePool -> TestTree testGetDevicePool = req     "GetDevicePool"     "fixture/GetDevicePool.yaml" -testGetUpload :: GetUpload -> TestTree-testGetUpload = req-    "GetUpload"-    "fixture/GetUpload.yaml"- testListDevicePools :: ListDevicePools -> TestTree testListDevicePools = req     "ListDevicePools"     "fixture/ListDevicePools.yaml" -testGetTest :: GetTest -> TestTree-testGetTest = req-    "GetTest"-    "fixture/GetTest.yaml"+testGetUpload :: GetUpload -> TestTree+testGetUpload = req+    "GetUpload"+    "fixture/GetUpload.yaml"  testCreateDevicePool :: CreateDevicePool -> TestTree testCreateDevicePool = req@@ -241,16 +236,21 @@     "ListRuns"     "fixture/ListRuns.yaml" -testListJobs :: ListJobs -> TestTree-testListJobs = req-    "ListJobs"-    "fixture/ListJobs.yaml"+testGetTest :: GetTest -> TestTree+testGetTest = req+    "GetTest"+    "fixture/GetTest.yaml"  testGetDevice :: GetDevice -> TestTree testGetDevice = req     "GetDevice"     "fixture/GetDevice.yaml" +testListJobs :: ListJobs -> TestTree+testListJobs = req+    "ListJobs"+    "fixture/ListJobs.yaml"+ testGetJob :: GetJob -> TestTree testGetJob = req     "GetJob"@@ -296,16 +296,16 @@     "GetProject"     "fixture/GetProject.yaml" -testListDevices :: ListDevices -> TestTree-testListDevices = req-    "ListDevices"-    "fixture/ListDevices.yaml"- testListUniqueProblems :: ListUniqueProblems -> TestTree testListUniqueProblems = req     "ListUniqueProblems"     "fixture/ListUniqueProblems.yaml" +testListDevices :: ListDevices -> TestTree+testListDevices = req+    "ListDevices"+    "fixture/ListDevices.yaml"+ testCreateProject :: CreateProject -> TestTree testCreateProject = req     "CreateProject"@@ -334,13 +334,6 @@     deviceFarm     (Proxy :: Proxy ListTests) -testCreateUploadResponse :: CreateUploadResponse -> TestTree-testCreateUploadResponse = res-    "CreateUploadResponse"-    "fixture/CreateUploadResponse.proto"-    deviceFarm-    (Proxy :: Proxy CreateUpload)- testListArtifactsResponse :: ListArtifactsResponse -> TestTree testListArtifactsResponse = res     "ListArtifactsResponse"@@ -348,6 +341,13 @@     deviceFarm     (Proxy :: Proxy ListArtifacts) +testCreateUploadResponse :: CreateUploadResponse -> TestTree+testCreateUploadResponse = res+    "CreateUploadResponse"+    "fixture/CreateUploadResponse.proto"+    deviceFarm+    (Proxy :: Proxy CreateUpload)+ testGetDevicePoolResponse :: GetDevicePoolResponse -> TestTree testGetDevicePoolResponse = res     "GetDevicePoolResponse"@@ -355,13 +355,6 @@     deviceFarm     (Proxy :: Proxy GetDevicePool) -testGetUploadResponse :: GetUploadResponse -> TestTree-testGetUploadResponse = res-    "GetUploadResponse"-    "fixture/GetUploadResponse.proto"-    deviceFarm-    (Proxy :: Proxy GetUpload)- testListDevicePoolsResponse :: ListDevicePoolsResponse -> TestTree testListDevicePoolsResponse = res     "ListDevicePoolsResponse"@@ -369,12 +362,12 @@     deviceFarm     (Proxy :: Proxy ListDevicePools) -testGetTestResponse :: GetTestResponse -> TestTree-testGetTestResponse = res-    "GetTestResponse"-    "fixture/GetTestResponse.proto"+testGetUploadResponse :: GetUploadResponse -> TestTree+testGetUploadResponse = res+    "GetUploadResponse"+    "fixture/GetUploadResponse.proto"     deviceFarm-    (Proxy :: Proxy GetTest)+    (Proxy :: Proxy GetUpload)  testCreateDevicePoolResponse :: CreateDevicePoolResponse -> TestTree testCreateDevicePoolResponse = res@@ -390,12 +383,12 @@     deviceFarm     (Proxy :: Proxy ListRuns) -testListJobsResponse :: ListJobsResponse -> TestTree-testListJobsResponse = res-    "ListJobsResponse"-    "fixture/ListJobsResponse.proto"+testGetTestResponse :: GetTestResponse -> TestTree+testGetTestResponse = res+    "GetTestResponse"+    "fixture/GetTestResponse.proto"     deviceFarm-    (Proxy :: Proxy ListJobs)+    (Proxy :: Proxy GetTest)  testGetDeviceResponse :: GetDeviceResponse -> TestTree testGetDeviceResponse = res@@ -404,6 +397,13 @@     deviceFarm     (Proxy :: Proxy GetDevice) +testListJobsResponse :: ListJobsResponse -> TestTree+testListJobsResponse = res+    "ListJobsResponse"+    "fixture/ListJobsResponse.proto"+    deviceFarm+    (Proxy :: Proxy ListJobs)+ testGetJobResponse :: GetJobResponse -> TestTree testGetJobResponse = res     "GetJobResponse"@@ -467,19 +467,19 @@     deviceFarm     (Proxy :: Proxy GetProject) -testListDevicesResponse :: ListDevicesResponse -> TestTree-testListDevicesResponse = res-    "ListDevicesResponse"-    "fixture/ListDevicesResponse.proto"-    deviceFarm-    (Proxy :: Proxy ListDevices)- testListUniqueProblemsResponse :: ListUniqueProblemsResponse -> TestTree testListUniqueProblemsResponse = res     "ListUniqueProblemsResponse"     "fixture/ListUniqueProblemsResponse.proto"     deviceFarm     (Proxy :: Proxy ListUniqueProblems)++testListDevicesResponse :: ListDevicesResponse -> TestTree+testListDevicesResponse = res+    "ListDevicesResponse"+    "fixture/ListDevicesResponse.proto"+    deviceFarm+    (Proxy :: Proxy ListDevices)  testCreateProjectResponse :: CreateProjectResponse -> TestTree testCreateProjectResponse = res