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 /guix-build-coordinator/utils.scm | |
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.
Diffstat (limited to 'guix-build-coordinator/utils.scm')
-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)))) |