{-# 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.MediaLive.DeleteInput
(
deleteInput
, DeleteInput
, diInputId
, deleteInputResponse
, DeleteInputResponse
, dirsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.MediaLive.Types
import Network.AWS.MediaLive.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteInput = DeleteInput'
{ _diInputId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteInput
:: Text
-> DeleteInput
deleteInput pInputId_ = DeleteInput' {_diInputId = pInputId_}
diInputId :: Lens' DeleteInput Text
diInputId = lens _diInputId (\ s a -> s{_diInputId = a})
instance AWSRequest DeleteInput where
type Rs DeleteInput = DeleteInputResponse
request = delete mediaLive
response
= receiveEmpty
(\ s h x ->
DeleteInputResponse' <$> (pure (fromEnum s)))
instance Hashable DeleteInput where
instance NFData DeleteInput where
instance ToHeaders DeleteInput where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DeleteInput where
toPath DeleteInput'{..}
= mconcat ["/prod/inputs/", toBS _diInputId]
instance ToQuery DeleteInput where
toQuery = const mempty
newtype DeleteInputResponse = DeleteInputResponse'
{ _dirsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteInputResponse
:: Int
-> DeleteInputResponse
deleteInputResponse pResponseStatus_ =
DeleteInputResponse' {_dirsResponseStatus = pResponseStatus_}
dirsResponseStatus :: Lens' DeleteInputResponse Int
dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a})
instance NFData DeleteInputResponse where