From 9c123bbfa937413e759916f91cbc62e3966324c5 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Tue, 25 Nov 2025 14:26:39 +0000
Subject: [PATCH] Fix listing resource pool resources

---
 knots/resource-pool.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/knots/resource-pool.scm b/knots/resource-pool.scm
index f00e05b..2d96ed7 100644
--- a/knots/resource-pool.scm
+++ b/knots/resource-pool.scm
@@ -391,7 +391,7 @@
         (('list-resources reply)
          (spawn-fiber
           (lambda ()
-            (put-message reply (list-copy resources))))
+            (put-message reply (vector->list resources))))
 
          (loop available
                waiters))
@@ -967,7 +967,9 @@
         (('list-resources reply)
          (spawn-fiber
           (lambda ()
-            (put-message reply (list-copy resources))))
+            (put-message reply (hash-map->list
+                                (lambda (_ value) value)
+                                resources))))
 
          (loop next-resource-id
                available