diff options
Diffstat (limited to 'src/pretty_print.ml')
| -rw-r--r-- | src/pretty_print.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/pretty_print.ml b/src/pretty_print.ml index 2296dded..bc438eb2 100644 --- a/src/pretty_print.ml +++ b/src/pretty_print.ml @@ -1252,8 +1252,7 @@ let doc_def = function let doc_defs (Defs(defs)) = separate_map hardline doc_def defs -let print ?(len=80) formatter doc = - ToFormatter.pretty 1.0 len formatter doc +let print ?(len=80) channel doc = ToChannel.pretty 1. len channel doc let pp_defs f d = print f (doc_defs d) let pp_exp f e = print f (doc_exp e) |