diff --git a/src/Handler/Package/V1/Index.hs b/src/Handler/Package/V1/Index.hs index fb2733b..cdce0e2 100644 --- a/src/Handler/Package/V1/Index.hs +++ b/src/Handler/Package/V1/Index.hs @@ -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