refactor(exams): prepare for exam-wide statements

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

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
           }

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
         }