10 lines
278 B
OCaml
10 lines
278 B
OCaml
|
let git_daemon_exists () =
|
||
|
|
match Unix.create_process "git" [| "git"; "daemon" |] Unix.stdin Unix.stdout Unix.stderr with
|
||
|
|
| pid ->
|
||
|
|
Unix.kill pid Sys.sigint ; true
|
||
|
|
| exception Unix.Unix_error _ -> false
|
||
|
|
|
||
|
|
let () =
|
||
|
|
let v = git_daemon_exists () in
|
||
|
|
Format.printf "%b" v
|