sig
val slot_spec :
unit -> (Core_service_command.slot -> 'm, 'm) Core_command.Spec.t
type main
val main_spec :
(foreground:bool -> Core_service_command.T.main, unit)
Core_command.Spec.t
val main : Core_service_command.slot -> Core_service_command.T.main
end