{-# 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.GetImportJobs
(
getImportJobs
, GetImportJobs
, gijsToken
, gijsPageSize
, gijsApplicationId
, getImportJobsResponse
, GetImportJobsResponse
, gijsrsResponseStatus
, gijsrsImportJobsResponse
) 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 GetImportJobs = GetImportJobs'
{ _gijsToken :: !(Maybe Text)
, _gijsPageSize :: !(Maybe Text)
, _gijsApplicationId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getImportJobs
:: Text
-> GetImportJobs
getImportJobs pApplicationId_ =
GetImportJobs'
{ _gijsToken = Nothing
, _gijsPageSize = Nothing
, _gijsApplicationId = pApplicationId_
}
gijsToken :: Lens' GetImportJobs (Maybe Text)
gijsToken = lens _gijsToken (\ s a -> s{_gijsToken = a});
gijsPageSize :: Lens' GetImportJobs (Maybe Text)
gijsPageSize = lens _gijsPageSize (\ s a -> s{_gijsPageSize = a});
gijsApplicationId :: Lens' GetImportJobs Text
gijsApplicationId = lens _gijsApplicationId (\ s a -> s{_gijsApplicationId = a});
instance AWSRequest GetImportJobs where
type Rs GetImportJobs = GetImportJobsResponse
request = get pinpoint
response
= receiveJSON
(\ s h x ->
GetImportJobsResponse' <$>
(pure (fromEnum s)) <*> (eitherParseJSON x))
instance Hashable GetImportJobs
instance NFData GetImportJobs
instance ToHeaders GetImportJobs where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetImportJobs where
toPath GetImportJobs'{..}
= mconcat
["/v1/apps/", toBS _gijsApplicationId,
"/jobs/import"]
instance ToQuery GetImportJobs where
toQuery GetImportJobs'{..}
= mconcat
["token" =: _gijsToken, "page-size" =: _gijsPageSize]
data GetImportJobsResponse = GetImportJobsResponse'
{ _gijsrsResponseStatus :: !Int
, _gijsrsImportJobsResponse :: !ImportJobsResponse
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getImportJobsResponse
:: Int
-> ImportJobsResponse
-> GetImportJobsResponse
getImportJobsResponse pResponseStatus_ pImportJobsResponse_ =
GetImportJobsResponse'
{ _gijsrsResponseStatus = pResponseStatus_
, _gijsrsImportJobsResponse = pImportJobsResponse_
}
gijsrsResponseStatus :: Lens' GetImportJobsResponse Int
gijsrsResponseStatus = lens _gijsrsResponseStatus (\ s a -> s{_gijsrsResponseStatus = a});
gijsrsImportJobsResponse :: Lens' GetImportJobsResponse ImportJobsResponse
gijsrsImportJobsResponse = lens _gijsrsImportJobsResponse (\ s a -> s{_gijsrsImportJobsResponse = a});
instance NFData GetImportJobsResponse