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

adds name to /package/data

Browse Source
This commit is contained in:
Keagan McClelland
2022-02-02 11:12:21 -07:00
parent 139ba20e2f
commit 0d7fab5789
6 changed files with 17 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/Handler/Marketplace.hs
View File

@@ -129,13 +129,14 @@ import Yesod.Core ( MonadResource
import Yesod.Persist ( YesodDB )
import Yesod.Persist.Core ( YesodPersist(runDB) )
getCategoriesR :: Handler CategoryRes
getCategoriesR = do
getInfoR :: Handler InfoRes
getInfoR = do
name <- getsYesod $ marketplaceName . appSettings
allCategories <- runDB $ select $ do
cats <- from $ table @Category
orderBy [desc (cats ^. CategoryPriority)]
pure cats
pure $ CategoryRes $ categoryName . entityVal <$> allCategories
pure $ InfoRes name $ categoryName . entityVal <$> allCategories
getEosVersionR :: Handler EosRes
getEosVersionR = do