{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.StorageGateway.DescribeCachediSCSIVolumes
(
describeCachediSCSIVolumes
, DescribeCachediSCSIVolumes
, dcscsivVolumeARNs
, describeCachediSCSIVolumesResponse
, DescribeCachediSCSIVolumesResponse
, dcscsivrsCachediSCSIVolumes
, dcscsivrsResponseStatus
) where
import Network.AWS.Lens
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 Hashable DescribeCachediSCSIVolumes where
instance NFData DescribeCachediSCSIVolumes where
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])
, _dcscsivrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeCachediSCSIVolumesResponse
:: Int
-> DescribeCachediSCSIVolumesResponse
describeCachediSCSIVolumesResponse pResponseStatus_ =
DescribeCachediSCSIVolumesResponse'
{ _dcscsivrsCachediSCSIVolumes = Nothing
, _dcscsivrsResponseStatus = pResponseStatus_
}
dcscsivrsCachediSCSIVolumes :: Lens' DescribeCachediSCSIVolumesResponse [CachediSCSIVolume]
dcscsivrsCachediSCSIVolumes = lens _dcscsivrsCachediSCSIVolumes (\ s a -> s{_dcscsivrsCachediSCSIVolumes = a}) . _Default . _Coerce
dcscsivrsResponseStatus :: Lens' DescribeCachediSCSIVolumesResponse Int
dcscsivrsResponseStatus = lens _dcscsivrsResponseStatus (\ s a -> s{_dcscsivrsResponseStatus = a})
instance NFData DescribeCachediSCSIVolumesResponse
where