mirror of
https://gitlab.alpinelinux.org/alpine/aports.git
synced 2025-07-24 03:35:38 +03:00
18 lines
701 B
Diff
18 lines
701 B
Diff
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);
|