do not call regularly_call_fun twice as second call will overwrite the

first one...
This commit is contained in:
zapashcanon 2023-01-08 04:22:28 +01:00
parent 3a9d5daf02
commit f6ca371676
No known key found for this signature in database
GPG key ID: 8981C3C62D1D28F1

View file

@ -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 () =