diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-02-13 09:59:39 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-02-13 09:59:39 +0000 |
| commit | 26a751570c74f173a3e95243a1c78ff85c771a8a (patch) | |
| tree | fcfa9e1065852a72521dc659e94db73aeab86a06 /guix-data-service/web/server.scm | |
| parent | 76712e2b007d502eba51bfcc122f6f4acfe7ae10 (diff) | |
| download | data-service-26a751570c74f173a3e95243a1c78ff85c771a8a.tar data-service-26a751570c74f173a3e95243a1c78ff85c771a8a.tar.gz | |
Copy the port monitoring fiber from the build coordinator
As the data service has the same issue where it stops listening on the port.
Diffstat (limited to 'guix-data-service/web/server.scm')
| -rw-r--r-- | guix-data-service/web/server.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/guix-data-service/web/server.scm b/guix-data-service/web/server.scm index ea14825..1c0bce1 100644 --- a/guix-data-service/web/server.scm +++ b/guix-data-service/web/server.scm @@ -144,6 +144,11 @@ port. Also, the port used can be changed by passing the --port option.\n" #:host host #:port port)) #:unwind? #t))) + + ;; Guile sometimes just seems to stop listening on the port, so try + ;; and detect this and quit + (spawn-port-monitoring-fiber port finished?) + (wait finished?)) #:parallelism 4)) finished?))) |