fix service name missing in ppx

OCamlPro · Oct 22, 2024 · 95c2b71 · 95c2b71
1 parent aede5f0
commit 95c2b71
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/ppx/ppx_common.ml b/src/ppx/ppx_common.ml
@@ -229,9 +229,12 @@ let service_expr ?name ?options ?(parse_options=true) ~meth ~loc p =
   match name with
   | None -> Location.raise_errorf ~loc "service doesn't have a name"
   | Some name ->
+    let options_name = match options.name.pexp_desc with
+      | Pexp_construct ({txt=Lident "None"; _}, _) -> [%expr Some [%e estring ~loc name]]
+      | _ -> options.name in
     let expr = pexp_apply ~loc (evar ~loc "EzAPI.raw_service") [
         Optional "section", options.section;
-        Optional "name", options.name;
+        Optional "name", options_name;
         Optional "descr", options.descr;
         Optional "params", options.params;
         Labelled "meth", meth;