{-# 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.GetSegmentImportJobs
(
getSegmentImportJobs
, GetSegmentImportJobs
, gsijToken
, gsijPageSize
, gsijSegmentId
, gsijApplicationId
, getSegmentImportJobsResponse
, GetSegmentImportJobsResponse
, gsijrsResponseStatus
, gsijrsImportJobsResponse
) 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 GetSegmentImportJobs = GetSegmentImportJobs'
{ _gsijToken :: !(Maybe Text)
, _gsijPageSize :: !(Maybe Text)
, _gsijSegmentId :: !Text
, _gsijApplicationId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getSegmentImportJobs
:: Text
-> Text
-> GetSegmentImportJobs
getSegmentImportJobs pSegmentId_ pApplicationId_ =
GetSegmentImportJobs'
{ _gsijToken = Nothing
, _gsijPageSize = Nothing
, _gsijSegmentId = pSegmentId_
, _gsijApplicationId = pApplicationId_
}
gsijToken :: Lens' GetSegmentImportJobs (Maybe Text)
gsijToken = lens _gsijToken (\ s a -> s{_gsijToken = a})
gsijPageSize :: Lens' GetSegmentImportJobs (Maybe Text)
gsijPageSize = lens _gsijPageSize (\ s a -> s{_gsijPageSize = a})
gsijSegmentId :: Lens' GetSegmentImportJobs Text
gsijSegmentId = lens _gsijSegmentId (\ s a -> s{_gsijSegmentId = a})
gsijApplicationId :: Lens' GetSegmentImportJobs Text
gsijApplicationId = lens _gsijApplicationId (\ s a -> s{_gsijApplicationId = a})
instance AWSRequest GetSegmentImportJobs where
type Rs GetSegmentImportJobs =
GetSegmentImportJobsResponse
request = get pinpoint
response
= receiveJSON
(\ s h x ->
GetSegmentImportJobsResponse' <$>
(pure (fromEnum s)) <*> (eitherParseJSON x))
instance Hashable GetSegmentImportJobs where
instance NFData GetSegmentImportJobs where
instance ToHeaders GetSegmentImportJobs where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetSegmentImportJobs where
toPath GetSegmentImportJobs'{..}
= mconcat
["/v1/apps/", toBS _gsijApplicationId, "/segments/",
toBS _gsijSegmentId, "/jobs/import"]
instance ToQuery GetSegmentImportJobs where
toQuery GetSegmentImportJobs'{..}
= mconcat
["token" =: _gsijToken, "page-size" =: _gsijPageSize]
data GetSegmentImportJobsResponse = GetSegmentImportJobsResponse'
{ _gsijrsResponseStatus :: !Int
, _gsijrsImportJobsResponse :: !ImportJobsResponse
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getSegmentImportJobsResponse
:: Int
-> ImportJobsResponse
-> GetSegmentImportJobsResponse
getSegmentImportJobsResponse pResponseStatus_ pImportJobsResponse_ =
GetSegmentImportJobsResponse'
{ _gsijrsResponseStatus = pResponseStatus_
, _gsijrsImportJobsResponse = pImportJobsResponse_
}
gsijrsResponseStatus :: Lens' GetSegmentImportJobsResponse Int
gsijrsResponseStatus = lens _gsijrsResponseStatus (\ s a -> s{_gsijrsResponseStatus = a})
gsijrsImportJobsResponse :: Lens' GetSegmentImportJobsResponse ImportJobsResponse
gsijrsImportJobsResponse = lens _gsijrsImportJobsResponse (\ s a -> s{_gsijrsImportJobsResponse = a})
instance NFData GetSegmentImportJobsResponse where