     (when-not @shutdown
       (if-let [cmd (poll! ch)]
         (do
-         ;(println "CMD" cmd)
          (process-store cmd state peer-config))
         (LockSupport/parkNanos (* 10 1000000)))
       (recur))))

            [com.stuartsierra.component :as component]
            [onyx.peer.window-state :as ws]
            [onyx.state.protocol.db :as db]
            [taoensso.timbre :refer [fatal info]])
  (:import [java.util.concurrent.locks LockSupport]))



(defmulti process-store 
  (fn [[cmd] _ _]
    cmd)) 

; (defn drop-prior-db [st event]
