Source file ser_future.ml

1
2
3
4
type 'a computation = 'a Future.computation

let computation_of_sexp f x = Future.from_val (f x)
let sexp_of_computation f x = f Future.(force x)