Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-30 19:54:47 +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 a42c5c5caa
commit 0e60b500ec
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