module Network.Google.Resource.Coordinate.Jobs.List
(
JobsListResource
, jobsList
, JobsList
, jlTeamId
, jlMinModifiedTimestampMs
, jlOmitJobChanges
, jlPageToken
, jlMaxResults
) where
import Network.Google.MapsCoordinate.Types
import Network.Google.Prelude
type JobsListResource =
"coordinate" :>
"v1" :>
"teams" :>
Capture "teamId" Text :>
"jobs" :>
QueryParam "minModifiedTimestampMs" (Textual Word64)
:>
QueryParam "omitJobChanges" Bool :>
QueryParam "pageToken" Text :>
QueryParam "maxResults" (Textual Word32) :>
QueryParam "alt" AltJSON :>
Get '[JSON] JobListResponse
data JobsList = JobsList'
{ _jlTeamId :: !Text
, _jlMinModifiedTimestampMs :: !(Maybe (Textual Word64))
, _jlOmitJobChanges :: !(Maybe Bool)
, _jlPageToken :: !(Maybe Text)
, _jlMaxResults :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
jobsList
:: Text
-> JobsList
jobsList pJlTeamId_ =
JobsList'
{ _jlTeamId = pJlTeamId_
, _jlMinModifiedTimestampMs = Nothing
, _jlOmitJobChanges = Nothing
, _jlPageToken = Nothing
, _jlMaxResults = Nothing
}
jlTeamId :: Lens' JobsList Text
jlTeamId = lens _jlTeamId (\ s a -> s{_jlTeamId = a})
jlMinModifiedTimestampMs :: Lens' JobsList (Maybe Word64)
jlMinModifiedTimestampMs
= lens _jlMinModifiedTimestampMs
(\ s a -> s{_jlMinModifiedTimestampMs = a})
. mapping _Coerce
jlOmitJobChanges :: Lens' JobsList (Maybe Bool)
jlOmitJobChanges
= lens _jlOmitJobChanges
(\ s a -> s{_jlOmitJobChanges = a})
jlPageToken :: Lens' JobsList (Maybe Text)
jlPageToken
= lens _jlPageToken (\ s a -> s{_jlPageToken = a})
jlMaxResults :: Lens' JobsList (Maybe Word32)
jlMaxResults
= lens _jlMaxResults (\ s a -> s{_jlMaxResults = a})
. mapping _Coerce
instance GoogleRequest JobsList where
type Rs JobsList = JobListResponse
type Scopes JobsList =
'["https://www.googleapis.com/auth/coordinate",
"https://www.googleapis.com/auth/coordinate.readonly"]
requestClient JobsList'{..}
= go _jlTeamId _jlMinModifiedTimestampMs
_jlOmitJobChanges
_jlPageToken
_jlMaxResults
(Just AltJSON)
mapsCoordinateService
where go
= buildClient (Proxy :: Proxy JobsListResource)
mempty