guix build: Print hints when -s or --target is passed an invalid string.
* guix/scripts/build.scm (%standard-cross-build-options) (%standard-native-build-options): Print hints when the target/system is not found.
parent
933d3cf7f7
commit
f44c135608
|
@ -373,8 +373,19 @@ use '--no-offload' instead~%")))
|
||||||
(first (member arg (targets))))))
|
(first (member arg (targets))))))
|
||||||
(if t
|
(if t
|
||||||
(apply values (alist-cons 'target t result) rest)
|
(apply values (alist-cons 'target t result) rest)
|
||||||
(leave (G_ "'~a' is not a supported target~%")
|
(let ((closest (string-closest arg (targets)
|
||||||
arg)))))))
|
#: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
|
(define %standard-native-build-options
|
||||||
;; Build options related to native builds.
|
;; Build options related to native builds.
|
||||||
|
@ -389,8 +400,18 @@ use '--no-offload' instead~%")))
|
||||||
(first (member arg (systems))))))
|
(first (member arg (systems))))))
|
||||||
(if s
|
(if s
|
||||||
(apply values (alist-cons 'system s result) rest)
|
(apply values (alist-cons 'system s result) rest)
|
||||||
(leave (G_ "'~a' is not a supported system~%")
|
(let ((closest (string-closest arg (systems)
|
||||||
arg)))))))
|
#: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))))))))
|
||||||
|
|
||||||
|
|
||||||
;;;
|
;;;
|
||||||
|
|
Reference in New Issue