diff options
| author | Pjotr Prins | 2025-08-12 08:09:59 +0200 |
|---|---|---|
| committer | Pjotr Prins | 2025-08-12 08:09:59 +0200 |
| commit | 289da2e13e07928cdb8a1d165483a3a3cd9ae1c6 (patch) | |
| tree | a4824b5fc431f8159a8cd7f320284cdc1e554949 | |
| parent | 1cac4505039ff4e03e9cca75fc3b1a1d80b2d90b (diff) | |
| download | gn-guile-289da2e13e07928cdb8a1d165483a3a3cd9ae1c6.tar.gz | |
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
| -rw-r--r-- | gn/db/mysql.scm | 1 | ||||
| -rw-r--r-- | 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!")) |