Permalink
Browse files

[fix] compiler, database: dbset has two type args

  • Loading branch information...
1 parent dd5b146 commit 739ab1c731787c7c26ef8c696726738f61a3c6b7 @BourgerieQuentin BourgerieQuentin committed Mar 7, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 libqmlcompil/dbGen/schema_private.ml
@@ -1014,7 +1014,7 @@ let rec convert_dbpath ~context t gamma node kind path0 path =
let new_annots, (query, options) =
let ty =
match SchemaGraphLib.type_of_node node with
- | Q.TypeName ([setparam], name) when Q.TypeIdent.to_string name = "dbset" -> setparam
+ | Q.TypeName ([setparam; _], name) when Q.TypeIdent.to_string name = "dbset" -> setparam
| _ -> SchemaGraphLib.type_of_key t node
in
coerce_query_element ~context gamma ty (query, options)

0 comments on commit 739ab1c

Please sign in to comment.