{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Resource.Classroom.Courses.CourseWork.StudentSubmissions.List
(
CoursesCourseWorkStudentSubmissionsListResource
, coursesCourseWorkStudentSubmissionsList
, CoursesCourseWorkStudentSubmissionsList
, ccwsslStates
, ccwsslXgafv
, ccwsslLate
, ccwsslUploadProtocol
, ccwsslCourseId
, ccwsslAccessToken
, ccwsslUploadType
, ccwsslUserId
, ccwsslPageToken
, ccwsslPageSize
, ccwsslCallback
, ccwsslCourseWorkId
) where
import Network.Google.Classroom.Types
import Network.Google.Prelude
type CoursesCourseWorkStudentSubmissionsListResource
=
"v1" :>
"courses" :>
Capture "courseId" Text :>
"courseWork" :>
Capture "courseWorkId" Text :>
"studentSubmissions" :>
QueryParams "states" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "late" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "userId" Text :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON]
ListStudentSubmissionsResponse
data CoursesCourseWorkStudentSubmissionsList = CoursesCourseWorkStudentSubmissionsList'
{ _ccwsslStates :: !(Maybe [Text])
, _ccwsslXgafv :: !(Maybe Xgafv)
, _ccwsslLate :: !(Maybe Text)
, _ccwsslUploadProtocol :: !(Maybe Text)
, _ccwsslCourseId :: !Text
, _ccwsslAccessToken :: !(Maybe Text)
, _ccwsslUploadType :: !(Maybe Text)
, _ccwsslUserId :: !(Maybe Text)
, _ccwsslPageToken :: !(Maybe Text)
, _ccwsslPageSize :: !(Maybe (Textual Int32))
, _ccwsslCallback :: !(Maybe Text)
, _ccwsslCourseWorkId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
coursesCourseWorkStudentSubmissionsList
:: Text
-> Text
-> CoursesCourseWorkStudentSubmissionsList
coursesCourseWorkStudentSubmissionsList pCcwsslCourseId_ pCcwsslCourseWorkId_ =
CoursesCourseWorkStudentSubmissionsList'
{ _ccwsslStates = Nothing
, _ccwsslXgafv = Nothing
, _ccwsslLate = Nothing
, _ccwsslUploadProtocol = Nothing
, _ccwsslCourseId = pCcwsslCourseId_
, _ccwsslAccessToken = Nothing
, _ccwsslUploadType = Nothing
, _ccwsslUserId = Nothing
, _ccwsslPageToken = Nothing
, _ccwsslPageSize = Nothing
, _ccwsslCallback = Nothing
, _ccwsslCourseWorkId = pCcwsslCourseWorkId_
}
ccwsslStates :: Lens' CoursesCourseWorkStudentSubmissionsList [Text]
ccwsslStates
= lens _ccwsslStates (\ s a -> s{_ccwsslStates = a})
. _Default
. _Coerce
ccwsslXgafv :: Lens' CoursesCourseWorkStudentSubmissionsList (Maybe Xgafv)
ccwsslXgafv
= lens _ccwsslXgafv (\ s a -> s{_ccwsslXgafv = a})
ccwsslLate :: Lens' CoursesCourseWorkStudentSubmissionsList (Maybe Text)
ccwsslLate
= lens _ccwsslLate (\ s a -> s{_ccwsslLate = a})
ccwsslUploadProtocol :: Lens' CoursesCourseWorkStudentSubmissionsList (Maybe Text)
ccwsslUploadProtocol
= lens _ccwsslUploadProtocol
(\ s a -> s{_ccwsslUploadProtocol = a})
ccwsslCourseId :: Lens' CoursesCourseWorkStudentSubmissionsList Text
ccwsslCourseId
= lens _ccwsslCourseId
(\ s a -> s{_ccwsslCourseId = a})
ccwsslAccessToken :: Lens' CoursesCourseWorkStudentSubmissionsList (Maybe Text)
ccwsslAccessToken
= lens _ccwsslAccessToken
(\ s a -> s{_ccwsslAccessToken = a})
ccwsslUploadType :: Lens' CoursesCourseWorkStudentSubmissionsList (Maybe Text)
ccwsslUploadType
= lens _ccwsslUploadType
(\ s a -> s{_ccwsslUploadType = a})
ccwsslUserId :: Lens' CoursesCourseWorkStudentSubmissionsList (Maybe Text)
ccwsslUserId
= lens _ccwsslUserId (\ s a -> s{_ccwsslUserId = a})
ccwsslPageToken :: Lens' CoursesCourseWorkStudentSubmissionsList (Maybe Text)
ccwsslPageToken
= lens _ccwsslPageToken
(\ s a -> s{_ccwsslPageToken = a})
ccwsslPageSize :: Lens' CoursesCourseWorkStudentSubmissionsList (Maybe Int32)
ccwsslPageSize
= lens _ccwsslPageSize
(\ s a -> s{_ccwsslPageSize = a})
. mapping _Coerce
ccwsslCallback :: Lens' CoursesCourseWorkStudentSubmissionsList (Maybe Text)
ccwsslCallback
= lens _ccwsslCallback
(\ s a -> s{_ccwsslCallback = a})
ccwsslCourseWorkId :: Lens' CoursesCourseWorkStudentSubmissionsList Text
ccwsslCourseWorkId
= lens _ccwsslCourseWorkId
(\ s a -> s{_ccwsslCourseWorkId = a})
instance GoogleRequest
CoursesCourseWorkStudentSubmissionsList where
type Rs CoursesCourseWorkStudentSubmissionsList =
ListStudentSubmissionsResponse
type Scopes CoursesCourseWorkStudentSubmissionsList =
'["https://www.googleapis.com/auth/classroom.coursework.me",
"https://www.googleapis.com/auth/classroom.coursework.me.readonly",
"https://www.googleapis.com/auth/classroom.coursework.students",
"https://www.googleapis.com/auth/classroom.coursework.students.readonly",
"https://www.googleapis.com/auth/classroom.student-submissions.me.readonly",
"https://www.googleapis.com/auth/classroom.student-submissions.students.readonly"]
requestClient
CoursesCourseWorkStudentSubmissionsList'{..}
= go _ccwsslCourseId _ccwsslCourseWorkId
(_ccwsslStates ^. _Default)
_ccwsslXgafv
_ccwsslLate
_ccwsslUploadProtocol
_ccwsslAccessToken
_ccwsslUploadType
_ccwsslUserId
_ccwsslPageToken
_ccwsslPageSize
_ccwsslCallback
(Just AltJSON)
classroomService
where go
= buildClient
(Proxy ::
Proxy
CoursesCourseWorkStudentSubmissionsListResource)
mempty