{-# 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.GetAPNSVoipSandboxChannel
(
getAPNSVoipSandboxChannel
, GetAPNSVoipSandboxChannel
, gavscApplicationId
, getAPNSVoipSandboxChannelResponse
, GetAPNSVoipSandboxChannelResponse
, gavscrsResponseStatus
, gavscrsAPNSVoipSandboxChannelResponse
) 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 GetAPNSVoipSandboxChannel = GetAPNSVoipSandboxChannel'
{ _gavscApplicationId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getAPNSVoipSandboxChannel
:: Text
-> GetAPNSVoipSandboxChannel
getAPNSVoipSandboxChannel pApplicationId_ =
GetAPNSVoipSandboxChannel' {_gavscApplicationId = pApplicationId_}
gavscApplicationId :: Lens' GetAPNSVoipSandboxChannel Text
gavscApplicationId = lens _gavscApplicationId (\ s a -> s{_gavscApplicationId = a})
instance AWSRequest GetAPNSVoipSandboxChannel where
type Rs GetAPNSVoipSandboxChannel =
GetAPNSVoipSandboxChannelResponse
request = get pinpoint
response
= receiveJSON
(\ s h x ->
GetAPNSVoipSandboxChannelResponse' <$>
(pure (fromEnum s)) <*> (eitherParseJSON x))
instance Hashable GetAPNSVoipSandboxChannel where
instance NFData GetAPNSVoipSandboxChannel where
instance ToHeaders GetAPNSVoipSandboxChannel where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetAPNSVoipSandboxChannel where
toPath GetAPNSVoipSandboxChannel'{..}
= mconcat
["/v1/apps/", toBS _gavscApplicationId,
"/channels/apns_voip_sandbox"]
instance ToQuery GetAPNSVoipSandboxChannel where
toQuery = const mempty
data GetAPNSVoipSandboxChannelResponse = GetAPNSVoipSandboxChannelResponse'
{ _gavscrsResponseStatus :: !Int
, _gavscrsAPNSVoipSandboxChannelResponse :: !APNSVoipSandboxChannelResponse
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getAPNSVoipSandboxChannelResponse
:: Int
-> APNSVoipSandboxChannelResponse
-> GetAPNSVoipSandboxChannelResponse
getAPNSVoipSandboxChannelResponse pResponseStatus_ pAPNSVoipSandboxChannelResponse_ =
GetAPNSVoipSandboxChannelResponse'
{ _gavscrsResponseStatus = pResponseStatus_
, _gavscrsAPNSVoipSandboxChannelResponse = pAPNSVoipSandboxChannelResponse_
}
gavscrsResponseStatus :: Lens' GetAPNSVoipSandboxChannelResponse Int
gavscrsResponseStatus = lens _gavscrsResponseStatus (\ s a -> s{_gavscrsResponseStatus = a})
gavscrsAPNSVoipSandboxChannelResponse :: Lens' GetAPNSVoipSandboxChannelResponse APNSVoipSandboxChannelResponse
gavscrsAPNSVoipSandboxChannelResponse = lens _gavscrsAPNSVoipSandboxChannelResponse (\ s a -> s{_gavscrsAPNSVoipSandboxChannelResponse = a})
instance NFData GetAPNSVoipSandboxChannelResponse
where