fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix fill-db.hs for new model

Browse Source
This commit is contained in:
Gregor Kleen 2018-02-21 13:20:01 +01:00
parent 31ad9932c1
commit f17d1875c8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fill-db.hs
View File

@ -30,7 +30,7 @@ main = db $ do
, termHolidays = [fromGregorian 2017 12 24..fromGregorian 2018 01 06] , termHolidays = [fromGregorian 2017 12 24..fromGregorian 2018 01 06]
, termLectureStart = fromGregorian 2017 10 16 , termLectureStart = fromGregorian 2017 10 16
, termLectureEnd = fromGregorian 2018 02 10 , termLectureEnd = fromGregorian 2018 02 10
, termActive = False , termActive = True
} }
void . insert $ Term void . insert $ Term
{ termName = summer2018 { termName = summer2018
@ -68,4 +68,4 @@ main = db $ do
void . insert $ DegreeCourse ifiMsc ffp void . insert $ DegreeCourse ifiMsc ffp
void . insert $ Lecturer gkleen ffp void . insert $ Lecturer gkleen ffp
void . insert $ Corrector gkleen ffp (ByProportion 1) 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