{-# 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.DescribeVPCPeeringConnections
(
describeVPCPeeringConnections
, DescribeVPCPeeringConnections
, dvpcpcFleetId
, describeVPCPeeringConnectionsResponse
, DescribeVPCPeeringConnectionsResponse
, dvpcpcrsVPCPeeringConnections
, dvpcpcrsResponseStatus
) 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 DescribeVPCPeeringConnections = DescribeVPCPeeringConnections'
{ _dvpcpcFleetId :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeVPCPeeringConnections
:: DescribeVPCPeeringConnections
describeVPCPeeringConnections =
DescribeVPCPeeringConnections' {_dvpcpcFleetId = Nothing}
dvpcpcFleetId :: Lens' DescribeVPCPeeringConnections (Maybe Text)
dvpcpcFleetId = lens _dvpcpcFleetId (\ s a -> s{_dvpcpcFleetId = a})
instance AWSRequest DescribeVPCPeeringConnections
where
type Rs DescribeVPCPeeringConnections =
DescribeVPCPeeringConnectionsResponse
request = postJSON gameLift
response
= receiveJSON
(\ s h x ->
DescribeVPCPeeringConnectionsResponse' <$>
(x .?> "VpcPeeringConnections" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable DescribeVPCPeeringConnections where
instance NFData DescribeVPCPeeringConnections where
instance ToHeaders DescribeVPCPeeringConnections
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("GameLift.DescribeVpcPeeringConnections" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeVPCPeeringConnections where
toJSON DescribeVPCPeeringConnections'{..}
= object
(catMaybes [("FleetId" .=) <$> _dvpcpcFleetId])
instance ToPath DescribeVPCPeeringConnections where
toPath = const "/"
instance ToQuery DescribeVPCPeeringConnections where
toQuery = const mempty
data DescribeVPCPeeringConnectionsResponse = DescribeVPCPeeringConnectionsResponse'
{ _dvpcpcrsVPCPeeringConnections :: !(Maybe [VPCPeeringConnection])
, _dvpcpcrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeVPCPeeringConnectionsResponse
:: Int
-> DescribeVPCPeeringConnectionsResponse
describeVPCPeeringConnectionsResponse pResponseStatus_ =
DescribeVPCPeeringConnectionsResponse'
{ _dvpcpcrsVPCPeeringConnections = Nothing
, _dvpcpcrsResponseStatus = pResponseStatus_
}
dvpcpcrsVPCPeeringConnections :: Lens' DescribeVPCPeeringConnectionsResponse [VPCPeeringConnection]
dvpcpcrsVPCPeeringConnections = lens _dvpcpcrsVPCPeeringConnections (\ s a -> s{_dvpcpcrsVPCPeeringConnections = a}) . _Default . _Coerce
dvpcpcrsResponseStatus :: Lens' DescribeVPCPeeringConnectionsResponse Int
dvpcpcrsResponseStatus = lens _dvpcpcrsResponseStatus (\ s a -> s{_dvpcpcrsResponseStatus = a})
instance NFData DescribeVPCPeeringConnectionsResponse
where