sig
  val slot_spec :
    unit -> (Service_command.slot -> 'm, 'm) Core.Std.Command.Spec.t
  type main
  val main_spec :
    (foreground:bool -> Service_command.T.main, unit) Core.Std.Command.Spec.t
  val main : Service_command.slot -> Service_command.T.main
end