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