module Network.AWS.StorageGateway.DescribeCachediSCSIVolumes
(
describeCachediSCSIVolumes
, DescribeCachediSCSIVolumes
, dcscsivVolumeARNs
, describeCachediSCSIVolumesResponse
, DescribeCachediSCSIVolumesResponse
, dcscsivrsCachediSCSIVolumes
, dcscsivrsStatus
) 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])
, _dcscsivrsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeCachediSCSIVolumesResponse
:: Int
-> DescribeCachediSCSIVolumesResponse
describeCachediSCSIVolumesResponse pStatus_ =
DescribeCachediSCSIVolumesResponse'
{ _dcscsivrsCachediSCSIVolumes = Nothing
, _dcscsivrsStatus = pStatus_
}
dcscsivrsCachediSCSIVolumes :: Lens' DescribeCachediSCSIVolumesResponse [CachediSCSIVolume]
dcscsivrsCachediSCSIVolumes = lens _dcscsivrsCachediSCSIVolumes (\ s a -> s{_dcscsivrsCachediSCSIVolumes = a}) . _Default . _Coerce;
dcscsivrsStatus :: Lens' DescribeCachediSCSIVolumesResponse Int
dcscsivrsStatus = lens _dcscsivrsStatus (\ s a -> s{_dcscsivrsStatus = a});