From 3208e22ea89c459a5a7944ad8e82511d4a5328fa Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Tue, 16 Aug 2016 16:17:20 +0200 Subject: Added raw printing of types without formatting. This avoids introducing line breaks during printing of function types. Bug 18004 --- cparser/Elab.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'cparser/Elab.ml') diff --git a/cparser/Elab.ml b/cparser/Elab.ml index e3a0ef0c..52426014 100644 --- a/cparser/Elab.ml +++ b/cparser/Elab.ml @@ -42,8 +42,8 @@ let warning loc = let print_typ env fmt ty = match ty with | TNamed _ -> - Format.fprintf fmt "'%a' (aka '%a')" Cprint.typ ty Cprint.typ (Cutil.unroll env ty) - | _ -> Format.fprintf fmt "'%a'" Cprint.typ ty + Format.fprintf fmt "'%a' (aka '%a')" Cprint.typ_raw ty Cprint.typ_raw (Cutil.unroll env ty) + | _ -> Format.fprintf fmt "'%a'" Cprint.typ_raw ty (* Error reporting for Env functions *) -- cgit