~ruther/guix-local: inferior: Use channel-reference to get a Git reference.

0a670987c716937cee11e851ba645ee9b0c6ba26 — Romain GARBAGE 8 months ago b6a7394

inferior: Use channel-reference to get a Git reference.

* guix/inferior.scm (channel-full-commit): Use channel-reference to get a Git reference.

Change-Id: Ia07f8d202ba1df1497d2763d8d49d547c6955ca6
Signed-off-by: Ludovic Courtès <ludo@gnu.org>

patch browse .tar.gz

1 files changed, 2 insertions(+), 1 deletions(-)

M guix/inferior.scm

M guix/inferior.scm => guix/inferior.scm +2 -1

@@ 872,7 872,8 @@ prefix, resolve it; and if 'commit' is unset, fetch CHANNEL's branch tip."
         (branch (channel-branch channel)))
     (if (and commit (commit-id? commit))
         commit
-        (let* ((ref (if commit `(tag-or-commit . ,commit) `(branch . ,branch)))
+        (let* ((ref (if commit `(tag-or-commit . ,commit)
+                        (channel-reference channel)))
                (cache commit relation
                      (update-cached-checkout (channel-url channel)
                                              #:ref ref