Add LICENSE

[hcoop/smlsql.git] / sql_client.sml

diff --git a/sql_client.sml b/sql_client.sml
index ed6ea42..8f492e7 100644 (file)
--- a/sql_client.sml
+++ b/sql_client.sml
@@ -26,7 +26,7 @@ struct
 
     fun oneOrNoRows conn query =
        fold conn (fn (row, NONE) => SOME row
-                   | (_, SOME _) => raise Sql "Expected one or zero rows; got multiple") NONE query
+                   | (_, SOME _) => raise Sql ("Expected one or zero rows; got multiple for:\n" ^ query)) NONE query
 
     fun oneRow conn query =
        (case oneOrNoRows conn query of