~ruther/guix-local: distro: Provide a more descriptive report when a bootstrap binary is missing.

a5a349f30289037e1e32886478738bf88884c629 — Ludovic Courtès 13 years ago d6e8777

distro: Provide a more descriptive report when a bootstrap binary is missing.

* distro/packages/base.scm (%bootstrap-guile): Error out when
  `search-bootstrap-binary' returns #f.

patch browse .tar.gz

1 files changed, 4 insertions(+), 1 deletions(-)

M distro/packages/base.scm

M distro/packages/base.scm => distro/packages/base.scm +4 -1

@@ 1391,7 1391,10 @@ with the Linux kernel.")
               (build (lambda* (store name source inputs #:key outputs system)
                        (define (->store file)
                          (add-to-store store file #t #t "sha256"
-                                       (search-bootstrap-binary file system)))
+                                       (or (search-bootstrap-binary file
+                                                                    system)
+                                           (error "bootstrap binary not found"
+                                                  file system))))
 
                        (let* ((tar   (->store "tar"))
                               (xz    (->store "xz"))