aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2024-07-05 15:45:25 +0200
committerChristopher Baines <mail@cbaines.net>2024-07-15 22:34:24 +0100
commit32eda739664901b6df680e79f869e439a326572f (patch)
tree5b58a8d0f9fd20dfeada3d40c781d5cbff794985
parent67b212ff6038ec8827e224603c85db55481fb3e6 (diff)
downloadguix-32eda739664901b6df680e79f869e439a326572f.tar.gz
guix-32eda739664901b6df680e79f869e439a326572f.zip
build-system: go: Properly handle when a target is unsupported.
* guix/build-system/go.scm (go-target): Properly handle when a target is unsupported. Change-Id: Ibc0becb8eb0a712d21116112c44e2bbbb707ddf4
-rw-r--r--guix/build-system/go.scm10
1 files changed, 9 insertions, 1 deletions
diff --git a/guix/build-system/go.scm b/guix/build-system/go.scm
index 0934fded07..fc53b3be9f 100644
--- a/guix/build-system/go.scm
+++ b/guix/build-system/go.scm
@@ -33,6 +33,8 @@
#:use-module (ice-9 match)
#:use-module (ice-9 regex)
#:use-module (srfi srfi-1)
+ #:use-module (srfi srfi-34)
+ #:use-module (srfi srfi-35)
#:export (%go-build-system-modules
go-build
go-build-system
@@ -101,7 +103,13 @@ commit hash and its date rather than a proper release tag."
(_ arch))
(match os
((or "mingw32" "cygwin") "windows")
- (_ os))))))
+ (_ os))))
+ (_
+ (raise
+ (condition
+ (&unsupported-cross-compilation-target-error
+ (build-system go-build-system)
+ (target target)))))))
(define %go-build-system-modules
;; Build-side modules imported and used by default.