module Network.AWS.StorageGateway.CancelRetrieval
(
cancelRetrieval
, CancelRetrieval
, crGatewayARN
, crTapeARN
, cancelRetrievalResponse
, CancelRetrievalResponse
, crrsTapeARN
, crrsResponseStatus
) where
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.StorageGateway.Types
import Network.AWS.StorageGateway.Types.Product
data CancelRetrieval = CancelRetrieval'
{ _crGatewayARN :: !Text
, _crTapeARN :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
cancelRetrieval
:: Text
-> Text
-> CancelRetrieval
cancelRetrieval pGatewayARN_ pTapeARN_ =
CancelRetrieval'
{ _crGatewayARN = pGatewayARN_
, _crTapeARN = pTapeARN_
}
crGatewayARN :: Lens' CancelRetrieval Text
crGatewayARN = lens _crGatewayARN (\ s a -> s{_crGatewayARN = a});
crTapeARN :: Lens' CancelRetrieval Text
crTapeARN = lens _crTapeARN (\ s a -> s{_crTapeARN = a});
instance AWSRequest CancelRetrieval where
type Rs CancelRetrieval = CancelRetrievalResponse
request = postJSON storageGateway
response
= receiveJSON
(\ s h x ->
CancelRetrievalResponse' <$>
(x .?> "TapeARN") <*> (pure (fromEnum s)))
instance ToHeaders CancelRetrieval where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("StorageGateway_20130630.CancelRetrieval" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CancelRetrieval where
toJSON CancelRetrieval'{..}
= object
(catMaybes
[Just ("GatewayARN" .= _crGatewayARN),
Just ("TapeARN" .= _crTapeARN)])
instance ToPath CancelRetrieval where
toPath = const "/"
instance ToQuery CancelRetrieval where
toQuery = const mempty
data CancelRetrievalResponse = CancelRetrievalResponse'
{ _crrsTapeARN :: !(Maybe Text)
, _crrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
cancelRetrievalResponse
:: Int
-> CancelRetrievalResponse
cancelRetrievalResponse pResponseStatus_ =
CancelRetrievalResponse'
{ _crrsTapeARN = Nothing
, _crrsResponseStatus = pResponseStatus_
}
crrsTapeARN :: Lens' CancelRetrievalResponse (Maybe Text)
crrsTapeARN = lens _crrsTapeARN (\ s a -> s{_crrsTapeARN = a});
crrsResponseStatus :: Lens' CancelRetrievalResponse Int
crrsResponseStatus = lens _crrsResponseStatus (\ s a -> s{_crrsResponseStatus = a});