module Network.AWS.Route53.DeleteQueryLoggingConfig
(
deleteQueryLoggingConfig
, DeleteQueryLoggingConfig
, dqlcId
, deleteQueryLoggingConfigResponse
, DeleteQueryLoggingConfigResponse
, dqlcrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.Route53.Types
import Network.AWS.Route53.Types.Product
newtype DeleteQueryLoggingConfig = DeleteQueryLoggingConfig'
{ _dqlcId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteQueryLoggingConfig
:: Text
-> DeleteQueryLoggingConfig
deleteQueryLoggingConfig pId_ = DeleteQueryLoggingConfig' {_dqlcId = pId_}
dqlcId :: Lens' DeleteQueryLoggingConfig Text
dqlcId = lens _dqlcId (\ s a -> s{_dqlcId = a});
instance AWSRequest DeleteQueryLoggingConfig where
type Rs DeleteQueryLoggingConfig =
DeleteQueryLoggingConfigResponse
request = delete route53
response
= receiveEmpty
(\ s h x ->
DeleteQueryLoggingConfigResponse' <$>
(pure (fromEnum s)))
instance Hashable DeleteQueryLoggingConfig where
instance NFData DeleteQueryLoggingConfig where
instance ToHeaders DeleteQueryLoggingConfig where
toHeaders = const mempty
instance ToPath DeleteQueryLoggingConfig where
toPath DeleteQueryLoggingConfig'{..}
= mconcat
["/2013-04-01/queryloggingconfig/", toBS _dqlcId]
instance ToQuery DeleteQueryLoggingConfig where
toQuery = const mempty
newtype DeleteQueryLoggingConfigResponse = DeleteQueryLoggingConfigResponse'
{ _dqlcrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteQueryLoggingConfigResponse
:: Int
-> DeleteQueryLoggingConfigResponse
deleteQueryLoggingConfigResponse pResponseStatus_ =
DeleteQueryLoggingConfigResponse' {_dqlcrsResponseStatus = pResponseStatus_}
dqlcrsResponseStatus :: Lens' DeleteQueryLoggingConfigResponse Int
dqlcrsResponseStatus = lens _dqlcrsResponseStatus (\ s a -> s{_dqlcrsResponseStatus = a});
instance NFData DeleteQueryLoggingConfigResponse
where