{-# 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.Lambda.DeleteEventSourceMapping
(
deleteEventSourceMapping
, DeleteEventSourceMapping
, desmUUId
, eventSourceMappingConfiguration
, EventSourceMappingConfiguration
, esmcEventSourceARN
, esmcState
, esmcFunctionARN
, esmcUUId
, esmcLastProcessingResult
, esmcBatchSize
, esmcStateTransitionReason
, esmcLastModified
) where
import Network.AWS.Lambda.Types
import Network.AWS.Lambda.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteEventSourceMapping = DeleteEventSourceMapping'
{ _desmUUId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteEventSourceMapping
:: Text
-> DeleteEventSourceMapping
deleteEventSourceMapping pUUId_ =
DeleteEventSourceMapping'
{ _desmUUId = pUUId_
}
desmUUId :: Lens' DeleteEventSourceMapping Text
desmUUId = lens _desmUUId (\ s a -> s{_desmUUId = a});
instance AWSRequest DeleteEventSourceMapping where
type Rs DeleteEventSourceMapping =
EventSourceMappingConfiguration
request = delete lambda
response = receiveJSON (\ s h x -> eitherParseJSON x)
instance Hashable DeleteEventSourceMapping
instance NFData DeleteEventSourceMapping
instance ToHeaders DeleteEventSourceMapping where
toHeaders = const mempty
instance ToPath DeleteEventSourceMapping where
toPath DeleteEventSourceMapping'{..}
= mconcat
["/2015-03-31/event-source-mappings/",
toBS _desmUUId]
instance ToQuery DeleteEventSourceMapping where
toQuery = const mempty