{-# 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.GetDevice
(
getDevice
, GetDevice
, gdDeviceARN
, getDeviceResponse
, GetDeviceResponse
, gdrsDevice
, gdrsResponseStatus
) 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 GetDevice = GetDevice'
{ _gdDeviceARN :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getDevice
:: GetDevice
getDevice = GetDevice' {_gdDeviceARN = Nothing}
gdDeviceARN :: Lens' GetDevice (Maybe Text)
gdDeviceARN = lens _gdDeviceARN (\ s a -> s{_gdDeviceARN = a})
instance AWSRequest GetDevice where
type Rs GetDevice = GetDeviceResponse
request = postJSON alexaBusiness
response
= receiveJSON
(\ s h x ->
GetDeviceResponse' <$>
(x .?> "Device") <*> (pure (fromEnum s)))
instance Hashable GetDevice where
instance NFData GetDevice where
instance ToHeaders GetDevice where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AlexaForBusiness.GetDevice" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetDevice where
toJSON GetDevice'{..}
= object
(catMaybes [("DeviceArn" .=) <$> _gdDeviceARN])
instance ToPath GetDevice where
toPath = const "/"
instance ToQuery GetDevice where
toQuery = const mempty
data GetDeviceResponse = GetDeviceResponse'
{ _gdrsDevice :: !(Maybe Device)
, _gdrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getDeviceResponse
:: Int
-> GetDeviceResponse
getDeviceResponse pResponseStatus_ =
GetDeviceResponse'
{_gdrsDevice = Nothing, _gdrsResponseStatus = pResponseStatus_}
gdrsDevice :: Lens' GetDeviceResponse (Maybe Device)
gdrsDevice = lens _gdrsDevice (\ s a -> s{_gdrsDevice = a})
gdrsResponseStatus :: Lens' GetDeviceResponse Int
gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a})
instance NFData GetDeviceResponse where