diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
 
 ## Version
 
-`1.2.0.2`
+`1.3.0`
 
 
 ## Description
diff --git a/amazonka-devicefarm.cabal b/amazonka-devicefarm.cabal
--- a/amazonka-devicefarm.cabal
+++ b/amazonka-devicefarm.cabal
@@ -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
diff --git a/gen/Network/AWS/DeviceFarm.hs b/gen/Network/AWS/DeviceFarm.hs
--- a/gen/Network/AWS/DeviceFarm.hs
+++ b/gen/Network/AWS/DeviceFarm.hs
@@ -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
diff --git a/gen/Network/AWS/DeviceFarm/CreateDevicePool.hs b/gen/Network/AWS/DeviceFarm/CreateDevicePool.hs
--- a/gen/Network/AWS/DeviceFarm/CreateDevicePool.hs
+++ b/gen/Network/AWS/DeviceFarm/CreateDevicePool.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/CreateProject.hs b/gen/Network/AWS/DeviceFarm/CreateProject.hs
--- a/gen/Network/AWS/DeviceFarm/CreateProject.hs
+++ b/gen/Network/AWS/DeviceFarm/CreateProject.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/CreateUpload.hs b/gen/Network/AWS/DeviceFarm/CreateUpload.hs
--- a/gen/Network/AWS/DeviceFarm/CreateUpload.hs
+++ b/gen/Network/AWS/DeviceFarm/CreateUpload.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/GetAccountSettings.hs b/gen/Network/AWS/DeviceFarm/GetAccountSettings.hs
--- a/gen/Network/AWS/DeviceFarm/GetAccountSettings.hs
+++ b/gen/Network/AWS/DeviceFarm/GetAccountSettings.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/GetDevice.hs b/gen/Network/AWS/DeviceFarm/GetDevice.hs
--- a/gen/Network/AWS/DeviceFarm/GetDevice.hs
+++ b/gen/Network/AWS/DeviceFarm/GetDevice.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/GetDevicePool.hs b/gen/Network/AWS/DeviceFarm/GetDevicePool.hs
--- a/gen/Network/AWS/DeviceFarm/GetDevicePool.hs
+++ b/gen/Network/AWS/DeviceFarm/GetDevicePool.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/GetDevicePoolCompatibility.hs b/gen/Network/AWS/DeviceFarm/GetDevicePoolCompatibility.hs
--- a/gen/Network/AWS/DeviceFarm/GetDevicePoolCompatibility.hs
+++ b/gen/Network/AWS/DeviceFarm/GetDevicePoolCompatibility.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/GetJob.hs b/gen/Network/AWS/DeviceFarm/GetJob.hs
--- a/gen/Network/AWS/DeviceFarm/GetJob.hs
+++ b/gen/Network/AWS/DeviceFarm/GetJob.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/GetProject.hs b/gen/Network/AWS/DeviceFarm/GetProject.hs
--- a/gen/Network/AWS/DeviceFarm/GetProject.hs
+++ b/gen/Network/AWS/DeviceFarm/GetProject.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/GetRun.hs b/gen/Network/AWS/DeviceFarm/GetRun.hs
--- a/gen/Network/AWS/DeviceFarm/GetRun.hs
+++ b/gen/Network/AWS/DeviceFarm/GetRun.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/GetSuite.hs b/gen/Network/AWS/DeviceFarm/GetSuite.hs
--- a/gen/Network/AWS/DeviceFarm/GetSuite.hs
+++ b/gen/Network/AWS/DeviceFarm/GetSuite.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/GetTest.hs b/gen/Network/AWS/DeviceFarm/GetTest.hs
--- a/gen/Network/AWS/DeviceFarm/GetTest.hs
+++ b/gen/Network/AWS/DeviceFarm/GetTest.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/GetUpload.hs b/gen/Network/AWS/DeviceFarm/GetUpload.hs
--- a/gen/Network/AWS/DeviceFarm/GetUpload.hs
+++ b/gen/Network/AWS/DeviceFarm/GetUpload.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/ListArtifacts.hs b/gen/Network/AWS/DeviceFarm/ListArtifacts.hs
--- a/gen/Network/AWS/DeviceFarm/ListArtifacts.hs
+++ b/gen/Network/AWS/DeviceFarm/ListArtifacts.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/ListDevicePools.hs b/gen/Network/AWS/DeviceFarm/ListDevicePools.hs
--- a/gen/Network/AWS/DeviceFarm/ListDevicePools.hs
+++ b/gen/Network/AWS/DeviceFarm/ListDevicePools.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/ListDevices.hs b/gen/Network/AWS/DeviceFarm/ListDevices.hs
--- a/gen/Network/AWS/DeviceFarm/ListDevices.hs
+++ b/gen/Network/AWS/DeviceFarm/ListDevices.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/ListJobs.hs b/gen/Network/AWS/DeviceFarm/ListJobs.hs
--- a/gen/Network/AWS/DeviceFarm/ListJobs.hs
+++ b/gen/Network/AWS/DeviceFarm/ListJobs.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/ListProjects.hs b/gen/Network/AWS/DeviceFarm/ListProjects.hs
--- a/gen/Network/AWS/DeviceFarm/ListProjects.hs
+++ b/gen/Network/AWS/DeviceFarm/ListProjects.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/ListRuns.hs b/gen/Network/AWS/DeviceFarm/ListRuns.hs
--- a/gen/Network/AWS/DeviceFarm/ListRuns.hs
+++ b/gen/Network/AWS/DeviceFarm/ListRuns.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/ListSamples.hs b/gen/Network/AWS/DeviceFarm/ListSamples.hs
--- a/gen/Network/AWS/DeviceFarm/ListSamples.hs
+++ b/gen/Network/AWS/DeviceFarm/ListSamples.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/ListSuites.hs b/gen/Network/AWS/DeviceFarm/ListSuites.hs
--- a/gen/Network/AWS/DeviceFarm/ListSuites.hs
+++ b/gen/Network/AWS/DeviceFarm/ListSuites.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/ListTests.hs b/gen/Network/AWS/DeviceFarm/ListTests.hs
--- a/gen/Network/AWS/DeviceFarm/ListTests.hs
+++ b/gen/Network/AWS/DeviceFarm/ListTests.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/ListUniqueProblems.hs b/gen/Network/AWS/DeviceFarm/ListUniqueProblems.hs
--- a/gen/Network/AWS/DeviceFarm/ListUniqueProblems.hs
+++ b/gen/Network/AWS/DeviceFarm/ListUniqueProblems.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/ListUploads.hs b/gen/Network/AWS/DeviceFarm/ListUploads.hs
--- a/gen/Network/AWS/DeviceFarm/ListUploads.hs
+++ b/gen/Network/AWS/DeviceFarm/ListUploads.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/ScheduleRun.hs b/gen/Network/AWS/DeviceFarm/ScheduleRun.hs
--- a/gen/Network/AWS/DeviceFarm/ScheduleRun.hs
+++ b/gen/Network/AWS/DeviceFarm/ScheduleRun.hs
@@ -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});
diff --git a/gen/Network/AWS/DeviceFarm/Types.hs b/gen/Network/AWS/DeviceFarm/Types.hs
--- a/gen/Network/AWS/DeviceFarm/Types.hs
+++ b/gen/Network/AWS/DeviceFarm/Types.hs
@@ -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
diff --git a/gen/Network/AWS/DeviceFarm/Types/Product.hs b/gen/Network/AWS/DeviceFarm/Types/Product.hs
--- a/gen/Network/AWS/DeviceFarm/Types/Product.hs
+++ b/gen/Network/AWS/DeviceFarm/Types/Product.hs
@@ -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
diff --git a/test/Test/AWS/Gen/DeviceFarm.hs b/test/Test/AWS/Gen/DeviceFarm.hs
--- a/test/Test/AWS/Gen/DeviceFarm.hs
+++ b/test/Test/AWS/Gen/DeviceFarm.hs
@@ -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