{-# 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.GetAuthorizationToken
(
getAuthorizationToken
, GetAuthorizationToken
, gatRegistryIds
, getAuthorizationTokenResponse
, GetAuthorizationTokenResponse
, gatrsAuthorizationData
, gatrsResponseStatus
) 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
newtype GetAuthorizationToken = GetAuthorizationToken'
{ _gatRegistryIds :: Maybe (List1 Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getAuthorizationToken
:: GetAuthorizationToken
getAuthorizationToken =
GetAuthorizationToken'
{ _gatRegistryIds = Nothing
}
gatRegistryIds :: Lens' GetAuthorizationToken (Maybe (NonEmpty Text))
gatRegistryIds = lens _gatRegistryIds (\ s a -> s{_gatRegistryIds = a}) . mapping _List1;
instance AWSRequest GetAuthorizationToken where
type Rs GetAuthorizationToken =
GetAuthorizationTokenResponse
request = postJSON ecr
response
= receiveJSON
(\ s h x ->
GetAuthorizationTokenResponse' <$>
(x .?> "authorizationData" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable GetAuthorizationToken
instance NFData GetAuthorizationToken
instance ToHeaders GetAuthorizationToken where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonEC2ContainerRegistry_V20150921.GetAuthorizationToken"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetAuthorizationToken where
toJSON GetAuthorizationToken'{..}
= object
(catMaybes [("registryIds" .=) <$> _gatRegistryIds])
instance ToPath GetAuthorizationToken where
toPath = const "/"
instance ToQuery GetAuthorizationToken where
toQuery = const mempty
data GetAuthorizationTokenResponse = GetAuthorizationTokenResponse'
{ _gatrsAuthorizationData :: !(Maybe [AuthorizationData])
, _gatrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getAuthorizationTokenResponse
:: Int
-> GetAuthorizationTokenResponse
getAuthorizationTokenResponse pResponseStatus_ =
GetAuthorizationTokenResponse'
{ _gatrsAuthorizationData = Nothing
, _gatrsResponseStatus = pResponseStatus_
}
gatrsAuthorizationData :: Lens' GetAuthorizationTokenResponse [AuthorizationData]
gatrsAuthorizationData = lens _gatrsAuthorizationData (\ s a -> s{_gatrsAuthorizationData = a}) . _Default . _Coerce;
gatrsResponseStatus :: Lens' GetAuthorizationTokenResponse Int
gatrsResponseStatus = lens _gatrsResponseStatus (\ s a -> s{_gatrsResponseStatus = a});
instance NFData GetAuthorizationTokenResponse