Hide that get_records are stored in a Hashtbl

Signed-off-by: Colin James <[email protected]>

ocaml/idl/ocaml_backend/gen_db_actions.ml

@@ -411,8 +411,7 @@ let db_action api : O.Module.t =
     O.Let.make ~name:"_" ~params:[] ~ty:"unit"
       ~body:
         [
-          Printf.sprintf "Hashtbl.add Eventgen.get_record_table \"%s\""
-            obj.DT.name
+          Printf.sprintf "Eventgen.set_get_record \"%s\"" obj.DT.name
         ; Printf.sprintf
             "(fun ~__context ~self -> (fun () -> API.rpc_of_%s_t \
              (%s.get_record ~__context ~self:(Ref.of_%sstring self))))"

ocaml/xapi/eventgen.ml

@@ -19,6 +19,8 @@ let get_record_table :
     (string, __context:Context.t -> self:string -> get_record) Hashtbl.t =
   Hashtbl.create 64
 
+let set_get_record = Hashtbl.replace get_record_table
+
 let find_get_record obj_name ~__context ~self () : Rpc.t option =
   Option.map
     (fun f -> f ~__context ~self ())

ocaml/xapi/eventgen.mli

@@ -12,14 +12,14 @@
  * GNU Lesser General Public License for more details.
  *)
 
-type get_record = unit -> Rpc.t
-
-val get_record_table :
-  (string, __context:Context.t -> self:string -> get_record) Hashtbl.t
-
 open Xapi_database.Db_cache_types
 
-val database_callback : update -> Database.t -> unit
+type get_record = unit -> Rpc.t
+
+val set_get_record :
+  string -> (__context:Context.t -> self:string -> get_record) -> unit
 
 val find_get_record :
   string -> __context:Context.t -> self:string -> unit -> Rpc.t option
+
+val database_callback : update -> Database.t -> unit