summaryrefslogtreecommitdiff
path: root/guix/scripts/time-machine.scm
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2021-03-05 09:51:42 +0100
committerMathieu Othacehe <othacehe@gnu.org>2021-03-10 08:49:48 +0100
commit7d63b775513e7049047222dbe403a4181f63828d (patch)
treeefb28c5fa392b5b9c602316a468226ea7ddba874 /guix/scripts/time-machine.scm
parent0be2474d42990871170578e3a14a2e6b548157bd (diff)
downloadguix-patches-7d63b775513e7049047222dbe403a4181f63828d.tar
guix-patches-7d63b775513e7049047222dbe403a4181f63828d.tar.gz
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.scm5
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))))))))