Reorder AuthTags to User relevance

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)