diff options
| author | Josselin Poiret <dev@jpoiret.xyz> | 2023-03-05 11:56:09 +0100 |
|---|---|---|
| committer | Josselin Poiret <dev@jpoiret.xyz> | 2023-06-04 11:30:18 +0200 |
| commit | cacc0cb6ab22218a3783a51ba9986405ede4e0d8 (patch) | |
| tree | 3ba178df565e6b50a365214066da4355b6c0e66a /guix/channels.scm | |
| parent | e198fe4e942c58136dd4cb8ebf49cade58a8f5e3 (diff) | |
| download | guix-cacc0cb6ab22218a3783a51ba9986405ede4e0d8.tar guix-cacc0cb6ab22218a3783a51ba9986405ede4e0d8.tar.gz | |
channels: Raise an error if dependency's introduction is malformed
* guix/channels.scm (sexp->channel-introduction): Do it.
Diffstat (limited to 'guix/channels.scm')
| -rw-r--r-- | guix/channels.scm | 9 |
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 |