Vergara_Tech/zgo-backend
Vergara_Tech/zgo-backend
2
1
Fork 0
Code Issues Pull requests Projects Releases 4 Packages Wiki Activity

Add debugging

Browse source
This commit is contained in:
Rene Vergara 2023-05-02 10:35:53 -05:00
parent b2fab07eb8
commit 519dbe1ac2
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/ZGoBackend.hs
View file

@ -1415,6 +1415,7 @@ expireProSessions :: Pipe -> T.Text -> IO ()
expireProSessions pipe db = do expireProSessions pipe db = do
now <- getCurrentTime now <- getCurrentTime
psessions <- access pipe master db $ findExpiringProSessions now psessions <- access pipe master db $ findExpiringProSessions now
print $ length psessions
let pSessObj = cast' . Doc <$> psessions let pSessObj = cast' . Doc <$> psessions
mapM_ (sendExpiration pipe db) pSessObj mapM_ (sendExpiration pipe db) pSessObj
where where