{-# 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.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 where
instance NFData DescribeAlias where
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 where