luciano/specter
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix replace-in to work with value collection

Browse source
This commit is contained in:
Nathan Marz 2016-01-12 16:25:02 -05:00
parent 49c749b74e
commit b3b6b99e7a
2 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
CHANGES.md
View file

@ -3,6 +3,7 @@
* Better syntax checking for defpath * Better syntax checking for defpath
* Fixed bug in protocol paths (#48) * Fixed bug in protocol paths (#48)
* Protocol paths error when extension has invalid number of needed parameters * Protocol paths error when extension has invalid number of needed parameters
* Fix replace-in to work with value collection
## 0.9.1 ## 0.9.1
* Fixed reflection in protocol path code * Fixed reflection in protocol path code

6
src/clj/com/rpl/specter.cljx
View file

@ -103,15 +103,15 @@
[selector transform-fn structure & {:keys [merge-fn] :or {merge-fn concat}}] [selector transform-fn structure & {:keys [merge-fn] :or {merge-fn concat}}]
(let [state (i/mutable-cell nil)] (let [state (i/mutable-cell nil)]
[(compiled-transform selector [(compiled-transform selector
(fn [e] (fn [& args]
(let [res (transform-fn e)] (let [res (apply transform-fn args)]
(if res (if res
(let [[ret user-ret] res] (let [[ret user-ret] res]
(->> user-ret (->> user-ret
(merge-fn (i/get-cell state)) (merge-fn (i/get-cell state))
(i/set-cell! state)) (i/set-cell! state))
ret) ret)
e (last args)
))) )))
structure) structure)
(i/get-cell state)] (i/get-cell state)]