don't trigger on-sent event if the delivered array is empty

This commit is contained in:
Gered 2016-05-09 13:22:35 -04:00
parent 36665bc123
commit 1eda612d0c

View file

@ -116,7 +116,9 @@
(set! (.-channelSuccess handler)
(fn [ch delivered]
(if on-sent
(on-sent (decode-queued-map-array delivered)))
(let [decoded (decode-queued-map-array delivered)]
(if (seq decoded)
(on-sent decoded))))
(doseq [m delivered]
(let [{:keys [on-success] :as context} (aget m "context")]
(if on-success