 (defn new-session-id []
   (str (UUID/randomUUID)))
 
-(defrecord DatoServer [routing-table datomic-uri]  )
+(defrecord DatoServer [routing-table datomic-uri])
 
 (defn ?assign-id [handler dato-server]
   (fn [request]

            (?assign-id dato-server)
            (imw/wrap-session))
        {:path "/ws"
         :host "0.0.0.0"}))
    (setup-tx-report-ch (dconn @dato-server))
    (def stop-tx-broadcast-ch (start-tx-broadcast! dato-server tx-report-mult))))

                                 (assoc-in [:session :live :dato] dato-server)))]
      response)))

(defn validate-config [config]
  (assert (:server config) "config must have a server field")
  (assert (:port config) "config must have a port field"))

(defn start! [handler config]
  (def -config config)
  (validate-config config)
  (let [dato-server (:server config)]
    (def iw-handler
      (iw/run
