diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-02-15 18:52:44 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-02-15 18:52:44 +0000 |
| commit | b3733bca21de607fd7a70319e66e3ff49996a974 (patch) | |
| tree | 95a6f290c9bf9715808ac52086962e1bdf2ad6f0 /guix-build-coordinator/agent-messaging/http.scm | |
| parent | 392e2df9091f69567c77a3063da8ab7368ad521b (diff) | |
| download | build-coordinator-b3733bca21de607fd7a70319e66e3ff49996a974.tar build-coordinator-b3733bca21de607fd7a70319e66e3ff49996a974.tar.gz | |
Avoid some threads and locks when running on the hurd
I've see the process hang on the hurd, and I think this might help.
Diffstat (limited to 'guix-build-coordinator/agent-messaging/http.scm')
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index 27e2419..1f2df0a 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -85,7 +85,9 @@ (string-drop agent-path 1)))))) (define (with-request-mutex thunk) - (monitor (thunk))) + (if (running-on-the-hurd?) + (thunk) + (monitor (thunk)))) (define (default-log level . components) (apply log-msg level components)) |