fix: rtc issues

src/main/frontend/db/rtc/debug_ui.cljs

@@ -38,8 +38,8 @@
                              (let [repo (state/get-current-repo)
                                    ^object worker @db-browser/*worker]
                                (p/let [result (.rtc-get-debug-state worker repo)
-                                       debug-state (bean/->clj result)]
-                                 (swap! debug-state (fn [old] (merge old debug-state)))))))
+                                       new-state (bean/->clj result)]
+                                 (swap! debug-state (fn [old] (merge old new-state)))))))
       (ui/button "graph-list"
                  :icon "refresh"
                  :on-click (fn [_]

src/main/frontend/worker/rtc/core.cljs

@@ -827,8 +827,8 @@
             (if ex-message
               (do
                 (prn ::<get-block-content-versions :ex-message ex-message :ex-data ex-data)
-                (p/resolve! nil))
-              (p/resolve! (bean/->js versions)))))))
+                (p/resolve! d nil))
+              (p/resolve! d (bean/->js versions)))))))
     d))
 
 
@@ -911,7 +911,8 @@
                         (<! (ws/<send! state {:req-id (get-req-id)
                                               :action "list-graphs"}))
                         (:graphs (<! (get-result-ch))))]
-       (p/resolve! (bean/->js graph-list))))
+       (prn :debug :graph-list graph-list)
+       (p/resolve! d (bean/->js graph-list))))
     d))
 
 (add-watch *state :notify-main-thread

src/main/frontend/worker/rtc/ws.cljs

@@ -21,7 +21,9 @@
                              (let [data (js->clj (js/JSON.parse (.-data e)) :keywordize-keys true)]
                                (offer! data-from-ws-chan data))))
 
-    (set! (.-onclose ws) (fn [_e] (println :ws-stopped)))
+    (set! (.-onclose ws) (fn [e]
+                           (println :ws-stopped)
+                           (js/console.error e)))
     ws))
 
 (defn send!