updated to suit osx

This commit is contained in:
Eric Parsonage
2010-11-17 14:36:59 +00:00
committed by Felix Ruess
parent 60f4cc243d
commit 0b6eafdb37
+1 -1
View File
@@ -107,7 +107,7 @@ let run_and_monitor = fun ?(once = false) ?file gui log com_name com args ->
let (pi, out, unixfd, io_watch) = run_and_log log ("exec "^c) in
pid := pi;
outchan := unixfd;
let io_watch' = Glib.Io.add_watch [`HUP] (fun _ -> callback true;false) out in
let io_watch' = Glib.Io.add_watch [`HUP;`OUT] (fun _ -> callback true;false) out in
watches := [ io_watch; io_watch'] in
let remove_callback = fun () ->