{-# 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.OpsWorks.DeleteInstance
(
deleteInstance
, DeleteInstance
, diDeleteVolumes
, diDeleteElasticIP
, diInstanceId
, deleteInstanceResponse
, DeleteInstanceResponse
) where
import Network.AWS.Lens
import Network.AWS.OpsWorks.Types
import Network.AWS.OpsWorks.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DeleteInstance = DeleteInstance'
{ _diDeleteVolumes :: !(Maybe Bool)
, _diDeleteElasticIP :: !(Maybe Bool)
, _diInstanceId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteInstance
:: Text
-> DeleteInstance
deleteInstance pInstanceId_ =
DeleteInstance'
{ _diDeleteVolumes = Nothing
, _diDeleteElasticIP = Nothing
, _diInstanceId = pInstanceId_
}
diDeleteVolumes :: Lens' DeleteInstance (Maybe Bool)
diDeleteVolumes = lens _diDeleteVolumes (\ s a -> s{_diDeleteVolumes = a})
diDeleteElasticIP :: Lens' DeleteInstance (Maybe Bool)
diDeleteElasticIP = lens _diDeleteElasticIP (\ s a -> s{_diDeleteElasticIP = a})
diInstanceId :: Lens' DeleteInstance Text
diInstanceId = lens _diInstanceId (\ s a -> s{_diInstanceId = a})
instance AWSRequest DeleteInstance where
type Rs DeleteInstance = DeleteInstanceResponse
request = postJSON opsWorks
response = receiveNull DeleteInstanceResponse'
instance Hashable DeleteInstance where
instance NFData DeleteInstance where
instance ToHeaders DeleteInstance where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OpsWorks_20130218.DeleteInstance" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteInstance where
toJSON DeleteInstance'{..}
= object
(catMaybes
[("DeleteVolumes" .=) <$> _diDeleteVolumes,
("DeleteElasticIp" .=) <$> _diDeleteElasticIP,
Just ("InstanceId" .= _diInstanceId)])
instance ToPath DeleteInstance where
toPath = const "/"
instance ToQuery DeleteInstance where
toQuery = const mempty
data DeleteInstanceResponse =
DeleteInstanceResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteInstanceResponse
:: DeleteInstanceResponse
deleteInstanceResponse = DeleteInstanceResponse'
instance NFData DeleteInstanceResponse where