 ;;; Public
 
 (defn hide-long-arrays
-  "Try to make pretty printing less obnoxious"
+  "Try to make pretty printing less obnoxious
+
+  By hiding the vectors that take up huge amounts of screen space"
   [state]
   (-> state
       (assoc-in [::current-client ::message] "...")

            (try
              ;; Q: Do I want unhandled exceptions to be fatal errors?
              (let [modified-state (handle-incoming! this msg)]
                (println "Updated state based on incoming msg:" (hide-long-arrays modified-state))
                modified-state)
              (catch clojure.lang.ExceptionInfo ex
                (println "handle-incoming! failed" ex (.getStackTrace ex))

        (fn [this]
          (if this
            (if-not (identical? this ::drained)
              ;; Weren't called to explicitly close
              (if-not (realized? stopper)
                (do
                  ;; The promise that tells us to stop hasn't
                  ;; been fulfillef
                  (println "curve.server/event-loop-bottom Rotating"
                           #_(util/pretty (hide-long-arrays this))
                           "...this...")
