50 lines
1.4 KiB
Haskell
50 lines
1.4 KiB
Haskell
module User
|
|
( fakeUser
|
|
) where
|
|
|
|
import ClassyPrelude
|
|
|
|
import Settings
|
|
import Model
|
|
|
|
import Data.Default
|
|
import System.IO.Unsafe
|
|
|
|
|
|
fakeUser :: (User -> User) -> User
|
|
fakeUser adjUser = adjUser User{..}
|
|
where
|
|
UserDefaultConf{..} = appUserDefaults compileTimeAppSettings
|
|
|
|
userMatrikelnummer = Nothing
|
|
userAuthentication = AuthLDAP
|
|
userLastAuthentication = Nothing
|
|
userTokensIssuedAfter = Nothing
|
|
userIdent = "dummy@example.invalid"
|
|
userEmail = "dummy@example.invalid"
|
|
userDisplayEmail = "dummy@example.invalid"
|
|
userDisplayName = "Dummy Example"
|
|
userSurname = "Example"
|
|
userFirstName = "Dummy"
|
|
userTitle = Nothing
|
|
userTheme = userDefaultTheme
|
|
userMaxFavourites = userDefaultMaxFavourites
|
|
userMaxFavouriteTerms = userDefaultMaxFavouriteTerms
|
|
userDateTimeFormat = userDefaultDateTimeFormat
|
|
userDateFormat = userDefaultDateFormat
|
|
userTimeFormat = userDefaultTimeFormat
|
|
userDownloadFiles = userDefaultDownloadFiles
|
|
userLanguages = Nothing
|
|
userWarningDays = userDefaultWarningDays
|
|
userCsvOptions = def
|
|
userSex = Nothing
|
|
userShowSex = userDefaultShowSex
|
|
userNotificationSettings = def
|
|
userCreated = unsafePerformIO getCurrentTime
|
|
userLastLdapSynchronisation = Nothing
|
|
userLdapPrimaryKey = Nothing
|
|
userMobile = Nothing
|
|
userTelephone = Nothing
|
|
userCompanyPersonalNumber = Nothing
|
|
userCompanyDepartment = Nothing
|