diff options
Diffstat (limited to 'nar-herder/utils.scm')
| -rw-r--r-- | nar-herder/utils.scm | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/nar-herder/utils.scm b/nar-herder/utils.scm index 552ef02..b841d83 100644 --- a/nar-herder/utils.scm +++ b/nar-herder/utils.scm @@ -54,7 +54,6 @@ check-locale! - set-socket-timeout open-socket-for-uri* call-with-sigint @@ -544,12 +543,6 @@ If already in the worker thread, call PROC immediately." (duration-logger duration)) (apply values result))))))) -(define* (set-socket-timeout port #:key (seconds 120)) - (when (defined? 'SO_RCVTIMEO) - ;; This is only supported on Guile 3.0.9 and later - (setsockopt port SOL_SOCKET SO_RCVTIMEO `(,seconds . 0)) - (setsockopt port SOL_SOCKET SO_SNDTIMEO `(,seconds . 0)))) - (define* (open-socket-for-uri* uri #:key (verify-certificate? #t)) (define tls-wrap |