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

add test-user max@campus.lmu.de to fill-db.hs

Browse Source
This commit is contained in:
Felix Hamann 2018-07-01 15:03:45 +02:00
parent 12e52becbd
commit dc90f2718a
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fill-db.hs
View File

@ -45,6 +45,15 @@ main = db $ do
, userMaxFavourites = 14 , userMaxFavourites = 14
, userTheme = MossGreen , userTheme = MossGreen
} }
void . insert $ User
{ userPlugin = "LDAP"
, userIdent = "max@campus.lmu.de"
, userMatrikelnummer = Nothing
, userEmail = "max@campus.lmu.de"
, userDisplayName = "Max Musterstudent"
, userMaxFavourites = 7
, userTheme = AberdeenReds
}
void . insert $ Term void . insert $ Term
{ termName = summer2017 { termName = summer2017
, termStart = fromGregorian 2017 04 09 , termStart = fromGregorian 2017 04 09