module Network.AWS.StorageGateway.DescribeTapeArchives
(
describeTapeArchives
, DescribeTapeArchives
, dtaMarker
, dtaLimit
, dtaTapeARNs
, describeTapeArchivesResponse
, DescribeTapeArchivesResponse
, dtarsTapeArchives
, dtarsMarker
, dtarsResponseStatus
) where
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.StorageGateway.Types
import Network.AWS.StorageGateway.Types.Product
data DescribeTapeArchives = DescribeTapeArchives'
{ _dtaMarker :: !(Maybe Text)
, _dtaLimit :: !(Maybe Nat)
, _dtaTapeARNs :: !(Maybe [Text])
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeTapeArchives
:: DescribeTapeArchives
describeTapeArchives =
DescribeTapeArchives'
{ _dtaMarker = Nothing
, _dtaLimit = Nothing
, _dtaTapeARNs = Nothing
}
dtaMarker :: Lens' DescribeTapeArchives (Maybe Text)
dtaMarker = lens _dtaMarker (\ s a -> s{_dtaMarker = a});
dtaLimit :: Lens' DescribeTapeArchives (Maybe Natural)
dtaLimit = lens _dtaLimit (\ s a -> s{_dtaLimit = a}) . mapping _Nat;
dtaTapeARNs :: Lens' DescribeTapeArchives [Text]
dtaTapeARNs = lens _dtaTapeARNs (\ s a -> s{_dtaTapeARNs = a}) . _Default . _Coerce;
instance AWSPager DescribeTapeArchives where
page rq rs
| stop (rs ^. dtarsMarker) = Nothing
| stop (rs ^. dtarsTapeArchives) = Nothing
| otherwise =
Just $ rq & dtaMarker .~ rs ^. dtarsMarker
instance AWSRequest DescribeTapeArchives where
type Rs DescribeTapeArchives =
DescribeTapeArchivesResponse
request = postJSON storageGateway
response
= receiveJSON
(\ s h x ->
DescribeTapeArchivesResponse' <$>
(x .?> "TapeArchives" .!@ mempty) <*>
(x .?> "Marker")
<*> (pure (fromEnum s)))
instance ToHeaders DescribeTapeArchives where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("StorageGateway_20130630.DescribeTapeArchives" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeTapeArchives where
toJSON DescribeTapeArchives'{..}
= object
(catMaybes
[("Marker" .=) <$> _dtaMarker,
("Limit" .=) <$> _dtaLimit,
("TapeARNs" .=) <$> _dtaTapeARNs])
instance ToPath DescribeTapeArchives where
toPath = const "/"
instance ToQuery DescribeTapeArchives where
toQuery = const mempty
data DescribeTapeArchivesResponse = DescribeTapeArchivesResponse'
{ _dtarsTapeArchives :: !(Maybe [TapeArchive])
, _dtarsMarker :: !(Maybe Text)
, _dtarsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeTapeArchivesResponse
:: Int
-> DescribeTapeArchivesResponse
describeTapeArchivesResponse pResponseStatus_ =
DescribeTapeArchivesResponse'
{ _dtarsTapeArchives = Nothing
, _dtarsMarker = Nothing
, _dtarsResponseStatus = pResponseStatus_
}
dtarsTapeArchives :: Lens' DescribeTapeArchivesResponse [TapeArchive]
dtarsTapeArchives = lens _dtarsTapeArchives (\ s a -> s{_dtarsTapeArchives = a}) . _Default . _Coerce;
dtarsMarker :: Lens' DescribeTapeArchivesResponse (Maybe Text)
dtarsMarker = lens _dtarsMarker (\ s a -> s{_dtarsMarker = a});
dtarsResponseStatus :: Lens' DescribeTapeArchivesResponse Int
dtarsResponseStatus = lens _dtarsResponseStatus (\ s a -> s{_dtarsResponseStatus = a});