let add_value_hook () = Db.Value.Call_Value_Callbacks.extend call_for_users