              {:uploads (merge (:uploads @app-state/app-state)
                               {upload-id new-upload})
               :inactive-uploads (prepend-upload (:inactive-uploads @app-state/app-state)
-                                                upload-id)}))))
+                                                upload-id)}))
+    (println @app-state/app-state)))
 
 


    (swap! app-state/app-state
           merge
           @app-state/app-state
           (if (< (count (:active-uploads @app-state/app-state))
                         (:upload-slots   @app-state/app-state))
             {:uploads (merge (:uploads @app-state/app-state)

  (let [new-uploads-info (handle-upload-slots-change old-state new-state)]
    (if-not (nil? new-uploads-info)
      (do
        (swap! app-state/app-state merge new-uploads-info)))))

(add-watch app-state/app-state :upload-slots  upload-slots-watch-fn!)

