Changed to use new smlsql interface

[bpt/portal.git] / init.sig

diff --git a/init.sig b/init.sig
index 4746bf2..08c29dd 100644 (file)
--- a/init.sig
+++ b/init.sig
@@ -5,13 +5,15 @@ signature INIT = sig
 
     type user = {id : int, name : string, rname : string, bal : int, joined : C.timestamp}
 
-    val mkUserRow : string list -> user
+    val rowError : string * C.value list -> 'a
+
+    val mkUserRow : C.value list -> user
 
     (* Open or close a session, wrapped in a transaction *)
     val init : unit -> unit
     val done : unit -> unit
 
-    val nextSeq : C.conn * string -> string
+    val nextSeq : C.conn * string -> int
 
     (* Fun with users *)