diff options
Diffstat (limited to 'src/pretty_print.ml')
| -rw-r--r-- | src/pretty_print.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/pretty_print.ml b/src/pretty_print.ml index 478cbfb6..3ffc67b7 100644 --- a/src/pretty_print.ml +++ b/src/pretty_print.ml @@ -1498,11 +1498,11 @@ let doc_exp_ocaml, doc_let_ocaml = exp in_exp] | E_internal_plet (pat,e1,e2) -> - doc_op (string "in") - (prefix 2 1 - (separate space [string "letM"; doc_atomic_pat_ocaml pat; equals]) - (exp e1) - ) (exp e2) + (separate space [(exp e1); string ">>= fun"; doc_atomic_pat_ocaml pat;arrow]) ^/^ + exp e2 + + | E_internal_return (e1) -> + separate space [string "return"; exp e1;] and let_exp (LB_aux(lb,_)) = match lb with | LB_val_explicit(ts,pat,e) -> prefix 2 1 |