Sarah Vaupel
72f5a9fb37
TODOs left: reimplement clean and help, sync static,well-known and assets between services
61 lines
1.9 KiB
Haskell
61 lines
1.9 KiB
Haskell
-- SPDX-FileCopyrightText: 2022 Gregor Kleen <gregor.kleen@ifi.lmu.de>,Sarah Vaupel <sarah.vaupel@ifi.lmu.de>,Steffen Jost <jost@cip.ifi.lmu.de>,Steffen Jost <jost@tcs.ifi.lmu.de>
|
|
--
|
|
-- SPDX-License-Identifier: AGPL-3.0-or-later
|
|
|
|
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
|
|
userExamOfficeGetSynced = True
|
|
userExamOfficeGetLabels = True
|
|
userSex = Nothing
|
|
userBirthday = Nothing
|
|
userShowSex = userDefaultShowSex
|
|
userNotificationSettings = def
|
|
userCreated = unsafePerformIO getCurrentTime
|
|
userLastLdapSynchronisation = Nothing
|
|
userLdapPrimaryKey = Nothing
|
|
userMobile = Nothing
|
|
userTelephone = Nothing
|
|
userCompanyPersonalNumber = Nothing
|
|
userCompanyDepartment = Nothing
|
|
userPinPassword = Nothing
|
|
userPostAddress = Nothing
|
|
userPostLastUpdate = Nothing
|
|
userPrefersPostal = userDefaultPrefersPostal
|