ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

time-machine: Warn when no command is given.

Browse source 
* guix/scripts/time-machine.scm (guix-time-machine): Emit a warning when
COMMAND-LINE is false.

Change-Id: I26e6b608915ecaf6d9372f9b03dc5ebd1b4c68f9
This commit is contained in:
Ludovic Courtès 2023-10-28 15:58:54 +02:00
parent ab13e2be69
commit 331d858e21
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 19 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -179,7 +179,7 @@ (define-command (guix-time-machine . args)
(ref (assoc-ref opts 'ref)) (ref (assoc-ref opts 'ref))
(substitutes? (assoc-ref opts 'substitutes?)) (substitutes? (assoc-ref opts 'substitutes?))
(authenticate? (assoc-ref opts 'authenticate-channels?))) (authenticate? (assoc-ref opts 'authenticate-channels?)))
(when command-line (if command-line
(let* ((directory (let* ((directory
(with-store store (with-store store
(with-status-verbosity (assoc-ref opts 'verbosity) (with-status-verbosity (assoc-ref opts 'verbosity)
@ -196,4 +196,5 @@ (define-command (guix-time-machine . args)
#:validate-channels #:validate-channels
validate-guix-channel))))) validate-guix-channel)))))
(executable (string-append directory "/bin/guix"))) (executable (string-append directory "/bin/guix")))
(apply execl (cons* executable executable command-line)))))))) (apply execl (cons* executable executable command-line)))
(warning (G_ "no command specified; nothing to do~%")))))))