X-Git-Url: https://git.hcoop.net/hcoop/smlsql.git/blobdiff_plain/f147efc833ed466c187a55622be46fc67539f11d..69b0d5cf2a629b02a57a3777d02fdbf3654c416e:/sql_client.sml

diff --git a/sql_client.sml b/sql_client.sml
index ed6ea42..8f492e7 100644
--- 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