{-# 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.AlexaBusiness.DeleteRoomSkillParameter
(
deleteRoomSkillParameter
, DeleteRoomSkillParameter
, drspRoomARN
, drspSkillId
, drspParameterKey
, deleteRoomSkillParameterResponse
, DeleteRoomSkillParameterResponse
, drsprsResponseStatus
) where
import Network.AWS.AlexaBusiness.Types
import Network.AWS.AlexaBusiness.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DeleteRoomSkillParameter = DeleteRoomSkillParameter'
{ _drspRoomARN :: !(Maybe Text)
, _drspSkillId :: !Text
, _drspParameterKey :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteRoomSkillParameter
:: Text
-> Text
-> DeleteRoomSkillParameter
deleteRoomSkillParameter pSkillId_ pParameterKey_ =
DeleteRoomSkillParameter'
{ _drspRoomARN = Nothing
, _drspSkillId = pSkillId_
, _drspParameterKey = pParameterKey_
}
drspRoomARN :: Lens' DeleteRoomSkillParameter (Maybe Text)
drspRoomARN = lens _drspRoomARN (\ s a -> s{_drspRoomARN = a})
drspSkillId :: Lens' DeleteRoomSkillParameter Text
drspSkillId = lens _drspSkillId (\ s a -> s{_drspSkillId = a})
drspParameterKey :: Lens' DeleteRoomSkillParameter Text
drspParameterKey = lens _drspParameterKey (\ s a -> s{_drspParameterKey = a})
instance AWSRequest DeleteRoomSkillParameter where
type Rs DeleteRoomSkillParameter =
DeleteRoomSkillParameterResponse
request = postJSON alexaBusiness
response
= receiveEmpty
(\ s h x ->
DeleteRoomSkillParameterResponse' <$>
(pure (fromEnum s)))
instance Hashable DeleteRoomSkillParameter where
instance NFData DeleteRoomSkillParameter where
instance ToHeaders DeleteRoomSkillParameter where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AlexaForBusiness.DeleteRoomSkillParameter" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteRoomSkillParameter where
toJSON DeleteRoomSkillParameter'{..}
= object
(catMaybes
[("RoomArn" .=) <$> _drspRoomARN,
Just ("SkillId" .= _drspSkillId),
Just ("ParameterKey" .= _drspParameterKey)])
instance ToPath DeleteRoomSkillParameter where
toPath = const "/"
instance ToQuery DeleteRoomSkillParameter where
toQuery = const mempty
newtype DeleteRoomSkillParameterResponse = DeleteRoomSkillParameterResponse'
{ _drsprsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteRoomSkillParameterResponse
:: Int
-> DeleteRoomSkillParameterResponse
deleteRoomSkillParameterResponse pResponseStatus_ =
DeleteRoomSkillParameterResponse' {_drsprsResponseStatus = pResponseStatus_}
drsprsResponseStatus :: Lens' DeleteRoomSkillParameterResponse Int
drsprsResponseStatus = lens _drsprsResponseStatus (\ s a -> s{_drsprsResponseStatus = a})
instance NFData DeleteRoomSkillParameterResponse
where