From b27b2701cf5e2c1b366e91dee06064ae6b652ea5 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Sat, 9 Jun 2018 12:18:12 +0200
Subject: [PATCH] Warning in OCaml

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

diff --git a/ocaml/TaskServer.ml b/ocaml/TaskServer.ml
index 9fa27d14..8f682eef 100644
--- a/ocaml/TaskServer.ml
+++ b/ocaml/TaskServer.ml
@@ -625,7 +625,7 @@ let get_data msg program_state rep_socket =
       let value = 
         match StringHashtbl.find program_state.data key with
         | Some value -> value
-        | None -> "\0"
+        | None -> String.make 1 (Char.of_int_exn 0)
       in
       Message.GetDataReply (Message.GetDataReply_msg.create ~value)
       |> Message.to_string_list