b2b1d9a
1 2 3 4 5 6 7 8 9 10 11 12
module type STORAGE = sig type t val write: t -> Conventions.Hash.t end module Storage: STORAGE = struct type t let write _ = failwith "TODO" end