module Network.AWS.GameLift.DeleteMatchmakingConfiguration
(
deleteMatchmakingConfiguration
, DeleteMatchmakingConfiguration
, dmcName
, deleteMatchmakingConfigurationResponse
, DeleteMatchmakingConfigurationResponse
, dmcrsResponseStatus
) 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 DeleteMatchmakingConfiguration = DeleteMatchmakingConfiguration'
{ _dmcName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteMatchmakingConfiguration
:: Text
-> DeleteMatchmakingConfiguration
deleteMatchmakingConfiguration pName_ =
DeleteMatchmakingConfiguration' {_dmcName = pName_}
dmcName :: Lens' DeleteMatchmakingConfiguration Text
dmcName = lens _dmcName (\ s a -> s{_dmcName = a});
instance AWSRequest DeleteMatchmakingConfiguration
where
type Rs DeleteMatchmakingConfiguration =
DeleteMatchmakingConfigurationResponse
request = postJSON gameLift
response
= receiveEmpty
(\ s h x ->
DeleteMatchmakingConfigurationResponse' <$>
(pure (fromEnum s)))
instance Hashable DeleteMatchmakingConfiguration
where
instance NFData DeleteMatchmakingConfiguration where
instance ToHeaders DeleteMatchmakingConfiguration
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("GameLift.DeleteMatchmakingConfiguration" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteMatchmakingConfiguration where
toJSON DeleteMatchmakingConfiguration'{..}
= object (catMaybes [Just ("Name" .= _dmcName)])
instance ToPath DeleteMatchmakingConfiguration where
toPath = const "/"
instance ToQuery DeleteMatchmakingConfiguration where
toQuery = const mempty
newtype DeleteMatchmakingConfigurationResponse = DeleteMatchmakingConfigurationResponse'
{ _dmcrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteMatchmakingConfigurationResponse
:: Int
-> DeleteMatchmakingConfigurationResponse
deleteMatchmakingConfigurationResponse pResponseStatus_ =
DeleteMatchmakingConfigurationResponse'
{_dmcrsResponseStatus = pResponseStatus_}
dmcrsResponseStatus :: Lens' DeleteMatchmakingConfigurationResponse Int
dmcrsResponseStatus = lens _dmcrsResponseStatus (\ s a -> s{_dmcrsResponseStatus = a});
instance NFData
DeleteMatchmakingConfigurationResponse
where