{-# 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.GetADMChannel
(
getADMChannel
, GetADMChannel
, gadmcApplicationId
, getADMChannelResponse
, GetADMChannelResponse
, gadmcrsResponseStatus
, gadmcrsADMChannelResponse
) 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 GetADMChannel = GetADMChannel'
{ _gadmcApplicationId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getADMChannel
:: Text
-> GetADMChannel
getADMChannel pApplicationId_ =
GetADMChannel' {_gadmcApplicationId = pApplicationId_}
gadmcApplicationId :: Lens' GetADMChannel Text
gadmcApplicationId = lens _gadmcApplicationId (\ s a -> s{_gadmcApplicationId = a})
instance AWSRequest GetADMChannel where
type Rs GetADMChannel = GetADMChannelResponse
request = get pinpoint
response
= receiveJSON
(\ s h x ->
GetADMChannelResponse' <$>
(pure (fromEnum s)) <*> (eitherParseJSON x))
instance Hashable GetADMChannel where
instance NFData GetADMChannel where
instance ToHeaders GetADMChannel where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetADMChannel where
toPath GetADMChannel'{..}
= mconcat
["/v1/apps/", toBS _gadmcApplicationId,
"/channels/adm"]
instance ToQuery GetADMChannel where
toQuery = const mempty
data GetADMChannelResponse = GetADMChannelResponse'
{ _gadmcrsResponseStatus :: !Int
, _gadmcrsADMChannelResponse :: !ADMChannelResponse
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getADMChannelResponse
:: Int
-> ADMChannelResponse
-> GetADMChannelResponse
getADMChannelResponse pResponseStatus_ pADMChannelResponse_ =
GetADMChannelResponse'
{ _gadmcrsResponseStatus = pResponseStatus_
, _gadmcrsADMChannelResponse = pADMChannelResponse_
}
gadmcrsResponseStatus :: Lens' GetADMChannelResponse Int
gadmcrsResponseStatus = lens _gadmcrsResponseStatus (\ s a -> s{_gadmcrsResponseStatus = a})
gadmcrsADMChannelResponse :: Lens' GetADMChannelResponse ADMChannelResponse
gadmcrsADMChannelResponse = lens _gadmcrsADMChannelResponse (\ s a -> s{_gadmcrsADMChannelResponse = a})
instance NFData GetADMChannelResponse where