amazonka-codecommit 1.4.0 → 1.4.1

raw patch · 21 files changed

+107/−8 lines, 21 filesdep ~amazonka-codecommitdep ~amazonka-coredep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: amazonka-codecommit, amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-codecommit.cabal +5/−5
• gen/Network/AWS/CodeCommit.hs +2/−2
• gen/Network/AWS/CodeCommit/BatchGetRepositories.hs +4/−0
• gen/Network/AWS/CodeCommit/CreateBranch.hs +4/−0
• gen/Network/AWS/CodeCommit/CreateRepository.hs +4/−0
• gen/Network/AWS/CodeCommit/DeleteRepository.hs +4/−0
• gen/Network/AWS/CodeCommit/GetBranch.hs +4/−0
• gen/Network/AWS/CodeCommit/GetCommit.hs +4/−0
• gen/Network/AWS/CodeCommit/GetRepository.hs +4/−0
• gen/Network/AWS/CodeCommit/GetRepositoryTriggers.hs +4/−0
• gen/Network/AWS/CodeCommit/ListBranches.hs +14/−0
• gen/Network/AWS/CodeCommit/ListRepositories.hs +14/−0
• gen/Network/AWS/CodeCommit/PutRepositoryTriggers.hs +4/−0
• gen/Network/AWS/CodeCommit/TestRepositoryTriggers.hs +4/−0
• gen/Network/AWS/CodeCommit/Types.hs +2/−0
• gen/Network/AWS/CodeCommit/Types/Product.hs +14/−0
• gen/Network/AWS/CodeCommit/Types/Sum.hs +3/−0
• gen/Network/AWS/CodeCommit/UpdateDefaultBranch.hs +4/−0
• gen/Network/AWS/CodeCommit/UpdateRepositoryDescription.hs +4/−0
• gen/Network/AWS/CodeCommit/UpdateRepositoryName.hs +4/−0

@@ -8,7 +8,7 @@  ## Version -`1.4.0`+`1.4.1`   ## Description

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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"

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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