module Network.AWS.StorageGateway.CancelRetrieval
(
CancelRetrieval
, cancelRetrieval
, crGatewayARN
, crTapeARN
, CancelRetrievalResponse
, cancelRetrievalResponse
, crrTapeARN
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.StorageGateway.Types
import qualified GHC.Exts
data CancelRetrieval = CancelRetrieval
{ _crGatewayARN :: Text
, _crTapeARN :: Text
} deriving (Eq, Ord, Show)
cancelRetrieval :: Text
-> Text
-> CancelRetrieval
cancelRetrieval p1 p2 = CancelRetrieval
{ _crGatewayARN = p1
, _crTapeARN = p2
}
crGatewayARN :: Lens' CancelRetrieval Text
crGatewayARN = lens _crGatewayARN (\s a -> s { _crGatewayARN = a })
crTapeARN :: Lens' CancelRetrieval Text
crTapeARN = lens _crTapeARN (\s a -> s { _crTapeARN = a })
newtype CancelRetrievalResponse = CancelRetrievalResponse
{ _crrTapeARN :: Maybe Text
} deriving (Eq, Ord, Show, Monoid)
cancelRetrievalResponse :: CancelRetrievalResponse
cancelRetrievalResponse = CancelRetrievalResponse
{ _crrTapeARN = Nothing
}
crrTapeARN :: Lens' CancelRetrievalResponse (Maybe Text)
crrTapeARN = lens _crrTapeARN (\s a -> s { _crrTapeARN = a })
instance ToPath CancelRetrieval where
toPath = const "/"
instance ToQuery CancelRetrieval where
toQuery = const mempty
instance ToHeaders CancelRetrieval
instance ToJSON CancelRetrieval where
toJSON CancelRetrieval{..} = object
[ "GatewayARN" .= _crGatewayARN
, "TapeARN" .= _crTapeARN
]
instance AWSRequest CancelRetrieval where
type Sv CancelRetrieval = StorageGateway
type Rs CancelRetrieval = CancelRetrievalResponse
request = post "CancelRetrieval"
response = jsonResponse
instance FromJSON CancelRetrievalResponse where
parseJSON = withObject "CancelRetrievalResponse" $ \o -> CancelRetrievalResponse
<$> o .:? "TapeARN"