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