{-# 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.LexModels.DeleteBot
(
deleteBot
, DeleteBot
, dbName
, deleteBotResponse
, DeleteBotResponse
) where
import Network.AWS.Lens
import Network.AWS.LexModels.Types
import Network.AWS.LexModels.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteBot = DeleteBot'
{ _dbName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteBot
:: Text
-> DeleteBot
deleteBot pName_ = DeleteBot' {_dbName = pName_}
dbName :: Lens' DeleteBot Text
dbName = lens _dbName (\ s a -> s{_dbName = a})
instance AWSRequest DeleteBot where
type Rs DeleteBot = DeleteBotResponse
request = delete lexModels
response = receiveNull DeleteBotResponse'
instance Hashable DeleteBot where
instance NFData DeleteBot where
instance ToHeaders DeleteBot where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DeleteBot where
toPath DeleteBot'{..}
= mconcat ["/bots/", toBS _dbName]
instance ToQuery DeleteBot where
toQuery = const mempty
data DeleteBotResponse =
DeleteBotResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteBotResponse
:: DeleteBotResponse
deleteBotResponse = DeleteBotResponse'
instance NFData DeleteBotResponse where