module Network.AWS.StorageGateway.DeleteBandwidthRateLimit
(
deleteBandwidthRateLimit
, DeleteBandwidthRateLimit
, dbrlbGatewayARN
, dbrlbBandwidthType
, deleteBandwidthRateLimitResponse
, DeleteBandwidthRateLimitResponse
, delrsGatewayARN
, delrsResponseStatus
) 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 DeleteBandwidthRateLimit = DeleteBandwidthRateLimit'
{ _dbrlbGatewayARN :: !Text
, _dbrlbBandwidthType :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteBandwidthRateLimit
:: Text
-> Text
-> DeleteBandwidthRateLimit
deleteBandwidthRateLimit pGatewayARN_ pBandwidthType_ =
DeleteBandwidthRateLimit'
{ _dbrlbGatewayARN = pGatewayARN_
, _dbrlbBandwidthType = pBandwidthType_
}
dbrlbGatewayARN :: Lens' DeleteBandwidthRateLimit Text
dbrlbGatewayARN = lens _dbrlbGatewayARN (\ s a -> s{_dbrlbGatewayARN = a});
dbrlbBandwidthType :: Lens' DeleteBandwidthRateLimit Text
dbrlbBandwidthType = lens _dbrlbBandwidthType (\ s a -> s{_dbrlbBandwidthType = a});
instance AWSRequest DeleteBandwidthRateLimit where
type Rs DeleteBandwidthRateLimit =
DeleteBandwidthRateLimitResponse
request = postJSON storageGateway
response
= receiveJSON
(\ s h x ->
DeleteBandwidthRateLimitResponse' <$>
(x .?> "GatewayARN") <*> (pure (fromEnum s)))
instance ToHeaders DeleteBandwidthRateLimit where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("StorageGateway_20130630.DeleteBandwidthRateLimit"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteBandwidthRateLimit where
toJSON DeleteBandwidthRateLimit'{..}
= object
(catMaybes
[Just ("GatewayARN" .= _dbrlbGatewayARN),
Just ("BandwidthType" .= _dbrlbBandwidthType)])
instance ToPath DeleteBandwidthRateLimit where
toPath = const "/"
instance ToQuery DeleteBandwidthRateLimit where
toQuery = const mempty
data DeleteBandwidthRateLimitResponse = DeleteBandwidthRateLimitResponse'
{ _delrsGatewayARN :: !(Maybe Text)
, _delrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteBandwidthRateLimitResponse
:: Int
-> DeleteBandwidthRateLimitResponse
deleteBandwidthRateLimitResponse pResponseStatus_ =
DeleteBandwidthRateLimitResponse'
{ _delrsGatewayARN = Nothing
, _delrsResponseStatus = pResponseStatus_
}
delrsGatewayARN :: Lens' DeleteBandwidthRateLimitResponse (Maybe Text)
delrsGatewayARN = lens _delrsGatewayARN (\ s a -> s{_delrsGatewayARN = a});
delrsResponseStatus :: Lens' DeleteBandwidthRateLimitResponse Int
delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});