Module supporting interface to file-system -- stat, digest, glob. Services: Digest caching & inotify wrapping (as hearts).
module Ocaml_digest : sig ... endmodule Digest = Db.Digestmodule Kind = Db.Kindmodule Glob : sig ... endmodule Listing = Db.Listingval create : Config.t ‑> Persist.t ‑> t Async.Deferred.tmodule Contents_result : sig ... endmodule Digest_result : sig ... endmodule Listing_result : sig ... endval contents_file : t ‑> file:Path.t ‑> Contents_result.t Tenacious.tval digest_file : t ‑> file:Path.t ‑> Digest_result.t Tenacious.tval list_glob : t ‑> Glob.t ‑> Listing_result.t Core.Or_error.t Tenacious.tval ensure_directory : t ‑> mkdir_root:Path.Rel.t option ‑> dir:Path.Rel.t ‑> unit Core.Or_error.t Tenacious.tThis function either checks the directory exists if mkdir_root is None, or creates
all the directories between mkdir_root and dir (mkdir_root must be a non-strict
ancestor of dir).
val lock_targets_and_mask_updates : t ‑> targets:Path.Rel.t list ‑> (unit ‑> 'a Async.Deferred.t) ‑> 'a Async.Deferred.tLocks targets for writing and masks the corresponding 'file changed' messages
module Mtime : sig ... endval mtime_file : t ‑> file:Path.t ‑> Mtime.t option Tenacious.tval mtime_files_right_now : Path.t list ‑> ((Path.t * Mtime.t) list, string) Core.Result.t Async.Deferred.t