diff --git a/src/Model/Types.hs b/src/Model/Types.hs index 5c5e045ab..dfedb2663 100644 --- a/src/Model/Types.hs +++ b/src/Model/Types.hs @@ -708,26 +708,26 @@ pseudonymFragments = folding $ mapM (toListOf pseudonymWords) . (\l -> guard (length l == 2) *> l) . filter (not . null) . Text.split (\(CI.mk -> c) -> not $ Set.member c pseudonymCharacters) -data AuthTag +data AuthTag -- sortiert nach gewünschter Reihenfolge auf /authpreds, d.h. Prädikate sind sortier nach Relevanz für Benutzer = AuthAdmin - | AuthNoEscalation - | AuthDeprecated - | AuthDevelopment | AuthLecturer | AuthCorrector - | AuthTime | AuthRegistered | AuthParticipant - | AuthCapacity - | AuthEmpty + | AuthTime | AuthMaterials | AuthOwner | AuthRated | AuthUserSubmissions | AuthCorrectorSubmissions + | AuthCapacity + | AuthEmpty | AuthAuthentication + | AuthNoEscalation | AuthRead | AuthWrite + | AuthDeprecated + | AuthDevelopment | AuthFree deriving (Eq, Ord, Enum, Bounded, Read, Show, Generic)