fix: tests

test/Database/Fill.hs

@@ -578,6 +578,7 @@ fillDb = do
     , sheetSolutionFrom = Nothing
     , sheetAutoDistribute = False
     , sheetAnonymousCorrection = True
+    , sheetRequireExamRegistration = Nothing
     }
   insert_ $ SheetEdit gkleen now adhoc
   feste <- insert Sheet
@@ -595,6 +596,7 @@ fillDb = do
     , sheetSolutionFrom = Nothing
     , sheetAutoDistribute = False
     , sheetAnonymousCorrection = True
+    , sheetRequireExamRegistration = Nothing
     }
   insert_ $ SheetEdit gkleen now feste
   keine <- insert Sheet
@@ -612,6 +614,7 @@ fillDb = do
     , sheetSolutionFrom = Nothing
     , sheetAutoDistribute = False
     , sheetAnonymousCorrection = True
+    , sheetRequireExamRegistration = Nothing
     }
   insert_ $ SheetEdit gkleen now keine
   void . insertMany $ map (\(u,sf) -> CourseParticipant ffp u now sf Nothing CourseParticipantActive)
@@ -823,6 +826,7 @@ fillDb = do
       , sheetSolutionFrom = Just $ termTime True Summer (prog + 2) False Sunday beforeMidnight
       , sheetAutoDistribute = True
       , sheetAnonymousCorrection = True
+      , sheetRequireExamRegistration = Nothing
       }
     void . insert $ SheetEdit jost now shId
     when (submissionModeCorrector sheetSubmissionMode) $
@@ -1057,6 +1061,7 @@ fillDb = do
       , sheetSolutionFrom = Nothing
       , sheetAutoDistribute = False
       , sheetAnonymousCorrection = True
+      , sheetRequireExamRegistration = Nothing
       }
     manyUsers' <- shuffleM $ take 1024 manyUsers
     groupSizes <- getRandomRs (1, 3)