{-# 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.GetCampaignVersion
(
getCampaignVersion
, GetCampaignVersion
, gcvcVersion
, gcvcApplicationId
, gcvcCampaignId
, getCampaignVersionResponse
, GetCampaignVersionResponse
, gcvcrsResponseStatus
, gcvcrsCampaignResponse
) 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 GetCampaignVersion = GetCampaignVersion'
{ _gcvcVersion :: !Text
, _gcvcApplicationId :: !Text
, _gcvcCampaignId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getCampaignVersion
:: Text
-> Text
-> Text
-> GetCampaignVersion
getCampaignVersion pVersion_ pApplicationId_ pCampaignId_ =
GetCampaignVersion'
{ _gcvcVersion = pVersion_
, _gcvcApplicationId = pApplicationId_
, _gcvcCampaignId = pCampaignId_
}
gcvcVersion :: Lens' GetCampaignVersion Text
gcvcVersion = lens _gcvcVersion (\ s a -> s{_gcvcVersion = a})
gcvcApplicationId :: Lens' GetCampaignVersion Text
gcvcApplicationId = lens _gcvcApplicationId (\ s a -> s{_gcvcApplicationId = a})
gcvcCampaignId :: Lens' GetCampaignVersion Text
gcvcCampaignId = lens _gcvcCampaignId (\ s a -> s{_gcvcCampaignId = a})
instance AWSRequest GetCampaignVersion where
type Rs GetCampaignVersion =
GetCampaignVersionResponse
request = get pinpoint
response
= receiveJSON
(\ s h x ->
GetCampaignVersionResponse' <$>
(pure (fromEnum s)) <*> (eitherParseJSON x))
instance Hashable GetCampaignVersion where
instance NFData GetCampaignVersion where
instance ToHeaders GetCampaignVersion where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetCampaignVersion where
toPath GetCampaignVersion'{..}
= mconcat
["/v1/apps/", toBS _gcvcApplicationId, "/campaigns/",
toBS _gcvcCampaignId, "/versions/",
toBS _gcvcVersion]
instance ToQuery GetCampaignVersion where
toQuery = const mempty
data GetCampaignVersionResponse = GetCampaignVersionResponse'
{ _gcvcrsResponseStatus :: !Int
, _gcvcrsCampaignResponse :: !CampaignResponse
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getCampaignVersionResponse
:: Int
-> CampaignResponse
-> GetCampaignVersionResponse
getCampaignVersionResponse pResponseStatus_ pCampaignResponse_ =
GetCampaignVersionResponse'
{ _gcvcrsResponseStatus = pResponseStatus_
, _gcvcrsCampaignResponse = pCampaignResponse_
}
gcvcrsResponseStatus :: Lens' GetCampaignVersionResponse Int
gcvcrsResponseStatus = lens _gcvcrsResponseStatus (\ s a -> s{_gcvcrsResponseStatus = a})
gcvcrsCampaignResponse :: Lens' GetCampaignVersionResponse CampaignResponse
gcvcrsCampaignResponse = lens _gcvcrsCampaignResponse (\ s a -> s{_gcvcrsCampaignResponse = a})
instance NFData GetCampaignVersionResponse where