module Network.AWS.StorageGateway.DescribeCachediSCSIVolumes
(
describeCachediSCSIVolumes
, DescribeCachediSCSIVolumes
, dcscsivVolumeARNs
, describeCachediSCSIVolumesResponse
, DescribeCachediSCSIVolumesResponse
, dcscsivrsCachediSCSIVolumes
, dcscsivrsResponseStatus
) 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 DescribeCachediSCSIVolumes = DescribeCachediSCSIVolumes'
{ _dcscsivVolumeARNs :: [Text]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeCachediSCSIVolumes
:: DescribeCachediSCSIVolumes
describeCachediSCSIVolumes =
DescribeCachediSCSIVolumes'
{ _dcscsivVolumeARNs = mempty
}
dcscsivVolumeARNs :: Lens' DescribeCachediSCSIVolumes [Text]
dcscsivVolumeARNs = lens _dcscsivVolumeARNs (\ s a -> s{_dcscsivVolumeARNs = a}) . _Coerce;
instance AWSRequest DescribeCachediSCSIVolumes where
type Rs DescribeCachediSCSIVolumes =
DescribeCachediSCSIVolumesResponse
request = postJSON storageGateway
response
= receiveJSON
(\ s h x ->
DescribeCachediSCSIVolumesResponse' <$>
(x .?> "CachediSCSIVolumes" .!@ mempty) <*>
(pure (fromEnum s)))
instance ToHeaders DescribeCachediSCSIVolumes where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("StorageGateway_20130630.DescribeCachediSCSIVolumes"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeCachediSCSIVolumes where
toJSON DescribeCachediSCSIVolumes'{..}
= object
(catMaybes
[Just ("VolumeARNs" .= _dcscsivVolumeARNs)])
instance ToPath DescribeCachediSCSIVolumes where
toPath = const "/"
instance ToQuery DescribeCachediSCSIVolumes where
toQuery = const mempty
data DescribeCachediSCSIVolumesResponse = DescribeCachediSCSIVolumesResponse'
{ _dcscsivrsCachediSCSIVolumes :: !(Maybe [CachediSCSIVolume])
, _dcscsivrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeCachediSCSIVolumesResponse
:: Int
-> DescribeCachediSCSIVolumesResponse
describeCachediSCSIVolumesResponse pResponseStatus_ =
DescribeCachediSCSIVolumesResponse'
{ _dcscsivrsCachediSCSIVolumes = Nothing
, _dcscsivrsResponseStatus = pResponseStatus_
}
dcscsivrsCachediSCSIVolumes :: Lens' DescribeCachediSCSIVolumesResponse [CachediSCSIVolume]
dcscsivrsCachediSCSIVolumes = lens _dcscsivrsCachediSCSIVolumes (\ s a -> s{_dcscsivrsCachediSCSIVolumes = a}) . _Default . _Coerce;
dcscsivrsResponseStatus :: Lens' DescribeCachediSCSIVolumesResponse Int
dcscsivrsResponseStatus = lens _dcscsivrsResponseStatus (\ s a -> s{_dcscsivrsResponseStatus = a});