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 , userTimeFormat = userDefaultTimeFormat
, userDownloadFiles = userDefaultDownloadFiles , userDownloadFiles = userDefaultDownloadFiles
} }
void . insert $ Term
void . insert $ User void . insert $ User
{ userPlugin = "LDAP" { userPlugin = "LDAP"
, userIdent = "tester@campus.lmu.de" , userIdent = "tester@campus.lmu.de"
, userMatrikelnummer = "999" , userMatrikelnummer = Just "999"
, userEmail = "tester@campus.lmu.de" , userEmail = "tester@campus.lmu.de"
, userDisplayName = "Tina Tester" , userDisplayName = "Tina Tester"
, userSurname = "von Terror" , userSurname = "von Terror"