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

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

diff --git a/src/Handler/Package/V1/Index.hs b/src/Handler/Package/V1/Index.hs
index 6418608..19c8fa4 100644
--- a/src/Handler/Package/V1/Index.hs
+++ b/src/Handler/Package/V1/Index.hs
@@ -78,7 +78,8 @@ 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
@@ -129,6 +131,8 @@ getPackageIndexR = do
     ram <- getRamQuery
     hardwareDevices <- getHardwareDevicesQuery
     communityVersion <- getsYesod $ communityVersion . appSettings
+    $logWarn $ "***COMMUNITY"
+    $logWarn $ show $ osPredicate communityVersion
     pkgIds <- getPkgIdsQuery
     category <- getCategoryQuery
     page <- fromMaybe 1 <$> getPageQuery