module Network.AWS.Redshift.DescribeLoggingStatus
(
describeLoggingStatus
, DescribeLoggingStatus
, dlsClusterIdentifier
, loggingStatus
, LoggingStatus
, lsLastSuccessfulDeliveryTime
, lsLastFailureTime
, lsS3KeyPrefix
, lsBucketName
, lsLoggingEnabled
, lsLastFailureMessage
) where
import Network.AWS.Prelude
import Network.AWS.Redshift.Types
import Network.AWS.Redshift.Types.Product
import Network.AWS.Request
import Network.AWS.Response
newtype DescribeLoggingStatus = DescribeLoggingStatus'
{ _dlsClusterIdentifier :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeLoggingStatus
:: Text
-> DescribeLoggingStatus
describeLoggingStatus pClusterIdentifier_ =
DescribeLoggingStatus'
{ _dlsClusterIdentifier = pClusterIdentifier_
}
dlsClusterIdentifier :: Lens' DescribeLoggingStatus Text
dlsClusterIdentifier = lens _dlsClusterIdentifier (\ s a -> s{_dlsClusterIdentifier = a});
instance AWSRequest DescribeLoggingStatus where
type Rs DescribeLoggingStatus = LoggingStatus
request = postQuery redshift
response
= receiveXMLWrapper "DescribeLoggingStatusResult"
(\ s h x -> parseXML x)
instance ToHeaders DescribeLoggingStatus where
toHeaders = const mempty
instance ToPath DescribeLoggingStatus where
toPath = const "/"
instance ToQuery DescribeLoggingStatus where
toQuery DescribeLoggingStatus'{..}
= mconcat
["Action" =: ("DescribeLoggingStatus" :: ByteString),
"Version" =: ("2012-12-01" :: ByteString),
"ClusterIdentifier" =: _dlsClusterIdentifier]