{-# 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.MediaPackage.DeleteOriginEndpoint
(
deleteOriginEndpoint
, DeleteOriginEndpoint
, delId
, deleteOriginEndpointResponse
, DeleteOriginEndpointResponse
, doersResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.MediaPackage.Types
import Network.AWS.MediaPackage.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteOriginEndpoint = DeleteOriginEndpoint'
{ _delId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteOriginEndpoint
:: Text
-> DeleteOriginEndpoint
deleteOriginEndpoint pId_ = DeleteOriginEndpoint' {_delId = pId_}
delId :: Lens' DeleteOriginEndpoint Text
delId = lens _delId (\ s a -> s{_delId = a})
instance AWSRequest DeleteOriginEndpoint where
type Rs DeleteOriginEndpoint =
DeleteOriginEndpointResponse
request = delete mediaPackage
response
= receiveEmpty
(\ s h x ->
DeleteOriginEndpointResponse' <$>
(pure (fromEnum s)))
instance Hashable DeleteOriginEndpoint where
instance NFData DeleteOriginEndpoint where
instance ToHeaders DeleteOriginEndpoint where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DeleteOriginEndpoint where
toPath DeleteOriginEndpoint'{..}
= mconcat ["/origin_endpoints/", toBS _delId]
instance ToQuery DeleteOriginEndpoint where
toQuery = const mempty
newtype DeleteOriginEndpointResponse = DeleteOriginEndpointResponse'
{ _doersResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteOriginEndpointResponse
:: Int
-> DeleteOriginEndpointResponse
deleteOriginEndpointResponse pResponseStatus_ =
DeleteOriginEndpointResponse' {_doersResponseStatus = pResponseStatus_}
doersResponseStatus :: Lens' DeleteOriginEndpointResponse Int
doersResponseStatus = lens _doersResponseStatus (\ s a -> s{_doersResponseStatus = a})
instance NFData DeleteOriginEndpointResponse where