me/guix
Archived
1
0
Fork 0
Code Activity

time-machine: Fail when unrecognized option.

Browse source 
* guix/scripts/time-machine (parse-args): Fail when unrecognized option.

Co-authored-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
zimoun 2021-02-10 22:48:04 +01:00 • committed by Ludovic Courtès
parent b168acae2a
commit f1c4df15c3
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
guix/scripts/time-machine.scm
View file

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019 Konrad Hinsen <konrad.hinsen@fastmail.net> ;;; Copyright © 2019 Konrad Hinsen <konrad.hinsen@fastmail.net>
;;; Copyright © 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2021 Simon Tournier <zimon.toutoune@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -118,6 +119,10 @@ Execute COMMAND ARGS... in an older version of Guix.\n"))
(let-values (((args command) (break (cut string=? "--" <>) args))) (let-values (((args command) (break (cut string=? "--" <>) args)))
(let ((opts (parse-command-line args %options (let ((opts (parse-command-line args %options
(list %default-options)))) (list %default-options))))
(when (assoc-ref opts 'argument)
(leave (G_ "~A: extraneous argument~%")
(assoc-ref opts 'argument)))
(match command (match command
(() opts) (() opts)
(("--") opts) (("--") opts)