Source file layout.ml

let toplevel name ~root = Filename.(concat root name)
let pack = toplevel "store.pack"
let branch = toplevel "store.branches"
let dict = toplevel "store.dict"
let stores ~root = [ pack ~root; branch ~root; dict ~root ]