diff options
| author | Pierre-Marie Pédrot | 2014-04-25 14:36:19 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-04-25 14:39:15 +0200 |
| commit | 38d2881dcd1917a93b202c16a55d57d51006ee88 (patch) | |
| tree | c3995446d077b16a55367e52af4d45013707b805 /lib/future.mli | |
| parent | b35edb34769fecd4dbdf7030222ba3078eab1c93 (diff) | |
Adding a debug printer for futures.
Diffstat (limited to 'lib/future.mli')
| -rw-r--r-- | lib/future.mli | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/future.mli b/lib/future.mli index 785b2df531..09d18ff269 100644 --- a/lib/future.mli +++ b/lib/future.mli @@ -143,9 +143,10 @@ val purify : ('a -> 'b) -> 'a -> 'b (* And also let a function alter the state but backtrack if it raises exn *) val transactify : ('a -> 'b) -> 'a -> 'b +(** Debug: print a computation given an inner printing function. *) +val print : ('a -> Pp.std_ppcmds) -> 'a computation -> Pp.std_ppcmds + (* These functions are needed to get rid of side effects. Thy are set for the outermos layer of the system, since they have to deal with the whole system state. *) val set_freeze : (unit -> Dyn.t) -> (Dyn.t -> unit) -> unit - - |