{-# 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.ImportExport.CreateJob
(
createJob
, CreateJob
, cjAPIVersion
, cjManifestAddendum
, cjJobType
, cjManifest
, cjValidateOnly
, createJobResponse
, CreateJobResponse
, cjrsSignature
, cjrsJobType
, cjrsJobId
, cjrsSignatureFileContents
, cjrsWarningMessage
, cjrsArtifactList
, cjrsResponseStatus
) where
import Network.AWS.ImportExport.Types
import Network.AWS.ImportExport.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data CreateJob = CreateJob'
{ _cjAPIVersion :: !(Maybe Text)
, _cjManifestAddendum :: !(Maybe Text)
, _cjJobType :: !JobType
, _cjManifest :: !Text
, _cjValidateOnly :: !Bool
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createJob
:: JobType
-> Text
-> Bool
-> CreateJob
createJob pJobType_ pManifest_ pValidateOnly_ =
CreateJob'
{ _cjAPIVersion = Nothing
, _cjManifestAddendum = Nothing
, _cjJobType = pJobType_
, _cjManifest = pManifest_
, _cjValidateOnly = pValidateOnly_
}
cjAPIVersion :: Lens' CreateJob (Maybe Text)
cjAPIVersion = lens _cjAPIVersion (\ s a -> s{_cjAPIVersion = a})
cjManifestAddendum :: Lens' CreateJob (Maybe Text)
cjManifestAddendum = lens _cjManifestAddendum (\ s a -> s{_cjManifestAddendum = a})
cjJobType :: Lens' CreateJob JobType
cjJobType = lens _cjJobType (\ s a -> s{_cjJobType = a})
cjManifest :: Lens' CreateJob Text
cjManifest = lens _cjManifest (\ s a -> s{_cjManifest = a})
cjValidateOnly :: Lens' CreateJob Bool
cjValidateOnly = lens _cjValidateOnly (\ s a -> s{_cjValidateOnly = a})
instance AWSRequest CreateJob where
type Rs CreateJob = CreateJobResponse
request = postQuery importExport
response
= receiveXMLWrapper "CreateJobResult"
(\ s h x ->
CreateJobResponse' <$>
(x .@? "Signature") <*> (x .@? "JobType") <*>
(x .@? "JobId")
<*> (x .@? "SignatureFileContents")
<*> (x .@? "WarningMessage")
<*>
(x .@? "ArtifactList" .!@ mempty >>=
may (parseXMLList "member"))
<*> (pure (fromEnum s)))
instance Hashable CreateJob where
instance NFData CreateJob where
instance ToHeaders CreateJob where
toHeaders = const mempty
instance ToPath CreateJob where
toPath = const "/"
instance ToQuery CreateJob where
toQuery CreateJob'{..}
= mconcat
["Operation=CreateJob",
"Action" =: ("CreateJob" :: ByteString),
"Version" =: ("2010-06-01" :: ByteString),
"APIVersion" =: _cjAPIVersion,
"ManifestAddendum" =: _cjManifestAddendum,
"JobType" =: _cjJobType, "Manifest" =: _cjManifest,
"ValidateOnly" =: _cjValidateOnly]
data CreateJobResponse = CreateJobResponse'
{ _cjrsSignature :: !(Maybe Text)
, _cjrsJobType :: !(Maybe JobType)
, _cjrsJobId :: !(Maybe Text)
, _cjrsSignatureFileContents :: !(Maybe Text)
, _cjrsWarningMessage :: !(Maybe Text)
, _cjrsArtifactList :: !(Maybe [Artifact])
, _cjrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createJobResponse
:: Int
-> CreateJobResponse
createJobResponse pResponseStatus_ =
CreateJobResponse'
{ _cjrsSignature = Nothing
, _cjrsJobType = Nothing
, _cjrsJobId = Nothing
, _cjrsSignatureFileContents = Nothing
, _cjrsWarningMessage = Nothing
, _cjrsArtifactList = Nothing
, _cjrsResponseStatus = pResponseStatus_
}
cjrsSignature :: Lens' CreateJobResponse (Maybe Text)
cjrsSignature = lens _cjrsSignature (\ s a -> s{_cjrsSignature = a})
cjrsJobType :: Lens' CreateJobResponse (Maybe JobType)
cjrsJobType = lens _cjrsJobType (\ s a -> s{_cjrsJobType = a})
cjrsJobId :: Lens' CreateJobResponse (Maybe Text)
cjrsJobId = lens _cjrsJobId (\ s a -> s{_cjrsJobId = a})
cjrsSignatureFileContents :: Lens' CreateJobResponse (Maybe Text)
cjrsSignatureFileContents = lens _cjrsSignatureFileContents (\ s a -> s{_cjrsSignatureFileContents = a})
cjrsWarningMessage :: Lens' CreateJobResponse (Maybe Text)
cjrsWarningMessage = lens _cjrsWarningMessage (\ s a -> s{_cjrsWarningMessage = a})
cjrsArtifactList :: Lens' CreateJobResponse [Artifact]
cjrsArtifactList = lens _cjrsArtifactList (\ s a -> s{_cjrsArtifactList = a}) . _Default . _Coerce
cjrsResponseStatus :: Lens' CreateJobResponse Int
cjrsResponseStatus = lens _cjrsResponseStatus (\ s a -> s{_cjrsResponseStatus = a})
instance NFData CreateJobResponse where