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 17:19:19 -04:00
parent 4b7034a9c6
commit 4eb81d7e59
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -79,6 +79,7 @@ import Startlude (
(<&>),
(=<<),
(>)
show
)
import UnliftIO (Concurrently (..), mapConcurrently)
import Yesod (
@@ -93,7 +94,7 @@ import Database.Persist.Postgresql (entityVal)
import Yesod.Core (getsYesod)
import Data.List (head)
import Yesod (YesodRequest(reqGetParams))
import Yesod (getRequest)
import Yesod (getRequest, logWarn)
import Data.List (last)
import Data.Text (isPrefixOf)
import Startlude (length)
@@ -219,7 +220,12 @@ getPackageDependencies osPredicate PackageMetadata{packageMetadataPkgId = pkg, p
pkgDepInfo' <- getPkgDependencyData pkg pkgVersion
let pkgDepInfo = fmap (\a -> (entityVal $ fst a, entityVal $ snd a)) pkgDepInfo'
pkgDepInfoWithVersions <- traverse getDependencyVersions (fst <$> pkgDepInfo)
let depMetadata = zipWith (selectDependencyBestVersion osPredicate) pkgDepInfo pkgDepInfoWithVersions
$logWarn $ "***PKG DEP INFO WITH VERSIONS***"
$logWarn $ show pkgDepInfoWithVersions
let compatiblePkgDepInfo = fmap (filter (osPredicate . versionRecordOsVersion)) pkgDepInfoWithVersions
$logWarn $ "***COMPATIBLE PKG DEP INFO***"
$logWarn $ show compatiblePkgDepInfo
let depMetadata = zipWith selectDependencyBestVersion pkgDepInfo compatiblePkgDepInfo
lift $
fmap HM.fromList $
for depMetadata $ \(depId, title, v, isLocal) -> do