diff options
Diffstat (limited to 'guix-download.in')
| -rw-r--r-- | guix-download.in | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/guix-download.in b/guix-download.in index 3892b2efe3..b574c962b4 100644 --- a/guix-download.in +++ b/guix-download.in @@ -32,6 +32,7 @@ exec ${GUILE-@GUILE@} -L "@guilemoduledir@" -l "$0" \ (define-module (guix-download) #:use-module (web uri) #:use-module (web client) + #:use-module (guix ui) #:use-module (guix store) #:use-module (guix utils) #:use-module (guix ftp-client) @@ -44,9 +45,6 @@ exec ${GUILE-@GUILE@} -L "@guilemoduledir@" -l "$0" \ #:use-module (rnrs io ports) #:export (guix-download)) -(define _ (cut gettext <> "guix")) -(define N_ (cut ngettext <> <> <> "guix")) - (define (call-with-temporary-output-file proc) (let* ((template (string-copy "guix-download.XXXXXX")) (out (mkstemp! template))) @@ -90,12 +88,6 @@ exec ${GUILE-@GUILE@} -L "@guilemoduledir@" -l "$0" \ ;; Alist of default option values. `((format . ,bytevector->nix-base32-string))) -(define-syntax-rule (leave fmt args ...) - "Format FMT and ARGS to the error port and exit." - (begin - (format (current-error-port) fmt args ...) - (exit 1))) - (define (show-version) (display "guix-download (@PACKAGE_NAME@) @PACKAGE_VERSION@\n")) |