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


(.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 "hash-progress"
  (fn [upload-id user-id filename current-chunk chunks]
    (swap! g/app-state
           assoc
           :uploads
