From b666a4ee366fc2149d03ebe82e397178831860fc Mon Sep 17 00:00:00 2001
From: Keagan McClelland <keagan.mcclelland@gmail.com>
Date: Tue, 1 Mar 2022 16:08:30 -0700
Subject: [PATCH] priority inversion, 0 is always first

---
 src/Handler/Marketplace.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Handler/Marketplace.hs b/src/Handler/Marketplace.hs
index e567b87..6e8c704 100644
--- 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