From 519dbe1ac2224479381cfbefb56edd6b3da389a0 Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Tue, 2 May 2023 10:35:53 -0500
Subject: [PATCH] Add debugging

---
 src/ZGoBackend.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index a983725..64a7709 100644
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@@ -1415,6 +1415,7 @@ expireProSessions :: Pipe -> T.Text -> IO ()
 expireProSessions pipe db = do
   now <- getCurrentTime
   psessions <- access pipe master db $ findExpiringProSessions now
+  print $ length psessions
   let pSessObj = cast' . Doc <$> psessions
   mapM_ (sendExpiration pipe db) pSessObj
   where