diff --git a/fill-db.hs b/fill-db.hs index 8810d6aa5..41631aebb 100755 --- a/fill-db.hs +++ b/fill-db.hs @@ -30,7 +30,7 @@ main = db $ do , termHolidays = [fromGregorian 2017 12 24..fromGregorian 2018 01 06] , termLectureStart = fromGregorian 2017 10 16 , termLectureEnd = fromGregorian 2018 02 10 - , termActive = False + , termActive = True } void . insert $ Term { termName = summer2018 @@ -68,4 +68,4 @@ main = db $ do void . insert $ DegreeCourse ifiMsc ffp void . insert $ Lecturer gkleen ffp void . insert $ Corrector gkleen ffp (ByProportion 1) - void . insert $ Sheet ffp "Blatt 1" NotGraded Nothing now now Nothing Nothing now now gkleen gkleen + void . insert $ Sheet ffp "Blatt 1" Nothing NotGraded Nothing now now Nothing Nothing now now gkleen gkleen