{-# 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.GetLifecyclePolicyPreview
(
getLifecyclePolicyPreview
, GetLifecyclePolicyPreview
, glppRegistryId
, glppImageIds
, glppNextToken
, glppFilter
, glppMaxResults
, glppRepositoryName
, getLifecyclePolicyPreviewResponse
, GetLifecyclePolicyPreviewResponse
, glpprsSummary
, glpprsStatus
, glpprsRegistryId
, glpprsLifecyclePolicyText
, glpprsNextToken
, glpprsRepositoryName
, glpprsPreviewResults
, glpprsResponseStatus
) 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 GetLifecyclePolicyPreview = GetLifecyclePolicyPreview'
{ _glppRegistryId :: !(Maybe Text)
, _glppImageIds :: !(Maybe [ImageIdentifier])
, _glppNextToken :: !(Maybe Text)
, _glppFilter :: !(Maybe LifecyclePolicyPreviewFilter)
, _glppMaxResults :: !(Maybe Nat)
, _glppRepositoryName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getLifecyclePolicyPreview
:: Text
-> GetLifecyclePolicyPreview
getLifecyclePolicyPreview pRepositoryName_ =
GetLifecyclePolicyPreview'
{ _glppRegistryId = Nothing
, _glppImageIds = Nothing
, _glppNextToken = Nothing
, _glppFilter = Nothing
, _glppMaxResults = Nothing
, _glppRepositoryName = pRepositoryName_
}
glppRegistryId :: Lens' GetLifecyclePolicyPreview (Maybe Text)
glppRegistryId = lens _glppRegistryId (\ s a -> s{_glppRegistryId = a})
glppImageIds :: Lens' GetLifecyclePolicyPreview [ImageIdentifier]
glppImageIds = lens _glppImageIds (\ s a -> s{_glppImageIds = a}) . _Default . _Coerce
glppNextToken :: Lens' GetLifecyclePolicyPreview (Maybe Text)
glppNextToken = lens _glppNextToken (\ s a -> s{_glppNextToken = a})
glppFilter :: Lens' GetLifecyclePolicyPreview (Maybe LifecyclePolicyPreviewFilter)
glppFilter = lens _glppFilter (\ s a -> s{_glppFilter = a})
glppMaxResults :: Lens' GetLifecyclePolicyPreview (Maybe Natural)
glppMaxResults = lens _glppMaxResults (\ s a -> s{_glppMaxResults = a}) . mapping _Nat
glppRepositoryName :: Lens' GetLifecyclePolicyPreview Text
glppRepositoryName = lens _glppRepositoryName (\ s a -> s{_glppRepositoryName = a})
instance AWSRequest GetLifecyclePolicyPreview where
type Rs GetLifecyclePolicyPreview =
GetLifecyclePolicyPreviewResponse
request = postJSON ecr
response
= receiveJSON
(\ s h x ->
GetLifecyclePolicyPreviewResponse' <$>
(x .?> "summary") <*> (x .?> "status") <*>
(x .?> "registryId")
<*> (x .?> "lifecyclePolicyText")
<*> (x .?> "nextToken")
<*> (x .?> "repositoryName")
<*> (x .?> "previewResults" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable GetLifecyclePolicyPreview where
instance NFData GetLifecyclePolicyPreview where
instance ToHeaders GetLifecyclePolicyPreview where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonEC2ContainerRegistry_V20150921.GetLifecyclePolicyPreview"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetLifecyclePolicyPreview where
toJSON GetLifecyclePolicyPreview'{..}
= object
(catMaybes
[("registryId" .=) <$> _glppRegistryId,
("imageIds" .=) <$> _glppImageIds,
("nextToken" .=) <$> _glppNextToken,
("filter" .=) <$> _glppFilter,
("maxResults" .=) <$> _glppMaxResults,
Just ("repositoryName" .= _glppRepositoryName)])
instance ToPath GetLifecyclePolicyPreview where
toPath = const "/"
instance ToQuery GetLifecyclePolicyPreview where
toQuery = const mempty
data GetLifecyclePolicyPreviewResponse = GetLifecyclePolicyPreviewResponse'
{ _glpprsSummary :: !(Maybe LifecyclePolicyPreviewSummary)
, _glpprsStatus :: !(Maybe LifecyclePolicyPreviewStatus)
, _glpprsRegistryId :: !(Maybe Text)
, _glpprsLifecyclePolicyText :: !(Maybe Text)
, _glpprsNextToken :: !(Maybe Text)
, _glpprsRepositoryName :: !(Maybe Text)
, _glpprsPreviewResults :: !(Maybe [LifecyclePolicyPreviewResult])
, _glpprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getLifecyclePolicyPreviewResponse
:: Int
-> GetLifecyclePolicyPreviewResponse
getLifecyclePolicyPreviewResponse pResponseStatus_ =
GetLifecyclePolicyPreviewResponse'
{ _glpprsSummary = Nothing
, _glpprsStatus = Nothing
, _glpprsRegistryId = Nothing
, _glpprsLifecyclePolicyText = Nothing
, _glpprsNextToken = Nothing
, _glpprsRepositoryName = Nothing
, _glpprsPreviewResults = Nothing
, _glpprsResponseStatus = pResponseStatus_
}
glpprsSummary :: Lens' GetLifecyclePolicyPreviewResponse (Maybe LifecyclePolicyPreviewSummary)
glpprsSummary = lens _glpprsSummary (\ s a -> s{_glpprsSummary = a})
glpprsStatus :: Lens' GetLifecyclePolicyPreviewResponse (Maybe LifecyclePolicyPreviewStatus)
glpprsStatus = lens _glpprsStatus (\ s a -> s{_glpprsStatus = a})
glpprsRegistryId :: Lens' GetLifecyclePolicyPreviewResponse (Maybe Text)
glpprsRegistryId = lens _glpprsRegistryId (\ s a -> s{_glpprsRegistryId = a})
glpprsLifecyclePolicyText :: Lens' GetLifecyclePolicyPreviewResponse (Maybe Text)
glpprsLifecyclePolicyText = lens _glpprsLifecyclePolicyText (\ s a -> s{_glpprsLifecyclePolicyText = a})
glpprsNextToken :: Lens' GetLifecyclePolicyPreviewResponse (Maybe Text)
glpprsNextToken = lens _glpprsNextToken (\ s a -> s{_glpprsNextToken = a})
glpprsRepositoryName :: Lens' GetLifecyclePolicyPreviewResponse (Maybe Text)
glpprsRepositoryName = lens _glpprsRepositoryName (\ s a -> s{_glpprsRepositoryName = a})
glpprsPreviewResults :: Lens' GetLifecyclePolicyPreviewResponse [LifecyclePolicyPreviewResult]
glpprsPreviewResults = lens _glpprsPreviewResults (\ s a -> s{_glpprsPreviewResults = a}) . _Default . _Coerce
glpprsResponseStatus :: Lens' GetLifecyclePolicyPreviewResponse Int
glpprsResponseStatus = lens _glpprsResponseStatus (\ s a -> s{_glpprsResponseStatus = a})
instance NFData GetLifecyclePolicyPreviewResponse
where