Permalink
Browse files

[fix] compiler, database: Don't follow allias if it's not needed by t…

…he selection
  • Loading branch information...
1 parent 8bd9167 commit 40c9b40835105b5ccd82f58f1d084eb236ba80a9 @BourgerieQuentin BourgerieQuentin committed Apr 11, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 libqmlcompil/qmlDbGen.ml
View
@@ -363,10 +363,10 @@ end
module Utils = struct
let rec type_of_selected gamma ty select =
- let ty = QmlTypesUtils.Inspect.follow_alias_noopt_private gamma ty in
let res = match select with
| DbAst.SNil | DbAst.SStar | DbAst.SSlice _ -> ty
| DbAst.SFlds sflds ->
+ let ty = QmlTypesUtils.Inspect.follow_alias_noopt_private gamma ty in
match ty with
| QmlAst.TypeRecord (QmlAst.TyRow (rflds, rv)) ->
QmlAst.TypeRecord

0 comments on commit 40c9b40

Please sign in to comment.