Fix DB.hs
This commit is contained in:
parent
1b79509b06
commit
ca38b460cc
3
db.hs
3
db.hs
@ -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"
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user