Permalink
Browse files

[fix] compiler, db3: Db3 selection of dbset childs reader

  • Loading branch information...
1 parent e337a3b commit bbea326d65f7bbbbda9fd77180c12aefe3191fe8 @BourgerieQuentin BourgerieQuentin committed Mar 2, 2012
Showing with 2 additions and 0 deletions.
  1. +2 −0 libqmlcompil/dbGen/dbGen_private.ml
View
2 libqmlcompil/dbGen/dbGen_private.ml
@@ -713,6 +713,7 @@ module CodeGenerator ( Arg : DbGenByPass.S ) = struct
(* The dbset reader is the reader that read a child node *)
let reader =
let child = SchemaGraph.unique_next sch node in
+ let child = {child with C.ty = C.Db.set ty} in
match Idents.get_reader idents child with
| None -> OManager.i_error "Child reader of a dbset not found"
| Some reader -> reader @: Type.reader child in
@@ -873,6 +874,7 @@ module CodeGenerator ( Arg : DbGenByPass.S ) = struct
(* The dbset writer is the child writer *)
let writer =
let child = SchemaGraph.unique_next sch node in
+ let child = {child with C.ty = C.Db.set ty} in
match Idents.get_writer idents child with
| None -> OManager.i_error "Child writer of a dbset not found"
| Some writer -> writer @: Type.writer child in

0 comments on commit bbea326

Please sign in to comment.