diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-04-13 12:37:05 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-04-13 12:37:05 +0100 |
| commit | 2d2ae5b6b01081f35ad2fc25affdef8c876b48e6 (patch) | |
| tree | a96781203e7379dabedac63dea0f154095826679 /guix-build-coordinator/agent-messaging | |
| parent | d9f49689ddbbbc4c26396e8d2d42edd84f4d349e (diff) | |
| download | build-coordinator-2d2ae5b6b01081f35ad2fc25affdef8c876b48e6.tar build-coordinator-2d2ae5b6b01081f35ad2fc25affdef8c876b48e6.tar.gz | |
Switch to the non-fibers web server
I'm not sure how to get requests with chunked bodies working with the fibers
server.
Diffstat (limited to 'guix-build-coordinator/agent-messaging')
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index 8160f04..b1b5c72 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -22,7 +22,7 @@ #:use-module (srfi srfi-11) #:use-module (ice-9 match) #:use-module (system repl error-handling) - #:use-module (fibers web server) + #:use-module (web server) #:use-module (rnrs bytevectors) #:use-module (json) #:use-module (web http) @@ -55,8 +55,9 @@ body secret-key-base datastore))) - #:host host - #:port port)) + 'http + (list #:host host + #:port port))) #:on-error 'backtrace #:post-error (lambda (key . args) (when (eq? key 'system-error) |