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
instance NFData InitiateLayerUpload
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