{-# 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.Pinpoint.DeleteADMChannel
(
deleteADMChannel
, DeleteADMChannel
, dadmcApplicationId
, deleteADMChannelResponse
, DeleteADMChannelResponse
, dadmcrsResponseStatus
, dadmcrsADMChannelResponse
) where
import Network.AWS.Lens
import Network.AWS.Pinpoint.Types
import Network.AWS.Pinpoint.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteADMChannel = DeleteADMChannel'
{ _dadmcApplicationId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteADMChannel
:: Text
-> DeleteADMChannel
deleteADMChannel pApplicationId_ =
DeleteADMChannel' {_dadmcApplicationId = pApplicationId_}
dadmcApplicationId :: Lens' DeleteADMChannel Text
dadmcApplicationId = lens _dadmcApplicationId (\ s a -> s{_dadmcApplicationId = a})
instance AWSRequest DeleteADMChannel where
type Rs DeleteADMChannel = DeleteADMChannelResponse
request = delete pinpoint
response
= receiveJSON
(\ s h x ->
DeleteADMChannelResponse' <$>
(pure (fromEnum s)) <*> (eitherParseJSON x))
instance Hashable DeleteADMChannel where
instance NFData DeleteADMChannel where
instance ToHeaders DeleteADMChannel where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DeleteADMChannel where
toPath DeleteADMChannel'{..}
= mconcat
["/v1/apps/", toBS _dadmcApplicationId,
"/channels/adm"]
instance ToQuery DeleteADMChannel where
toQuery = const mempty
data DeleteADMChannelResponse = DeleteADMChannelResponse'
{ _dadmcrsResponseStatus :: !Int
, _dadmcrsADMChannelResponse :: !ADMChannelResponse
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteADMChannelResponse
:: Int
-> ADMChannelResponse
-> DeleteADMChannelResponse
deleteADMChannelResponse pResponseStatus_ pADMChannelResponse_ =
DeleteADMChannelResponse'
{ _dadmcrsResponseStatus = pResponseStatus_
, _dadmcrsADMChannelResponse = pADMChannelResponse_
}
dadmcrsResponseStatus :: Lens' DeleteADMChannelResponse Int
dadmcrsResponseStatus = lens _dadmcrsResponseStatus (\ s a -> s{_dadmcrsResponseStatus = a})
dadmcrsADMChannelResponse :: Lens' DeleteADMChannelResponse ADMChannelResponse
dadmcrsADMChannelResponse = lens _dadmcrsADMChannelResponse (\ s a -> s{_dadmcrsADMChannelResponse = a})
instance NFData DeleteADMChannelResponse where