{-# 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.OpsWorksCM.DeleteServer
(
deleteServer
, DeleteServer
, dsServerName
, deleteServerResponse
, DeleteServerResponse
, dsrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.OpsWorksCM.Types
import Network.AWS.OpsWorksCM.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteServer = DeleteServer'
{ _dsServerName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteServer
:: Text
-> DeleteServer
deleteServer pServerName_ = DeleteServer' {_dsServerName = pServerName_}
dsServerName :: Lens' DeleteServer Text
dsServerName = lens _dsServerName (\ s a -> s{_dsServerName = a})
instance AWSRequest DeleteServer where
type Rs DeleteServer = DeleteServerResponse
request = postJSON opsWorksCM
response
= receiveEmpty
(\ s h x ->
DeleteServerResponse' <$> (pure (fromEnum s)))
instance Hashable DeleteServer where
instance NFData DeleteServer where
instance ToHeaders DeleteServer where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OpsWorksCM_V2016_11_01.DeleteServer" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteServer where
toJSON DeleteServer'{..}
= object
(catMaybes [Just ("ServerName" .= _dsServerName)])
instance ToPath DeleteServer where
toPath = const "/"
instance ToQuery DeleteServer where
toQuery = const mempty
newtype DeleteServerResponse = DeleteServerResponse'
{ _dsrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteServerResponse
:: Int
-> DeleteServerResponse
deleteServerResponse pResponseStatus_ =
DeleteServerResponse' {_dsrsResponseStatus = pResponseStatus_}
dsrsResponseStatus :: Lens' DeleteServerResponse Int
dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a})
instance NFData DeleteServerResponse where