From a60667245f7b31abba5cb5bb4e5a435816b82950 Mon Sep 17 00:00:00 2001
From: Efraim Flashner <efraim@flashner.co.il>
Date: Tue, 1 Aug 2017 23:02:26 +0300
Subject: [PATCH] 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'.
---
guix/scripts/package.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index b6133b6af0f..fa45bd48a64 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm
@@ -486,7 +486,7 @@ (define %options
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)
--
GitLab