Permalink
Browse files

[fix] compiler: The original name is not adequate since is not uniq

  • Loading branch information...
1 parent a4dfc0e commit 070e3a00546bf5738196dca7ff6cf3df45c332ae @BourgerieQuentin BourgerieQuentin committed Apr 12, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 libqmlcompil/qmlPrint.ml
View
@@ -747,7 +747,8 @@ let rec sexp_ty f = function
| Q.TypeSumSugar _ ->
assert false
| Q.TypeName (tyl,ident) ->
- Format.fprintf f "(N %s " (Q.TypeIdent.to_string ident);
+ Format.fprintf f "(N %s "
+ (try Ident.to_uniq_string ident with _ -> Q.TypeIdent.to_string ident);
List.iter (sexp_ty f) tyl;
Format.fprintf f ")"
| Q.TypeAbstract ->

0 comments on commit 070e3a0

Please sign in to comment.