about summary refs log tree commit diff
diff options
context:
space:
mode:
authorArun Isaac2026-07-03 16:35:58 +0100
committerArun Isaac2026-07-03 16:36:48 +0100
commit6f7c067ce10d36caa11fda720e74f8979ba76b7e (patch)
tree5a4e40f559c26790718ab0b501d6dcc1eaa37fe9
parentb4bfdd45c17b7fc558168f449819d7b61b9ceaa5 (diff)
downloadguix-forge-6f7c067ce10d36caa11fda720e74f8979ba76b7e.tar.gz
guix-forge-6f7c067ce10d36caa11fda720e74f8979ba76b7e.tar.lz
guix-forge-6f7c067ce10d36caa11fda720e74f8979ba76b7e.zip
gunicorn: Allow G-expressions in workers field.
-rw-r--r--guix/forge/gunicorn.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/guix/forge/gunicorn.scm b/guix/forge/gunicorn.scm
index 6fcbd72..de164e1 100644
--- a/guix/forge/gunicorn.scm
+++ b/guix/forge/gunicorn.scm
@@ -1,5 +1,5 @@
 ;;; guix-forge --- Guix software forge meta-service
-;;; Copyright © 2023–2025 Arun Isaac <arunisaac@systemreboot.net>
+;;; Copyright © 2023–2026 Arun Isaac <arunisaac@systemreboot.net>
 ;;; Copyright © 2024 Frederick M. Muriithi <fredmanglis@protonmail.com>
 ;;;
 ;;; This file is part of guix-forge.
@@ -151,7 +151,8 @@
             (provision (list (string->symbol name)))
             (requirement '(networking))
             (modules '((guix search-paths)
-                       (ice-9 match)))
+                       (ice-9 match)
+                       (ice-9 threads)))  ; for total-processor-count and others
             (start
              (let* ((app-manifest (packages->manifest
                                    ;; Using python-minimal in the
@@ -190,7 +191,7 @@
                               ;; network namespace. We can't do this yet due to
                               ;; https://yhetil.org/guix/m1ilknoi5r.fsf@fastmail.net/
                               #:namespaces (delq 'net %namespaces))
-                           "--workers" #$(number->string (gunicorn-app-workers app))
+                           "--workers" (number->string #$(gunicorn-app-workers app))
                            "--timeout" #$(number->string (gunicorn-app-timeout app))
                            (list #$@(append (append-map (lambda (socket)
                                                           (list "--bind"