schmittlauch/Hash2Pub
1
0
Fork 1
Code Issues 47 Pull requests Releases Wiki Activity

report published posts to statistics

Browse source
This commit is contained in:
Trolli Schmittlauch 2020-09-09 18:50:55 +02:00
parent e3a8912360
commit 85d10f6773
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Hash2Pub/PostService.hs
View file

@ -637,7 +637,10 @@ processIncomingPosts serv = forever $ do
-- collect async results -- collect async results
results <- mapM waitCatch runningJobs 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 -- | process the pending fetch jobs of delivered post IDs: Delivered posts are tried to be fetched from their URI-ID