From d53262e1438155e0be5e26f84649aefd06082234 Mon Sep 17 00:00:00 2001
From: Lucy Cifferello <12953208+elvece@users.noreply.github.com>
Date: Wed, 14 Jul 2021 18:04:15 -0400
Subject: [PATCH] add priority to order categories

---
 src/Handler/Marketplace.hs | 5 ++++-
 src/Model.hs               | 1 +
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/Handler/Marketplace.hs b/src/Handler/Marketplace.hs
index 3b19f38..a5b250e 100644
--- a/src/Handler/Marketplace.hs
+++ b/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
diff --git a/src/Model.hs b/src/Model.hs
index d275080..30373de 100644
--- a/src/Model.hs
+++ b/src/Model.hs
@@ -64,6 +64,7 @@ Category
     parent CategoryId Maybe
     description Text
     UniqueName name
+    priority Int default=0
     deriving Eq
     deriving Show