diff options
| author | Gabriel Kerneis | 2014-05-15 14:10:24 +0100 |
|---|---|---|
| committer | Gabriel Kerneis | 2014-05-15 14:10:24 +0100 |
| commit | 952038a6be7a267fb8440d055e2f2ff299f782e4 (patch) | |
| tree | bb8205c56a23f1b306ba96aabf1bcd26c73a307e /src/pretty_print.ml | |
| parent | 98a61ad83f968d856d4f86ca32fcca8010a44f6f (diff) | |
Pretty-print to stdout rather than Format.stdout_formatter
PPrint.ToFormatter is either broken, or I do not know how to use
it properly. Switching to ToChannel solves the issue nicely.
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) |