default query for query logging

4 years ago · 6ab50078b9
parent 8de7b1505b
commit 6ab50078b9
1 changed files with 2 additions and 2 deletions
--- a/src/wanijo/infrastructure/neo4j.clj
+++ b/src/wanijo/infrastructure/neo4j.clj
@ -36,7 +36,7 @@
  (str (UUID/randomUUID)))

 (defn butiful-query [qry]
-  (->> (get @query-strings (hash qry))
+  (->> (get @query-strings (hash qry) "unknown query")
       str
       cljs/trim-newline
       cljs/split-lines
@ -46,7 +46,7 @@

 (defn exec-query! [qry params]
  (with-open [session (db/get-session @conn)]
-    (let [query-string (get @query-strings (hash qry))
+    (let [query-string (get @query-strings (hash qry) "unknown query")
          query-string (-> query-string
                           (cljs/replace #"\n" "")
                           (cljs/replace #"\s+" " "))