diff options
| author | Graydon Hoare <[email protected]> | 2010-06-30 15:13:29 -0700 |
|---|---|---|
| committer | Graydon Hoare <[email protected]> | 2010-06-30 15:13:29 -0700 |
| commit | 4cd49c0ab01f67a896f3f24d591e1288364bd4a8 (patch) | |
| tree | 9c6b70b65913b0874587d007d48c9a2b336ebcfa /src/boot/fe | |
| parent | Fix recently-broken lval formatter. (diff) | |
| download | rust-4cd49c0ab01f67a896f3f24d591e1288364bd4a8.tar.xz rust-4cd49c0ab01f67a896f3f24d591e1288364bd4a8.zip | |
Improve logging in type.ml, give it indentation and per-statement context.
Diffstat (limited to 'src/boot/fe')
| -rw-r--r-- | src/boot/fe/ast.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/boot/fe/ast.ml b/src/boot/fe/ast.ml index b33db3a7..21726234 100644 --- a/src/boot/fe/ast.ml +++ b/src/boot/fe/ast.ml @@ -1346,11 +1346,13 @@ let sprintf_effect = sprintf_fmt fmt_effect;; let sprintf_tag = sprintf_fmt fmt_tag;; let sprintf_carg = sprintf_fmt fmt_carg;; let sprintf_constr = sprintf_fmt fmt_constr;; -let sprintf_stmt = sprintf_fmt fmt_stmt;; let sprintf_mod_items = sprintf_fmt fmt_mod_items;; let sprintf_decl_params = sprintf_fmt fmt_decl_params;; let sprintf_app_args = sprintf_fmt fmt_app_args;; +(* You probably want this one; stmt has a leading \n *) +let sprintf_stmt = sprintf_fmt fmt_stmt_body;; + (* * Local Variables: * fill-column: 78; |