renaming some arguments for clarity

This commit is contained in:
Gered 2016-05-11 13:45:25 -04:00
parent 8aa0368494
commit 3bdf0868cf

View file

@ -317,9 +317,9 @@
;; messages sent from server to client are arrays ;; messages sent from server to client are arrays
;; the client acknowledges received arrays when creating a new backwardchannel ;; the client acknowledges received arrays when creating a new backwardchannel
(acknowledge-arrays [this array-ids]) (acknowledge-arrays [this array-id])
(queue-string [this string]) (queue-string [this json-string])
;; heartbeat is a timer to send noop over the backward channel ;; heartbeat is a timer to send noop over the backward channel
(clear-heartbeat [this]) (clear-heartbeat [this])
@ -451,8 +451,8 @@
(send-off session-agent close nil "Timed out")) (send-off session-agent close nil "Timed out"))
(:session-timeout-interval details)))))) (:session-timeout-interval details))))))
(queue-string [this string] (queue-string [this json-string]
(update-in this [:array-buffer] queue string)) (update-in this [:array-buffer] queue json-string))
(acknowledge-arrays [this array-id] (acknowledge-arrays [this array-id]
(let [array-id (Long/parseLong array-id)] (let [array-id (Long/parseLong array-id)]