summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorJosselin Poiret <dev@jpoiret.xyz>2023-03-05 11:56:09 +0100
committerJosselin Poiret <dev@jpoiret.xyz>2023-06-04 11:30:18 +0200
commitcacc0cb6ab22218a3783a51ba9986405ede4e0d8 (patch)
tree3ba178df565e6b50a365214066da4355b6c0e66a /guix
parente198fe4e942c58136dd4cb8ebf49cade58a8f5e3 (diff)
channels: Raise an error if dependency's introduction is malformed
* guix/channels.scm (sexp->channel-introduction): Do it.
Diffstat (limited to 'guix')
-rw-r--r--guix/channels.scm9
1 files changed, 8 insertions, 1 deletions
diff --git a/guix/channels.scm b/guix/channels.scm
index 1ff72b7e72..681adafc6c 100644
--- a/guix/channels.scm
+++ b/guix/channels.scm
@@ -252,7 +252,14 @@ could be found at DIRECTORY or one of its ancestors."
('commit commit) ('signer signer)
_ ...)
(make-channel-introduction commit (openpgp-fingerprint signer)))
- (x #f)))
+ (x (raise (condition
+ (&message
+ (message (format #f (G_ "channel dependency has an invalid\
+ introduction field"))))
+ (&error-location
+ (location
+ (source-properties->location
+ (source-properties x)))))))))
(define (read-channel-metadata port)
"Read from PORT channel metadata in the format expected for the