fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Reorder AuthTags to User relevance

Browse Source
This commit is contained in:
SJost 2019-02-15 15:18:21 +01:00
parent d3f9425448
commit f8f909d32c
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/Model/Types.hs
View File

@ -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) $ 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 = AuthAdmin
| AuthNoEscalation
| AuthDeprecated
| AuthDevelopment
| AuthLecturer | AuthLecturer
| AuthCorrector | AuthCorrector
| AuthTime
| AuthRegistered | AuthRegistered
| AuthParticipant | AuthParticipant
| AuthCapacity | AuthTime
| AuthEmpty
| AuthMaterials | AuthMaterials
| AuthOwner | AuthOwner
| AuthRated | AuthRated
| AuthUserSubmissions | AuthUserSubmissions
| AuthCorrectorSubmissions | AuthCorrectorSubmissions
| AuthCapacity
| AuthEmpty
| AuthAuthentication | AuthAuthentication
| AuthNoEscalation
| AuthRead | AuthRead
| AuthWrite | AuthWrite
| AuthDeprecated
| AuthDevelopment
| AuthFree | AuthFree
deriving (Eq, Ord, Enum, Bounded, Read, Show, Generic) deriving (Eq, Ord, Enum, Bounded, Read, Show, Generic)