module Network.AWS.Pinpoint.UpdateBaiduChannel
(
updateBaiduChannel
, UpdateBaiduChannel
, ubcApplicationId
, ubcBaiduChannelRequest
, updateBaiduChannelResponse
, UpdateBaiduChannelResponse
, ubcrsResponseStatus
, ubcrsBaiduChannelResponse
) 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
data UpdateBaiduChannel = UpdateBaiduChannel'
{ _ubcApplicationId :: !Text
, _ubcBaiduChannelRequest :: !BaiduChannelRequest
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateBaiduChannel
:: Text
-> BaiduChannelRequest
-> UpdateBaiduChannel
updateBaiduChannel pApplicationId_ pBaiduChannelRequest_ =
UpdateBaiduChannel'
{ _ubcApplicationId = pApplicationId_
, _ubcBaiduChannelRequest = pBaiduChannelRequest_
}
ubcApplicationId :: Lens' UpdateBaiduChannel Text
ubcApplicationId = lens _ubcApplicationId (\ s a -> s{_ubcApplicationId = a});
ubcBaiduChannelRequest :: Lens' UpdateBaiduChannel BaiduChannelRequest
ubcBaiduChannelRequest = lens _ubcBaiduChannelRequest (\ s a -> s{_ubcBaiduChannelRequest = a});
instance AWSRequest UpdateBaiduChannel where
type Rs UpdateBaiduChannel =
UpdateBaiduChannelResponse
request = putJSON pinpoint
response
= receiveJSON
(\ s h x ->
UpdateBaiduChannelResponse' <$>
(pure (fromEnum s)) <*> (eitherParseJSON x))
instance Hashable UpdateBaiduChannel where
instance NFData UpdateBaiduChannel where
instance ToHeaders UpdateBaiduChannel where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateBaiduChannel where
toJSON UpdateBaiduChannel'{..}
= object
(catMaybes
[Just
("BaiduChannelRequest" .= _ubcBaiduChannelRequest)])
instance ToPath UpdateBaiduChannel where
toPath UpdateBaiduChannel'{..}
= mconcat
["/v1/apps/", toBS _ubcApplicationId,
"/channels/baidu"]
instance ToQuery UpdateBaiduChannel where
toQuery = const mempty
data UpdateBaiduChannelResponse = UpdateBaiduChannelResponse'
{ _ubcrsResponseStatus :: !Int
, _ubcrsBaiduChannelResponse :: !BaiduChannelResponse
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateBaiduChannelResponse
:: Int
-> BaiduChannelResponse
-> UpdateBaiduChannelResponse
updateBaiduChannelResponse pResponseStatus_ pBaiduChannelResponse_ =
UpdateBaiduChannelResponse'
{ _ubcrsResponseStatus = pResponseStatus_
, _ubcrsBaiduChannelResponse = pBaiduChannelResponse_
}
ubcrsResponseStatus :: Lens' UpdateBaiduChannelResponse Int
ubcrsResponseStatus = lens _ubcrsResponseStatus (\ s a -> s{_ubcrsResponseStatus = a});
ubcrsBaiduChannelResponse :: Lens' UpdateBaiduChannelResponse BaiduChannelResponse
ubcrsBaiduChannelResponse = lens _ubcrsBaiduChannelResponse (\ s a -> s{_ubcrsBaiduChannelResponse = a});
instance NFData UpdateBaiduChannelResponse where