From c33b9827f4867c44408656f87780eac10e3452cc Mon Sep 17 00:00:00 2001
From: Thomas Heller <th.heller@gmail.com>
Date: Wed, 29 May 2024 18:07:21 +0200
Subject: [PATCH] UI fix active builds

---
 src/main/shadow/cljs/ui/components/dashboard.cljs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/main/shadow/cljs/ui/components/dashboard.cljs b/src/main/shadow/cljs/ui/components/dashboard.cljs
index 5076ce4e..6a04d83a 100644
--- 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)}