{-# 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.DeleteBaiduChannel
(
deleteBaiduChannel
, DeleteBaiduChannel
, dbcApplicationId
, deleteBaiduChannelResponse
, DeleteBaiduChannelResponse
, dbcrsResponseStatus
, dbcrsBaiduChannelResponse
) 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 DeleteBaiduChannel = DeleteBaiduChannel'
{ _dbcApplicationId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteBaiduChannel
:: Text
-> DeleteBaiduChannel
deleteBaiduChannel pApplicationId_ =
DeleteBaiduChannel' {_dbcApplicationId = pApplicationId_}
dbcApplicationId :: Lens' DeleteBaiduChannel Text
dbcApplicationId = lens _dbcApplicationId (\ s a -> s{_dbcApplicationId = a})
instance AWSRequest DeleteBaiduChannel where
type Rs DeleteBaiduChannel =
DeleteBaiduChannelResponse
request = delete pinpoint
response
= receiveJSON
(\ s h x ->
DeleteBaiduChannelResponse' <$>
(pure (fromEnum s)) <*> (eitherParseJSON x))
instance Hashable DeleteBaiduChannel where
instance NFData DeleteBaiduChannel where
instance ToHeaders DeleteBaiduChannel where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DeleteBaiduChannel where
toPath DeleteBaiduChannel'{..}
= mconcat
["/v1/apps/", toBS _dbcApplicationId,
"/channels/baidu"]
instance ToQuery DeleteBaiduChannel where
toQuery = const mempty
data DeleteBaiduChannelResponse = DeleteBaiduChannelResponse'
{ _dbcrsResponseStatus :: !Int
, _dbcrsBaiduChannelResponse :: !BaiduChannelResponse
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteBaiduChannelResponse
:: Int
-> BaiduChannelResponse
-> DeleteBaiduChannelResponse
deleteBaiduChannelResponse pResponseStatus_ pBaiduChannelResponse_ =
DeleteBaiduChannelResponse'
{ _dbcrsResponseStatus = pResponseStatus_
, _dbcrsBaiduChannelResponse = pBaiduChannelResponse_
}
dbcrsResponseStatus :: Lens' DeleteBaiduChannelResponse Int
dbcrsResponseStatus = lens _dbcrsResponseStatus (\ s a -> s{_dbcrsResponseStatus = a})
dbcrsBaiduChannelResponse :: Lens' DeleteBaiduChannelResponse BaiduChannelResponse
dbcrsBaiduChannelResponse = lens _dbcrsBaiduChannelResponse (\ s a -> s{_dbcrsBaiduChannelResponse = a})
instance NFData DeleteBaiduChannelResponse where