{-# 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.DeleteFleet
(
deleteFleet
, DeleteFleet
, dfFleetId
, deleteFleetResponse
, DeleteFleetResponse
) 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 DeleteFleet = DeleteFleet'
{ _dfFleetId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteFleet
:: Text
-> DeleteFleet
deleteFleet pFleetId_ =
DeleteFleet'
{ _dfFleetId = pFleetId_
}
dfFleetId :: Lens' DeleteFleet Text
dfFleetId = lens _dfFleetId (\ s a -> s{_dfFleetId = a});
instance AWSRequest DeleteFleet where
type Rs DeleteFleet = DeleteFleetResponse
request = postJSON gameLift
response = receiveNull DeleteFleetResponse'
instance Hashable DeleteFleet
instance NFData DeleteFleet
instance ToHeaders DeleteFleet where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("GameLift.DeleteFleet" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteFleet where
toJSON DeleteFleet'{..}
= object (catMaybes [Just ("FleetId" .= _dfFleetId)])
instance ToPath DeleteFleet where
toPath = const "/"
instance ToQuery DeleteFleet where
toQuery = const mempty
data DeleteFleetResponse =
DeleteFleetResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteFleetResponse
:: DeleteFleetResponse
deleteFleetResponse = DeleteFleetResponse'
instance NFData DeleteFleetResponse