Fix formatting issue for Easync in hept_printer.ml

This commit is contained in:
jeltz 2020-12-23 06:08:30 +01:00
parent fbad83a61d
commit e9a718a868
Signed by: jeltz
GPG key ID: 800882B66C0C3326

View file

@ -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