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

report incoming relay posts to statistics

Browse source
This commit is contained in:
Trolli Schmittlauch 2020-09-09 19:25:48 +02:00
parent 85d10f6773
commit 620e998876
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Hash2Pub/PostService.hs
View file

@ -185,8 +185,10 @@ relayInbox serv tag posts = do
-- if noone subscribed to the tag, nothing needs to be done -- if noone subscribed to the tag, nothing needs to be done
(pure ()) (pure ())
-- otherwise enqueue posts into broadcast queue of the tag -- otherwise enqueue posts into broadcast queue of the tag
(\queue -> (\queue -> do
liftIO $ forM_ postIDs (atomically . writeTChan queue) liftIO $ forM_ postIDs (atomically . writeTChan queue)
-- report the received post for statistic purposes
liftIO . atomically . writeTQueue (statsQueue serv) $ StatsEvent RelayReceiveEvent (length postIDs) (hashtagToId tag)
) )
broadcastChan broadcastChan
pure NoContent pure NoContent