[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#61977] [PATCH] channels: Raise an error if dependency's introductio
From: |
Josselin Poiret |
Subject: |
[bug#61977] [PATCH] channels: Raise an error if dependency's introduction is malformed |
Date: |
Sun, 5 Mar 2023 11:56:09 +0100 |
* guix/channels.scm (sexp->channel-introduction): Do it.
---
guix/channels.scm | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/guix/channels.scm b/guix/channels.scm
index d44e7a0a3a..fc2bf55d65 100644
--- a/guix/channels.scm
+++ b/guix/channels.scm
@@ -256,7 +256,14 @@ (define sexp->channel-introduction
('commit commit) ('signer signer)
_ ...)
(make-channel-introduction commit (openpgp-fingerprint signer)))
- (x #f)))
+ (x (raise (condition
+ (&message
+ (message (format #f "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
base-commit: 2799ad44234be675f018115f99be98d2c9fd565d
--
2.39.1
- [bug#61977] [PATCH] channels: Raise an error if dependency's introduction is malformed,
Josselin Poiret <=