Fix string escaping

[hcoop/smlsql.git] / sql_client.sig

diff --git a/sql_client.sig b/sql_client.sig
index 9109f49..aa076f7 100644 (file)
--- a/sql_client.sig
+++ b/sql_client.sig
@@ -23,16 +23,16 @@ signature SQL_CLIENT =
 sig
     include SQL_DRIVER
 
-    val query : conn -> string -> string list list
+    val query : conn -> string -> value list list
     (* Get thr row results of an SQL query over a connection *)
 
-    val oneRow : conn -> string -> string list
+    val oneRow : conn -> string -> value list
     (* Make a query that must return exactly one row *)
-    val oneOrNoRows : conn -> string -> string list option
+    val oneOrNoRows : conn -> string -> value list option
     (* Make a query that may return zero or one row *)
 
-    val app : conn -> (string list -> unit) -> string -> unit
+    val app : conn -> (value list -> unit) -> string -> unit
     (* Behaves like List.app over the results of a query *)
-    val map : conn -> (string list -> 'a) -> string -> 'a list
+    val map : conn -> (value list -> 'a) -> string -> 'a list
     (* Behaves like List.map over the results of a query *)
 end