module Network.AWS.Redshift.DescribeLoggingStatus
(
DescribeLoggingStatus
, describeLoggingStatus
, dlsClusterIdentifier
, DescribeLoggingStatusResponse
, describeLoggingStatusResponse
, dlsrBucketName
, dlsrLastFailureMessage
, dlsrLastFailureTime
, dlsrLastSuccessfulDeliveryTime
, dlsrLoggingEnabled
, dlsrS3KeyPrefix
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.Redshift.Types
import qualified GHC.Exts
newtype DescribeLoggingStatus = DescribeLoggingStatus
{ _dlsClusterIdentifier :: Text
} deriving (Eq, Ord, Show, Monoid, IsString)
describeLoggingStatus :: Text
-> DescribeLoggingStatus
describeLoggingStatus p1 = DescribeLoggingStatus
{ _dlsClusterIdentifier = p1
}
dlsClusterIdentifier :: Lens' DescribeLoggingStatus Text
dlsClusterIdentifier =
lens _dlsClusterIdentifier (\s a -> s { _dlsClusterIdentifier = a })
data DescribeLoggingStatusResponse = DescribeLoggingStatusResponse
{ _dlsrBucketName :: Maybe Text
, _dlsrLastFailureMessage :: Maybe Text
, _dlsrLastFailureTime :: Maybe ISO8601
, _dlsrLastSuccessfulDeliveryTime :: Maybe ISO8601
, _dlsrLoggingEnabled :: Maybe Bool
, _dlsrS3KeyPrefix :: Maybe Text
} deriving (Eq, Ord, Show)
describeLoggingStatusResponse :: DescribeLoggingStatusResponse
describeLoggingStatusResponse = DescribeLoggingStatusResponse
{ _dlsrLoggingEnabled = Nothing
, _dlsrBucketName = Nothing
, _dlsrS3KeyPrefix = Nothing
, _dlsrLastSuccessfulDeliveryTime = Nothing
, _dlsrLastFailureTime = Nothing
, _dlsrLastFailureMessage = Nothing
}
dlsrBucketName :: Lens' DescribeLoggingStatusResponse (Maybe Text)
dlsrBucketName = lens _dlsrBucketName (\s a -> s { _dlsrBucketName = a })
dlsrLastFailureMessage :: Lens' DescribeLoggingStatusResponse (Maybe Text)
dlsrLastFailureMessage =
lens _dlsrLastFailureMessage (\s a -> s { _dlsrLastFailureMessage = a })
dlsrLastFailureTime :: Lens' DescribeLoggingStatusResponse (Maybe UTCTime)
dlsrLastFailureTime =
lens _dlsrLastFailureTime (\s a -> s { _dlsrLastFailureTime = a })
. mapping _Time
dlsrLastSuccessfulDeliveryTime :: Lens' DescribeLoggingStatusResponse (Maybe UTCTime)
dlsrLastSuccessfulDeliveryTime =
lens _dlsrLastSuccessfulDeliveryTime
(\s a -> s { _dlsrLastSuccessfulDeliveryTime = a })
. mapping _Time
dlsrLoggingEnabled :: Lens' DescribeLoggingStatusResponse (Maybe Bool)
dlsrLoggingEnabled =
lens _dlsrLoggingEnabled (\s a -> s { _dlsrLoggingEnabled = a })
dlsrS3KeyPrefix :: Lens' DescribeLoggingStatusResponse (Maybe Text)
dlsrS3KeyPrefix = lens _dlsrS3KeyPrefix (\s a -> s { _dlsrS3KeyPrefix = a })
instance ToPath DescribeLoggingStatus where
toPath = const "/"
instance ToQuery DescribeLoggingStatus where
toQuery DescribeLoggingStatus{..} = mconcat
[ "ClusterIdentifier" =? _dlsClusterIdentifier
]
instance ToHeaders DescribeLoggingStatus
instance AWSRequest DescribeLoggingStatus where
type Sv DescribeLoggingStatus = Redshift
type Rs DescribeLoggingStatus = DescribeLoggingStatusResponse
request = post "DescribeLoggingStatus"
response = xmlResponse
instance FromXML DescribeLoggingStatusResponse where
parseXML = withElement "DescribeLoggingStatusResult" $ \x -> DescribeLoggingStatusResponse
<$> x .@? "BucketName"
<*> x .@? "LastFailureMessage"
<*> x .@? "LastFailureTime"
<*> x .@? "LastSuccessfulDeliveryTime"
<*> x .@? "LoggingEnabled"
<*> x .@? "S3KeyPrefix"