module Network.AWS.OpsWorks.DescribeVolumes
(
DescribeVolumes
, describeVolumes
, dvInstanceId
, dvRaidArrayId
, dvStackId
, dvVolumeIds
, DescribeVolumesResponse
, describeVolumesResponse
, dvrVolumes
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.OpsWorks.Types
import qualified GHC.Exts
data DescribeVolumes = DescribeVolumes
{ _dvInstanceId :: Maybe Text
, _dvRaidArrayId :: Maybe Text
, _dvStackId :: Maybe Text
, _dvVolumeIds :: List "InstanceIds" Text
} deriving (Eq, Ord, Show)
describeVolumes :: DescribeVolumes
describeVolumes = DescribeVolumes
{ _dvInstanceId = Nothing
, _dvStackId = Nothing
, _dvRaidArrayId = Nothing
, _dvVolumeIds = mempty
}
dvInstanceId :: Lens' DescribeVolumes (Maybe Text)
dvInstanceId = lens _dvInstanceId (\s a -> s { _dvInstanceId = a })
dvRaidArrayId :: Lens' DescribeVolumes (Maybe Text)
dvRaidArrayId = lens _dvRaidArrayId (\s a -> s { _dvRaidArrayId = a })
dvStackId :: Lens' DescribeVolumes (Maybe Text)
dvStackId = lens _dvStackId (\s a -> s { _dvStackId = a })
dvVolumeIds :: Lens' DescribeVolumes [Text]
dvVolumeIds = lens _dvVolumeIds (\s a -> s { _dvVolumeIds = a }) . _List
newtype DescribeVolumesResponse = DescribeVolumesResponse
{ _dvrVolumes :: List "Volumes" Volume
} deriving (Eq, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeVolumesResponse where
type Item DescribeVolumesResponse = Volume
fromList = DescribeVolumesResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _dvrVolumes
describeVolumesResponse :: DescribeVolumesResponse
describeVolumesResponse = DescribeVolumesResponse
{ _dvrVolumes = mempty
}
dvrVolumes :: Lens' DescribeVolumesResponse [Volume]
dvrVolumes = lens _dvrVolumes (\s a -> s { _dvrVolumes = a }) . _List
instance ToPath DescribeVolumes where
toPath = const "/"
instance ToQuery DescribeVolumes where
toQuery = const mempty
instance ToHeaders DescribeVolumes
instance ToJSON DescribeVolumes where
toJSON DescribeVolumes{..} = object
[ "InstanceId" .= _dvInstanceId
, "StackId" .= _dvStackId
, "RaidArrayId" .= _dvRaidArrayId
, "VolumeIds" .= _dvVolumeIds
]
instance AWSRequest DescribeVolumes where
type Sv DescribeVolumes = OpsWorks
type Rs DescribeVolumes = DescribeVolumesResponse
request = post "DescribeVolumes"
response = jsonResponse
instance FromJSON DescribeVolumesResponse where
parseJSON = withObject "DescribeVolumesResponse" $ \o -> DescribeVolumesResponse
<$> o .: "Volumes"