Add debugging

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