module Network.AWS.RDS.DescribeDBLogFiles
(
DescribeDBLogFiles
, describeDBLogFiles
, ddblfDBInstanceIdentifier
, ddblfFileLastWritten
, ddblfFileSize
, ddblfFilenameContains
, ddblfFilters
, ddblfMarker
, ddblfMaxRecords
, DescribeDBLogFilesResponse
, describeDBLogFilesResponse
, ddblfrDescribeDBLogFiles
, ddblfrMarker
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.RDS.Types
import qualified GHC.Exts
data DescribeDBLogFiles = DescribeDBLogFiles
{ _ddblfDBInstanceIdentifier :: Text
, _ddblfFileLastWritten :: Maybe Integer
, _ddblfFileSize :: Maybe Integer
, _ddblfFilenameContains :: Maybe Text
, _ddblfFilters :: List "member" Filter
, _ddblfMarker :: Maybe Text
, _ddblfMaxRecords :: Maybe Int
} deriving (Eq, Show)
describeDBLogFiles :: Text
-> DescribeDBLogFiles
describeDBLogFiles p1 = DescribeDBLogFiles
{ _ddblfDBInstanceIdentifier = p1
, _ddblfFilenameContains = Nothing
, _ddblfFileLastWritten = Nothing
, _ddblfFileSize = Nothing
, _ddblfFilters = mempty
, _ddblfMaxRecords = Nothing
, _ddblfMarker = Nothing
}
ddblfDBInstanceIdentifier :: Lens' DescribeDBLogFiles Text
ddblfDBInstanceIdentifier =
lens _ddblfDBInstanceIdentifier
(\s a -> s { _ddblfDBInstanceIdentifier = a })
ddblfFileLastWritten :: Lens' DescribeDBLogFiles (Maybe Integer)
ddblfFileLastWritten =
lens _ddblfFileLastWritten (\s a -> s { _ddblfFileLastWritten = a })
ddblfFileSize :: Lens' DescribeDBLogFiles (Maybe Integer)
ddblfFileSize = lens _ddblfFileSize (\s a -> s { _ddblfFileSize = a })
ddblfFilenameContains :: Lens' DescribeDBLogFiles (Maybe Text)
ddblfFilenameContains =
lens _ddblfFilenameContains (\s a -> s { _ddblfFilenameContains = a })
ddblfFilters :: Lens' DescribeDBLogFiles [Filter]
ddblfFilters = lens _ddblfFilters (\s a -> s { _ddblfFilters = a }) . _List
ddblfMarker :: Lens' DescribeDBLogFiles (Maybe Text)
ddblfMarker = lens _ddblfMarker (\s a -> s { _ddblfMarker = a })
ddblfMaxRecords :: Lens' DescribeDBLogFiles (Maybe Int)
ddblfMaxRecords = lens _ddblfMaxRecords (\s a -> s { _ddblfMaxRecords = a })
data DescribeDBLogFilesResponse = DescribeDBLogFilesResponse
{ _ddblfrDescribeDBLogFiles :: List "member" DescribeDBLogFilesDetails
, _ddblfrMarker :: Maybe Text
} deriving (Eq, Show)
describeDBLogFilesResponse :: DescribeDBLogFilesResponse
describeDBLogFilesResponse = DescribeDBLogFilesResponse
{ _ddblfrDescribeDBLogFiles = mempty
, _ddblfrMarker = Nothing
}
ddblfrDescribeDBLogFiles :: Lens' DescribeDBLogFilesResponse [DescribeDBLogFilesDetails]
ddblfrDescribeDBLogFiles =
lens _ddblfrDescribeDBLogFiles
(\s a -> s { _ddblfrDescribeDBLogFiles = a })
. _List
ddblfrMarker :: Lens' DescribeDBLogFilesResponse (Maybe Text)
ddblfrMarker = lens _ddblfrMarker (\s a -> s { _ddblfrMarker = a })
instance ToPath DescribeDBLogFiles where
toPath = const "/"
instance ToQuery DescribeDBLogFiles where
toQuery DescribeDBLogFiles{..} = mconcat
[ "DBInstanceIdentifier" =? _ddblfDBInstanceIdentifier
, "FileLastWritten" =? _ddblfFileLastWritten
, "FileSize" =? _ddblfFileSize
, "FilenameContains" =? _ddblfFilenameContains
, "Filters" =? _ddblfFilters
, "Marker" =? _ddblfMarker
, "MaxRecords" =? _ddblfMaxRecords
]
instance ToHeaders DescribeDBLogFiles
instance AWSRequest DescribeDBLogFiles where
type Sv DescribeDBLogFiles = RDS
type Rs DescribeDBLogFiles = DescribeDBLogFilesResponse
request = post "DescribeDBLogFiles"
response = xmlResponse
instance FromXML DescribeDBLogFilesResponse where
parseXML = withElement "DescribeDBLogFilesResult" $ \x -> DescribeDBLogFilesResponse
<$> x .@? "DescribeDBLogFiles" .!@ mempty
<*> x .@? "Marker"
instance AWSPager DescribeDBLogFiles where
page rq rs
| stop (rq ^. ddblfMarker) = Nothing
| otherwise = (\x -> rq & ddblfMarker ?~ x)
<$> (rs ^. ddblfrMarker)