fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 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
sdLAR = StudyDegreeKey' 33
sdLAG = StudyDegreeKey' 35
for_ (maxMuster : tinaTester : manyUsers) $ \uid ->
void . insert' $ UserSystemFunction uid SystemStudent False False
repsert sdBsc $ StudyDegree 82 (Just "BSc") (Just "Bachelor" )
repsert sdMst $ StudyDegree 88 (Just "MSc") (Just "Master" )
repsert sdLAR $ StudyDegree 33 (Just "LAR") Nothing -- intentionally left unknown