module Network.AWS.StorageGateway.DescribeCache
(
describeCache
, DescribeCache
, dcGatewayARN
, describeCacheResponse
, DescribeCacheResponse
, dcrsGatewayARN
, dcrsDiskIds
, dcrsCacheUsedPercentage
, dcrsCacheHitPercentage
, dcrsCacheMissPercentage
, dcrsCacheAllocatedInBytes
, dcrsCacheDirtyPercentage
, dcrsResponseStatus
) where
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.StorageGateway.Types
import Network.AWS.StorageGateway.Types.Product
newtype DescribeCache = DescribeCache'
{ _dcGatewayARN :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeCache
:: Text
-> DescribeCache
describeCache pGatewayARN_ =
DescribeCache'
{ _dcGatewayARN = pGatewayARN_
}
dcGatewayARN :: Lens' DescribeCache Text
dcGatewayARN = lens _dcGatewayARN (\ s a -> s{_dcGatewayARN = a});
instance AWSRequest DescribeCache where
type Rs DescribeCache = DescribeCacheResponse
request = postJSON storageGateway
response
= receiveJSON
(\ s h x ->
DescribeCacheResponse' <$>
(x .?> "GatewayARN") <*> (x .?> "DiskIds" .!@ mempty)
<*> (x .?> "CacheUsedPercentage")
<*> (x .?> "CacheHitPercentage")
<*> (x .?> "CacheMissPercentage")
<*> (x .?> "CacheAllocatedInBytes")
<*> (x .?> "CacheDirtyPercentage")
<*> (pure (fromEnum s)))
instance ToHeaders DescribeCache where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("StorageGateway_20130630.DescribeCache" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeCache where
toJSON DescribeCache'{..}
= object
(catMaybes [Just ("GatewayARN" .= _dcGatewayARN)])
instance ToPath DescribeCache where
toPath = const "/"
instance ToQuery DescribeCache where
toQuery = const mempty
data DescribeCacheResponse = DescribeCacheResponse'
{ _dcrsGatewayARN :: !(Maybe Text)
, _dcrsDiskIds :: !(Maybe [Text])
, _dcrsCacheUsedPercentage :: !(Maybe Double)
, _dcrsCacheHitPercentage :: !(Maybe Double)
, _dcrsCacheMissPercentage :: !(Maybe Double)
, _dcrsCacheAllocatedInBytes :: !(Maybe Integer)
, _dcrsCacheDirtyPercentage :: !(Maybe Double)
, _dcrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeCacheResponse
:: Int
-> DescribeCacheResponse
describeCacheResponse pResponseStatus_ =
DescribeCacheResponse'
{ _dcrsGatewayARN = Nothing
, _dcrsDiskIds = Nothing
, _dcrsCacheUsedPercentage = Nothing
, _dcrsCacheHitPercentage = Nothing
, _dcrsCacheMissPercentage = Nothing
, _dcrsCacheAllocatedInBytes = Nothing
, _dcrsCacheDirtyPercentage = Nothing
, _dcrsResponseStatus = pResponseStatus_
}
dcrsGatewayARN :: Lens' DescribeCacheResponse (Maybe Text)
dcrsGatewayARN = lens _dcrsGatewayARN (\ s a -> s{_dcrsGatewayARN = a});
dcrsDiskIds :: Lens' DescribeCacheResponse [Text]
dcrsDiskIds = lens _dcrsDiskIds (\ s a -> s{_dcrsDiskIds = a}) . _Default . _Coerce;
dcrsCacheUsedPercentage :: Lens' DescribeCacheResponse (Maybe Double)
dcrsCacheUsedPercentage = lens _dcrsCacheUsedPercentage (\ s a -> s{_dcrsCacheUsedPercentage = a});
dcrsCacheHitPercentage :: Lens' DescribeCacheResponse (Maybe Double)
dcrsCacheHitPercentage = lens _dcrsCacheHitPercentage (\ s a -> s{_dcrsCacheHitPercentage = a});
dcrsCacheMissPercentage :: Lens' DescribeCacheResponse (Maybe Double)
dcrsCacheMissPercentage = lens _dcrsCacheMissPercentage (\ s a -> s{_dcrsCacheMissPercentage = a});
dcrsCacheAllocatedInBytes :: Lens' DescribeCacheResponse (Maybe Integer)
dcrsCacheAllocatedInBytes = lens _dcrsCacheAllocatedInBytes (\ s a -> s{_dcrsCacheAllocatedInBytes = a});
dcrsCacheDirtyPercentage :: Lens' DescribeCacheResponse (Maybe Double)
dcrsCacheDirtyPercentage = lens _dcrsCacheDirtyPercentage (\ s a -> s{_dcrsCacheDirtyPercentage = a});
dcrsResponseStatus :: Lens' DescribeCacheResponse Int
dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});