testing/ocaml-react/fix-safe-string.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

Fix for compatibility with ocaml >=4.06

Patch-Source: https://src.fedoraproject.org/rpms/ocaml-react/blob/f28/f/react-1.2.0-safe-string-fix.patch

--- a/test/breakout.ml
+++ b/test/breakout.ml
@@ -136,9 +136,9 @@
   let time, send_time = E.create ()
   let key, send_key = E.create ()
   let gather () =                               (* updates primitive events. *)
-    let c = " " in
+    let c = Bytes.of_string " " in
     let i = Unix.stdin in
-    let input_char i = ignore (Unix.read i c 0 1); c.[0] in
+    let input_char i = ignore (Unix.read i c 0 1); Bytes.get c 0 in
     let dt = 0.1 in
     while true do
       if Unix.select [i] [] [] dt = ([i], [], []) then send_key (input_char i);