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

refresh: Bail out when asked for a nonexistent updater.

Browse source 
* guix/scripts/refresh.scm (lookup-updater): Call 'leave' when 'find'
returns #f.
This commit is contained in:
Ludovic Courtès 2015-12-07 23:10:02 +01:00
parent e3cc793e7c
commit fba607b129
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
guix/scripts/refresh.scm
View file

@ -197,9 +197,10 @@ (define %updaters
(define (lookup-updater name) (define (lookup-updater name)
"Return the updater called NAME." "Return the updater called NAME."
(find (lambda (updater) (or (find (lambda (updater)
(eq? name (upstream-updater-name updater))) (eq? name (upstream-updater-name updater)))
%updaters)) %updaters)
(leave (_ "~a: no such updater~%") name)))
(define (list-updaters-and-exit) (define (list-updaters-and-exit)
"Display available updaters and exit." "Display available updaters and exit."