diff options
author | Ludovic Courtès <ludo@gnu.org> | 2013-04-11 22:30:06 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2013-04-11 22:30:06 +0200 |
commit | a2011be5dfaf2b94a1d0e3dfbcf4b512389b4711 (patch) | |
tree | 5e1745f40400c87bd23d641ef31dc460ca3693c2 /guix/scripts/download.scm | |
parent | 53c63ee93790e4e4054bf6547199d3490b78bf47 (diff) | |
download | gnu-guix-a2011be5dfaf2b94a1d0e3dfbcf4b512389b4711.tar gnu-guix-a2011be5dfaf2b94a1d0e3dfbcf4b512389b4711.tar.gz |
ui: Add a `warning' macro.
* guix/ui.scm (program-name, guix-warning-port): New variables.
(warning): New macro.
(guix-main): Parametrize PROGRAM-NAME.
* guix/scripts/build.scm, guix/scripts/download.scm,
guix/scripts/gc.scm, guix/scripts/package.scm: Adjust to use `leave'
and `warning' consistently.
Diffstat (limited to 'guix/scripts/download.scm')
-rw-r--r-- | guix/scripts/download.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/guix/scripts/download.scm b/guix/scripts/download.scm index 3f989a3494..7c00312c74 100644 --- a/guix/scripts/download.scm +++ b/guix/scripts/download.scm @@ -81,8 +81,7 @@ and the hash of its contents.\n")) ((or "base16" "hex" "hexadecimal") bytevector->base16-string) (x - (format (current-error-port) - "unsupported hash format: ~a~%" arg)))) + (leave (_ "unsupported hash format: ~a~%") arg)))) (alist-cons 'format fmt-proc (alist-delete 'format result)))) |