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

chore(db-fill): student system-function

Browse Source
This commit is contained in:
Gregor Kleen 2021-07-05 16:38:55 +02:00
parent 3c0a41f5a1
commit 3646e42d3f
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/Database/Fill.hs
View File

@ -436,6 +436,8 @@ fillDb = do
sdMst = StudyDegreeKey' 88 sdMst = StudyDegreeKey' 88
sdLAR = StudyDegreeKey' 33 sdLAR = StudyDegreeKey' 33
sdLAG = StudyDegreeKey' 35 sdLAG = StudyDegreeKey' 35
for_ (maxMuster : tinaTester : manyUsers) $ \uid ->
void . insert' $ UserSystemFunction uid SystemStudent False False
repsert sdBsc $ StudyDegree 82 (Just "BSc") (Just "Bachelor" ) repsert sdBsc $ StudyDegree 82 (Just "BSc") (Just "Bachelor" )
repsert sdMst $ StudyDegree 88 (Just "MSc") (Just "Master" ) repsert sdMst $ StudyDegree 88 (Just "MSc") (Just "Master" )
repsert sdLAR $ StudyDegree 33 (Just "LAR") Nothing -- intentionally left unknown repsert sdLAR $ StudyDegree 33 (Just "LAR") Nothing -- intentionally left unknown