Module `Shape.Private`

module Key_type : sig ... end

val abs_path : dir:Core_kernel__.Import.string -> Core_kernel__.Import.string -> Core_kernel__.Import.string
val help_screen_compare : Core_kernel__.Import.string -> Core_kernel__.Import.string -> Core_kernel__.Import.int
val lookup_expand : (Core_kernel__.Import.string * ('a * [ `Full_match_required | `Prefix ])) Core_kernel__.Import.list -> Core_kernel__.Import.string -> Key_type.t -> (Core_kernel__.Import.string * 'a, Core_kernel__.Import.string) Core_kernel__.Std_internal.result
val word_wrap : Core_kernel__.Import.string -> Core_kernel__.Import.int -> Core_kernel__.Import.string Core_kernel__.Import.list