{-# 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.DeleteSlotTypeVersion
(
deleteSlotTypeVersion
, DeleteSlotTypeVersion
, dstvName
, dstvVersion
, deleteSlotTypeVersionResponse
, DeleteSlotTypeVersionResponse
) 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 DeleteSlotTypeVersion = DeleteSlotTypeVersion'
{ _dstvName :: !Text
, _dstvVersion :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteSlotTypeVersion
:: Text
-> Text
-> DeleteSlotTypeVersion
deleteSlotTypeVersion pName_ pVersion_ =
DeleteSlotTypeVersion' {_dstvName = pName_, _dstvVersion = pVersion_}
dstvName :: Lens' DeleteSlotTypeVersion Text
dstvName = lens _dstvName (\ s a -> s{_dstvName = a})
dstvVersion :: Lens' DeleteSlotTypeVersion Text
dstvVersion = lens _dstvVersion (\ s a -> s{_dstvVersion = a})
instance AWSRequest DeleteSlotTypeVersion where
type Rs DeleteSlotTypeVersion =
DeleteSlotTypeVersionResponse
request = delete lexModels
response = receiveNull DeleteSlotTypeVersionResponse'
instance Hashable DeleteSlotTypeVersion where
instance NFData DeleteSlotTypeVersion where
instance ToHeaders DeleteSlotTypeVersion where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DeleteSlotTypeVersion where
toPath DeleteSlotTypeVersion'{..}
= mconcat
["/slottypes/", toBS _dstvName, "/version/",
toBS _dstvVersion]
instance ToQuery DeleteSlotTypeVersion where
toQuery = const mempty
data DeleteSlotTypeVersionResponse =
DeleteSlotTypeVersionResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteSlotTypeVersionResponse
:: DeleteSlotTypeVersionResponse
deleteSlotTypeVersionResponse = DeleteSlotTypeVersionResponse'
instance NFData DeleteSlotTypeVersionResponse where