module Network.AWS.StorageGateway.RetrieveTapeRecoveryPoint
(
RetrieveTapeRecoveryPoint
, retrieveTapeRecoveryPoint
, rtrpGatewayARN
, rtrpTapeARN
, RetrieveTapeRecoveryPointResponse
, retrieveTapeRecoveryPointResponse
, rtrprTapeARN
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.StorageGateway.Types
import qualified GHC.Exts
data RetrieveTapeRecoveryPoint = RetrieveTapeRecoveryPoint
{ _rtrpGatewayARN :: Text
, _rtrpTapeARN :: Text
} deriving (Eq, Ord, Show)
retrieveTapeRecoveryPoint :: Text
-> Text
-> RetrieveTapeRecoveryPoint
retrieveTapeRecoveryPoint p1 p2 = RetrieveTapeRecoveryPoint
{ _rtrpTapeARN = p1
, _rtrpGatewayARN = p2
}
rtrpGatewayARN :: Lens' RetrieveTapeRecoveryPoint Text
rtrpGatewayARN = lens _rtrpGatewayARN (\s a -> s { _rtrpGatewayARN = a })
rtrpTapeARN :: Lens' RetrieveTapeRecoveryPoint Text
rtrpTapeARN = lens _rtrpTapeARN (\s a -> s { _rtrpTapeARN = a })
newtype RetrieveTapeRecoveryPointResponse = RetrieveTapeRecoveryPointResponse
{ _rtrprTapeARN :: Maybe Text
} deriving (Eq, Ord, Show, Monoid)
retrieveTapeRecoveryPointResponse :: RetrieveTapeRecoveryPointResponse
retrieveTapeRecoveryPointResponse = RetrieveTapeRecoveryPointResponse
{ _rtrprTapeARN = Nothing
}
rtrprTapeARN :: Lens' RetrieveTapeRecoveryPointResponse (Maybe Text)
rtrprTapeARN = lens _rtrprTapeARN (\s a -> s { _rtrprTapeARN = a })
instance ToPath RetrieveTapeRecoveryPoint where
toPath = const "/"
instance ToQuery RetrieveTapeRecoveryPoint where
toQuery = const mempty
instance ToHeaders RetrieveTapeRecoveryPoint
instance ToJSON RetrieveTapeRecoveryPoint where
toJSON RetrieveTapeRecoveryPoint{..} = object
[ "TapeARN" .= _rtrpTapeARN
, "GatewayARN" .= _rtrpGatewayARN
]
instance AWSRequest RetrieveTapeRecoveryPoint where
type Sv RetrieveTapeRecoveryPoint = StorageGateway
type Rs RetrieveTapeRecoveryPoint = RetrieveTapeRecoveryPointResponse
request = post "RetrieveTapeRecoveryPoint"
response = jsonResponse
instance FromJSON RetrieveTapeRecoveryPointResponse where
parseJSON = withObject "RetrieveTapeRecoveryPointResponse" $ \o -> RetrieveTapeRecoveryPointResponse
<$> o .:? "TapeARN"