{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.IoTAnalytics.DeleteDatasetContent
(
deleteDatasetContent
, DeleteDatasetContent
, ddcVersionId
, ddcDatasetName
, deleteDatasetContentResponse
, DeleteDatasetContentResponse
) where
import Network.AWS.IoTAnalytics.Types
import Network.AWS.IoTAnalytics.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DeleteDatasetContent = DeleteDatasetContent'
{ _ddcVersionId :: !(Maybe Text)
, _ddcDatasetName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteDatasetContent
:: Text
-> DeleteDatasetContent
deleteDatasetContent pDatasetName_ =
DeleteDatasetContent'
{_ddcVersionId = Nothing, _ddcDatasetName = pDatasetName_}
ddcVersionId :: Lens' DeleteDatasetContent (Maybe Text)
ddcVersionId = lens _ddcVersionId (\ s a -> s{_ddcVersionId = a})
ddcDatasetName :: Lens' DeleteDatasetContent Text
ddcDatasetName = lens _ddcDatasetName (\ s a -> s{_ddcDatasetName = a})
instance AWSRequest DeleteDatasetContent where
type Rs DeleteDatasetContent =
DeleteDatasetContentResponse
request = delete ioTAnalytics
response = receiveNull DeleteDatasetContentResponse'
instance Hashable DeleteDatasetContent where
instance NFData DeleteDatasetContent where
instance ToHeaders DeleteDatasetContent where
toHeaders = const mempty
instance ToPath DeleteDatasetContent where
toPath DeleteDatasetContent'{..}
= mconcat
["/datasets/", toBS _ddcDatasetName, "/content"]
instance ToQuery DeleteDatasetContent where
toQuery DeleteDatasetContent'{..}
= mconcat ["versionId" =: _ddcVersionId]
data DeleteDatasetContentResponse =
DeleteDatasetContentResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteDatasetContentResponse
:: DeleteDatasetContentResponse
deleteDatasetContentResponse = DeleteDatasetContentResponse'
instance NFData DeleteDatasetContentResponse where