module Network.AWS.StorageGateway.DescribeCachediSCSIVolumes
(
DescribeCachediSCSIVolumes
, describeCachediSCSIVolumes
, dcscsivVolumeARNs
, DescribeCachediSCSIVolumesResponse
, describeCachediSCSIVolumesResponse
, dcscsivrCachediSCSIVolumes
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.StorageGateway.Types
import qualified GHC.Exts
newtype DescribeCachediSCSIVolumes = DescribeCachediSCSIVolumes
{ _dcscsivVolumeARNs :: List "VolumeARNs" Text
} deriving (Eq, Ord, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeCachediSCSIVolumes where
type Item DescribeCachediSCSIVolumes = Text
fromList = DescribeCachediSCSIVolumes . GHC.Exts.fromList
toList = GHC.Exts.toList . _dcscsivVolumeARNs
describeCachediSCSIVolumes :: DescribeCachediSCSIVolumes
describeCachediSCSIVolumes = DescribeCachediSCSIVolumes
{ _dcscsivVolumeARNs = mempty
}
dcscsivVolumeARNs :: Lens' DescribeCachediSCSIVolumes [Text]
dcscsivVolumeARNs =
lens _dcscsivVolumeARNs (\s a -> s { _dcscsivVolumeARNs = a })
. _List
newtype DescribeCachediSCSIVolumesResponse = DescribeCachediSCSIVolumesResponse
{ _dcscsivrCachediSCSIVolumes :: List "CachediSCSIVolumes" CachediSCSIVolume
} deriving (Eq, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeCachediSCSIVolumesResponse where
type Item DescribeCachediSCSIVolumesResponse = CachediSCSIVolume
fromList = DescribeCachediSCSIVolumesResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _dcscsivrCachediSCSIVolumes
describeCachediSCSIVolumesResponse :: DescribeCachediSCSIVolumesResponse
describeCachediSCSIVolumesResponse = DescribeCachediSCSIVolumesResponse
{ _dcscsivrCachediSCSIVolumes = mempty
}
dcscsivrCachediSCSIVolumes :: Lens' DescribeCachediSCSIVolumesResponse [CachediSCSIVolume]
dcscsivrCachediSCSIVolumes =
lens _dcscsivrCachediSCSIVolumes
(\s a -> s { _dcscsivrCachediSCSIVolumes = a })
. _List
instance ToPath DescribeCachediSCSIVolumes where
toPath = const "/"
instance ToQuery DescribeCachediSCSIVolumes where
toQuery = const mempty
instance ToHeaders DescribeCachediSCSIVolumes
instance ToJSON DescribeCachediSCSIVolumes where
toJSON DescribeCachediSCSIVolumes{..} = object
[ "VolumeARNs" .= _dcscsivVolumeARNs
]
instance AWSRequest DescribeCachediSCSIVolumes where
type Sv DescribeCachediSCSIVolumes = StorageGateway
type Rs DescribeCachediSCSIVolumes = DescribeCachediSCSIVolumesResponse
request = post "DescribeCachediSCSIVolumes"
response = jsonResponse
instance FromJSON DescribeCachediSCSIVolumesResponse where
parseJSON = withObject "DescribeCachediSCSIVolumesResponse" $ \o -> DescribeCachediSCSIVolumesResponse
<$> o .: "CachediSCSIVolumes"