amazonka-codecommit 1.2.0.2 → 1.3.0

raw patch · 13 files changed

+183/−183 lines, 13 filesdep ~amazonka-codecommitdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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 +22/−22
• gen/Network/AWS/CodeCommit/BatchGetRepositories.hs +8/−8
• gen/Network/AWS/CodeCommit/CreateRepository.hs +8/−8
• gen/Network/AWS/CodeCommit/DeleteRepository.hs +9/−9
• gen/Network/AWS/CodeCommit/GetBranch.hs +9/−9
• gen/Network/AWS/CodeCommit/GetRepository.hs +8/−8
• gen/Network/AWS/CodeCommit/ListBranches.hs +10/−10
• gen/Network/AWS/CodeCommit/ListRepositories.hs +21/−21
• gen/Network/AWS/CodeCommit/Types.hs +29/−29
• gen/Network/AWS/CodeCommit/Types/Product.hs +9/−9
• test/Test/AWS/Gen/CodeCommit.hs +44/−44

@@ -8,7 +8,7 @@  ## Version -`1.2.0.2`+`1.3.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-codecommit-version:               1.2.0.2+version:               1.3.0 synopsis:              Amazon CodeCommit SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -72,7 +72,7 @@         , Network.AWS.CodeCommit.Types.Sum      build-depends:-          amazonka-core == 1.2.0.*+          amazonka-core == 1.3.0.*         , base          >= 4.7     && < 5  test-suite amazonka-codecommit-test@@ -92,9 +92,9 @@         , Test.AWS.CodeCommit.Internal      build-depends:-          amazonka-core == 1.2.0.*-        , amazonka-test == 1.2.0.*-        , amazonka-codecommit == 1.2.0.*+          amazonka-core == 1.3.0.*+        , amazonka-test == 1.3.0.*+        , amazonka-codecommit == 1.3.0.*         , base         , bytestring         , lens

@@ -40,33 +40,33 @@     -- ** EncryptionKeyNotFoundException     , _EncryptionKeyNotFoundException -    -- ** RepositoryNameExistsException-    , _RepositoryNameExistsException-     -- ** MaximumRepositoryNamesExceededException     , _MaximumRepositoryNamesExceededException      -- ** InvalidRepositoryDescriptionException     , _InvalidRepositoryDescriptionException -    -- ** BranchNameRequiredException-    , _BranchNameRequiredException+    -- ** RepositoryNameExistsException+    , _RepositoryNameExistsException      -- ** InvalidBranchNameException     , _InvalidBranchNameException +    -- ** BranchNameRequiredException+    , _BranchNameRequiredException+     -- ** EncryptionKeyUnavailableException     , _EncryptionKeyUnavailableException +    -- ** RepositoryNamesRequiredException+    , _RepositoryNamesRequiredException+     -- ** InvalidOrderException     , _InvalidOrderException      -- ** BranchDoesNotExistException     , _BranchDoesNotExistException -    -- ** RepositoryNamesRequiredException-    , _RepositoryNamesRequiredException-     -- ** RepositoryDoesNotExistException     , _RepositoryDoesNotExistException @@ -79,12 +79,12 @@     -- ** BranchNameExistsException     , _BranchNameExistsException -    -- ** EncryptionKeyDisabledException-    , _EncryptionKeyDisabledException-     -- ** InvalidSortByException     , _InvalidSortByException +    -- ** EncryptionKeyDisabledException+    , _EncryptionKeyDisabledException+     -- ** CommitIdRequiredException     , _CommitIdRequiredException @@ -94,15 +94,15 @@     -- ** CommitDoesNotExistException     , _CommitDoesNotExistException +    -- ** RepositoryNameRequiredException+    , _RepositoryNameRequiredException+     -- ** RepositoryLimitExceededException     , _RepositoryLimitExceededException      -- ** InvalidRepositoryNameException     , _InvalidRepositoryNameException -    -- ** RepositoryNameRequiredException-    , _RepositoryNameRequiredException-     -- * Waiters     -- $waiters @@ -118,20 +118,20 @@     -- ** UpdateRepositoryDescription     , module Network.AWS.CodeCommit.UpdateRepositoryDescription -    -- ** ListBranches-    , module Network.AWS.CodeCommit.ListBranches-     -- ** CreateBranch     , module Network.AWS.CodeCommit.CreateBranch -    -- ** UpdateDefaultBranch-    , module Network.AWS.CodeCommit.UpdateDefaultBranch+    -- ** ListBranches+    , module Network.AWS.CodeCommit.ListBranches +    -- ** ListRepositories+    , module Network.AWS.CodeCommit.ListRepositories+     -- ** CreateRepository     , module Network.AWS.CodeCommit.CreateRepository -    -- ** ListRepositories-    , module Network.AWS.CodeCommit.ListRepositories+    -- ** UpdateDefaultBranch+    , module Network.AWS.CodeCommit.UpdateDefaultBranch      -- ** GetRepository     , module Network.AWS.CodeCommit.GetRepository@@ -166,8 +166,8 @@     , rmAccountId     , rmDefaultBranch     , rmRepositoryId-    , rmCreationDate     , rmRepositoryName+    , rmCreationDate     , rmCloneURLSSH      -- ** RepositoryNameIdPair

@@ -42,7 +42,7 @@     -- * Response Lenses     , bgrrsRepositories     , bgrrsRepositoriesNotFound-    , bgrrsStatus+    , bgrrsResponseStatus     ) where  import           Network.AWS.CodeCommit.Types@@ -114,7 +114,7 @@ data BatchGetRepositoriesResponse = BatchGetRepositoriesResponse'     { _bgrrsRepositories         :: !(Maybe [RepositoryMetadata])     , _bgrrsRepositoriesNotFound :: !(Maybe [Text])-    , _bgrrsStatus               :: !Int+    , _bgrrsResponseStatus       :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'BatchGetRepositoriesResponse' with the minimum fields required to make a request.@@ -125,15 +125,15 @@ -- -- * 'bgrrsRepositoriesNotFound' ----- * 'bgrrsStatus'+-- * 'bgrrsResponseStatus' batchGetRepositoriesResponse-    :: Int -- ^ 'bgrrsStatus'+    :: Int -- ^ 'bgrrsResponseStatus'     -> BatchGetRepositoriesResponse-batchGetRepositoriesResponse pStatus_ =+batchGetRepositoriesResponse pResponseStatus_ =     BatchGetRepositoriesResponse'     { _bgrrsRepositories = Nothing     , _bgrrsRepositoriesNotFound = Nothing-    , _bgrrsStatus = pStatus_+    , _bgrrsResponseStatus = pResponseStatus_     }  -- | A list of repositories returned by the batch get repositories operation.@@ -146,5 +146,5 @@ bgrrsRepositoriesNotFound = lens _bgrrsRepositoriesNotFound (\ s a -> s{_bgrrsRepositoriesNotFound = a}) . _Default . _Coerce;  -- | The response status code.-bgrrsStatus :: Lens' BatchGetRepositoriesResponse Int-bgrrsStatus = lens _bgrrsStatus (\ s a -> s{_bgrrsStatus = a});+bgrrsResponseStatus :: Lens' BatchGetRepositoriesResponse Int+bgrrsResponseStatus = lens _bgrrsResponseStatus (\ s a -> s{_bgrrsResponseStatus = a});

@@ -35,7 +35,7 @@     , CreateRepositoryResponse     -- * Response Lenses     , crrsRepositoryMetadata-    , crrsStatus+    , crrsResponseStatus     ) where  import           Network.AWS.CodeCommit.Types@@ -118,7 +118,7 @@ -- /See:/ 'createRepositoryResponse' smart constructor. data CreateRepositoryResponse = CreateRepositoryResponse'     { _crrsRepositoryMetadata :: !(Maybe RepositoryMetadata)-    , _crrsStatus             :: !Int+    , _crrsResponseStatus     :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateRepositoryResponse' with the minimum fields required to make a request.@@ -127,14 +127,14 @@ -- -- * 'crrsRepositoryMetadata' ----- * 'crrsStatus'+-- * 'crrsResponseStatus' createRepositoryResponse-    :: Int -- ^ 'crrsStatus'+    :: Int -- ^ 'crrsResponseStatus'     -> CreateRepositoryResponse-createRepositoryResponse pStatus_ =+createRepositoryResponse pResponseStatus_ =     CreateRepositoryResponse'     { _crrsRepositoryMetadata = Nothing-    , _crrsStatus = pStatus_+    , _crrsResponseStatus = pResponseStatus_     }  -- | Information about the newly created repository.@@ -142,5 +142,5 @@ crrsRepositoryMetadata = lens _crrsRepositoryMetadata (\ s a -> s{_crrsRepositoryMetadata = a});  -- | The response status code.-crrsStatus :: Lens' CreateRepositoryResponse Int-crrsStatus = lens _crrsStatus (\ s a -> s{_crrsStatus = a});+crrsResponseStatus :: Lens' CreateRepositoryResponse Int+crrsResponseStatus = lens _crrsResponseStatus (\ s a -> s{_crrsResponseStatus = a});

@@ -39,7 +39,7 @@     , DeleteRepositoryResponse     -- * Response Lenses     , drrsRepositoryId-    , drrsStatus+    , drrsResponseStatus     ) where  import           Network.AWS.CodeCommit.Types@@ -107,8 +107,8 @@ -- -- /See:/ 'deleteRepositoryResponse' smart constructor. data DeleteRepositoryResponse = DeleteRepositoryResponse'-    { _drrsRepositoryId :: !(Maybe Text)-    , _drrsStatus       :: !Int+    { _drrsRepositoryId   :: !(Maybe Text)+    , _drrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteRepositoryResponse' with the minimum fields required to make a request.@@ -117,14 +117,14 @@ -- -- * 'drrsRepositoryId' ----- * 'drrsStatus'+-- * 'drrsResponseStatus' deleteRepositoryResponse-    :: Int -- ^ 'drrsStatus'+    :: Int -- ^ 'drrsResponseStatus'     -> DeleteRepositoryResponse-deleteRepositoryResponse pStatus_ =+deleteRepositoryResponse pResponseStatus_ =     DeleteRepositoryResponse'     { _drrsRepositoryId = Nothing-    , _drrsStatus = pStatus_+    , _drrsResponseStatus = pResponseStatus_     }  -- | The ID of the repository that was deleted.@@ -132,5 +132,5 @@ drrsRepositoryId = lens _drrsRepositoryId (\ s a -> s{_drrsRepositoryId = a});  -- | The response status code.-drrsStatus :: Lens' DeleteRepositoryResponse Int-drrsStatus = lens _drrsStatus (\ s a -> s{_drrsStatus = a});+drrsResponseStatus :: Lens' DeleteRepositoryResponse Int+drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a});

@@ -36,7 +36,7 @@     , GetBranchResponse     -- * Response Lenses     , gbrsBranch-    , gbrsStatus+    , gbrsResponseStatus     ) where  import           Network.AWS.CodeCommit.Types@@ -111,8 +111,8 @@ -- -- /See:/ 'getBranchResponse' smart constructor. data GetBranchResponse = GetBranchResponse'-    { _gbrsBranch :: !(Maybe BranchInfo)-    , _gbrsStatus :: !Int+    { _gbrsBranch         :: !(Maybe BranchInfo)+    , _gbrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetBranchResponse' with the minimum fields required to make a request.@@ -121,14 +121,14 @@ -- -- * 'gbrsBranch' ----- * 'gbrsStatus'+-- * 'gbrsResponseStatus' getBranchResponse-    :: Int -- ^ 'gbrsStatus'+    :: Int -- ^ 'gbrsResponseStatus'     -> GetBranchResponse-getBranchResponse pStatus_ =+getBranchResponse pResponseStatus_ =     GetBranchResponse'     { _gbrsBranch = Nothing-    , _gbrsStatus = pStatus_+    , _gbrsResponseStatus = pResponseStatus_     }  -- | The name of the branch.@@ -136,5 +136,5 @@ gbrsBranch = lens _gbrsBranch (\ s a -> s{_gbrsBranch = a});  -- | The response status code.-gbrsStatus :: Lens' GetBranchResponse Int-gbrsStatus = lens _gbrsStatus (\ s a -> s{_gbrsStatus = a});+gbrsResponseStatus :: Lens' GetBranchResponse Int+gbrsResponseStatus = lens _gbrsResponseStatus (\ s a -> s{_gbrsResponseStatus = a});

@@ -41,7 +41,7 @@     , GetRepositoryResponse     -- * Response Lenses     , grrsRepositoryMetadata-    , grrsStatus+    , grrsResponseStatus     ) where  import           Network.AWS.CodeCommit.Types@@ -109,7 +109,7 @@ -- /See:/ 'getRepositoryResponse' smart constructor. data GetRepositoryResponse = GetRepositoryResponse'     { _grrsRepositoryMetadata :: !(Maybe RepositoryMetadata)-    , _grrsStatus             :: !Int+    , _grrsResponseStatus     :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetRepositoryResponse' with the minimum fields required to make a request.@@ -118,14 +118,14 @@ -- -- * 'grrsRepositoryMetadata' ----- * 'grrsStatus'+-- * 'grrsResponseStatus' getRepositoryResponse-    :: Int -- ^ 'grrsStatus'+    :: Int -- ^ 'grrsResponseStatus'     -> GetRepositoryResponse-getRepositoryResponse pStatus_ =+getRepositoryResponse pResponseStatus_ =     GetRepositoryResponse'     { _grrsRepositoryMetadata = Nothing-    , _grrsStatus = pStatus_+    , _grrsResponseStatus = pResponseStatus_     }  -- | Information about the repository.@@ -133,5 +133,5 @@ grrsRepositoryMetadata = lens _grrsRepositoryMetadata (\ s a -> s{_grrsRepositoryMetadata = a});  -- | The response status code.-grrsStatus :: Lens' GetRepositoryResponse Int-grrsStatus = lens _grrsStatus (\ s a -> s{_grrsStatus = a});+grrsResponseStatus :: Lens' GetRepositoryResponse Int+grrsResponseStatus = lens _grrsResponseStatus (\ s a -> s{_grrsResponseStatus = a});

@@ -36,7 +36,7 @@     -- * Response Lenses     , lbrsBranches     , lbrsNextToken-    , lbrsStatus+    , lbrsResponseStatus     ) where  import           Network.AWS.CodeCommit.Types@@ -113,9 +113,9 @@ -- -- /See:/ 'listBranchesResponse' smart constructor. data ListBranchesResponse = ListBranchesResponse'-    { _lbrsBranches  :: !(Maybe [Text])-    , _lbrsNextToken :: !(Maybe Text)-    , _lbrsStatus    :: !Int+    { _lbrsBranches       :: !(Maybe [Text])+    , _lbrsNextToken      :: !(Maybe Text)+    , _lbrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListBranchesResponse' with the minimum fields required to make a request.@@ -126,15 +126,15 @@ -- -- * 'lbrsNextToken' ----- * 'lbrsStatus'+-- * 'lbrsResponseStatus' listBranchesResponse-    :: Int -- ^ 'lbrsStatus'+    :: Int -- ^ 'lbrsResponseStatus'     -> ListBranchesResponse-listBranchesResponse pStatus_ =+listBranchesResponse pResponseStatus_ =     ListBranchesResponse'     { _lbrsBranches = Nothing     , _lbrsNextToken = Nothing-    , _lbrsStatus = pStatus_+    , _lbrsResponseStatus = pResponseStatus_     }  -- | The list of branch names.@@ -146,5 +146,5 @@ lbrsNextToken = lens _lbrsNextToken (\ s a -> s{_lbrsNextToken = a});  -- | The response status code.-lbrsStatus :: Lens' ListBranchesResponse Int-lbrsStatus = lens _lbrsStatus (\ s a -> s{_lbrsStatus = a});+lbrsResponseStatus :: Lens' ListBranchesResponse Int+lbrsResponseStatus = lens _lbrsResponseStatus (\ s a -> s{_lbrsResponseStatus = a});

@@ -35,9 +35,9 @@     , listRepositoriesResponse     , ListRepositoriesResponse     -- * Response Lenses-    , lrrsNextToken     , lrrsRepositories-    , lrrsStatus+    , lrrsNextToken+    , lrrsResponseStatus     ) where  import           Network.AWS.CodeCommit.Types@@ -95,8 +95,8 @@           = receiveJSON               (\ s h x ->                  ListRepositoriesResponse' <$>-                   (x .?> "nextToken") <*>-                     (x .?> "repositories" .!@ mempty)+                   (x .?> "repositories" .!@ mempty) <*>+                     (x .?> "nextToken")                      <*> (pure (fromEnum s)))  instance ToHeaders ListRepositories where@@ -127,30 +127,34 @@ -- -- /See:/ 'listRepositoriesResponse' smart constructor. data ListRepositoriesResponse = ListRepositoriesResponse'-    { _lrrsNextToken    :: !(Maybe Text)-    , _lrrsRepositories :: !(Maybe [RepositoryNameIdPair])-    , _lrrsStatus       :: !Int+    { _lrrsRepositories   :: !(Maybe [RepositoryNameIdPair])+    , _lrrsNextToken      :: !(Maybe Text)+    , _lrrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListRepositoriesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lrrsNextToken'--- -- * 'lrrsRepositories' ----- * 'lrrsStatus'+-- * 'lrrsNextToken'+--+-- * 'lrrsResponseStatus' listRepositoriesResponse-    :: Int -- ^ 'lrrsStatus'+    :: Int -- ^ 'lrrsResponseStatus'     -> ListRepositoriesResponse-listRepositoriesResponse pStatus_ =+listRepositoriesResponse pResponseStatus_ =     ListRepositoriesResponse'-    { _lrrsNextToken = Nothing-    , _lrrsRepositories = Nothing-    , _lrrsStatus = pStatus_+    { _lrrsRepositories = Nothing+    , _lrrsNextToken = Nothing+    , _lrrsResponseStatus = pResponseStatus_     } +-- | Lists the repositories called by the list repositories operation.+lrrsRepositories :: Lens' ListRepositoriesResponse [RepositoryNameIdPair]+lrrsRepositories = lens _lrrsRepositories (\ s a -> s{_lrrsRepositories = a}) . _Default . _Coerce;+ -- | An enumeration token that allows the operation to batch the results of -- the operation. Batch sizes are 1,000 for list repository operations. -- When the client sends the token back to AWS CodeCommit, another page of@@ -158,10 +162,6 @@ lrrsNextToken :: Lens' ListRepositoriesResponse (Maybe Text) lrrsNextToken = lens _lrrsNextToken (\ s a -> s{_lrrsNextToken = a}); --- | Lists the repositories called by the list repositories operation.-lrrsRepositories :: Lens' ListRepositoriesResponse [RepositoryNameIdPair]-lrrsRepositories = lens _lrrsRepositories (\ s a -> s{_lrrsRepositories = a}) . _Default . _Coerce;- -- | The response status code.-lrrsStatus :: Lens' ListRepositoriesResponse Int-lrrsStatus = lens _lrrsStatus (\ s a -> s{_lrrsStatus = a});+lrrsResponseStatus :: Lens' ListRepositoriesResponse Int+lrrsResponseStatus = lens _lrrsResponseStatus (\ s a -> s{_lrrsResponseStatus = a});

@@ -18,27 +18,27 @@     -- * Errors     , _InvalidContinuationTokenException     , _EncryptionKeyNotFoundException-    , _RepositoryNameExistsException     , _MaximumRepositoryNamesExceededException     , _InvalidRepositoryDescriptionException-    , _BranchNameRequiredException+    , _RepositoryNameExistsException     , _InvalidBranchNameException+    , _BranchNameRequiredException     , _EncryptionKeyUnavailableException+    , _RepositoryNamesRequiredException     , _InvalidOrderException     , _BranchDoesNotExistException-    , _RepositoryNamesRequiredException     , _RepositoryDoesNotExistException     , _EncryptionIntegrityChecksFailedException     , _EncryptionKeyAccessDeniedException     , _BranchNameExistsException-    , _EncryptionKeyDisabledException     , _InvalidSortByException+    , _EncryptionKeyDisabledException     , _CommitIdRequiredException     , _InvalidCommitIdException     , _CommitDoesNotExistException+    , _RepositoryNameRequiredException     , _RepositoryLimitExceededException     , _InvalidRepositoryNameException-    , _RepositoryNameRequiredException      -- * OrderEnum     , OrderEnum (..)@@ -62,8 +62,8 @@     , rmAccountId     , rmDefaultBranch     , rmRepositoryId-    , rmCreationDate     , rmRepositoryName+    , rmCreationDate     , rmCloneURLSSH      -- * RepositoryNameIdPair@@ -119,11 +119,6 @@ _EncryptionKeyNotFoundException =     _ServiceError . hasCode "EncryptionKeyNotFoundException" --- | The specified repository name already exists.-_RepositoryNameExistsException :: AsError a => Getting (First ServiceError) a ServiceError-_RepositoryNameExistsException =-    _ServiceError . hasCode "RepositoryNameExistsException"- -- | The maximum number of allowed repository names was exceeded. Currently, -- this number is 25. _MaximumRepositoryNamesExceededException :: AsError a => Getting (First ServiceError) a ServiceError@@ -135,21 +130,31 @@ _InvalidRepositoryDescriptionException =     _ServiceError . hasCode "InvalidRepositoryDescriptionException" --- | A branch name is required but was not specified.-_BranchNameRequiredException :: AsError a => Getting (First ServiceError) a ServiceError-_BranchNameRequiredException =-    _ServiceError . hasCode "BranchNameRequiredException"+-- | The specified repository name already exists.+_RepositoryNameExistsException :: AsError a => Getting (First ServiceError) a ServiceError+_RepositoryNameExistsException =+    _ServiceError . hasCode "RepositoryNameExistsException"  -- | The specified branch name is not valid. _InvalidBranchNameException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidBranchNameException =     _ServiceError . hasCode "InvalidBranchNameException" +-- | A branch name is required but was not specified.+_BranchNameRequiredException :: AsError a => Getting (First ServiceError) a ServiceError+_BranchNameRequiredException =+    _ServiceError . hasCode "BranchNameRequiredException"+ -- | The encryption key is not available. _EncryptionKeyUnavailableException :: AsError a => Getting (First ServiceError) a ServiceError _EncryptionKeyUnavailableException =     _ServiceError . hasCode "EncryptionKeyUnavailableException" +-- | A repository names object is required but was not specified.+_RepositoryNamesRequiredException :: AsError a => Getting (First ServiceError) a ServiceError+_RepositoryNamesRequiredException =+    _ServiceError . hasCode "RepositoryNamesRequiredException"+ -- | The specified sort order is not valid. _InvalidOrderException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidOrderException = _ServiceError . hasCode "InvalidOrderException"@@ -159,11 +164,6 @@ _BranchDoesNotExistException =     _ServiceError . hasCode "BranchDoesNotExistException" --- | A repository names object is required but was not specified.-_RepositoryNamesRequiredException :: AsError a => Getting (First ServiceError) a ServiceError-_RepositoryNamesRequiredException =-    _ServiceError . hasCode "RepositoryNamesRequiredException"- -- | The specified repository does not exist. _RepositoryDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError _RepositoryDoesNotExistException =@@ -184,15 +184,15 @@ _BranchNameExistsException =     _ServiceError . hasCode "BranchNameExistsException" +-- | The specified sort by value is not valid.+_InvalidSortByException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidSortByException = _ServiceError . hasCode "InvalidSortByException"+ -- | The encryption key is disabled. _EncryptionKeyDisabledException :: AsError a => Getting (First ServiceError) a ServiceError _EncryptionKeyDisabledException =     _ServiceError . hasCode "EncryptionKeyDisabledException" --- | The specified sort by value is not valid.-_InvalidSortByException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidSortByException = _ServiceError . hasCode "InvalidSortByException"- -- | A commit ID was not specified. _CommitIdRequiredException :: AsError a => Getting (First ServiceError) a ServiceError _CommitIdRequiredException =@@ -208,6 +208,11 @@ _CommitDoesNotExistException =     _ServiceError . hasCode "CommitDoesNotExistException" +-- | A repository name is required but was not specified.+_RepositoryNameRequiredException :: AsError a => Getting (First ServiceError) a ServiceError+_RepositoryNameRequiredException =+    _ServiceError . hasCode "RepositoryNameRequiredException"+ -- | A repository resource limit was exceeded. _RepositoryLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _RepositoryLimitExceededException =@@ -221,8 +226,3 @@ _InvalidRepositoryNameException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidRepositoryNameException =     _ServiceError . hasCode "InvalidRepositoryNameException"---- | A repository name is required but was not specified.-_RepositoryNameRequiredException :: AsError a => Getting (First ServiceError) a ServiceError-_RepositoryNameRequiredException =-    _ServiceError . hasCode "RepositoryNameRequiredException"

@@ -69,8 +69,8 @@     , _rmAccountId             :: !(Maybe Text)     , _rmDefaultBranch         :: !(Maybe Text)     , _rmRepositoryId          :: !(Maybe Text)-    , _rmCreationDate          :: !(Maybe POSIX)     , _rmRepositoryName        :: !(Maybe Text)+    , _rmCreationDate          :: !(Maybe POSIX)     , _rmCloneURLSSH           :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -92,10 +92,10 @@ -- -- * 'rmRepositoryId' ----- * 'rmCreationDate'--- -- * 'rmRepositoryName' --+-- * 'rmCreationDate'+-- -- * 'rmCloneURLSSH' repositoryMetadata     :: RepositoryMetadata@@ -108,8 +108,8 @@     , _rmAccountId = Nothing     , _rmDefaultBranch = Nothing     , _rmRepositoryId = Nothing-    , _rmCreationDate = Nothing     , _rmRepositoryName = Nothing+    , _rmCreationDate = Nothing     , _rmCloneURLSSH = Nothing     } @@ -141,14 +141,14 @@ rmRepositoryId :: Lens' RepositoryMetadata (Maybe Text) rmRepositoryId = lens _rmRepositoryId (\ s a -> s{_rmRepositoryId = a}); --- | The date and time the repository was created, in timestamp format.-rmCreationDate :: Lens' RepositoryMetadata (Maybe UTCTime)-rmCreationDate = lens _rmCreationDate (\ s a -> s{_rmCreationDate = a}) . mapping _Time;- -- | The repository\'s name. rmRepositoryName :: Lens' RepositoryMetadata (Maybe Text) rmRepositoryName = lens _rmRepositoryName (\ s a -> s{_rmRepositoryName = a}); +-- | The date and time the repository was created, in timestamp format.+rmCreationDate :: Lens' RepositoryMetadata (Maybe UTCTime)+rmCreationDate = lens _rmCreationDate (\ s a -> s{_rmCreationDate = a}) . mapping _Time;+ -- | The URL to use for cloning the repository over SSH. rmCloneURLSSH :: Lens' RepositoryMetadata (Maybe Text) rmCloneURLSSH = lens _rmCloneURLSSH (\ s a -> s{_rmCloneURLSSH = a});@@ -165,8 +165,8 @@                      <*> (x .:? "accountId")                      <*> (x .:? "defaultBranch")                      <*> (x .:? "repositoryId")-                     <*> (x .:? "creationDate")                      <*> (x .:? "repositoryName")+                     <*> (x .:? "creationDate")                      <*> (x .:? "cloneUrlSsh"))  -- | Information about a repository name and ID.

@@ -37,20 +37,20 @@ --         , testUpdateRepositoryDescription $ --             updateRepositoryDescription -----         , testListBranches $---             listBranches--- --         , testCreateBranch $ --             createBranch -----         , testUpdateDefaultBranch $---             updateDefaultBranch+--         , testListBranches $+--             listBranches --+--         , testListRepositories $+--             listRepositories+-- --         , testCreateRepository $ --             createRepository -----         , testListRepositories $---             listRepositories+--         , testUpdateDefaultBranch $+--             updateDefaultBranch -- --         , testGetRepository $ --             getRepository@@ -73,20 +73,20 @@ --         , testUpdateRepositoryDescriptionResponse $ --             updateRepositoryDescriptionResponse -----         , testListBranchesResponse $---             listBranchesResponse--- --         , testCreateBranchResponse $ --             createBranchResponse -----         , testUpdateDefaultBranchResponse $---             updateDefaultBranchResponse+--         , testListBranchesResponse $+--             listBranchesResponse --+--         , testListRepositoriesResponse $+--             listRepositoriesResponse+-- --         , testCreateRepositoryResponse $ --             createRepositoryResponse -----         , testListRepositoriesResponse $---             listRepositoriesResponse+--         , testUpdateDefaultBranchResponse $+--             updateDefaultBranchResponse -- --         , testGetRepositoryResponse $ --             getRepositoryResponse@@ -117,30 +117,30 @@     "UpdateRepositoryDescription"     "fixture/UpdateRepositoryDescription.yaml" -testListBranches :: ListBranches -> TestTree-testListBranches = req-    "ListBranches"-    "fixture/ListBranches.yaml"- testCreateBranch :: CreateBranch -> TestTree testCreateBranch = req     "CreateBranch"     "fixture/CreateBranch.yaml" -testUpdateDefaultBranch :: UpdateDefaultBranch -> TestTree-testUpdateDefaultBranch = req-    "UpdateDefaultBranch"-    "fixture/UpdateDefaultBranch.yaml"+testListBranches :: ListBranches -> TestTree+testListBranches = req+    "ListBranches"+    "fixture/ListBranches.yaml" +testListRepositories :: ListRepositories -> TestTree+testListRepositories = req+    "ListRepositories"+    "fixture/ListRepositories.yaml"+ testCreateRepository :: CreateRepository -> TestTree testCreateRepository = req     "CreateRepository"     "fixture/CreateRepository.yaml" -testListRepositories :: ListRepositories -> TestTree-testListRepositories = req-    "ListRepositories"-    "fixture/ListRepositories.yaml"+testUpdateDefaultBranch :: UpdateDefaultBranch -> TestTree+testUpdateDefaultBranch = req+    "UpdateDefaultBranch"+    "fixture/UpdateDefaultBranch.yaml"  testGetRepository :: GetRepository -> TestTree testGetRepository = req@@ -180,13 +180,6 @@     codeCommit     (Proxy :: Proxy UpdateRepositoryDescription) -testListBranchesResponse :: ListBranchesResponse -> TestTree-testListBranchesResponse = res-    "ListBranchesResponse"-    "fixture/ListBranchesResponse.proto"-    codeCommit-    (Proxy :: Proxy ListBranches)- testCreateBranchResponse :: CreateBranchResponse -> TestTree testCreateBranchResponse = res     "CreateBranchResponse"@@ -194,13 +187,20 @@     codeCommit     (Proxy :: Proxy CreateBranch) -testUpdateDefaultBranchResponse :: UpdateDefaultBranchResponse -> TestTree-testUpdateDefaultBranchResponse = res-    "UpdateDefaultBranchResponse"-    "fixture/UpdateDefaultBranchResponse.proto"+testListBranchesResponse :: ListBranchesResponse -> TestTree+testListBranchesResponse = res+    "ListBranchesResponse"+    "fixture/ListBranchesResponse.proto"     codeCommit-    (Proxy :: Proxy UpdateDefaultBranch)+    (Proxy :: Proxy ListBranches) +testListRepositoriesResponse :: ListRepositoriesResponse -> TestTree+testListRepositoriesResponse = res+    "ListRepositoriesResponse"+    "fixture/ListRepositoriesResponse.proto"+    codeCommit+    (Proxy :: Proxy ListRepositories)+ testCreateRepositoryResponse :: CreateRepositoryResponse -> TestTree testCreateRepositoryResponse = res     "CreateRepositoryResponse"@@ -208,12 +208,12 @@     codeCommit     (Proxy :: Proxy CreateRepository) -testListRepositoriesResponse :: ListRepositoriesResponse -> TestTree-testListRepositoriesResponse = res-    "ListRepositoriesResponse"-    "fixture/ListRepositoriesResponse.proto"+testUpdateDefaultBranchResponse :: UpdateDefaultBranchResponse -> TestTree+testUpdateDefaultBranchResponse = res+    "UpdateDefaultBranchResponse"+    "fixture/UpdateDefaultBranchResponse.proto"     codeCommit-    (Proxy :: Proxy ListRepositories)+    (Proxy :: Proxy UpdateDefaultBranch)  testGetRepositoryResponse :: GetRepositoryResponse -> TestTree testGetRepositoryResponse = res