module Network.AWS.AutoScaling.DeleteLifecycleHook
(
DeleteLifecycleHook
, deleteLifecycleHook
, dlh1AutoScalingGroupName
, dlh1LifecycleHookName
, DeleteLifecycleHookResponse
, deleteLifecycleHookResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.AutoScaling.Types
import qualified GHC.Exts
data DeleteLifecycleHook = DeleteLifecycleHook
{ _dlh1AutoScalingGroupName :: Text
, _dlh1LifecycleHookName :: Text
} deriving (Eq, Ord, Show)
deleteLifecycleHook :: Text
-> Text
-> DeleteLifecycleHook
deleteLifecycleHook p1 p2 = DeleteLifecycleHook
{ _dlh1LifecycleHookName = p1
, _dlh1AutoScalingGroupName = p2
}
dlh1AutoScalingGroupName :: Lens' DeleteLifecycleHook Text
dlh1AutoScalingGroupName =
lens _dlh1AutoScalingGroupName
(\s a -> s { _dlh1AutoScalingGroupName = a })
dlh1LifecycleHookName :: Lens' DeleteLifecycleHook Text
dlh1LifecycleHookName =
lens _dlh1LifecycleHookName (\s a -> s { _dlh1LifecycleHookName = a })
data DeleteLifecycleHookResponse = DeleteLifecycleHookResponse
deriving (Eq, Ord, Show, Generic)
deleteLifecycleHookResponse :: DeleteLifecycleHookResponse
deleteLifecycleHookResponse = DeleteLifecycleHookResponse
instance ToPath DeleteLifecycleHook where
toPath = const "/"
instance ToQuery DeleteLifecycleHook where
toQuery DeleteLifecycleHook{..} = mconcat
[ "AutoScalingGroupName" =? _dlh1AutoScalingGroupName
, "LifecycleHookName" =? _dlh1LifecycleHookName
]
instance ToHeaders DeleteLifecycleHook
instance AWSRequest DeleteLifecycleHook where
type Sv DeleteLifecycleHook = AutoScaling
type Rs DeleteLifecycleHook = DeleteLifecycleHookResponse
request = post "DeleteLifecycleHook"
response = nullResponse DeleteLifecycleHookResponse