src/Model/Types/Common.hs

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

src/Model/Types/User.hs

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