Use future to put-all! events in out-sink

src/robertluo/waterfall/core.clj

@@ -1,15 +1,15 @@
 (ns ^:no-doc robertluo.waterfall.core
   "Core data structure"
   (:require [manifold.deferred :as d]
-            [manifold.stream :as ms] 
+            [manifold.stream :as ms]
             [robertluo.waterfall.util :as util]
             [clojure.core.match :refer [match]])
   (:import (java.time Duration)
            (java.util Map)
            (org.apache.kafka.clients.consumer Consumer ConsumerRecord KafkaConsumer)
            (org.apache.kafka.clients.producer
             KafkaProducer
-            Producer 
+            Producer
             ProducerRecord
             RecordMetadata)
            (org.apache.kafka.common.serialization ByteArrayDeserializer ByteArraySerializer)))
@@ -31,7 +31,7 @@
         sending (fn [x]
                   (let [{:keys [key value topic partition timestamp]} x]
                     (rmd->map @(.send prod (ProducerRecord. topic partition timestamp key value)))))]
-    (ms/on-closed strm #(.close prod)) 
+    (ms/on-closed strm #(.close prod))
     (ms/splice strm (ms/map sending strm))))
 
 ;--------------------
@@ -100,7 +100,7 @@
                   (cmd-self [::poll duration])) ; resume and poll
                 [::poll duration]
                 (let [putting-all (fn [events] ; function to handle events and resume
-                                    (d/chain (ms/put-all! out-sink events)
+                                    (d/chain (d/future (ms/put-all! out-sink events))
                                              #(when % (cmd-self [::resume duration]))))]
                   (ensure-sink
                    (if-let [events (->> (.poll consumer duration) (.iterator) (iterator-seq) (map cr->map) seq)]
@@ -113,20 +113,20 @@
 
 
 (defn consumer
-  [nodes group-id topics 
+  [nodes group-id topics
    {:keys [poll-duration position]
-    :as   conf 
+    :as   conf
     :or   {poll-duration (Duration/ofSeconds 10)}}]
   (let [conr (-> (dissoc conf :poll-duration :position) ;avoid kafka complaints
                  (merge {:bootstrap-servers nodes
                          :group-id group-id
                          :enable-auto-commit false})
                  util/->config-map
-                 (KafkaConsumer. (ByteArrayDeserializer.) (ByteArrayDeserializer.))) 
+                 (KafkaConsumer. (ByteArrayDeserializer.) (ByteArrayDeserializer.)))
         out-sink (ms/stream)
         actor (consumer-actor conr out-sink)]
     (actor [::subscribe topics])
     (when position (actor [::seek position]))
-    (ms/on-closed out-sink (fn [] @(actor [::close]))) 
+    (ms/on-closed out-sink (fn [] @(actor [::close])))
     (actor [::poll poll-duration])
     (ms/source-only out-sink)))