diff options
author | Mathieu Othacehe <othacehe@gnu.org> | 2021-03-05 09:51:42 +0100 |
---|---|---|
committer | Mathieu Othacehe <othacehe@gnu.org> | 2021-03-10 08:49:48 +0100 |
commit | 7d63b775513e7049047222dbe403a4181f63828d (patch) | |
tree | efb28c5fa392b5b9c602316a468226ea7ddba874 /guix/scripts/time-machine.scm | |
parent | 0be2474d42990871170578e3a14a2e6b548157bd (diff) |
inferior: Break cached-channel-instance into two procedures.
Break cached-channel-instance into two different procedures:
channels->cached-profile and instances->cached-profile operating respectively
on channels and channels instances.
* guix/inferior.scm (cached-channel-instance): Rename it into ...
(cached-profile): ... this new procedure.
(channels->cached-profile, instances->cached-profile): New procedures.
* guix/scripts/time-machine.scm (guix-time-machine): Adapt accordingly.
Diffstat (limited to 'guix/scripts/time-machine.scm')
-rw-r--r-- | guix/scripts/time-machine.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guix/scripts/time-machine.scm b/guix/scripts/time-machine.scm index 0d27414702..c4dca47d1d 100644 --- a/guix/scripts/time-machine.scm +++ b/guix/scripts/time-machine.scm @@ -142,7 +142,8 @@ Execute COMMAND ARGS... in an older version of Guix.\n")) (with-store store (with-status-verbosity (assoc-ref opts 'verbosity) (set-build-options-from-command-line store opts) - (cached-channel-instance store channels - #:authenticate? authenticate?)))) + (channels->cached-profile + store channels + #:authenticate? authenticate?)))) (executable (string-append directory "/bin/guix"))) (apply execl (cons* executable executable command-line)))))))) |