Module Shape.Private

module Key_type : sig ... end
val abs_path : dir:Base.string -> Base.string -> Base.string
val help_screen_compare : Base.string -> Base.string -> Base.int
val lookup_expand : (Base.string * ('a * [ `Full_match_required | `Prefix ])) Base.list -> Base.string -> Key_type.t -> (Base.string * 'a, Base.string) Base.Result.t