mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-25 05:48:07 -05:00
scripts: show: Replace 'args-fold*' by 'parse-command-line'.
* guix/scripts/show.scm (define-command): Replace 'args-fold*' by 'parse-command-line'. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
parent
0fac33a8ea
commit
4056ba3645
1 changed files with 4 additions and 6 deletions
|
@ -1,5 +1,5 @@
|
|||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2019 Simon Tournier <zimon.toutoune@gmail.com>
|
||||
;;; Copyright © 2019, 2021 Simon Tournier <zimon.toutoune@gmail.com>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
|
@ -66,11 +66,9 @@ (define (handle-argument arg result)
|
|||
result))
|
||||
|
||||
(define opts
|
||||
(args-fold* args %options
|
||||
(lambda (opt name arg . rest)
|
||||
(leave (G_ "~A: unrecognized option~%") name))
|
||||
handle-argument
|
||||
'()))
|
||||
(parse-command-line args %options (list (list))
|
||||
#:build-options? #f
|
||||
#:argument-handler handle-argument))
|
||||
|
||||
(unless (assoc-ref opts 'query)
|
||||
(leave (G_ "missing arguments: no package to show~%")))
|
||||
|
|
Loading…
Reference in a new issue