From 42344abc17d930a1755dacb7587eaf3e2b60eb13 Mon Sep 17 00:00:00 2001
From: Lucy Cifferello <12953208+elvece@users.noreply.github.com>
Date: Tue, 30 Apr 2024 18:13:08 -0400
Subject: [PATCH] fix empty case

---
 src/Handler/Package/V1/Index.hs | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

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