aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-10-18 23:36:29 +0200
committerLudovic Courtès <ludo@gnu.org>2012-10-18 23:36:29 +0200
commita5a349f30289037e1e32886478738bf88884c629 (patch)
treeeef3e58f0667b6bf5740b75dd8d5568f0a1b0efb
parentd6e877768821da5859d0c5774d4cea57941fde8b (diff)
downloadguix-a5a349f30289037e1e32886478738bf88884c629.tar
guix-a5a349f30289037e1e32886478738bf88884c629.tar.gz
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.
-rw-r--r--distro/packages/base.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/distro/packages/base.scm b/distro/packages/base.scm
index 5f23bc0064..5e0b30ce89 100644
--- a/distro/packages/base.scm
+++ b/distro/packages/base.scm
@@ -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"))