Permalink
Browse files

[fix] database, mongo: typo on simple and constant path

  • Loading branch information...
1 parent e93bc89 commit f963c9842dc8c058f21a5fdb09c61a3f5a2d6ef9 @BourgerieQuentin BourgerieQuentin committed May 22, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 stdlib/database/mongo/db.opa
@@ -268,7 +268,7 @@ DbMongo = {{
uncap =
if const then (
rec uncap(doc:Bson.document) = match doc with
- | [{name = "data"; ~value}] -> some(value)
+ | [{name = "value"; ~value}] -> some(value)
| _ -> undotdoc(doc, uncap)
uncap
) else (
@@ -286,7 +286,7 @@ DbMongo = {{
selector = [{name = "_id"; value = {String = vpath.id}}]
tags = Bitwise.lor(0, MongoCommon.UpsertBit)
write(data:'data) =
- update = Bson.opa2doc({_id = vpath.id; data=data})
+ update = Bson.opa2doc({_id = vpath.id; value=data})
MongoDriver.update(db.db, tags, ns, selector, update)
remove() =
if not(MongoDriver.delete(db.db, 0, ns, selector)) then

0 comments on commit f963c98

Please sign in to comment.