{-# 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.GameLift.DescribeRuntimeConfiguration
(
describeRuntimeConfiguration
, DescribeRuntimeConfiguration
, drcFleetId
, describeRuntimeConfigurationResponse
, DescribeRuntimeConfigurationResponse
, drcrsRuntimeConfiguration
, drcrsResponseStatus
) where
import Network.AWS.GameLift.Types
import Network.AWS.GameLift.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DescribeRuntimeConfiguration = DescribeRuntimeConfiguration'
{ _drcFleetId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeRuntimeConfiguration
:: Text
-> DescribeRuntimeConfiguration
describeRuntimeConfiguration pFleetId_ =
DescribeRuntimeConfiguration'
{ _drcFleetId = pFleetId_
}
drcFleetId :: Lens' DescribeRuntimeConfiguration Text
drcFleetId = lens _drcFleetId (\ s a -> s{_drcFleetId = a});
instance AWSRequest DescribeRuntimeConfiguration
where
type Rs DescribeRuntimeConfiguration =
DescribeRuntimeConfigurationResponse
request = postJSON gameLift
response
= receiveJSON
(\ s h x ->
DescribeRuntimeConfigurationResponse' <$>
(x .?> "RuntimeConfiguration") <*>
(pure (fromEnum s)))
instance Hashable DescribeRuntimeConfiguration
instance NFData DescribeRuntimeConfiguration
instance ToHeaders DescribeRuntimeConfiguration where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("GameLift.DescribeRuntimeConfiguration" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeRuntimeConfiguration where
toJSON DescribeRuntimeConfiguration'{..}
= object
(catMaybes [Just ("FleetId" .= _drcFleetId)])
instance ToPath DescribeRuntimeConfiguration where
toPath = const "/"
instance ToQuery DescribeRuntimeConfiguration where
toQuery = const mempty
data DescribeRuntimeConfigurationResponse = DescribeRuntimeConfigurationResponse'
{ _drcrsRuntimeConfiguration :: !(Maybe RuntimeConfiguration)
, _drcrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeRuntimeConfigurationResponse
:: Int
-> DescribeRuntimeConfigurationResponse
describeRuntimeConfigurationResponse pResponseStatus_ =
DescribeRuntimeConfigurationResponse'
{ _drcrsRuntimeConfiguration = Nothing
, _drcrsResponseStatus = pResponseStatus_
}
drcrsRuntimeConfiguration :: Lens' DescribeRuntimeConfigurationResponse (Maybe RuntimeConfiguration)
drcrsRuntimeConfiguration = lens _drcrsRuntimeConfiguration (\ s a -> s{_drcrsRuntimeConfiguration = a});
drcrsResponseStatus :: Lens' DescribeRuntimeConfigurationResponse Int
drcrsResponseStatus = lens _drcrsResponseStatus (\ s a -> s{_drcrsResponseStatus = a});
instance NFData DescribeRuntimeConfigurationResponse