mirror of
https://codeberg.org/guix/guix.git
synced 2026-01-28 19:56:59 -06:00
scripts: import: Correct behavior for ‘--insert’ option.
The info manual documents ‘--insert=FILE’, but it wasn't actually supported. * guix/scripts/import.scm (show-help): Add missing ‘FILE’. (guix-import): Accept ‘--insert=FILE’. Change-Id: I540d5feae3fe49c00e9bd6f7a8649ffe0d6e006d
This commit is contained in:
parent
3372525a86
commit
a6598a9019
1 changed files with 13 additions and 2 deletions
|
|
@ -70,7 +70,7 @@ Run IMPORTER with ARGS.\n"))
|
|||
(display (G_ "
|
||||
-h, --help display this help and exit"))
|
||||
(display (G_ "
|
||||
-i, --insert insert packages into file alphabetically"))
|
||||
-i, --insert=FILE insert packages into FILE alphabetically"))
|
||||
(display (G_ "
|
||||
-V, --version display version information and exit"))
|
||||
(newline)
|
||||
|
|
@ -107,7 +107,18 @@ PROC callback."
|
|||
(category packaging)
|
||||
(synopsis "import a package definition from an external repository")
|
||||
|
||||
(match args
|
||||
(define (process-args args)
|
||||
(match args
|
||||
;; Workaround to accpet ‘--insert=FILE’, for the consistency of
|
||||
;; command-line interface.
|
||||
((arg . rest)
|
||||
(if (string-prefix? "--insert=" arg)
|
||||
(append (string-split arg #\=)
|
||||
rest)
|
||||
args))
|
||||
(_ args)))
|
||||
|
||||
(match (process-args args)
|
||||
(()
|
||||
(format (current-error-port)
|
||||
(G_ "guix import: missing importer name~%")))
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue