From ce2ba3431a71effa2f9f9f888f0e8ad9e670cb72 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 22 Feb 2021 23:33:47 +0100
Subject: [PATCH] describe: Fix typo in 'manifest-entry-with-provenance'.
* guix/describe.scm (manifest-entry-with-provenance): Fix first argument
to 'assq'.
---
guix/describe.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/guix/describe.scm b/guix/describe.scm
index 6a31c707f03..03569b1db41 100644
--- a/guix/describe.scm
+++ b/guix/describe.scm
@@ -182,7 +182,7 @@ (define (manifest-entry-with-provenance entry)
"Return ENTRY with an additional 'provenance' property if it's not already
there."
(let ((properties (manifest-entry-properties entry)))
- (if (assq 'properties properties)
+ (if (assq 'provenance properties)
entry
(let ((item (manifest-entry-item entry)))
(manifest-entry
--
GitLab