{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.StorageGateway.DescribeWorkingStorage
(
describeWorkingStorage
, DescribeWorkingStorage
, dwsGatewayARN
, describeWorkingStorageResponse
, DescribeWorkingStorageResponse
, dwsrsGatewayARN
, dwsrsDiskIds
, dwsrsWorkingStorageAllocatedInBytes
, dwsrsWorkingStorageUsedInBytes
, dwsrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.StorageGateway.Types
import Network.AWS.StorageGateway.Types.Product
newtype DescribeWorkingStorage = DescribeWorkingStorage'
{ _dwsGatewayARN :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeWorkingStorage
:: Text
-> DescribeWorkingStorage
describeWorkingStorage pGatewayARN_ =
DescribeWorkingStorage' {_dwsGatewayARN = pGatewayARN_}
dwsGatewayARN :: Lens' DescribeWorkingStorage Text
dwsGatewayARN = lens _dwsGatewayARN (\ s a -> s{_dwsGatewayARN = a})
instance AWSRequest DescribeWorkingStorage where
type Rs DescribeWorkingStorage =
DescribeWorkingStorageResponse
request = postJSON storageGateway
response
= receiveJSON
(\ s h x ->
DescribeWorkingStorageResponse' <$>
(x .?> "GatewayARN") <*> (x .?> "DiskIds" .!@ mempty)
<*> (x .?> "WorkingStorageAllocatedInBytes")
<*> (x .?> "WorkingStorageUsedInBytes")
<*> (pure (fromEnum s)))
instance Hashable DescribeWorkingStorage where
instance NFData DescribeWorkingStorage where
instance ToHeaders DescribeWorkingStorage where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("StorageGateway_20130630.DescribeWorkingStorage" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeWorkingStorage where
toJSON DescribeWorkingStorage'{..}
= object
(catMaybes [Just ("GatewayARN" .= _dwsGatewayARN)])
instance ToPath DescribeWorkingStorage where
toPath = const "/"
instance ToQuery DescribeWorkingStorage where
toQuery = const mempty
data DescribeWorkingStorageResponse = DescribeWorkingStorageResponse'
{ _dwsrsGatewayARN :: !(Maybe Text)
, _dwsrsDiskIds :: !(Maybe [Text])
, _dwsrsWorkingStorageAllocatedInBytes :: !(Maybe Integer)
, _dwsrsWorkingStorageUsedInBytes :: !(Maybe Integer)
, _dwsrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeWorkingStorageResponse
:: Int
-> DescribeWorkingStorageResponse
describeWorkingStorageResponse pResponseStatus_ =
DescribeWorkingStorageResponse'
{ _dwsrsGatewayARN = Nothing
, _dwsrsDiskIds = Nothing
, _dwsrsWorkingStorageAllocatedInBytes = Nothing
, _dwsrsWorkingStorageUsedInBytes = Nothing
, _dwsrsResponseStatus = pResponseStatus_
}
dwsrsGatewayARN :: Lens' DescribeWorkingStorageResponse (Maybe Text)
dwsrsGatewayARN = lens _dwsrsGatewayARN (\ s a -> s{_dwsrsGatewayARN = a})
dwsrsDiskIds :: Lens' DescribeWorkingStorageResponse [Text]
dwsrsDiskIds = lens _dwsrsDiskIds (\ s a -> s{_dwsrsDiskIds = a}) . _Default . _Coerce
dwsrsWorkingStorageAllocatedInBytes :: Lens' DescribeWorkingStorageResponse (Maybe Integer)
dwsrsWorkingStorageAllocatedInBytes = lens _dwsrsWorkingStorageAllocatedInBytes (\ s a -> s{_dwsrsWorkingStorageAllocatedInBytes = a})
dwsrsWorkingStorageUsedInBytes :: Lens' DescribeWorkingStorageResponse (Maybe Integer)
dwsrsWorkingStorageUsedInBytes = lens _dwsrsWorkingStorageUsedInBytes (\ s a -> s{_dwsrsWorkingStorageUsedInBytes = a})
dwsrsResponseStatus :: Lens' DescribeWorkingStorageResponse Int
dwsrsResponseStatus = lens _dwsrsResponseStatus (\ s a -> s{_dwsrsResponseStatus = a})
instance NFData DescribeWorkingStorageResponse where