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

fix empty case

Browse Source
This commit is contained in:
Lucy Cifferello
2024-04-30 18:13:08 -04:00
parent 4eb81d7e59
commit 42344abc17
1 changed files with 1 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -79,7 +79,6 @@ import Startlude (
(<&>),
(=<<),
(>)
show
)
import UnliftIO (Concurrently (..), mapConcurrently)
import Yesod (
@@ -220,12 +219,7 @@ 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)
$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
let depMetadata = zipWith (selectDependencyBestVersion osPredicate) pkgDepInfo pkgDepInfoWithVersions
lift $
fmap HM.fromList $
for depMetadata $ \(depId, title, v, isLocal) -> do