amazonka-ecr 1.5.0 → 1.6.0

raw patch · 33 files changed

+489/−487 lines, 33 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

README.md +1/−1
amazonka-ecr.cabal +5/−5
gen/Network/AWS/ECR.hs +2/−2
gen/Network/AWS/ECR/BatchCheckLayerAvailability.hs +15/−15
gen/Network/AWS/ECR/BatchDeleteImage.hs +15/−15
gen/Network/AWS/ECR/BatchGetImage.hs +17/−17
gen/Network/AWS/ECR/CompleteLayerUpload.hs +21/−21
gen/Network/AWS/ECR/CreateRepository.hs +5/−5
gen/Network/AWS/ECR/DeleteLifecyclePolicy.hs +19/−19
gen/Network/AWS/ECR/DeleteRepository.hs +11/−11
gen/Network/AWS/ECR/DeleteRepositoryPolicy.hs +13/−13
gen/Network/AWS/ECR/DescribeImages.hs +25/−25
gen/Network/AWS/ECR/DescribeRepositories.hs +21/−21
gen/Network/AWS/ECR/GetAuthorizationToken.hs +5/−5
gen/Network/AWS/ECR/GetDownloadURLForLayer.hs +15/−15
gen/Network/AWS/ECR/GetLifecyclePolicy.hs +19/−19
gen/Network/AWS/ECR/GetLifecyclePolicyPreview.hs +39/−39
gen/Network/AWS/ECR/GetRepositoryPolicy.hs +13/−13
gen/Network/AWS/ECR/InitiateLayerUpload.hs +11/−11
gen/Network/AWS/ECR/ListImages.hs +19/−19
gen/Network/AWS/ECR/PutImage.hs +13/−13
gen/Network/AWS/ECR/PutLifecyclePolicy.hs +18/−18
gen/Network/AWS/ECR/SetRepositoryPolicy.hs +19/−19
gen/Network/AWS/ECR/StartLifecyclePolicyPreview.hs +19/−19
gen/Network/AWS/ECR/Types.hs +19/−17
gen/Network/AWS/ECR/Types/Product.hs +79/−79
gen/Network/AWS/ECR/Types/Sum.hs +1/−1
gen/Network/AWS/ECR/UploadLayerPart.hs +25/−25
gen/Network/AWS/ECR/Waiters.hs +1/−1
test/Main.hs +1/−1
test/Test/AWS/ECR.hs +1/−1
test/Test/AWS/ECR/Internal.hs +1/−1
test/Test/AWS/Gen/ECR.hs +1/−1

README.md view

@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description

amazonka-ecr.cabal view

@@ -1,5 +1,5 @@ name:                  amazonka-ecr-version:               1.5.0+version:               1.6.0 synopsis:              Amazon EC2 Container Registry SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -75,7 +75,7 @@         , Network.AWS.ECR.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-ecr-test@@ -95,8 +95,8 @@         , Test.AWS.ECR.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-ecr         , base         , bytestring

gen/Network/AWS/ECR.hs view

@@ -5,13 +5,13 @@  -- | -- Module      : Network.AWS.ECR--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Amazon EC2 Container Registry (Amazon ECR) is a managed Docker registry service. Customers can use the familiar Docker CLI to push, pull, and manage images. Amazon ECR provides a secure, scalable, and reliable registry. Amazon ECR supports private Docker repositories with resource-based permissions using IAM so that specific users or Amazon EC2 instances can access repositories and images. Developers can use the Docker CLI to author and manage images.+-- Amazon Elastic Container Registry (Amazon ECR) is a managed Docker registry service. Customers can use the familiar Docker CLI to push, pull, and manage images. Amazon ECR provides a secure, scalable, and reliable registry. Amazon ECR supports private Docker repositories with resource-based permissions using IAM so that specific users or Amazon EC2 instances can access repositories and images. Developers can use the Docker CLI to author and manage images. -- -- module Network.AWS.ECR

gen/Network/AWS/ECR/BatchCheckLayerAvailability.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECR.BatchCheckLayerAvailability--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,23 +70,23 @@     -> BatchCheckLayerAvailability batchCheckLayerAvailability pRepositoryName_ pLayerDigests_ =   BatchCheckLayerAvailability'-  { _bclaRegistryId = Nothing-  , _bclaRepositoryName = pRepositoryName_-  , _bclaLayerDigests = _List1 # pLayerDigests_-  }+    { _bclaRegistryId = Nothing+    , _bclaRepositoryName = pRepositoryName_+    , _bclaLayerDigests = _List1 # pLayerDigests_+    }   -- | The AWS account ID associated with the registry that contains the image layers to check. If you do not specify a registry, the default registry is assumed. bclaRegistryId :: Lens' BatchCheckLayerAvailability (Maybe Text)-bclaRegistryId = lens _bclaRegistryId (\ s a -> s{_bclaRegistryId = a});+bclaRegistryId = lens _bclaRegistryId (\ s a -> s{_bclaRegistryId = a})  -- | The name of the repository that is associated with the image layers to check. bclaRepositoryName :: Lens' BatchCheckLayerAvailability Text-bclaRepositoryName = lens _bclaRepositoryName (\ s a -> s{_bclaRepositoryName = a});+bclaRepositoryName = lens _bclaRepositoryName (\ s a -> s{_bclaRepositoryName = a})  -- | The digests of the image layers to check. bclaLayerDigests :: Lens' BatchCheckLayerAvailability (NonEmpty Text)-bclaLayerDigests = lens _bclaLayerDigests (\ s a -> s{_bclaLayerDigests = a}) . _List1;+bclaLayerDigests = lens _bclaLayerDigests (\ s a -> s{_bclaLayerDigests = a}) . _List1  instance AWSRequest BatchCheckLayerAvailability where         type Rs BatchCheckLayerAvailability =@@ -150,23 +150,23 @@     -> BatchCheckLayerAvailabilityResponse batchCheckLayerAvailabilityResponse pResponseStatus_ =   BatchCheckLayerAvailabilityResponse'-  { _bclarsFailures = Nothing-  , _bclarsLayers = Nothing-  , _bclarsResponseStatus = pResponseStatus_-  }+    { _bclarsFailures = Nothing+    , _bclarsLayers = Nothing+    , _bclarsResponseStatus = pResponseStatus_+    }   -- | Any failures associated with the call. bclarsFailures :: Lens' BatchCheckLayerAvailabilityResponse [LayerFailure]-bclarsFailures = lens _bclarsFailures (\ s a -> s{_bclarsFailures = a}) . _Default . _Coerce;+bclarsFailures = lens _bclarsFailures (\ s a -> s{_bclarsFailures = a}) . _Default . _Coerce  -- | A list of image layer objects corresponding to the image layer references in the request. bclarsLayers :: Lens' BatchCheckLayerAvailabilityResponse [Layer]-bclarsLayers = lens _bclarsLayers (\ s a -> s{_bclarsLayers = a}) . _Default . _Coerce;+bclarsLayers = lens _bclarsLayers (\ s a -> s{_bclarsLayers = a}) . _Default . _Coerce  -- | -- | The response status code. bclarsResponseStatus :: Lens' BatchCheckLayerAvailabilityResponse Int-bclarsResponseStatus = lens _bclarsResponseStatus (\ s a -> s{_bclarsResponseStatus = a});+bclarsResponseStatus = lens _bclarsResponseStatus (\ s a -> s{_bclarsResponseStatus = a})  instance NFData BatchCheckLayerAvailabilityResponse          where

gen/Network/AWS/ECR/BatchDeleteImage.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECR.BatchDeleteImage--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -77,23 +77,23 @@     -> BatchDeleteImage batchDeleteImage pRepositoryName_ =   BatchDeleteImage'-  { _bdiRegistryId = Nothing-  , _bdiRepositoryName = pRepositoryName_-  , _bdiImageIds = mempty-  }+    { _bdiRegistryId = Nothing+    , _bdiRepositoryName = pRepositoryName_+    , _bdiImageIds = mempty+    }   -- | The AWS account ID associated with the registry that contains the image to delete. If you do not specify a registry, the default registry is assumed. bdiRegistryId :: Lens' BatchDeleteImage (Maybe Text)-bdiRegistryId = lens _bdiRegistryId (\ s a -> s{_bdiRegistryId = a});+bdiRegistryId = lens _bdiRegistryId (\ s a -> s{_bdiRegistryId = a})  -- | The repository that contains the image to delete. bdiRepositoryName :: Lens' BatchDeleteImage Text-bdiRepositoryName = lens _bdiRepositoryName (\ s a -> s{_bdiRepositoryName = a});+bdiRepositoryName = lens _bdiRepositoryName (\ s a -> s{_bdiRepositoryName = a})  -- | A list of image ID references that correspond to images to delete. The format of the @imageIds@ reference is @imageTag=tag@ or @imageDigest=digest@ . bdiImageIds :: Lens' BatchDeleteImage [ImageIdentifier]-bdiImageIds = lens _bdiImageIds (\ s a -> s{_bdiImageIds = a}) . _Coerce;+bdiImageIds = lens _bdiImageIds (\ s a -> s{_bdiImageIds = a}) . _Coerce  instance AWSRequest BatchDeleteImage where         type Rs BatchDeleteImage = BatchDeleteImageResponse@@ -156,22 +156,22 @@     -> BatchDeleteImageResponse batchDeleteImageResponse pResponseStatus_ =   BatchDeleteImageResponse'-  { _bdirsFailures = Nothing-  , _bdirsImageIds = Nothing-  , _bdirsResponseStatus = pResponseStatus_-  }+    { _bdirsFailures = Nothing+    , _bdirsImageIds = Nothing+    , _bdirsResponseStatus = pResponseStatus_+    }   -- | Any failures associated with the call. bdirsFailures :: Lens' BatchDeleteImageResponse [ImageFailure]-bdirsFailures = lens _bdirsFailures (\ s a -> s{_bdirsFailures = a}) . _Default . _Coerce;+bdirsFailures = lens _bdirsFailures (\ s a -> s{_bdirsFailures = a}) . _Default . _Coerce  -- | The image IDs of the deleted images. bdirsImageIds :: Lens' BatchDeleteImageResponse [ImageIdentifier]-bdirsImageIds = lens _bdirsImageIds (\ s a -> s{_bdirsImageIds = a}) . _Default . _Coerce;+bdirsImageIds = lens _bdirsImageIds (\ s a -> s{_bdirsImageIds = a}) . _Default . _Coerce  -- | -- | The response status code. bdirsResponseStatus :: Lens' BatchDeleteImageResponse Int-bdirsResponseStatus = lens _bdirsResponseStatus (\ s a -> s{_bdirsResponseStatus = a});+bdirsResponseStatus = lens _bdirsResponseStatus (\ s a -> s{_bdirsResponseStatus = a})  instance NFData BatchDeleteImageResponse where

gen/Network/AWS/ECR/BatchGetImage.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECR.BatchGetImage--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -73,28 +73,28 @@     -> BatchGetImage batchGetImage pRepositoryName_ =   BatchGetImage'-  { _bgiRegistryId = Nothing-  , _bgiAcceptedMediaTypes = Nothing-  , _bgiRepositoryName = pRepositoryName_-  , _bgiImageIds = mempty-  }+    { _bgiRegistryId = Nothing+    , _bgiAcceptedMediaTypes = Nothing+    , _bgiRepositoryName = pRepositoryName_+    , _bgiImageIds = mempty+    }   -- | The AWS account ID associated with the registry that contains the images to describe. If you do not specify a registry, the default registry is assumed. bgiRegistryId :: Lens' BatchGetImage (Maybe Text)-bgiRegistryId = lens _bgiRegistryId (\ s a -> s{_bgiRegistryId = a});+bgiRegistryId = lens _bgiRegistryId (\ s a -> s{_bgiRegistryId = a})  -- | The accepted media types for the request. Valid values: @application/vnd.docker.distribution.manifest.v1+json@ | @application/vnd.docker.distribution.manifest.v2+json@ | @application/vnd.oci.image.manifest.v1+json@ bgiAcceptedMediaTypes :: Lens' BatchGetImage (Maybe (NonEmpty Text))-bgiAcceptedMediaTypes = lens _bgiAcceptedMediaTypes (\ s a -> s{_bgiAcceptedMediaTypes = a}) . mapping _List1;+bgiAcceptedMediaTypes = lens _bgiAcceptedMediaTypes (\ s a -> s{_bgiAcceptedMediaTypes = a}) . mapping _List1  -- | The repository that contains the images to describe. bgiRepositoryName :: Lens' BatchGetImage Text-bgiRepositoryName = lens _bgiRepositoryName (\ s a -> s{_bgiRepositoryName = a});+bgiRepositoryName = lens _bgiRepositoryName (\ s a -> s{_bgiRepositoryName = a})  -- | A list of image ID references that correspond to images to describe. The format of the @imageIds@ reference is @imageTag=tag@ or @imageDigest=digest@ . bgiImageIds :: Lens' BatchGetImage [ImageIdentifier]-bgiImageIds = lens _bgiImageIds (\ s a -> s{_bgiImageIds = a}) . _Coerce;+bgiImageIds = lens _bgiImageIds (\ s a -> s{_bgiImageIds = a}) . _Coerce  instance AWSRequest BatchGetImage where         type Rs BatchGetImage = BatchGetImageResponse@@ -158,22 +158,22 @@     -> BatchGetImageResponse batchGetImageResponse pResponseStatus_ =   BatchGetImageResponse'-  { _bgirsImages = Nothing-  , _bgirsFailures = Nothing-  , _bgirsResponseStatus = pResponseStatus_-  }+    { _bgirsImages = Nothing+    , _bgirsFailures = Nothing+    , _bgirsResponseStatus = pResponseStatus_+    }   -- | A list of image objects corresponding to the image references in the request. bgirsImages :: Lens' BatchGetImageResponse [Image]-bgirsImages = lens _bgirsImages (\ s a -> s{_bgirsImages = a}) . _Default . _Coerce;+bgirsImages = lens _bgirsImages (\ s a -> s{_bgirsImages = a}) . _Default . _Coerce  -- | Any failures associated with the call. bgirsFailures :: Lens' BatchGetImageResponse [ImageFailure]-bgirsFailures = lens _bgirsFailures (\ s a -> s{_bgirsFailures = a}) . _Default . _Coerce;+bgirsFailures = lens _bgirsFailures (\ s a -> s{_bgirsFailures = a}) . _Default . _Coerce  -- | -- | The response status code. bgirsResponseStatus :: Lens' BatchGetImageResponse Int-bgirsResponseStatus = lens _bgirsResponseStatus (\ s a -> s{_bgirsResponseStatus = a});+bgirsResponseStatus = lens _bgirsResponseStatus (\ s a -> s{_bgirsResponseStatus = a})  instance NFData BatchGetImageResponse where

gen/Network/AWS/ECR/CompleteLayerUpload.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECR.CompleteLayerUpload--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -77,28 +77,28 @@     -> CompleteLayerUpload completeLayerUpload pRepositoryName_ pUploadId_ pLayerDigests_ =   CompleteLayerUpload'-  { _cluRegistryId = Nothing-  , _cluRepositoryName = pRepositoryName_-  , _cluUploadId = pUploadId_-  , _cluLayerDigests = _List1 # pLayerDigests_-  }+    { _cluRegistryId = Nothing+    , _cluRepositoryName = pRepositoryName_+    , _cluUploadId = pUploadId_+    , _cluLayerDigests = _List1 # pLayerDigests_+    }   -- | The AWS account ID associated with the registry to which to upload layers. If you do not specify a registry, the default registry is assumed. cluRegistryId :: Lens' CompleteLayerUpload (Maybe Text)-cluRegistryId = lens _cluRegistryId (\ s a -> s{_cluRegistryId = a});+cluRegistryId = lens _cluRegistryId (\ s a -> s{_cluRegistryId = a})  -- | The name of the repository to associate with the image layer. cluRepositoryName :: Lens' CompleteLayerUpload Text-cluRepositoryName = lens _cluRepositoryName (\ s a -> s{_cluRepositoryName = a});+cluRepositoryName = lens _cluRepositoryName (\ s a -> s{_cluRepositoryName = a})  -- | The upload ID from a previous 'InitiateLayerUpload' operation to associate with the image layer. cluUploadId :: Lens' CompleteLayerUpload Text-cluUploadId = lens _cluUploadId (\ s a -> s{_cluUploadId = a});+cluUploadId = lens _cluUploadId (\ s a -> s{_cluUploadId = a})  -- | The @sha256@ digest of the image layer. cluLayerDigests :: Lens' CompleteLayerUpload (NonEmpty Text)-cluLayerDigests = lens _cluLayerDigests (\ s a -> s{_cluLayerDigests = a}) . _List1;+cluLayerDigests = lens _cluLayerDigests (\ s a -> s{_cluLayerDigests = a}) . _List1  instance AWSRequest CompleteLayerUpload where         type Rs CompleteLayerUpload =@@ -170,32 +170,32 @@     -> CompleteLayerUploadResponse completeLayerUploadResponse pResponseStatus_ =   CompleteLayerUploadResponse'-  { _clursRegistryId = Nothing-  , _clursLayerDigest = Nothing-  , _clursRepositoryName = Nothing-  , _clursUploadId = Nothing-  , _clursResponseStatus = pResponseStatus_-  }+    { _clursRegistryId = Nothing+    , _clursLayerDigest = Nothing+    , _clursRepositoryName = Nothing+    , _clursUploadId = Nothing+    , _clursResponseStatus = pResponseStatus_+    }   -- | The registry ID associated with the request. clursRegistryId :: Lens' CompleteLayerUploadResponse (Maybe Text)-clursRegistryId = lens _clursRegistryId (\ s a -> s{_clursRegistryId = a});+clursRegistryId = lens _clursRegistryId (\ s a -> s{_clursRegistryId = a})  -- | The @sha256@ digest of the image layer. clursLayerDigest :: Lens' CompleteLayerUploadResponse (Maybe Text)-clursLayerDigest = lens _clursLayerDigest (\ s a -> s{_clursLayerDigest = a});+clursLayerDigest = lens _clursLayerDigest (\ s a -> s{_clursLayerDigest = a})  -- | The repository name associated with the request. clursRepositoryName :: Lens' CompleteLayerUploadResponse (Maybe Text)-clursRepositoryName = lens _clursRepositoryName (\ s a -> s{_clursRepositoryName = a});+clursRepositoryName = lens _clursRepositoryName (\ s a -> s{_clursRepositoryName = a})  -- | The upload ID associated with the layer. clursUploadId :: Lens' CompleteLayerUploadResponse (Maybe Text)-clursUploadId = lens _clursUploadId (\ s a -> s{_clursUploadId = a});+clursUploadId = lens _clursUploadId (\ s a -> s{_clursUploadId = a})  -- | -- | The response status code. clursResponseStatus :: Lens' CompleteLayerUploadResponse Int-clursResponseStatus = lens _clursResponseStatus (\ s a -> s{_clursResponseStatus = a});+clursResponseStatus = lens _clursResponseStatus (\ s a -> s{_clursResponseStatus = a})  instance NFData CompleteLayerUploadResponse where

gen/Network/AWS/ECR/CreateRepository.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECR.CreateRepository--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@  -- | The name to use for the repository. The repository name may be specified on its own (such as @nginx-web-app@ ) or it can be prepended with a namespace to group the repository into a category (such as @project-a/nginx-web-app@ ). crRepositoryName :: Lens' CreateRepository Text-crRepositoryName = lens _crRepositoryName (\ s a -> s{_crRepositoryName = a});+crRepositoryName = lens _crRepositoryName (\ s a -> s{_crRepositoryName = a})  instance AWSRequest CreateRepository where         type Rs CreateRepository = CreateRepositoryResponse@@ -120,15 +120,15 @@     -> CreateRepositoryResponse createRepositoryResponse pResponseStatus_ =   CreateRepositoryResponse'-  {_crrsRepository = Nothing, _crrsResponseStatus = pResponseStatus_}+    {_crrsRepository = Nothing, _crrsResponseStatus = pResponseStatus_}   -- | The repository that was created. crrsRepository :: Lens' CreateRepositoryResponse (Maybe Repository)-crrsRepository = lens _crrsRepository (\ s a -> s{_crrsRepository = a});+crrsRepository = lens _crrsRepository (\ s a -> s{_crrsRepository = a})  -- | -- | The response status code. crrsResponseStatus :: Lens' CreateRepositoryResponse Int-crrsResponseStatus = lens _crrsResponseStatus (\ s a -> s{_crrsResponseStatus = a});+crrsResponseStatus = lens _crrsResponseStatus (\ s a -> s{_crrsResponseStatus = a})  instance NFData CreateRepositoryResponse where

gen/Network/AWS/ECR/DeleteLifecyclePolicy.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECR.DeleteLifecyclePolicy--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -61,22 +61,22 @@ -- -- * 'dlpRegistryId' - The AWS account ID associated with the registry that contains the repository. If you do not specify a registry, the default registry is assumed. ----- * 'dlpRepositoryName' - The name of the repository that is associated with the repository policy to  delete.+-- * 'dlpRepositoryName' - The name of the repository. deleteLifecyclePolicy     :: Text -- ^ 'dlpRepositoryName'     -> DeleteLifecyclePolicy deleteLifecyclePolicy pRepositoryName_ =   DeleteLifecyclePolicy'-  {_dlpRegistryId = Nothing, _dlpRepositoryName = pRepositoryName_}+    {_dlpRegistryId = Nothing, _dlpRepositoryName = pRepositoryName_}   -- | The AWS account ID associated with the registry that contains the repository. If you do not specify a registry, the default registry is assumed. dlpRegistryId :: Lens' DeleteLifecyclePolicy (Maybe Text)-dlpRegistryId = lens _dlpRegistryId (\ s a -> s{_dlpRegistryId = a});+dlpRegistryId = lens _dlpRegistryId (\ s a -> s{_dlpRegistryId = a}) --- | The name of the repository that is associated with the repository policy to  delete.+-- | The name of the repository. dlpRepositoryName :: Lens' DeleteLifecyclePolicy Text-dlpRepositoryName = lens _dlpRepositoryName (\ s a -> s{_dlpRepositoryName = a});+dlpRepositoryName = lens _dlpRepositoryName (\ s a -> s{_dlpRepositoryName = a})  instance AWSRequest DeleteLifecyclePolicy where         type Rs DeleteLifecyclePolicy =@@ -136,7 +136,7 @@ -- -- * 'dlprsLastEvaluatedAt' - The time stamp of the last time that the lifecycle policy was run. ----- * 'dlprsLifecyclePolicyText' - The JSON repository policy text.+-- * 'dlprsLifecyclePolicyText' - The JSON lifecycle policy text. -- -- * 'dlprsRepositoryName' - The repository name associated with the request. --@@ -146,32 +146,32 @@     -> DeleteLifecyclePolicyResponse deleteLifecyclePolicyResponse pResponseStatus_ =   DeleteLifecyclePolicyResponse'-  { _dlprsRegistryId = Nothing-  , _dlprsLastEvaluatedAt = Nothing-  , _dlprsLifecyclePolicyText = Nothing-  , _dlprsRepositoryName = Nothing-  , _dlprsResponseStatus = pResponseStatus_-  }+    { _dlprsRegistryId = Nothing+    , _dlprsLastEvaluatedAt = Nothing+    , _dlprsLifecyclePolicyText = Nothing+    , _dlprsRepositoryName = Nothing+    , _dlprsResponseStatus = pResponseStatus_+    }   -- | The registry ID associated with the request. dlprsRegistryId :: Lens' DeleteLifecyclePolicyResponse (Maybe Text)-dlprsRegistryId = lens _dlprsRegistryId (\ s a -> s{_dlprsRegistryId = a});+dlprsRegistryId = lens _dlprsRegistryId (\ s a -> s{_dlprsRegistryId = a})  -- | The time stamp of the last time that the lifecycle policy was run. dlprsLastEvaluatedAt :: Lens' DeleteLifecyclePolicyResponse (Maybe UTCTime)-dlprsLastEvaluatedAt = lens _dlprsLastEvaluatedAt (\ s a -> s{_dlprsLastEvaluatedAt = a}) . mapping _Time;+dlprsLastEvaluatedAt = lens _dlprsLastEvaluatedAt (\ s a -> s{_dlprsLastEvaluatedAt = a}) . mapping _Time --- | The JSON repository policy text.+-- | The JSON lifecycle policy text. dlprsLifecyclePolicyText :: Lens' DeleteLifecyclePolicyResponse (Maybe Text)-dlprsLifecyclePolicyText = lens _dlprsLifecyclePolicyText (\ s a -> s{_dlprsLifecyclePolicyText = a});+dlprsLifecyclePolicyText = lens _dlprsLifecyclePolicyText (\ s a -> s{_dlprsLifecyclePolicyText = a})  -- | The repository name associated with the request. dlprsRepositoryName :: Lens' DeleteLifecyclePolicyResponse (Maybe Text)-dlprsRepositoryName = lens _dlprsRepositoryName (\ s a -> s{_dlprsRepositoryName = a});+dlprsRepositoryName = lens _dlprsRepositoryName (\ s a -> s{_dlprsRepositoryName = a})  -- | -- | The response status code. dlprsResponseStatus :: Lens' DeleteLifecyclePolicyResponse Int-dlprsResponseStatus = lens _dlprsResponseStatus (\ s a -> s{_dlprsResponseStatus = a});+dlprsResponseStatus = lens _dlprsResponseStatus (\ s a -> s{_dlprsResponseStatus = a})  instance NFData DeleteLifecyclePolicyResponse where

gen/Network/AWS/ECR/DeleteRepository.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECR.DeleteRepository--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,23 +68,23 @@     -> DeleteRepository deleteRepository pRepositoryName_ =   DeleteRepository'-  { _dForce = Nothing-  , _dRegistryId = Nothing-  , _dRepositoryName = pRepositoryName_-  }+    { _dForce = Nothing+    , _dRegistryId = Nothing+    , _dRepositoryName = pRepositoryName_+    }   -- | If a repository contains images, forces the deletion. dForce :: Lens' DeleteRepository (Maybe Bool)-dForce = lens _dForce (\ s a -> s{_dForce = a});+dForce = lens _dForce (\ s a -> s{_dForce = a})  -- | The AWS account ID associated with the registry that contains the repository to delete. If you do not specify a registry, the default registry is assumed. dRegistryId :: Lens' DeleteRepository (Maybe Text)-dRegistryId = lens _dRegistryId (\ s a -> s{_dRegistryId = a});+dRegistryId = lens _dRegistryId (\ s a -> s{_dRegistryId = a})  -- | The name of the repository to delete. dRepositoryName :: Lens' DeleteRepository Text-dRepositoryName = lens _dRepositoryName (\ s a -> s{_dRepositoryName = a});+dRepositoryName = lens _dRepositoryName (\ s a -> s{_dRepositoryName = a})  instance AWSRequest DeleteRepository where         type Rs DeleteRepository = DeleteRepositoryResponse@@ -142,15 +142,15 @@     -> DeleteRepositoryResponse deleteRepositoryResponse pResponseStatus_ =   DeleteRepositoryResponse'-  {_drsRepository = Nothing, _drsResponseStatus = pResponseStatus_}+    {_drsRepository = Nothing, _drsResponseStatus = pResponseStatus_}   -- | The repository that was deleted. drsRepository :: Lens' DeleteRepositoryResponse (Maybe Repository)-drsRepository = lens _drsRepository (\ s a -> s{_drsRepository = a});+drsRepository = lens _drsRepository (\ s a -> s{_drsRepository = a})  -- | -- | The response status code. drsResponseStatus :: Lens' DeleteRepositoryResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})  instance NFData DeleteRepositoryResponse where

gen/Network/AWS/ECR/DeleteRepositoryPolicy.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECR.DeleteRepositoryPolicy--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -66,16 +66,16 @@     -> DeleteRepositoryPolicy deleteRepositoryPolicy pRepositoryName_ =   DeleteRepositoryPolicy'-  {_drpRegistryId = Nothing, _drpRepositoryName = pRepositoryName_}+    {_drpRegistryId = Nothing, _drpRepositoryName = pRepositoryName_}   -- | The AWS account ID associated with the registry that contains the repository policy to delete. If you do not specify a registry, the default registry is assumed. drpRegistryId :: Lens' DeleteRepositoryPolicy (Maybe Text)-drpRegistryId = lens _drpRegistryId (\ s a -> s{_drpRegistryId = a});+drpRegistryId = lens _drpRegistryId (\ s a -> s{_drpRegistryId = a})  -- | The name of the repository that is associated with the repository policy to delete. drpRepositoryName :: Lens' DeleteRepositoryPolicy Text-drpRepositoryName = lens _drpRepositoryName (\ s a -> s{_drpRepositoryName = a});+drpRepositoryName = lens _drpRepositoryName (\ s a -> s{_drpRepositoryName = a})  instance AWSRequest DeleteRepositoryPolicy where         type Rs DeleteRepositoryPolicy =@@ -141,27 +141,27 @@     -> DeleteRepositoryPolicyResponse deleteRepositoryPolicyResponse pResponseStatus_ =   DeleteRepositoryPolicyResponse'-  { _drprsRegistryId = Nothing-  , _drprsRepositoryName = Nothing-  , _drprsPolicyText = Nothing-  , _drprsResponseStatus = pResponseStatus_-  }+    { _drprsRegistryId = Nothing+    , _drprsRepositoryName = Nothing+    , _drprsPolicyText = Nothing+    , _drprsResponseStatus = pResponseStatus_+    }   -- | The registry ID associated with the request. drprsRegistryId :: Lens' DeleteRepositoryPolicyResponse (Maybe Text)-drprsRegistryId = lens _drprsRegistryId (\ s a -> s{_drprsRegistryId = a});+drprsRegistryId = lens _drprsRegistryId (\ s a -> s{_drprsRegistryId = a})  -- | The repository name associated with the request. drprsRepositoryName :: Lens' DeleteRepositoryPolicyResponse (Maybe Text)-drprsRepositoryName = lens _drprsRepositoryName (\ s a -> s{_drprsRepositoryName = a});+drprsRepositoryName = lens _drprsRepositoryName (\ s a -> s{_drprsRepositoryName = a})  -- | The JSON repository policy that was deleted from the repository. drprsPolicyText :: Lens' DeleteRepositoryPolicyResponse (Maybe Text)-drprsPolicyText = lens _drprsPolicyText (\ s a -> s{_drprsPolicyText = a});+drprsPolicyText = lens _drprsPolicyText (\ s a -> s{_drprsPolicyText = a})  -- | -- | The response status code. drprsResponseStatus :: Lens' DeleteRepositoryPolicyResponse Int-drprsResponseStatus = lens _drprsResponseStatus (\ s a -> s{_drprsResponseStatus = a});+drprsResponseStatus = lens _drprsResponseStatus (\ s a -> s{_drprsResponseStatus = a})  instance NFData DeleteRepositoryPolicyResponse where

gen/Network/AWS/ECR/DescribeImages.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECR.DescribeImages--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,11 +72,11 @@ -- -- * 'diImageIds' - The list of image IDs for the requested repository. ----- * 'diNextToken' - The @nextToken@ value returned from a previous paginated @DescribeImages@ request where @maxResults@ was used and the results exceeded the value of that parameter. Pagination continues from the end of the previous results that returned the @nextToken@ value. This value is @null@ when there are no more results to return.+-- * 'diNextToken' - The @nextToken@ value returned from a previous paginated @DescribeImages@ request where @maxResults@ was used and the results exceeded the value of that parameter. Pagination continues from the end of the previous results that returned the @nextToken@ value. This value is @null@ when there are no more results to return. This option cannot be used when you specify images with @imageIds@ . -- -- * 'diFilter' - The filter key and value with which to filter your @DescribeImages@ results. ----- * 'diMaxResults' - The maximum number of repository results returned by @DescribeImages@ in paginated output. When this parameter is used, @DescribeImages@ only returns @maxResults@ results in a single page along with a @nextToken@ response element. The remaining results of the initial request can be seen by sending another @DescribeImages@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @DescribeImages@ returns up to 100 results and a @nextToken@ value, if applicable.+-- * 'diMaxResults' - The maximum number of repository results returned by @DescribeImages@ in paginated output. When this parameter is used, @DescribeImages@ only returns @maxResults@ results in a single page along with a @nextToken@ response element. The remaining results of the initial request can be seen by sending another @DescribeImages@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @DescribeImages@ returns up to 100 results and a @nextToken@ value, if applicable. This option cannot be used when you specify images with @imageIds@ . -- -- * 'diRepositoryName' - A list of repositories to describe. If this parameter is omitted, then all repositories in a registry are described. describeImages@@ -84,38 +84,38 @@     -> DescribeImages describeImages pRepositoryName_ =   DescribeImages'-  { _diRegistryId = Nothing-  , _diImageIds = Nothing-  , _diNextToken = Nothing-  , _diFilter = Nothing-  , _diMaxResults = Nothing-  , _diRepositoryName = pRepositoryName_-  }+    { _diRegistryId = Nothing+    , _diImageIds = Nothing+    , _diNextToken = Nothing+    , _diFilter = Nothing+    , _diMaxResults = Nothing+    , _diRepositoryName = pRepositoryName_+    }   -- | The AWS account ID associated with the registry that contains the repository in which to describe images. If you do not specify a registry, the default registry is assumed. diRegistryId :: Lens' DescribeImages (Maybe Text)-diRegistryId = lens _diRegistryId (\ s a -> s{_diRegistryId = a});+diRegistryId = lens _diRegistryId (\ s a -> s{_diRegistryId = a})  -- | The list of image IDs for the requested repository. diImageIds :: Lens' DescribeImages [ImageIdentifier]-diImageIds = lens _diImageIds (\ s a -> s{_diImageIds = a}) . _Default . _Coerce;+diImageIds = lens _diImageIds (\ s a -> s{_diImageIds = a}) . _Default . _Coerce --- | The @nextToken@ value returned from a previous paginated @DescribeImages@ request where @maxResults@ was used and the results exceeded the value of that parameter. Pagination continues from the end of the previous results that returned the @nextToken@ value. This value is @null@ when there are no more results to return.+-- | The @nextToken@ value returned from a previous paginated @DescribeImages@ request where @maxResults@ was used and the results exceeded the value of that parameter. Pagination continues from the end of the previous results that returned the @nextToken@ value. This value is @null@ when there are no more results to return. This option cannot be used when you specify images with @imageIds@ . diNextToken :: Lens' DescribeImages (Maybe Text)-diNextToken = lens _diNextToken (\ s a -> s{_diNextToken = a});+diNextToken = lens _diNextToken (\ s a -> s{_diNextToken = a})  -- | The filter key and value with which to filter your @DescribeImages@ results. diFilter :: Lens' DescribeImages (Maybe DescribeImagesFilter)-diFilter = lens _diFilter (\ s a -> s{_diFilter = a});+diFilter = lens _diFilter (\ s a -> s{_diFilter = a}) --- | The maximum number of repository results returned by @DescribeImages@ in paginated output. When this parameter is used, @DescribeImages@ only returns @maxResults@ results in a single page along with a @nextToken@ response element. The remaining results of the initial request can be seen by sending another @DescribeImages@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @DescribeImages@ returns up to 100 results and a @nextToken@ value, if applicable.+-- | The maximum number of repository results returned by @DescribeImages@ in paginated output. When this parameter is used, @DescribeImages@ only returns @maxResults@ results in a single page along with a @nextToken@ response element. The remaining results of the initial request can be seen by sending another @DescribeImages@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @DescribeImages@ returns up to 100 results and a @nextToken@ value, if applicable. This option cannot be used when you specify images with @imageIds@ . diMaxResults :: Lens' DescribeImages (Maybe Natural)-diMaxResults = lens _diMaxResults (\ s a -> s{_diMaxResults = a}) . mapping _Nat;+diMaxResults = lens _diMaxResults (\ s a -> s{_diMaxResults = a}) . mapping _Nat  -- | A list of repositories to describe. If this parameter is omitted, then all repositories in a registry are described. diRepositoryName :: Lens' DescribeImages Text-diRepositoryName = lens _diRepositoryName (\ s a -> s{_diRepositoryName = a});+diRepositoryName = lens _diRepositoryName (\ s a -> s{_diRepositoryName = a})  instance AWSPager DescribeImages where         page rq rs@@ -188,22 +188,22 @@     -> DescribeImagesResponse describeImagesResponse pResponseStatus_ =   DescribeImagesResponse'-  { _dirsImageDetails = Nothing-  , _dirsNextToken = Nothing-  , _dirsResponseStatus = pResponseStatus_-  }+    { _dirsImageDetails = Nothing+    , _dirsNextToken = Nothing+    , _dirsResponseStatus = pResponseStatus_+    }   -- | A list of 'ImageDetail' objects that contain data about the image. dirsImageDetails :: Lens' DescribeImagesResponse [ImageDetail]-dirsImageDetails = lens _dirsImageDetails (\ s a -> s{_dirsImageDetails = a}) . _Default . _Coerce;+dirsImageDetails = lens _dirsImageDetails (\ s a -> s{_dirsImageDetails = a}) . _Default . _Coerce  -- | The @nextToken@ value to include in a future @DescribeImages@ request. When the results of a @DescribeImages@ request exceed @maxResults@ , this value can be used to retrieve the next page of results. This value is @null@ when there are no more results to return. dirsNextToken :: Lens' DescribeImagesResponse (Maybe Text)-dirsNextToken = lens _dirsNextToken (\ s a -> s{_dirsNextToken = a});+dirsNextToken = lens _dirsNextToken (\ s a -> s{_dirsNextToken = a})  -- | -- | The response status code. dirsResponseStatus :: Lens' DescribeImagesResponse Int-dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a});+dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a})  instance NFData DescribeImagesResponse where

gen/Network/AWS/ECR/DescribeRepositories.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECR.DescribeRepositories--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,35 +68,35 @@ -- -- * 'drRepositoryNames' - A list of repositories to describe. If this parameter is omitted, then all repositories in a registry are described. ----- * 'drNextToken' - The @nextToken@ value returned from a previous paginated @DescribeRepositories@ request where @maxResults@ was used and the results exceeded the value of that parameter. Pagination continues from the end of the previous results that returned the @nextToken@ value. This value is @null@ when there are no more results to return.+-- * 'drNextToken' - The @nextToken@ value returned from a previous paginated @DescribeRepositories@ request where @maxResults@ was used and the results exceeded the value of that parameter. Pagination continues from the end of the previous results that returned the @nextToken@ value. This value is @null@ when there are no more results to return. This option cannot be used when you specify repositories with @repositoryNames@ . ----- * 'drMaxResults' - The maximum number of repository results returned by @DescribeRepositories@ in paginated output. When this parameter is used, @DescribeRepositories@ only returns @maxResults@ results in a single page along with a @nextToken@ response element. The remaining results of the initial request can be seen by sending another @DescribeRepositories@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @DescribeRepositories@ returns up to 100 results and a @nextToken@ value, if applicable.+-- * 'drMaxResults' - The maximum number of repository results returned by @DescribeRepositories@ in paginated output. When this parameter is used, @DescribeRepositories@ only returns @maxResults@ results in a single page along with a @nextToken@ response element. The remaining results of the initial request can be seen by sending another @DescribeRepositories@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @DescribeRepositories@ returns up to 100 results and a @nextToken@ value, if applicable. This option cannot be used when you specify repositories with @repositoryNames@ . describeRepositories     :: DescribeRepositories describeRepositories =   DescribeRepositories'-  { _drRegistryId = Nothing-  , _drRepositoryNames = Nothing-  , _drNextToken = Nothing-  , _drMaxResults = Nothing-  }+    { _drRegistryId = Nothing+    , _drRepositoryNames = Nothing+    , _drNextToken = Nothing+    , _drMaxResults = Nothing+    }   -- | The AWS account ID associated with the registry that contains the repositories to be described. If you do not specify a registry, the default registry is assumed. drRegistryId :: Lens' DescribeRepositories (Maybe Text)-drRegistryId = lens _drRegistryId (\ s a -> s{_drRegistryId = a});+drRegistryId = lens _drRegistryId (\ s a -> s{_drRegistryId = a})  -- | A list of repositories to describe. If this parameter is omitted, then all repositories in a registry are described. drRepositoryNames :: Lens' DescribeRepositories (Maybe (NonEmpty Text))-drRepositoryNames = lens _drRepositoryNames (\ s a -> s{_drRepositoryNames = a}) . mapping _List1;+drRepositoryNames = lens _drRepositoryNames (\ s a -> s{_drRepositoryNames = a}) . mapping _List1 --- | The @nextToken@ value returned from a previous paginated @DescribeRepositories@ request where @maxResults@ was used and the results exceeded the value of that parameter. Pagination continues from the end of the previous results that returned the @nextToken@ value. This value is @null@ when there are no more results to return.+-- | The @nextToken@ value returned from a previous paginated @DescribeRepositories@ request where @maxResults@ was used and the results exceeded the value of that parameter. Pagination continues from the end of the previous results that returned the @nextToken@ value. This value is @null@ when there are no more results to return. This option cannot be used when you specify repositories with @repositoryNames@ . drNextToken :: Lens' DescribeRepositories (Maybe Text)-drNextToken = lens _drNextToken (\ s a -> s{_drNextToken = a});+drNextToken = lens _drNextToken (\ s a -> s{_drNextToken = a}) --- | The maximum number of repository results returned by @DescribeRepositories@ in paginated output. When this parameter is used, @DescribeRepositories@ only returns @maxResults@ results in a single page along with a @nextToken@ response element. The remaining results of the initial request can be seen by sending another @DescribeRepositories@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @DescribeRepositories@ returns up to 100 results and a @nextToken@ value, if applicable.+-- | The maximum number of repository results returned by @DescribeRepositories@ in paginated output. When this parameter is used, @DescribeRepositories@ only returns @maxResults@ results in a single page along with a @nextToken@ response element. The remaining results of the initial request can be seen by sending another @DescribeRepositories@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @DescribeRepositories@ returns up to 100 results and a @nextToken@ value, if applicable. This option cannot be used when you specify repositories with @repositoryNames@ . drMaxResults :: Lens' DescribeRepositories (Maybe Natural)-drMaxResults = lens _drMaxResults (\ s a -> s{_drMaxResults = a}) . mapping _Nat;+drMaxResults = lens _drMaxResults (\ s a -> s{_drMaxResults = a}) . mapping _Nat  instance AWSPager DescribeRepositories where         page rq rs@@ -168,22 +168,22 @@     -> DescribeRepositoriesResponse describeRepositoriesResponse pResponseStatus_ =   DescribeRepositoriesResponse'-  { _drrsRepositories = Nothing-  , _drrsNextToken = Nothing-  , _drrsResponseStatus = pResponseStatus_-  }+    { _drrsRepositories = Nothing+    , _drrsNextToken = Nothing+    , _drrsResponseStatus = pResponseStatus_+    }   -- | A list of repository objects corresponding to valid repositories. drrsRepositories :: Lens' DescribeRepositoriesResponse [Repository]-drrsRepositories = lens _drrsRepositories (\ s a -> s{_drrsRepositories = a}) . _Default . _Coerce;+drrsRepositories = lens _drrsRepositories (\ s a -> s{_drrsRepositories = a}) . _Default . _Coerce  -- | The @nextToken@ value to include in a future @DescribeRepositories@ request. When the results of a @DescribeRepositories@ request exceed @maxResults@ , this value can be used to retrieve the next page of results. This value is @null@ when there are no more results to return. drrsNextToken :: Lens' DescribeRepositoriesResponse (Maybe Text)-drrsNextToken = lens _drrsNextToken (\ s a -> s{_drrsNextToken = a});+drrsNextToken = lens _drrsNextToken (\ s a -> s{_drrsNextToken = a})  -- | -- | The response status code. drrsResponseStatus :: Lens' DescribeRepositoriesResponse Int-drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a});+drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a})  instance NFData DescribeRepositoriesResponse where

gen/Network/AWS/ECR/GetAuthorizationToken.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECR.GetAuthorizationToken--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@  -- | A list of AWS account IDs that are associated with the registries for which to get authorization tokens. If you do not specify a registry, the default registry is assumed. gatRegistryIds :: Lens' GetAuthorizationToken (Maybe (NonEmpty Text))-gatRegistryIds = lens _gatRegistryIds (\ s a -> s{_gatRegistryIds = a}) . mapping _List1;+gatRegistryIds = lens _gatRegistryIds (\ s a -> s{_gatRegistryIds = a}) . mapping _List1  instance AWSRequest GetAuthorizationToken where         type Rs GetAuthorizationToken =@@ -121,15 +121,15 @@     -> GetAuthorizationTokenResponse getAuthorizationTokenResponse pResponseStatus_ =   GetAuthorizationTokenResponse'-  {_gatrsAuthorizationData = Nothing, _gatrsResponseStatus = pResponseStatus_}+    {_gatrsAuthorizationData = Nothing, _gatrsResponseStatus = pResponseStatus_}   -- | A list of authorization token data objects that correspond to the @registryIds@ values in the request. gatrsAuthorizationData :: Lens' GetAuthorizationTokenResponse [AuthorizationData]-gatrsAuthorizationData = lens _gatrsAuthorizationData (\ s a -> s{_gatrsAuthorizationData = a}) . _Default . _Coerce;+gatrsAuthorizationData = lens _gatrsAuthorizationData (\ s a -> s{_gatrsAuthorizationData = a}) . _Default . _Coerce  -- | -- | The response status code. gatrsResponseStatus :: Lens' GetAuthorizationTokenResponse Int-gatrsResponseStatus = lens _gatrsResponseStatus (\ s a -> s{_gatrsResponseStatus = a});+gatrsResponseStatus = lens _gatrsResponseStatus (\ s a -> s{_gatrsResponseStatus = a})  instance NFData GetAuthorizationTokenResponse where

gen/Network/AWS/ECR/GetDownloadURLForLayer.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECR.GetDownloadURLForLayer--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,23 +70,23 @@     -> GetDownloadURLForLayer getDownloadURLForLayer pRepositoryName_ pLayerDigest_ =   GetDownloadURLForLayer'-  { _gduflRegistryId = Nothing-  , _gduflRepositoryName = pRepositoryName_-  , _gduflLayerDigest = pLayerDigest_-  }+    { _gduflRegistryId = Nothing+    , _gduflRepositoryName = pRepositoryName_+    , _gduflLayerDigest = pLayerDigest_+    }   -- | The AWS account ID associated with the registry that contains the image layer to download. If you do not specify a registry, the default registry is assumed. gduflRegistryId :: Lens' GetDownloadURLForLayer (Maybe Text)-gduflRegistryId = lens _gduflRegistryId (\ s a -> s{_gduflRegistryId = a});+gduflRegistryId = lens _gduflRegistryId (\ s a -> s{_gduflRegistryId = a})  -- | The name of the repository that is associated with the image layer to download. gduflRepositoryName :: Lens' GetDownloadURLForLayer Text-gduflRepositoryName = lens _gduflRepositoryName (\ s a -> s{_gduflRepositoryName = a});+gduflRepositoryName = lens _gduflRepositoryName (\ s a -> s{_gduflRepositoryName = a})  -- | The digest of the image layer to download. gduflLayerDigest :: Lens' GetDownloadURLForLayer Text-gduflLayerDigest = lens _gduflLayerDigest (\ s a -> s{_gduflLayerDigest = a});+gduflLayerDigest = lens _gduflLayerDigest (\ s a -> s{_gduflLayerDigest = a})  instance AWSRequest GetDownloadURLForLayer where         type Rs GetDownloadURLForLayer =@@ -149,22 +149,22 @@     -> GetDownloadURLForLayerResponse getDownloadURLForLayerResponse pResponseStatus_ =   GetDownloadURLForLayerResponse'-  { _gduflrsLayerDigest = Nothing-  , _gduflrsDownloadURL = Nothing-  , _gduflrsResponseStatus = pResponseStatus_-  }+    { _gduflrsLayerDigest = Nothing+    , _gduflrsDownloadURL = Nothing+    , _gduflrsResponseStatus = pResponseStatus_+    }   -- | The digest of the image layer to download. gduflrsLayerDigest :: Lens' GetDownloadURLForLayerResponse (Maybe Text)-gduflrsLayerDigest = lens _gduflrsLayerDigest (\ s a -> s{_gduflrsLayerDigest = a});+gduflrsLayerDigest = lens _gduflrsLayerDigest (\ s a -> s{_gduflrsLayerDigest = a})  -- | The pre-signed Amazon S3 download URL for the requested layer. gduflrsDownloadURL :: Lens' GetDownloadURLForLayerResponse (Maybe Text)-gduflrsDownloadURL = lens _gduflrsDownloadURL (\ s a -> s{_gduflrsDownloadURL = a});+gduflrsDownloadURL = lens _gduflrsDownloadURL (\ s a -> s{_gduflrsDownloadURL = a})  -- | -- | The response status code. gduflrsResponseStatus :: Lens' GetDownloadURLForLayerResponse Int-gduflrsResponseStatus = lens _gduflrsResponseStatus (\ s a -> s{_gduflrsResponseStatus = a});+gduflrsResponseStatus = lens _gduflrsResponseStatus (\ s a -> s{_gduflrsResponseStatus = a})  instance NFData GetDownloadURLForLayerResponse where

gen/Network/AWS/ECR/GetLifecyclePolicy.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECR.GetLifecyclePolicy--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -61,22 +61,22 @@ -- -- * 'glpRegistryId' - The AWS account ID associated with the registry that contains the repository. If you do not specify a registry, the default registry is assumed. ----- * 'glpRepositoryName' - The name of the repository with the policy to retrieve.+-- * 'glpRepositoryName' - The name of the repository. getLifecyclePolicy     :: Text -- ^ 'glpRepositoryName'     -> GetLifecyclePolicy getLifecyclePolicy pRepositoryName_ =   GetLifecyclePolicy'-  {_glpRegistryId = Nothing, _glpRepositoryName = pRepositoryName_}+    {_glpRegistryId = Nothing, _glpRepositoryName = pRepositoryName_}   -- | The AWS account ID associated with the registry that contains the repository. If you do not specify a registry, the default registry is assumed. glpRegistryId :: Lens' GetLifecyclePolicy (Maybe Text)-glpRegistryId = lens _glpRegistryId (\ s a -> s{_glpRegistryId = a});+glpRegistryId = lens _glpRegistryId (\ s a -> s{_glpRegistryId = a}) --- | The name of the repository with the policy to retrieve.+-- | The name of the repository. glpRepositoryName :: Lens' GetLifecyclePolicy Text-glpRepositoryName = lens _glpRepositoryName (\ s a -> s{_glpRepositoryName = a});+glpRepositoryName = lens _glpRepositoryName (\ s a -> s{_glpRepositoryName = a})  instance AWSRequest GetLifecyclePolicy where         type Rs GetLifecyclePolicy =@@ -136,7 +136,7 @@ -- -- * 'glprsLastEvaluatedAt' - The time stamp of the last time that the lifecycle policy was run. ----- * 'glprsLifecyclePolicyText' - The JSON repository policy text.+-- * 'glprsLifecyclePolicyText' - The JSON lifecycle policy text. -- -- * 'glprsRepositoryName' - The repository name associated with the request. --@@ -146,32 +146,32 @@     -> GetLifecyclePolicyResponse getLifecyclePolicyResponse pResponseStatus_ =   GetLifecyclePolicyResponse'-  { _glprsRegistryId = Nothing-  , _glprsLastEvaluatedAt = Nothing-  , _glprsLifecyclePolicyText = Nothing-  , _glprsRepositoryName = Nothing-  , _glprsResponseStatus = pResponseStatus_-  }+    { _glprsRegistryId = Nothing+    , _glprsLastEvaluatedAt = Nothing+    , _glprsLifecyclePolicyText = Nothing+    , _glprsRepositoryName = Nothing+    , _glprsResponseStatus = pResponseStatus_+    }   -- | The registry ID associated with the request. glprsRegistryId :: Lens' GetLifecyclePolicyResponse (Maybe Text)-glprsRegistryId = lens _glprsRegistryId (\ s a -> s{_glprsRegistryId = a});+glprsRegistryId = lens _glprsRegistryId (\ s a -> s{_glprsRegistryId = a})  -- | The time stamp of the last time that the lifecycle policy was run. glprsLastEvaluatedAt :: Lens' GetLifecyclePolicyResponse (Maybe UTCTime)-glprsLastEvaluatedAt = lens _glprsLastEvaluatedAt (\ s a -> s{_glprsLastEvaluatedAt = a}) . mapping _Time;+glprsLastEvaluatedAt = lens _glprsLastEvaluatedAt (\ s a -> s{_glprsLastEvaluatedAt = a}) . mapping _Time --- | The JSON repository policy text.+-- | The JSON lifecycle policy text. glprsLifecyclePolicyText :: Lens' GetLifecyclePolicyResponse (Maybe Text)-glprsLifecyclePolicyText = lens _glprsLifecyclePolicyText (\ s a -> s{_glprsLifecyclePolicyText = a});+glprsLifecyclePolicyText = lens _glprsLifecyclePolicyText (\ s a -> s{_glprsLifecyclePolicyText = a})  -- | The repository name associated with the request. glprsRepositoryName :: Lens' GetLifecyclePolicyResponse (Maybe Text)-glprsRepositoryName = lens _glprsRepositoryName (\ s a -> s{_glprsRepositoryName = a});+glprsRepositoryName = lens _glprsRepositoryName (\ s a -> s{_glprsRepositoryName = a})  -- | -- | The response status code. glprsResponseStatus :: Lens' GetLifecyclePolicyResponse Int-glprsResponseStatus = lens _glprsResponseStatus (\ s a -> s{_glprsResponseStatus = a});+glprsResponseStatus = lens _glprsResponseStatus (\ s a -> s{_glprsResponseStatus = a})  instance NFData GetLifecyclePolicyResponse where

gen/Network/AWS/ECR/GetLifecyclePolicyPreview.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECR.GetLifecyclePolicyPreview--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -74,50 +74,50 @@ -- -- * 'glppImageIds' - The list of imageIDs to be included. ----- * 'glppNextToken' - The @nextToken@ value returned from a previous paginated  @GetLifecyclePolicyPreviewRequest@ request where @maxResults@ was used and the  results exceeded the value of that parameter. Pagination continues from the end of the  previous results that returned the @nextToken@ value. This value is  @null@ when there are no more results to return.+-- * 'glppNextToken' - The @nextToken@ value returned from a previous paginated  @GetLifecyclePolicyPreviewRequest@ request where @maxResults@ was used and the  results exceeded the value of that parameter. Pagination continues from the end of the  previous results that returned the @nextToken@ value. This value is  @null@ when there are no more results to return. This option cannot be used when you specify images with @imageIds@ . -- -- * 'glppFilter' - An optional parameter that filters results based on image tag status and all tags, if tagged. ----- * 'glppMaxResults' - The maximum number of repository results returned by @GetLifecyclePolicyPreviewRequest@ in  paginated output. When this parameter is used, @GetLifecyclePolicyPreviewRequest@ only returns  @maxResults@ results in a single page along with a @nextToken@ response element. The remaining results of the initial request can be seen by sending  another @GetLifecyclePolicyPreviewRequest@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this  parameter is not used, then @GetLifecyclePolicyPreviewRequest@ returns up to  100 results and a @nextToken@ value, if  applicable.+-- * 'glppMaxResults' - The maximum number of repository results returned by @GetLifecyclePolicyPreviewRequest@ in  paginated output. When this parameter is used, @GetLifecyclePolicyPreviewRequest@ only returns  @maxResults@ results in a single page along with a @nextToken@ response element. The remaining results of the initial request can be seen by sending  another @GetLifecyclePolicyPreviewRequest@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this  parameter is not used, then @GetLifecyclePolicyPreviewRequest@ returns up to  100 results and a @nextToken@ value, if  applicable. This option cannot be used when you specify images with @imageIds@ . ----- * 'glppRepositoryName' - The name of the repository with the policy to retrieve.+-- * 'glppRepositoryName' - The name of the repository. getLifecyclePolicyPreview     :: Text -- ^ 'glppRepositoryName'     -> GetLifecyclePolicyPreview getLifecyclePolicyPreview pRepositoryName_ =   GetLifecyclePolicyPreview'-  { _glppRegistryId = Nothing-  , _glppImageIds = Nothing-  , _glppNextToken = Nothing-  , _glppFilter = Nothing-  , _glppMaxResults = Nothing-  , _glppRepositoryName = pRepositoryName_-  }+    { _glppRegistryId = Nothing+    , _glppImageIds = Nothing+    , _glppNextToken = Nothing+    , _glppFilter = Nothing+    , _glppMaxResults = Nothing+    , _glppRepositoryName = pRepositoryName_+    }   -- | The AWS account ID associated with the registry that contains the repository. If you do not specify a registry, the default registry is assumed. glppRegistryId :: Lens' GetLifecyclePolicyPreview (Maybe Text)-glppRegistryId = lens _glppRegistryId (\ s a -> s{_glppRegistryId = a});+glppRegistryId = lens _glppRegistryId (\ s a -> s{_glppRegistryId = a})  -- | The list of imageIDs to be included. glppImageIds :: Lens' GetLifecyclePolicyPreview [ImageIdentifier]-glppImageIds = lens _glppImageIds (\ s a -> s{_glppImageIds = a}) . _Default . _Coerce;+glppImageIds = lens _glppImageIds (\ s a -> s{_glppImageIds = a}) . _Default . _Coerce --- | The @nextToken@ value returned from a previous paginated  @GetLifecyclePolicyPreviewRequest@ request where @maxResults@ was used and the  results exceeded the value of that parameter. Pagination continues from the end of the  previous results that returned the @nextToken@ value. This value is  @null@ when there are no more results to return.+-- | The @nextToken@ value returned from a previous paginated  @GetLifecyclePolicyPreviewRequest@ request where @maxResults@ was used and the  results exceeded the value of that parameter. Pagination continues from the end of the  previous results that returned the @nextToken@ value. This value is  @null@ when there are no more results to return. This option cannot be used when you specify images with @imageIds@ . glppNextToken :: Lens' GetLifecyclePolicyPreview (Maybe Text)-glppNextToken = lens _glppNextToken (\ s a -> s{_glppNextToken = a});+glppNextToken = lens _glppNextToken (\ s a -> s{_glppNextToken = a})  -- | An optional parameter that filters results based on image tag status and all tags, if tagged. glppFilter :: Lens' GetLifecyclePolicyPreview (Maybe LifecyclePolicyPreviewFilter)-glppFilter = lens _glppFilter (\ s a -> s{_glppFilter = a});+glppFilter = lens _glppFilter (\ s a -> s{_glppFilter = a}) --- | The maximum number of repository results returned by @GetLifecyclePolicyPreviewRequest@ in  paginated output. When this parameter is used, @GetLifecyclePolicyPreviewRequest@ only returns  @maxResults@ results in a single page along with a @nextToken@ response element. The remaining results of the initial request can be seen by sending  another @GetLifecyclePolicyPreviewRequest@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this  parameter is not used, then @GetLifecyclePolicyPreviewRequest@ returns up to  100 results and a @nextToken@ value, if  applicable.+-- | The maximum number of repository results returned by @GetLifecyclePolicyPreviewRequest@ in  paginated output. When this parameter is used, @GetLifecyclePolicyPreviewRequest@ only returns  @maxResults@ results in a single page along with a @nextToken@ response element. The remaining results of the initial request can be seen by sending  another @GetLifecyclePolicyPreviewRequest@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this  parameter is not used, then @GetLifecyclePolicyPreviewRequest@ returns up to  100 results and a @nextToken@ value, if  applicable. This option cannot be used when you specify images with @imageIds@ . glppMaxResults :: Lens' GetLifecyclePolicyPreview (Maybe Natural)-glppMaxResults = lens _glppMaxResults (\ s a -> s{_glppMaxResults = a}) . mapping _Nat;+glppMaxResults = lens _glppMaxResults (\ s a -> s{_glppMaxResults = a}) . mapping _Nat --- | The name of the repository with the policy to retrieve.+-- | The name of the repository. glppRepositoryName :: Lens' GetLifecyclePolicyPreview Text-glppRepositoryName = lens _glppRepositoryName (\ s a -> s{_glppRepositoryName = a});+glppRepositoryName = lens _glppRepositoryName (\ s a -> s{_glppRepositoryName = a})  instance AWSRequest GetLifecyclePolicyPreview where         type Rs GetLifecyclePolicyPreview =@@ -189,7 +189,7 @@ -- -- * 'glpprsRegistryId' - The registry ID associated with the request. ----- * 'glpprsLifecyclePolicyText' - The JSON repository policy text.+-- * 'glpprsLifecyclePolicyText' - The JSON lifecycle policy text. -- -- * 'glpprsNextToken' - The @nextToken@ value to include in a future @GetLifecyclePolicyPreview@ request. When the results of a @GetLifecyclePolicyPreview@ request exceed @maxResults@ , this value can be used to retrieve the next page of results. This value is @null@ when there are no more results to return. --@@ -203,48 +203,48 @@     -> GetLifecyclePolicyPreviewResponse getLifecyclePolicyPreviewResponse pResponseStatus_ =   GetLifecyclePolicyPreviewResponse'-  { _glpprsSummary = Nothing-  , _glpprsStatus = Nothing-  , _glpprsRegistryId = Nothing-  , _glpprsLifecyclePolicyText = Nothing-  , _glpprsNextToken = Nothing-  , _glpprsRepositoryName = Nothing-  , _glpprsPreviewResults = Nothing-  , _glpprsResponseStatus = pResponseStatus_-  }+    { _glpprsSummary = Nothing+    , _glpprsStatus = Nothing+    , _glpprsRegistryId = Nothing+    , _glpprsLifecyclePolicyText = Nothing+    , _glpprsNextToken = Nothing+    , _glpprsRepositoryName = Nothing+    , _glpprsPreviewResults = Nothing+    , _glpprsResponseStatus = pResponseStatus_+    }   -- | The list of images that is returned as a result of the action. glpprsSummary :: Lens' GetLifecyclePolicyPreviewResponse (Maybe LifecyclePolicyPreviewSummary)-glpprsSummary = lens _glpprsSummary (\ s a -> s{_glpprsSummary = a});+glpprsSummary = lens _glpprsSummary (\ s a -> s{_glpprsSummary = a})  -- | The status of the lifecycle policy preview request. glpprsStatus :: Lens' GetLifecyclePolicyPreviewResponse (Maybe LifecyclePolicyPreviewStatus)-glpprsStatus = lens _glpprsStatus (\ s a -> s{_glpprsStatus = a});+glpprsStatus = lens _glpprsStatus (\ s a -> s{_glpprsStatus = a})  -- | The registry ID associated with the request. glpprsRegistryId :: Lens' GetLifecyclePolicyPreviewResponse (Maybe Text)-glpprsRegistryId = lens _glpprsRegistryId (\ s a -> s{_glpprsRegistryId = a});+glpprsRegistryId = lens _glpprsRegistryId (\ s a -> s{_glpprsRegistryId = a}) --- | The JSON repository policy text.+-- | The JSON lifecycle policy text. glpprsLifecyclePolicyText :: Lens' GetLifecyclePolicyPreviewResponse (Maybe Text)-glpprsLifecyclePolicyText = lens _glpprsLifecyclePolicyText (\ s a -> s{_glpprsLifecyclePolicyText = a});+glpprsLifecyclePolicyText = lens _glpprsLifecyclePolicyText (\ s a -> s{_glpprsLifecyclePolicyText = a})  -- | The @nextToken@ value to include in a future @GetLifecyclePolicyPreview@ request. When the results of a @GetLifecyclePolicyPreview@ request exceed @maxResults@ , this value can be used to retrieve the next page of results. This value is @null@ when there are no more results to return. glpprsNextToken :: Lens' GetLifecyclePolicyPreviewResponse (Maybe Text)-glpprsNextToken = lens _glpprsNextToken (\ s a -> s{_glpprsNextToken = a});+glpprsNextToken = lens _glpprsNextToken (\ s a -> s{_glpprsNextToken = a})  -- | The repository name associated with the request. glpprsRepositoryName :: Lens' GetLifecyclePolicyPreviewResponse (Maybe Text)-glpprsRepositoryName = lens _glpprsRepositoryName (\ s a -> s{_glpprsRepositoryName = a});+glpprsRepositoryName = lens _glpprsRepositoryName (\ s a -> s{_glpprsRepositoryName = a})  -- | The results of the lifecycle policy preview request. glpprsPreviewResults :: Lens' GetLifecyclePolicyPreviewResponse [LifecyclePolicyPreviewResult]-glpprsPreviewResults = lens _glpprsPreviewResults (\ s a -> s{_glpprsPreviewResults = a}) . _Default . _Coerce;+glpprsPreviewResults = lens _glpprsPreviewResults (\ s a -> s{_glpprsPreviewResults = a}) . _Default . _Coerce  -- | -- | The response status code. glpprsResponseStatus :: Lens' GetLifecyclePolicyPreviewResponse Int-glpprsResponseStatus = lens _glpprsResponseStatus (\ s a -> s{_glpprsResponseStatus = a});+glpprsResponseStatus = lens _glpprsResponseStatus (\ s a -> s{_glpprsResponseStatus = a})  instance NFData GetLifecyclePolicyPreviewResponse          where

gen/Network/AWS/ECR/GetRepositoryPolicy.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECR.GetRepositoryPolicy--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -66,16 +66,16 @@     -> GetRepositoryPolicy getRepositoryPolicy pRepositoryName_ =   GetRepositoryPolicy'-  {_grpRegistryId = Nothing, _grpRepositoryName = pRepositoryName_}+    {_grpRegistryId = Nothing, _grpRepositoryName = pRepositoryName_}   -- | The AWS account ID associated with the registry that contains the repository. If you do not specify a registry, the default registry is assumed. grpRegistryId :: Lens' GetRepositoryPolicy (Maybe Text)-grpRegistryId = lens _grpRegistryId (\ s a -> s{_grpRegistryId = a});+grpRegistryId = lens _grpRegistryId (\ s a -> s{_grpRegistryId = a})  -- | The name of the repository with the policy to retrieve. grpRepositoryName :: Lens' GetRepositoryPolicy Text-grpRepositoryName = lens _grpRepositoryName (\ s a -> s{_grpRepositoryName = a});+grpRepositoryName = lens _grpRepositoryName (\ s a -> s{_grpRepositoryName = a})  instance AWSRequest GetRepositoryPolicy where         type Rs GetRepositoryPolicy =@@ -141,27 +141,27 @@     -> GetRepositoryPolicyResponse getRepositoryPolicyResponse pResponseStatus_ =   GetRepositoryPolicyResponse'-  { _grprsRegistryId = Nothing-  , _grprsRepositoryName = Nothing-  , _grprsPolicyText = Nothing-  , _grprsResponseStatus = pResponseStatus_-  }+    { _grprsRegistryId = Nothing+    , _grprsRepositoryName = Nothing+    , _grprsPolicyText = Nothing+    , _grprsResponseStatus = pResponseStatus_+    }   -- | The registry ID associated with the request. grprsRegistryId :: Lens' GetRepositoryPolicyResponse (Maybe Text)-grprsRegistryId = lens _grprsRegistryId (\ s a -> s{_grprsRegistryId = a});+grprsRegistryId = lens _grprsRegistryId (\ s a -> s{_grprsRegistryId = a})  -- | The repository name associated with the request. grprsRepositoryName :: Lens' GetRepositoryPolicyResponse (Maybe Text)-grprsRepositoryName = lens _grprsRepositoryName (\ s a -> s{_grprsRepositoryName = a});+grprsRepositoryName = lens _grprsRepositoryName (\ s a -> s{_grprsRepositoryName = a})  -- | The JSON repository policy text associated with the repository. grprsPolicyText :: Lens' GetRepositoryPolicyResponse (Maybe Text)-grprsPolicyText = lens _grprsPolicyText (\ s a -> s{_grprsPolicyText = a});+grprsPolicyText = lens _grprsPolicyText (\ s a -> s{_grprsPolicyText = a})  -- | -- | The response status code. grprsResponseStatus :: Lens' GetRepositoryPolicyResponse Int-grprsResponseStatus = lens _grprsResponseStatus (\ s a -> s{_grprsResponseStatus = a});+grprsResponseStatus = lens _grprsResponseStatus (\ s a -> s{_grprsResponseStatus = a})  instance NFData GetRepositoryPolicyResponse where

gen/Network/AWS/ECR/InitiateLayerUpload.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECR.InitiateLayerUpload--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -65,16 +65,16 @@     -> InitiateLayerUpload initiateLayerUpload pRepositoryName_ =   InitiateLayerUpload'-  {_iluRegistryId = Nothing, _iluRepositoryName = pRepositoryName_}+    {_iluRegistryId = Nothing, _iluRepositoryName = pRepositoryName_}   -- | The AWS account ID associated with the registry to which you intend to upload layers. If you do not specify a registry, the default registry is assumed. iluRegistryId :: Lens' InitiateLayerUpload (Maybe Text)-iluRegistryId = lens _iluRegistryId (\ s a -> s{_iluRegistryId = a});+iluRegistryId = lens _iluRegistryId (\ s a -> s{_iluRegistryId = a})  -- | The name of the repository to which you intend to upload layers. iluRepositoryName :: Lens' InitiateLayerUpload Text-iluRepositoryName = lens _iluRepositoryName (\ s a -> s{_iluRepositoryName = a});+iluRepositoryName = lens _iluRepositoryName (\ s a -> s{_iluRepositoryName = a})  instance AWSRequest InitiateLayerUpload where         type Rs InitiateLayerUpload =@@ -136,22 +136,22 @@     -> InitiateLayerUploadResponse initiateLayerUploadResponse pResponseStatus_ =   InitiateLayerUploadResponse'-  { _ilursPartSize = Nothing-  , _ilursUploadId = Nothing-  , _ilursResponseStatus = pResponseStatus_-  }+    { _ilursPartSize = Nothing+    , _ilursUploadId = Nothing+    , _ilursResponseStatus = pResponseStatus_+    }   -- | The size, in bytes, that Amazon ECR expects future layer part uploads to be. ilursPartSize :: Lens' InitiateLayerUploadResponse (Maybe Natural)-ilursPartSize = lens _ilursPartSize (\ s a -> s{_ilursPartSize = a}) . mapping _Nat;+ilursPartSize = lens _ilursPartSize (\ s a -> s{_ilursPartSize = a}) . mapping _Nat  -- | The upload ID for the layer upload. This parameter is passed to further 'UploadLayerPart' and 'CompleteLayerUpload' operations. ilursUploadId :: Lens' InitiateLayerUploadResponse (Maybe Text)-ilursUploadId = lens _ilursUploadId (\ s a -> s{_ilursUploadId = a});+ilursUploadId = lens _ilursUploadId (\ s a -> s{_ilursUploadId = a})  -- | -- | The response status code. ilursResponseStatus :: Lens' InitiateLayerUploadResponse Int-ilursResponseStatus = lens _ilursResponseStatus (\ s a -> s{_ilursResponseStatus = a});+ilursResponseStatus = lens _ilursResponseStatus (\ s a -> s{_ilursResponseStatus = a})  instance NFData InitiateLayerUploadResponse where

gen/Network/AWS/ECR/ListImages.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECR.ListImages--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -82,33 +82,33 @@     -> ListImages listImages pRepositoryName_ =   ListImages'-  { _liRegistryId = Nothing-  , _liNextToken = Nothing-  , _liFilter = Nothing-  , _liMaxResults = Nothing-  , _liRepositoryName = pRepositoryName_-  }+    { _liRegistryId = Nothing+    , _liNextToken = Nothing+    , _liFilter = Nothing+    , _liMaxResults = Nothing+    , _liRepositoryName = pRepositoryName_+    }   -- | The AWS account ID associated with the registry that contains the repository in which to list images. If you do not specify a registry, the default registry is assumed. liRegistryId :: Lens' ListImages (Maybe Text)-liRegistryId = lens _liRegistryId (\ s a -> s{_liRegistryId = a});+liRegistryId = lens _liRegistryId (\ s a -> s{_liRegistryId = a})  -- | The @nextToken@ value returned from a previous paginated @ListImages@ request where @maxResults@ was used and the results exceeded the value of that parameter. Pagination continues from the end of the previous results that returned the @nextToken@ value. This value is @null@ when there are no more results to return. liNextToken :: Lens' ListImages (Maybe Text)-liNextToken = lens _liNextToken (\ s a -> s{_liNextToken = a});+liNextToken = lens _liNextToken (\ s a -> s{_liNextToken = a})  -- | The filter key and value with which to filter your @ListImages@ results. liFilter :: Lens' ListImages (Maybe ListImagesFilter)-liFilter = lens _liFilter (\ s a -> s{_liFilter = a});+liFilter = lens _liFilter (\ s a -> s{_liFilter = a})  -- | The maximum number of image results returned by @ListImages@ in paginated output. When this parameter is used, @ListImages@ only returns @maxResults@ results in a single page along with a @nextToken@ response element. The remaining results of the initial request can be seen by sending another @ListImages@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @ListImages@ returns up to 100 results and a @nextToken@ value, if applicable. liMaxResults :: Lens' ListImages (Maybe Natural)-liMaxResults = lens _liMaxResults (\ s a -> s{_liMaxResults = a}) . mapping _Nat;+liMaxResults = lens _liMaxResults (\ s a -> s{_liMaxResults = a}) . mapping _Nat  -- | The repository with image IDs to be listed. liRepositoryName :: Lens' ListImages Text-liRepositoryName = lens _liRepositoryName (\ s a -> s{_liRepositoryName = a});+liRepositoryName = lens _liRepositoryName (\ s a -> s{_liRepositoryName = a})  instance AWSPager ListImages where         page rq rs@@ -179,22 +179,22 @@     -> ListImagesResponse listImagesResponse pResponseStatus_ =   ListImagesResponse'-  { _lirsImageIds = Nothing-  , _lirsNextToken = Nothing-  , _lirsResponseStatus = pResponseStatus_-  }+    { _lirsImageIds = Nothing+    , _lirsNextToken = Nothing+    , _lirsResponseStatus = pResponseStatus_+    }   -- | The list of image IDs for the requested repository. lirsImageIds :: Lens' ListImagesResponse [ImageIdentifier]-lirsImageIds = lens _lirsImageIds (\ s a -> s{_lirsImageIds = a}) . _Default . _Coerce;+lirsImageIds = lens _lirsImageIds (\ s a -> s{_lirsImageIds = a}) . _Default . _Coerce  -- | The @nextToken@ value to include in a future @ListImages@ request. When the results of a @ListImages@ request exceed @maxResults@ , this value can be used to retrieve the next page of results. This value is @null@ when there are no more results to return. lirsNextToken :: Lens' ListImagesResponse (Maybe Text)-lirsNextToken = lens _lirsNextToken (\ s a -> s{_lirsNextToken = a});+lirsNextToken = lens _lirsNextToken (\ s a -> s{_lirsNextToken = a})  -- | -- | The response status code. lirsResponseStatus :: Lens' ListImagesResponse Int-lirsResponseStatus = lens _lirsResponseStatus (\ s a -> s{_lirsResponseStatus = a});+lirsResponseStatus = lens _lirsResponseStatus (\ s a -> s{_lirsResponseStatus = a})  instance NFData ListImagesResponse where

gen/Network/AWS/ECR/PutImage.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECR.PutImage--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -73,28 +73,28 @@     -> PutImage putImage pRepositoryName_ pImageManifest_ =   PutImage'-  { _piRegistryId = Nothing-  , _piImageTag = Nothing-  , _piRepositoryName = pRepositoryName_-  , _piImageManifest = pImageManifest_-  }+    { _piRegistryId = Nothing+    , _piImageTag = Nothing+    , _piRepositoryName = pRepositoryName_+    , _piImageManifest = pImageManifest_+    }   -- | The AWS account ID associated with the registry that contains the repository in which to put the image. If you do not specify a registry, the default registry is assumed. piRegistryId :: Lens' PutImage (Maybe Text)-piRegistryId = lens _piRegistryId (\ s a -> s{_piRegistryId = a});+piRegistryId = lens _piRegistryId (\ s a -> s{_piRegistryId = a})  -- | The tag to associate with the image. This parameter is required for images that use the Docker Image Manifest V2 Schema 2 or OCI formats. piImageTag :: Lens' PutImage (Maybe Text)-piImageTag = lens _piImageTag (\ s a -> s{_piImageTag = a});+piImageTag = lens _piImageTag (\ s a -> s{_piImageTag = a})  -- | The name of the repository in which to put the image. piRepositoryName :: Lens' PutImage Text-piRepositoryName = lens _piRepositoryName (\ s a -> s{_piRepositoryName = a});+piRepositoryName = lens _piRepositoryName (\ s a -> s{_piRepositoryName = a})  -- | The image manifest corresponding to the image to be uploaded. piImageManifest :: Lens' PutImage Text-piImageManifest = lens _piImageManifest (\ s a -> s{_piImageManifest = a});+piImageManifest = lens _piImageManifest (\ s a -> s{_piImageManifest = a})  instance AWSRequest PutImage where         type Rs PutImage = PutImageResponse@@ -153,15 +153,15 @@     -> PutImageResponse putImageResponse pResponseStatus_ =   PutImageResponse'-  {_pirsImage = Nothing, _pirsResponseStatus = pResponseStatus_}+    {_pirsImage = Nothing, _pirsResponseStatus = pResponseStatus_}   -- | Details of the image uploaded. pirsImage :: Lens' PutImageResponse (Maybe Image)-pirsImage = lens _pirsImage (\ s a -> s{_pirsImage = a});+pirsImage = lens _pirsImage (\ s a -> s{_pirsImage = a})  -- | -- | The response status code. pirsResponseStatus :: Lens' PutImageResponse Int-pirsResponseStatus = lens _pirsResponseStatus (\ s a -> s{_pirsResponseStatus = a});+pirsResponseStatus = lens _pirsResponseStatus (\ s a -> s{_pirsResponseStatus = a})  instance NFData PutImageResponse where

gen/Network/AWS/ECR/PutLifecyclePolicy.hs view

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ECR.PutLifecyclePolicy--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates or updates a lifecycle policy.+-- Creates or updates a lifecycle policy. For information about lifecycle policy syntax, see <http://docs.aws.amazon.com/AmazonECR/latest/userguide/LifecyclePolicies.html Lifecycle Policy Template> . -- -- module Network.AWS.ECR.PutLifecyclePolicy@@ -71,23 +71,23 @@     -> PutLifecyclePolicy putLifecyclePolicy pRepositoryName_ pLifecyclePolicyText_ =   PutLifecyclePolicy'-  { _plpRegistryId = Nothing-  , _plpRepositoryName = pRepositoryName_-  , _plpLifecyclePolicyText = pLifecyclePolicyText_-  }+    { _plpRegistryId = Nothing+    , _plpRepositoryName = pRepositoryName_+    , _plpLifecyclePolicyText = pLifecyclePolicyText_+    }   -- | The AWS account ID associated with the registry that contains the repository. If you do  not specify a registry, the default registry is assumed. plpRegistryId :: Lens' PutLifecyclePolicy (Maybe Text)-plpRegistryId = lens _plpRegistryId (\ s a -> s{_plpRegistryId = a});+plpRegistryId = lens _plpRegistryId (\ s a -> s{_plpRegistryId = a})  -- | The name of the repository to receive the policy. plpRepositoryName :: Lens' PutLifecyclePolicy Text-plpRepositoryName = lens _plpRepositoryName (\ s a -> s{_plpRepositoryName = a});+plpRepositoryName = lens _plpRepositoryName (\ s a -> s{_plpRepositoryName = a})  -- | The JSON repository policy text to apply to the repository. plpLifecyclePolicyText :: Lens' PutLifecyclePolicy Text-plpLifecyclePolicyText = lens _plpLifecyclePolicyText (\ s a -> s{_plpLifecyclePolicyText = a});+plpLifecyclePolicyText = lens _plpLifecyclePolicyText (\ s a -> s{_plpLifecyclePolicyText = a})  instance AWSRequest PutLifecyclePolicy where         type Rs PutLifecyclePolicy =@@ -156,27 +156,27 @@     -> PutLifecyclePolicyResponse putLifecyclePolicyResponse pResponseStatus_ =   PutLifecyclePolicyResponse'-  { _plprsRegistryId = Nothing-  , _plprsLifecyclePolicyText = Nothing-  , _plprsRepositoryName = Nothing-  , _plprsResponseStatus = pResponseStatus_-  }+    { _plprsRegistryId = Nothing+    , _plprsLifecyclePolicyText = Nothing+    , _plprsRepositoryName = Nothing+    , _plprsResponseStatus = pResponseStatus_+    }   -- | The registry ID associated with the request. plprsRegistryId :: Lens' PutLifecyclePolicyResponse (Maybe Text)-plprsRegistryId = lens _plprsRegistryId (\ s a -> s{_plprsRegistryId = a});+plprsRegistryId = lens _plprsRegistryId (\ s a -> s{_plprsRegistryId = a})  -- | The JSON repository policy text. plprsLifecyclePolicyText :: Lens' PutLifecyclePolicyResponse (Maybe Text)-plprsLifecyclePolicyText = lens _plprsLifecyclePolicyText (\ s a -> s{_plprsLifecyclePolicyText = a});+plprsLifecyclePolicyText = lens _plprsLifecyclePolicyText (\ s a -> s{_plprsLifecyclePolicyText = a})  -- | The repository name associated with the request. plprsRepositoryName :: Lens' PutLifecyclePolicyResponse (Maybe Text)-plprsRepositoryName = lens _plprsRepositoryName (\ s a -> s{_plprsRepositoryName = a});+plprsRepositoryName = lens _plprsRepositoryName (\ s a -> s{_plprsRepositoryName = a})  -- | -- | The response status code. plprsResponseStatus :: Lens' PutLifecyclePolicyResponse Int-plprsResponseStatus = lens _plprsResponseStatus (\ s a -> s{_plprsResponseStatus = a});+plprsResponseStatus = lens _plprsResponseStatus (\ s a -> s{_plprsResponseStatus = a})  instance NFData PutLifecyclePolicyResponse where

gen/Network/AWS/ECR/SetRepositoryPolicy.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECR.SetRepositoryPolicy--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -75,28 +75,28 @@     -> SetRepositoryPolicy setRepositoryPolicy pRepositoryName_ pPolicyText_ =   SetRepositoryPolicy'-  { _srpForce = Nothing-  , _srpRegistryId = Nothing-  , _srpRepositoryName = pRepositoryName_-  , _srpPolicyText = pPolicyText_-  }+    { _srpForce = Nothing+    , _srpRegistryId = Nothing+    , _srpRepositoryName = pRepositoryName_+    , _srpPolicyText = pPolicyText_+    }   -- | If the policy you are attempting to set on a repository policy would prevent you from setting another policy in the future, you must force the 'SetRepositoryPolicy' operation. This is intended to prevent accidental repository lock outs. srpForce :: Lens' SetRepositoryPolicy (Maybe Bool)-srpForce = lens _srpForce (\ s a -> s{_srpForce = a});+srpForce = lens _srpForce (\ s a -> s{_srpForce = a})  -- | The AWS account ID associated with the registry that contains the repository. If you do not specify a registry, the default registry is assumed. srpRegistryId :: Lens' SetRepositoryPolicy (Maybe Text)-srpRegistryId = lens _srpRegistryId (\ s a -> s{_srpRegistryId = a});+srpRegistryId = lens _srpRegistryId (\ s a -> s{_srpRegistryId = a})  -- | The name of the repository to receive the policy. srpRepositoryName :: Lens' SetRepositoryPolicy Text-srpRepositoryName = lens _srpRepositoryName (\ s a -> s{_srpRepositoryName = a});+srpRepositoryName = lens _srpRepositoryName (\ s a -> s{_srpRepositoryName = a})  -- | The JSON repository policy text to apply to the repository. srpPolicyText :: Lens' SetRepositoryPolicy Text-srpPolicyText = lens _srpPolicyText (\ s a -> s{_srpPolicyText = a});+srpPolicyText = lens _srpPolicyText (\ s a -> s{_srpPolicyText = a})  instance AWSRequest SetRepositoryPolicy where         type Rs SetRepositoryPolicy =@@ -164,27 +164,27 @@     -> SetRepositoryPolicyResponse setRepositoryPolicyResponse pResponseStatus_ =   SetRepositoryPolicyResponse'-  { _srprsRegistryId = Nothing-  , _srprsRepositoryName = Nothing-  , _srprsPolicyText = Nothing-  , _srprsResponseStatus = pResponseStatus_-  }+    { _srprsRegistryId = Nothing+    , _srprsRepositoryName = Nothing+    , _srprsPolicyText = Nothing+    , _srprsResponseStatus = pResponseStatus_+    }   -- | The registry ID associated with the request. srprsRegistryId :: Lens' SetRepositoryPolicyResponse (Maybe Text)-srprsRegistryId = lens _srprsRegistryId (\ s a -> s{_srprsRegistryId = a});+srprsRegistryId = lens _srprsRegistryId (\ s a -> s{_srprsRegistryId = a})  -- | The repository name associated with the request. srprsRepositoryName :: Lens' SetRepositoryPolicyResponse (Maybe Text)-srprsRepositoryName = lens _srprsRepositoryName (\ s a -> s{_srprsRepositoryName = a});+srprsRepositoryName = lens _srprsRepositoryName (\ s a -> s{_srprsRepositoryName = a})  -- | The JSON repository policy text applied to the repository. srprsPolicyText :: Lens' SetRepositoryPolicyResponse (Maybe Text)-srprsPolicyText = lens _srprsPolicyText (\ s a -> s{_srprsPolicyText = a});+srprsPolicyText = lens _srprsPolicyText (\ s a -> s{_srprsPolicyText = a})  -- | -- | The response status code. srprsResponseStatus :: Lens' SetRepositoryPolicyResponse Int-srprsResponseStatus = lens _srprsResponseStatus (\ s a -> s{_srprsResponseStatus = a});+srprsResponseStatus = lens _srprsResponseStatus (\ s a -> s{_srprsResponseStatus = a})  instance NFData SetRepositoryPolicyResponse where

gen/Network/AWS/ECR/StartLifecyclePolicyPreview.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECR.StartLifecyclePolicyPreview--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,23 +71,23 @@     -> StartLifecyclePolicyPreview startLifecyclePolicyPreview pRepositoryName_ =   StartLifecyclePolicyPreview'-  { _slppRegistryId = Nothing-  , _slppLifecyclePolicyText = Nothing-  , _slppRepositoryName = pRepositoryName_-  }+    { _slppRegistryId = Nothing+    , _slppLifecyclePolicyText = Nothing+    , _slppRepositoryName = pRepositoryName_+    }   -- | The AWS account ID associated with the registry that contains the repository. If you do not specify a registry, the default registry is assumed. slppRegistryId :: Lens' StartLifecyclePolicyPreview (Maybe Text)-slppRegistryId = lens _slppRegistryId (\ s a -> s{_slppRegistryId = a});+slppRegistryId = lens _slppRegistryId (\ s a -> s{_slppRegistryId = a})  -- | The policy to be evaluated against. If you do not specify a policy, the current policy for the repository is used. slppLifecyclePolicyText :: Lens' StartLifecyclePolicyPreview (Maybe Text)-slppLifecyclePolicyText = lens _slppLifecyclePolicyText (\ s a -> s{_slppLifecyclePolicyText = a});+slppLifecyclePolicyText = lens _slppLifecyclePolicyText (\ s a -> s{_slppLifecyclePolicyText = a})  -- | The name of the repository to be evaluated. slppRepositoryName :: Lens' StartLifecyclePolicyPreview Text-slppRepositoryName = lens _slppRepositoryName (\ s a -> s{_slppRepositoryName = a});+slppRepositoryName = lens _slppRepositoryName (\ s a -> s{_slppRepositoryName = a})  instance AWSRequest StartLifecyclePolicyPreview where         type Rs StartLifecyclePolicyPreview =@@ -159,33 +159,33 @@     -> StartLifecyclePolicyPreviewResponse startLifecyclePolicyPreviewResponse pResponseStatus_ =   StartLifecyclePolicyPreviewResponse'-  { _slpprsStatus = Nothing-  , _slpprsRegistryId = Nothing-  , _slpprsLifecyclePolicyText = Nothing-  , _slpprsRepositoryName = Nothing-  , _slpprsResponseStatus = pResponseStatus_-  }+    { _slpprsStatus = Nothing+    , _slpprsRegistryId = Nothing+    , _slpprsLifecyclePolicyText = Nothing+    , _slpprsRepositoryName = Nothing+    , _slpprsResponseStatus = pResponseStatus_+    }   -- | The status of the lifecycle policy preview request. slpprsStatus :: Lens' StartLifecyclePolicyPreviewResponse (Maybe LifecyclePolicyPreviewStatus)-slpprsStatus = lens _slpprsStatus (\ s a -> s{_slpprsStatus = a});+slpprsStatus = lens _slpprsStatus (\ s a -> s{_slpprsStatus = a})  -- | The registry ID associated with the request. slpprsRegistryId :: Lens' StartLifecyclePolicyPreviewResponse (Maybe Text)-slpprsRegistryId = lens _slpprsRegistryId (\ s a -> s{_slpprsRegistryId = a});+slpprsRegistryId = lens _slpprsRegistryId (\ s a -> s{_slpprsRegistryId = a})  -- | The JSON repository policy text. slpprsLifecyclePolicyText :: Lens' StartLifecyclePolicyPreviewResponse (Maybe Text)-slpprsLifecyclePolicyText = lens _slpprsLifecyclePolicyText (\ s a -> s{_slpprsLifecyclePolicyText = a});+slpprsLifecyclePolicyText = lens _slpprsLifecyclePolicyText (\ s a -> s{_slpprsLifecyclePolicyText = a})  -- | The repository name associated with the request. slpprsRepositoryName :: Lens' StartLifecyclePolicyPreviewResponse (Maybe Text)-slpprsRepositoryName = lens _slpprsRepositoryName (\ s a -> s{_slpprsRepositoryName = a});+slpprsRepositoryName = lens _slpprsRepositoryName (\ s a -> s{_slpprsRepositoryName = a})  -- | -- | The response status code. slpprsResponseStatus :: Lens' StartLifecyclePolicyPreviewResponse Int-slpprsResponseStatus = lens _slpprsResponseStatus (\ s a -> s{_slpprsResponseStatus = a});+slpprsResponseStatus = lens _slpprsResponseStatus (\ s a -> s{_slpprsResponseStatus = a})  instance NFData StartLifecyclePolicyPreviewResponse          where

gen/Network/AWS/ECR/Types.hs view

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.ECR.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -162,24 +162,24 @@ ecr :: Service ecr =   Service-  { _svcAbbrev = "ECR"-  , _svcSigner = v4-  , _svcPrefix = "ecr"-  , _svcVersion = "2015-09-21"-  , _svcEndpoint = defaultEndpoint ecr-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseJSONError "ECR"-  , _svcRetry = retry-  }+    { _svcAbbrev = "ECR"+    , _svcSigner = v4+    , _svcPrefix = "ecr"+    , _svcVersion = "2015-09-21"+    , _svcEndpoint = defaultEndpoint ecr+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "ECR"+    , _svcRetry = retry+    }   where     retry =       Exponential-      { _retryBase = 5.0e-2-      , _retryGrowth = 2-      , _retryAttempts = 5-      , _retryCheck = check-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -188,6 +188,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"@@ -339,7 +341,7 @@ _EmptyUploadException = _MatchServiceError ecr "EmptyUploadException"  --- | The operation did not succeed because it would have exceeded a service limit for your account. For more information, see <http://docs.aws.amazon.com/AmazonECR/latest/userguide/service_limits.html Amazon ECR Default Service Limits> in the Amazon EC2 Container Registry User Guide.+-- | The operation did not succeed because it would have exceeded a service limit for your account. For more information, see <http://docs.aws.amazon.com/AmazonECR/latest/userguide/service_limits.html Amazon ECR Default Service Limits> in the Amazon Elastic Container Registry User Guide. -- -- _LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError

gen/Network/AWS/ECR/Types/Product.hs view

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.ECR.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -46,23 +46,23 @@     :: AuthorizationData authorizationData =   AuthorizationData'-  { _adExpiresAt = Nothing-  , _adProxyEndpoint = Nothing-  , _adAuthorizationToken = Nothing-  }+    { _adExpiresAt = Nothing+    , _adProxyEndpoint = Nothing+    , _adAuthorizationToken = Nothing+    }   -- | The Unix time in seconds and milliseconds when the authorization token expires. Authorization tokens are valid for 12 hours. adExpiresAt :: Lens' AuthorizationData (Maybe UTCTime)-adExpiresAt = lens _adExpiresAt (\ s a -> s{_adExpiresAt = a}) . mapping _Time;+adExpiresAt = lens _adExpiresAt (\ s a -> s{_adExpiresAt = a}) . mapping _Time  -- | The registry URL to use for this authorization token in a @docker login@ command. The Amazon ECR registry URL format is @https://aws_account_id.dkr.ecr.region.amazonaws.com@ . For example, @https://012345678910.dkr.ecr.us-east-1.amazonaws.com@ .. adProxyEndpoint :: Lens' AuthorizationData (Maybe Text)-adProxyEndpoint = lens _adProxyEndpoint (\ s a -> s{_adProxyEndpoint = a});+adProxyEndpoint = lens _adProxyEndpoint (\ s a -> s{_adProxyEndpoint = a})  -- | A base64-encoded string that contains authorization data for the specified Amazon ECR registry. When the string is decoded, it is presented in the format @user:password@ for private registry authentication using @docker login@ . adAuthorizationToken :: Lens' AuthorizationData (Maybe Text)-adAuthorizationToken = lens _adAuthorizationToken (\ s a -> s{_adAuthorizationToken = a});+adAuthorizationToken = lens _adAuthorizationToken (\ s a -> s{_adAuthorizationToken = a})  instance FromJSON AuthorizationData where         parseJSON@@ -98,7 +98,7 @@  -- | The tag status with which to filter your 'DescribeImages' results. You can filter results based on whether they are @TAGGED@ or @UNTAGGED@ . difTagStatus :: Lens' DescribeImagesFilter (Maybe TagStatus)-difTagStatus = lens _difTagStatus (\ s a -> s{_difTagStatus = a});+difTagStatus = lens _difTagStatus (\ s a -> s{_difTagStatus = a})  instance Hashable DescribeImagesFilter where @@ -137,28 +137,28 @@     :: Image image =   Image'-  { _iRegistryId = Nothing-  , _iImageId = Nothing-  , _iRepositoryName = Nothing-  , _iImageManifest = Nothing-  }+    { _iRegistryId = Nothing+    , _iImageId = Nothing+    , _iRepositoryName = Nothing+    , _iImageManifest = Nothing+    }   -- | The AWS account ID associated with the registry containing the image. iRegistryId :: Lens' Image (Maybe Text)-iRegistryId = lens _iRegistryId (\ s a -> s{_iRegistryId = a});+iRegistryId = lens _iRegistryId (\ s a -> s{_iRegistryId = a})  -- | An object containing the image tag and image digest associated with an image. iImageId :: Lens' Image (Maybe ImageIdentifier)-iImageId = lens _iImageId (\ s a -> s{_iImageId = a});+iImageId = lens _iImageId (\ s a -> s{_iImageId = a})  -- | The name of the repository associated with the image. iRepositoryName :: Lens' Image (Maybe Text)-iRepositoryName = lens _iRepositoryName (\ s a -> s{_iRepositoryName = a});+iRepositoryName = lens _iRepositoryName (\ s a -> s{_iRepositoryName = a})  -- | The image manifest associated with the image. iImageManifest :: Lens' Image (Maybe Text)-iImageManifest = lens _iImageManifest (\ s a -> s{_iImageManifest = a});+iImageManifest = lens _iImageManifest (\ s a -> s{_iImageManifest = a})  instance FromJSON Image where         parseJSON@@ -207,38 +207,38 @@     :: ImageDetail imageDetail =   ImageDetail'-  { _idRegistryId = Nothing-  , _idImageTags = Nothing-  , _idImageSizeInBytes = Nothing-  , _idImageDigest = Nothing-  , _idImagePushedAt = Nothing-  , _idRepositoryName = Nothing-  }+    { _idRegistryId = Nothing+    , _idImageTags = Nothing+    , _idImageSizeInBytes = Nothing+    , _idImageDigest = Nothing+    , _idImagePushedAt = Nothing+    , _idRepositoryName = Nothing+    }   -- | The AWS account ID associated with the registry to which this image belongs. idRegistryId :: Lens' ImageDetail (Maybe Text)-idRegistryId = lens _idRegistryId (\ s a -> s{_idRegistryId = a});+idRegistryId = lens _idRegistryId (\ s a -> s{_idRegistryId = a})  -- | The list of tags associated with this image. idImageTags :: Lens' ImageDetail [Text]-idImageTags = lens _idImageTags (\ s a -> s{_idImageTags = a}) . _Default . _Coerce;+idImageTags = lens _idImageTags (\ s a -> s{_idImageTags = a}) . _Default . _Coerce  -- | The size, in bytes, of the image in the repository. idImageSizeInBytes :: Lens' ImageDetail (Maybe Integer)-idImageSizeInBytes = lens _idImageSizeInBytes (\ s a -> s{_idImageSizeInBytes = a});+idImageSizeInBytes = lens _idImageSizeInBytes (\ s a -> s{_idImageSizeInBytes = a})  -- | The @sha256@ digest of the image manifest. idImageDigest :: Lens' ImageDetail (Maybe Text)-idImageDigest = lens _idImageDigest (\ s a -> s{_idImageDigest = a});+idImageDigest = lens _idImageDigest (\ s a -> s{_idImageDigest = a})  -- | The date and time, expressed in standard JavaScript date format, at which the current image was pushed to the repository. idImagePushedAt :: Lens' ImageDetail (Maybe UTCTime)-idImagePushedAt = lens _idImagePushedAt (\ s a -> s{_idImagePushedAt = a}) . mapping _Time;+idImagePushedAt = lens _idImagePushedAt (\ s a -> s{_idImagePushedAt = a}) . mapping _Time  -- | The name of the repository to which this image belongs. idRepositoryName :: Lens' ImageDetail (Maybe Text)-idRepositoryName = lens _idRepositoryName (\ s a -> s{_idRepositoryName = a});+idRepositoryName = lens _idRepositoryName (\ s a -> s{_idRepositoryName = a})  instance FromJSON ImageDetail where         parseJSON@@ -281,20 +281,20 @@     :: ImageFailure imageFailure =   ImageFailure'-  {_ifFailureReason = Nothing, _ifFailureCode = Nothing, _ifImageId = Nothing}+    {_ifFailureReason = Nothing, _ifFailureCode = Nothing, _ifImageId = Nothing}   -- | The reason for the failure. ifFailureReason :: Lens' ImageFailure (Maybe Text)-ifFailureReason = lens _ifFailureReason (\ s a -> s{_ifFailureReason = a});+ifFailureReason = lens _ifFailureReason (\ s a -> s{_ifFailureReason = a})  -- | The code associated with the failure. ifFailureCode :: Lens' ImageFailure (Maybe ImageFailureCode)-ifFailureCode = lens _ifFailureCode (\ s a -> s{_ifFailureCode = a});+ifFailureCode = lens _ifFailureCode (\ s a -> s{_ifFailureCode = a})  -- | The image ID associated with the failure. ifImageId :: Lens' ImageFailure (Maybe ImageIdentifier)-ifImageId = lens _ifImageId (\ s a -> s{_ifImageId = a});+ifImageId = lens _ifImageId (\ s a -> s{_ifImageId = a})  instance FromJSON ImageFailure where         parseJSON@@ -334,11 +334,11 @@  -- | The @sha256@ digest of the image manifest. iiImageDigest :: Lens' ImageIdentifier (Maybe Text)-iiImageDigest = lens _iiImageDigest (\ s a -> s{_iiImageDigest = a});+iiImageDigest = lens _iiImageDigest (\ s a -> s{_iiImageDigest = a})  -- | The tag used for the image. iiImageTag :: Lens' ImageIdentifier (Maybe Text)-iiImageTag = lens _iiImageTag (\ s a -> s{_iiImageTag = a});+iiImageTag = lens _iiImageTag (\ s a -> s{_iiImageTag = a})  instance FromJSON ImageIdentifier where         parseJSON@@ -386,28 +386,28 @@     :: Layer layer =   Layer'-  { _lMediaType = Nothing-  , _lLayerDigest = Nothing-  , _lLayerSize = Nothing-  , _lLayerAvailability = Nothing-  }+    { _lMediaType = Nothing+    , _lLayerDigest = Nothing+    , _lLayerSize = Nothing+    , _lLayerAvailability = Nothing+    }   -- | The media type of the layer, such as @application/vnd.docker.image.rootfs.diff.tar.gzip@ or @application/vnd.oci.image.layer.v1.tar+gzip@ . lMediaType :: Lens' Layer (Maybe Text)-lMediaType = lens _lMediaType (\ s a -> s{_lMediaType = a});+lMediaType = lens _lMediaType (\ s a -> s{_lMediaType = a})  -- | The @sha256@ digest of the image layer. lLayerDigest :: Lens' Layer (Maybe Text)-lLayerDigest = lens _lLayerDigest (\ s a -> s{_lLayerDigest = a});+lLayerDigest = lens _lLayerDigest (\ s a -> s{_lLayerDigest = a})  -- | The size, in bytes, of the image layer. lLayerSize :: Lens' Layer (Maybe Integer)-lLayerSize = lens _lLayerSize (\ s a -> s{_lLayerSize = a});+lLayerSize = lens _lLayerSize (\ s a -> s{_lLayerSize = a})  -- | The availability status of the image layer. lLayerAvailability :: Lens' Layer (Maybe LayerAvailability)-lLayerAvailability = lens _lLayerAvailability (\ s a -> s{_lLayerAvailability = a});+lLayerAvailability = lens _lLayerAvailability (\ s a -> s{_lLayerAvailability = a})  instance FromJSON Layer where         parseJSON@@ -447,23 +447,23 @@     :: LayerFailure layerFailure =   LayerFailure'-  { _lfFailureReason = Nothing-  , _lfFailureCode = Nothing-  , _lfLayerDigest = Nothing-  }+    { _lfFailureReason = Nothing+    , _lfFailureCode = Nothing+    , _lfLayerDigest = Nothing+    }   -- | The reason for the failure. lfFailureReason :: Lens' LayerFailure (Maybe Text)-lfFailureReason = lens _lfFailureReason (\ s a -> s{_lfFailureReason = a});+lfFailureReason = lens _lfFailureReason (\ s a -> s{_lfFailureReason = a})  -- | The failure code associated with the failure. lfFailureCode :: Lens' LayerFailure (Maybe LayerFailureCode)-lfFailureCode = lens _lfFailureCode (\ s a -> s{_lfFailureCode = a});+lfFailureCode = lens _lfFailureCode (\ s a -> s{_lfFailureCode = a})  -- | The layer digest associated with the failure. lfLayerDigest :: Lens' LayerFailure (Maybe Text)-lfLayerDigest = lens _lfLayerDigest (\ s a -> s{_lfLayerDigest = a});+lfLayerDigest = lens _lfLayerDigest (\ s a -> s{_lfLayerDigest = a})  instance FromJSON LayerFailure where         parseJSON@@ -500,7 +500,7 @@  -- | The tag status of the image. lppfTagStatus :: Lens' LifecyclePolicyPreviewFilter (Maybe TagStatus)-lppfTagStatus = lens _lppfTagStatus (\ s a -> s{_lppfTagStatus = a});+lppfTagStatus = lens _lppfTagStatus (\ s a -> s{_lppfTagStatus = a})  instance Hashable LifecyclePolicyPreviewFilter where @@ -542,33 +542,33 @@     :: LifecyclePolicyPreviewResult lifecyclePolicyPreviewResult =   LifecyclePolicyPreviewResult'-  { _lpprImageTags = Nothing-  , _lpprAction = Nothing-  , _lpprImageDigest = Nothing-  , _lpprImagePushedAt = Nothing-  , _lpprAppliedRulePriority = Nothing-  }+    { _lpprImageTags = Nothing+    , _lpprAction = Nothing+    , _lpprImageDigest = Nothing+    , _lpprImagePushedAt = Nothing+    , _lpprAppliedRulePriority = Nothing+    }   -- | The list of tags associated with this image. lpprImageTags :: Lens' LifecyclePolicyPreviewResult [Text]-lpprImageTags = lens _lpprImageTags (\ s a -> s{_lpprImageTags = a}) . _Default . _Coerce;+lpprImageTags = lens _lpprImageTags (\ s a -> s{_lpprImageTags = a}) . _Default . _Coerce  -- | The type of action to be taken. lpprAction :: Lens' LifecyclePolicyPreviewResult (Maybe LifecyclePolicyRuleAction)-lpprAction = lens _lpprAction (\ s a -> s{_lpprAction = a});+lpprAction = lens _lpprAction (\ s a -> s{_lpprAction = a})  -- | The @sha256@ digest of the image manifest. lpprImageDigest :: Lens' LifecyclePolicyPreviewResult (Maybe Text)-lpprImageDigest = lens _lpprImageDigest (\ s a -> s{_lpprImageDigest = a});+lpprImageDigest = lens _lpprImageDigest (\ s a -> s{_lpprImageDigest = a})  -- | The date and time, expressed in standard JavaScript date format, at which the current image was pushed to the repository. lpprImagePushedAt :: Lens' LifecyclePolicyPreviewResult (Maybe UTCTime)-lpprImagePushedAt = lens _lpprImagePushedAt (\ s a -> s{_lpprImagePushedAt = a}) . mapping _Time;+lpprImagePushedAt = lens _lpprImagePushedAt (\ s a -> s{_lpprImagePushedAt = a}) . mapping _Time  -- | The priority of the applied rule. lpprAppliedRulePriority :: Lens' LifecyclePolicyPreviewResult (Maybe Natural)-lpprAppliedRulePriority = lens _lpprAppliedRulePriority (\ s a -> s{_lpprAppliedRulePriority = a}) . mapping _Nat;+lpprAppliedRulePriority = lens _lpprAppliedRulePriority (\ s a -> s{_lpprAppliedRulePriority = a}) . mapping _Nat  instance FromJSON LifecyclePolicyPreviewResult where         parseJSON@@ -607,7 +607,7 @@  -- | The number of expiring images. lppsExpiringImageTotalCount :: Lens' LifecyclePolicyPreviewSummary (Maybe Natural)-lppsExpiringImageTotalCount = lens _lppsExpiringImageTotalCount (\ s a -> s{_lppsExpiringImageTotalCount = a}) . mapping _Nat;+lppsExpiringImageTotalCount = lens _lppsExpiringImageTotalCount (\ s a -> s{_lppsExpiringImageTotalCount = a}) . mapping _Nat  instance FromJSON LifecyclePolicyPreviewSummary where         parseJSON@@ -642,7 +642,7 @@  -- | The type of action to be taken. lpraType :: Lens' LifecyclePolicyRuleAction (Maybe ImageActionType)-lpraType = lens _lpraType (\ s a -> s{_lpraType = a});+lpraType = lens _lpraType (\ s a -> s{_lpraType = a})  instance FromJSON LifecyclePolicyRuleAction where         parseJSON@@ -676,7 +676,7 @@  -- | The tag status with which to filter your 'ListImages' results. You can filter results based on whether they are @TAGGED@ or @UNTAGGED@ . lifTagStatus :: Lens' ListImagesFilter (Maybe TagStatus)-lifTagStatus = lens _lifTagStatus (\ s a -> s{_lifTagStatus = a});+lifTagStatus = lens _lifTagStatus (\ s a -> s{_lifTagStatus = a})  instance Hashable ListImagesFilter where @@ -718,33 +718,33 @@     :: Repository repository =   Repository'-  { _rRepositoryARN = Nothing-  , _rCreatedAt = Nothing-  , _rRegistryId = Nothing-  , _rRepositoryURI = Nothing-  , _rRepositoryName = Nothing-  }+    { _rRepositoryARN = Nothing+    , _rCreatedAt = Nothing+    , _rRegistryId = Nothing+    , _rRepositoryURI = Nothing+    , _rRepositoryName = Nothing+    }   -- | The Amazon Resource Name (ARN) that identifies the repository. The ARN contains the @arn:aws:ecr@ namespace, followed by the region of the repository, AWS account ID of the repository owner, repository namespace, and repository name. For example, @arn:aws:ecr:region:012345678910:repository/test@ . rRepositoryARN :: Lens' Repository (Maybe Text)-rRepositoryARN = lens _rRepositoryARN (\ s a -> s{_rRepositoryARN = a});+rRepositoryARN = lens _rRepositoryARN (\ s a -> s{_rRepositoryARN = a})  -- | The date and time, in JavaScript date format, when the repository was created. rCreatedAt :: Lens' Repository (Maybe UTCTime)-rCreatedAt = lens _rCreatedAt (\ s a -> s{_rCreatedAt = a}) . mapping _Time;+rCreatedAt = lens _rCreatedAt (\ s a -> s{_rCreatedAt = a}) . mapping _Time  -- | The AWS account ID associated with the registry that contains the repository. rRegistryId :: Lens' Repository (Maybe Text)-rRegistryId = lens _rRegistryId (\ s a -> s{_rRegistryId = a});+rRegistryId = lens _rRegistryId (\ s a -> s{_rRegistryId = a})  -- | The URI for the repository. You can use this URI for Docker @push@ or @pull@ operations. rRepositoryURI :: Lens' Repository (Maybe Text)-rRepositoryURI = lens _rRepositoryURI (\ s a -> s{_rRepositoryURI = a});+rRepositoryURI = lens _rRepositoryURI (\ s a -> s{_rRepositoryURI = a})  -- | The name of the repository. rRepositoryName :: Lens' Repository (Maybe Text)-rRepositoryName = lens _rRepositoryName (\ s a -> s{_rRepositoryName = a});+rRepositoryName = lens _rRepositoryName (\ s a -> s{_rRepositoryName = a})  instance FromJSON Repository where         parseJSON

gen/Network/AWS/ECR/Types/Sum.hs view

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.ECR.Types.Sum--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

gen/Network/AWS/ECR/UploadLayerPart.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECR.UploadLayerPart--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -87,38 +87,38 @@     -> UploadLayerPart uploadLayerPart pRepositoryName_ pUploadId_ pPartFirstByte_ pPartLastByte_ pLayerPartBlob_ =   UploadLayerPart'-  { _ulpRegistryId = Nothing-  , _ulpRepositoryName = pRepositoryName_-  , _ulpUploadId = pUploadId_-  , _ulpPartFirstByte = _Nat # pPartFirstByte_-  , _ulpPartLastByte = _Nat # pPartLastByte_-  , _ulpLayerPartBlob = _Base64 # pLayerPartBlob_-  }+    { _ulpRegistryId = Nothing+    , _ulpRepositoryName = pRepositoryName_+    , _ulpUploadId = pUploadId_+    , _ulpPartFirstByte = _Nat # pPartFirstByte_+    , _ulpPartLastByte = _Nat # pPartLastByte_+    , _ulpLayerPartBlob = _Base64 # pLayerPartBlob_+    }   -- | The AWS account ID associated with the registry to which you are uploading layer parts. If you do not specify a registry, the default registry is assumed. ulpRegistryId :: Lens' UploadLayerPart (Maybe Text)-ulpRegistryId = lens _ulpRegistryId (\ s a -> s{_ulpRegistryId = a});+ulpRegistryId = lens _ulpRegistryId (\ s a -> s{_ulpRegistryId = a})  -- | The name of the repository to which you are uploading layer parts. ulpRepositoryName :: Lens' UploadLayerPart Text-ulpRepositoryName = lens _ulpRepositoryName (\ s a -> s{_ulpRepositoryName = a});+ulpRepositoryName = lens _ulpRepositoryName (\ s a -> s{_ulpRepositoryName = a})  -- | The upload ID from a previous 'InitiateLayerUpload' operation to associate with the layer part upload. ulpUploadId :: Lens' UploadLayerPart Text-ulpUploadId = lens _ulpUploadId (\ s a -> s{_ulpUploadId = a});+ulpUploadId = lens _ulpUploadId (\ s a -> s{_ulpUploadId = a})  -- | The integer value of the first byte of the layer part. ulpPartFirstByte :: Lens' UploadLayerPart Natural-ulpPartFirstByte = lens _ulpPartFirstByte (\ s a -> s{_ulpPartFirstByte = a}) . _Nat;+ulpPartFirstByte = lens _ulpPartFirstByte (\ s a -> s{_ulpPartFirstByte = a}) . _Nat  -- | The integer value of the last byte of the layer part. ulpPartLastByte :: Lens' UploadLayerPart Natural-ulpPartLastByte = lens _ulpPartLastByte (\ s a -> s{_ulpPartLastByte = a}) . _Nat;+ulpPartLastByte = lens _ulpPartLastByte (\ s a -> s{_ulpPartLastByte = a}) . _Nat  -- | The base64-encoded layer part payload.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data. ulpLayerPartBlob :: Lens' UploadLayerPart ByteString-ulpLayerPartBlob = lens _ulpLayerPartBlob (\ s a -> s{_ulpLayerPartBlob = a}) . _Base64;+ulpLayerPartBlob = lens _ulpLayerPartBlob (\ s a -> s{_ulpLayerPartBlob = a}) . _Base64  instance AWSRequest UploadLayerPart where         type Rs UploadLayerPart = UploadLayerPartResponse@@ -191,32 +191,32 @@     -> UploadLayerPartResponse uploadLayerPartResponse pResponseStatus_ =   UploadLayerPartResponse'-  { _ulprsRegistryId = Nothing-  , _ulprsLastByteReceived = Nothing-  , _ulprsRepositoryName = Nothing-  , _ulprsUploadId = Nothing-  , _ulprsResponseStatus = pResponseStatus_-  }+    { _ulprsRegistryId = Nothing+    , _ulprsLastByteReceived = Nothing+    , _ulprsRepositoryName = Nothing+    , _ulprsUploadId = Nothing+    , _ulprsResponseStatus = pResponseStatus_+    }   -- | The registry ID associated with the request. ulprsRegistryId :: Lens' UploadLayerPartResponse (Maybe Text)-ulprsRegistryId = lens _ulprsRegistryId (\ s a -> s{_ulprsRegistryId = a});+ulprsRegistryId = lens _ulprsRegistryId (\ s a -> s{_ulprsRegistryId = a})  -- | The integer value of the last byte received in the request. ulprsLastByteReceived :: Lens' UploadLayerPartResponse (Maybe Natural)-ulprsLastByteReceived = lens _ulprsLastByteReceived (\ s a -> s{_ulprsLastByteReceived = a}) . mapping _Nat;+ulprsLastByteReceived = lens _ulprsLastByteReceived (\ s a -> s{_ulprsLastByteReceived = a}) . mapping _Nat  -- | The repository name associated with the request. ulprsRepositoryName :: Lens' UploadLayerPartResponse (Maybe Text)-ulprsRepositoryName = lens _ulprsRepositoryName (\ s a -> s{_ulprsRepositoryName = a});+ulprsRepositoryName = lens _ulprsRepositoryName (\ s a -> s{_ulprsRepositoryName = a})  -- | The upload ID associated with the request. ulprsUploadId :: Lens' UploadLayerPartResponse (Maybe Text)-ulprsUploadId = lens _ulprsUploadId (\ s a -> s{_ulprsUploadId = a});+ulprsUploadId = lens _ulprsUploadId (\ s a -> s{_ulprsUploadId = a})  -- | -- | The response status code. ulprsResponseStatus :: Lens' UploadLayerPartResponse Int-ulprsResponseStatus = lens _ulprsResponseStatus (\ s a -> s{_ulprsResponseStatus = a});+ulprsResponseStatus = lens _ulprsResponseStatus (\ s a -> s{_ulprsResponseStatus = a})  instance NFData UploadLayerPartResponse where

gen/Network/AWS/ECR/Waiters.hs view

@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.ECR.Waiters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

test/Main.hs view

@@ -2,7 +2,7 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

test/Test/AWS/ECR.hs view

@@ -3,7 +3,7 @@  -- | -- Module      : Test.AWS.ECR--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : experimental

test/Test/AWS/ECR/Internal.hs view

@@ -3,7 +3,7 @@  -- | -- Module      : Test.AWS.ECR.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : experimental

test/Test/AWS/Gen/ECR.hs view

@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.ECR--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated