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-support.cabal b/amazonka-support.cabal
--- a/amazonka-support.cabal
+++ b/amazonka-support.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-support
-version:               1.2.0.2
+version:               1.3.0
 synopsis:              Amazon Support SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -115,7 +115,7 @@
         , Network.AWS.Support.Types.Sum
 
     build-depends:
-          amazonka-core == 1.2.0.*
+          amazonka-core == 1.3.0.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-support-test
@@ -135,9 +135,9 @@
         , Test.AWS.Support.Internal
 
     build-depends:
-          amazonka-core == 1.2.0.*
-        , amazonka-test == 1.2.0.*
-        , amazonka-support == 1.2.0.*
+          amazonka-core == 1.3.0.*
+        , amazonka-test == 1.3.0.*
+        , amazonka-support == 1.3.0.*
         , base
         , bytestring
         , lens
diff --git a/gen/Network/AWS/Support.hs b/gen/Network/AWS/Support.hs
--- a/gen/Network/AWS/Support.hs
+++ b/gen/Network/AWS/Support.hs
@@ -116,12 +116,12 @@
     -- ** DescribeTrustedAdvisorCheckRefreshStatuses
     , module Network.AWS.Support.DescribeTrustedAdvisorCheckRefreshStatuses
 
-    -- ** CreateCase
-    , module Network.AWS.Support.CreateCase
-
     -- ** DescribeTrustedAdvisorCheckSummaries
     , module Network.AWS.Support.DescribeTrustedAdvisorCheckSummaries
 
+    -- ** CreateCase
+    , module Network.AWS.Support.CreateCase
+
     -- ** ResolveCase
     , module Network.AWS.Support.ResolveCase
 
@@ -175,8 +175,8 @@
     , cdDisplayId
     , cdSubmittedBy
     , cdLanguage
-    , cdCategoryCode
     , cdTimeCreated
+    , cdCategoryCode
     , cdServiceCode
 
     -- ** Category
diff --git a/gen/Network/AWS/Support/AddAttachmentsToSet.hs b/gen/Network/AWS/Support/AddAttachmentsToSet.hs
--- a/gen/Network/AWS/Support/AddAttachmentsToSet.hs
+++ b/gen/Network/AWS/Support/AddAttachmentsToSet.hs
@@ -46,7 +46,7 @@
     -- * Response Lenses
     , aatsrsExpiryTime
     , aatsrsAttachmentSetId
-    , aatsrsStatus
+    , aatsrsResponseStatus
     ) where
 
 import           Network.AWS.Prelude
@@ -129,7 +129,7 @@
 data AddAttachmentsToSetResponse = AddAttachmentsToSetResponse'
     { _aatsrsExpiryTime      :: !(Maybe Text)
     , _aatsrsAttachmentSetId :: !(Maybe Text)
-    , _aatsrsStatus          :: !Int
+    , _aatsrsResponseStatus  :: !Int
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'AddAttachmentsToSetResponse' with the minimum fields required to make a request.
@@ -140,15 +140,15 @@
 --
 -- * 'aatsrsAttachmentSetId'
 --
--- * 'aatsrsStatus'
+-- * 'aatsrsResponseStatus'
 addAttachmentsToSetResponse
-    :: Int -- ^ 'aatsrsStatus'
+    :: Int -- ^ 'aatsrsResponseStatus'
     -> AddAttachmentsToSetResponse
-addAttachmentsToSetResponse pStatus_ =
+addAttachmentsToSetResponse pResponseStatus_ =
     AddAttachmentsToSetResponse'
     { _aatsrsExpiryTime = Nothing
     , _aatsrsAttachmentSetId = Nothing
-    , _aatsrsStatus = pStatus_
+    , _aatsrsResponseStatus = pResponseStatus_
     }
 
 -- | The time and date when the attachment set expires.
@@ -163,5 +163,5 @@
 aatsrsAttachmentSetId = lens _aatsrsAttachmentSetId (\ s a -> s{_aatsrsAttachmentSetId = a});
 
 -- | The response status code.
-aatsrsStatus :: Lens' AddAttachmentsToSetResponse Int
-aatsrsStatus = lens _aatsrsStatus (\ s a -> s{_aatsrsStatus = a});
+aatsrsResponseStatus :: Lens' AddAttachmentsToSetResponse Int
+aatsrsResponseStatus = lens _aatsrsResponseStatus (\ s a -> s{_aatsrsResponseStatus = a});
diff --git a/gen/Network/AWS/Support/AddCommunicationToCase.hs b/gen/Network/AWS/Support/AddCommunicationToCase.hs
--- a/gen/Network/AWS/Support/AddCommunicationToCase.hs
+++ b/gen/Network/AWS/Support/AddCommunicationToCase.hs
@@ -46,7 +46,7 @@
     , AddCommunicationToCaseResponse
     -- * Response Lenses
     , actcrsResult
-    , actcrsStatus
+    , actcrsResponseStatus
     ) where
 
 import           Network.AWS.Prelude
@@ -147,8 +147,8 @@
 --
 -- /See:/ 'addCommunicationToCaseResponse' smart constructor.
 data AddCommunicationToCaseResponse = AddCommunicationToCaseResponse'
-    { _actcrsResult :: !(Maybe Bool)
-    , _actcrsStatus :: !Int
+    { _actcrsResult         :: !(Maybe Bool)
+    , _actcrsResponseStatus :: !Int
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'AddCommunicationToCaseResponse' with the minimum fields required to make a request.
@@ -157,14 +157,14 @@
 --
 -- * 'actcrsResult'
 --
--- * 'actcrsStatus'
+-- * 'actcrsResponseStatus'
 addCommunicationToCaseResponse
-    :: Int -- ^ 'actcrsStatus'
+    :: Int -- ^ 'actcrsResponseStatus'
     -> AddCommunicationToCaseResponse
-addCommunicationToCaseResponse pStatus_ =
+addCommunicationToCaseResponse pResponseStatus_ =
     AddCommunicationToCaseResponse'
     { _actcrsResult = Nothing
-    , _actcrsStatus = pStatus_
+    , _actcrsResponseStatus = pResponseStatus_
     }
 
 -- | True if AddCommunicationToCase succeeds. Otherwise, returns an error.
@@ -172,5 +172,5 @@
 actcrsResult = lens _actcrsResult (\ s a -> s{_actcrsResult = a});
 
 -- | The response status code.
-actcrsStatus :: Lens' AddCommunicationToCaseResponse Int
-actcrsStatus = lens _actcrsStatus (\ s a -> s{_actcrsStatus = a});
+actcrsResponseStatus :: Lens' AddCommunicationToCaseResponse Int
+actcrsResponseStatus = lens _actcrsResponseStatus (\ s a -> s{_actcrsResponseStatus = a});
diff --git a/gen/Network/AWS/Support/CreateCase.hs b/gen/Network/AWS/Support/CreateCase.hs
--- a/gen/Network/AWS/Support/CreateCase.hs
+++ b/gen/Network/AWS/Support/CreateCase.hs
@@ -84,7 +84,7 @@
     , CreateCaseResponse
     -- * Response Lenses
     , ccrsCaseId
-    , ccrsStatus
+    , ccrsResponseStatus
     ) where
 
 import           Network.AWS.Prelude
@@ -236,8 +236,8 @@
 --
 -- /See:/ 'createCaseResponse' smart constructor.
 data CreateCaseResponse = CreateCaseResponse'
-    { _ccrsCaseId :: !(Maybe Text)
-    , _ccrsStatus :: !Int
+    { _ccrsCaseId         :: !(Maybe Text)
+    , _ccrsResponseStatus :: !Int
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'CreateCaseResponse' with the minimum fields required to make a request.
@@ -246,14 +246,14 @@
 --
 -- * 'ccrsCaseId'
 --
--- * 'ccrsStatus'
+-- * 'ccrsResponseStatus'
 createCaseResponse
-    :: Int -- ^ 'ccrsStatus'
+    :: Int -- ^ 'ccrsResponseStatus'
     -> CreateCaseResponse
-createCaseResponse pStatus_ =
+createCaseResponse pResponseStatus_ =
     CreateCaseResponse'
     { _ccrsCaseId = Nothing
-    , _ccrsStatus = pStatus_
+    , _ccrsResponseStatus = pResponseStatus_
     }
 
 -- | The AWS Support case ID requested or returned in the call. The case ID
@@ -263,5 +263,5 @@
 ccrsCaseId = lens _ccrsCaseId (\ s a -> s{_ccrsCaseId = a});
 
 -- | The response status code.
-ccrsStatus :: Lens' CreateCaseResponse Int
-ccrsStatus = lens _ccrsStatus (\ s a -> s{_ccrsStatus = a});
+ccrsResponseStatus :: Lens' CreateCaseResponse Int
+ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a});
diff --git a/gen/Network/AWS/Support/DescribeAttachment.hs b/gen/Network/AWS/Support/DescribeAttachment.hs
--- a/gen/Network/AWS/Support/DescribeAttachment.hs
+++ b/gen/Network/AWS/Support/DescribeAttachment.hs
@@ -38,7 +38,7 @@
     , DescribeAttachmentResponse
     -- * Response Lenses
     , darsAttachment
-    , darsStatus
+    , darsResponseStatus
     ) where
 
 import           Network.AWS.Prelude
@@ -107,8 +107,8 @@
 --
 -- /See:/ 'describeAttachmentResponse' smart constructor.
 data DescribeAttachmentResponse = DescribeAttachmentResponse'
-    { _darsAttachment :: !(Maybe Attachment)
-    , _darsStatus     :: !Int
+    { _darsAttachment     :: !(Maybe Attachment)
+    , _darsResponseStatus :: !Int
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'DescribeAttachmentResponse' with the minimum fields required to make a request.
@@ -117,14 +117,14 @@
 --
 -- * 'darsAttachment'
 --
--- * 'darsStatus'
+-- * 'darsResponseStatus'
 describeAttachmentResponse
-    :: Int -- ^ 'darsStatus'
+    :: Int -- ^ 'darsResponseStatus'
     -> DescribeAttachmentResponse
-describeAttachmentResponse pStatus_ =
+describeAttachmentResponse pResponseStatus_ =
     DescribeAttachmentResponse'
     { _darsAttachment = Nothing
-    , _darsStatus = pStatus_
+    , _darsResponseStatus = pResponseStatus_
     }
 
 -- | The attachment content and file name.
@@ -132,5 +132,5 @@
 darsAttachment = lens _darsAttachment (\ s a -> s{_darsAttachment = a});
 
 -- | The response status code.
-darsStatus :: Lens' DescribeAttachmentResponse Int
-darsStatus = lens _darsStatus (\ s a -> s{_darsStatus = a});
+darsResponseStatus :: Lens' DescribeAttachmentResponse Int
+darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a});
diff --git a/gen/Network/AWS/Support/DescribeCases.hs b/gen/Network/AWS/Support/DescribeCases.hs
--- a/gen/Network/AWS/Support/DescribeCases.hs
+++ b/gen/Network/AWS/Support/DescribeCases.hs
@@ -46,8 +46,8 @@
     , dcIncludeResolvedCases
     , dcCaseIdList
     , dcAfterTime
-    , dcNextToken
     , dcBeforeTime
+    , dcNextToken
     , dcIncludeCommunications
     , dcDisplayId
     , dcLanguage
@@ -59,7 +59,7 @@
     -- * Response Lenses
     , drsCases
     , drsNextToken
-    , drsStatus
+    , drsResponseStatus
     ) where
 
 import           Network.AWS.Pager
@@ -74,8 +74,8 @@
     { _dcIncludeResolvedCases  :: !(Maybe Bool)
     , _dcCaseIdList            :: !(Maybe [Text])
     , _dcAfterTime             :: !(Maybe Text)
-    , _dcNextToken             :: !(Maybe Text)
     , _dcBeforeTime            :: !(Maybe Text)
+    , _dcNextToken             :: !(Maybe Text)
     , _dcIncludeCommunications :: !(Maybe Bool)
     , _dcDisplayId             :: !(Maybe Text)
     , _dcLanguage              :: !(Maybe Text)
@@ -92,10 +92,10 @@
 --
 -- * 'dcAfterTime'
 --
--- * 'dcNextToken'
---
 -- * 'dcBeforeTime'
 --
+-- * 'dcNextToken'
+--
 -- * 'dcIncludeCommunications'
 --
 -- * 'dcDisplayId'
@@ -110,8 +110,8 @@
     { _dcIncludeResolvedCases = Nothing
     , _dcCaseIdList = Nothing
     , _dcAfterTime = Nothing
-    , _dcNextToken = Nothing
     , _dcBeforeTime = Nothing
+    , _dcNextToken = Nothing
     , _dcIncludeCommunications = Nothing
     , _dcDisplayId = Nothing
     , _dcLanguage = Nothing
@@ -134,15 +134,15 @@
 dcAfterTime :: Lens' DescribeCases (Maybe Text)
 dcAfterTime = lens _dcAfterTime (\ s a -> s{_dcAfterTime = a});
 
--- | A resumption point for pagination.
-dcNextToken :: Lens' DescribeCases (Maybe Text)
-dcNextToken = lens _dcNextToken (\ s a -> s{_dcNextToken = a});
-
 -- | The end date for a filtered date search on support case communications.
 -- Case communications are available for 12 months after creation.
 dcBeforeTime :: Lens' DescribeCases (Maybe Text)
 dcBeforeTime = lens _dcBeforeTime (\ s a -> s{_dcBeforeTime = a});
 
+-- | A resumption point for pagination.
+dcNextToken :: Lens' DescribeCases (Maybe Text)
+dcNextToken = lens _dcNextToken (\ s a -> s{_dcNextToken = a});
+
 -- | Specifies whether communications should be included in the DescribeCases
 -- results. The default is /true/.
 dcIncludeCommunications :: Lens' DescribeCases (Maybe Bool)
@@ -197,8 +197,8 @@
                     _dcIncludeResolvedCases,
                   ("caseIdList" .=) <$> _dcCaseIdList,
                   ("afterTime" .=) <$> _dcAfterTime,
-                  ("nextToken" .=) <$> _dcNextToken,
                   ("beforeTime" .=) <$> _dcBeforeTime,
+                  ("nextToken" .=) <$> _dcNextToken,
                   ("includeCommunications" .=) <$>
                     _dcIncludeCommunications,
                   ("displayId" .=) <$> _dcDisplayId,
@@ -216,9 +216,9 @@
 --
 -- /See:/ 'describeCasesResponse' smart constructor.
 data DescribeCasesResponse = DescribeCasesResponse'
-    { _drsCases     :: !(Maybe [CaseDetails])
-    , _drsNextToken :: !(Maybe Text)
-    , _drsStatus    :: !Int
+    { _drsCases          :: !(Maybe [CaseDetails])
+    , _drsNextToken      :: !(Maybe Text)
+    , _drsResponseStatus :: !Int
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'DescribeCasesResponse' with the minimum fields required to make a request.
@@ -229,15 +229,15 @@
 --
 -- * 'drsNextToken'
 --
--- * 'drsStatus'
+-- * 'drsResponseStatus'
 describeCasesResponse
-    :: Int -- ^ 'drsStatus'
+    :: Int -- ^ 'drsResponseStatus'
     -> DescribeCasesResponse
-describeCasesResponse pStatus_ =
+describeCasesResponse pResponseStatus_ =
     DescribeCasesResponse'
     { _drsCases = Nothing
     , _drsNextToken = Nothing
-    , _drsStatus = pStatus_
+    , _drsResponseStatus = pResponseStatus_
     }
 
 -- | The details for the cases that match the request.
@@ -249,5 +249,5 @@
 drsNextToken = lens _drsNextToken (\ s a -> s{_drsNextToken = a});
 
 -- | The response status code.
-drsStatus :: Lens' DescribeCasesResponse Int
-drsStatus = lens _drsStatus (\ s a -> s{_drsStatus = a});
+drsResponseStatus :: Lens' DescribeCasesResponse Int
+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});
diff --git a/gen/Network/AWS/Support/DescribeCommunications.hs b/gen/Network/AWS/Support/DescribeCommunications.hs
--- a/gen/Network/AWS/Support/DescribeCommunications.hs
+++ b/gen/Network/AWS/Support/DescribeCommunications.hs
@@ -42,8 +42,8 @@
     , DescribeCommunications
     -- * Request Lenses
     , dAfterTime
-    , dNextToken
     , dBeforeTime
+    , dNextToken
     , dMaxResults
     , dCaseId
 
@@ -53,7 +53,7 @@
     -- * Response Lenses
     , dcrsNextToken
     , dcrsCommunications
-    , dcrsStatus
+    , dcrsResponseStatus
     ) where
 
 import           Network.AWS.Pager
@@ -66,8 +66,8 @@
 -- | /See:/ 'describeCommunications' smart constructor.
 data DescribeCommunications = DescribeCommunications'
     { _dAfterTime  :: !(Maybe Text)
-    , _dNextToken  :: !(Maybe Text)
     , _dBeforeTime :: !(Maybe Text)
+    , _dNextToken  :: !(Maybe Text)
     , _dMaxResults :: !(Maybe Nat)
     , _dCaseId     :: !Text
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -78,10 +78,10 @@
 --
 -- * 'dAfterTime'
 --
--- * 'dNextToken'
---
 -- * 'dBeforeTime'
 --
+-- * 'dNextToken'
+--
 -- * 'dMaxResults'
 --
 -- * 'dCaseId'
@@ -91,8 +91,8 @@
 describeCommunications pCaseId_ =
     DescribeCommunications'
     { _dAfterTime = Nothing
-    , _dNextToken = Nothing
     , _dBeforeTime = Nothing
+    , _dNextToken = Nothing
     , _dMaxResults = Nothing
     , _dCaseId = pCaseId_
     }
@@ -103,15 +103,15 @@
 dAfterTime :: Lens' DescribeCommunications (Maybe Text)
 dAfterTime = lens _dAfterTime (\ s a -> s{_dAfterTime = a});
 
--- | A resumption point for pagination.
-dNextToken :: Lens' DescribeCommunications (Maybe Text)
-dNextToken = lens _dNextToken (\ s a -> s{_dNextToken = a});
-
 -- | The end date for a filtered date search on support case communications.
 -- Case communications are available for 12 months after creation.
 dBeforeTime :: Lens' DescribeCommunications (Maybe Text)
 dBeforeTime = lens _dBeforeTime (\ s a -> s{_dBeforeTime = a});
 
+-- | A resumption point for pagination.
+dNextToken :: Lens' DescribeCommunications (Maybe Text)
+dNextToken = lens _dNextToken (\ s a -> s{_dNextToken = a});
+
 -- | The maximum number of results to return before paginating.
 dMaxResults :: Lens' DescribeCommunications (Maybe Natural)
 dMaxResults = lens _dMaxResults (\ s a -> s{_dMaxResults = a}) . mapping _Nat;
@@ -156,8 +156,8 @@
           = object
               (catMaybes
                  [("afterTime" .=) <$> _dAfterTime,
-                  ("nextToken" .=) <$> _dNextToken,
                   ("beforeTime" .=) <$> _dBeforeTime,
+                  ("nextToken" .=) <$> _dNextToken,
                   ("maxResults" .=) <$> _dMaxResults,
                   Just ("caseId" .= _dCaseId)])
 
@@ -173,7 +173,7 @@
 data DescribeCommunicationsResponse = DescribeCommunicationsResponse'
     { _dcrsNextToken      :: !(Maybe Text)
     , _dcrsCommunications :: !(Maybe [Communication])
-    , _dcrsStatus         :: !Int
+    , _dcrsResponseStatus :: !Int
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'DescribeCommunicationsResponse' with the minimum fields required to make a request.
@@ -184,15 +184,15 @@
 --
 -- * 'dcrsCommunications'
 --
--- * 'dcrsStatus'
+-- * 'dcrsResponseStatus'
 describeCommunicationsResponse
-    :: Int -- ^ 'dcrsStatus'
+    :: Int -- ^ 'dcrsResponseStatus'
     -> DescribeCommunicationsResponse
-describeCommunicationsResponse pStatus_ =
+describeCommunicationsResponse pResponseStatus_ =
     DescribeCommunicationsResponse'
     { _dcrsNextToken = Nothing
     , _dcrsCommunications = Nothing
-    , _dcrsStatus = pStatus_
+    , _dcrsResponseStatus = pResponseStatus_
     }
 
 -- | A resumption point for pagination.
@@ -204,5 +204,5 @@
 dcrsCommunications = lens _dcrsCommunications (\ s a -> s{_dcrsCommunications = a}) . _Default . _Coerce;
 
 -- | The response status code.
-dcrsStatus :: Lens' DescribeCommunicationsResponse Int
-dcrsStatus = lens _dcrsStatus (\ s a -> s{_dcrsStatus = a});
+dcrsResponseStatus :: Lens' DescribeCommunicationsResponse Int
+dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});
diff --git a/gen/Network/AWS/Support/DescribeServices.hs b/gen/Network/AWS/Support/DescribeServices.hs
--- a/gen/Network/AWS/Support/DescribeServices.hs
+++ b/gen/Network/AWS/Support/DescribeServices.hs
@@ -48,7 +48,7 @@
     , DescribeServicesResponse
     -- * Response Lenses
     , dsrsServices
-    , dsrsStatus
+    , dsrsResponseStatus
     ) where
 
 import           Network.AWS.Prelude
@@ -126,8 +126,8 @@
 --
 -- /See:/ 'describeServicesResponse' smart constructor.
 data DescribeServicesResponse = DescribeServicesResponse'
-    { _dsrsServices :: !(Maybe [SupportService])
-    , _dsrsStatus   :: !Int
+    { _dsrsServices       :: !(Maybe [SupportService])
+    , _dsrsResponseStatus :: !Int
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'DescribeServicesResponse' with the minimum fields required to make a request.
@@ -136,14 +136,14 @@
 --
 -- * 'dsrsServices'
 --
--- * 'dsrsStatus'
+-- * 'dsrsResponseStatus'
 describeServicesResponse
-    :: Int -- ^ 'dsrsStatus'
+    :: Int -- ^ 'dsrsResponseStatus'
     -> DescribeServicesResponse
-describeServicesResponse pStatus_ =
+describeServicesResponse pResponseStatus_ =
     DescribeServicesResponse'
     { _dsrsServices = Nothing
-    , _dsrsStatus = pStatus_
+    , _dsrsResponseStatus = pResponseStatus_
     }
 
 -- | A JSON-formatted list of AWS services.
@@ -151,5 +151,5 @@
 dsrsServices = lens _dsrsServices (\ s a -> s{_dsrsServices = a}) . _Default . _Coerce;
 
 -- | The response status code.
-dsrsStatus :: Lens' DescribeServicesResponse Int
-dsrsStatus = lens _dsrsStatus (\ s a -> s{_dsrsStatus = a});
+dsrsResponseStatus :: Lens' DescribeServicesResponse Int
+dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a});
diff --git a/gen/Network/AWS/Support/DescribeSeverityLevels.hs b/gen/Network/AWS/Support/DescribeSeverityLevels.hs
--- a/gen/Network/AWS/Support/DescribeSeverityLevels.hs
+++ b/gen/Network/AWS/Support/DescribeSeverityLevels.hs
@@ -36,7 +36,7 @@
     , DescribeSeverityLevelsResponse
     -- * Response Lenses
     , dslrsSeverityLevels
-    , dslrsStatus
+    , dslrsResponseStatus
     ) where
 
 import           Network.AWS.Prelude
@@ -107,7 +107,7 @@
 -- /See:/ 'describeSeverityLevelsResponse' smart constructor.
 data DescribeSeverityLevelsResponse = DescribeSeverityLevelsResponse'
     { _dslrsSeverityLevels :: !(Maybe [SeverityLevel])
-    , _dslrsStatus         :: !Int
+    , _dslrsResponseStatus :: !Int
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'DescribeSeverityLevelsResponse' with the minimum fields required to make a request.
@@ -116,14 +116,14 @@
 --
 -- * 'dslrsSeverityLevels'
 --
--- * 'dslrsStatus'
+-- * 'dslrsResponseStatus'
 describeSeverityLevelsResponse
-    :: Int -- ^ 'dslrsStatus'
+    :: Int -- ^ 'dslrsResponseStatus'
     -> DescribeSeverityLevelsResponse
-describeSeverityLevelsResponse pStatus_ =
+describeSeverityLevelsResponse pResponseStatus_ =
     DescribeSeverityLevelsResponse'
     { _dslrsSeverityLevels = Nothing
-    , _dslrsStatus = pStatus_
+    , _dslrsResponseStatus = pResponseStatus_
     }
 
 -- | The available severity levels for the support case. Available severity
@@ -132,5 +132,5 @@
 dslrsSeverityLevels = lens _dslrsSeverityLevels (\ s a -> s{_dslrsSeverityLevels = a}) . _Default . _Coerce;
 
 -- | The response status code.
-dslrsStatus :: Lens' DescribeSeverityLevelsResponse Int
-dslrsStatus = lens _dslrsStatus (\ s a -> s{_dslrsStatus = a});
+dslrsResponseStatus :: Lens' DescribeSeverityLevelsResponse Int
+dslrsResponseStatus = lens _dslrsResponseStatus (\ s a -> s{_dslrsResponseStatus = a});
diff --git a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckRefreshStatuses.hs b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckRefreshStatuses.hs
--- a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckRefreshStatuses.hs
+++ b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckRefreshStatuses.hs
@@ -35,7 +35,7 @@
     , describeTrustedAdvisorCheckRefreshStatusesResponse
     , DescribeTrustedAdvisorCheckRefreshStatusesResponse
     -- * Response Lenses
-    , dtacrsrsStatus
+    , dtacrsrsResponseStatus
     , dtacrsrsStatuses
     ) where
 
@@ -110,29 +110,29 @@
 --
 -- /See:/ 'describeTrustedAdvisorCheckRefreshStatusesResponse' smart constructor.
 data DescribeTrustedAdvisorCheckRefreshStatusesResponse = DescribeTrustedAdvisorCheckRefreshStatusesResponse'
-    { _dtacrsrsStatus   :: !Int
-    , _dtacrsrsStatuses :: ![TrustedAdvisorCheckRefreshStatus]
+    { _dtacrsrsResponseStatus :: !Int
+    , _dtacrsrsStatuses       :: ![TrustedAdvisorCheckRefreshStatus]
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'DescribeTrustedAdvisorCheckRefreshStatusesResponse' with the minimum fields required to make a request.
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'dtacrsrsStatus'
+-- * 'dtacrsrsResponseStatus'
 --
 -- * 'dtacrsrsStatuses'
 describeTrustedAdvisorCheckRefreshStatusesResponse
-    :: Int -- ^ 'dtacrsrsStatus'
+    :: Int -- ^ 'dtacrsrsResponseStatus'
     -> DescribeTrustedAdvisorCheckRefreshStatusesResponse
-describeTrustedAdvisorCheckRefreshStatusesResponse pStatus_ =
+describeTrustedAdvisorCheckRefreshStatusesResponse pResponseStatus_ =
     DescribeTrustedAdvisorCheckRefreshStatusesResponse'
-    { _dtacrsrsStatus = pStatus_
+    { _dtacrsrsResponseStatus = pResponseStatus_
     , _dtacrsrsStatuses = mempty
     }
 
 -- | The response status code.
-dtacrsrsStatus :: Lens' DescribeTrustedAdvisorCheckRefreshStatusesResponse Int
-dtacrsrsStatus = lens _dtacrsrsStatus (\ s a -> s{_dtacrsrsStatus = a});
+dtacrsrsResponseStatus :: Lens' DescribeTrustedAdvisorCheckRefreshStatusesResponse Int
+dtacrsrsResponseStatus = lens _dtacrsrsResponseStatus (\ s a -> s{_dtacrsrsResponseStatus = a});
 
 -- | The refresh status of the specified Trusted Advisor checks.
 dtacrsrsStatuses :: Lens' DescribeTrustedAdvisorCheckRefreshStatusesResponse [TrustedAdvisorCheckRefreshStatus]
diff --git a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckResult.hs b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckResult.hs
--- a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckResult.hs
+++ b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckResult.hs
@@ -51,7 +51,7 @@
     , DescribeTrustedAdvisorCheckResultResponse
     -- * Response Lenses
     , dtacrrsResult
-    , dtacrrsStatus
+    , dtacrrsResponseStatus
     ) where
 
 import           Network.AWS.Prelude
@@ -136,8 +136,8 @@
 --
 -- /See:/ 'describeTrustedAdvisorCheckResultResponse' smart constructor.
 data DescribeTrustedAdvisorCheckResultResponse = DescribeTrustedAdvisorCheckResultResponse'
-    { _dtacrrsResult :: !(Maybe TrustedAdvisorCheckResult)
-    , _dtacrrsStatus :: !Int
+    { _dtacrrsResult         :: !(Maybe TrustedAdvisorCheckResult)
+    , _dtacrrsResponseStatus :: !Int
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'DescribeTrustedAdvisorCheckResultResponse' with the minimum fields required to make a request.
@@ -146,14 +146,14 @@
 --
 -- * 'dtacrrsResult'
 --
--- * 'dtacrrsStatus'
+-- * 'dtacrrsResponseStatus'
 describeTrustedAdvisorCheckResultResponse
-    :: Int -- ^ 'dtacrrsStatus'
+    :: Int -- ^ 'dtacrrsResponseStatus'
     -> DescribeTrustedAdvisorCheckResultResponse
-describeTrustedAdvisorCheckResultResponse pStatus_ =
+describeTrustedAdvisorCheckResultResponse pResponseStatus_ =
     DescribeTrustedAdvisorCheckResultResponse'
     { _dtacrrsResult = Nothing
-    , _dtacrrsStatus = pStatus_
+    , _dtacrrsResponseStatus = pResponseStatus_
     }
 
 -- | The detailed results of the Trusted Advisor check.
@@ -161,5 +161,5 @@
 dtacrrsResult = lens _dtacrrsResult (\ s a -> s{_dtacrrsResult = a});
 
 -- | The response status code.
-dtacrrsStatus :: Lens' DescribeTrustedAdvisorCheckResultResponse Int
-dtacrrsStatus = lens _dtacrrsStatus (\ s a -> s{_dtacrrsStatus = a});
+dtacrrsResponseStatus :: Lens' DescribeTrustedAdvisorCheckResultResponse Int
+dtacrrsResponseStatus = lens _dtacrrsResponseStatus (\ s a -> s{_dtacrrsResponseStatus = a});
diff --git a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckSummaries.hs b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckSummaries.hs
--- a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckSummaries.hs
+++ b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckSummaries.hs
@@ -37,7 +37,7 @@
     , describeTrustedAdvisorCheckSummariesResponse
     , DescribeTrustedAdvisorCheckSummariesResponse
     -- * Response Lenses
-    , dtacsrsStatus
+    , dtacsrsResponseStatus
     , dtacsrsSummaries
     ) where
 
@@ -110,29 +110,29 @@
 --
 -- /See:/ 'describeTrustedAdvisorCheckSummariesResponse' smart constructor.
 data DescribeTrustedAdvisorCheckSummariesResponse = DescribeTrustedAdvisorCheckSummariesResponse'
-    { _dtacsrsStatus    :: !Int
-    , _dtacsrsSummaries :: ![TrustedAdvisorCheckSummary]
+    { _dtacsrsResponseStatus :: !Int
+    , _dtacsrsSummaries      :: ![TrustedAdvisorCheckSummary]
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'DescribeTrustedAdvisorCheckSummariesResponse' with the minimum fields required to make a request.
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'dtacsrsStatus'
+-- * 'dtacsrsResponseStatus'
 --
 -- * 'dtacsrsSummaries'
 describeTrustedAdvisorCheckSummariesResponse
-    :: Int -- ^ 'dtacsrsStatus'
+    :: Int -- ^ 'dtacsrsResponseStatus'
     -> DescribeTrustedAdvisorCheckSummariesResponse
-describeTrustedAdvisorCheckSummariesResponse pStatus_ =
+describeTrustedAdvisorCheckSummariesResponse pResponseStatus_ =
     DescribeTrustedAdvisorCheckSummariesResponse'
-    { _dtacsrsStatus = pStatus_
+    { _dtacsrsResponseStatus = pResponseStatus_
     , _dtacsrsSummaries = mempty
     }
 
 -- | The response status code.
-dtacsrsStatus :: Lens' DescribeTrustedAdvisorCheckSummariesResponse Int
-dtacsrsStatus = lens _dtacsrsStatus (\ s a -> s{_dtacsrsStatus = a});
+dtacsrsResponseStatus :: Lens' DescribeTrustedAdvisorCheckSummariesResponse Int
+dtacsrsResponseStatus = lens _dtacsrsResponseStatus (\ s a -> s{_dtacsrsResponseStatus = a});
 
 -- | The summary information for the requested Trusted Advisor checks.
 dtacsrsSummaries :: Lens' DescribeTrustedAdvisorCheckSummariesResponse [TrustedAdvisorCheckSummary]
diff --git a/gen/Network/AWS/Support/DescribeTrustedAdvisorChecks.hs b/gen/Network/AWS/Support/DescribeTrustedAdvisorChecks.hs
--- a/gen/Network/AWS/Support/DescribeTrustedAdvisorChecks.hs
+++ b/gen/Network/AWS/Support/DescribeTrustedAdvisorChecks.hs
@@ -37,7 +37,7 @@
     , describeTrustedAdvisorChecksResponse
     , DescribeTrustedAdvisorChecksResponse
     -- * Response Lenses
-    , dtacrsStatus
+    , dtacrsResponseStatus
     , dtacrsChecks
     ) where
 
@@ -109,29 +109,29 @@
 --
 -- /See:/ 'describeTrustedAdvisorChecksResponse' smart constructor.
 data DescribeTrustedAdvisorChecksResponse = DescribeTrustedAdvisorChecksResponse'
-    { _dtacrsStatus :: !Int
-    , _dtacrsChecks :: ![TrustedAdvisorCheckDescription]
+    { _dtacrsResponseStatus :: !Int
+    , _dtacrsChecks         :: ![TrustedAdvisorCheckDescription]
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'DescribeTrustedAdvisorChecksResponse' with the minimum fields required to make a request.
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'dtacrsStatus'
+-- * 'dtacrsResponseStatus'
 --
 -- * 'dtacrsChecks'
 describeTrustedAdvisorChecksResponse
-    :: Int -- ^ 'dtacrsStatus'
+    :: Int -- ^ 'dtacrsResponseStatus'
     -> DescribeTrustedAdvisorChecksResponse
-describeTrustedAdvisorChecksResponse pStatus_ =
+describeTrustedAdvisorChecksResponse pResponseStatus_ =
     DescribeTrustedAdvisorChecksResponse'
-    { _dtacrsStatus = pStatus_
+    { _dtacrsResponseStatus = pResponseStatus_
     , _dtacrsChecks = mempty
     }
 
 -- | The response status code.
-dtacrsStatus :: Lens' DescribeTrustedAdvisorChecksResponse Int
-dtacrsStatus = lens _dtacrsStatus (\ s a -> s{_dtacrsStatus = a});
+dtacrsResponseStatus :: Lens' DescribeTrustedAdvisorChecksResponse Int
+dtacrsResponseStatus = lens _dtacrsResponseStatus (\ s a -> s{_dtacrsResponseStatus = a});
 
 -- | Information about all available Trusted Advisor checks.
 dtacrsChecks :: Lens' DescribeTrustedAdvisorChecksResponse [TrustedAdvisorCheckDescription]
diff --git a/gen/Network/AWS/Support/RefreshTrustedAdvisorCheck.hs b/gen/Network/AWS/Support/RefreshTrustedAdvisorCheck.hs
--- a/gen/Network/AWS/Support/RefreshTrustedAdvisorCheck.hs
+++ b/gen/Network/AWS/Support/RefreshTrustedAdvisorCheck.hs
@@ -44,6 +44,7 @@
     , refreshTrustedAdvisorCheckResponse
     , RefreshTrustedAdvisorCheckResponse
     -- * Response Lenses
+    , rtacrsResponseStatus
     , rtacrsStatus
     ) where
 
@@ -80,10 +81,10 @@
              RefreshTrustedAdvisorCheckResponse
         request = postJSON support
         response
-          = receiveEmpty
+          = receiveJSON
               (\ s h x ->
                  RefreshTrustedAdvisorCheckResponse' <$>
-                   (pure (fromEnum s)))
+                   (pure (fromEnum s)) <*> (x .:> "status"))
 
 instance ToHeaders RefreshTrustedAdvisorCheck where
         toHeaders
@@ -109,23 +110,33 @@
 -- | The current refresh status of a Trusted Advisor check.
 --
 -- /See:/ 'refreshTrustedAdvisorCheckResponse' smart constructor.
-newtype RefreshTrustedAdvisorCheckResponse = RefreshTrustedAdvisorCheckResponse'
-    { _rtacrsStatus :: Int
+data RefreshTrustedAdvisorCheckResponse = RefreshTrustedAdvisorCheckResponse'
+    { _rtacrsResponseStatus :: !Int
+    , _rtacrsStatus         :: !TrustedAdvisorCheckRefreshStatus
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'RefreshTrustedAdvisorCheckResponse' with the minimum fields required to make a request.
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
+-- * 'rtacrsResponseStatus'
+--
 -- * 'rtacrsStatus'
 refreshTrustedAdvisorCheckResponse
-    :: Int -- ^ 'rtacrsStatus'
+    :: Int -- ^ 'rtacrsResponseStatus'
+    -> TrustedAdvisorCheckRefreshStatus -- ^ 'rtacrsStatus'
     -> RefreshTrustedAdvisorCheckResponse
-refreshTrustedAdvisorCheckResponse pStatus_ =
+refreshTrustedAdvisorCheckResponse pResponseStatus_ pStatus_ =
     RefreshTrustedAdvisorCheckResponse'
-    { _rtacrsStatus = pStatus_
+    { _rtacrsResponseStatus = pResponseStatus_
+    , _rtacrsStatus = pStatus_
     }
 
 -- | The response status code.
-rtacrsStatus :: Lens' RefreshTrustedAdvisorCheckResponse Int
+rtacrsResponseStatus :: Lens' RefreshTrustedAdvisorCheckResponse Int
+rtacrsResponseStatus = lens _rtacrsResponseStatus (\ s a -> s{_rtacrsResponseStatus = a});
+
+-- | The current refresh status for a check, including the amount of time
+-- until the check is eligible for refresh.
+rtacrsStatus :: Lens' RefreshTrustedAdvisorCheckResponse TrustedAdvisorCheckRefreshStatus
 rtacrsStatus = lens _rtacrsStatus (\ s a -> s{_rtacrsStatus = a});
diff --git a/gen/Network/AWS/Support/ResolveCase.hs b/gen/Network/AWS/Support/ResolveCase.hs
--- a/gen/Network/AWS/Support/ResolveCase.hs
+++ b/gen/Network/AWS/Support/ResolveCase.hs
@@ -36,7 +36,7 @@
     -- * Response Lenses
     , rcrsInitialCaseStatus
     , rcrsFinalCaseStatus
-    , rcrsStatus
+    , rcrsResponseStatus
     ) where
 
 import           Network.AWS.Prelude
@@ -104,7 +104,7 @@
 data ResolveCaseResponse = ResolveCaseResponse'
     { _rcrsInitialCaseStatus :: !(Maybe Text)
     , _rcrsFinalCaseStatus   :: !(Maybe Text)
-    , _rcrsStatus            :: !Int
+    , _rcrsResponseStatus    :: !Int
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'ResolveCaseResponse' with the minimum fields required to make a request.
@@ -115,15 +115,15 @@
 --
 -- * 'rcrsFinalCaseStatus'
 --
--- * 'rcrsStatus'
+-- * 'rcrsResponseStatus'
 resolveCaseResponse
-    :: Int -- ^ 'rcrsStatus'
+    :: Int -- ^ 'rcrsResponseStatus'
     -> ResolveCaseResponse
-resolveCaseResponse pStatus_ =
+resolveCaseResponse pResponseStatus_ =
     ResolveCaseResponse'
     { _rcrsInitialCaseStatus = Nothing
     , _rcrsFinalCaseStatus = Nothing
-    , _rcrsStatus = pStatus_
+    , _rcrsResponseStatus = pResponseStatus_
     }
 
 -- | The status of the case when the ResolveCase request was sent.
@@ -135,5 +135,5 @@
 rcrsFinalCaseStatus = lens _rcrsFinalCaseStatus (\ s a -> s{_rcrsFinalCaseStatus = a});
 
 -- | The response status code.
-rcrsStatus :: Lens' ResolveCaseResponse Int
-rcrsStatus = lens _rcrsStatus (\ s a -> s{_rcrsStatus = a});
+rcrsResponseStatus :: Lens' ResolveCaseResponse Int
+rcrsResponseStatus = lens _rcrsResponseStatus (\ s a -> s{_rcrsResponseStatus = a});
diff --git a/gen/Network/AWS/Support/Types.hs b/gen/Network/AWS/Support/Types.hs
--- a/gen/Network/AWS/Support/Types.hs
+++ b/gen/Network/AWS/Support/Types.hs
@@ -50,8 +50,8 @@
     , cdDisplayId
     , cdSubmittedBy
     , cdLanguage
-    , cdCategoryCode
     , cdTimeCreated
+    , cdCategoryCode
     , cdServiceCode
 
     -- * Category
diff --git a/gen/Network/AWS/Support/Types/Product.hs b/gen/Network/AWS/Support/Types/Product.hs
--- a/gen/Network/AWS/Support/Types/Product.hs
+++ b/gen/Network/AWS/Support/Types/Product.hs
@@ -153,8 +153,8 @@
     , _cdDisplayId            :: !(Maybe Text)
     , _cdSubmittedBy          :: !(Maybe Text)
     , _cdLanguage             :: !(Maybe Text)
-    , _cdCategoryCode         :: !(Maybe Text)
     , _cdTimeCreated          :: !(Maybe Text)
+    , _cdCategoryCode         :: !(Maybe Text)
     , _cdServiceCode          :: !(Maybe Text)
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
@@ -180,10 +180,10 @@
 --
 -- * 'cdLanguage'
 --
--- * 'cdCategoryCode'
---
 -- * 'cdTimeCreated'
 --
+-- * 'cdCategoryCode'
+--
 -- * 'cdServiceCode'
 caseDetails
     :: CaseDetails
@@ -198,8 +198,8 @@
     , _cdDisplayId = Nothing
     , _cdSubmittedBy = Nothing
     , _cdLanguage = Nothing
-    , _cdCategoryCode = Nothing
     , _cdTimeCreated = Nothing
+    , _cdCategoryCode = Nothing
     , _cdServiceCode = Nothing
     }
 
@@ -249,14 +249,14 @@
 cdLanguage :: Lens' CaseDetails (Maybe Text)
 cdLanguage = lens _cdLanguage (\ s a -> s{_cdLanguage = a});
 
--- | The category of problem for the AWS Support case.
-cdCategoryCode :: Lens' CaseDetails (Maybe Text)
-cdCategoryCode = lens _cdCategoryCode (\ s a -> s{_cdCategoryCode = a});
-
 -- | The time that the case was case created in the AWS Support Center.
 cdTimeCreated :: Lens' CaseDetails (Maybe Text)
 cdTimeCreated = lens _cdTimeCreated (\ s a -> s{_cdTimeCreated = a});
 
+-- | The category of problem for the AWS Support case.
+cdCategoryCode :: Lens' CaseDetails (Maybe Text)
+cdCategoryCode = lens _cdCategoryCode (\ s a -> s{_cdCategoryCode = a});
+
 -- | The code for the AWS service returned by the call to DescribeServices.
 cdServiceCode :: Lens' CaseDetails (Maybe Text)
 cdServiceCode = lens _cdServiceCode (\ s a -> s{_cdServiceCode = a});
@@ -274,8 +274,8 @@
                      <*> (x .:? "displayId")
                      <*> (x .:? "submittedBy")
                      <*> (x .:? "language")
-                     <*> (x .:? "categoryCode")
                      <*> (x .:? "timeCreated")
+                     <*> (x .:? "categoryCode")
                      <*> (x .:? "serviceCode"))
 
 -- | A JSON-formatted name\/value pair that represents the category name and
diff --git a/test/Test/AWS/Gen/Support.hs b/test/Test/AWS/Gen/Support.hs
--- a/test/Test/AWS/Gen/Support.hs
+++ b/test/Test/AWS/Gen/Support.hs
@@ -37,12 +37,12 @@
 --         , testDescribeTrustedAdvisorCheckRefreshStatuses $
 --             describeTrustedAdvisorCheckRefreshStatuses
 --
---         , testCreateCase $
---             createCase
---
 --         , testDescribeTrustedAdvisorCheckSummaries $
 --             describeTrustedAdvisorCheckSummaries
 --
+--         , testCreateCase $
+--             createCase
+--
 --         , testResolveCase $
 --             resolveCase
 --
@@ -82,12 +82,12 @@
 --         , testDescribeTrustedAdvisorCheckRefreshStatusesResponse $
 --             describeTrustedAdvisorCheckRefreshStatusesResponse
 --
---         , testCreateCaseResponse $
---             createCaseResponse
---
 --         , testDescribeTrustedAdvisorCheckSummariesResponse $
 --             describeTrustedAdvisorCheckSummariesResponse
 --
+--         , testCreateCaseResponse $
+--             createCaseResponse
+--
 --         , testResolveCaseResponse $
 --             resolveCaseResponse
 --
@@ -135,16 +135,16 @@
     "DescribeTrustedAdvisorCheckRefreshStatuses"
     "fixture/DescribeTrustedAdvisorCheckRefreshStatuses.yaml"
 
-testCreateCase :: CreateCase -> TestTree
-testCreateCase = req
-    "CreateCase"
-    "fixture/CreateCase.yaml"
-
 testDescribeTrustedAdvisorCheckSummaries :: DescribeTrustedAdvisorCheckSummaries -> TestTree
 testDescribeTrustedAdvisorCheckSummaries = req
     "DescribeTrustedAdvisorCheckSummaries"
     "fixture/DescribeTrustedAdvisorCheckSummaries.yaml"
 
+testCreateCase :: CreateCase -> TestTree
+testCreateCase = req
+    "CreateCase"
+    "fixture/CreateCase.yaml"
+
 testResolveCase :: ResolveCase -> TestTree
 testResolveCase = req
     "ResolveCase"
@@ -213,19 +213,19 @@
     support
     (Proxy :: Proxy DescribeTrustedAdvisorCheckRefreshStatuses)
 
-testCreateCaseResponse :: CreateCaseResponse -> TestTree
-testCreateCaseResponse = res
-    "CreateCaseResponse"
-    "fixture/CreateCaseResponse.proto"
-    support
-    (Proxy :: Proxy CreateCase)
-
 testDescribeTrustedAdvisorCheckSummariesResponse :: DescribeTrustedAdvisorCheckSummariesResponse -> TestTree
 testDescribeTrustedAdvisorCheckSummariesResponse = res
     "DescribeTrustedAdvisorCheckSummariesResponse"
     "fixture/DescribeTrustedAdvisorCheckSummariesResponse.proto"
     support
     (Proxy :: Proxy DescribeTrustedAdvisorCheckSummaries)
+
+testCreateCaseResponse :: CreateCaseResponse -> TestTree
+testCreateCaseResponse = res
+    "CreateCaseResponse"
+    "fixture/CreateCaseResponse.proto"
+    support
+    (Proxy :: Proxy CreateCase)
 
 testResolveCaseResponse :: ResolveCaseResponse -> TestTree
 testResolveCaseResponse = res