Use map for some interleaving of combine and join #125

This commit is contained in:
Sean Corfield 2020-06-26 21:31:28 -07:00
parent 469eb0959a
commit efa37ad84f

View file

@ -623,7 +623,7 @@
(recur (conj batch (realize rs-map)) tasks))
(#'r/fjinvoke
#(r/reduce combinef (combinef)
(mapv #'r/fjjoin (conj tasks (#'r/fjfork (chunk batch)))))))))
(map #'r/fjjoin (conj tasks (#'r/fjfork (chunk batch)))))))))
(reducef (combinef) {:next.jdbc/update-count (.getUpdateCount stmt)})))
(defn- stmt-sql->result-set
@ -678,7 +678,7 @@
(recur (conj batch (realize rs-map)) tasks))
(#'r/fjinvoke
#(r/reduce combinef (combinef)
(mapv #'r/fjjoin (conj tasks (#'r/fjfork (chunk batch)))))))))
(map #'r/fjjoin (conj tasks (#'r/fjfork (chunk batch)))))))))
(reducef (combinef) {:next.jdbc/update-count (.getUpdateCount stmt)})))
(extend-protocol p/Executable