module Network.AWS.GameLift.UpdateFleetPortSettings
(
updateFleetPortSettings
, UpdateFleetPortSettings
, ufpsInboundPermissionRevocations
, ufpsInboundPermissionAuthorizations
, ufpsFleetId
, updateFleetPortSettingsResponse
, UpdateFleetPortSettingsResponse
, ufpsrsFleetId
, ufpsrsResponseStatus
) 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
data UpdateFleetPortSettings = UpdateFleetPortSettings'
{ _ufpsInboundPermissionRevocations :: !(Maybe [IPPermission])
, _ufpsInboundPermissionAuthorizations :: !(Maybe [IPPermission])
, _ufpsFleetId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
updateFleetPortSettings
:: Text
-> UpdateFleetPortSettings
updateFleetPortSettings pFleetId_ =
UpdateFleetPortSettings'
{ _ufpsInboundPermissionRevocations = Nothing
, _ufpsInboundPermissionAuthorizations = Nothing
, _ufpsFleetId = pFleetId_
}
ufpsInboundPermissionRevocations :: Lens' UpdateFleetPortSettings [IPPermission]
ufpsInboundPermissionRevocations = lens _ufpsInboundPermissionRevocations (\ s a -> s{_ufpsInboundPermissionRevocations = a}) . _Default . _Coerce;
ufpsInboundPermissionAuthorizations :: Lens' UpdateFleetPortSettings [IPPermission]
ufpsInboundPermissionAuthorizations = lens _ufpsInboundPermissionAuthorizations (\ s a -> s{_ufpsInboundPermissionAuthorizations = a}) . _Default . _Coerce;
ufpsFleetId :: Lens' UpdateFleetPortSettings Text
ufpsFleetId = lens _ufpsFleetId (\ s a -> s{_ufpsFleetId = a});
instance AWSRequest UpdateFleetPortSettings where
type Rs UpdateFleetPortSettings =
UpdateFleetPortSettingsResponse
request = postJSON gameLift
response
= receiveJSON
(\ s h x ->
UpdateFleetPortSettingsResponse' <$>
(x .?> "FleetId") <*> (pure (fromEnum s)))
instance Hashable UpdateFleetPortSettings
instance NFData UpdateFleetPortSettings
instance ToHeaders UpdateFleetPortSettings where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("GameLift.UpdateFleetPortSettings" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateFleetPortSettings where
toJSON UpdateFleetPortSettings'{..}
= object
(catMaybes
[("InboundPermissionRevocations" .=) <$>
_ufpsInboundPermissionRevocations,
("InboundPermissionAuthorizations" .=) <$>
_ufpsInboundPermissionAuthorizations,
Just ("FleetId" .= _ufpsFleetId)])
instance ToPath UpdateFleetPortSettings where
toPath = const "/"
instance ToQuery UpdateFleetPortSettings where
toQuery = const mempty
data UpdateFleetPortSettingsResponse = UpdateFleetPortSettingsResponse'
{ _ufpsrsFleetId :: !(Maybe Text)
, _ufpsrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
updateFleetPortSettingsResponse
:: Int
-> UpdateFleetPortSettingsResponse
updateFleetPortSettingsResponse pResponseStatus_ =
UpdateFleetPortSettingsResponse'
{ _ufpsrsFleetId = Nothing
, _ufpsrsResponseStatus = pResponseStatus_
}
ufpsrsFleetId :: Lens' UpdateFleetPortSettingsResponse (Maybe Text)
ufpsrsFleetId = lens _ufpsrsFleetId (\ s a -> s{_ufpsrsFleetId = a});
ufpsrsResponseStatus :: Lens' UpdateFleetPortSettingsResponse Int
ufpsrsResponseStatus = lens _ufpsrsResponseStatus (\ s a -> s{_ufpsrsResponseStatus = a});
instance NFData UpdateFleetPortSettingsResponse