module Network.AWS.ImportExport.CancelJob
(
cancelJob
, CancelJob
, cAPIVersion
, cJobId
, cancelJobResponse
, CancelJobResponse
, crsSuccess
, crsStatus
) where
import Network.AWS.ImportExport.Types
import Network.AWS.ImportExport.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data CancelJob = CancelJob'
{ _cAPIVersion :: !(Maybe Text)
, _cJobId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
cancelJob
:: Text
-> CancelJob
cancelJob pJobId_ =
CancelJob'
{ _cAPIVersion = Nothing
, _cJobId = pJobId_
}
cAPIVersion :: Lens' CancelJob (Maybe Text)
cAPIVersion = lens _cAPIVersion (\ s a -> s{_cAPIVersion = a});
cJobId :: Lens' CancelJob Text
cJobId = lens _cJobId (\ s a -> s{_cJobId = a});
instance AWSRequest CancelJob where
type Sv CancelJob = ImportExport
type Rs CancelJob = CancelJobResponse
request = postQuery
response
= receiveXMLWrapper "CancelJobResult"
(\ s h x ->
CancelJobResponse' <$>
(x .@? "Success") <*> (pure (fromEnum s)))
instance ToHeaders CancelJob where
toHeaders = const mempty
instance ToPath CancelJob where
toPath = const "/"
instance ToQuery CancelJob where
toQuery CancelJob'{..}
= mconcat
["Operation=CancelJob",
"Action" =: ("CancelJob" :: ByteString),
"Version" =: ("2010-06-01" :: ByteString),
"APIVersion" =: _cAPIVersion, "JobId" =: _cJobId]
data CancelJobResponse = CancelJobResponse'
{ _crsSuccess :: !(Maybe Bool)
, _crsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
cancelJobResponse
:: Int
-> CancelJobResponse
cancelJobResponse pStatus_ =
CancelJobResponse'
{ _crsSuccess = Nothing
, _crsStatus = pStatus_
}
crsSuccess :: Lens' CancelJobResponse (Maybe Bool)
crsSuccess = lens _crsSuccess (\ s a -> s{_crsSuccess = a});
crsStatus :: Lens' CancelJobResponse Int
crsStatus = lens _crsStatus (\ s a -> s{_crsStatus = a});