let
put db k v =
In_thread
.run (
fun
()
->
LevelDB
.put db k (
Sexp
.to_string (sexp_of_t v)))