Fix pretty printer line breaks at toplevel

This commit is contained in:
Théophile Bastian 2018-02-15 22:28:26 +01:00
parent 324e32c15e
commit 38148932f7

View file

@ -23,4 +23,4 @@ and fmt_term fmt (t: S.term) = match t with
fmt_var var fmt_block block fmt_term next
let show term =
Format.asprintf "%a" fmt_term term
Format.asprintf "@[<v 0>%a@]" fmt_term term