 
 (.on g/socket "hash-not-found"
   (fn [upload-id file-hash]
-    (println "Hash not found for id:" upload-id)
     (let [file ((:file-hashes @g/app-state) file-hash)]
       (upload-file! file upload-id))))
 

(.on g/socket "sign-in-success"
  (fn [user-id users]
    (let [users (js->clj users)]
      (println users)
      (client/sign-in-success! g/app-state user-id users))))

(.on g/socket "user-joined"
  (fn [users]
    (let [users (js->clj users)]
      (println users)
      (client/user-joined! g/app-state users))))

(.on g/socket "sign-out"


(.on g/socket "start-hashing"
  (fn [client-id upload-id]
    (when-let [file ((:files-to-hash @g/app-state) client-id)]
      (swap! g/app-state
             assoc
