chore(tutorials): force qualification option order

2023-02-27 11:48:34 +01:00 · 2023-02-27 11:48:34 +01:00 · 878c87a378
commit 878c87a378
parent 94be61d661
1 changed files with 1 additions and 1 deletions
--- 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