mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-18 21:46:35 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

scripts: discover: Report Avahi errors.

Browse source 
Fixes: <https://issues.guix.gnu.org/48561>.

* guix/scripts/discover (guix-discover): Report Avahi errors.
This commit is contained in:
Mathieu Othacehe 2021-05-21 15:21:15 +02:00
parent fbabf0bec6
commit 7003b2db52
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 15 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
guix/scripts/discover.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 Mathieu Othacehe <othacehe@gnu.org>
;;; Copyright © 2020, 2021 Mathieu Othacehe <othacehe@gnu.org>
;;; Copyright © 2021 Simon Tournier <zimon.toutoune@gmail.com>
;;;
;;; This file is part of GNU Guix.
@ -26,6 +26,7 @@ (define-module (guix scripts discover)
#:use-module (guix build syscalls)
#:use-module (guix build utils)
#:use-module (guix scripts publish)
#:use-module (avahi)
#:use-module (ice-9 rdelim)
#:use-module (srfi srfi-37)
#:export (read-substitute-urls
@ -138,5 +139,16 @@ (define-command (guix-discover . args)
(parameterize ((%publish-file publish-file))
(mkdir-p (dirname publish-file))
(false-if-exception (delete-file publish-file))
(avahi-browse-service-thread service-proc
#:types %services)))))
(catch 'avahi-error
(lambda ()
(avahi-browse-service-thread service-proc
#:types %services))
(lambda (key err function . _)
(cond
((eq? err error/no-daemon)
(warning (G_ "Avahi daemon is not running, \
cannot auto-discover substitutes servers.~%")))
(else
(report-error (G_ "an Avahi error was raised by `~a': ~a~%")
function (error->string err))))
(exit 1)))))))