a408573

src/net/bowmap/core.clj modified (view file)

@@ -88,8 +88,9 @@                 ::packet-stream client-packet-stream}]     (-> (s/reduce #'handle-message client (alt-onto {:serverbound-packets (s/transform packet-framer-xf stream)                                                      :clientbound-packets client-packet-stream}))-        (d/catch (fn [e]-                   (println "Exception in client packets:\n" e))))))+        (d/catch+          (fn [e]+            (println "Exception in client packets:\n" e))))))  (defn start-server []   (server/start-server! {:handler #'client-handler