Fix formatting issue for Easync in hept_printer.ml
This commit is contained in:
parent
fbad83a61d
commit
e9a718a868
1 changed files with 2 additions and 1 deletions
|
@ -207,7 +207,8 @@ and print_app ff (app, args) =
|
|||
fprintf ff "@[%a@,%a@,%a@]"
|
||||
print_qualname f print_params app.a_params print_exp_tuple args
|
||||
| Easync (f, ack) ->
|
||||
fprintf ff "@[async@,%a@,%a@,%a@,on@,%s@,%a@]"
|
||||
print_stateful ff true;
|
||||
fprintf ff "@[async %a@,%a@,%a on %s@,%a@]"
|
||||
print_qualname f
|
||||
print_params app.a_params
|
||||
print_exp_tuple args
|
||||
|
|
Loading…
Reference in a new issue