Regenerating ECR from latest service definition

brendanhay · May 4, 2016 · 8cf3929 · 8cf3929
1 parent 946808b
commit 8cf3929
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 2 deletions.
diff --git a/amazonka-ecr/gen/Network/AWS/ECR.hs b/amazonka-ecr/gen/Network/AWS/ECR.hs
@@ -186,6 +186,7 @@ module Network.AWS.ECR
     , repository
     , rRepositoryARN
     , rRegistryId
+    , rRepositoryURI
     , rRepositoryName
     ) where
 

diff --git a/amazonka-ecr/gen/Network/AWS/ECR/Types.hs b/amazonka-ecr/gen/Network/AWS/ECR/Types.hs
@@ -89,6 +89,7 @@ module Network.AWS.ECR.Types
     , repository
     , rRepositoryARN
     , rRegistryId
+    , rRepositoryURI
     , rRepositoryName
     ) where
 
@@ -125,6 +126,8 @@ ecr =
       | has (hasCode "ThrottlingException" . hasStatus 400) e =
           Just "throttling_exception"
       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"
+      | has (hasStatus 504) e = Just "gateway_timeout"
+      | has (hasStatus 502) e = Just "bad_gateway"
       | has (hasStatus 503) e = Just "service_unavailable"
       | has (hasStatus 500) e = Just "general_server_error"
       | has (hasStatus 509) e = Just "limit_exceeded"

diff --git a/amazonka-ecr/gen/Network/AWS/ECR/Types/Product.hs b/amazonka-ecr/gen/Network/AWS/ECR/Types/Product.hs
@@ -56,7 +56,7 @@ 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'.
+-- 'https:\/\/012345678910.dkr.ecr.us-east-1.amazonaws.com'..
 adProxyEndpoint :: Lens' AuthorizationData (Maybe Text)
 adProxyEndpoint = lens _adProxyEndpoint (\ s a -> s{_adProxyEndpoint = a});
 
@@ -341,6 +341,7 @@ instance NFData LayerFailure
 data Repository = Repository'
     { _rRepositoryARN  :: !(Maybe Text)
     , _rRegistryId     :: !(Maybe Text)
+    , _rRepositoryURI  :: !(Maybe Text)
     , _rRepositoryName :: !(Maybe Text)
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
@@ -352,13 +353,16 @@ data Repository = Repository'
 --
 -- * 'rRegistryId'
 --
+-- * 'rRepositoryURI'
+--
 -- * 'rRepositoryName'
 repository
     :: Repository
 repository =
     Repository'
     { _rRepositoryARN = Nothing
     , _rRegistryId = Nothing
+    , _rRepositoryURI = Nothing
     , _rRepositoryName = Nothing
     }
 
@@ -375,6 +379,11 @@ rRepositoryARN = lens _rRepositoryARN (\ s a -> s{_rRepositoryARN = a});
 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.
+rRepositoryURI :: Lens' Repository (Maybe Text)
+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});
@@ -385,7 +394,8 @@ instance FromJSON Repository where
               (\ x ->
                  Repository' <$>
                    (x .:? "repositoryArn") <*> (x .:? "registryId") <*>
-                     (x .:? "repositoryName"))
+                     (x .:? "repositoryUri")
+                     <*> (x .:? "repositoryName"))
 
 instance Hashable Repository