{-# 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.DeleteRoom
(
deleteRoom
, DeleteRoom
, drRoomARN
, deleteRoomResponse
, DeleteRoomResponse
, drrsResponseStatus
) 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
newtype DeleteRoom = DeleteRoom'
{ _drRoomARN :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteRoom
:: DeleteRoom
deleteRoom = DeleteRoom' {_drRoomARN = Nothing}
drRoomARN :: Lens' DeleteRoom (Maybe Text)
drRoomARN = lens _drRoomARN (\ s a -> s{_drRoomARN = a})
instance AWSRequest DeleteRoom where
type Rs DeleteRoom = DeleteRoomResponse
request = postJSON alexaBusiness
response
= receiveEmpty
(\ s h x ->
DeleteRoomResponse' <$> (pure (fromEnum s)))
instance Hashable DeleteRoom where
instance NFData DeleteRoom where
instance ToHeaders DeleteRoom where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AlexaForBusiness.DeleteRoom" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteRoom where
toJSON DeleteRoom'{..}
= object (catMaybes [("RoomArn" .=) <$> _drRoomARN])
instance ToPath DeleteRoom where
toPath = const "/"
instance ToQuery DeleteRoom where
toQuery = const mempty
newtype DeleteRoomResponse = DeleteRoomResponse'
{ _drrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteRoomResponse
:: Int
-> DeleteRoomResponse
deleteRoomResponse pResponseStatus_ =
DeleteRoomResponse' {_drrsResponseStatus = pResponseStatus_}
drrsResponseStatus :: Lens' DeleteRoomResponse Int
drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a})
instance NFData DeleteRoomResponse where