{-# 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.InitiateLayerUpload
(
initiateLayerUpload
, InitiateLayerUpload
, iluRegistryId
, iluRepositoryName
, initiateLayerUploadResponse
, InitiateLayerUploadResponse
, ilursPartSize
, ilursUploadId
, ilursResponseStatus
) 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 InitiateLayerUpload = InitiateLayerUpload'
{ _iluRegistryId :: !(Maybe Text)
, _iluRepositoryName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
initiateLayerUpload
:: Text
-> InitiateLayerUpload
initiateLayerUpload pRepositoryName_ =
InitiateLayerUpload'
{_iluRegistryId = Nothing, _iluRepositoryName = pRepositoryName_}
iluRegistryId :: Lens' InitiateLayerUpload (Maybe Text)
iluRegistryId = lens _iluRegistryId (\ s a -> s{_iluRegistryId = a})
iluRepositoryName :: Lens' InitiateLayerUpload Text
iluRepositoryName = lens _iluRepositoryName (\ s a -> s{_iluRepositoryName = a})
instance AWSRequest InitiateLayerUpload where
type Rs InitiateLayerUpload =
InitiateLayerUploadResponse
request = postJSON ecr
response
= receiveJSON
(\ s h x ->
InitiateLayerUploadResponse' <$>
(x .?> "partSize") <*> (x .?> "uploadId") <*>
(pure (fromEnum s)))
instance Hashable InitiateLayerUpload where
instance NFData InitiateLayerUpload where
instance ToHeaders InitiateLayerUpload where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonEC2ContainerRegistry_V20150921.InitiateLayerUpload"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON InitiateLayerUpload where
toJSON InitiateLayerUpload'{..}
= object
(catMaybes
[("registryId" .=) <$> _iluRegistryId,
Just ("repositoryName" .= _iluRepositoryName)])
instance ToPath InitiateLayerUpload where
toPath = const "/"
instance ToQuery InitiateLayerUpload where
toQuery = const mempty
data InitiateLayerUploadResponse = InitiateLayerUploadResponse'
{ _ilursPartSize :: !(Maybe Nat)
, _ilursUploadId :: !(Maybe Text)
, _ilursResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
initiateLayerUploadResponse
:: Int
-> InitiateLayerUploadResponse
initiateLayerUploadResponse pResponseStatus_ =
InitiateLayerUploadResponse'
{ _ilursPartSize = Nothing
, _ilursUploadId = Nothing
, _ilursResponseStatus = pResponseStatus_
}
ilursPartSize :: Lens' InitiateLayerUploadResponse (Maybe Natural)
ilursPartSize = lens _ilursPartSize (\ s a -> s{_ilursPartSize = a}) . mapping _Nat
ilursUploadId :: Lens' InitiateLayerUploadResponse (Maybe Text)
ilursUploadId = lens _ilursUploadId (\ s a -> s{_ilursUploadId = a})
ilursResponseStatus :: Lens' InitiateLayerUploadResponse Int
ilursResponseStatus = lens _ilursResponseStatus (\ s a -> s{_ilursResponseStatus = a})
instance NFData InitiateLayerUploadResponse where