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

cleanup capture-params-internally code

Browse source
This commit is contained in:
Nathan Marz 2015-09-12 13:16:58 -04:00
parent 93210092e9
commit 5e08fd199e
1 changed files with 8 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/com/rpl/specter/impl.cljc
View file

@ -292,25 +292,24 @@
(if-not (instance? CompiledPath path) (if-not (instance? CompiledPath path)
path path
(let [params (:params path) (let [params (:params path)
params-idx (:params-idx path)
selector (-> path :transform-fns :selector) selector (-> path :transform-fns :selector)
transformer (-> path :transform-fns :transformer)] transformer (-> path :transform-fns :transformer)]
(if (empty? params) (if (empty? params)
path path
(->CompiledPath (no-params-compiled-path
(->TransformFunctions (->TransformFunctions
RichPathExecutor RichPathExecutor
(fn [x-params params-idx vals structure next-fn] (fn [x-params x-params-idx vals structure next-fn]
(selector params 0 vals structure (selector params params-idx vals structure
(fn [_ _ vals-next structure-next] (fn [_ _ vals-next structure-next]
(next-fn x-params params-idx vals-next structure-next) (next-fn x-params x-params-idx vals-next structure-next)
))) )))
(fn [x-params params-idx vals structure next-fn] (fn [x-params x-params-idx vals structure next-fn]
(transformer params 0 vals structure (transformer params params-idx vals structure
(fn [_ _ vals-next structure-next] (fn [_ _ vals-next structure-next]
(next-fn x-params params-idx vals-next structure-next) (next-fn x-params x-params-idx vals-next structure-next)
)))) ))))
params
0
))))) )))))
(extend-protocol PathComposer (extend-protocol PathComposer
@ -598,4 +597,3 @@
(if (afn structure) (if (afn structure)
(next-fn structure) (next-fn structure)
structure)) structure))