From f8f909d32c69e78e77a8e42cf48102a8c2a07ef6 Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Fri, 15 Feb 2019 15:18:21 +0100
Subject: [PATCH] Reorder AuthTags to User relevance

---
 src/Model/Types.hs | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

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)