avoid warning

mransan · Nov 25, 2023 · c1c8392 · c1c8392
1 parent 84d0dbd
commit c1c8392
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/compilerlib/pb_codegen_services.ml b/src/compilerlib/pb_codegen_services.ml
@@ -115,7 +115,9 @@ let gen_service_client_struct (service : Ot.service) sc : unit =
     let res, res_mode = ocaml_type_of_rpc_type rpc.rpc_res in
     F.linep sc "    () : (%s, %s, %s, %s) Client.rpc)" req req_mode res res_mode
   in
-  F.sub_scope sc (fun sc -> List.iter (gen_rpc sc) service.service_body);
+  F.sub_scope sc (fun sc ->
+      F.linep sc "open Pbrt_services";
+      List.iter (gen_rpc sc) service.service_body);
   F.line sc "end"
 
 let gen_service_server_struct (service : Ot.service) sc : unit =
@@ -183,7 +185,6 @@ let gen_service_server_struct (service : Ot.service) sc : unit =
 let gen_service_struct (service : Ot.service) sc : unit =
   F.linep sc "module %s = struct" (mod_name_for_client service);
   F.sub_scope sc (fun sc ->
-      F.linep sc "open Pbrt_services";
       F.linep sc "open Pbrt_services.Value_mode";
 
       gen_service_client_struct service sc;