Source file seed_core.ml

1
2
3
4
type t = { name : string; description : string; fn : Core.Ctx.t -> unit Lwt.t }
[@@deriving fields, make]

let show seed = Printf.sprintf "%s - %s" seed.name seed.description