me
/
guix
Archived
1
0
Fork 0
Code

time-machine: Warn when no command is given. 

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

Change-Id: I26e6b608915ecaf6d9372f9b03dc5ebd1b4c68f9
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

37
guix/scripts/time-machine.scm
View File

@ -179,21 +179,22 @@ to %OLDEST-POSSIBLE-COMMIT is not that of an ancestor."
(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)
(with-build-handler (build-notifier #:use-substitutes? (with-build-handler (build-notifier #:use-substitutes?
substitutes? substitutes?
#:verbosity #:verbosity
(assoc-ref opts 'verbosity) (assoc-ref opts 'verbosity)
#:dry-run? #f) #:dry-run? #f)
(set-build-options-from-command-line store opts) (set-build-options-from-command-line store opts)
(cached-channel-instance store channels (cached-channel-instance store channels
#:authenticate? authenticate? #:authenticate? authenticate?
#:reference-channels #:reference-channels
%reference-channels %reference-channels
#: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~%")))))))