module Network.Google.Resource.Classroom.Courses.CourseWork.StudentSubmissions.Get
(
CoursesCourseWorkStudentSubmissionsGetResource
, coursesCourseWorkStudentSubmissionsGet
, CoursesCourseWorkStudentSubmissionsGet
, ccwssgXgafv
, ccwssgUploadProtocol
, ccwssgPp
, ccwssgCourseId
, ccwssgAccessToken
, ccwssgUploadType
, ccwssgBearerToken
, ccwssgId
, ccwssgCallback
, ccwssgCourseWorkId
) where
import Network.Google.Classroom.Types
import Network.Google.Prelude
type CoursesCourseWorkStudentSubmissionsGetResource =
"v1" :>
"courses" :>
Capture "courseId" Text :>
"courseWork" :>
Capture "courseWorkId" Text :>
"studentSubmissions" :>
Capture "id" Text :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] StudentSubmission
data CoursesCourseWorkStudentSubmissionsGet = CoursesCourseWorkStudentSubmissionsGet'
{ _ccwssgXgafv :: !(Maybe Text)
, _ccwssgUploadProtocol :: !(Maybe Text)
, _ccwssgPp :: !Bool
, _ccwssgCourseId :: !Text
, _ccwssgAccessToken :: !(Maybe Text)
, _ccwssgUploadType :: !(Maybe Text)
, _ccwssgBearerToken :: !(Maybe Text)
, _ccwssgId :: !Text
, _ccwssgCallback :: !(Maybe Text)
, _ccwssgCourseWorkId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
coursesCourseWorkStudentSubmissionsGet
:: Text
-> Text
-> Text
-> CoursesCourseWorkStudentSubmissionsGet
coursesCourseWorkStudentSubmissionsGet pCcwssgCourseId_ pCcwssgId_ pCcwssgCourseWorkId_ =
CoursesCourseWorkStudentSubmissionsGet'
{ _ccwssgXgafv = Nothing
, _ccwssgUploadProtocol = Nothing
, _ccwssgPp = True
, _ccwssgCourseId = pCcwssgCourseId_
, _ccwssgAccessToken = Nothing
, _ccwssgUploadType = Nothing
, _ccwssgBearerToken = Nothing
, _ccwssgId = pCcwssgId_
, _ccwssgCallback = Nothing
, _ccwssgCourseWorkId = pCcwssgCourseWorkId_
}
ccwssgXgafv :: Lens' CoursesCourseWorkStudentSubmissionsGet (Maybe Text)
ccwssgXgafv
= lens _ccwssgXgafv (\ s a -> s{_ccwssgXgafv = a})
ccwssgUploadProtocol :: Lens' CoursesCourseWorkStudentSubmissionsGet (Maybe Text)
ccwssgUploadProtocol
= lens _ccwssgUploadProtocol
(\ s a -> s{_ccwssgUploadProtocol = a})
ccwssgPp :: Lens' CoursesCourseWorkStudentSubmissionsGet Bool
ccwssgPp = lens _ccwssgPp (\ s a -> s{_ccwssgPp = a})
ccwssgCourseId :: Lens' CoursesCourseWorkStudentSubmissionsGet Text
ccwssgCourseId
= lens _ccwssgCourseId
(\ s a -> s{_ccwssgCourseId = a})
ccwssgAccessToken :: Lens' CoursesCourseWorkStudentSubmissionsGet (Maybe Text)
ccwssgAccessToken
= lens _ccwssgAccessToken
(\ s a -> s{_ccwssgAccessToken = a})
ccwssgUploadType :: Lens' CoursesCourseWorkStudentSubmissionsGet (Maybe Text)
ccwssgUploadType
= lens _ccwssgUploadType
(\ s a -> s{_ccwssgUploadType = a})
ccwssgBearerToken :: Lens' CoursesCourseWorkStudentSubmissionsGet (Maybe Text)
ccwssgBearerToken
= lens _ccwssgBearerToken
(\ s a -> s{_ccwssgBearerToken = a})
ccwssgId :: Lens' CoursesCourseWorkStudentSubmissionsGet Text
ccwssgId = lens _ccwssgId (\ s a -> s{_ccwssgId = a})
ccwssgCallback :: Lens' CoursesCourseWorkStudentSubmissionsGet (Maybe Text)
ccwssgCallback
= lens _ccwssgCallback
(\ s a -> s{_ccwssgCallback = a})
ccwssgCourseWorkId :: Lens' CoursesCourseWorkStudentSubmissionsGet Text
ccwssgCourseWorkId
= lens _ccwssgCourseWorkId
(\ s a -> s{_ccwssgCourseWorkId = a})
instance GoogleRequest
CoursesCourseWorkStudentSubmissionsGet where
type Rs CoursesCourseWorkStudentSubmissionsGet =
StudentSubmission
type Scopes CoursesCourseWorkStudentSubmissionsGet =
'["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
CoursesCourseWorkStudentSubmissionsGet'{..}
= go _ccwssgCourseId _ccwssgCourseWorkId _ccwssgId
_ccwssgXgafv
_ccwssgUploadProtocol
(Just _ccwssgPp)
_ccwssgAccessToken
_ccwssgUploadType
_ccwssgBearerToken
_ccwssgCallback
(Just AltJSON)
classroomService
where go
= buildClient
(Proxy ::
Proxy CoursesCourseWorkStudentSubmissionsGetResource)
mempty