Use wrapper for uppercase_ascii. closes #379

savonet · Jan 9, 2017 · deaf607 · deaf607
1 parent 06adbac
commit deaf607
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/lang/builtins_harbor.ml b/src/lang/builtins_harbor.ml
@@ -31,7 +31,7 @@ end
 
 module Make(Harbor:T) =
 struct
-  let name_up = String.uppercase_ascii Harbor.name
+  let name_up = Utils.StringCompat.uppercase_ascii Harbor.name
   let () =
     Lang_builtins.add_builtin ("harbor." ^ Harbor.name ^ ".register") ~cat:Liq
       ~descr:(Printf.sprintf