fix: query refresh button

This commit is contained in:
Tienson Qin
2022-08-15 13:38:10 +08:00
parent 5880e11350
commit 1fefe92433
2 changed files with 10 additions and 8 deletions

View File

@@ -116,13 +116,14 @@
(defn add-q!
[k query time inputs result-atom transform-fn query-fn inputs-fn]
(swap! query-state assoc k {:query query
:query-time time
:inputs inputs
:result result-atom
:transform-fn transform-fn
:query-fn query-fn
:inputs-fn inputs-fn})
(let [time' (int (util/safe-parse-float time))]
(swap! query-state assoc k {:query query
:query-time time'
:inputs inputs
:result result-atom
:transform-fn transform-fn
:query-fn query-fn
:inputs-fn inputs-fn}))
result-atom)
(defn remove-q!