{-# 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 #-}
module Network.AWS.ECR.GetLifecyclePolicy
(
getLifecyclePolicy
, GetLifecyclePolicy
, glpRegistryId
, glpRepositoryName
, getLifecyclePolicyResponse
, GetLifecyclePolicyResponse
, glprsRegistryId
, glprsLastEvaluatedAt
, glprsLifecyclePolicyText
, glprsRepositoryName
, glprsResponseStatus
) where
import Network.AWS.ECR.Types
import Network.AWS.ECR.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data GetLifecyclePolicy = GetLifecyclePolicy'
{ _glpRegistryId :: !(Maybe Text)
, _glpRepositoryName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getLifecyclePolicy
:: Text
-> GetLifecyclePolicy
getLifecyclePolicy pRepositoryName_ =
GetLifecyclePolicy'
{_glpRegistryId = Nothing, _glpRepositoryName = pRepositoryName_}
glpRegistryId :: Lens' GetLifecyclePolicy (Maybe Text)
glpRegistryId = lens _glpRegistryId (\ s a -> s{_glpRegistryId = a})
glpRepositoryName :: Lens' GetLifecyclePolicy Text
glpRepositoryName = lens _glpRepositoryName (\ s a -> s{_glpRepositoryName = a})
instance AWSRequest GetLifecyclePolicy where
type Rs GetLifecyclePolicy =
GetLifecyclePolicyResponse
request = postJSON ecr
response
= receiveJSON
(\ s h x ->
GetLifecyclePolicyResponse' <$>
(x .?> "registryId") <*> (x .?> "lastEvaluatedAt")
<*> (x .?> "lifecyclePolicyText")
<*> (x .?> "repositoryName")
<*> (pure (fromEnum s)))
instance Hashable GetLifecyclePolicy where
instance NFData GetLifecyclePolicy where
instance ToHeaders GetLifecyclePolicy where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonEC2ContainerRegistry_V20150921.GetLifecyclePolicy"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetLifecyclePolicy where
toJSON GetLifecyclePolicy'{..}
= object
(catMaybes
[("registryId" .=) <$> _glpRegistryId,
Just ("repositoryName" .= _glpRepositoryName)])
instance ToPath GetLifecyclePolicy where
toPath = const "/"
instance ToQuery GetLifecyclePolicy where
toQuery = const mempty
data GetLifecyclePolicyResponse = GetLifecyclePolicyResponse'
{ _glprsRegistryId :: !(Maybe Text)
, _glprsLastEvaluatedAt :: !(Maybe POSIX)
, _glprsLifecyclePolicyText :: !(Maybe Text)
, _glprsRepositoryName :: !(Maybe Text)
, _glprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getLifecyclePolicyResponse
:: Int
-> GetLifecyclePolicyResponse
getLifecyclePolicyResponse pResponseStatus_ =
GetLifecyclePolicyResponse'
{ _glprsRegistryId = Nothing
, _glprsLastEvaluatedAt = Nothing
, _glprsLifecyclePolicyText = Nothing
, _glprsRepositoryName = Nothing
, _glprsResponseStatus = pResponseStatus_
}
glprsRegistryId :: Lens' GetLifecyclePolicyResponse (Maybe Text)
glprsRegistryId = lens _glprsRegistryId (\ s a -> s{_glprsRegistryId = a})
glprsLastEvaluatedAt :: Lens' GetLifecyclePolicyResponse (Maybe UTCTime)
glprsLastEvaluatedAt = lens _glprsLastEvaluatedAt (\ s a -> s{_glprsLastEvaluatedAt = a}) . mapping _Time
glprsLifecyclePolicyText :: Lens' GetLifecyclePolicyResponse (Maybe Text)
glprsLifecyclePolicyText = lens _glprsLifecyclePolicyText (\ s a -> s{_glprsLifecyclePolicyText = a})
glprsRepositoryName :: Lens' GetLifecyclePolicyResponse (Maybe Text)
glprsRepositoryName = lens _glprsRepositoryName (\ s a -> s{_glprsRepositoryName = a})
glprsResponseStatus :: Lens' GetLifecyclePolicyResponse Int
glprsResponseStatus = lens _glprsResponseStatus (\ s a -> s{_glprsResponseStatus = a})
instance NFData GetLifecyclePolicyResponse where