{-# 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.GetRoomSkillParameter
(
getRoomSkillParameter
, GetRoomSkillParameter
, grspRoomARN
, grspSkillId
, grspParameterKey
, getRoomSkillParameterResponse
, GetRoomSkillParameterResponse
, grsprsRoomSkillParameter
, grsprsResponseStatus
) 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 GetRoomSkillParameter = GetRoomSkillParameter'
{ _grspRoomARN :: !(Maybe Text)
, _grspSkillId :: !Text
, _grspParameterKey :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getRoomSkillParameter
:: Text
-> Text
-> GetRoomSkillParameter
getRoomSkillParameter pSkillId_ pParameterKey_ =
GetRoomSkillParameter'
{ _grspRoomARN = Nothing
, _grspSkillId = pSkillId_
, _grspParameterKey = pParameterKey_
}
grspRoomARN :: Lens' GetRoomSkillParameter (Maybe Text)
grspRoomARN = lens _grspRoomARN (\ s a -> s{_grspRoomARN = a})
grspSkillId :: Lens' GetRoomSkillParameter Text
grspSkillId = lens _grspSkillId (\ s a -> s{_grspSkillId = a})
grspParameterKey :: Lens' GetRoomSkillParameter Text
grspParameterKey = lens _grspParameterKey (\ s a -> s{_grspParameterKey = a})
instance AWSRequest GetRoomSkillParameter where
type Rs GetRoomSkillParameter =
GetRoomSkillParameterResponse
request = postJSON alexaBusiness
response
= receiveJSON
(\ s h x ->
GetRoomSkillParameterResponse' <$>
(x .?> "RoomSkillParameter") <*> (pure (fromEnum s)))
instance Hashable GetRoomSkillParameter where
instance NFData GetRoomSkillParameter where
instance ToHeaders GetRoomSkillParameter where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AlexaForBusiness.GetRoomSkillParameter" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetRoomSkillParameter where
toJSON GetRoomSkillParameter'{..}
= object
(catMaybes
[("RoomArn" .=) <$> _grspRoomARN,
Just ("SkillId" .= _grspSkillId),
Just ("ParameterKey" .= _grspParameterKey)])
instance ToPath GetRoomSkillParameter where
toPath = const "/"
instance ToQuery GetRoomSkillParameter where
toQuery = const mempty
data GetRoomSkillParameterResponse = GetRoomSkillParameterResponse'
{ _grsprsRoomSkillParameter :: !(Maybe RoomSkillParameter)
, _grsprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getRoomSkillParameterResponse
:: Int
-> GetRoomSkillParameterResponse
getRoomSkillParameterResponse pResponseStatus_ =
GetRoomSkillParameterResponse'
{ _grsprsRoomSkillParameter = Nothing
, _grsprsResponseStatus = pResponseStatus_
}
grsprsRoomSkillParameter :: Lens' GetRoomSkillParameterResponse (Maybe RoomSkillParameter)
grsprsRoomSkillParameter = lens _grsprsRoomSkillParameter (\ s a -> s{_grsprsRoomSkillParameter = a})
grsprsResponseStatus :: Lens' GetRoomSkillParameterResponse Int
grsprsResponseStatus = lens _grsprsResponseStatus (\ s a -> s{_grsprsResponseStatus = a})
instance NFData GetRoomSkillParameterResponse where