haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

update definition of Deferred.t 

It is now Async_kernel.Deferred0.t.

Fixes #137
This commit is contained in:
Jeremie Dimino 2015-08-17 10:19:28 +01:00
parent d1419acbb7
commit 2a8762c0f7
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/lib/uTop_main.cppo.ml
View File

@ -478,8 +478,15 @@ let () =
); );
enabled = UTop.auto_run_async; enabled = UTop.auto_run_async;
} in } in
Hashtbl.add rewrite_rules (Longident.parse "Async_core.Ivar.Deferred.t") rule; let deferred_aliases =
Hashtbl.add rewrite_rules (Longident.parse "Async_kernel.Ivar.Deferred.t") rule [ "Async_core.Ivar.Deferred.t"
; "Async_kernel.Ivar.Deferred.t"
; "Async_kernel.Deferred0.t"
]
in
List.iter (fun s ->
Hashtbl.add rewrite_rules (Longident.parse s) rule)
deferred_aliases
(* Returns whether the argument is a toplevel expression. *) (* Returns whether the argument is a toplevel expression. *)
let is_eval = function let is_eval = function