fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

chore(model): eppn as Text, move to User Types

Browse Source
This commit is contained in:
Sarah Vaupel 2022-02-08 22:17:20 +01:00 committed by Sarah Vaupel
parent 022a4db05a
commit 14c2f6d82d
2 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/Model/Types/Common.hs
View File

@ -18,14 +18,13 @@ type Points = Centi
type Email = Text type Email = Text
type UserTitle = Text type UserTitle = Text
type UserFirstName = Text type UserFirstName = Text
type UserSurname = Text type UserSurname = Text
type UserDisplayName = Text type UserDisplayName = Text
type UserIdent = CI Text type UserIdent = CI Text
type UserMatriculation = Text type UserMatriculation = Text
type UserEmail = CI Email type UserEmail = CI Email
type UserEduPersonPrincipalName = CI Email
type StudyDegreeName = Text type StudyDegreeName = Text
type StudyDegreeShorthand = Text type StudyDegreeShorthand = Text

3
src/Model/Types/User.hs
View File

@ -4,6 +4,9 @@ import Import.NoModel
import Model.Types.TH.PathPiece import Model.Types.TH.PathPiece
type UserEduPersonPrincipalName = CI Text
data SystemFunction data SystemFunction
= SystemExamOffice = SystemExamOffice
| SystemFaculty | SystemFaculty