{-# 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.ElasticTranscoder.DeletePreset
(
deletePreset
, DeletePreset
, dpId
, deletePresetResponse
, DeletePresetResponse
, dprsResponseStatus
) where
import Network.AWS.ElasticTranscoder.Types
import Network.AWS.ElasticTranscoder.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeletePreset = DeletePreset'
{ _dpId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deletePreset
:: Text
-> DeletePreset
deletePreset pId_ = DeletePreset' {_dpId = pId_}
dpId :: Lens' DeletePreset Text
dpId = lens _dpId (\ s a -> s{_dpId = a})
instance AWSRequest DeletePreset where
type Rs DeletePreset = DeletePresetResponse
request = delete elasticTranscoder
response
= receiveEmpty
(\ s h x ->
DeletePresetResponse' <$> (pure (fromEnum s)))
instance Hashable DeletePreset where
instance NFData DeletePreset where
instance ToHeaders DeletePreset where
toHeaders = const mempty
instance ToPath DeletePreset where
toPath DeletePreset'{..}
= mconcat ["/2012-09-25/presets/", toBS _dpId]
instance ToQuery DeletePreset where
toQuery = const mempty
newtype DeletePresetResponse = DeletePresetResponse'
{ _dprsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deletePresetResponse
:: Int
-> DeletePresetResponse
deletePresetResponse pResponseStatus_ =
DeletePresetResponse' {_dprsResponseStatus = pResponseStatus_}
dprsResponseStatus :: Lens' DeletePresetResponse Int
dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a})
instance NFData DeletePresetResponse where