module Network.AWS.Redshift.DisableLogging
(
DisableLogging
, disableLogging
, dlClusterIdentifier
, DisableLoggingResponse
, disableLoggingResponse
, dlrBucketName
, dlrLastFailureMessage
, dlrLastFailureTime
, dlrLastSuccessfulDeliveryTime
, dlrLoggingEnabled
, dlrS3KeyPrefix
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.Redshift.Types
import qualified GHC.Exts
newtype DisableLogging = DisableLogging
{ _dlClusterIdentifier :: Text
} deriving (Eq, Ord, Show, Monoid, IsString)
disableLogging :: Text
-> DisableLogging
disableLogging p1 = DisableLogging
{ _dlClusterIdentifier = p1
}
dlClusterIdentifier :: Lens' DisableLogging Text
dlClusterIdentifier =
lens _dlClusterIdentifier (\s a -> s { _dlClusterIdentifier = a })
data DisableLoggingResponse = DisableLoggingResponse
{ _dlrBucketName :: Maybe Text
, _dlrLastFailureMessage :: Maybe Text
, _dlrLastFailureTime :: Maybe ISO8601
, _dlrLastSuccessfulDeliveryTime :: Maybe ISO8601
, _dlrLoggingEnabled :: Maybe Bool
, _dlrS3KeyPrefix :: Maybe Text
} deriving (Eq, Ord, Show)
disableLoggingResponse :: DisableLoggingResponse
disableLoggingResponse = DisableLoggingResponse
{ _dlrLoggingEnabled = Nothing
, _dlrBucketName = Nothing
, _dlrS3KeyPrefix = Nothing
, _dlrLastSuccessfulDeliveryTime = Nothing
, _dlrLastFailureTime = Nothing
, _dlrLastFailureMessage = Nothing
}
dlrBucketName :: Lens' DisableLoggingResponse (Maybe Text)
dlrBucketName = lens _dlrBucketName (\s a -> s { _dlrBucketName = a })
dlrLastFailureMessage :: Lens' DisableLoggingResponse (Maybe Text)
dlrLastFailureMessage =
lens _dlrLastFailureMessage (\s a -> s { _dlrLastFailureMessage = a })
dlrLastFailureTime :: Lens' DisableLoggingResponse (Maybe UTCTime)
dlrLastFailureTime =
lens _dlrLastFailureTime (\s a -> s { _dlrLastFailureTime = a })
. mapping _Time
dlrLastSuccessfulDeliveryTime :: Lens' DisableLoggingResponse (Maybe UTCTime)
dlrLastSuccessfulDeliveryTime =
lens _dlrLastSuccessfulDeliveryTime
(\s a -> s { _dlrLastSuccessfulDeliveryTime = a })
. mapping _Time
dlrLoggingEnabled :: Lens' DisableLoggingResponse (Maybe Bool)
dlrLoggingEnabled =
lens _dlrLoggingEnabled (\s a -> s { _dlrLoggingEnabled = a })
dlrS3KeyPrefix :: Lens' DisableLoggingResponse (Maybe Text)
dlrS3KeyPrefix = lens _dlrS3KeyPrefix (\s a -> s { _dlrS3KeyPrefix = a })
instance ToPath DisableLogging where
toPath = const "/"
instance ToQuery DisableLogging where
toQuery DisableLogging{..} = mconcat
[ "ClusterIdentifier" =? _dlClusterIdentifier
]
instance ToHeaders DisableLogging
instance AWSRequest DisableLogging where
type Sv DisableLogging = Redshift
type Rs DisableLogging = DisableLoggingResponse
request = post "DisableLogging"
response = xmlResponse
instance FromXML DisableLoggingResponse where
parseXML = withElement "DisableLoggingResult" $ \x -> DisableLoggingResponse
<$> x .@? "BucketName"
<*> x .@? "LastFailureMessage"
<*> x .@? "LastFailureTime"
<*> x .@? "LastSuccessfulDeliveryTime"
<*> x .@? "LoggingEnabled"
<*> x .@? "S3KeyPrefix"