me/guix
Archived
1
0
Fork 0
Code Activity

guix build: Print hints when -s or --target is passed an invalid string.

Browse source 
* guix/scripts/build.scm (%standard-cross-build-options)
(%standard-native-build-options): Print hints when the target/system is
not found.
This commit is contained in:
Ludovic Courtès 2022-08-03 23:01:01 +02:00
parent 933d3cf7f7
commit f44c135608
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 25 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
guix/scripts/build.scm
View file

@ -373,8 +373,19 @@ use '--no-offload' instead~%")))
(first (member arg (targets))))))
(if t
(apply values (alist-cons 'target t result) rest)
(leave (G_ "'~a' is not a supported target~%")
arg)))))))
(let ((closest (string-closest arg (targets)
#:threshold 5)))
(report-error
(G_ "'~a' is not a supported cross-compilation target~%")
arg)
(if closest
(display-hint
(format #f (G_ "Did you mean @code{~a}?
Try @option{--list-targets} to view available targets.~%")
closest))
(display-hint (G_ "\
Try @option{--list-targets} to view available targets.~%")))
(exit 1))))))))
(define %standard-native-build-options
;; Build options related to native builds.
@ -389,8 +400,18 @@ use '--no-offload' instead~%")))
(first (member arg (systems))))))
(if s
(apply values (alist-cons 'system s result) rest)
(leave (G_ "'~a' is not a supported system~%")
arg)))))))
(let ((closest (string-closest arg (systems)
#:threshold 5)))
(report-error (G_ "'~a' is not a supported system~%")
arg)
(if closest
(display-hint
(format #f (G_ "Did you mean @code{~a}?
Try @option{--list-systems} to view available system types.~%")
closest))
(display-hint (G_ "\
Try @option{--list-systems} to view available system types.~%")))
(exit 1))))))))
;;;