do not call regularly_call_fun twice as second call will overwrite the
first one...
This commit is contained in:
parent
3a9d5daf02
commit
f6ca371676
1 changed files with 5 additions and 3 deletions
|
|
@ -14,10 +14,12 @@ let update_online_user_state () =
|
|||
(fun _user_id state -> Some (Shared.State.auto_update state))
|
||||
User.state_ht
|
||||
|
||||
let to_repeat () =
|
||||
update_online_user_state ();
|
||||
update_offline_user_state ()
|
||||
|
||||
let () =
|
||||
regularly_call_fun update_online_user_state
|
||||
(Shared.Time.s_to_float Shared.State.auto_update_rate);
|
||||
regularly_call_fun update_offline_user_state
|
||||
regularly_call_fun to_repeat
|
||||
(Shared.Time.s_to_float Shared.State.auto_update_rate)
|
||||
|
||||
let () =
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue