From 289da2e13e07928cdb8a1d165483a3a3cd9ae1c6 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Tue, 12 Aug 2025 08:09:59 +0200
Subject: Remove fibers as suggested by Arun's patch:

=> https://cgit.git.savannah.gnu.org/cgit/guix/mumi.git/commit/?id=897967a84d3f51da2b1cc8c3ee942fd14f4c669b

After getting:

In procedure accept: Too many open files with GET /dataset/bxd-publish/values/23486.json
---
 gn/db/mysql.scm   | 1 +
 web/webserver.scm | 7 ++++---
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/gn/db/mysql.scm b/gn/db/mysql.scm
index ccd414a..0d7cd40 100644
--- a/gn/db/mysql.scm
+++ b/gn/db/mysql.scm
@@ -45,6 +45,7 @@
     ((stat . msg) (if (= stat 0)
                      #t
                      (begin
+                       (display "SQL Connection ERROR! ")
                        (display msg)
                        (newline)
                        (assert stat))))))
diff --git a/web/webserver.scm b/web/webserver.scm
index dae235a..e0b0ea6 100644
--- a/web/webserver.scm
+++ b/web/webserver.scm
@@ -17,7 +17,7 @@
              (web request)
              (web response)
              (web uri)
-             (fibers web server)
+             (web server)
              (gn cache memoize)
              (web gn-uri)
              (gn db sparql)
@@ -348,8 +348,9 @@ otherwise search for set/group data"
   ;; only way to update the handler reference held by the web server
   ;; would be to restart the web server.
   (run-server (cut handler <> <>)
-              #:addr (inet-pton AF_INET address)
-              #:port port))
+              'http
+              (list #:addr (inet-pton AF_INET address)
+                    #:port port)))
 
 (define (main args)
   (write (string-append "Starting Guile REST API " get-version " server!"))
-- 
cgit 1.4.1