Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[fix] compiler, database, mongo: Set without queries was broken, Cred…

…it:Bug reported by Owen Gunden <ogunden () phauna org>
  • Loading branch information...
commit fa8caffff661dc7c66da66cb8c5983827512c33c 1 parent bbea326
@BourgerieQuentin BourgerieQuentin authored
Showing with 8 additions and 2 deletions.
  1. +7 −1 libqmlcompil/qmlDbGen.ml
  2. +1 −1  opa/pass_MongoAccessGeneration.ml
View
8 libqmlcompil/qmlDbGen.ml
@@ -311,7 +311,13 @@ module Schema = struct
SetAccess (k, List.rev path, query)
| Plain -> Plain
in
- let default = fun annotmap ->
+ let default =
+ let node =
+ match kind with
+ | SetAccess (_, _, None) -> SchemaGraphLib.SchemaGraph.unique_next llschema node
+ | _ -> node
+ in
+ fun annotmap ->
let (annotmap2, expr) =
DbGen_private.Default.expr
annotmap
View
2  opa/pass_MongoAccessGeneration.ml
@@ -456,7 +456,7 @@ module Generator = struct
let annotmap, skip, limit, query, order, uniq =
match query0 with
| None ->
- let annotmap, limit = C.int annotmap 1 in
+ let annotmap, limit = C.int annotmap 0 in
let annotmap, skip = C.int annotmap 0 in
annotmap, skip, limit, None, None, false
| Some ((uniq, (query, opt)) as _x) ->
Please sign in to comment.
Something went wrong with that request. Please try again.