module Network.AWS.DeviceFarm.DeleteRemoteAccessSession
(
deleteRemoteAccessSession
, DeleteRemoteAccessSession
, drasArn
, deleteRemoteAccessSessionResponse
, DeleteRemoteAccessSessionResponse
, drasrsResponseStatus
) where
import Network.AWS.DeviceFarm.Types
import Network.AWS.DeviceFarm.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteRemoteAccessSession = DeleteRemoteAccessSession'
{ _drasArn :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteRemoteAccessSession
:: Text
-> DeleteRemoteAccessSession
deleteRemoteAccessSession pArn_ = DeleteRemoteAccessSession' {_drasArn = pArn_}
drasArn :: Lens' DeleteRemoteAccessSession Text
drasArn = lens _drasArn (\ s a -> s{_drasArn = a});
instance AWSRequest DeleteRemoteAccessSession where
type Rs DeleteRemoteAccessSession =
DeleteRemoteAccessSessionResponse
request = postJSON deviceFarm
response
= receiveEmpty
(\ s h x ->
DeleteRemoteAccessSessionResponse' <$>
(pure (fromEnum s)))
instance Hashable DeleteRemoteAccessSession where
instance NFData DeleteRemoteAccessSession where
instance ToHeaders DeleteRemoteAccessSession where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("DeviceFarm_20150623.DeleteRemoteAccessSession" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteRemoteAccessSession where
toJSON DeleteRemoteAccessSession'{..}
= object (catMaybes [Just ("arn" .= _drasArn)])
instance ToPath DeleteRemoteAccessSession where
toPath = const "/"
instance ToQuery DeleteRemoteAccessSession where
toQuery = const mempty
newtype DeleteRemoteAccessSessionResponse = DeleteRemoteAccessSessionResponse'
{ _drasrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteRemoteAccessSessionResponse
:: Int
-> DeleteRemoteAccessSessionResponse
deleteRemoteAccessSessionResponse pResponseStatus_ =
DeleteRemoteAccessSessionResponse' {_drasrsResponseStatus = pResponseStatus_}
drasrsResponseStatus :: Lens' DeleteRemoteAccessSessionResponse Int
drasrsResponseStatus = lens _drasrsResponseStatus (\ s a -> s{_drasrsResponseStatus = a});
instance NFData DeleteRemoteAccessSessionResponse
where