module Network.AWS.StorageGateway.DescribeStorediSCSIVolumes
(
DescribeStorediSCSIVolumes
, describeStorediSCSIVolumes
, dsscsivVolumeARNs
, DescribeStorediSCSIVolumesResponse
, describeStorediSCSIVolumesResponse
, dsscsivrStorediSCSIVolumes
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.StorageGateway.Types
import qualified GHC.Exts
newtype DescribeStorediSCSIVolumes = DescribeStorediSCSIVolumes
{ _dsscsivVolumeARNs :: List "VolumeARNs" Text
} deriving (Eq, Ord, Read, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeStorediSCSIVolumes where
type Item DescribeStorediSCSIVolumes = Text
fromList = DescribeStorediSCSIVolumes . GHC.Exts.fromList
toList = GHC.Exts.toList . _dsscsivVolumeARNs
describeStorediSCSIVolumes :: DescribeStorediSCSIVolumes
describeStorediSCSIVolumes = DescribeStorediSCSIVolumes
{ _dsscsivVolumeARNs = mempty
}
dsscsivVolumeARNs :: Lens' DescribeStorediSCSIVolumes [Text]
dsscsivVolumeARNs =
lens _dsscsivVolumeARNs (\s a -> s { _dsscsivVolumeARNs = a })
. _List
newtype DescribeStorediSCSIVolumesResponse = DescribeStorediSCSIVolumesResponse
{ _dsscsivrStorediSCSIVolumes :: List "StorediSCSIVolumes" StorediSCSIVolume
} deriving (Eq, Read, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeStorediSCSIVolumesResponse where
type Item DescribeStorediSCSIVolumesResponse = StorediSCSIVolume
fromList = DescribeStorediSCSIVolumesResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _dsscsivrStorediSCSIVolumes
describeStorediSCSIVolumesResponse :: DescribeStorediSCSIVolumesResponse
describeStorediSCSIVolumesResponse = DescribeStorediSCSIVolumesResponse
{ _dsscsivrStorediSCSIVolumes = mempty
}
dsscsivrStorediSCSIVolumes :: Lens' DescribeStorediSCSIVolumesResponse [StorediSCSIVolume]
dsscsivrStorediSCSIVolumes =
lens _dsscsivrStorediSCSIVolumes
(\s a -> s { _dsscsivrStorediSCSIVolumes = a })
. _List
instance ToPath DescribeStorediSCSIVolumes where
toPath = const "/"
instance ToQuery DescribeStorediSCSIVolumes where
toQuery = const mempty
instance ToHeaders DescribeStorediSCSIVolumes
instance ToJSON DescribeStorediSCSIVolumes where
toJSON DescribeStorediSCSIVolumes{..} = object
[ "VolumeARNs" .= _dsscsivVolumeARNs
]
instance AWSRequest DescribeStorediSCSIVolumes where
type Sv DescribeStorediSCSIVolumes = StorageGateway
type Rs DescribeStorediSCSIVolumes = DescribeStorediSCSIVolumesResponse
request = post "DescribeStorediSCSIVolumes"
response = jsonResponse
instance FromJSON DescribeStorediSCSIVolumesResponse where
parseJSON = withObject "DescribeStorediSCSIVolumesResponse" $ \o -> DescribeStorediSCSIVolumesResponse
<$> o .:? "StorediSCSIVolumes" .!= mempty