{-# 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.Create
(
CoursesCourseWorkCreateResource
, coursesCourseWorkCreate
, CoursesCourseWorkCreate
, ccwcXgafv
, ccwcUploadProtocol
, ccwcPp
, ccwcCourseId
, ccwcAccessToken
, ccwcUploadType
, ccwcPayload
, ccwcBearerToken
, ccwcCallback
) where
import Network.Google.Classroom.Types
import Network.Google.Prelude
type CoursesCourseWorkCreateResource =
"v1" :>
"courses" :>
Capture "courseId" Text :>
"courseWork" :>
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] CourseWork :>
Post '[JSON] CourseWork
-- | Creates course work. The resulting course work (and corresponding
-- student submissions) are associated with the Developer Console project
-- of the [OAuth client
-- ID](https:\/\/support.google.com\/cloud\/answer\/6158849) used to make
-- the request. Classroom API requests to modify course work and student
-- submissions must be made with an OAuth client ID from the associated
-- Developer Console project. This method returns the following error
-- codes: * \`PERMISSION_DENIED\` if the requesting user is not permitted
-- to access the requested course, create course work in the requested
-- course, or for access errors. * \`INVALID_ARGUMENT\` if the request is
-- malformed. * \`NOT_FOUND\` if the requested course does not exist.
--
-- /See:/ 'coursesCourseWorkCreate' smart constructor.
data CoursesCourseWorkCreate = CoursesCourseWorkCreate'
{ _ccwcXgafv :: !(Maybe Text)
, _ccwcUploadProtocol :: !(Maybe Text)
, _ccwcPp :: !Bool
, _ccwcCourseId :: !Text
, _ccwcAccessToken :: !(Maybe Text)
, _ccwcUploadType :: !(Maybe Text)
, _ccwcPayload :: !CourseWork
, _ccwcBearerToken :: !(Maybe Text)
, _ccwcCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
-- | Creates a value of 'CoursesCourseWorkCreate' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'ccwcXgafv'
--
-- * 'ccwcUploadProtocol'
--
-- * 'ccwcPp'
--
-- * 'ccwcCourseId'
--
-- * 'ccwcAccessToken'
--
-- * 'ccwcUploadType'
--
-- * 'ccwcPayload'
--
-- * 'ccwcBearerToken'
--
-- * 'ccwcCallback'
coursesCourseWorkCreate
:: Text -- ^ 'ccwcCourseId'
-> CourseWork -- ^ 'ccwcPayload'
-> CoursesCourseWorkCreate
coursesCourseWorkCreate pCcwcCourseId_ pCcwcPayload_ =
CoursesCourseWorkCreate'
{ _ccwcXgafv = Nothing
, _ccwcUploadProtocol = Nothing
, _ccwcPp = True
, _ccwcCourseId = pCcwcCourseId_
, _ccwcAccessToken = Nothing
, _ccwcUploadType = Nothing
, _ccwcPayload = pCcwcPayload_
, _ccwcBearerToken = Nothing
, _ccwcCallback = Nothing
}
-- | V1 error format.
ccwcXgafv :: Lens' CoursesCourseWorkCreate (Maybe Text)
ccwcXgafv
= lens _ccwcXgafv (\ s a -> s{_ccwcXgafv = a})
-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
ccwcUploadProtocol :: Lens' CoursesCourseWorkCreate (Maybe Text)
ccwcUploadProtocol
= lens _ccwcUploadProtocol
(\ s a -> s{_ccwcUploadProtocol = a})
-- | Pretty-print response.
ccwcPp :: Lens' CoursesCourseWorkCreate Bool
ccwcPp = lens _ccwcPp (\ s a -> s{_ccwcPp = a})
-- | Identifier of the course. This identifier can be either the
-- Classroom-assigned identifier or an alias.
ccwcCourseId :: Lens' CoursesCourseWorkCreate Text
ccwcCourseId
= lens _ccwcCourseId (\ s a -> s{_ccwcCourseId = a})
-- | OAuth access token.
ccwcAccessToken :: Lens' CoursesCourseWorkCreate (Maybe Text)
ccwcAccessToken
= lens _ccwcAccessToken
(\ s a -> s{_ccwcAccessToken = a})
-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
ccwcUploadType :: Lens' CoursesCourseWorkCreate (Maybe Text)
ccwcUploadType
= lens _ccwcUploadType
(\ s a -> s{_ccwcUploadType = a})
-- | Multipart request metadata.
ccwcPayload :: Lens' CoursesCourseWorkCreate CourseWork
ccwcPayload
= lens _ccwcPayload (\ s a -> s{_ccwcPayload = a})
-- | OAuth bearer token.
ccwcBearerToken :: Lens' CoursesCourseWorkCreate (Maybe Text)
ccwcBearerToken
= lens _ccwcBearerToken
(\ s a -> s{_ccwcBearerToken = a})
-- | JSONP
ccwcCallback :: Lens' CoursesCourseWorkCreate (Maybe Text)
ccwcCallback
= lens _ccwcCallback (\ s a -> s{_ccwcCallback = a})
instance GoogleRequest CoursesCourseWorkCreate where
type Rs CoursesCourseWorkCreate = CourseWork
type Scopes CoursesCourseWorkCreate =
'["https://www.googleapis.com/auth/classroom.coursework.students"]
requestClient CoursesCourseWorkCreate'{..}
= go _ccwcCourseId _ccwcXgafv _ccwcUploadProtocol
(Just _ccwcPp)
_ccwcAccessToken
_ccwcUploadType
_ccwcBearerToken
_ccwcCallback
(Just AltJSON)
_ccwcPayload
classroomService
where go
= buildClient
(Proxy :: Proxy CoursesCourseWorkCreateResource)
mempty