From 878c87a378a2f27d7ab627b3a00aa5c57b686191 Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Mon, 27 Feb 2023 11:48:34 +0100
Subject: [PATCH] chore(tutorials): force qualification option order

---
 src/Handler/Tutorial/Users.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Handler/Tutorial/Users.hs b/src/Handler/Tutorial/Users.hs
index 32ee7aa04..8ece41d3a 100644
--- a/src/Handler/Tutorial/Users.hs
+++ b/src/Handler/Tutorial/Users.hs
@@ -55,7 +55,7 @@ postTUsersR tid ssh csh tutn = do
   showSex <- getShowSex
   (Entity tutid Tutorial{..}, (participantRes, participantTable)) <- runDB $ do
     tut@(Entity tutid _) <- fetchTutorial tid ssh csh tutn
-    qualifications <- selectList [QualificationSchool ==. ssh] []
+    qualifications <- selectList [QualificationSchool ==. ssh] [Asc QualificationShorthand]
     now <- liftIO getCurrentTime
     let minDur :: Maybe Int = minimumMaybe $ catMaybes (view _qualificationValidDuration <$> qualifications)  -- no instance Ord CalendarDiffDays        
         dayExpiry = flip addGregorianDurationClip (utctDay now) . fromMonths <$> minDur