Support versions below 4.05

Signed-off-by: Antal Spector-Zabusky <[email protected]>
ocaml-ppx · Aug 10, 2023 · 95baecb · 95baecb
1 parent e748f50
commit 95baecb
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 4 deletions.
diff --git a/ast/cinaps/ast_cinaps_helpers.ml b/ast/cinaps/ast_cinaps_helpers.ml
@@ -3,6 +3,9 @@
 include StdLabels
 include Printf
 
+let capitalize_ascii = Stdppx.String.capitalize_ascii
+
+(* Reexports from [Astlib_cinaps_helpers] *)
 let nl = Astlib_cinaps_helpers.nl
 let qualified_types = Astlib_cinaps_helpers.qualified_types
 let foreach_module = Astlib_cinaps_helpers.foreach_module

diff --git a/ast/cinaps/dune b/ast/cinaps/dune
@@ -1,3 +1,3 @@
 (library
  (name ast_cinaps_helpers)
- (libraries supported_version astlib_cinaps_helpers))
+ (libraries stdppx supported_version astlib_cinaps_helpers))
diff --git a/ast/import.ml b/ast/import.ml
@@ -20,7 +20,7 @@ module Select_ast (Ocaml : Versions.OCaml_version) = struct
               \          : ( Js.Ast.Parsetree.%s,\n\
               \              Ocaml.Ast.Parsetree.%s )\n\
               \            t\n"
-              (String.capitalize_ascii s) s s
+              (capitalize_ascii s) s s
           )
       *)
       | Structure
@@ -115,7 +115,7 @@ module Select_ast (Ocaml : Versions.OCaml_version) = struct
       (*$ foreach_type (fun _ s ->
             printf
               "      | %s -> copy_%s\n"
-              (String.capitalize_ascii s) s
+              (capitalize_ascii s) s
           )
       *)
       | Structure -> copy_structure
@@ -151,7 +151,7 @@ module Select_ast (Ocaml : Versions.OCaml_version) = struct
       (*$ foreach_type (fun _ s ->
             printf
               "      | %s -> copy_%s\n"
-              (String.capitalize_ascii s) s
+              (capitalize_ascii s) s
           )
       *)
       | Structure -> copy_structure