amazonka-ecr 1.4.4 → 1.4.5

raw patch · 25 files changed

+682/−214 lines, 25 filesdep ~amazonka-coredep ~amazonka-ecrdep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• README.md +9/−6
• amazonka-ecr.cabal +11/−11
• fixture/DescribeImages.yaml +0/−0
• fixture/DescribeImagesResponse.proto +0/−0
• gen/Network/AWS/ECR.hs +26/−1
• gen/Network/AWS/ECR/BatchCheckLayerAvailability.hs +8/−8
• gen/Network/AWS/ECR/BatchDeleteImage.hs +14/−10
• gen/Network/AWS/ECR/BatchGetImage.hs +11/−9
• gen/Network/AWS/ECR/CompleteLayerUpload.hs +15/−15
• gen/Network/AWS/ECR/CreateRepository.hs +8/−6
• gen/Network/AWS/ECR/DeleteRepository.hs +10/−8
• gen/Network/AWS/ECR/DeleteRepositoryPolicy.hs +9/−7
• gen/Network/AWS/ECR/DescribeImages.hs +205/−0
• gen/Network/AWS/ECR/DescribeRepositories.hs +23/−13
• gen/Network/AWS/ECR/GetAuthorizationToken.hs +9/−7
• gen/Network/AWS/ECR/GetDownloadURLForLayer.hs +8/−8
• gen/Network/AWS/ECR/GetRepositoryPolicy.hs +9/−7
• gen/Network/AWS/ECR/InitiateLayerUpload.hs +8/−8
• gen/Network/AWS/ECR/ListImages.hs +16/−16
• gen/Network/AWS/ECR/PutImage.hs +7/−7
• gen/Network/AWS/ECR/SetRepositoryPolicy.hs +12/−10
• gen/Network/AWS/ECR/Types.hs +57/−2
• gen/Network/AWS/ECR/Types/Product.hs +174/−34
• gen/Network/AWS/ECR/UploadLayerPart.hs +15/−21
• test/Test/AWS/Gen/ECR.hs +18/−0

@@ -8,24 +8,27 @@  ## Version -`1.4.4`+`1.4.5`   ## Description -Amazon EC2 Container Registry (Amazon ECR) is a managed AWS 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 AWS 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.- Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-ecr) and the [AWS API Reference](https://aws.amazon.com/documentation/).  The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka),-which provides mechanisms for specifying AuthN/AuthZ information and sending requests.+which provides mechanisms for specifying AuthN/AuthZ information, sending requests,+and receiving responses. -Use of lenses is required for constructing and manipulating types.-This is due to the amount of nesting of AWS types and transparency regarding+Lenses are used for constructing and manipulating types,+due to the depth of nesting of AWS types and transparency regarding de/serialisation into more palatable Haskell values. The provided lenses should be compatible with any of the major lens libraries [lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core).++See [Network.AWS.ECR](http://hackage.haskell.org/package/amazonka-ecr/docs/Network-AWS-ECR.html)+or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.+  ## Contribute 

@@ -1,5 +1,5 @@ name:                  amazonka-ecr-version:               1.4.4+version:               1.4.5 synopsis:              Amazon EC2 Container Registry SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -13,20 +13,19 @@ cabal-version:         >= 1.10 extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep description:-    Amazon EC2 Container Registry (Amazon ECR) is a managed AWS 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 AWS 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.-    .     The types from this library are intended to be used with     <http://hackage.haskell.org/package/amazonka amazonka>, which provides-    mechanisms for specifying AuthN/AuthZ information and sending requests.+    mechanisms for specifying AuthN/AuthZ information, sending requests,+    and receiving responses.     .-    Use of lenses is required for constructing and manipulating types.-    This is due to the amount of nesting of AWS types and transparency regarding+    Lenses are used for constructing and manipulating types,+    due to the depth of nesting of AWS types and transparency regarding     de/serialisation into more palatable Haskell values.     The provided lenses should be compatible with any of the major lens libraries     such as <http://hackage.haskell.org/package/lens lens> or     <http://hackage.haskell.org/package/lens-family-core lens-family-core>.     .-    See "Network.AWS.ECR" or <https://aws.amazon.com/documentation/ the AWS Documentation>+    See "Network.AWS.ECR" or <https://aws.amazon.com/documentation/ the AWS documentation>     to get started.  source-repository head@@ -48,6 +47,7 @@         , Network.AWS.ECR.CreateRepository         , Network.AWS.ECR.DeleteRepository         , Network.AWS.ECR.DeleteRepositoryPolicy+        , Network.AWS.ECR.DescribeImages         , Network.AWS.ECR.DescribeRepositories         , Network.AWS.ECR.GetAuthorizationToken         , Network.AWS.ECR.GetDownloadURLForLayer@@ -65,7 +65,7 @@         , Network.AWS.ECR.Types.Sum      build-depends:-          amazonka-core == 1.4.4.*+          amazonka-core == 1.4.5.*         , base          >= 4.7     && < 5  test-suite amazonka-ecr-test@@ -85,9 +85,9 @@         , Test.AWS.ECR.Internal      build-depends:-          amazonka-core == 1.4.4.*-        , amazonka-test == 1.4.4.*-        , amazonka-ecr == 1.4.4.*+          amazonka-core == 1.4.5.*+        , amazonka-test == 1.4.5.*+        , amazonka-ecr == 1.4.5.*         , base         , bytestring         , tasty

@@ -12,6 +12,8 @@ -- Portability : non-portable (GHC extensions) -- -- Amazon EC2 Container Registry (Amazon ECR) is a managed AWS 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 AWS 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     (     -- * Service Configuration@@ -41,6 +43,9 @@     -- ** LayerPartTooSmallException     , _LayerPartTooSmallException +    -- ** ImageNotFoundException+    , _ImageNotFoundException+     -- ** ImageAlreadyExistsException     , _ImageAlreadyExistsException @@ -92,7 +97,7 @@     -- ** CompleteLayerUpload     , module Network.AWS.ECR.CompleteLayerUpload -    -- ** DescribeRepositories+    -- ** DescribeRepositories (Paginated)     , module Network.AWS.ECR.DescribeRepositories      -- ** UploadLayerPart@@ -122,6 +127,9 @@     -- ** GetDownloadURLForLayer     , module Network.AWS.ECR.GetDownloadURLForLayer +    -- ** DescribeImages (Paginated)+    , module Network.AWS.ECR.DescribeImages+     -- * Types      -- ** ImageFailureCode@@ -143,6 +151,11 @@     , adProxyEndpoint     , adAuthorizationToken +    -- ** DescribeImagesFilter+    , DescribeImagesFilter+    , describeImagesFilter+    , difTagStatus+     -- ** Image     , Image     , image@@ -151,6 +164,16 @@     , iRepositoryName     , iImageManifest +    -- ** ImageDetail+    , ImageDetail+    , imageDetail+    , idRegistryId+    , idImageTags+    , idImageSizeInBytes+    , idImageDigest+    , idImagePushedAt+    , idRepositoryName+     -- ** ImageFailure     , ImageFailure     , imageFailure@@ -187,6 +210,7 @@     , Repository     , repository     , rRepositoryARN+    , rCreatedAt     , rRegistryId     , rRepositoryURI     , rRepositoryName@@ -199,6 +223,7 @@ import           Network.AWS.ECR.CreateRepository import           Network.AWS.ECR.DeleteRepository import           Network.AWS.ECR.DeleteRepositoryPolicy+import           Network.AWS.ECR.DescribeImages import           Network.AWS.ECR.DescribeRepositories import           Network.AWS.ECR.GetAuthorizationToken import           Network.AWS.ECR.GetDownloadURLForLayer

@@ -20,7 +20,7 @@ -- -- Check the availability of multiple image layers in a specified registry and repository. ----- This operation is used by the Amazon ECR proxy, and it is not intended for general use by customers. Use the 'docker' CLI to pull, tag, and push images.+-- module Network.AWS.ECR.BatchCheckLayerAvailability     (     -- * Creating a Request@@ -58,11 +58,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'bclaRegistryId'+-- * 'bclaRegistryId' - 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. ----- * 'bclaRepositoryName'+-- * 'bclaRepositoryName' - The name of the repository that is associated with the image layers to check. ----- * 'bclaLayerDigests'+-- * 'bclaLayerDigests' - The digests of the image layers to check. batchCheckLayerAvailability     :: Text -- ^ 'bclaRepositoryName'     -> NonEmpty Text -- ^ 'bclaLayerDigests'@@ -137,11 +137,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'bclarsFailures'+-- * 'bclarsFailures' - Any failures associated with the call. ----- * 'bclarsLayers'+-- * 'bclarsLayers' - A list of image layer objects corresponding to the image layer references in the request. ----- * 'bclarsResponseStatus'+-- * 'bclarsResponseStatus' - -- | The response status code. batchCheckLayerAvailabilityResponse     :: Int -- ^ 'bclarsResponseStatus'     -> BatchCheckLayerAvailabilityResponse@@ -160,7 +160,7 @@ bclarsLayers :: Lens' BatchCheckLayerAvailabilityResponse [Layer] bclarsLayers = lens _bclarsLayers (\ s a -> s{_bclarsLayers = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. bclarsResponseStatus :: Lens' BatchCheckLayerAvailabilityResponse Int bclarsResponseStatus = lens _bclarsResponseStatus (\ s a -> s{_bclarsResponseStatus = a}); 

@@ -18,7 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes a list of specified images within a specified repository. Images are specified with either 'imageTag' or 'imageDigest'.+-- Deletes a list of specified images within a specified repository. Images are specified with either @imageTag@ or @imageDigest@ .+--+-- module Network.AWS.ECR.BatchDeleteImage     (     -- * Creating a Request@@ -45,8 +47,10 @@ import           Network.AWS.Request import           Network.AWS.Response --- | Deletes specified images within a specified repository. Images are specified with either the 'imageTag' or 'imageDigest'.+-- | Deletes specified images within a specified repository. Images are specified with either the @imageTag@ or @imageDigest@ . --+--+-- -- /See:/ 'batchDeleteImage' smart constructor. data BatchDeleteImage = BatchDeleteImage'     { _bdiRegistryId     :: !(Maybe Text)@@ -58,11 +62,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'bdiRegistryId'+-- * 'bdiRegistryId' - 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. ----- * 'bdiRepositoryName'+-- * 'bdiRepositoryName' - The repository that contains the image to delete. ----- * 'bdiImageIds'+-- * 'bdiImageIds' - A list of image ID references that correspond to images to delete. The format of the @imageIds@ reference is @imageTag=tag@ or @imageDigest=digest@ . batchDeleteImage     :: Text -- ^ 'bdiRepositoryName'     -> BatchDeleteImage@@ -81,7 +85,7 @@ bdiRepositoryName :: Lens' BatchDeleteImage Text 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'.+-- | 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; @@ -135,11 +139,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'bdirsFailures'+-- * 'bdirsFailures' - Any failures associated with the call. ----- * 'bdirsImageIds'+-- * 'bdirsImageIds' - The image IDs of the deleted images. ----- * 'bdirsResponseStatus'+-- * 'bdirsResponseStatus' - -- | The response status code. batchDeleteImageResponse     :: Int -- ^ 'bdirsResponseStatus'     -> BatchDeleteImageResponse@@ -158,7 +162,7 @@ bdirsImageIds :: Lens' BatchDeleteImageResponse [ImageIdentifier] bdirsImageIds = lens _bdirsImageIds (\ s a -> s{_bdirsImageIds = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. bdirsResponseStatus :: Lens' BatchDeleteImageResponse Int bdirsResponseStatus = lens _bdirsResponseStatus (\ s a -> s{_bdirsResponseStatus = a}); 

@@ -18,7 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Gets detailed information for specified images within a specified repository. Images are specified with either 'imageTag' or 'imageDigest'.+-- Gets detailed information for specified images within a specified repository. Images are specified with either @imageTag@ or @imageDigest@ .+--+-- module Network.AWS.ECR.BatchGetImage     (     -- * Creating a Request@@ -56,11 +58,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'bgiRegistryId'+-- * 'bgiRegistryId' - 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. ----- * 'bgiRepositoryName'+-- * 'bgiRepositoryName' - The repository that contains the images to describe. ----- * 'bgiImageIds'+-- * 'bgiImageIds' - A list of image ID references that correspond to images to describe. The format of the @imageIds@ reference is @imageTag=tag@ or @imageDigest=digest@ . batchGetImage     :: Text -- ^ 'bgiRepositoryName'     -> BatchGetImage@@ -79,7 +81,7 @@ bgiRepositoryName :: Lens' BatchGetImage Text 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'.+-- | 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; @@ -133,11 +135,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'bgirsImages'+-- * 'bgirsImages' - A list of image objects corresponding to the image references in the request. ----- * 'bgirsFailures'+-- * 'bgirsFailures' - Any failures associated with the call. ----- * 'bgirsResponseStatus'+-- * 'bgirsResponseStatus' - -- | The response status code. batchGetImageResponse     :: Int -- ^ 'bgirsResponseStatus'     -> BatchGetImageResponse@@ -156,7 +158,7 @@ bgirsFailures :: Lens' BatchGetImageResponse [ImageFailure] bgirsFailures = lens _bgirsFailures (\ s a -> s{_bgirsFailures = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. bgirsResponseStatus :: Lens' BatchGetImageResponse Int bgirsResponseStatus = lens _bgirsResponseStatus (\ s a -> s{_bgirsResponseStatus = a}); 

@@ -18,9 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Inform Amazon ECR that the image layer upload for a specified registry, repository name, and upload ID, has completed. You can optionally provide a 'sha256' digest of the image layer for data validation purposes.+-- Inform Amazon ECR that the image layer upload for a specified registry, repository name, and upload ID, has completed. You can optionally provide a @sha256@ digest of the image layer for data validation purposes. ----- This operation is used by the Amazon ECR proxy, and it is not intended for general use by customers. Use the 'docker' CLI to pull, tag, and push images.+-- module Network.AWS.ECR.CompleteLayerUpload     (     -- * Creating a Request@@ -62,13 +62,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cluRegistryId'+-- * 'cluRegistryId' - 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. ----- * 'cluRepositoryName'+-- * 'cluRepositoryName' - The name of the repository to associate with the image layer. ----- * 'cluUploadId'+-- * 'cluUploadId' - The upload ID from a previous 'InitiateLayerUpload' operation to associate with the image layer. ----- * 'cluLayerDigests'+-- * 'cluLayerDigests' - The @sha256@ digest of the image layer. completeLayerUpload     :: Text -- ^ 'cluRepositoryName'     -> Text -- ^ 'cluUploadId'@@ -90,11 +90,11 @@ cluRepositoryName :: Lens' CompleteLayerUpload Text cluRepositoryName = lens _cluRepositoryName (\ s a -> s{_cluRepositoryName = a}); --- | The upload ID from a previous < InitiateLayerUpload> operation to associate with the image layer.+-- | 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}); --- | The 'sha256' digest of the image layer.+-- | The @sha256@ digest of the image layer. cluLayerDigests :: Lens' CompleteLayerUpload (NonEmpty Text) cluLayerDigests = lens _cluLayerDigests (\ s a -> s{_cluLayerDigests = a}) . _List1; @@ -153,15 +153,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'clursRegistryId'+-- * 'clursRegistryId' - The registry ID associated with the request. ----- * 'clursLayerDigest'+-- * 'clursLayerDigest' - The @sha256@ digest of the image layer. ----- * 'clursRepositoryName'+-- * 'clursRepositoryName' - The repository name associated with the request. ----- * 'clursUploadId'+-- * 'clursUploadId' - The upload ID associated with the layer. ----- * 'clursResponseStatus'+-- * 'clursResponseStatus' - -- | The response status code. completeLayerUploadResponse     :: Int -- ^ 'clursResponseStatus'     -> CompleteLayerUploadResponse@@ -178,7 +178,7 @@ clursRegistryId :: Lens' CompleteLayerUploadResponse (Maybe Text) clursRegistryId = lens _clursRegistryId (\ s a -> s{_clursRegistryId = a}); --- | The 'sha256' digest of the image layer.+-- | The @sha256@ digest of the image layer. clursLayerDigest :: Lens' CompleteLayerUploadResponse (Maybe Text) clursLayerDigest = lens _clursLayerDigest (\ s a -> s{_clursLayerDigest = a}); @@ -190,7 +190,7 @@ clursUploadId :: Lens' CompleteLayerUploadResponse (Maybe Text) clursUploadId = lens _clursUploadId (\ s a -> s{_clursUploadId = a}); --- | The response status code.+-- | -- | The response status code. clursResponseStatus :: Lens' CompleteLayerUploadResponse Int clursResponseStatus = lens _clursResponseStatus (\ s a -> s{_clursResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Creates an image repository.+--+-- module Network.AWS.ECR.CreateRepository     (     -- * Creating a Request@@ -51,7 +53,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'crRepositoryName'+-- * 'crRepositoryName' - 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@ ). createRepository     :: Text -- ^ 'crRepositoryName'     -> CreateRepository@@ -60,7 +62,7 @@     { _crRepositoryName = pRepositoryName_     } --- | 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').+-- | 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}); @@ -109,9 +111,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'crrsRepository'+-- * 'crrsRepository' - The repository that was created. ----- * 'crrsResponseStatus'+-- * 'crrsResponseStatus' - -- | The response status code. createRepositoryResponse     :: Int -- ^ 'crrsResponseStatus'     -> CreateRepositoryResponse@@ -121,11 +123,11 @@     , _crrsResponseStatus = pResponseStatus_     } --- | Undocumented member.+-- | The repository that was created. crrsRepository :: Lens' CreateRepositoryResponse (Maybe Repository) crrsRepository = lens _crrsRepository (\ s a -> s{_crrsRepository = a}); --- | The response status code.+-- | -- | The response status code. crrsResponseStatus :: Lens' CreateRepositoryResponse Int crrsResponseStatus = lens _crrsResponseStatus (\ s a -> s{_crrsResponseStatus = a}); 

@@ -18,7 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes an existing image repository. If a repository contains images, you must use the 'force' option to delete it.+-- Deletes an existing image repository. If a repository contains images, you must use the @force@ option to delete it.+--+-- module Network.AWS.ECR.DeleteRepository     (     -- * Creating a Request@@ -55,11 +57,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dForce'+-- * 'dForce' - Force the deletion of the repository if it contains images. ----- * 'dRegistryId'+-- * 'dRegistryId' - 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. ----- * 'dRepositoryName'+-- * 'dRepositoryName' - The name of the repository to delete. deleteRepository     :: Text -- ^ 'dRepositoryName'     -> DeleteRepository@@ -129,9 +131,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drsRepository'+-- * 'drsRepository' - The repository that was deleted. ----- * 'drsResponseStatus'+-- * 'drsResponseStatus' - -- | The response status code. deleteRepositoryResponse     :: Int -- ^ 'drsResponseStatus'     -> DeleteRepositoryResponse@@ -141,11 +143,11 @@     , _drsResponseStatus = pResponseStatus_     } --- | Undocumented member.+-- | The repository that was deleted. drsRepository :: Lens' DeleteRepositoryResponse (Maybe Repository) drsRepository = lens _drsRepository (\ s a -> s{_drsRepository = a}); --- | The response status code.+-- | -- | The response status code. drsResponseStatus :: Lens' DeleteRepositoryResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Deletes the repository policy from a specified repository.+--+-- module Network.AWS.ECR.DeleteRepositoryPolicy     (     -- * Creating a Request@@ -55,9 +57,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drpRegistryId'+-- * 'drpRegistryId' - 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. ----- * 'drpRepositoryName'+-- * 'drpRepositoryName' - The name of the repository that is associated with the repository policy to delete. deleteRepositoryPolicy     :: Text -- ^ 'drpRepositoryName'     -> DeleteRepositoryPolicy@@ -126,13 +128,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drprsRegistryId'+-- * 'drprsRegistryId' - The registry ID associated with the request. ----- * 'drprsRepositoryName'+-- * 'drprsRepositoryName' - The repository name associated with the request. ----- * 'drprsPolicyText'+-- * 'drprsPolicyText' - The JSON repository policy that was deleted from the repository. ----- * 'drprsResponseStatus'+-- * 'drprsResponseStatus' - -- | The response status code. deleteRepositoryPolicyResponse     :: Int -- ^ 'drprsResponseStatus'     -> DeleteRepositoryPolicyResponse@@ -156,7 +158,7 @@ drprsPolicyText :: Lens' DeleteRepositoryPolicyResponse (Maybe Text) drprsPolicyText = lens _drprsPolicyText (\ s a -> s{_drprsPolicyText = a}); --- | The response status code.+-- | -- | The response status code. drprsResponseStatus :: Lens' DeleteRepositoryPolicyResponse Int drprsResponseStatus = lens _drprsResponseStatus (\ s a -> s{_drprsResponseStatus = a}); 

@@ -0,0 +1,205 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.ECR.DescribeImages+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns metadata about the images in a repository, including image size and creation date.+--+--+--+-- This operation returns paginated results.+module Network.AWS.ECR.DescribeImages+    (+    -- * Creating a Request+      describeImages+    , DescribeImages+    -- * Request Lenses+    , diRegistryId+    , diImageIds+    , diNextToken+    , diFilter+    , diMaxResults+    , diRepositoryName++    -- * Destructuring the Response+    , describeImagesResponse+    , DescribeImagesResponse+    -- * Response Lenses+    , dirsImageDetails+    , dirsNextToken+    , dirsResponseStatus+    ) where++import           Network.AWS.ECR.Types+import           Network.AWS.ECR.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Pager+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeImages' smart constructor.+data DescribeImages = DescribeImages'+    { _diRegistryId     :: !(Maybe Text)+    , _diImageIds       :: !(Maybe [ImageIdentifier])+    , _diNextToken      :: !(Maybe Text)+    , _diFilter         :: !(Maybe DescribeImagesFilter)+    , _diMaxResults     :: !(Maybe Nat)+    , _diRepositoryName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeImages' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'diRegistryId' - 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.+--+-- * '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.+--+-- * '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.+--+-- * 'diRepositoryName' - A list of repositories to describe. If this parameter is omitted, then all repositories in a registry are described.+describeImages+    :: Text -- ^ 'diRepositoryName'+    -> DescribeImages+describeImages pRepositoryName_ =+    DescribeImages'+    { _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 list 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});++-- | The list of image IDs for the requested repository.+diImageIds :: Lens' DescribeImages [ImageIdentifier]+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.+diNextToken :: Lens' DescribeImages (Maybe Text)+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});++-- | 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 :: Lens' DescribeImages (Maybe Natural)+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});++instance AWSPager DescribeImages where+        page rq rs+          | stop (rs ^. dirsNextToken) = Nothing+          | stop (rs ^. dirsImageDetails) = Nothing+          | otherwise =+            Just $ rq & diNextToken .~ rs ^. dirsNextToken++instance AWSRequest DescribeImages where+        type Rs DescribeImages = DescribeImagesResponse+        request = postJSON ecr+        response+          = receiveJSON+              (\ s h x ->+                 DescribeImagesResponse' <$>+                   (x .?> "imageDetails" .!@ mempty) <*>+                     (x .?> "nextToken")+                     <*> (pure (fromEnum s)))++instance Hashable DescribeImages++instance NFData DescribeImages++instance ToHeaders DescribeImages where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonEC2ContainerRegistry_V20150921.DescribeImages"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeImages where+        toJSON DescribeImages'{..}+          = object+              (catMaybes+                 [("registryId" .=) <$> _diRegistryId,+                  ("imageIds" .=) <$> _diImageIds,+                  ("nextToken" .=) <$> _diNextToken,+                  ("filter" .=) <$> _diFilter,+                  ("maxResults" .=) <$> _diMaxResults,+                  Just ("repositoryName" .= _diRepositoryName)])++instance ToPath DescribeImages where+        toPath = const "/"++instance ToQuery DescribeImages where+        toQuery = const mempty++-- | /See:/ 'describeImagesResponse' smart constructor.+data DescribeImagesResponse = DescribeImagesResponse'+    { _dirsImageDetails   :: !(Maybe [ImageDetail])+    , _dirsNextToken      :: !(Maybe Text)+    , _dirsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeImagesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dirsImageDetails' - A list of 'ImageDetail' objects that contain data about the image.+--+-- * 'dirsNextToken' - 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.+--+-- * 'dirsResponseStatus' - -- | The response status code.+describeImagesResponse+    :: Int -- ^ 'dirsResponseStatus'+    -> DescribeImagesResponse+describeImagesResponse pResponseStatus_ =+    DescribeImagesResponse'+    { _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;++-- | 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});++-- | -- | The response status code.+dirsResponseStatus :: Lens' DescribeImagesResponse Int+dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a});++instance NFData DescribeImagesResponse

@@ -19,6 +19,10 @@ -- Portability : non-portable (GHC extensions) -- -- Describes image repositories in a registry.+--+--+--+-- This operation returns paginated results. module Network.AWS.ECR.DescribeRepositories     (     -- * Creating a Request@@ -42,6 +46,7 @@ import           Network.AWS.ECR.Types import           Network.AWS.ECR.Types.Product import           Network.AWS.Lens+import           Network.AWS.Pager import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response@@ -58,13 +63,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drRegistryId'+-- * 'drRegistryId' - 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. ----- * 'drRepositoryNames'+-- * 'drRepositoryNames' - A list of repositories to describe. If this parameter is omitted, then all repositories in a registry are described. ----- * 'drNextToken'+-- * '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. ----- * 'drMaxResults'+-- * '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. describeRepositories     :: DescribeRepositories describeRepositories =@@ -83,16 +88,21 @@ drRepositoryNames :: Lens' DescribeRepositories (Maybe (NonEmpty Text)) 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.------ This token should be treated as an opaque identifier that is only used to retrieve the next items in a list and not for other programmatic purposes.+-- | 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 :: Lens' DescribeRepositories (Maybe Text) 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. drMaxResults :: Lens' DescribeRepositories (Maybe Natural) drMaxResults = lens _drMaxResults (\ s a -> s{_drMaxResults = a}) . mapping _Nat; +instance AWSPager DescribeRepositories where+        page rq rs+          | stop (rs ^. drrsNextToken) = Nothing+          | stop (rs ^. drrsRepositories) = Nothing+          | otherwise =+            Just $ rq & drNextToken .~ rs ^. drrsNextToken+ instance AWSRequest DescribeRepositories where         type Rs DescribeRepositories =              DescribeRepositoriesResponse@@ -145,11 +155,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drrsRepositories'+-- * 'drrsRepositories' - A list of repository objects corresponding to valid repositories. ----- * 'drrsNextToken'+-- * 'drrsNextToken' - 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. ----- * 'drrsResponseStatus'+-- * 'drrsResponseStatus' - -- | The response status code. describeRepositoriesResponse     :: Int -- ^ 'drrsResponseStatus'     -> DescribeRepositoriesResponse@@ -164,11 +174,11 @@ drrsRepositories :: Lens' DescribeRepositoriesResponse [Repository] 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.+-- | 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}); --- | The response status code.+-- | -- | The response status code. drrsResponseStatus :: Lens' DescribeRepositoriesResponse Int drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a}); 

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Retrieves a token that is valid for a specified registry for 12 hours. This command allows you to use the 'docker' CLI to push and pull images with Amazon ECR. If you do not specify a registry, the default registry is assumed.+-- Retrieves a token that is valid for a specified registry for 12 hours. This command allows you to use the @docker@ CLI to push and pull images with Amazon ECR. If you do not specify a registry, the default registry is assumed. ----- The 'authorizationToken' returned for each registry specified is a base64 encoded string that can be decoded and used in a 'docker login' command to authenticate to a registry. The AWS CLI offers an 'aws ecr get-login' command that simplifies the login process.+--+-- The @authorizationToken@ returned for each registry specified is a base64 encoded string that can be decoded and used in a @docker login@ command to authenticate to a registry. The AWS CLI offers an @aws ecr get-login@ command that simplifies the login process.+-- module Network.AWS.ECR.GetAuthorizationToken     (     -- * Creating a Request@@ -53,7 +55,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gatRegistryIds'+-- * 'gatRegistryIds' - 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. getAuthorizationToken     :: GetAuthorizationToken getAuthorizationToken =@@ -111,9 +113,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gatrsAuthorizationData'+-- * 'gatrsAuthorizationData' - A list of authorization token data objects that correspond to the @registryIds@ values in the request. ----- * 'gatrsResponseStatus'+-- * 'gatrsResponseStatus' - -- | The response status code. getAuthorizationTokenResponse     :: Int -- ^ 'gatrsResponseStatus'     -> GetAuthorizationTokenResponse@@ -123,11 +125,11 @@     , _gatrsResponseStatus = pResponseStatus_     } --- | A list of authorization token data objects that correspond to the 'registryIds' values in the request.+-- | 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; --- | The response status code.+-- | -- | The response status code. gatrsResponseStatus :: Lens' GetAuthorizationTokenResponse Int gatrsResponseStatus = lens _gatrsResponseStatus (\ s a -> s{_gatrsResponseStatus = a}); 

@@ -20,7 +20,7 @@ -- -- Retrieves the pre-signed Amazon S3 download URL corresponding to an image layer. You can only get URLs for image layers that are referenced in an image. ----- This operation is used by the Amazon ECR proxy, and it is not intended for general use by customers. Use the 'docker' CLI to pull, tag, and push images.+-- module Network.AWS.ECR.GetDownloadURLForLayer     (     -- * Creating a Request@@ -58,11 +58,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gduflRegistryId'+-- * 'gduflRegistryId' - 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. ----- * 'gduflRepositoryName'+-- * 'gduflRepositoryName' - The name of the repository that is associated with the image layer to download. ----- * 'gduflLayerDigest'+-- * 'gduflLayerDigest' - The digest of the image layer to download. getDownloadURLForLayer     :: Text -- ^ 'gduflRepositoryName'     -> Text -- ^ 'gduflLayerDigest'@@ -136,11 +136,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gduflrsLayerDigest'+-- * 'gduflrsLayerDigest' - The digest of the image layer to download. ----- * 'gduflrsDownloadURL'+-- * 'gduflrsDownloadURL' - The pre-signed Amazon S3 download URL for the requested layer. ----- * 'gduflrsResponseStatus'+-- * 'gduflrsResponseStatus' - -- | The response status code. getDownloadURLForLayerResponse     :: Int -- ^ 'gduflrsResponseStatus'     -> GetDownloadURLForLayerResponse@@ -159,7 +159,7 @@ gduflrsDownloadURL :: Lens' GetDownloadURLForLayerResponse (Maybe Text) gduflrsDownloadURL = lens _gduflrsDownloadURL (\ s a -> s{_gduflrsDownloadURL = a}); --- | The response status code.+-- | -- | The response status code. gduflrsResponseStatus :: Lens' GetDownloadURLForLayerResponse Int gduflrsResponseStatus = lens _gduflrsResponseStatus (\ s a -> s{_gduflrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Retrieves the repository policy for a specified repository.+--+-- module Network.AWS.ECR.GetRepositoryPolicy     (     -- * Creating a Request@@ -55,9 +57,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'grpRegistryId'+-- * 'grpRegistryId' - The AWS account ID associated with the registry that contains the repository. If you do not specify a registry, the default registry is assumed. ----- * 'grpRepositoryName'+-- * 'grpRepositoryName' - The name of the repository whose policy you want to retrieve. getRepositoryPolicy     :: Text -- ^ 'grpRepositoryName'     -> GetRepositoryPolicy@@ -126,13 +128,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'grprsRegistryId'+-- * 'grprsRegistryId' - The registry ID associated with the request. ----- * 'grprsRepositoryName'+-- * 'grprsRepositoryName' - The repository name associated with the request. ----- * 'grprsPolicyText'+-- * 'grprsPolicyText' - The JSON repository policy text associated with the repository. ----- * 'grprsResponseStatus'+-- * 'grprsResponseStatus' - -- | The response status code. getRepositoryPolicyResponse     :: Int -- ^ 'grprsResponseStatus'     -> GetRepositoryPolicyResponse@@ -156,7 +158,7 @@ grprsPolicyText :: Lens' GetRepositoryPolicyResponse (Maybe Text) grprsPolicyText = lens _grprsPolicyText (\ s a -> s{_grprsPolicyText = a}); --- | The response status code.+-- | -- | The response status code. grprsResponseStatus :: Lens' GetRepositoryPolicyResponse Int grprsResponseStatus = lens _grprsResponseStatus (\ s a -> s{_grprsResponseStatus = a}); 

@@ -20,7 +20,7 @@ -- -- Notify Amazon ECR that you intend to upload an image layer. ----- This operation is used by the Amazon ECR proxy, and it is not intended for general use by customers. Use the 'docker' CLI to pull, tag, and push images.+-- module Network.AWS.ECR.InitiateLayerUpload     (     -- * Creating a Request@@ -56,9 +56,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'iluRegistryId'+-- * 'iluRegistryId' - The AWS account ID associated with the registry that you intend to upload layers to. If you do not specify a registry, the default registry is assumed. ----- * 'iluRepositoryName'+-- * 'iluRepositoryName' - The name of the repository that you intend to upload layers to. initiateLayerUpload     :: Text -- ^ 'iluRepositoryName'     -> InitiateLayerUpload@@ -125,11 +125,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ilursPartSize'+-- * 'ilursPartSize' - The size, in bytes, that Amazon ECR expects future layer part uploads to be. ----- * 'ilursUploadId'+-- * 'ilursUploadId' - The upload ID for the layer upload. This parameter is passed to further 'UploadLayerPart' and 'CompleteLayerUpload' operations. ----- * 'ilursResponseStatus'+-- * 'ilursResponseStatus' - -- | The response status code. initiateLayerUploadResponse     :: Int -- ^ 'ilursResponseStatus'     -> InitiateLayerUploadResponse@@ -144,11 +144,11 @@ ilursPartSize :: Lens' InitiateLayerUploadResponse (Maybe Natural) 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.+-- | 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}); --- | The response status code.+-- | -- | The response status code. ilursResponseStatus :: Lens' InitiateLayerUploadResponse Int ilursResponseStatus = lens _ilursResponseStatus (\ s a -> s{_ilursResponseStatus = a}); 

@@ -20,8 +20,10 @@ -- -- Lists all the image IDs for a given repository. ----- You can filter images based on whether or not they are tagged by setting the 'tagStatus' parameter to 'TAGGED' or 'UNTAGGED'. For example, you can filter your results to return only 'UNTAGGED' images and then pipe that result to a < BatchDeleteImage> operation to delete them. Or, you can filter your results to return only 'TAGGED' images to list all of the tags in your repository. --+-- You can filter images based on whether or not they are tagged by setting the @tagStatus@ parameter to @TAGGED@ or @UNTAGGED@ . For example, you can filter your results to return only @UNTAGGED@ images and then pipe that result to a 'BatchDeleteImage' operation to delete them. Or, you can filter your results to return only @TAGGED@ images to list all of the tags in your repository.+--+-- -- This operation returns paginated results. module Network.AWS.ECR.ListImages     (@@ -65,15 +67,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'liRegistryId'+-- * 'liRegistryId' - The AWS account ID associated with the registry that contains the repository to list images in. If you do not specify a registry, the default registry is assumed. ----- * 'liNextToken'+-- * 'liNextToken' - 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. ----- * 'liFilter'+-- * 'liFilter' - The filter key and value with which to filter your @ListImages@ results. ----- * 'liMaxResults'+-- * 'liMaxResults' - 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. ----- * 'liRepositoryName'+-- * 'liRepositoryName' - The repository whose image IDs are to be listed. listImages     :: Text -- ^ 'liRepositoryName'     -> ListImages@@ -90,17 +92,15 @@ liRegistryId :: Lens' ListImages (Maybe Text) 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.------ This token should be treated as an opaque identifier that is only used to retrieve the next items in a list and not for other programmatic purposes.+-- | 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}); --- | The filter key and value with which to filter your 'ListImages' results.+-- | 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}); --- | 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.+-- | 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; @@ -166,11 +166,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lirsImageIds'+-- * 'lirsImageIds' - The list of image IDs for the requested repository. ----- * 'lirsNextToken'+-- * 'lirsNextToken' - 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. ----- * 'lirsResponseStatus'+-- * 'lirsResponseStatus' - -- | The response status code. listImagesResponse     :: Int -- ^ 'lirsResponseStatus'     -> ListImagesResponse@@ -185,11 +185,11 @@ lirsImageIds :: Lens' ListImagesResponse [ImageIdentifier] 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.+-- | 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}); --- | The response status code.+-- | -- | The response status code. lirsResponseStatus :: Lens' ListImagesResponse Int lirsResponseStatus = lens _lirsResponseStatus (\ s a -> s{_lirsResponseStatus = a}); 

@@ -20,7 +20,7 @@ -- -- Creates or updates the image manifest associated with an image. ----- This operation is used by the Amazon ECR proxy, and it is not intended for general use by customers. Use the 'docker' CLI to pull, tag, and push images.+-- module Network.AWS.ECR.PutImage     (     -- * Creating a Request@@ -57,11 +57,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'piRegistryId'+-- * 'piRegistryId' - 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. ----- * 'piRepositoryName'+-- * 'piRepositoryName' - The name of the repository in which to put the image. ----- * 'piImageManifest'+-- * 'piImageManifest' - The image manifest corresponding to the image to be uploaded. putImage     :: Text -- ^ 'piRepositoryName'     -> Text -- ^ 'piImageManifest'@@ -132,9 +132,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'pirsImage'+-- * 'pirsImage' - Details of the image uploaded. ----- * 'pirsResponseStatus'+-- * 'pirsResponseStatus' - -- | The response status code. putImageResponse     :: Int -- ^ 'pirsResponseStatus'     -> PutImageResponse@@ -148,7 +148,7 @@ pirsImage :: Lens' PutImageResponse (Maybe Image) pirsImage = lens _pirsImage (\ s a -> s{_pirsImage = a}); --- | The response status code.+-- | -- | The response status code. pirsResponseStatus :: Lens' PutImageResponse Int pirsResponseStatus = lens _pirsResponseStatus (\ s a -> s{_pirsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Applies a repository policy on a specified repository to control access permissions.+--+-- module Network.AWS.ECR.SetRepositoryPolicy     (     -- * Creating a Request@@ -59,13 +61,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'srpForce'+-- * 'srpForce' - 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. ----- * 'srpRegistryId'+-- * 'srpRegistryId' - The AWS account ID associated with the registry that contains the repository. If you do not specify a registry, the default registry is assumed. ----- * 'srpRepositoryName'+-- * 'srpRepositoryName' - The name of the repository to receive the policy. ----- * 'srpPolicyText'+-- * 'srpPolicyText' - The JSON repository policy text to apply to the repository. setRepositoryPolicy     :: Text -- ^ 'srpRepositoryName'     -> Text -- ^ 'srpPolicyText'@@ -78,7 +80,7 @@     , _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.+-- | 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}); @@ -147,13 +149,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'srprsRegistryId'+-- * 'srprsRegistryId' - The registry ID associated with the request. ----- * 'srprsRepositoryName'+-- * 'srprsRepositoryName' - The repository name associated with the request. ----- * 'srprsPolicyText'+-- * 'srprsPolicyText' - The JSON repository policy text applied to the repository. ----- * 'srprsResponseStatus'+-- * 'srprsResponseStatus' - -- | The response status code. setRepositoryPolicyResponse     :: Int -- ^ 'srprsResponseStatus'     -> SetRepositoryPolicyResponse@@ -177,7 +179,7 @@ srprsPolicyText :: Lens' SetRepositoryPolicyResponse (Maybe Text) srprsPolicyText = lens _srprsPolicyText (\ s a -> s{_srprsPolicyText = a}); --- | The response status code.+-- | -- | The response status code. srprsResponseStatus :: Lens' SetRepositoryPolicyResponse Int srprsResponseStatus = lens _srprsResponseStatus (\ s a -> s{_srprsResponseStatus = a}); 

@@ -23,6 +23,7 @@     , _LayerInaccessibleException     , _InvalidLayerException     , _LayerPartTooSmallException+    , _ImageNotFoundException     , _ImageAlreadyExistsException     , _RepositoryNotFoundException     , _UploadNotFoundException@@ -52,6 +53,11 @@     , adProxyEndpoint     , adAuthorizationToken +    -- * DescribeImagesFilter+    , DescribeImagesFilter+    , describeImagesFilter+    , difTagStatus+     -- * Image     , Image     , image@@ -60,6 +66,16 @@     , iRepositoryName     , iImageManifest +    -- * ImageDetail+    , ImageDetail+    , imageDetail+    , idRegistryId+    , idImageTags+    , idImageSizeInBytes+    , idImageDigest+    , idImagePushedAt+    , idRepositoryName+     -- * ImageFailure     , ImageFailure     , imageFailure@@ -96,6 +112,7 @@     , Repository     , repository     , rRepositoryARN+    , rCreatedAt     , rRegistryId     , rRepositoryURI     , rRepositoryName@@ -107,7 +124,7 @@ import           Network.AWS.Prelude import           Network.AWS.Sign.V4 --- | API version '2015-09-21' of the Amazon EC2 Container Registry SDK configuration.+-- | API version @2015-09-21@ of the Amazon EC2 Container Registry SDK configuration. ecr :: Service ecr =     Service@@ -142,75 +159,113 @@       | otherwise = Nothing  -- | The specified layers could not be found, or the specified layer is not valid for this repository.+--+-- _LayersNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _LayersNotFoundException = _ServiceError . hasCode "LayersNotFoundException"  -- | The specified parameter is invalid. Review the available parameters for the API request.+--+-- _InvalidParameterException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidParameterException =     _ServiceError . hasCode "InvalidParameterException"  -- | The image layer already exists in the associated repository.+--+-- _LayerAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError _LayerAlreadyExistsException =     _ServiceError . hasCode "LayerAlreadyExistsException"  -- | These errors are usually caused by a server-side issue.+--+-- _ServerException :: AsError a => Getting (First ServiceError) a ServiceError _ServerException = _ServiceError . hasCode "ServerException"  -- | The specified layer is not available because it is not associated with an image. Unassociated image layers may be cleaned up at any time.+--+-- _LayerInaccessibleException :: AsError a => Getting (First ServiceError) a ServiceError _LayerInaccessibleException =     _ServiceError . hasCode "LayerInaccessibleException"  -- | The layer digest calculation performed by Amazon ECR upon receipt of the image layer does not match the digest specified.+--+-- _InvalidLayerException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidLayerException = _ServiceError . hasCode "InvalidLayerException"  -- | Layer parts must be at least 5 MiB in size.+--+-- _LayerPartTooSmallException :: AsError a => Getting (First ServiceError) a ServiceError _LayerPartTooSmallException =     _ServiceError . hasCode "LayerPartTooSmallException" +-- | The image requested does not exist in the specified repository.+--+--+_ImageNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError+_ImageNotFoundException = _ServiceError . hasCode "ImageNotFoundException"+ -- | The specified image has already been pushed, and there are no changes to the manifest or image tag since the last push.+--+-- _ImageAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError _ImageAlreadyExistsException =     _ServiceError . hasCode "ImageAlreadyExistsException"  -- | The specified repository could not be found. Check the spelling of the specified repository and ensure that you are performing operations on the correct registry.+--+-- _RepositoryNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _RepositoryNotFoundException =     _ServiceError . hasCode "RepositoryNotFoundException"  -- | The upload could not be found, or the specified upload id is not valid for this repository.+--+-- _UploadNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _UploadNotFoundException = _ServiceError . hasCode "UploadNotFoundException"  -- | The layer part size is not valid, or the first byte specified is not consecutive to the last byte of a previous layer part upload.+--+-- _InvalidLayerPartException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidLayerPartException =     _ServiceError . hasCode "InvalidLayerPartException" --- | The specified repository contains images. To delete a repository that contains images, you must force the deletion with the 'force' parameter.+-- | The specified repository contains images. To delete a repository that contains images, you must force the deletion with the @force@ parameter.+--+-- _RepositoryNotEmptyException :: AsError a => Getting (First ServiceError) a ServiceError _RepositoryNotEmptyException =     _ServiceError . hasCode "RepositoryNotEmptyException"  -- | The specified repository already exists in the specified registry.+--+-- _RepositoryAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError _RepositoryAlreadyExistsException =     _ServiceError . hasCode "RepositoryAlreadyExistsException"  -- | The specified repository and registry combination does not have an associated repository policy.+--+-- _RepositoryPolicyNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _RepositoryPolicyNotFoundException =     _ServiceError . hasCode "RepositoryPolicyNotFoundException"  -- | The specified layer upload does not contain any layer parts.+--+-- _EmptyUploadException :: AsError a => Getting (First ServiceError) a ServiceError _EmptyUploadException = _ServiceError . hasCode "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.+--+-- _LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _LimitExceededException = _ServiceError . hasCode "LimitExceededException"

@@ -23,6 +23,8 @@  -- | An object representing authorization data for an Amazon ECR registry. --+--+-- -- /See:/ 'authorizationData' smart constructor. data AuthorizationData = AuthorizationData'     { _adExpiresAt          :: !(Maybe POSIX)@@ -34,11 +36,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'adExpiresAt'+-- * 'adExpiresAt' - The Unix time in seconds and milliseconds when the authorization token expires. Authorization tokens are valid for 12 hours. ----- * 'adProxyEndpoint'+-- * 'adProxyEndpoint' - 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@ .. ----- * 'adAuthorizationToken'+-- * 'adAuthorizationToken' - 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@ . authorizationData     :: AuthorizationData authorizationData =@@ -52,11 +54,11 @@ adExpiresAt :: Lens' AuthorizationData (Maybe UTCTime) 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'..+-- | 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}); --- | 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'.+-- | 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}); @@ -72,8 +74,44 @@  instance NFData AuthorizationData +-- | An object representing a filter on a 'DescribeImages' operation.+--+--+--+-- /See:/ 'describeImagesFilter' smart constructor.+newtype DescribeImagesFilter = DescribeImagesFilter'+    { _difTagStatus :: Maybe TagStatus+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeImagesFilter' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'difTagStatus' - The tag status with which to filter your 'DescribeImages' results. You can filter results based on whether they are @TAGGED@ or @UNTAGGED@ .+describeImagesFilter+    :: DescribeImagesFilter+describeImagesFilter =+    DescribeImagesFilter'+    { _difTagStatus = Nothing+    }++-- | 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});++instance Hashable DescribeImagesFilter++instance NFData DescribeImagesFilter++instance ToJSON DescribeImagesFilter where+        toJSON DescribeImagesFilter'{..}+          = object+              (catMaybes [("tagStatus" .=) <$> _difTagStatus])+ -- | An object representing an Amazon ECR image. --+--+-- -- /See:/ 'image' smart constructor. data Image = Image'     { _iRegistryId     :: !(Maybe Text)@@ -86,13 +124,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'iRegistryId'+-- * 'iRegistryId' - The AWS account ID associated with the registry containing the image. ----- * 'iImageId'+-- * 'iImageId' - An object containing the image tag and image digest associated with an image. ----- * 'iRepositoryName'+-- * 'iRepositoryName' - The name of the repository associated with the image. ----- * 'iImageManifest'+-- * 'iImageManifest' - The image manifest associated with the image. image     :: Image image =@@ -132,8 +170,91 @@  instance NFData Image +-- | An object that describes an image returned by a 'DescribeImages' operation.+--+--+--+-- /See:/ 'imageDetail' smart constructor.+data ImageDetail = ImageDetail'+    { _idRegistryId       :: !(Maybe Text)+    , _idImageTags        :: !(Maybe [Text])+    , _idImageSizeInBytes :: !(Maybe Integer)+    , _idImageDigest      :: !(Maybe Text)+    , _idImagePushedAt    :: !(Maybe POSIX)+    , _idRepositoryName   :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ImageDetail' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'idRegistryId' - The AWS account ID associated with the registry to which this image belongs.+--+-- * 'idImageTags' - The list of tags associated with this image.+--+-- * 'idImageSizeInBytes' - The size, in bytes, of the image in the repository.+--+-- * 'idImageDigest' - The @sha256@ digest of the image manifest.+--+-- * 'idImagePushedAt' - The date and time, expressed in standard JavaScript date format, at which the current image was pushed to the repository.+--+-- * 'idRepositoryName' - The name of the repository to which this image belongs.+imageDetail+    :: ImageDetail+imageDetail =+    ImageDetail'+    { _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});++-- | The list of tags associated with this image.+idImageTags :: Lens' ImageDetail [Text]+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});++-- | The @sha256@ digest of the image manifest.+idImageDigest :: Lens' ImageDetail (Maybe Text)+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;++-- | The name of the repository to which this image belongs.+idRepositoryName :: Lens' ImageDetail (Maybe Text)+idRepositoryName = lens _idRepositoryName (\ s a -> s{_idRepositoryName = a});++instance FromJSON ImageDetail where+        parseJSON+          = withObject "ImageDetail"+              (\ x ->+                 ImageDetail' <$>+                   (x .:? "registryId") <*>+                     (x .:? "imageTags" .!= mempty)+                     <*> (x .:? "imageSizeInBytes")+                     <*> (x .:? "imageDigest")+                     <*> (x .:? "imagePushedAt")+                     <*> (x .:? "repositoryName"))++instance Hashable ImageDetail++instance NFData ImageDetail+ -- | An object representing an Amazon ECR image failure. --+--+-- -- /See:/ 'imageFailure' smart constructor. data ImageFailure = ImageFailure'     { _ifFailureReason :: !(Maybe Text)@@ -145,11 +266,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ifFailureReason'+-- * 'ifFailureReason' - The reason for the failure. ----- * 'ifFailureCode'+-- * 'ifFailureCode' - The code associated with the failure. ----- * 'ifImageId'+-- * 'ifImageId' - The image ID associated with the failure. imageFailure     :: ImageFailure imageFailure =@@ -185,6 +306,8 @@  -- | An object with identifying information for an Amazon ECR image. --+--+-- -- /See:/ 'imageIdentifier' smart constructor. data ImageIdentifier = ImageIdentifier'     { _iiImageDigest :: !(Maybe Text)@@ -195,9 +318,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'iiImageDigest'+-- * 'iiImageDigest' - The @sha256@ digest of the image manifest. ----- * 'iiImageTag'+-- * 'iiImageTag' - The tag used for the image. imageIdentifier     :: ImageIdentifier imageIdentifier =@@ -206,7 +329,7 @@     , _iiImageTag = Nothing     } --- | The 'sha256' digest of the image manifest.+-- | The @sha256@ digest of the image manifest. iiImageDigest :: Lens' ImageIdentifier (Maybe Text) iiImageDigest = lens _iiImageDigest (\ s a -> s{_iiImageDigest = a}); @@ -234,6 +357,8 @@  -- | An object representing an Amazon ECR image layer. --+--+-- -- /See:/ 'layer' smart constructor. data Layer = Layer'     { _lLayerDigest       :: !(Maybe Text)@@ -245,11 +370,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lLayerDigest'+-- * 'lLayerDigest' - The @sha256@ digest of the image layer. ----- * 'lLayerSize'+-- * 'lLayerSize' - The size, in bytes, of the image layer. ----- * 'lLayerAvailability'+-- * 'lLayerAvailability' - The availability status of the image layer. Valid values are @AVAILABLE@ and @UNAVAILABLE@ . layer     :: Layer layer =@@ -259,7 +384,7 @@     , _lLayerAvailability = Nothing     } --- | The 'sha256' digest of the image layer.+-- | The @sha256@ digest of the image layer. lLayerDigest :: Lens' Layer (Maybe Text) lLayerDigest = lens _lLayerDigest (\ s a -> s{_lLayerDigest = a}); @@ -267,7 +392,7 @@ lLayerSize :: Lens' Layer (Maybe Integer) lLayerSize = lens _lLayerSize (\ s a -> s{_lLayerSize = a}); --- | The availability status of the image layer. Valid values are 'AVAILABLE' and 'UNAVAILABLE'.+-- | The availability status of the image layer. Valid values are @AVAILABLE@ and @UNAVAILABLE@ . lLayerAvailability :: Lens' Layer (Maybe LayerAvailability) lLayerAvailability = lens _lLayerAvailability (\ s a -> s{_lLayerAvailability = a}); @@ -285,6 +410,8 @@  -- | An object representing an Amazon ECR image layer failure. --+--+-- -- /See:/ 'layerFailure' smart constructor. data LayerFailure = LayerFailure'     { _lfFailureReason :: !(Maybe Text)@@ -296,11 +423,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lfFailureReason'+-- * 'lfFailureReason' - The reason for the failure. ----- * 'lfFailureCode'+-- * 'lfFailureCode' - The failure code associated with the failure. ----- * 'lfLayerDigest'+-- * 'lfLayerDigest' - The layer digest associated with the failure. layerFailure     :: LayerFailure layerFailure =@@ -334,8 +461,10 @@  instance NFData LayerFailure --- | An object representing a filter on a < ListImages> operation.+-- | An object representing a filter on a 'ListImages' operation. --+--+-- -- /See:/ 'listImagesFilter' smart constructor. newtype ListImagesFilter = ListImagesFilter'     { _lifTagStatus :: Maybe TagStatus@@ -345,7 +474,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lifTagStatus'+-- * 'lifTagStatus' - The tag status with which to filter your 'ListImages' results. You can filter results based on whether they are @TAGGED@ or @UNTAGGED@ . listImagesFilter     :: ListImagesFilter listImagesFilter =@@ -353,7 +482,7 @@     { _lifTagStatus = Nothing     } --- | The tag status with which to filter your < ListImages> results. You can filter results based on whether they are 'TAGGED' or 'UNTAGGED'.+-- | 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}); @@ -368,9 +497,12 @@  -- | An object representing a repository. --+--+-- -- /See:/ 'repository' smart constructor. data Repository = Repository'     { _rRepositoryARN  :: !(Maybe Text)+    , _rCreatedAt      :: !(Maybe POSIX)     , _rRegistryId     :: !(Maybe Text)     , _rRepositoryURI  :: !(Maybe Text)     , _rRepositoryName :: !(Maybe Text)@@ -380,32 +512,39 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rRepositoryARN'+-- * 'rRepositoryARN' - The Amazon Resource Name (ARN) that identifies the repository. The ARN contains the @arn:aws:ecr@ namespace, followed by the region of the repository, the AWS account ID of the repository owner, the repository namespace, and then the repository name. For example, @arn:aws:ecr:region:012345678910:repository/test@ . ----- * 'rRegistryId'+-- * 'rCreatedAt' - The date and time, in JavaScript date/time format, when the repository was created. ----- * 'rRepositoryURI'+-- * 'rRegistryId' - The AWS account ID associated with the registry that contains the repository. ----- * 'rRepositoryName'+-- * 'rRepositoryURI' - The URI for the repository. You can use this URI for Docker @push@ and @pull@ operations.+--+-- * 'rRepositoryName' - The name of the repository. repository     :: Repository repository =     Repository'     { _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, the AWS account ID of the repository owner, the repository namespace, and then the repository name. For example, 'arn:aws:ecr:region:012345678910:repository\/test'.+-- | The Amazon Resource Name (ARN) that identifies the repository. The ARN contains the @arn:aws:ecr@ namespace, followed by the region of the repository, the AWS account ID of the repository owner, the repository namespace, and then the repository name. For example, @arn:aws:ecr:region:012345678910:repository/test@ . rRepositoryARN :: Lens' Repository (Maybe Text) rRepositoryARN = lens _rRepositoryARN (\ s a -> s{_rRepositoryARN = a}); +-- | The date and time, in JavaScript date/time format, when the repository was created.+rCreatedAt :: Lens' Repository (Maybe UTCTime)+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}); --- | The URI for the repository. You can use this URI for Docker 'push' and 'pull' operations.+-- | The URI for the repository. You can use this URI for Docker @push@ and @pull@ operations. rRepositoryURI :: Lens' Repository (Maybe Text) rRepositoryURI = lens _rRepositoryURI (\ s a -> s{_rRepositoryURI = a}); @@ -418,8 +557,9 @@           = withObject "Repository"               (\ x ->                  Repository' <$>-                   (x .:? "repositoryArn") <*> (x .:? "registryId") <*>-                     (x .:? "repositoryUri")+                   (x .:? "repositoryArn") <*> (x .:? "createdAt") <*>+                     (x .:? "registryId")+                     <*> (x .:? "repositoryUri")                      <*> (x .:? "repositoryName"))  instance Hashable Repository

@@ -20,7 +20,7 @@ -- -- Uploads an image layer part to Amazon ECR. ----- This operation is used by the Amazon ECR proxy, and it is not intended for general use by customers. Use the 'docker' CLI to pull, tag, and push images.+-- module Network.AWS.ECR.UploadLayerPart     (     -- * Creating a Request@@ -66,17 +66,17 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ulpRegistryId'+-- * 'ulpRegistryId' - The AWS account ID associated with the registry that you are uploading layer parts to. If you do not specify a registry, the default registry is assumed. ----- * 'ulpRepositoryName'+-- * 'ulpRepositoryName' - The name of the repository that you are uploading layer parts to. ----- * 'ulpUploadId'+-- * 'ulpUploadId' - The upload ID from a previous 'InitiateLayerUpload' operation to associate with the layer part upload. ----- * 'ulpPartFirstByte'+-- * 'ulpPartFirstByte' - The integer value of the first byte of the layer part. ----- * 'ulpPartLastByte'+-- * 'ulpPartLastByte' - The integer value of the last byte of the layer part. ----- * 'ulpLayerPartBlob'+-- * 'ulpLayerPartBlob' - 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. uploadLayerPart     :: Text -- ^ 'ulpRepositoryName'     -> Text -- ^ 'ulpUploadId'@@ -102,7 +102,7 @@ ulpRepositoryName :: Lens' UploadLayerPart Text ulpRepositoryName = lens _ulpRepositoryName (\ s a -> s{_ulpRepositoryName = a}); --- | The upload ID from a previous < InitiateLayerUpload> operation to associate with the layer part upload.+-- | 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}); @@ -114,13 +114,7 @@ ulpPartLastByte :: Lens' UploadLayerPart Natural ulpPartLastByte = lens _ulpPartLastByte (\ s a -> s{_ulpPartLastByte = a}) . _Nat; --- | The base64-encoded layer part payload.------ /Note:/ This 'Lens' automatically encodes and decodes Base64 data,--- despite what the AWS documentation might say.--- 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.+-- | 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; @@ -180,15 +174,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ulprsRegistryId'+-- * 'ulprsRegistryId' - The registry ID associated with the request. ----- * 'ulprsLastByteReceived'+-- * 'ulprsLastByteReceived' - The integer value of the last byte received in the request. ----- * 'ulprsRepositoryName'+-- * 'ulprsRepositoryName' - The repository name associated with the request. ----- * 'ulprsUploadId'+-- * 'ulprsUploadId' - The upload ID associated with the request. ----- * 'ulprsResponseStatus'+-- * 'ulprsResponseStatus' - -- | The response status code. uploadLayerPartResponse     :: Int -- ^ 'ulprsResponseStatus'     -> UploadLayerPartResponse@@ -217,7 +211,7 @@ ulprsUploadId :: Lens' UploadLayerPartResponse (Maybe Text) ulprsUploadId = lens _ulprsUploadId (\ s a -> s{_ulprsUploadId = a}); --- | The response status code.+-- | -- | The response status code. ulprsResponseStatus :: Lens' UploadLayerPartResponse Int ulprsResponseStatus = lens _ulprsResponseStatus (\ s a -> s{_ulprsResponseStatus = a}); 

@@ -76,6 +76,9 @@ --         , requestGetDownloadURLForLayer $ --             getDownloadURLForLayer --+--         , requestDescribeImages $+--             describeImages+-- --           ]  --     , testGroup "response"@@ -127,6 +130,9 @@ --         , responseGetDownloadURLForLayer $ --             getDownloadURLForLayerResponse --+--         , responseDescribeImages $+--             describeImagesResponse+-- --           ] --     ] @@ -212,6 +218,11 @@     "GetDownloadURLForLayer"     "fixture/GetDownloadURLForLayer.yaml" +requestDescribeImages :: DescribeImages -> TestTree+requestDescribeImages = req+    "DescribeImages"+    "fixture/DescribeImages.yaml"+ -- Responses  responseGetRepositoryPolicy :: GetRepositoryPolicyResponse -> TestTree@@ -325,3 +336,10 @@     "fixture/GetDownloadURLForLayerResponse.proto"     ecr     (Proxy :: Proxy GetDownloadURLForLayer)++responseDescribeImages :: DescribeImagesResponse -> TestTree+responseDescribeImages = res+    "DescribeImagesResponse"+    "fixture/DescribeImagesResponse.proto"+    ecr+    (Proxy :: Proxy DescribeImages)