io_impl.ml
numalib
numalib.async
numalib.raw
numalib_raw_async
1 2 3 4 5 6 7 8 9 10 open Async type 'a t = 'a Deferred.t let return = Deferred.return let bind = Deferred.bind let map = Deferred.map let (>>=) = Deferred.(>>=) let (>>|) = Deferred.(>>|) let wrap f v = In_thread.run (fun () -> f v)
1 2 3 4 5 6 7 8 9 10
open Async type 'a t = 'a Deferred.t let return = Deferred.return let bind = Deferred.bind let map = Deferred.map let (>>=) = Deferred.(>>=) let (>>|) = Deferred.(>>|) let wrap f v = In_thread.run (fun () -> f v)