lib/StorageBackend.ml


1
2
3
4
5
6
7
8
9
10
11

module type T = sig
  val put: bytes -> string
  val get: string -> bytes option
end

module SQLite: T = struct
  let put (_value: bytes) =
    failwith "NOT IMPLEMENTED"
  let get (_hash: string) =
    failwith "NOT IMPLEMENTED"
end