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

fill-db corrected

Browse Source
This commit is contained in:
SJost 2018-04-03 16:50:08 +02:00
parent e578139a21
commit 5af34861be
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
fill-db.hs
View File

@ -75,9 +75,10 @@ main = db $ do
void . insert $ UserLecturer gkleen ifi void . insert $ UserLecturer gkleen ifi
void . insert $ UserLecturer fhamann ifi void . insert $ UserLecturer fhamann ifi
void . insert $ UserLecturer jost ifi void . insert $ UserLecturer jost ifi
ifiBsc <- insert $ Degree "Bachelor Informatik" ifi sdBsc <- insert $ StudyDegree 82 (Just "BSc") (Just "Bachelor" )
ifiMsc <- insert $ Degree "Master Informatik" ifi sdMst <- insert $ StudyDegree 88 (Just "MSc") (Just "Master" )
miBsc <- insert $ Degree "Bachelor Mathematik" mi sdInf <- insert $ StudyTerms 79 (Just "Inf") (Just "Informatik")
sdMath <- insert $ StudyTerms 105 (Just "M" ) (Just "Mathematik")
-- FFP -- FFP
ffp <- insert Course ffp <- insert Course
{ courseName = "Fortgeschrittene Funktionale Programmierung" { courseName = "Fortgeschrittene Funktionale Programmierung"
@ -92,8 +93,9 @@ main = db $ do
, courseRegisterTo = Just ((3600 * 24 * 60) `addUTCTime` now ) , courseRegisterTo = Just ((3600 * 24 * 60) `addUTCTime` now )
} }
insert_ $ CourseEdit jost now ffp insert_ $ CourseEdit jost now ffp
void . insert $ DegreeCourse ifiBsc ffp void . insert $ DegreeCourse ffp sdBsc sdInf
void . insert $ DegreeCourse ifiMsc ffp void . insert $ DegreeCourse ffp sdMst sdInf
void . insert $ Lecturer jost ffp
void . insert $ Lecturer gkleen ffp void . insert $ Lecturer gkleen ffp
insert_ $ Corrector gkleen ffp (ByProportion 1) insert_ $ Corrector gkleen ffp (ByProportion 1)
sheetkey <- insert $ Sheet ffp "Blatt 1" Nothing NotGraded NoGroups Nothing Nothing now now Nothing Nothing sheetkey <- insert $ Sheet ffp "Blatt 1" Nothing NotGraded NoGroups Nothing Nothing now now Nothing Nothing
@ -112,8 +114,7 @@ main = db $ do
, courseRegisterTo = Nothing , courseRegisterTo = Nothing
} }
insert_ $ CourseEdit fhamann now eip insert_ $ CourseEdit fhamann now eip
void . insert $ DegreeCourse ifiBsc eip void . insert $ DegreeCourse eip sdBsc sdInf
void . insert $ DegreeCourse ifiMsc eip
void . insert $ Lecturer fhamann eip void . insert $ Lecturer fhamann eip
-- interaction design -- interaction design
ixd <- insert Course ixd <- insert Course
@ -129,7 +130,7 @@ main = db $ do
, courseRegisterTo = Just ((3600 * 24 * 60) `addUTCTime` now ) , courseRegisterTo = Just ((3600 * 24 * 60) `addUTCTime` now )
} }
insert_ $ CourseEdit fhamann now ixd insert_ $ CourseEdit fhamann now ixd
void . insert $ DegreeCourse ifiBsc ixd void . insert $ DegreeCourse ixd sdBsc sdInf
void . insert $ Lecturer fhamann ixd void . insert $ Lecturer fhamann ixd
-- concept development -- concept development
ux3 <- insert Course ux3 <- insert Course
@ -145,7 +146,7 @@ main = db $ do
, courseRegisterTo = Nothing , courseRegisterTo = Nothing
} }
insert_ $ CourseEdit fhamann now ux3 insert_ $ CourseEdit fhamann now ux3
void . insert $ DegreeCourse ifiBsc ux3 void . insert $ DegreeCourse ux3 sdBsc sdInf
void . insert $ Lecturer fhamann ux3 void . insert $ Lecturer fhamann ux3
-- promo -- promo
pmo <- insert Course pmo <- insert Course
@ -161,7 +162,7 @@ main = db $ do
, courseRegisterTo = Nothing , courseRegisterTo = Nothing
} }
insert_ $ CourseEdit jost now pmo insert_ $ CourseEdit jost now pmo
void . insert $ DegreeCourse ifiBsc pmo void . insert $ DegreeCourse pmo sdBsc sdInf
void . insert $ Lecturer jost pmo void . insert $ Lecturer jost pmo
-- datenbanksysteme -- datenbanksysteme
dbs <- insert Course dbs <- insert Course
@ -177,6 +178,7 @@ main = db $ do
, courseRegisterTo = Nothing , courseRegisterTo = Nothing
} }
insert_ $ CourseEdit gkleen now dbs insert_ $ CourseEdit gkleen now dbs
void . insert $ DegreeCourse ifiBsc dbs void . insert $ DegreeCourse dbs sdBsc sdInf
void . insert $ DegreeCourse dbs sdBsc sdMath
void . insert $ Lecturer gkleen dbs void . insert $ Lecturer gkleen dbs
void . insert $ Lecturer jost dbs void . insert $ Lecturer jost dbs