From cacc0cb6ab22218a3783a51ba9986405ede4e0d8 Mon Sep 17 00:00:00 2001 From: Josselin Poiret Date: Sun, 5 Mar 2023 11:56:09 +0100 Subject: [PATCH] channels: Raise an error if dependency's introduction is malformed * 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 1ff72b7e72..681adafc6c 100644 --- a/guix/channels.scm +++ b/guix/channels.scm @@ -252,7 +252,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 (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