{-# 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.DescribeGameSessionPlacement
(
describeGameSessionPlacement
, DescribeGameSessionPlacement
, dgspPlacementId
, describeGameSessionPlacementResponse
, DescribeGameSessionPlacementResponse
, dgsprsGameSessionPlacement
, dgsprsResponseStatus
) 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 DescribeGameSessionPlacement = DescribeGameSessionPlacement'
{ _dgspPlacementId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeGameSessionPlacement
:: Text
-> DescribeGameSessionPlacement
describeGameSessionPlacement pPlacementId_ =
DescribeGameSessionPlacement' {_dgspPlacementId = pPlacementId_}
dgspPlacementId :: Lens' DescribeGameSessionPlacement Text
dgspPlacementId = lens _dgspPlacementId (\ s a -> s{_dgspPlacementId = a})
instance AWSRequest DescribeGameSessionPlacement
where
type Rs DescribeGameSessionPlacement =
DescribeGameSessionPlacementResponse
request = postJSON gameLift
response
= receiveJSON
(\ s h x ->
DescribeGameSessionPlacementResponse' <$>
(x .?> "GameSessionPlacement") <*>
(pure (fromEnum s)))
instance Hashable DescribeGameSessionPlacement where
instance NFData DescribeGameSessionPlacement where
instance ToHeaders DescribeGameSessionPlacement where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("GameLift.DescribeGameSessionPlacement" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeGameSessionPlacement where
toJSON DescribeGameSessionPlacement'{..}
= object
(catMaybes
[Just ("PlacementId" .= _dgspPlacementId)])
instance ToPath DescribeGameSessionPlacement where
toPath = const "/"
instance ToQuery DescribeGameSessionPlacement where
toQuery = const mempty
data DescribeGameSessionPlacementResponse = DescribeGameSessionPlacementResponse'
{ _dgsprsGameSessionPlacement :: !(Maybe GameSessionPlacement)
, _dgsprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeGameSessionPlacementResponse
:: Int
-> DescribeGameSessionPlacementResponse
describeGameSessionPlacementResponse pResponseStatus_ =
DescribeGameSessionPlacementResponse'
{ _dgsprsGameSessionPlacement = Nothing
, _dgsprsResponseStatus = pResponseStatus_
}
dgsprsGameSessionPlacement :: Lens' DescribeGameSessionPlacementResponse (Maybe GameSessionPlacement)
dgsprsGameSessionPlacement = lens _dgsprsGameSessionPlacement (\ s a -> s{_dgsprsGameSessionPlacement = a})
dgsprsResponseStatus :: Lens' DescribeGameSessionPlacementResponse Int
dgsprsResponseStatus = lens _dgsprsResponseStatus (\ s a -> s{_dgsprsResponseStatus = a})
instance NFData DescribeGameSessionPlacementResponse
where