# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1492115855 -7200
# Node ID 655837e9eeeba7a879b76347530a379ecd4b0990
# Parent  8ca11201bfe74906e17d588dd992926f1b0b7928
util.sql: Produce more SQL-standard-like debug messages

diff -r 8ca11201bfe7 -r 655837e9eeeb util/sql.lua
--- a/util/sql.lua	Thu Apr 13 01:29:35 2017 +0200
+++ b/util/sql.lua	Thu Apr 13 22:37:35 2017 +0200
@@ -161,7 +161,14 @@
 local function debugquery(where, sql, ...)
 	local i = 0; local a = {...}
 	sql = sql:gsub("\n?\t+", " ");
-	log("debug", "[%s] %s", where, sql:gsub("%?", function () i = i + 1; local v = a[i]; if type(v) == "string" then v = ("%q"):format(v); end return tostring(v); end));
+	log("debug", "[%s] %s", where, sql:gsub("%?", function ()
+		i = i + 1;
+		local v = a[i];
+		if type(v) == "string" then
+			v = ("'%s'"):format(v:gsub("'", "''"));
+		end
+		return tostring(v);
+	end));
 end
 
 function engine:execute_query(sql, ...)