{-# 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.DeleteDatastore
(
deleteDatastore
, DeleteDatastore
, ddDatastoreName
, deleteDatastoreResponse
, DeleteDatastoreResponse
) 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 DeleteDatastore = DeleteDatastore'
{ _ddDatastoreName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteDatastore
:: Text
-> DeleteDatastore
deleteDatastore pDatastoreName_ =
DeleteDatastore' {_ddDatastoreName = pDatastoreName_}
ddDatastoreName :: Lens' DeleteDatastore Text
ddDatastoreName = lens _ddDatastoreName (\ s a -> s{_ddDatastoreName = a})
instance AWSRequest DeleteDatastore where
type Rs DeleteDatastore = DeleteDatastoreResponse
request = delete ioTAnalytics
response = receiveNull DeleteDatastoreResponse'
instance Hashable DeleteDatastore where
instance NFData DeleteDatastore where
instance ToHeaders DeleteDatastore where
toHeaders = const mempty
instance ToPath DeleteDatastore where
toPath DeleteDatastore'{..}
= mconcat ["/datastores/", toBS _ddDatastoreName]
instance ToQuery DeleteDatastore where
toQuery = const mempty
data DeleteDatastoreResponse =
DeleteDatastoreResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteDatastoreResponse
:: DeleteDatastoreResponse
deleteDatastoreResponse = DeleteDatastoreResponse'
instance NFData DeleteDatastoreResponse where