diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
 
 ## Version
 
-`1.4.0`
+`1.4.1`
 
 
 ## Description
diff --git a/amazonka-codecommit.cabal b/amazonka-codecommit.cabal
--- a/amazonka-codecommit.cabal
+++ b/amazonka-codecommit.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-codecommit
-version:               1.4.0
+version:               1.4.1
 synopsis:              Amazon CodeCommit SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -107,7 +107,7 @@
         , Network.AWS.CodeCommit.Types.Sum
 
     build-depends:
-          amazonka-core == 1.4.0.*
+          amazonka-core == 1.4.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-codecommit-test
@@ -127,9 +127,9 @@
         , Test.AWS.CodeCommit.Internal
 
     build-depends:
-          amazonka-core == 1.4.0.*
-        , amazonka-test == 1.4.0.*
-        , amazonka-codecommit == 1.4.0.*
+          amazonka-core == 1.4.1.*
+        , amazonka-test == 1.4.1.*
+        , amazonka-codecommit == 1.4.1.*
         , base
         , bytestring
         , tasty
diff --git a/gen/Network/AWS/CodeCommit.hs b/gen/Network/AWS/CodeCommit.hs
--- a/gen/Network/AWS/CodeCommit.hs
+++ b/gen/Network/AWS/CodeCommit.hs
@@ -195,10 +195,10 @@
     -- ** CreateBranch
     , module Network.AWS.CodeCommit.CreateBranch
 
-    -- ** ListBranches
+    -- ** ListBranches (Paginated)
     , module Network.AWS.CodeCommit.ListBranches
 
-    -- ** ListRepositories
+    -- ** ListRepositories (Paginated)
     , module Network.AWS.CodeCommit.ListRepositories
 
     -- ** CreateRepository
diff --git a/gen/Network/AWS/CodeCommit/BatchGetRepositories.hs b/gen/Network/AWS/CodeCommit/BatchGetRepositories.hs
--- a/gen/Network/AWS/CodeCommit/BatchGetRepositories.hs
+++ b/gen/Network/AWS/CodeCommit/BatchGetRepositories.hs
@@ -87,6 +87,8 @@
 
 instance Hashable BatchGetRepositories
 
+instance NFData BatchGetRepositories
+
 instance ToHeaders BatchGetRepositories where
         toHeaders
           = const
@@ -149,3 +151,5 @@
 -- | The response status code.
 bgrrsResponseStatus :: Lens' BatchGetRepositoriesResponse Int
 bgrrsResponseStatus = lens _bgrrsResponseStatus (\ s a -> s{_bgrrsResponseStatus = a});
+
+instance NFData BatchGetRepositoriesResponse
diff --git a/gen/Network/AWS/CodeCommit/CreateBranch.hs b/gen/Network/AWS/CodeCommit/CreateBranch.hs
--- a/gen/Network/AWS/CodeCommit/CreateBranch.hs
+++ b/gen/Network/AWS/CodeCommit/CreateBranch.hs
@@ -93,6 +93,8 @@
 
 instance Hashable CreateBranch
 
+instance NFData CreateBranch
+
 instance ToHeaders CreateBranch where
         toHeaders
           = const
@@ -126,3 +128,5 @@
 createBranchResponse
     :: CreateBranchResponse
 createBranchResponse = CreateBranchResponse'
+
+instance NFData CreateBranchResponse
diff --git a/gen/Network/AWS/CodeCommit/CreateRepository.hs b/gen/Network/AWS/CodeCommit/CreateRepository.hs
--- a/gen/Network/AWS/CodeCommit/CreateRepository.hs
+++ b/gen/Network/AWS/CodeCommit/CreateRepository.hs
@@ -100,6 +100,8 @@
 
 instance Hashable CreateRepository
 
+instance NFData CreateRepository
+
 instance ToHeaders CreateRepository where
         toHeaders
           = const
@@ -155,3 +157,5 @@
 -- | The response status code.
 crrsResponseStatus :: Lens' CreateRepositoryResponse Int
 crrsResponseStatus = lens _crrsResponseStatus (\ s a -> s{_crrsResponseStatus = a});
+
+instance NFData CreateRepositoryResponse
diff --git a/gen/Network/AWS/CodeCommit/DeleteRepository.hs b/gen/Network/AWS/CodeCommit/DeleteRepository.hs
--- a/gen/Network/AWS/CodeCommit/DeleteRepository.hs
+++ b/gen/Network/AWS/CodeCommit/DeleteRepository.hs
@@ -82,6 +82,8 @@
 
 instance Hashable DeleteRepository
 
+instance NFData DeleteRepository
+
 instance ToHeaders DeleteRepository where
         toHeaders
           = const
@@ -135,3 +137,5 @@
 -- | The response status code.
 drrsResponseStatus :: Lens' DeleteRepositoryResponse Int
 drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a});
+
+instance NFData DeleteRepositoryResponse
diff --git a/gen/Network/AWS/CodeCommit/GetBranch.hs b/gen/Network/AWS/CodeCommit/GetBranch.hs
--- a/gen/Network/AWS/CodeCommit/GetBranch.hs
+++ b/gen/Network/AWS/CodeCommit/GetBranch.hs
@@ -87,6 +87,8 @@
 
 instance Hashable GetBranch
 
+instance NFData GetBranch
+
 instance ToHeaders GetBranch where
         toHeaders
           = const
@@ -140,3 +142,5 @@
 -- | The response status code.
 gbrsResponseStatus :: Lens' GetBranchResponse Int
 gbrsResponseStatus = lens _gbrsResponseStatus (\ s a -> s{_gbrsResponseStatus = a});
+
+instance NFData GetBranchResponse
diff --git a/gen/Network/AWS/CodeCommit/GetCommit.hs b/gen/Network/AWS/CodeCommit/GetCommit.hs
--- a/gen/Network/AWS/CodeCommit/GetCommit.hs
+++ b/gen/Network/AWS/CodeCommit/GetCommit.hs
@@ -88,6 +88,8 @@
 
 instance Hashable GetCommit
 
+instance NFData GetCommit
+
 instance ToHeaders GetCommit where
         toHeaders
           = const
@@ -142,3 +144,5 @@
 -- | Information about the specified commit.
 gcrsCommit :: Lens' GetCommitResponse Commit
 gcrsCommit = lens _gcrsCommit (\ s a -> s{_gcrsCommit = a});
+
+instance NFData GetCommitResponse
diff --git a/gen/Network/AWS/CodeCommit/GetRepository.hs b/gen/Network/AWS/CodeCommit/GetRepository.hs
--- a/gen/Network/AWS/CodeCommit/GetRepository.hs
+++ b/gen/Network/AWS/CodeCommit/GetRepository.hs
@@ -84,6 +84,8 @@
 
 instance Hashable GetRepository
 
+instance NFData GetRepository
+
 instance ToHeaders GetRepository where
         toHeaders
           = const
@@ -136,3 +138,5 @@
 -- | The response status code.
 grrsResponseStatus :: Lens' GetRepositoryResponse Int
 grrsResponseStatus = lens _grrsResponseStatus (\ s a -> s{_grrsResponseStatus = a});
+
+instance NFData GetRepositoryResponse
diff --git a/gen/Network/AWS/CodeCommit/GetRepositoryTriggers.hs b/gen/Network/AWS/CodeCommit/GetRepositoryTriggers.hs
--- a/gen/Network/AWS/CodeCommit/GetRepositoryTriggers.hs
+++ b/gen/Network/AWS/CodeCommit/GetRepositoryTriggers.hs
@@ -80,6 +80,8 @@
 
 instance Hashable GetRepositoryTriggers
 
+instance NFData GetRepositoryTriggers
+
 instance ToHeaders GetRepositoryTriggers where
         toHeaders
           = const
@@ -141,3 +143,5 @@
 -- | The response status code.
 grtrsResponseStatus :: Lens' GetRepositoryTriggersResponse Int
 grtrsResponseStatus = lens _grtrsResponseStatus (\ s a -> s{_grtrsResponseStatus = a});
+
+instance NFData GetRepositoryTriggersResponse
diff --git a/gen/Network/AWS/CodeCommit/ListBranches.hs b/gen/Network/AWS/CodeCommit/ListBranches.hs
--- a/gen/Network/AWS/CodeCommit/ListBranches.hs
+++ b/gen/Network/AWS/CodeCommit/ListBranches.hs
@@ -19,6 +19,8 @@
 -- Portability : non-portable (GHC extensions)
 --
 -- Gets information about one or more branches in a repository.
+--
+-- This operation returns paginated results.
 module Network.AWS.CodeCommit.ListBranches
     (
     -- * Creating a Request
@@ -40,6 +42,7 @@
 import           Network.AWS.CodeCommit.Types
 import           Network.AWS.CodeCommit.Types.Product
 import           Network.AWS.Lens
+import           Network.AWS.Pager
 import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
@@ -76,6 +79,13 @@
 lbRepositoryName :: Lens' ListBranches Text
 lbRepositoryName = lens _lbRepositoryName (\ s a -> s{_lbRepositoryName = a});
 
+instance AWSPager ListBranches where
+        page rq rs
+          | stop (rs ^. lbrsNextToken) = Nothing
+          | stop (rs ^. lbrsBranches) = Nothing
+          | otherwise =
+            Just $ rq & lbNextToken .~ rs ^. lbrsNextToken
+
 instance AWSRequest ListBranches where
         type Rs ListBranches = ListBranchesResponse
         request = postJSON codeCommit
@@ -88,6 +98,8 @@
 
 instance Hashable ListBranches
 
+instance NFData ListBranches
+
 instance ToHeaders ListBranches where
         toHeaders
           = const
@@ -149,3 +161,5 @@
 -- | The response status code.
 lbrsResponseStatus :: Lens' ListBranchesResponse Int
 lbrsResponseStatus = lens _lbrsResponseStatus (\ s a -> s{_lbrsResponseStatus = a});
+
+instance NFData ListBranchesResponse
diff --git a/gen/Network/AWS/CodeCommit/ListRepositories.hs b/gen/Network/AWS/CodeCommit/ListRepositories.hs
--- a/gen/Network/AWS/CodeCommit/ListRepositories.hs
+++ b/gen/Network/AWS/CodeCommit/ListRepositories.hs
@@ -19,6 +19,8 @@
 -- Portability : non-portable (GHC extensions)
 --
 -- Gets information about one or more repositories.
+--
+-- This operation returns paginated results.
 module Network.AWS.CodeCommit.ListRepositories
     (
     -- * Creating a Request
@@ -41,6 +43,7 @@
 import           Network.AWS.CodeCommit.Types
 import           Network.AWS.CodeCommit.Types.Product
 import           Network.AWS.Lens
+import           Network.AWS.Pager
 import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
@@ -87,6 +90,13 @@
 lrSortBy :: Lens' ListRepositories (Maybe SortByEnum)
 lrSortBy = lens _lrSortBy (\ s a -> s{_lrSortBy = a});
 
+instance AWSPager ListRepositories where
+        page rq rs
+          | stop (rs ^. lrrsNextToken) = Nothing
+          | stop (rs ^. lrrsRepositories) = Nothing
+          | otherwise =
+            Just $ rq & lrNextToken .~ rs ^. lrrsNextToken
+
 instance AWSRequest ListRepositories where
         type Rs ListRepositories = ListRepositoriesResponse
         request = postJSON codeCommit
@@ -100,6 +110,8 @@
 
 instance Hashable ListRepositories
 
+instance NFData ListRepositories
+
 instance ToHeaders ListRepositories where
         toHeaders
           = const
@@ -166,3 +178,5 @@
 -- | The response status code.
 lrrsResponseStatus :: Lens' ListRepositoriesResponse Int
 lrrsResponseStatus = lens _lrrsResponseStatus (\ s a -> s{_lrrsResponseStatus = a});
+
+instance NFData ListRepositoriesResponse
diff --git a/gen/Network/AWS/CodeCommit/PutRepositoryTriggers.hs b/gen/Network/AWS/CodeCommit/PutRepositoryTriggers.hs
--- a/gen/Network/AWS/CodeCommit/PutRepositoryTriggers.hs
+++ b/gen/Network/AWS/CodeCommit/PutRepositoryTriggers.hs
@@ -88,6 +88,8 @@
 
 instance Hashable PutRepositoryTriggers
 
+instance NFData PutRepositoryTriggers
+
 instance ToHeaders PutRepositoryTriggers where
         toHeaders
           = const
@@ -142,3 +144,5 @@
 -- | The response status code.
 prtrsResponseStatus :: Lens' PutRepositoryTriggersResponse Int
 prtrsResponseStatus = lens _prtrsResponseStatus (\ s a -> s{_prtrsResponseStatus = a});
+
+instance NFData PutRepositoryTriggersResponse
diff --git a/gen/Network/AWS/CodeCommit/TestRepositoryTriggers.hs b/gen/Network/AWS/CodeCommit/TestRepositoryTriggers.hs
--- a/gen/Network/AWS/CodeCommit/TestRepositoryTriggers.hs
+++ b/gen/Network/AWS/CodeCommit/TestRepositoryTriggers.hs
@@ -92,6 +92,8 @@
 
 instance Hashable TestRepositoryTriggers
 
+instance NFData TestRepositoryTriggers
+
 instance ToHeaders TestRepositoryTriggers where
         toHeaders
           = const
@@ -157,3 +159,5 @@
 -- | The response status code.
 trtrsResponseStatus :: Lens' TestRepositoryTriggersResponse Int
 trtrsResponseStatus = lens _trtrsResponseStatus (\ s a -> s{_trtrsResponseStatus = a});
+
+instance NFData TestRepositoryTriggersResponse
diff --git a/gen/Network/AWS/CodeCommit/Types.hs b/gen/Network/AWS/CodeCommit/Types.hs
--- a/gen/Network/AWS/CodeCommit/Types.hs
+++ b/gen/Network/AWS/CodeCommit/Types.hs
@@ -155,6 +155,8 @@
       | has (hasCode "ThrottlingException" . hasStatus 400) e =
           Just "throttling_exception"
       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"
+      | has (hasStatus 504) e = Just "gateway_timeout"
+      | has (hasStatus 502) e = Just "bad_gateway"
       | has (hasStatus 503) e = Just "service_unavailable"
       | has (hasStatus 500) e = Just "general_server_error"
       | has (hasStatus 509) e = Just "limit_exceeded"
diff --git a/gen/Network/AWS/CodeCommit/Types/Product.hs b/gen/Network/AWS/CodeCommit/Types/Product.hs
--- a/gen/Network/AWS/CodeCommit/Types/Product.hs
+++ b/gen/Network/AWS/CodeCommit/Types/Product.hs
@@ -61,6 +61,8 @@
 
 instance Hashable BranchInfo
 
+instance NFData BranchInfo
+
 -- | Returns information about a specific commit.
 --
 -- /See:/ 'commit' smart constructor.
@@ -141,6 +143,8 @@
 
 instance Hashable Commit
 
+instance NFData Commit
+
 -- | Information about a repository.
 --
 -- /See:/ 'repositoryMetadata' smart constructor.
@@ -254,6 +258,8 @@
 
 instance Hashable RepositoryMetadata
 
+instance NFData RepositoryMetadata
+
 -- | Information about a repository name and ID.
 --
 -- /See:/ 'repositoryNameIdPair' smart constructor.
@@ -294,6 +300,8 @@
 
 instance Hashable RepositoryNameIdPair
 
+instance NFData RepositoryNameIdPair
+
 -- | Information about a trigger for a repository.
 --
 -- /See:/ 'repositoryTrigger' smart constructor.
@@ -368,6 +376,8 @@
 
 instance Hashable RepositoryTrigger
 
+instance NFData RepositoryTrigger
+
 instance ToJSON RepositoryTrigger where
         toJSON RepositoryTrigger'{..}
           = object
@@ -419,6 +429,8 @@
 
 instance Hashable RepositoryTriggerExecutionFailure
 
+instance NFData RepositoryTriggerExecutionFailure
+
 -- | Information about the user who made a specified commit.
 --
 -- /See:/ 'userInfo' smart constructor.
@@ -467,3 +479,5 @@
                      (x .:? "name"))
 
 instance Hashable UserInfo
+
+instance NFData UserInfo
diff --git a/gen/Network/AWS/CodeCommit/Types/Sum.hs b/gen/Network/AWS/CodeCommit/Types/Sum.hs
--- a/gen/Network/AWS/CodeCommit/Types/Sum.hs
+++ b/gen/Network/AWS/CodeCommit/Types/Sum.hs
@@ -37,6 +37,7 @@
         Descending -> "descending"
 
 instance Hashable     OrderEnum
+instance NFData       OrderEnum
 instance ToByteString OrderEnum
 instance ToQuery      OrderEnum
 instance ToHeader     OrderEnum
@@ -68,6 +69,7 @@
         UpdateReference -> "updateReference"
 
 instance Hashable     RepositoryTriggerEventEnum
+instance NFData       RepositoryTriggerEventEnum
 instance ToByteString RepositoryTriggerEventEnum
 instance ToQuery      RepositoryTriggerEventEnum
 instance ToHeader     RepositoryTriggerEventEnum
@@ -96,6 +98,7 @@
         RepositoryName -> "repositoryName"
 
 instance Hashable     SortByEnum
+instance NFData       SortByEnum
 instance ToByteString SortByEnum
 instance ToQuery      SortByEnum
 instance ToHeader     SortByEnum
diff --git a/gen/Network/AWS/CodeCommit/UpdateDefaultBranch.hs b/gen/Network/AWS/CodeCommit/UpdateDefaultBranch.hs
--- a/gen/Network/AWS/CodeCommit/UpdateDefaultBranch.hs
+++ b/gen/Network/AWS/CodeCommit/UpdateDefaultBranch.hs
@@ -85,6 +85,8 @@
 
 instance Hashable UpdateDefaultBranch
 
+instance NFData UpdateDefaultBranch
+
 instance ToHeaders UpdateDefaultBranch where
         toHeaders
           = const
@@ -118,3 +120,5 @@
 updateDefaultBranchResponse
     :: UpdateDefaultBranchResponse
 updateDefaultBranchResponse = UpdateDefaultBranchResponse'
+
+instance NFData UpdateDefaultBranchResponse
diff --git a/gen/Network/AWS/CodeCommit/UpdateRepositoryDescription.hs b/gen/Network/AWS/CodeCommit/UpdateRepositoryDescription.hs
--- a/gen/Network/AWS/CodeCommit/UpdateRepositoryDescription.hs
+++ b/gen/Network/AWS/CodeCommit/UpdateRepositoryDescription.hs
@@ -90,6 +90,8 @@
 
 instance Hashable UpdateRepositoryDescription
 
+instance NFData UpdateRepositoryDescription
+
 instance ToHeaders UpdateRepositoryDescription where
         toHeaders
           = const
@@ -124,3 +126,5 @@
 updateRepositoryDescriptionResponse
     :: UpdateRepositoryDescriptionResponse
 updateRepositoryDescriptionResponse = UpdateRepositoryDescriptionResponse'
+
+instance NFData UpdateRepositoryDescriptionResponse
diff --git a/gen/Network/AWS/CodeCommit/UpdateRepositoryName.hs b/gen/Network/AWS/CodeCommit/UpdateRepositoryName.hs
--- a/gen/Network/AWS/CodeCommit/UpdateRepositoryName.hs
+++ b/gen/Network/AWS/CodeCommit/UpdateRepositoryName.hs
@@ -87,6 +87,8 @@
 
 instance Hashable UpdateRepositoryName
 
+instance NFData UpdateRepositoryName
+
 instance ToHeaders UpdateRepositoryName where
         toHeaders
           = const
@@ -120,3 +122,5 @@
 updateRepositoryNameResponse
     :: UpdateRepositoryNameResponse
 updateRepositoryNameResponse = UpdateRepositoryNameResponse'
+
+instance NFData UpdateRepositoryNameResponse