module Network.AWS.Lambda.DeleteEventSourceMapping
(
DeleteEventSourceMapping
, deleteEventSourceMapping
, desmUUID
, DeleteEventSourceMappingResponse
, deleteEventSourceMappingResponse
, desmrBatchSize
, desmrEventSourceArn
, desmrFunctionArn
, desmrLastModified
, desmrLastProcessingResult
, desmrState
, desmrStateTransitionReason
, desmrUUID
) where
import Network.AWS.Data (Object)
import Network.AWS.Prelude
import Network.AWS.Request.RestJSON
import Network.AWS.Lambda.Types
import qualified GHC.Exts
newtype DeleteEventSourceMapping = DeleteEventSourceMapping
{ _desmUUID :: Text
} deriving (Eq, Ord, Read, Show, Monoid, IsString)
deleteEventSourceMapping :: Text
-> DeleteEventSourceMapping
deleteEventSourceMapping p1 = DeleteEventSourceMapping
{ _desmUUID = p1
}
desmUUID :: Lens' DeleteEventSourceMapping Text
desmUUID = lens _desmUUID (\s a -> s { _desmUUID = a })
data DeleteEventSourceMappingResponse = DeleteEventSourceMappingResponse
{ _desmrBatchSize :: Maybe Nat
, _desmrEventSourceArn :: Maybe Text
, _desmrFunctionArn :: Maybe Text
, _desmrLastModified :: Maybe POSIX
, _desmrLastProcessingResult :: Maybe Text
, _desmrState :: Maybe Text
, _desmrStateTransitionReason :: Maybe Text
, _desmrUUID :: Maybe Text
} deriving (Eq, Ord, Read, Show)
deleteEventSourceMappingResponse :: DeleteEventSourceMappingResponse
deleteEventSourceMappingResponse = DeleteEventSourceMappingResponse
{ _desmrUUID = Nothing
, _desmrBatchSize = Nothing
, _desmrEventSourceArn = Nothing
, _desmrFunctionArn = Nothing
, _desmrLastModified = Nothing
, _desmrLastProcessingResult = Nothing
, _desmrState = Nothing
, _desmrStateTransitionReason = Nothing
}
desmrBatchSize :: Lens' DeleteEventSourceMappingResponse (Maybe Natural)
desmrBatchSize = lens _desmrBatchSize (\s a -> s { _desmrBatchSize = a }) . mapping _Nat
desmrEventSourceArn :: Lens' DeleteEventSourceMappingResponse (Maybe Text)
desmrEventSourceArn =
lens _desmrEventSourceArn (\s a -> s { _desmrEventSourceArn = a })
desmrFunctionArn :: Lens' DeleteEventSourceMappingResponse (Maybe Text)
desmrFunctionArn = lens _desmrFunctionArn (\s a -> s { _desmrFunctionArn = a })
desmrLastModified :: Lens' DeleteEventSourceMappingResponse (Maybe UTCTime)
desmrLastModified =
lens _desmrLastModified (\s a -> s { _desmrLastModified = a })
. mapping _Time
desmrLastProcessingResult :: Lens' DeleteEventSourceMappingResponse (Maybe Text)
desmrLastProcessingResult =
lens _desmrLastProcessingResult
(\s a -> s { _desmrLastProcessingResult = a })
desmrState :: Lens' DeleteEventSourceMappingResponse (Maybe Text)
desmrState = lens _desmrState (\s a -> s { _desmrState = a })
desmrStateTransitionReason :: Lens' DeleteEventSourceMappingResponse (Maybe Text)
desmrStateTransitionReason =
lens _desmrStateTransitionReason
(\s a -> s { _desmrStateTransitionReason = a })
desmrUUID :: Lens' DeleteEventSourceMappingResponse (Maybe Text)
desmrUUID = lens _desmrUUID (\s a -> s { _desmrUUID = a })
instance ToPath DeleteEventSourceMapping where
toPath DeleteEventSourceMapping{..} = mconcat
[ "/2015-03-31/event-source-mappings/"
, toText _desmUUID
]
instance ToQuery DeleteEventSourceMapping where
toQuery = const mempty
instance ToHeaders DeleteEventSourceMapping
instance ToJSON DeleteEventSourceMapping where
toJSON = const (toJSON Empty)
instance AWSRequest DeleteEventSourceMapping where
type Sv DeleteEventSourceMapping = Lambda
type Rs DeleteEventSourceMapping = DeleteEventSourceMappingResponse
request = delete
response = jsonResponse
instance FromJSON DeleteEventSourceMappingResponse where
parseJSON = withObject "DeleteEventSourceMappingResponse" $ \o -> DeleteEventSourceMappingResponse
<$> o .:? "BatchSize"
<*> o .:? "EventSourceArn"
<*> o .:? "FunctionArn"
<*> o .:? "LastModified"
<*> o .:? "LastProcessingResult"
<*> o .:? "State"
<*> o .:? "StateTransitionReason"
<*> o .:? "UUID"