{-# 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.DeleteLifecyclePolicy
(
deleteLifecyclePolicy
, DeleteLifecyclePolicy
, dlpRegistryId
, dlpRepositoryName
, deleteLifecyclePolicyResponse
, DeleteLifecyclePolicyResponse
, dlprsRegistryId
, dlprsLastEvaluatedAt
, dlprsLifecyclePolicyText
, dlprsRepositoryName
, dlprsResponseStatus
) 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 DeleteLifecyclePolicy = DeleteLifecyclePolicy'
{ _dlpRegistryId :: !(Maybe Text)
, _dlpRepositoryName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteLifecyclePolicy
:: Text
-> DeleteLifecyclePolicy
deleteLifecyclePolicy pRepositoryName_ =
DeleteLifecyclePolicy'
{_dlpRegistryId = Nothing, _dlpRepositoryName = pRepositoryName_}
dlpRegistryId :: Lens' DeleteLifecyclePolicy (Maybe Text)
dlpRegistryId = lens _dlpRegistryId (\ s a -> s{_dlpRegistryId = a})
dlpRepositoryName :: Lens' DeleteLifecyclePolicy Text
dlpRepositoryName = lens _dlpRepositoryName (\ s a -> s{_dlpRepositoryName = a})
instance AWSRequest DeleteLifecyclePolicy where
type Rs DeleteLifecyclePolicy =
DeleteLifecyclePolicyResponse
request = postJSON ecr
response
= receiveJSON
(\ s h x ->
DeleteLifecyclePolicyResponse' <$>
(x .?> "registryId") <*> (x .?> "lastEvaluatedAt")
<*> (x .?> "lifecyclePolicyText")
<*> (x .?> "repositoryName")
<*> (pure (fromEnum s)))
instance Hashable DeleteLifecyclePolicy where
instance NFData DeleteLifecyclePolicy where
instance ToHeaders DeleteLifecyclePolicy where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonEC2ContainerRegistry_V20150921.DeleteLifecyclePolicy"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteLifecyclePolicy where
toJSON DeleteLifecyclePolicy'{..}
= object
(catMaybes
[("registryId" .=) <$> _dlpRegistryId,
Just ("repositoryName" .= _dlpRepositoryName)])
instance ToPath DeleteLifecyclePolicy where
toPath = const "/"
instance ToQuery DeleteLifecyclePolicy where
toQuery = const mempty
data DeleteLifecyclePolicyResponse = DeleteLifecyclePolicyResponse'
{ _dlprsRegistryId :: !(Maybe Text)
, _dlprsLastEvaluatedAt :: !(Maybe POSIX)
, _dlprsLifecyclePolicyText :: !(Maybe Text)
, _dlprsRepositoryName :: !(Maybe Text)
, _dlprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteLifecyclePolicyResponse
:: Int
-> DeleteLifecyclePolicyResponse
deleteLifecyclePolicyResponse pResponseStatus_ =
DeleteLifecyclePolicyResponse'
{ _dlprsRegistryId = Nothing
, _dlprsLastEvaluatedAt = Nothing
, _dlprsLifecyclePolicyText = Nothing
, _dlprsRepositoryName = Nothing
, _dlprsResponseStatus = pResponseStatus_
}
dlprsRegistryId :: Lens' DeleteLifecyclePolicyResponse (Maybe Text)
dlprsRegistryId = lens _dlprsRegistryId (\ s a -> s{_dlprsRegistryId = a})
dlprsLastEvaluatedAt :: Lens' DeleteLifecyclePolicyResponse (Maybe UTCTime)
dlprsLastEvaluatedAt = lens _dlprsLastEvaluatedAt (\ s a -> s{_dlprsLastEvaluatedAt = a}) . mapping _Time
dlprsLifecyclePolicyText :: Lens' DeleteLifecyclePolicyResponse (Maybe Text)
dlprsLifecyclePolicyText = lens _dlprsLifecyclePolicyText (\ s a -> s{_dlprsLifecyclePolicyText = a})
dlprsRepositoryName :: Lens' DeleteLifecyclePolicyResponse (Maybe Text)
dlprsRepositoryName = lens _dlprsRepositoryName (\ s a -> s{_dlprsRepositoryName = a})
dlprsResponseStatus :: Lens' DeleteLifecyclePolicyResponse Int
dlprsResponseStatus = lens _dlprsResponseStatus (\ s a -> s{_dlprsResponseStatus = a})
instance NFData DeleteLifecyclePolicyResponse where