New ocaml-rpc

Signed-off-by: Jon Ludlam <[email protected]>

Author: jonludlam

networkd/network_server.ml

@@ -18,7 +18,7 @@ open Xapi_stdext_std
 open Xapi_stdext_unix
 open Xapi_stdext_monadic
 
-module S = Network_interface.Interface_API(Idl.GenServerExn ())
+module S = Network_interface.Interface_API(Idl.Exn.GenServer ())
 module D = Debug.Make(struct let name = "network_server" end)
 open D
 

networkd/networkd.ml

@@ -152,7 +152,7 @@ let _ =
   let server = Xcp_service.make
       ~path:!Network_interface.default_path
       ~queue_name:!Network_interface.queue_name
-      ~rpc_fn:(Idl.server Network_server.S.implementation)
+      ~rpc_fn:(Idl.Exn.server Network_server.S.implementation)
       () in
 
   Xcp_service.maybe_daemonize ~start_fn:(fun () ->