From 336e8fdb84e77f4105e9bbb5ab545b8729101308 Mon Sep 17 00:00:00 2001
From: Anton Lavrik <alavrik@piqi.org>
Date: Mon, 12 Feb 2018 22:23:18 -0800
Subject: [PATCH] Fix compilation with OCaml 4.06

---
 piqic-ocaml/piqic_common.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/piqic-ocaml/piqic_common.ml b/piqic-ocaml/piqic_common.ml
index f2c3f6c..b124cf4 100644
--- a/piqic-ocaml/piqic_common.ml
+++ b/piqic-ocaml/piqic_common.ml
@@ -139,7 +139,7 @@ module Util =
       then s
       else
         (* preserve the original string *)
-        let s = Bytes.copy s in
+        let s = Bytes.of_string s in
         for i = 0 to (Bytes.length s) - 1
         do
           if Bytes.get s i = x