keep namespace and quote unprepared statement keys

mpenet · Sep 11, 2022 · 541669a · 541669a
1 parent a9c1f2d
commit 541669a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/modules/alia/src/qbits/alia.clj b/modules/alia/src/qbits/alia.clj
@@ -118,7 +118,8 @@
         (SimpleStatement/newInstance
          q
          ^Map (reduce-kv (fn [m k v]
-                           (assoc m (name k) (encode v)))
+                           (assoc m (format "\"%s\"" (if (keyword? k) (.-sym ^clojure.lang.Keyword k) k))
+                                  (encode v)))
                          {}
                          values))