From a1111b498fb8e96f67a3d1b7e382ca3b85df0a72 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@ifi.lmu.de>
Date: Wed, 9 Jun 2021 14:10:37 +0200
Subject: [PATCH] refactor: update db fill

---
 test/Database/Fill.hs | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/test/Database/Fill.hs b/test/Database/Fill.hs
index 2539f2c4b..818fbd85f 100644
--- a/test/Database/Fill.hs
+++ b/test/Database/Fill.hs
@@ -657,7 +657,7 @@ fillDb = do
     , sheetAnonymousCorrection = True
     , sheetRequireExamRegistration = Nothing
     , sheetAllowNonPersonalisedSubmission = True
-    , sheetAuthorshipStatement = Nothing
+ -- , sheetAuthorshipStatement = Nothing
     }
   insert_ $ SheetEdit gkleen now adhoc
   feste <- insert Sheet
@@ -677,7 +677,7 @@ fillDb = do
     , sheetAnonymousCorrection = True
     , sheetRequireExamRegistration = Nothing
     , sheetAllowNonPersonalisedSubmission = True
-    , sheetAuthorshipStatement = Nothing
+ -- , sheetAuthorshipStatement = Nothing
     }
   insert_ $ SheetEdit gkleen now feste
   keine <- insert Sheet
@@ -697,7 +697,7 @@ fillDb = do
     , sheetAnonymousCorrection = True
     , sheetRequireExamRegistration = Nothing
     , sheetAllowNonPersonalisedSubmission = True
-    , sheetAuthorshipStatement = Nothing
+ -- , sheetAuthorshipStatement = Nothing
     }
   insert_ $ SheetEdit gkleen now keine
   void . insertMany $ map (\u -> CourseParticipant ffp u now Nothing CourseParticipantActive)
@@ -732,6 +732,7 @@ fillDb = do
       , examSynchronicity = Just $ ExamSynchronicityPreset ExamSynchronous
       , examRequiredEquipment = Just $ ExamRequiredEquipmentPreset ExamRequiredEquipmentNone
       }
+ -- , examAuthorshipStatement = Nothing
     , examStaff = Just "Hofmann"
     }
   _ <- insert' Material
@@ -942,7 +943,7 @@ fillDb = do
       , sheetAnonymousCorrection = True
       , sheetRequireExamRegistration = Nothing
       , sheetAllowNonPersonalisedSubmission = True
-      , sheetAuthorshipStatement = Nothing
+   -- , sheetAuthorshipStatement = Nothing
       }
     void . insert $ SheetEdit jost now shId
     when (submissionModeCorrector sheetSubmissionMode) $
@@ -1186,7 +1187,7 @@ fillDb = do
       , sheetAnonymousCorrection = True
       , sheetRequireExamRegistration = Nothing
       , sheetAllowNonPersonalisedSubmission = True
-      , sheetAuthorshipStatement = if shNr == 14 then Just ifiAuthorshipStatement else Nothing
+   -- , sheetAuthorshipStatement = if shNr == 14 then Just ifiAuthorshipStatement else Nothing
       }
     manyUsers' <- shuffleM $ take 1024 manyUsers
     groupSizes <- getRandomRs (1, 3)