diff --git a/amazonka-swf.cabal b/amazonka-swf.cabal
--- a/amazonka-swf.cabal
+++ b/amazonka-swf.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-swf
-version:               0.0.6
+version:               0.0.7
 synopsis:              Amazon Simple Workflow Service SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -77,5 +77,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/SWF/GetWorkflowExecutionHistory.hs b/gen/Network/AWS/SWF/GetWorkflowExecutionHistory.hs
--- a/gen/Network/AWS/SWF/GetWorkflowExecutionHistory.hs
+++ b/gen/Network/AWS/SWF/GetWorkflowExecutionHistory.hs
@@ -188,7 +188,7 @@
 
 instance FromJSON GetWorkflowExecutionHistoryResponse where
     parseJSON = withObject "GetWorkflowExecutionHistoryResponse" $ \o -> GetWorkflowExecutionHistoryResponse
-        <$> o .:  "events"
+        <$> o .:? "events" .!= mempty
         <*> o .:? "nextPageToken"
 
 instance AWSPager GetWorkflowExecutionHistory where
diff --git a/gen/Network/AWS/SWF/ListActivityTypes.hs b/gen/Network/AWS/SWF/ListActivityTypes.hs
--- a/gen/Network/AWS/SWF/ListActivityTypes.hs
+++ b/gen/Network/AWS/SWF/ListActivityTypes.hs
@@ -200,7 +200,7 @@
 instance FromJSON ListActivityTypesResponse where
     parseJSON = withObject "ListActivityTypesResponse" $ \o -> ListActivityTypesResponse
         <$> o .:? "nextPageToken"
-        <*> o .:  "typeInfos"
+        <*> o .:? "typeInfos" .!= mempty
 
 instance AWSPager ListActivityTypes where
     page rq rs
diff --git a/gen/Network/AWS/SWF/ListClosedWorkflowExecutions.hs b/gen/Network/AWS/SWF/ListClosedWorkflowExecutions.hs
--- a/gen/Network/AWS/SWF/ListClosedWorkflowExecutions.hs
+++ b/gen/Network/AWS/SWF/ListClosedWorkflowExecutions.hs
@@ -252,7 +252,7 @@
 
 instance FromJSON ListClosedWorkflowExecutionsResponse where
     parseJSON = withObject "ListClosedWorkflowExecutionsResponse" $ \o -> ListClosedWorkflowExecutionsResponse
-        <$> o .:  "executionInfos"
+        <$> o .:? "executionInfos" .!= mempty
         <*> o .:? "nextPageToken"
 
 instance AWSPager ListClosedWorkflowExecutions where
diff --git a/gen/Network/AWS/SWF/ListDomains.hs b/gen/Network/AWS/SWF/ListDomains.hs
--- a/gen/Network/AWS/SWF/ListDomains.hs
+++ b/gen/Network/AWS/SWF/ListDomains.hs
@@ -175,7 +175,7 @@
 
 instance FromJSON ListDomainsResponse where
     parseJSON = withObject "ListDomainsResponse" $ \o -> ListDomainsResponse
-        <$> o .:  "domainInfos"
+        <$> o .:? "domainInfos" .!= mempty
         <*> o .:? "nextPageToken"
 
 instance AWSPager ListDomains where
diff --git a/gen/Network/AWS/SWF/ListOpenWorkflowExecutions.hs b/gen/Network/AWS/SWF/ListOpenWorkflowExecutions.hs
--- a/gen/Network/AWS/SWF/ListOpenWorkflowExecutions.hs
+++ b/gen/Network/AWS/SWF/ListOpenWorkflowExecutions.hs
@@ -223,7 +223,7 @@
 
 instance FromJSON ListOpenWorkflowExecutionsResponse where
     parseJSON = withObject "ListOpenWorkflowExecutionsResponse" $ \o -> ListOpenWorkflowExecutionsResponse
-        <$> o .:  "executionInfos"
+        <$> o .:? "executionInfos" .!= mempty
         <*> o .:? "nextPageToken"
 
 instance AWSPager ListOpenWorkflowExecutions where
diff --git a/gen/Network/AWS/SWF/ListWorkflowTypes.hs b/gen/Network/AWS/SWF/ListWorkflowTypes.hs
--- a/gen/Network/AWS/SWF/ListWorkflowTypes.hs
+++ b/gen/Network/AWS/SWF/ListWorkflowTypes.hs
@@ -199,7 +199,7 @@
 instance FromJSON ListWorkflowTypesResponse where
     parseJSON = withObject "ListWorkflowTypesResponse" $ \o -> ListWorkflowTypesResponse
         <$> o .:? "nextPageToken"
-        <*> o .:  "typeInfos"
+        <*> o .:? "typeInfos" .!= mempty
 
 instance AWSPager ListWorkflowTypes where
     page rq rs
diff --git a/gen/Network/AWS/SWF/PollForDecisionTask.hs b/gen/Network/AWS/SWF/PollForDecisionTask.hs
--- a/gen/Network/AWS/SWF/PollForDecisionTask.hs
+++ b/gen/Network/AWS/SWF/PollForDecisionTask.hs
@@ -280,7 +280,7 @@
 
 instance FromJSON PollForDecisionTaskResponse where
     parseJSON = withObject "PollForDecisionTaskResponse" $ \o -> PollForDecisionTaskResponse
-        <$> o .:  "events"
+        <$> o .:? "events" .!= mempty
         <*> o .:? "nextPageToken"
         <*> o .:? "previousStartedEventId"
         <*> o .:  "startedEventId"
diff --git a/gen/Network/AWS/SWF/Types.hs b/gen/Network/AWS/SWF/Types.hs
--- a/gen/Network/AWS/SWF/Types.hs
+++ b/gen/Network/AWS/SWF/Types.hs
@@ -2875,7 +2875,7 @@
         <*> o .:? "input"
         <*> o .:? "parentInitiatedEventId"
         <*> o .:? "parentWorkflowExecution"
-        <*> o .:  "tagList"
+        <*> o .:? "tagList" .!= mempty
         <*> o .:  "taskList"
         <*> o .:? "taskStartToCloseTimeout"
         <*> o .:  "workflowType"
@@ -3587,7 +3587,7 @@
 
 instance FromJSON WorkflowExecutionInfos where
     parseJSON = withObject "WorkflowExecutionInfos" $ \o -> WorkflowExecutionInfos
-        <$> o .:  "executionInfos"
+        <$> o .:? "executionInfos" .!= mempty
         <*> o .:? "nextPageToken"
 
 instance ToJSON WorkflowExecutionInfos where
@@ -3728,7 +3728,7 @@
         <*> o .:? "control"
         <*> o .:? "executionStartToCloseTimeout"
         <*> o .:? "input"
-        <*> o .:  "tagList"
+        <*> o .:? "tagList" .!= mempty
         <*> o .:? "taskList"
         <*> o .:? "taskStartToCloseTimeout"
         <*> o .:  "workflowId"
@@ -4418,7 +4418,7 @@
         <*> o .:  "decisionTaskCompletedEventId"
         <*> o .:? "executionStartToCloseTimeout"
         <*> o .:? "input"
-        <*> o .:  "tagList"
+        <*> o .:? "tagList" .!= mempty
         <*> o .:  "taskList"
         <*> o .:? "taskStartToCloseTimeout"
         <*> o .:  "workflowId"
@@ -4835,7 +4835,7 @@
         <*> o .:  "executionStatus"
         <*> o .:? "parent"
         <*> o .:  "startTimestamp"
-        <*> o .:  "tagList"
+        <*> o .:? "tagList" .!= mempty
         <*> o .:  "workflowType"
 
 instance ToJSON WorkflowExecutionInfo where
@@ -7575,7 +7575,7 @@
         <$> o .:? "childPolicy"
         <*> o .:? "executionStartToCloseTimeout"
         <*> o .:? "input"
-        <*> o .:  "tagList"
+        <*> o .:? "tagList" .!= mempty
         <*> o .:? "taskList"
         <*> o .:? "taskStartToCloseTimeout"
         <*> o .:? "workflowTypeVersion"
@@ -7802,7 +7802,7 @@
         <*> o .:? "executionStartToCloseTimeout"
         <*> o .:? "input"
         <*> o .:  "newExecutionRunId"
-        <*> o .:  "tagList"
+        <*> o .:? "tagList" .!= mempty
         <*> o .:  "taskList"
         <*> o .:? "taskStartToCloseTimeout"
         <*> o .:  "workflowType"