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 marketplace description to info response

Browse Source
This commit is contained in:
Lucy Cifferello
2022-09-19 15:23:20 -06:00
parent 648d69c14a
commit 0caeab5b6b
3 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/Handler/Package/V0/Info.hs
View File

@@ -6,13 +6,14 @@ import Foundation (Handler, RegistryCtx (..))
import Handler.Util (tickleMAU)
import Model (Category (..), EntityField (..))
import Settings (AppSettings (..))
import Startlude (Generic, Show, Text, pure, ($), (.), (<$>))
import Startlude (Generic, Show, Text, pure, ($), (.), (<$>), (&&&))
import Yesod (ToContent (..), ToTypedContent (..), YesodPersist (runDB), getsYesod)
import Yesod.Core.Types (JSONResponse (..))
data InfoRes = InfoRes
{ name :: !Text
, description:: !Text
, categories :: ![Text]
}
deriving (Show, Generic)
@@ -25,11 +26,11 @@ instance ToTypedContent InfoRes where
getInfoR :: Handler (JSONResponse InfoRes)
getInfoR = do
name <- getsYesod $ marketplaceName . appSettings
(name, description) <- getsYesod $ (marketplaceName &&& marketplaceDescription) . appSettings
allCategories <- runDB $
select $ do
cats <- from $ table @Category
orderBy [asc (cats ^. CategoryPriority)]
pure cats
tickleMAU
pure $ JSONResponse $ InfoRes name $ categoryName . entityVal <$> allCategories
pure $ JSONResponse $ InfoRes name description $ categoryName . entityVal <$> allCategories