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

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

diff --git a/src/Handler/Package/V1/Index.hs b/src/Handler/Package/V1/Index.hs
index 1141c7d..e644082 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 (
@@ -97,6 +98,7 @@ import Yesod (getRequest)
 import Data.List (last)
 import Data.Text (isPrefixOf)
 import Startlude (length)
+import Control.Monad.Logger (logWarn)
 
 data PackageReq = PackageReq
     { packageReqId :: !PkgId
@@ -218,6 +220,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 
         lift $
             fmap HM.fromList $