Fix #205
This commit is contained in:
parent
d9f198899b
commit
e0b4e635c7
|
@ -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 ->
|
||||||
|
|
Loading…
Reference in New Issue