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 -> unit)
Core.Std.Command.Spec.t
val main : Service_command.slot -> Service_command.T.main
end