From 0a670987c716937cee11e851ba645ee9b0c6ba26 Mon Sep 17 00:00:00 2001
From: Romain GARBAGE <romain.garbage@inria.fr>
Date: Tue, 26 Aug 2025 16:05:32 +0200
Subject: [PATCH] inferior: Use channel-reference to get a Git reference.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* 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>
---
 guix/inferior.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/guix/inferior.scm b/guix/inferior.scm
index 8066cce2fcf5618b1fa9050c1ec9613ab8baf81d..680fe6a805b503c206fa42c64b427bdcc51c4ca3 100644
--- a/guix/inferior.scm
+++ b/guix/inferior.scm
@@ -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