24 lines
478 B
OCaml
24 lines
478 B
OCaml
open Stdune
|
|
|
|
module Name = struct
|
|
include Interned.Make(struct
|
|
let initial_size = 16
|
|
let resize_policy = Interned.Conservative
|
|
end)()
|
|
|
|
let of_string = make
|
|
|
|
let opam_fn (t : t) = to_string t ^ ".opam"
|
|
|
|
let pp fmt t = Format.pp_print_string fmt (to_string t)
|
|
end
|
|
|
|
|
|
type t =
|
|
{ name : Name.t
|
|
; path : Path.t
|
|
; version_from_opam_file : string option
|
|
}
|
|
|
|
let opam_file t = Path.relative t.path (Name.opam_fn t.name)
|