use name for signal instead of numerical value
This commit is contained in:
parent
17cb9ccc4a
commit
4374b1725e
@ -306,7 +306,7 @@ let may f = function
|
||||
|
||||
let init_signal () =
|
||||
let handler id = try Utils.exit id with _ -> () in
|
||||
ignore (Lwt_unix.on_signal 2 handler : Lwt_unix.signal_handler_id)
|
||||
ignore (Lwt_unix.on_signal Sys.sigint handler : Lwt_unix.signal_handler_id)
|
||||
|
||||
let main () =
|
||||
Random.self_init () ;
|
||||
|
Loading…
Reference in New Issue
Block a user