diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-03-14 08:43:17 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-03-14 08:43:17 +0000 |
| commit | d7cf36fe6ace42b04de483ce6e1f371605f4bb42 (patch) | |
| tree | 46056a27cbad183a87ba15bc650c87d1c07b86dc | |
| parent | 4d8ee69e4a25bbaa704a7efe5df2de4c8561cdaf (diff) | |
| download | build-coordinator-d7cf36fe6ace42b04de483ce6e1f371605f4bb42.tar build-coordinator-d7cf36fe6ace42b04de483ce6e1f371605f4bb42.tar.gz | |
Don't use setsockopt on the hurd
As it doesn't seem to work.
| -rw-r--r-- | guix-build-coordinator/utils.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index e64842d..c7cada5 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -335,7 +335,8 @@ upcoming chunk." (define* (set-store-connection-timeout store #:key (timeout 120)) (define raw-port (store-connection-socket store)) - (when (defined? 'SO_RCVTIMEO) + (when (and (defined? 'SO_RCVTIMEO) + (not (running-on-the-hurd?))) ;; This is only supported on Guile 3.0.9 and later (setsockopt raw-port SOL_SOCKET SO_RCVTIMEO `(,timeout . 0)) (setsockopt raw-port SOL_SOCKET SO_SNDTIMEO `(,timeout . 0)))) |