{-# 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.DeleteBotAlias
(
deleteBotAlias
, DeleteBotAlias
, dbaName
, dbaBotName
, deleteBotAliasResponse
, DeleteBotAliasResponse
) 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
data DeleteBotAlias = DeleteBotAlias'
{ _dbaName :: !Text
, _dbaBotName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteBotAlias
:: Text
-> Text
-> DeleteBotAlias
deleteBotAlias pName_ pBotName_ =
DeleteBotAlias' {_dbaName = pName_, _dbaBotName = pBotName_}
dbaName :: Lens' DeleteBotAlias Text
dbaName = lens _dbaName (\ s a -> s{_dbaName = a})
dbaBotName :: Lens' DeleteBotAlias Text
dbaBotName = lens _dbaBotName (\ s a -> s{_dbaBotName = a})
instance AWSRequest DeleteBotAlias where
type Rs DeleteBotAlias = DeleteBotAliasResponse
request = delete lexModels
response = receiveNull DeleteBotAliasResponse'
instance Hashable DeleteBotAlias where
instance NFData DeleteBotAlias where
instance ToHeaders DeleteBotAlias where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DeleteBotAlias where
toPath DeleteBotAlias'{..}
= mconcat
["/bots/", toBS _dbaBotName, "/aliases/",
toBS _dbaName]
instance ToQuery DeleteBotAlias where
toQuery = const mempty
data DeleteBotAliasResponse =
DeleteBotAliasResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteBotAliasResponse
:: DeleteBotAliasResponse
deleteBotAliasResponse = DeleteBotAliasResponse'
instance NFData DeleteBotAliasResponse where