From c375766f77eaa5893bb5ae93cfa70d91fd372022 Mon Sep 17 00:00:00 2001
From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Tue, 18 Jul 2017 15:26:48 +0200
Subject: [PATCH] String ==> Bytes to make recent ocaml compilers happy

---
 ocaml/parser.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ocaml/parser.ml b/ocaml/parser.ml
index 15c72bd..ea78009 100644
--- a/ocaml/parser.ml
+++ b/ocaml/parser.ml
@@ -29,10 +29,10 @@ let explode s =
 ;;
 
 let implode l =
-  let res = String.create (List.length l) in
+  let res = Bytes.create (List.length l) in
   let rec aux i = function
     | [] -> res
-    | c :: l -> res.[i] <- c; aux (i + 1) l in
+    | c :: l -> Bytes.set res i c; aux (i + 1) l in
   aux 0 l
 ;;
 
-- 
2.39.2