{-# 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.DeleteDataset
(
deleteDataset
, DeleteDataset
, dDatasetName
, deleteDatasetResponse
, DeleteDatasetResponse
) 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
newtype DeleteDataset = DeleteDataset'
{ _dDatasetName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteDataset
:: Text
-> DeleteDataset
deleteDataset pDatasetName_ = DeleteDataset' {_dDatasetName = pDatasetName_}
dDatasetName :: Lens' DeleteDataset Text
dDatasetName = lens _dDatasetName (\ s a -> s{_dDatasetName = a})
instance AWSRequest DeleteDataset where
type Rs DeleteDataset = DeleteDatasetResponse
request = delete ioTAnalytics
response = receiveNull DeleteDatasetResponse'
instance Hashable DeleteDataset where
instance NFData DeleteDataset where
instance ToHeaders DeleteDataset where
toHeaders = const mempty
instance ToPath DeleteDataset where
toPath DeleteDataset'{..}
= mconcat ["/datasets/", toBS _dDatasetName]
instance ToQuery DeleteDataset where
toQuery = const mempty
data DeleteDatasetResponse =
DeleteDatasetResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteDatasetResponse
:: DeleteDatasetResponse
deleteDatasetResponse = DeleteDatasetResponse'
instance NFData DeleteDatasetResponse where