[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/03: guix package: Warn when invoked with '-u -something'.
From: |
Ludovic Courtès |
Subject: |
02/03: guix package: Warn when invoked with '-u -something'. |
Date: |
Mon, 31 Jul 2017 17:06:34 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit 6ddf97f81bb99a73f00e30ad5fc19577872b5b49
Author: Ludovic Courtès <address@hidden>
Date: Mon Jul 31 22:22:27 2017 +0200
guix package: Warn when invoked with '-u -something'.
Fixes <https://bugs.gnu.org/27820>.
Reported by Hartmut Goebel <address@hidden>.
* guix/scripts/package.scm (%options) <"-u">: Emit a warning when ARG
starts with "-".
---
guix/scripts/package.scm | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index 8da7a3f..b6133b6 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm
@@ -486,6 +486,11 @@ 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)
+ (warning (G_ "upgrade regexp '~a' looks like a \
+command-line option~%")
+ arg)
+ (warning (G_ "is this intended?~%")))
(let arg-handler ((arg arg) (result result))
(values (alist-cons 'upgrade arg
;; Delete any prior "upgrade all"