From 04da258d0e6987f3ba61cc791b2ce931553c1ce9 Mon Sep 17 00:00:00 2001
From: Lucy Cifferello <12953208+elvece@users.noreply.github.com>
Date: Tue, 30 Apr 2024 21:07:52 -0400
Subject: [PATCH] filter empty lists

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

diff --git a/src/Handler/Package/V1/Index.hs b/src/Handler/Package/V1/Index.hs
index e644082..7648de5 100644
--- a/src/Handler/Package/V1/Index.hs
+++ b/src/Handler/Package/V1/Index.hs
@@ -99,6 +99,8 @@ import Data.List (last)
 import Data.Text (isPrefixOf)
 import Startlude (length)
 import Control.Monad.Logger (logWarn)
+import Data.Bool (not)
+import Data.List (null)
 
 data PackageReq = PackageReq
     { packageReqId :: !PkgId
@@ -220,8 +222,7 @@ getPackageDependencies PackageMetadata{packageMetadataPkgId = pkg, packageMetada
         pkgDepInfo' <- getPkgDependencyData pkg pkgVersion
         let pkgDepInfo = fmap (\a -> (entityVal $ fst a, entityVal $ snd a)) pkgDepInfo'
         pkgDepInfoWithVersions <- traverse getDependencyVersions (fst <$> pkgDepInfo)
-        $logWarn $ show pkgDepInfoWithVersions
-        let depMetadata = zipWith formatDependencyInfo pkgDepInfo pkgDepInfoWithVersions 
+        let depMetadata = zipWith formatDependencyInfo pkgDepInfo $ filter (not . null) pkgDepInfoWithVersions 
         lift $
             fmap HM.fromList $
                 for depMetadata $ \(depId, title, v, isLocal) -> do