Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-30 11:51:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

add priority to order categories

Browse Source
This commit is contained in:
Lucy Cifferello
2021-07-14 18:04:15 -04:00
committed by Keagan McClelland
parent 0d27703b33
commit d53262e143
2 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/Handler/Marketplace.hs
View File

@@ -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