module Network.Google.Resource.Classroom.Courses.CourseWork.StudentSubmissions.TurnIn
(
CoursesCourseWorkStudentSubmissionsTurnInResource
, coursesCourseWorkStudentSubmissionsTurnIn
, CoursesCourseWorkStudentSubmissionsTurnIn
, ccwsstiXgafv
, ccwsstiUploadProtocol
, ccwsstiPp
, ccwsstiCourseId
, ccwsstiAccessToken
, ccwsstiUploadType
, ccwsstiPayload
, ccwsstiBearerToken
, ccwsstiId
, ccwsstiCallback
, ccwsstiCourseWorkId
) where
import Network.Google.Classroom.Types
import Network.Google.Prelude
type CoursesCourseWorkStudentSubmissionsTurnInResource
=
"v1" :>
"courses" :>
Capture "courseId" Text :>
"courseWork" :>
Capture "courseWorkId" Text :>
"studentSubmissions" :>
CaptureMode "id" "turnIn" 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 :>
ReqBody '[JSON]
TurnInStudentSubmissionRequest
:> Post '[JSON] Empty
data CoursesCourseWorkStudentSubmissionsTurnIn = CoursesCourseWorkStudentSubmissionsTurnIn'
{ _ccwsstiXgafv :: !(Maybe Text)
, _ccwsstiUploadProtocol :: !(Maybe Text)
, _ccwsstiPp :: !Bool
, _ccwsstiCourseId :: !Text
, _ccwsstiAccessToken :: !(Maybe Text)
, _ccwsstiUploadType :: !(Maybe Text)
, _ccwsstiPayload :: !TurnInStudentSubmissionRequest
, _ccwsstiBearerToken :: !(Maybe Text)
, _ccwsstiId :: !Text
, _ccwsstiCallback :: !(Maybe Text)
, _ccwsstiCourseWorkId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
coursesCourseWorkStudentSubmissionsTurnIn
:: Text
-> TurnInStudentSubmissionRequest
-> Text
-> Text
-> CoursesCourseWorkStudentSubmissionsTurnIn
coursesCourseWorkStudentSubmissionsTurnIn pCcwsstiCourseId_ pCcwsstiPayload_ pCcwsstiId_ pCcwsstiCourseWorkId_ =
CoursesCourseWorkStudentSubmissionsTurnIn'
{ _ccwsstiXgafv = Nothing
, _ccwsstiUploadProtocol = Nothing
, _ccwsstiPp = True
, _ccwsstiCourseId = pCcwsstiCourseId_
, _ccwsstiAccessToken = Nothing
, _ccwsstiUploadType = Nothing
, _ccwsstiPayload = pCcwsstiPayload_
, _ccwsstiBearerToken = Nothing
, _ccwsstiId = pCcwsstiId_
, _ccwsstiCallback = Nothing
, _ccwsstiCourseWorkId = pCcwsstiCourseWorkId_
}
ccwsstiXgafv :: Lens' CoursesCourseWorkStudentSubmissionsTurnIn (Maybe Text)
ccwsstiXgafv
= lens _ccwsstiXgafv (\ s a -> s{_ccwsstiXgafv = a})
ccwsstiUploadProtocol :: Lens' CoursesCourseWorkStudentSubmissionsTurnIn (Maybe Text)
ccwsstiUploadProtocol
= lens _ccwsstiUploadProtocol
(\ s a -> s{_ccwsstiUploadProtocol = a})
ccwsstiPp :: Lens' CoursesCourseWorkStudentSubmissionsTurnIn Bool
ccwsstiPp
= lens _ccwsstiPp (\ s a -> s{_ccwsstiPp = a})
ccwsstiCourseId :: Lens' CoursesCourseWorkStudentSubmissionsTurnIn Text
ccwsstiCourseId
= lens _ccwsstiCourseId
(\ s a -> s{_ccwsstiCourseId = a})
ccwsstiAccessToken :: Lens' CoursesCourseWorkStudentSubmissionsTurnIn (Maybe Text)
ccwsstiAccessToken
= lens _ccwsstiAccessToken
(\ s a -> s{_ccwsstiAccessToken = a})
ccwsstiUploadType :: Lens' CoursesCourseWorkStudentSubmissionsTurnIn (Maybe Text)
ccwsstiUploadType
= lens _ccwsstiUploadType
(\ s a -> s{_ccwsstiUploadType = a})
ccwsstiPayload :: Lens' CoursesCourseWorkStudentSubmissionsTurnIn TurnInStudentSubmissionRequest
ccwsstiPayload
= lens _ccwsstiPayload
(\ s a -> s{_ccwsstiPayload = a})
ccwsstiBearerToken :: Lens' CoursesCourseWorkStudentSubmissionsTurnIn (Maybe Text)
ccwsstiBearerToken
= lens _ccwsstiBearerToken
(\ s a -> s{_ccwsstiBearerToken = a})
ccwsstiId :: Lens' CoursesCourseWorkStudentSubmissionsTurnIn Text
ccwsstiId
= lens _ccwsstiId (\ s a -> s{_ccwsstiId = a})
ccwsstiCallback :: Lens' CoursesCourseWorkStudentSubmissionsTurnIn (Maybe Text)
ccwsstiCallback
= lens _ccwsstiCallback
(\ s a -> s{_ccwsstiCallback = a})
ccwsstiCourseWorkId :: Lens' CoursesCourseWorkStudentSubmissionsTurnIn Text
ccwsstiCourseWorkId
= lens _ccwsstiCourseWorkId
(\ s a -> s{_ccwsstiCourseWorkId = a})
instance GoogleRequest
CoursesCourseWorkStudentSubmissionsTurnIn where
type Rs CoursesCourseWorkStudentSubmissionsTurnIn =
Empty
type Scopes CoursesCourseWorkStudentSubmissionsTurnIn
=
'["https://www.googleapis.com/auth/classroom.coursework.me"]
requestClient
CoursesCourseWorkStudentSubmissionsTurnIn'{..}
= go _ccwsstiCourseId _ccwsstiCourseWorkId _ccwsstiId
_ccwsstiXgafv
_ccwsstiUploadProtocol
(Just _ccwsstiPp)
_ccwsstiAccessToken
_ccwsstiUploadType
_ccwsstiBearerToken
_ccwsstiCallback
(Just AltJSON)
_ccwsstiPayload
classroomService
where go
= buildClient
(Proxy ::
Proxy
CoursesCourseWorkStudentSubmissionsTurnInResource)
mempty