no Stdlib < 4.07

ocaml-ppx · Apr 21, 2020 · 6973351 · 6973351
1 parent 82f3720
commit 6973351
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/lib/Source.ml b/lib/Source.ml
@@ -18,7 +18,7 @@ let create s = s
 let rec substr_smaller_index t ~pattern =
   let pattern =
     if String.length pattern > String.length t then
-      Stdlib.String.sub pattern 0 (String.length t)
+      Caml.String.sub pattern 0 (String.length t)
     else pattern
   in
   match pattern with
@@ -28,8 +28,7 @@ let rec substr_smaller_index t ~pattern =
     | Some idx -> Some idx
     | None ->
         substr_smaller_index t
-          ~pattern:(Stdlib.String.sub pattern 0 (String.length pattern - 1))
-    )
+          ~pattern:(Caml.String.sub pattern 0 (String.length pattern - 1)) )
 
 let indentation_of_index t idx =
   if idx < 0 then None