Merge pull request #7857 from NBKelly/ghost-trojans-work-on-remotes

mtgred · Nov 2, 2024 · f4e918c · f4e918c
2 parents 9b225ae + 483e700
commit f4e918c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/cljs/nr/gameboard/board.cljs b/src/cljs/nr/gameboard/board.cljs
@@ -1222,7 +1222,7 @@
 (defn- find-hosted-programs
   "finds all programs hosted on ice, and makes them have the 'ghost' key"
   [servers]
-  (let [servers (concat [(:archives @servers) (:rd @servers) (:hq @servers)] (get-remotes @servers))
+  (let [servers (concat [(:archives @servers) (:rd @servers) (:hq @servers)] (map second (get-remotes @servers)))
         ices (mapcat :ices servers)
         hosted (mapcat :hosted ices)
         hosted-programs (filter program? hosted)]