priority inversion, 0 is always first

2026-03-26 10:21:51 +00:00 · 2022-03-01 16:08:30 -07:00
parent ade9ffdacc
commit b666a4ee36
1 changed files with 2 additions and 1 deletions
--- a/src/Handler/Marketplace.hs
+++ b/src/Handler/Marketplace.hs
@@ -56,6 +56,7 @@ import           Database.Esqueleto.Experimental
                                                ( Entity(entityKey, entityVal)
                                                , SqlBackend
                                                , (^.)
+                                                , asc
                                                , desc
                                                , from
                                                , orderBy
@@ -137,7 +138,7 @@ getInfoR = do
    name          <- getsYesod $ marketplaceName . appSettings
    allCategories <- runDB $ select $ do
        cats <- from $ table @Category
-        orderBy [desc (cats ^. CategoryPriority)]
+        orderBy [asc (cats ^. CategoryPriority)]
        pure cats
    pure $ InfoRes name $ categoryName . entityVal <$> allCategories