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