From 4eb81d7e59cac7acc16eddb1aae78a4430bc6ac4 Mon Sep 17 00:00:00 2001
From: Lucy Cifferello <12953208+elvece@users.noreply.github.com>
Date: Tue, 30 Apr 2024 17:19:19 -0400
Subject: [PATCH] log

---
 src/Handler/Package/V1/Index.hs | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

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