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

log

Browse Source
This commit is contained in:
Lucy Cifferello
2024-04-30 19:00:08 -04:00
parent f4e25e9b42
commit 0e2f73fcd7
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/Handler/Package/V1/Index.hs
View File

@@ -78,7 +78,8 @@ import Startlude (
(<$>), (<$>),
(<&>), (<&>),
(=<<), (=<<),
(>) (>),
show,
) )
import UnliftIO (Concurrently (..), mapConcurrently) import UnliftIO (Concurrently (..), mapConcurrently)
import Yesod ( import Yesod (
@@ -97,6 +98,7 @@ import Yesod (getRequest)
import Data.List (last) import Data.List (last)
import Data.Text (isPrefixOf) import Data.Text (isPrefixOf)
import Startlude (length) import Startlude (length)
import Control.Monad.Logger (logWarn)
data PackageReq = PackageReq data PackageReq = PackageReq
{ packageReqId :: !PkgId { packageReqId :: !PkgId
@@ -129,6 +131,8 @@ getPackageIndexR = do
ram <- getRamQuery ram <- getRamQuery
hardwareDevices <- getHardwareDevicesQuery hardwareDevices <- getHardwareDevicesQuery
communityVersion <- getsYesod $ communityVersion . appSettings communityVersion <- getsYesod $ communityVersion . appSettings
$logWarn $ "***COMMUNITY"
$logWarn $ show $ osPredicate communityVersion
pkgIds <- getPkgIdsQuery pkgIds <- getPkgIdsQuery
category <- getCategoryQuery category <- getCategoryQuery
page <- fromMaybe 1 <$> getPageQuery page <- fromMaybe 1 <$> getPageQuery