{-# 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.RDS.DescribeDBInstances
(
describeDBInstances
, DescribeDBInstances
, ddbiFilters
, ddbiDBInstanceIdentifier
, ddbiMarker
, ddbiMaxRecords
, describeDBInstancesResponse
, DescribeDBInstancesResponse
, ddbirsDBInstances
, ddbirsMarker
, ddbirsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.RDS.Types
import Network.AWS.RDS.Types.Product
import Network.AWS.Request
import Network.AWS.Response
data DescribeDBInstances = DescribeDBInstances'
{ _ddbiFilters :: !(Maybe [Filter])
, _ddbiDBInstanceIdentifier :: !(Maybe Text)
, _ddbiMarker :: !(Maybe Text)
, _ddbiMaxRecords :: !(Maybe Int)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeDBInstances
:: DescribeDBInstances
describeDBInstances =
DescribeDBInstances'
{ _ddbiFilters = Nothing
, _ddbiDBInstanceIdentifier = Nothing
, _ddbiMarker = Nothing
, _ddbiMaxRecords = Nothing
}
ddbiFilters :: Lens' DescribeDBInstances [Filter]
ddbiFilters = lens _ddbiFilters (\ s a -> s{_ddbiFilters = a}) . _Default . _Coerce;
ddbiDBInstanceIdentifier :: Lens' DescribeDBInstances (Maybe Text)
ddbiDBInstanceIdentifier = lens _ddbiDBInstanceIdentifier (\ s a -> s{_ddbiDBInstanceIdentifier = a});
ddbiMarker :: Lens' DescribeDBInstances (Maybe Text)
ddbiMarker = lens _ddbiMarker (\ s a -> s{_ddbiMarker = a});
ddbiMaxRecords :: Lens' DescribeDBInstances (Maybe Int)
ddbiMaxRecords = lens _ddbiMaxRecords (\ s a -> s{_ddbiMaxRecords = a});
instance AWSPager DescribeDBInstances where
page rq rs
| stop (rs ^. ddbirsMarker) = Nothing
| stop (rs ^. ddbirsDBInstances) = Nothing
| otherwise =
Just $ rq & ddbiMarker .~ rs ^. ddbirsMarker
instance AWSRequest DescribeDBInstances where
type Rs DescribeDBInstances =
DescribeDBInstancesResponse
request = postQuery rds
response
= receiveXMLWrapper "DescribeDBInstancesResult"
(\ s h x ->
DescribeDBInstancesResponse' <$>
(x .@? "DBInstances" .!@ mempty >>=
may (parseXMLList "DBInstance"))
<*> (x .@? "Marker")
<*> (pure (fromEnum s)))
instance Hashable DescribeDBInstances
instance NFData DescribeDBInstances
instance ToHeaders DescribeDBInstances where
toHeaders = const mempty
instance ToPath DescribeDBInstances where
toPath = const "/"
instance ToQuery DescribeDBInstances where
toQuery DescribeDBInstances'{..}
= mconcat
["Action" =: ("DescribeDBInstances" :: ByteString),
"Version" =: ("2014-10-31" :: ByteString),
"Filters" =:
toQuery (toQueryList "Filter" <$> _ddbiFilters),
"DBInstanceIdentifier" =: _ddbiDBInstanceIdentifier,
"Marker" =: _ddbiMarker,
"MaxRecords" =: _ddbiMaxRecords]
data DescribeDBInstancesResponse = DescribeDBInstancesResponse'
{ _ddbirsDBInstances :: !(Maybe [DBInstance])
, _ddbirsMarker :: !(Maybe Text)
, _ddbirsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeDBInstancesResponse
:: Int
-> DescribeDBInstancesResponse
describeDBInstancesResponse pResponseStatus_ =
DescribeDBInstancesResponse'
{ _ddbirsDBInstances = Nothing
, _ddbirsMarker = Nothing
, _ddbirsResponseStatus = pResponseStatus_
}
ddbirsDBInstances :: Lens' DescribeDBInstancesResponse [DBInstance]
ddbirsDBInstances = lens _ddbirsDBInstances (\ s a -> s{_ddbirsDBInstances = a}) . _Default . _Coerce;
ddbirsMarker :: Lens' DescribeDBInstancesResponse (Maybe Text)
ddbirsMarker = lens _ddbirsMarker (\ s a -> s{_ddbirsMarker = a});
ddbirsResponseStatus :: Lens' DescribeDBInstancesResponse Int
ddbirsResponseStatus = lens _ddbirsResponseStatus (\ s a -> s{_ddbirsResponseStatus = a});
instance NFData DescribeDBInstancesResponse