ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-24 03:29:40 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

channels: Raise an error if dependency's introduction is malformed

Browse source 
* guix/channels.scm (sexp->channel-introduction): Do it.
This commit is contained in:
Josselin Poiret 2023-03-05 11:56:09 +01:00
parent e198fe4e94
commit cacc0cb6ab
No known key found for this signature in database
GPG key ID: 505E40B916171A8A
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
guix/channels.scm
View file

@ -252,7 +252,14 @@ (define sexp->channel-introduction
('commit commit) ('signer signer) ('commit commit) ('signer signer)
_ ...) _ ...)
(make-channel-introduction commit (openpgp-fingerprint 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) (define (read-channel-metadata port)
"Read from PORT channel metadata in the format expected for the "Read from PORT channel metadata in the format expected for the