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