lib/sync.ml -rw-r--r-- 96 B
1let sync on_sync =
2 match on_sync with
3 | Some cmd -> Sys_unix.command_exn cmd
4 | None -> ()