[MLton-commit] r5144

[Wesley Terpstra]

export a usable interface
----------------------------------------------------------------------

U   mltonlib/trunk/ca/terpstra/sqlite3/sql.sml
U   mltonlib/trunk/ca/terpstra/sqlite3/sqlite.mlb

----------------------------------------------------------------------

Modified: mltonlib/trunk/ca/terpstra/sqlite3/sql.sml
===================================================================
--- mltonlib/trunk/ca/terpstra/sqlite3/sql.sml	2007-02-06 02:44:02 UTC (rev 5143)
+++ mltonlib/trunk/ca/terpstra/sqlite3/sql.sml	2007-02-06 02:50:10 UTC (rev 5144)
@@ -47,6 +47,9 @@
          Foldr.foldr (([], outputEnds, inputEnds), 
                       fn (ql, oF, iF) => iF ((oF, db, concat (q::ql)), 1, fn _ => ()))
       
+      (* terminate an execution with this: *)
+      val $ = $
+      
       (* typecast a single column and set it up as an argument *)
       fun oFetch m s (q, i, f) = s (q, i+1, f (m (q, i)))
       fun oMap f = Foldr.step1 (fn (q, (ql, oF, iF)) => (q :: ql, oFetch f oF, iF))

Modified: mltonlib/trunk/ca/terpstra/sqlite3/sqlite.mlb
===================================================================
--- mltonlib/trunk/ca/terpstra/sqlite3/sqlite.mlb	2007-02-06 02:44:02 UTC (rev 5143)
+++ mltonlib/trunk/ca/terpstra/sqlite3/sqlite.mlb	2007-02-06 02:50:10 UTC (rev 5144)
@@ -9,6 +9,6 @@
       prim.sml
    end
    fold.sml
+in
    sql.sml
-in
 end