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

Fix #205

This commit is contained in:
Jérémie Dimino 2017-04-26 08:41:43 +01:00
parent d9f198899b
commit e0b4e635c7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/lib/uTop_main.ml
View File

@ -420,7 +420,7 @@ type rewrite_rule = {
let longident_lwt_main_run = Longident.Ldot (Longident.Lident "Lwt_main", "run") let longident_lwt_main_run = Longident.Ldot (Longident.Lident "Lwt_main", "run")
let longident_async_thread_safe_block_on_async_exn = let longident_async_thread_safe_block_on_async_exn =
Longident.parse "Async.Std.Thread_safe.block_on_async_exn" Longident.parse "Async.Thread_safe.block_on_async_exn"
let longident_unit = Longident.Lident "()" let longident_unit = Longident.Lident "()"
#if OCAML_VERSION >= (4, 03, 0) #if OCAML_VERSION >= (4, 03, 0)
@ -444,10 +444,10 @@ let rewrite_rules = [
enabled = UTop.auto_run_lwt; enabled = UTop.auto_run_lwt;
}; };
(* Rewrite Async.Std.Defered.t expressions to (* Rewrite Async.Defered.t expressions to
Async.Std.Thread_safe.block_on_async_exn (fun () -> <expr>). *) Async.Thread_safe.block_on_async_exn (fun () -> <expr>). *)
{ {
type_to_rewrite = Longident.parse "Async.Std.Deferred.t"; type_to_rewrite = Longident.parse "Async.Deferred.t";
path_to_rewrite = None; path_to_rewrite = None;
required_values = [longident_async_thread_safe_block_on_async_exn]; required_values = [longident_async_thread_safe_block_on_async_exn];
rewrite = (fun loc e -> rewrite = (fun loc e ->