diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-12-17 19:33:35 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-12-17 19:33:35 +0000 |
| commit | 572be25bcf29e5e4d0977bbdd661006bfbadd2cc (patch) | |
| tree | 2bc95e276e759fde01a589635b0f4897ad9f0f65 /guix-qa-frontpage/server.scm | |
| parent | e4799b81a9f9a986fc510390d84f2d05b7974656 (diff) | |
| download | qa-frontpage-572be25bcf29e5e4d0977bbdd661006bfbadd2cc.tar qa-frontpage-572be25bcf29e5e4d0977bbdd661006bfbadd2cc.tar.gz | |
Use Guile Knots
Rather than the build coordinator for fibers utilties.
Diffstat (limited to 'guix-qa-frontpage/server.scm')
| -rw-r--r-- | guix-qa-frontpage/server.scm | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index d67dd51..b222969 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -33,6 +33,7 @@ #:use-module (fibers scheduler) #:use-module (fibers conditions) #:use-module (guix store) + #:use-module (knots web-server) #:use-module ((guix build syscalls) #:select (set-thread-name)) #:use-module ((guix-data-service utils) @@ -42,9 +43,9 @@ #:select (parse-query-string)) #:use-module ((guix-build-coordinator utils) #:select (with-time-logging - call-with-delay-logging)) + call-with-delay-logging)) #:use-module ((guix-build-coordinator utils fibers) - #:select (run-server/patched call-with-sigint)) + #:select (call-with-sigint)) #:use-module (guix-qa-frontpage database) #:use-module (guix-qa-frontpage derivation-changes) #:use-module (guix-qa-frontpage reproducible-builds) @@ -910,9 +911,11 @@ has no patches or has been closed.") (iota (length schedulers)) schedulers)) - (run-server/patched - (lambda (request body) - (apply values (handler request body controller))) + (run-knots-web-server + (lambda (request) + (apply values (handler request + (read-request-body request) + controller))) #:host host #:port port) |