From 7b11ed46dec57c84e467184b9e542b612e4ab661 Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Wed, 9 Jun 2021 14:10:12 +0200 Subject: [PATCH] refactor(exams): prepare for exam-wide statements --- models/exams.model | 1 + src/Handler/Exam/Edit.hs | 1 + src/Handler/Exam/New.hs | 1 + 3 files changed, 3 insertions(+) diff --git a/models/exams.model b/models/exams.model index 1c79e1f7f..ded7124b6 100644 --- a/models/exams.model +++ b/models/exams.model @@ -20,6 +20,7 @@ Exam examMode ExamMode staff Text Maybe partsFrom UTCTime Maybe +-- authorshipStatement AuthorshipStatementDefinitionId Maybe UniqueExam course name deriving Generic ExamPart diff --git a/src/Handler/Exam/Edit.hs b/src/Handler/Exam/Edit.hs index 5ecffe1f0..875e99025 100644 --- a/src/Handler/Exam/Edit.hs +++ b/src/Handler/Exam/Edit.hs @@ -60,6 +60,7 @@ postEEditR tid ssh csh examn = do , examGradingMode = efGradingMode , examDescription = efDescription , examExamMode = efExamMode + -- , examAuthorshipStatement = Nothing -- TODO , examStaff = efStaff , examPartsFrom = efPartsFrom } diff --git a/src/Handler/Exam/New.hs b/src/Handler/Exam/New.hs index 4c20fe692..09b8a6dbe 100644 --- a/src/Handler/Exam/New.hs +++ b/src/Handler/Exam/New.hs @@ -49,6 +49,7 @@ postCExamNewR tid ssh csh = do , examPublicStatistics = efPublicStatistics , examDescription = efDescription , examExamMode = efExamMode + -- , examAuthorshipStatement = Nothing -- TODO , examStaff = efStaff , examPartsFrom = efPartsFrom }