module Network.AWS.GameLift.DescribeAlias
(
describeAlias
, DescribeAlias
, dAliasId
, describeAliasResponse
, DescribeAliasResponse
, darsAlias
, darsResponseStatus
) 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 DescribeAlias = DescribeAlias'
{ _dAliasId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeAlias
:: Text
-> DescribeAlias
describeAlias pAliasId_ =
DescribeAlias'
{ _dAliasId = pAliasId_
}
dAliasId :: Lens' DescribeAlias Text
dAliasId = lens _dAliasId (\ s a -> s{_dAliasId = a});
instance AWSRequest DescribeAlias where
type Rs DescribeAlias = DescribeAliasResponse
request = postJSON gameLift
response
= receiveJSON
(\ s h x ->
DescribeAliasResponse' <$>
(x .?> "Alias") <*> (pure (fromEnum s)))
instance Hashable DescribeAlias
instance NFData DescribeAlias
instance ToHeaders DescribeAlias where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("GameLift.DescribeAlias" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeAlias where
toJSON DescribeAlias'{..}
= object (catMaybes [Just ("AliasId" .= _dAliasId)])
instance ToPath DescribeAlias where
toPath = const "/"
instance ToQuery DescribeAlias where
toQuery = const mempty
data DescribeAliasResponse = DescribeAliasResponse'
{ _darsAlias :: !(Maybe Alias)
, _darsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeAliasResponse
:: Int
-> DescribeAliasResponse
describeAliasResponse pResponseStatus_ =
DescribeAliasResponse'
{ _darsAlias = Nothing
, _darsResponseStatus = pResponseStatus_
}
darsAlias :: Lens' DescribeAliasResponse (Maybe Alias)
darsAlias = lens _darsAlias (\ s a -> s{_darsAlias = a});
darsResponseStatus :: Lens' DescribeAliasResponse Int
darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a});
instance NFData DescribeAliasResponse