module Network.AWS.OpsWorks.DescribeVolumes
(
describeVolumes
, DescribeVolumes
, dvInstanceId
, dvVolumeIds
, dvRAIdArrayId
, dvStackId
, describeVolumesResponse
, DescribeVolumesResponse
, dvrsVolumes
, dvrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.OpsWorks.Types
import Network.AWS.OpsWorks.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeVolumes = DescribeVolumes'
{ _dvInstanceId :: !(Maybe Text)
, _dvVolumeIds :: !(Maybe [Text])
, _dvRAIdArrayId :: !(Maybe Text)
, _dvStackId :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeVolumes
:: DescribeVolumes
describeVolumes =
DescribeVolumes'
{ _dvInstanceId = Nothing
, _dvVolumeIds = Nothing
, _dvRAIdArrayId = Nothing
, _dvStackId = Nothing
}
dvInstanceId :: Lens' DescribeVolumes (Maybe Text)
dvInstanceId = lens _dvInstanceId (\ s a -> s{_dvInstanceId = a});
dvVolumeIds :: Lens' DescribeVolumes [Text]
dvVolumeIds = lens _dvVolumeIds (\ s a -> s{_dvVolumeIds = a}) . _Default . _Coerce;
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});
instance AWSRequest DescribeVolumes where
type Rs DescribeVolumes = DescribeVolumesResponse
request = postJSON opsWorks
response
= receiveJSON
(\ s h x ->
DescribeVolumesResponse' <$>
(x .?> "Volumes" .!@ mempty) <*> (pure (fromEnum s)))
instance ToHeaders DescribeVolumes where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OpsWorks_20130218.DescribeVolumes" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeVolumes where
toJSON DescribeVolumes'{..}
= object
(catMaybes
[("InstanceId" .=) <$> _dvInstanceId,
("VolumeIds" .=) <$> _dvVolumeIds,
("RaidArrayId" .=) <$> _dvRAIdArrayId,
("StackId" .=) <$> _dvStackId])
instance ToPath DescribeVolumes where
toPath = const "/"
instance ToQuery DescribeVolumes where
toQuery = const mempty
data DescribeVolumesResponse = DescribeVolumesResponse'
{ _dvrsVolumes :: !(Maybe [Volume])
, _dvrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeVolumesResponse
:: Int
-> DescribeVolumesResponse
describeVolumesResponse pResponseStatus_ =
DescribeVolumesResponse'
{ _dvrsVolumes = Nothing
, _dvrsResponseStatus = pResponseStatus_
}
dvrsVolumes :: Lens' DescribeVolumesResponse [Volume]
dvrsVolumes = lens _dvrsVolumes (\ s a -> s{_dvrsVolumes = a}) . _Default . _Coerce;
dvrsResponseStatus :: Lens' DescribeVolumesResponse Int
dvrsResponseStatus = lens _dvrsResponseStatus (\ s a -> s{_dvrsResponseStatus = a});