{-# 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.GetCampaignVersions
(
getCampaignVersions
, GetCampaignVersions
, gcvToken
, gcvPageSize
, gcvApplicationId
, gcvCampaignId
, getCampaignVersionsResponse
, GetCampaignVersionsResponse
, gcvrsResponseStatus
, gcvrsCampaignsResponse
) 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 GetCampaignVersions = GetCampaignVersions'
{ _gcvToken :: !(Maybe Text)
, _gcvPageSize :: !(Maybe Text)
, _gcvApplicationId :: !Text
, _gcvCampaignId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getCampaignVersions
:: Text
-> Text
-> GetCampaignVersions
getCampaignVersions pApplicationId_ pCampaignId_ =
GetCampaignVersions'
{ _gcvToken = Nothing
, _gcvPageSize = Nothing
, _gcvApplicationId = pApplicationId_
, _gcvCampaignId = pCampaignId_
}
gcvToken :: Lens' GetCampaignVersions (Maybe Text)
gcvToken = lens _gcvToken (\ s a -> s{_gcvToken = a})
gcvPageSize :: Lens' GetCampaignVersions (Maybe Text)
gcvPageSize = lens _gcvPageSize (\ s a -> s{_gcvPageSize = a})
gcvApplicationId :: Lens' GetCampaignVersions Text
gcvApplicationId = lens _gcvApplicationId (\ s a -> s{_gcvApplicationId = a})
gcvCampaignId :: Lens' GetCampaignVersions Text
gcvCampaignId = lens _gcvCampaignId (\ s a -> s{_gcvCampaignId = a})
instance AWSRequest GetCampaignVersions where
type Rs GetCampaignVersions =
GetCampaignVersionsResponse
request = get pinpoint
response
= receiveJSON
(\ s h x ->
GetCampaignVersionsResponse' <$>
(pure (fromEnum s)) <*> (eitherParseJSON x))
instance Hashable GetCampaignVersions where
instance NFData GetCampaignVersions where
instance ToHeaders GetCampaignVersions where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetCampaignVersions where
toPath GetCampaignVersions'{..}
= mconcat
["/v1/apps/", toBS _gcvApplicationId, "/campaigns/",
toBS _gcvCampaignId, "/versions"]
instance ToQuery GetCampaignVersions where
toQuery GetCampaignVersions'{..}
= mconcat
["token" =: _gcvToken, "page-size" =: _gcvPageSize]
data GetCampaignVersionsResponse = GetCampaignVersionsResponse'
{ _gcvrsResponseStatus :: !Int
, _gcvrsCampaignsResponse :: !CampaignsResponse
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getCampaignVersionsResponse
:: Int
-> CampaignsResponse
-> GetCampaignVersionsResponse
getCampaignVersionsResponse pResponseStatus_ pCampaignsResponse_ =
GetCampaignVersionsResponse'
{ _gcvrsResponseStatus = pResponseStatus_
, _gcvrsCampaignsResponse = pCampaignsResponse_
}
gcvrsResponseStatus :: Lens' GetCampaignVersionsResponse Int
gcvrsResponseStatus = lens _gcvrsResponseStatus (\ s a -> s{_gcvrsResponseStatus = a})
gcvrsCampaignsResponse :: Lens' GetCampaignVersionsResponse CampaignsResponse
gcvrsCampaignsResponse = lens _gcvrsCampaignsResponse (\ s a -> s{_gcvrsCampaignsResponse = a})
instance NFData GetCampaignVersionsResponse where