1
2
3
4
5
6
7
8
9
10
11
12
13
# 1 "sherlodoc/store/db_store.with_ancient.ml"
type db_format =
[ `ancient
| `marshal
| `js
]
let available_backends = [ "ancient", `ancient; "marshal", `marshal; "js", `js ]
let storage_module = function
| `ancient -> (module Storage_ancient : Db.Storage.S)
| `marshal -> (module Storage_marshal : Db.Storage.S)
| `js -> (module Storage_js : Db.Storage.S)