Fix DB.hs

This commit is contained in:
SJost 2018-09-18 16:13:02 +02:00
parent 1b79509b06
commit ca38b460cc

3
db.hs
View File

@ -121,11 +121,10 @@ fillDb = do
, userTimeFormat = userDefaultTimeFormat
, userDownloadFiles = userDefaultDownloadFiles
}
void . insert $ Term
void . insert $ User
{ userPlugin = "LDAP"
, userIdent = "tester@campus.lmu.de"
, userMatrikelnummer = "999"
, userMatrikelnummer = Just "999"
, userEmail = "tester@campus.lmu.de"
, userDisplayName = "Tina Tester"
, userSurname = "von Terror"