removed dead code

This commit is contained in:
Nathan Marz 2015-09-12 14:15:17 -04:00
parent f89d76dbe4
commit 42befa556e

View file

@ -551,25 +551,6 @@
res
)))
(deftype ViewPath [view-fn])
(extend-protocol p/StructurePath
ViewPath
(select* [^ViewPath this structure next-fn]
(->> structure ((.-view-fn this)) next-fn))
(transform* [^ViewPath this structure next-fn]
(->> structure ((.-view-fn this)) next-fn)
))
(deftype PutValCollector [val])
(extend-protocol p/Collector
PutValCollector
(collect-val [^PutValCollector this structure]
(.-val this)
))
(extend-protocol p/StructurePath
nil
(select* [this structure next-fn]