From 3646e42d3fa841629e7285ededca30dd4b213d37 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Mon, 5 Jul 2021 16:38:55 +0200
Subject: [PATCH] chore(db-fill): student system-function

---
 test/Database/Fill.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/test/Database/Fill.hs b/test/Database/Fill.hs
index c6c0d4ffb..5d8755b7b 100644
--- a/test/Database/Fill.hs
+++ b/test/Database/Fill.hs
@@ -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