layout.ml
index
index.unix
1 2 3 4 5 6 let toplevel ~root name = Filename.(concat (concat root "index") name) let log = toplevel "log" let log_async = toplevel "log_async" let data = toplevel "data" let lock = toplevel "lock" let merge = toplevel "merge"
1 2 3 4 5 6
let toplevel ~root name = Filename.(concat (concat root "index") name) let log = toplevel "log" let log_async = toplevel "log_async" let data = toplevel "data" let lock = toplevel "lock" let merge = toplevel "merge"