Source file db_store.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
# 1 "sherlodoc/store/db_store.default.ml"
type db_format =
  [ `ancient
  | `marshal
  | `js
  ]

let available_backends = [ "marshal", `marshal; "js", `js ]

let storage_module = function
  | `marshal -> (module Storage_marshal : Db.Storage.S)
  | `js -> (module Storage_js : Db.Storage.S)
  | `ancient -> failwith "ancient is unsupported"