[fix] compiler, database: typo Db3 -> DbMongo

MLstate · Mar 7, 2012 · 642e932 · 642e932
1 parent da5b7ca
commit 642e932
Show file tree

Hide file tree

Showing 3 changed files with 15 additions and 8 deletions.
diff --git a/opa/pass_MongoAccessGeneration.ml b/opa/pass_MongoAccessGeneration.ml
@@ -570,7 +570,7 @@ module Generator = struct
                let setident = Ident.next "mongoset" in
                let annotmap, identset =
                  let tyset = OpaMapToIdent.specialized_typ ~ty:[ty]
-                   Api.Types.Db3Set.engine gamma in
+                   Api.Types.DbMongoSet.engine gamma in
                  C.ident annotmap setident tyset
                in
                let annotmap, iterator =
@@ -639,13 +639,13 @@ module Generator = struct
               string_path ~context gamma annotmap schema (kind, strpath)
         in
         match kind with
-            | DbAst.Ref | DbAst.Valpath ->
-                let annotmap, p2p =
-                  OpaMapToIdent.typed_val ~label
-                    ~ty:[QmlAstCons.Type.next_var (); node.DbSchema.ty]
-                    Api.Db.path_to_path annotmap gamma in
-                C.apply gamma annotmap p2p [mongopath]
-            | _ -> annotmap, mongopath
+        | DbAst.Ref | DbAst.Valpath ->
+            let annotmap, p2p =
+              OpaMapToIdent.typed_val ~label
+                ~ty:[QmlAstCons.Type.next_var (); node.DbSchema.ty]
+                Api.Db.path_to_path annotmap gamma in
+            C.apply gamma annotmap p2p [mongopath]
+        | _ -> annotmap, mongopath
       )
     | `db3 -> annotmap, Q.Path (label, dbpath, kind)
 

diff --git a/opacapi/opacapi.ml b/opacapi/opacapi.ml
@@ -395,6 +395,12 @@ struct
     let engine  = !! "engine"
   end
 
+  module DbMongoSet =
+  struct
+    let (!!) s = !! ("DbMongoSet." ^ s)
+    let engine  = !! "engine"
+  end
+
   module DbMongo =
   struct
     let (!!) s = !! ("DbMongo." ^ s)

diff --git a/stdlib/database/mongo/db.opa b/stdlib/database/mongo/db.opa
@@ -527,6 +527,7 @@ Then use option --db-remote instead of --db-local.
 
 
 @abstract
+@opacapi
 type DbMongoSet.engine('a) = { reply: Mongo.reply default : 'a}
 
 @opacapi