Use to_json rather than blindly quoting strings in where clause

diff --git a/pg_jsonb_delete_op.sql b/pg_jsonb_delete_op.sql
index 5d6473b7926b7599e33b8821f01ce8cf1f8e1ea5..86868ffe304ab0572ea0dc10e6f02b416bccdf2c 100755 (executable)
--- a/pg_jsonb_delete_op.sql
+++ b/pg_jsonb_delete_op.sql
@@ -12,7 +12,7 @@ $BODY$
         (
             SELECT ('{' || string_agg(to_json(key) || ':' || value, ',') || '}')
             FROM jsonb_each(a)
-            WHERE NOT ('{"' || key || '":' || value || '}')::jsonb ? b
+            WHERE NOT ('{' || to_json(key) || ':' || value || '}')::jsonb ? b
         )
     , '{}')::jsonb;
 $BODY$
@@ -31,7 +31,7 @@ $BODY$
         (
             SELECT ('{' || string_agg(to_json(key) || ':' || value, ',') || '}')
             FROM jsonb_each(a)
-            WHERE NOT ('{"' || key || '":' || value || '}')::jsonb ?| b
+            WHERE NOT ('{' || to_json(key) || ':' || value || '}')::jsonb ?| b
         )
     , '{}')::jsonb;
 $BODY$
@@ -50,7 +50,7 @@ $BODY$
         (
             SELECT ('{' || string_agg(to_json(key) || ':' || value, ',') || '}')
             FROM jsonb_each(a)
-            WHERE NOT ('{"' || key || '":' || value || '}')::jsonb <@ b
+            WHERE NOT ('{' || to_json(key) || ':' || value || '}')::jsonb <@ b
         )
     , '{}')::jsonb;
 $BODY$