diff options
| author | Efraim Flashner <efraim@flashner.co.il> | 2017-08-01 23:02:26 +0300 |
|---|---|---|
| committer | Efraim Flashner <efraim@flashner.co.il> | 2017-08-01 23:02:26 +0300 |
| commit | a60667245f7b31abba5cb5bb4e5a435816b82950 (patch) | |
| tree | f2f55e31a7919504dca1ffe907abd9ca8d8d1583 | |
| parent | d0386db49327c312c2957e3453d9f12fb5863113 (diff) | |
| download | guix-a60667245f7b31abba5cb5bb4e5a435816b82950.tar.gz | |
guix package: Allow `guix package -u' to fuction as before.
This is a follow up to 6ddf97f81bb99a73f00e30ad5fc19577872b5b49 * guix/scripts/package.scm (%options) <"-u">: Only check for a flag when there is an ARG after '-u'.
| -rw-r--r-- | guix/scripts/package.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm index b6133b6af0..fa45bd48a6 100644 --- a/guix/scripts/package.scm +++ b/guix/scripts/package.scm @@ -486,7 +486,7 @@ Install, remove, or upgrade packages in a single transaction.\n")) arg-handler)))) (option '(#\u "upgrade") #f #t (lambda (opt name arg result arg-handler) - (when (string-prefix? "-" arg) + (when (and arg (string-prefix? "-" arg)) (warning (G_ "upgrade regexp '~a' looks like a \ command-line option~%") arg) |