Source file command_unix.ml

open! Core
module Path = Command.Private.Path

module For_unix = Command.Private.For_unix (struct
  module Pid = Pid
  module Signal = Signal
  module Thread = Core_thread

  module Unix = struct
    include Core_unix

    let unsafe_getenv = Sys_unix.unsafe_getenv
    let create_process_env = create_process_env ?setpgid:None
    let wait pid = ignore (wait (`Pid pid) : Pid.t * Exit_or_signal.t)
  end

  module Version_util = struct
    include Version_util
    module Time = Time_float_unix
  end
end)

let run = For_unix.run
let shape = For_unix.shape

module Deprecated = struct
  let run = For_unix.deprecated_run
end

module Shape = struct
  let help_text = For_unix.help_for_shape
end