{-# 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.StorageGateway.CancelRetrieval
(
cancelRetrieval
, CancelRetrieval
, crGatewayARN
, crTapeARN
, cancelRetrievalResponse
, CancelRetrievalResponse
, crrsTapeARN
, crrsResponseStatus
) where
import Network.AWS.Lens
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 Hashable CancelRetrieval where
instance NFData CancelRetrieval where
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})
instance NFData CancelRetrievalResponse where