{-# 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.StepFunctions.DeleteActivity
(
deleteActivity
, DeleteActivity
, daActivityARN
, deleteActivityResponse
, DeleteActivityResponse
, darsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.StepFunctions.Types
import Network.AWS.StepFunctions.Types.Product
newtype DeleteActivity = DeleteActivity'
{ _daActivityARN :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteActivity
:: Text
-> DeleteActivity
deleteActivity pActivityARN_ = DeleteActivity' {_daActivityARN = pActivityARN_}
daActivityARN :: Lens' DeleteActivity Text
daActivityARN = lens _daActivityARN (\ s a -> s{_daActivityARN = a})
instance AWSRequest DeleteActivity where
type Rs DeleteActivity = DeleteActivityResponse
request = postJSON stepFunctions
response
= receiveEmpty
(\ s h x ->
DeleteActivityResponse' <$> (pure (fromEnum s)))
instance Hashable DeleteActivity where
instance NFData DeleteActivity where
instance ToHeaders DeleteActivity where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSStepFunctions.DeleteActivity" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.0" :: ByteString)])
instance ToJSON DeleteActivity where
toJSON DeleteActivity'{..}
= object
(catMaybes [Just ("activityArn" .= _daActivityARN)])
instance ToPath DeleteActivity where
toPath = const "/"
instance ToQuery DeleteActivity where
toQuery = const mempty
newtype DeleteActivityResponse = DeleteActivityResponse'
{ _darsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteActivityResponse
:: Int
-> DeleteActivityResponse
deleteActivityResponse pResponseStatus_ =
DeleteActivityResponse' {_darsResponseStatus = pResponseStatus_}
darsResponseStatus :: Lens' DeleteActivityResponse Int
darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a})
instance NFData DeleteActivityResponse where