{-# 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.GetSmsChannel
(
getSmsChannel
, GetSmsChannel
, gscApplicationId
, getSmsChannelResponse
, GetSmsChannelResponse
, gscrsResponseStatus
, gscrsSMSChannelResponse
) 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 GetSmsChannel = GetSmsChannel'
{ _gscApplicationId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getSmsChannel
:: Text
-> GetSmsChannel
getSmsChannel pApplicationId_ =
GetSmsChannel' {_gscApplicationId = pApplicationId_}
gscApplicationId :: Lens' GetSmsChannel Text
gscApplicationId = lens _gscApplicationId (\ s a -> s{_gscApplicationId = a})
instance AWSRequest GetSmsChannel where
type Rs GetSmsChannel = GetSmsChannelResponse
request = get pinpoint
response
= receiveJSON
(\ s h x ->
GetSmsChannelResponse' <$>
(pure (fromEnum s)) <*> (eitherParseJSON x))
instance Hashable GetSmsChannel where
instance NFData GetSmsChannel where
instance ToHeaders GetSmsChannel where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetSmsChannel where
toPath GetSmsChannel'{..}
= mconcat
["/v1/apps/", toBS _gscApplicationId,
"/channels/sms"]
instance ToQuery GetSmsChannel where
toQuery = const mempty
data GetSmsChannelResponse = GetSmsChannelResponse'
{ _gscrsResponseStatus :: !Int
, _gscrsSMSChannelResponse :: !SMSChannelResponse
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getSmsChannelResponse
:: Int
-> SMSChannelResponse
-> GetSmsChannelResponse
getSmsChannelResponse pResponseStatus_ pSMSChannelResponse_ =
GetSmsChannelResponse'
{ _gscrsResponseStatus = pResponseStatus_
, _gscrsSMSChannelResponse = pSMSChannelResponse_
}
gscrsResponseStatus :: Lens' GetSmsChannelResponse Int
gscrsResponseStatus = lens _gscrsResponseStatus (\ s a -> s{_gscrsResponseStatus = a})
gscrsSMSChannelResponse :: Lens' GetSmsChannelResponse SMSChannelResponse
gscrsSMSChannelResponse = lens _gscrsSMSChannelResponse (\ s a -> s{_gscrsSMSChannelResponse = a})
instance NFData GetSmsChannelResponse where