{-# 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.GetCampaignActivities
(
getCampaignActivities
, GetCampaignActivities
, gcaToken
, gcaPageSize
, gcaApplicationId
, gcaCampaignId
, getCampaignActivitiesResponse
, GetCampaignActivitiesResponse
, gcarsResponseStatus
, gcarsActivitiesResponse
) 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 GetCampaignActivities = GetCampaignActivities'
{ _gcaToken :: !(Maybe Text)
, _gcaPageSize :: !(Maybe Text)
, _gcaApplicationId :: !Text
, _gcaCampaignId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getCampaignActivities
:: Text
-> Text
-> GetCampaignActivities
getCampaignActivities pApplicationId_ pCampaignId_ =
GetCampaignActivities'
{ _gcaToken = Nothing
, _gcaPageSize = Nothing
, _gcaApplicationId = pApplicationId_
, _gcaCampaignId = pCampaignId_
}
gcaToken :: Lens' GetCampaignActivities (Maybe Text)
gcaToken = lens _gcaToken (\ s a -> s{_gcaToken = a});
gcaPageSize :: Lens' GetCampaignActivities (Maybe Text)
gcaPageSize = lens _gcaPageSize (\ s a -> s{_gcaPageSize = a});
gcaApplicationId :: Lens' GetCampaignActivities Text
gcaApplicationId = lens _gcaApplicationId (\ s a -> s{_gcaApplicationId = a});
gcaCampaignId :: Lens' GetCampaignActivities Text
gcaCampaignId = lens _gcaCampaignId (\ s a -> s{_gcaCampaignId = a});
instance AWSRequest GetCampaignActivities where
type Rs GetCampaignActivities =
GetCampaignActivitiesResponse
request = get pinpoint
response
= receiveJSON
(\ s h x ->
GetCampaignActivitiesResponse' <$>
(pure (fromEnum s)) <*> (eitherParseJSON x))
instance Hashable GetCampaignActivities
instance NFData GetCampaignActivities
instance ToHeaders GetCampaignActivities where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetCampaignActivities where
toPath GetCampaignActivities'{..}
= mconcat
["/v1/apps/", toBS _gcaApplicationId, "/campaigns/",
toBS _gcaCampaignId, "/activities"]
instance ToQuery GetCampaignActivities where
toQuery GetCampaignActivities'{..}
= mconcat
["token" =: _gcaToken, "page-size" =: _gcaPageSize]
data GetCampaignActivitiesResponse = GetCampaignActivitiesResponse'
{ _gcarsResponseStatus :: !Int
, _gcarsActivitiesResponse :: !ActivitiesResponse
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getCampaignActivitiesResponse
:: Int
-> ActivitiesResponse
-> GetCampaignActivitiesResponse
getCampaignActivitiesResponse pResponseStatus_ pActivitiesResponse_ =
GetCampaignActivitiesResponse'
{ _gcarsResponseStatus = pResponseStatus_
, _gcarsActivitiesResponse = pActivitiesResponse_
}
gcarsResponseStatus :: Lens' GetCampaignActivitiesResponse Int
gcarsResponseStatus = lens _gcarsResponseStatus (\ s a -> s{_gcarsResponseStatus = a});
gcarsActivitiesResponse :: Lens' GetCampaignActivitiesResponse ActivitiesResponse
gcarsActivitiesResponse = lens _gcarsActivitiesResponse (\ s a -> s{_gcarsActivitiesResponse = a});
instance NFData GetCampaignActivitiesResponse