From 123a9b2e830c2d43075b12625826caedf098a00a Mon Sep 17 00:00:00 2001
From: Lucy Cifferello <12953208+elvece@users.noreply.github.com>
Date: Tue, 16 Apr 2024 18:55:13 -0400
Subject: [PATCH] test log

---
 src/Handler/Admin.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Handler/Admin.hs b/src/Handler/Admin.hs
index bca1746..4d746e1 100644
--- a/src/Handler/Admin.hs
+++ b/src/Handler/Admin.hs
@@ -147,6 +147,7 @@ import Yesod.Core.Types (JSONResponse (JSONResponse))
 import Database.Persist.Sql (runSqlPool)
 import Database.Persist ((==.))
 import Network.HTTP.Types.Status (status401)
+import Control.Monad.Logger (logInfo)
 
 postPkgUploadR :: Handler ()
 postPkgUploadR = do
@@ -161,6 +162,7 @@ postPkgUploadR = do
                 name <- checkAdminAuthUpload packageManifestId
                 finishUpload dir path name PackageManifest{..}
             Just pkgId -> do
+                $logInfo $ "VALID: " <> show pkgId
                 name <- checkAdminAuthUpload pkgId
                 PackageManifest{..} <- extractPackageManifest dir path
                 if packageManifestId /= pkgId