report published posts to statistics

2020-09-09 18:50:55 +02:00 · 2020-09-09 18:50:55 +02:00 · 85d10f6773
parent e3a8912360
commit 85d10f6773
1 changed files with 4 additions and 1 deletions
--- a/src/Hash2Pub/PostService.hs
+++ b/src/Hash2Pub/PostService.hs
@ -637,7 +637,10 @@ processIncomingPosts serv = forever $ do

    -- collect async results
    results <- mapM waitCatch runningJobs
-    -- TODO: statistics
+    -- report the count of published posts for statistics
+    atomically . writeTQueue (statsQueue serv) $ StatsEvent PostPublishEvent (length . rights $ results) 0    -- hashtag published to doesn't matter
+    pure ()
+


 -- | process the pending fetch jobs of delivered post IDs: Delivered posts are tried to be fetched from their URI-ID