[dups.git] / lib / file.mli

module M = Metrics

type t =
  { path : string
  ; size : int
  }

val find : string -> t Stream.t
(** Find all files in the directory tree, starting from the given root path *)

val lookup : string Stream.t -> t Stream.t
(** Lookup file info for given paths *)

val head : t -> len:int -> metrics:M.t -> string

val filter_out_unique_sizes : t Stream.t -> metrics:M.t -> t Stream.t
val filter_out_unique_heads : t Stream.t -> len:int -> metrics:M.t -> t Stream.t
Commit	Line	Data
ddcbda00 SK	1	module M = Metrics
	2
	3	type t =
	4	{ path : string
	5	; size : int
	6	}
	7
	8	val find : string -> t Stream.t
	9	(** Find all files in the directory tree, starting from the given root path *)
	10
	11	val lookup : string Stream.t -> t Stream.t
	12	(** Lookup file info for given paths *)
	13
	14	val head : t -> len:int -> metrics:M.t -> string
	15
	16	val filter_out_unique_sizes : t Stream.t -> metrics:M.t -> t Stream.t
	17	val filter_out_unique_heads : t Stream.t -> len:int -> metrics:M.t -> t Stream.t