{-# 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.MediaConvert.DeletePreset
(
deletePreset
, DeletePreset
, dpName
, deletePresetResponse
, DeletePresetResponse
, dprsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.MediaConvert.Types
import Network.AWS.MediaConvert.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeletePreset = DeletePreset'
{ _dpName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deletePreset
:: Text
-> DeletePreset
deletePreset pName_ = DeletePreset' {_dpName = pName_}
dpName :: Lens' DeletePreset Text
dpName = lens _dpName (\ s a -> s{_dpName = a})
instance AWSRequest DeletePreset where
type Rs DeletePreset = DeletePresetResponse
request = delete mediaConvert
response
= receiveEmpty
(\ s h x ->
DeletePresetResponse' <$> (pure (fromEnum s)))
instance Hashable DeletePreset where
instance NFData DeletePreset where
instance ToHeaders DeletePreset where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DeletePreset where
toPath DeletePreset'{..}
= mconcat ["/2017-08-29/presets/", toBS _dpName]
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