guix build: Catch 'getaddrinfo-error' for '--log-file'.

* guix/scripts/build.scm (log-url)[valid-url?]: Catch 'getaddrinfo-error'.
2016-05-14 16:56:21 +02:00 · 2016-05-14 16:56:21 +02:00 · c22a475725
commit c22a475725
parent 6e94a57478
1 changed files with 7 additions and 3 deletions
--- a/guix/scripts/build.scm
+++ b/guix/scripts/build.scm
@ -65,9 +65,13 @@
 found.  Return #f if no build log was found."
  (define (valid-url? url)
    ;; Probe URL and return #t if it is accessible.
-    (guard (c ((http-get-error? c) #f))
-      (close-port (http-fetch url #:buffered? #f))
-      #t))
+    (catch 'getaddrinfo-error
+      (lambda ()
+        (guard (c ((http-get-error? c) #f))
+          (close-port (http-fetch url #:buffered? #f))
+          #t))
+      (lambda _
+        #f)))

  (define (find-url file)
    (let ((base (basename file)))