From 6e0bf7f5a3070c783ac56f4d005d83b3830aaeb8 Mon Sep 17 00:00:00 2001 From: Jakub Jirutka Date: Sat, 10 Mar 2018 01:46:45 +0100 Subject: testing/ocaml-react: rebuild with ocaml 4.06.1, fix depends --- testing/ocaml-react/fix-safe-string.patch | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 testing/ocaml-react/fix-safe-string.patch (limited to 'testing/ocaml-react/fix-safe-string.patch') 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); -- cgit v1.2.3