module Network.AWS.StorageGateway.DescribeCache
(
DescribeCache
, describeCache
, dcGatewayARN
, DescribeCacheResponse
, describeCacheResponse
, dcrCacheAllocatedInBytes
, dcrCacheDirtyPercentage
, dcrCacheHitPercentage
, dcrCacheMissPercentage
, dcrCacheUsedPercentage
, dcrDiskIds
, dcrGatewayARN
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.StorageGateway.Types
import qualified GHC.Exts
newtype DescribeCache = DescribeCache
{ _dcGatewayARN :: Text
} deriving (Eq, Ord, Show, Monoid, IsString)
describeCache :: Text
-> DescribeCache
describeCache p1 = DescribeCache
{ _dcGatewayARN = p1
}
dcGatewayARN :: Lens' DescribeCache Text
dcGatewayARN = lens _dcGatewayARN (\s a -> s { _dcGatewayARN = a })
data DescribeCacheResponse = DescribeCacheResponse
{ _dcrCacheAllocatedInBytes :: Maybe Integer
, _dcrCacheDirtyPercentage :: Maybe Double
, _dcrCacheHitPercentage :: Maybe Double
, _dcrCacheMissPercentage :: Maybe Double
, _dcrCacheUsedPercentage :: Maybe Double
, _dcrDiskIds :: List "DiskIds" Text
, _dcrGatewayARN :: Maybe Text
} deriving (Eq, Ord, Show)
describeCacheResponse :: DescribeCacheResponse
describeCacheResponse = DescribeCacheResponse
{ _dcrGatewayARN = Nothing
, _dcrDiskIds = mempty
, _dcrCacheAllocatedInBytes = Nothing
, _dcrCacheUsedPercentage = Nothing
, _dcrCacheDirtyPercentage = Nothing
, _dcrCacheHitPercentage = Nothing
, _dcrCacheMissPercentage = Nothing
}
dcrCacheAllocatedInBytes :: Lens' DescribeCacheResponse (Maybe Integer)
dcrCacheAllocatedInBytes =
lens _dcrCacheAllocatedInBytes
(\s a -> s { _dcrCacheAllocatedInBytes = a })
dcrCacheDirtyPercentage :: Lens' DescribeCacheResponse (Maybe Double)
dcrCacheDirtyPercentage =
lens _dcrCacheDirtyPercentage (\s a -> s { _dcrCacheDirtyPercentage = a })
dcrCacheHitPercentage :: Lens' DescribeCacheResponse (Maybe Double)
dcrCacheHitPercentage =
lens _dcrCacheHitPercentage (\s a -> s { _dcrCacheHitPercentage = a })
dcrCacheMissPercentage :: Lens' DescribeCacheResponse (Maybe Double)
dcrCacheMissPercentage =
lens _dcrCacheMissPercentage (\s a -> s { _dcrCacheMissPercentage = a })
dcrCacheUsedPercentage :: Lens' DescribeCacheResponse (Maybe Double)
dcrCacheUsedPercentage =
lens _dcrCacheUsedPercentage (\s a -> s { _dcrCacheUsedPercentage = a })
dcrDiskIds :: Lens' DescribeCacheResponse [Text]
dcrDiskIds = lens _dcrDiskIds (\s a -> s { _dcrDiskIds = a }) . _List
dcrGatewayARN :: Lens' DescribeCacheResponse (Maybe Text)
dcrGatewayARN = lens _dcrGatewayARN (\s a -> s { _dcrGatewayARN = a })
instance ToPath DescribeCache where
toPath = const "/"
instance ToQuery DescribeCache where
toQuery = const mempty
instance ToHeaders DescribeCache
instance ToJSON DescribeCache where
toJSON DescribeCache{..} = object
[ "GatewayARN" .= _dcGatewayARN
]
instance AWSRequest DescribeCache where
type Sv DescribeCache = StorageGateway
type Rs DescribeCache = DescribeCacheResponse
request = post "DescribeCache"
response = jsonResponse
instance FromJSON DescribeCacheResponse where
parseJSON = withObject "DescribeCacheResponse" $ \o -> DescribeCacheResponse
<$> o .:? "CacheAllocatedInBytes"
<*> o .:? "CacheDirtyPercentage"
<*> o .:? "CacheHitPercentage"
<*> o .:? "CacheMissPercentage"
<*> o .:? "CacheUsedPercentage"
<*> o .:? "DiskIds" .!= mempty
<*> o .:? "GatewayARN"