{-# 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.GetCampaigns
(
getCampaigns
, GetCampaigns
, gcsToken
, gcsPageSize
, gcsApplicationId
, getCampaignsResponse
, GetCampaignsResponse
, gcsrsResponseStatus
, gcsrsCampaignsResponse
) 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 GetCampaigns = GetCampaigns'
{ _gcsToken :: !(Maybe Text)
, _gcsPageSize :: !(Maybe Text)
, _gcsApplicationId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getCampaigns
:: Text
-> GetCampaigns
getCampaigns pApplicationId_ =
GetCampaigns'
{ _gcsToken = Nothing
, _gcsPageSize = Nothing
, _gcsApplicationId = pApplicationId_
}
gcsToken :: Lens' GetCampaigns (Maybe Text)
gcsToken = lens _gcsToken (\ s a -> s{_gcsToken = a})
gcsPageSize :: Lens' GetCampaigns (Maybe Text)
gcsPageSize = lens _gcsPageSize (\ s a -> s{_gcsPageSize = a})
gcsApplicationId :: Lens' GetCampaigns Text
gcsApplicationId = lens _gcsApplicationId (\ s a -> s{_gcsApplicationId = a})
instance AWSRequest GetCampaigns where
type Rs GetCampaigns = GetCampaignsResponse
request = get pinpoint
response
= receiveJSON
(\ s h x ->
GetCampaignsResponse' <$>
(pure (fromEnum s)) <*> (eitherParseJSON x))
instance Hashable GetCampaigns where
instance NFData GetCampaigns where
instance ToHeaders GetCampaigns where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetCampaigns where
toPath GetCampaigns'{..}
= mconcat
["/v1/apps/", toBS _gcsApplicationId, "/campaigns"]
instance ToQuery GetCampaigns where
toQuery GetCampaigns'{..}
= mconcat
["token" =: _gcsToken, "page-size" =: _gcsPageSize]
data GetCampaignsResponse = GetCampaignsResponse'
{ _gcsrsResponseStatus :: !Int
, _gcsrsCampaignsResponse :: !CampaignsResponse
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getCampaignsResponse
:: Int
-> CampaignsResponse
-> GetCampaignsResponse
getCampaignsResponse pResponseStatus_ pCampaignsResponse_ =
GetCampaignsResponse'
{ _gcsrsResponseStatus = pResponseStatus_
, _gcsrsCampaignsResponse = pCampaignsResponse_
}
gcsrsResponseStatus :: Lens' GetCampaignsResponse Int
gcsrsResponseStatus = lens _gcsrsResponseStatus (\ s a -> s{_gcsrsResponseStatus = a})
gcsrsCampaignsResponse :: Lens' GetCampaignsResponse CampaignsResponse
gcsrsCampaignsResponse = lens _gcsrsCampaignsResponse (\ s a -> s{_gcsrsCampaignsResponse = a})
instance NFData GetCampaignsResponse where