{-# 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.DeleteIntentVersion
(
deleteIntentVersion
, DeleteIntentVersion
, divName
, divVersion
, deleteIntentVersionResponse
, DeleteIntentVersionResponse
) 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 DeleteIntentVersion = DeleteIntentVersion'
{ _divName :: !Text
, _divVersion :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteIntentVersion
:: Text
-> Text
-> DeleteIntentVersion
deleteIntentVersion pName_ pVersion_ =
DeleteIntentVersion' {_divName = pName_, _divVersion = pVersion_}
divName :: Lens' DeleteIntentVersion Text
divName = lens _divName (\ s a -> s{_divName = a})
divVersion :: Lens' DeleteIntentVersion Text
divVersion = lens _divVersion (\ s a -> s{_divVersion = a})
instance AWSRequest DeleteIntentVersion where
type Rs DeleteIntentVersion =
DeleteIntentVersionResponse
request = delete lexModels
response = receiveNull DeleteIntentVersionResponse'
instance Hashable DeleteIntentVersion where
instance NFData DeleteIntentVersion where
instance ToHeaders DeleteIntentVersion where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DeleteIntentVersion where
toPath DeleteIntentVersion'{..}
= mconcat
["/intents/", toBS _divName, "/versions/",
toBS _divVersion]
instance ToQuery DeleteIntentVersion where
toQuery = const mempty
data DeleteIntentVersionResponse =
DeleteIntentVersionResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteIntentVersionResponse
:: DeleteIntentVersionResponse
deleteIntentVersionResponse = DeleteIntentVersionResponse'
instance NFData DeleteIntentVersionResponse where