(cloud) implements plus for check printihng
This commit is contained in:
@@ -688,8 +688,7 @@
|
||||
(:db/id (pull-attr db k id)))
|
||||
|
||||
|
||||
(defn plus [db e a amount]
|
||||
[[:db/add e a (-> (dc/pull db [a] e) a (+ amount))]])
|
||||
|
||||
|
||||
#_(comment
|
||||
(dc/pull (dc/db conn) '[*] 175921860633685)
|
||||
|
||||
Reference in New Issue
Block a user