add priority to order categories

src/Handler/Marketplace.hs

@@ -150,7 +150,10 @@ instance ToTypedContent EosRes where
 
 getCategoriesR :: Handler CategoryRes
 getCategoriesR = do
-    allCategories <- runDB $ select $ do from $ table @Category
+    allCategories <- runDB $ select $ do 
+        cats <- from $ table @Category
+        orderBy [desc (cats ^. CategoryPriority)]
+        pure cats
     pure $ CategoryRes $ categoryName . entityVal <$>allCategories
 
 getEosR :: Handler EosRes

src/Model.hs

@@ -64,6 +64,7 @@ Category
     parent CategoryId Maybe
     description Text
     UniqueName name
+    priority Int default=0
     deriving Eq
     deriving Show