module Network.AWS.Pinpoint.GetBaiduChannel
(
getBaiduChannel
, GetBaiduChannel
, gbcApplicationId
, getBaiduChannelResponse
, GetBaiduChannelResponse
, gbcrsResponseStatus
, gbcrsBaiduChannelResponse
) 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 GetBaiduChannel = GetBaiduChannel'
{ _gbcApplicationId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getBaiduChannel
:: Text
-> GetBaiduChannel
getBaiduChannel pApplicationId_ =
GetBaiduChannel' {_gbcApplicationId = pApplicationId_}
gbcApplicationId :: Lens' GetBaiduChannel Text
gbcApplicationId = lens _gbcApplicationId (\ s a -> s{_gbcApplicationId = a});
instance AWSRequest GetBaiduChannel where
type Rs GetBaiduChannel = GetBaiduChannelResponse
request = get pinpoint
response
= receiveJSON
(\ s h x ->
GetBaiduChannelResponse' <$>
(pure (fromEnum s)) <*> (eitherParseJSON x))
instance Hashable GetBaiduChannel where
instance NFData GetBaiduChannel where
instance ToHeaders GetBaiduChannel where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetBaiduChannel where
toPath GetBaiduChannel'{..}
= mconcat
["/v1/apps/", toBS _gbcApplicationId,
"/channels/baidu"]
instance ToQuery GetBaiduChannel where
toQuery = const mempty
data GetBaiduChannelResponse = GetBaiduChannelResponse'
{ _gbcrsResponseStatus :: !Int
, _gbcrsBaiduChannelResponse :: !BaiduChannelResponse
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getBaiduChannelResponse
:: Int
-> BaiduChannelResponse
-> GetBaiduChannelResponse
getBaiduChannelResponse pResponseStatus_ pBaiduChannelResponse_ =
GetBaiduChannelResponse'
{ _gbcrsResponseStatus = pResponseStatus_
, _gbcrsBaiduChannelResponse = pBaiduChannelResponse_
}
gbcrsResponseStatus :: Lens' GetBaiduChannelResponse Int
gbcrsResponseStatus = lens _gbcrsResponseStatus (\ s a -> s{_gbcrsResponseStatus = a});
gbcrsBaiduChannelResponse :: Lens' GetBaiduChannelResponse BaiduChannelResponse
gbcrsBaiduChannelResponse = lens _gbcrsBaiduChannelResponse (\ s a -> s{_gbcrsBaiduChannelResponse = a});
instance NFData GetBaiduChannelResponse where