1 files changed, 18 insertions, 0 deletions
diff --git a/testing/ocaml-react/fix-safe-string.patch b/testing/ocaml-react/fix-safe-string.patch
new file mode 100644
index 0000000000..5a9ee3e2a5
--- /dev/null
+++ b/testing/ocaml-react/fix-safe-string.patch
@@ -0,0 +1,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);