Module Tjr_fs_shared__Shared_freelist.Example

Simple example, with just a "min free" int, backed by a file; good intro to how the freelist actually works

type t = {
min_free : int;
last : int;
}
module On_disk : sig ... end
val delta : int
module With_filename : functor (S : sig ... end) -> sig ... end
val example : (Tjr_fs_shared.Shared_ctxt.r, Tjr_monad.With_lwt.lwt, t) freelist_factory