src/Model/Types/Common.hs

@@ -13,49 +13,53 @@ import Import.NoModel
 import qualified Yesod.Auth.Util.PasswordStore as PWStore
 
 
-type Count                   = Sum Integer
-type Points                  = Centi
+type Count  = Sum Integer
+type Points = Centi
 
-type Email                   = Text
+type Email = Text
 
-type UserTitle               = Text
-type UserFirstName           = Text
-type UserSurname             = Text
-type UserDisplayName         = Text
-type UserMatriculation       = Text
+type UserTitle         = Text
+type UserFirstName     = Text
+type UserSurname       = Text
+type UserDisplayName   = Text
+type UserMatriculation = Text
+type UserEmail         = CI Email
+type UserIdent         = CI Text
 
-type StudyDegreeName         = Text
-type StudyDegreeShorthand    = Text
-type StudyDegreeKey          = Int
-type StudyTermsName          = Text
-type StudyTermsShorthand     = Text
-type StudyTermsKey           = Int
-type StudySubTermsKey        = Int
+type StudyDegreeName      = Text
+type StudyDegreeShorthand = Text
+type StudyDegreeKey       = Int
+type StudyTermsName       = Text
+type StudyTermsShorthand  = Text
+type StudyTermsKey        = Int
+type StudySubTermsKey     = Int
 
-type SchoolName              = CI Text
-type SchoolShorthand         = CI Text
-type CourseName              = CI Text
-type CourseShorthand         = CI Text
-type SheetName               = CI Text
-type MaterialName            = CI Text
-type UserEmail               = CI Email
-type UserIdent               = CI Text
-type TutorialName            = CI Text
-type ExamName                = CI Text
-type ExamPartName            = CI Text
-type ExamOccurrenceName      = CI Text
-type AllocationName          = CI Text
-type AllocationShorthand     = CI Text
+type SchoolName      = CI Text
+type SchoolShorthand = CI Text
 
-type SubmissionGroupName     = CI Text
+type CourseName          = CI Text
+type CourseShorthand     = CI Text
+type MaterialName        = CI Text
+type TutorialName        = CI Text
+type SheetName           = CI Text
+type SubmissionGroupName = CI Text
 
-type PWHashAlgorithm         = ByteString -> PWStore.Salt -> Int -> ByteString
-type InstanceId              = UUID
-type ClusterId               = UUID
-type TokenId                 = UUID
-type TermCandidateIncidence  = UUID
+type ExamName           = CI Text
+type ExamPartName       = CI Text
+type ExamOccurrenceName = CI Text
 
-type SessionFileReference    = Digest SHA3_256
+type AllocationName      = CI Text
+type AllocationShorthand = CI Text
+
+type PWHashAlgorithm = ByteString -> PWStore.Salt -> Int -> ByteString
+
+type InstanceId = UUID
+type ClusterId  = UUID
+type TokenId    = UUID
+
+type TermCandidateIncidence = UUID
+
+type SessionFileReference = Digest SHA3_256
 
 type WorkflowDefinitionName   = CI Text
 type WorkflowInstanceName     = CI Text