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:               0.0.6
+version:               0.0.7
 synopsis:              Amazon Support SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -60,5 +60,5 @@
     other-modules:
 
     build-depends:
-          amazonka-core == 0.0.6.*
+          amazonka-core == 0.0.7.*
         , base          >= 4.7     && < 5
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
@@ -215,7 +215,7 @@
 
 instance FromJSON DescribeCasesResponse where
     parseJSON = withObject "DescribeCasesResponse" $ \o -> DescribeCasesResponse
-        <$> o .:  "cases"
+        <$> o .:? "cases" .!= mempty
         <*> o .:? "nextToken"
 
 instance AWSPager DescribeCases where
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
@@ -172,7 +172,7 @@
 
 instance FromJSON DescribeCommunicationsResponse where
     parseJSON = withObject "DescribeCommunicationsResponse" $ \o -> DescribeCommunicationsResponse
-        <$> o .:  "communications"
+        <$> o .:? "communications" .!= mempty
         <*> o .:? "nextToken"
 
 instance AWSPager DescribeCommunications where
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
@@ -135,4 +135,4 @@
 
 instance FromJSON DescribeServicesResponse where
     parseJSON = withObject "DescribeServicesResponse" $ \o -> DescribeServicesResponse
-        <$> o .:  "services"
+        <$> o .:? "services" .!= mempty
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
@@ -120,4 +120,4 @@
 
 instance FromJSON DescribeSeverityLevelsResponse where
     parseJSON = withObject "DescribeSeverityLevelsResponse" $ \o -> DescribeSeverityLevelsResponse
-        <$> o .:  "severityLevels"
+        <$> o .:? "severityLevels" .!= mempty
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
@@ -120,4 +120,4 @@
 
 instance FromJSON DescribeTrustedAdvisorCheckRefreshStatusesResponse where
     parseJSON = withObject "DescribeTrustedAdvisorCheckRefreshStatusesResponse" $ \o -> DescribeTrustedAdvisorCheckRefreshStatusesResponse
-        <$> o .:  "statuses"
+        <$> o .:? "statuses" .!= mempty
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
@@ -122,4 +122,4 @@
 
 instance FromJSON DescribeTrustedAdvisorCheckSummariesResponse where
     parseJSON = withObject "DescribeTrustedAdvisorCheckSummariesResponse" $ \o -> DescribeTrustedAdvisorCheckSummariesResponse
-        <$> o .:  "summaries"
+        <$> o .:? "summaries" .!= mempty
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
@@ -119,4 +119,4 @@
 
 instance FromJSON DescribeTrustedAdvisorChecksResponse where
     parseJSON = withObject "DescribeTrustedAdvisorChecksResponse" $ \o -> DescribeTrustedAdvisorChecksResponse
-        <$> o .:  "checks"
+        <$> o .:? "checks" .!= mempty
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
@@ -332,7 +332,7 @@
 
 instance FromJSON Communication where
     parseJSON = withObject "Communication" $ \o -> Communication
-        <$> o .:  "attachmentSet"
+        <$> o .:? "attachmentSet" .!= mempty
         <*> o .:? "body"
         <*> o .:? "caseId"
         <*> o .:? "submittedBy"
@@ -585,7 +585,7 @@
     parseJSON = withObject "TrustedAdvisorCheckResult" $ \o -> TrustedAdvisorCheckResult
         <$> o .:  "categorySpecificSummary"
         <*> o .:  "checkId"
-        <*> o .:  "flaggedResources"
+        <*> o .:? "flaggedResources" .!= mempty
         <*> o .:  "resourcesSummary"
         <*> o .:  "status"
         <*> o .:  "timestamp"
@@ -665,7 +665,7 @@
         <$> o .:  "category"
         <*> o .:  "description"
         <*> o .:  "id"
-        <*> o .:  "metadata"
+        <*> o .:? "metadata" .!= mempty
         <*> o .:  "name"
 
 instance ToJSON TrustedAdvisorCheckDescription where
@@ -746,7 +746,7 @@
 
 instance FromJSON RecentCaseCommunications where
     parseJSON = withObject "RecentCaseCommunications" $ \o -> RecentCaseCommunications
-        <$> o .:  "communications"
+        <$> o .:? "communications" .!= mempty
         <*> o .:? "nextToken"
 
 instance ToJSON RecentCaseCommunications where
@@ -795,7 +795,7 @@
 
 instance FromJSON SupportService where
     parseJSON = withObject "SupportService" $ \o -> SupportService
-        <$> o .:  "categories"
+        <$> o .:? "categories" .!= mempty
         <*> o .:? "code"
         <*> o .:? "name"
 
@@ -868,7 +868,7 @@
 instance FromJSON TrustedAdvisorResourceDetail where
     parseJSON = withObject "TrustedAdvisorResourceDetail" $ \o -> TrustedAdvisorResourceDetail
         <$> o .:? "isSuppressed"
-        <*> o .:  "metadata"
+        <*> o .:? "metadata" .!= mempty
         <*> o .:  "region"
         <*> o .:  "resourceId"
         <*> o .:  "status"
@@ -1087,7 +1087,7 @@
     parseJSON = withObject "CaseDetails" $ \o -> CaseDetails
         <$> o .:? "caseId"
         <*> o .:? "categoryCode"
-        <*> o .:  "ccEmailAddresses"
+        <*> o .:? "ccEmailAddresses" .!= mempty
         <*> o .:? "displayId"
         <*> o .:? "language"
         <*> o .:? "recentCommunications"