Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
304 changes: 0 additions & 304 deletions logstash.ml

This file was deleted.

41 changes: 0 additions & 41 deletions logstash.mli

This file was deleted.

11 changes: 10 additions & 1 deletion nix.ml
Original file line number Diff line number Diff line change
Expand Up @@ -11,10 +11,19 @@ open ExtLib

let log = Log.from "nix"

let register_on_fork, call_on_fork =
let on_fork_li = ref [] in
begin fun on_fork ->
on_fork_li := on_fork :: !on_fork_li
end,
begin fun () ->
List.iter (fun f -> f ()) !on_fork_li
end

let fork () =
match Lwt_unix.fork () with
| -1 -> Exn.fail "failed to fork"
| 0 -> Random.self_init (); Pid.update (); `Child
| 0 -> Random.self_init (); call_on_fork (); `Child
| pid -> `Forked pid

(** fork off and die *)
Expand Down
Loading