Skip to content
Browse files

[cleanup] Debug: Forgotten debug info when printing types.

  • Loading branch information...
1 parent e130710 commit a19251c2e175cf846e22d71606eda97edc238557 @fpessaux fpessaux committed Aug 8, 2011
Showing with 2 additions and 3 deletions.
  1. +2 −3 libqmlcompil/typer_w/w_PrintTypes.ml
View
5 libqmlcompil/typer_w/w_PrintTypes.ml
@@ -499,12 +499,11 @@ let rec __pp_simple_type prio ppf ty =
if prio >= 2 then Format.fprintf ppf ")@]"
else Format.fprintf ppf "@]"
| W_Algebra.SType_named { W_Algebra.nst_name = name ;
- W_Algebra.nst_abbrev_height = abb_height ;
W_Algebra.nst_args = args ;
W_Algebra.nst_unwinded = _manifest } ->
(* We never print the real representation of a named type. *)
- Format.fprintf ppf "%s$%d$@,"
- (QmlAst.TypeIdent.to_printable_string name) abb_height ;
+ Format.fprintf ppf "%s@,"
+ (QmlAst.TypeIdent.to_printable_string name) ;
(* Only if there are parameters to the type constructor, print them
separated by a comma and enclosed between parentheses. Since
arguments of the constructor are always enclosed by parens,

0 comments on commit a19251c

Please sign in to comment.
Something went wrong with that request. Please try again.