diff options
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?))) |