fix for old ocaml (see #5174)

HaxeFoundation · May 1, 2016 · 20d8a79 · 20d8a79
1 parent d3b5eaa
commit 20d8a79
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/main.ml b/src/main.ml
@@ -946,10 +946,10 @@ and init_wait_stdio() =
 		let len = IO.read_i32 chin in
 		IO.really_nread chin len
 	in
-	let write = Buffer.add_bytes berr in
+	let write = Buffer.add_string berr in
 	let close = fun() ->
 		IO.write_i32 cherr (Buffer.length berr);
-		IO.nwrite cherr (Buffer.to_bytes berr);
+		IO.nwrite cherr (Buffer.contents berr);
 		IO.flush cherr
 	in
 	fun() ->