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