From 3550120641c3b8d84290dc950e717aaf099775f9 Mon Sep 17 00:00:00 2001
From: Pierre Letouzey
Date: Tue, 7 Feb 2017 23:28:36 +0100
Subject: Revert "Extraction: avoid deprecated functions of module String"

This reverts commit 69c4e7cfa0271f024b2178082e4be2e3ca3be263.

String.capitalize_ascii are only available for ocaml >= 4.03, sorry...
---
 plugins/extraction/table.ml | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'plugins/extraction/table.ml')

diff --git a/plugins/extraction/table.ml b/plugins/extraction/table.ml
index a8d49ffda5..5e7d810c93 100644
--- a/plugins/extraction/table.ml
+++ b/plugins/extraction/table.ml
@@ -55,7 +55,7 @@ let is_modfile = function
   | _ -> false
 
 let raw_string_of_modfile = function
-  | MPfile f -> String.capitalize_ascii (Id.to_string (List.hd (DirPath.repr f)))
+  | MPfile f -> String.capitalize (Id.to_string (List.hd (DirPath.repr f)))
   | _ -> assert false
 
 let is_toplevel mp =
@@ -773,14 +773,13 @@ let file_of_modfile mp =
     | MPfile f -> Id.to_string (List.hd (DirPath.repr f))
     | _ -> assert false
   in
-  let s = Bytes.of_string (string_of_modfile mp) in
-  let () = Bytes.set s 0 (s0.[0]) in
-  Bytes.to_string s
+  let s = String.copy (string_of_modfile mp) in
+  if s.[0] != s0.[0] then s.[0] <- s0.[0];
+  s
 
 let add_blacklist_entries l =
   blacklist_table :=
-    List.fold_right
-      (fun s -> Id.Set.add (Id.of_string (String.capitalize_ascii s)))
+    List.fold_right (fun s -> Id.Set.add (Id.of_string (String.capitalize s)))
       l !blacklist_table
 
 (* Registration of operations for rollback. *)
-- 
cgit v1.2.3