diff options
Diffstat (limited to 'Assistant/Types/NetMessager.hs')
-rw-r--r-- | Assistant/Types/NetMessager.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Assistant/Types/NetMessager.hs b/Assistant/Types/NetMessager.hs index cfcbe2aa3..525ff29f2 100644 --- a/Assistant/Types/NetMessager.hs +++ b/Assistant/Types/NetMessager.hs @@ -133,6 +133,9 @@ data NetMessager = NetMessager -- only one side of a push can be running at a time -- the TMVars are empty when nothing is running , netMessagerPushRunning :: SideMap (TMVar ClientID) + -- number of threads trying to push to the same client + -- at the same time (either running, or waiting to run) + , netMessagerPushThreadCount :: SideMap (TVar (M.Map ClientID Int)) -- incoming messages containing data for a push, -- on a per-client and per-side basis , netMessagesInboxes :: SideMap Inboxes @@ -146,3 +149,4 @@ newNetMessager = NetMessager <*> newEmptySV <*> mkSideMap newEmptyTMVar <*> mkSideMap (newTVar M.empty) + <*> mkSideMap (newTVar M.empty) |