UI fix active builds

thheller · May 29, 2024 · c33b982 · c33b982
1 parent f78a265
commit c33b982
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/main/shadow/cljs/ui/components/dashboard.cljs b/src/main/shadow/cljs/ui/components/dashboard.cljs
@@ -71,9 +71,15 @@
          (card-title "Active HTTP Servers")
          (sg/simple-seq http-servers ui-http-server)])))
 
+(defn ?active-builds [env]
+  (->> (::m/build env)
+       (vals)
+       (filter ::m/build-worker-active)
+       (mapv ::m/build-id)))
+
 (defc ui-active-builds []
   (bind active-builds
-    (sg/kv-lookup ::m/ui ::m/active-builds))
+    (sg/query ?active-builds))
 
   (render
     (<< [:div {:class (css :bg-white :shadow :mb-4)}