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

priority inversion, 0 is always first

Browse Source
This commit is contained in:
Keagan McClelland
2022-03-01 16:08:30 -07:00
parent ade9ffdacc
commit b666a4ee36
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/Handler/Marketplace.hs
View File

@@ -56,6 +56,7 @@ import Database.Esqueleto.Experimental
( Entity(entityKey, entityVal) ( Entity(entityKey, entityVal)
, SqlBackend , SqlBackend
, (^.) , (^.)
, asc
, desc , desc
, from , from
, orderBy , orderBy
@@ -137,7 +138,7 @@ getInfoR = do
name <- getsYesod $ marketplaceName . appSettings name <- getsYesod $ marketplaceName . appSettings
allCategories <- runDB $ select $ do allCategories <- runDB $ select $ do
cats <- from $ table @Category cats <- from $ table @Category
orderBy [desc (cats ^. CategoryPriority)] orderBy [asc (cats ^. CategoryPriority)]
pure cats pure cats
pure $ InfoRes name $ categoryName . entityVal <$> allCategories pure $ InfoRes name $ categoryName . entityVal <$> allCategories