{-# 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.DeleteBotVersion
(
deleteBotVersion
, DeleteBotVersion
, dbvName
, dbvVersion
, deleteBotVersionResponse
, DeleteBotVersionResponse
) 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 DeleteBotVersion = DeleteBotVersion'
{ _dbvName :: !Text
, _dbvVersion :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteBotVersion
:: Text
-> Text
-> DeleteBotVersion
deleteBotVersion pName_ pVersion_ =
DeleteBotVersion' {_dbvName = pName_, _dbvVersion = pVersion_}
dbvName :: Lens' DeleteBotVersion Text
dbvName = lens _dbvName (\ s a -> s{_dbvName = a})
dbvVersion :: Lens' DeleteBotVersion Text
dbvVersion = lens _dbvVersion (\ s a -> s{_dbvVersion = a})
instance AWSRequest DeleteBotVersion where
type Rs DeleteBotVersion = DeleteBotVersionResponse
request = delete lexModels
response = receiveNull DeleteBotVersionResponse'
instance Hashable DeleteBotVersion where
instance NFData DeleteBotVersion where
instance ToHeaders DeleteBotVersion where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DeleteBotVersion where
toPath DeleteBotVersion'{..}
= mconcat
["/bots/", toBS _dbvName, "/versions/",
toBS _dbvVersion]
instance ToQuery DeleteBotVersion where
toQuery = const mempty
data DeleteBotVersionResponse =
DeleteBotVersionResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteBotVersionResponse
:: DeleteBotVersionResponse
deleteBotVersionResponse = DeleteBotVersionResponse'
instance NFData DeleteBotVersionResponse where