{-# 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.GetSegmentExportJobs
(
getSegmentExportJobs
, GetSegmentExportJobs
, gsejToken
, gsejPageSize
, gsejSegmentId
, gsejApplicationId
, getSegmentExportJobsResponse
, GetSegmentExportJobsResponse
, gsejrsResponseStatus
, gsejrsExportJobsResponse
) 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 GetSegmentExportJobs = GetSegmentExportJobs'
{ _gsejToken :: !(Maybe Text)
, _gsejPageSize :: !(Maybe Text)
, _gsejSegmentId :: !Text
, _gsejApplicationId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getSegmentExportJobs
:: Text
-> Text
-> GetSegmentExportJobs
getSegmentExportJobs pSegmentId_ pApplicationId_ =
GetSegmentExportJobs'
{ _gsejToken = Nothing
, _gsejPageSize = Nothing
, _gsejSegmentId = pSegmentId_
, _gsejApplicationId = pApplicationId_
}
gsejToken :: Lens' GetSegmentExportJobs (Maybe Text)
gsejToken = lens _gsejToken (\ s a -> s{_gsejToken = a})
gsejPageSize :: Lens' GetSegmentExportJobs (Maybe Text)
gsejPageSize = lens _gsejPageSize (\ s a -> s{_gsejPageSize = a})
gsejSegmentId :: Lens' GetSegmentExportJobs Text
gsejSegmentId = lens _gsejSegmentId (\ s a -> s{_gsejSegmentId = a})
gsejApplicationId :: Lens' GetSegmentExportJobs Text
gsejApplicationId = lens _gsejApplicationId (\ s a -> s{_gsejApplicationId = a})
instance AWSRequest GetSegmentExportJobs where
type Rs GetSegmentExportJobs =
GetSegmentExportJobsResponse
request = get pinpoint
response
= receiveJSON
(\ s h x ->
GetSegmentExportJobsResponse' <$>
(pure (fromEnum s)) <*> (eitherParseJSON x))
instance Hashable GetSegmentExportJobs where
instance NFData GetSegmentExportJobs where
instance ToHeaders GetSegmentExportJobs where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetSegmentExportJobs where
toPath GetSegmentExportJobs'{..}
= mconcat
["/v1/apps/", toBS _gsejApplicationId, "/segments/",
toBS _gsejSegmentId, "/jobs/export"]
instance ToQuery GetSegmentExportJobs where
toQuery GetSegmentExportJobs'{..}
= mconcat
["token" =: _gsejToken, "page-size" =: _gsejPageSize]
data GetSegmentExportJobsResponse = GetSegmentExportJobsResponse'
{ _gsejrsResponseStatus :: !Int
, _gsejrsExportJobsResponse :: !ExportJobsResponse
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getSegmentExportJobsResponse
:: Int
-> ExportJobsResponse
-> GetSegmentExportJobsResponse
getSegmentExportJobsResponse pResponseStatus_ pExportJobsResponse_ =
GetSegmentExportJobsResponse'
{ _gsejrsResponseStatus = pResponseStatus_
, _gsejrsExportJobsResponse = pExportJobsResponse_
}
gsejrsResponseStatus :: Lens' GetSegmentExportJobsResponse Int
gsejrsResponseStatus = lens _gsejrsResponseStatus (\ s a -> s{_gsejrsResponseStatus = a})
gsejrsExportJobsResponse :: Lens' GetSegmentExportJobsResponse ExportJobsResponse
gsejrsExportJobsResponse = lens _gsejrsExportJobsResponse (\ s a -> s{_gsejrsExportJobsResponse = a})
instance NFData GetSegmentExportJobsResponse where