[bug#70598] [PATCH] system: fix duplicate nss-certs check

[nathan via Guix-patches via <guix-patches@gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 6 bytes --]

oops


[-- Attachment #2: 0001-system-fix-duplicate-nss-certs-check.patch --]
[-- Type: text/x-patch, Size: 1474 bytes --]

From 22f2511d50d1912191dd1bc69419b13370280018 Mon Sep 17 00:00:00 2001
Message-ID: <22f2511d50d1912191dd1bc69419b13370280018.1714173615.git.nathan_mail@nborghese.com>
From: nathan <nathan_mail@nborghese.com>
Date: Fri, 26 Apr 2024 19:12:42 -0400
Subject: [PATCH] system: fix duplicate nss-certs check

* gnu/system.scm (operating-system-packages): Because packages->manifest
allows other formats, don't assume it's a package object in the list.

Change-Id: I91c64ca2c463ef5c35fa23856e4622e364e58988
---
 gnu/system.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gnu/system.scm b/gnu/system.scm
index 025834328c..cb6e719ca6 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -325,7 +325,9 @@ (define (operating-system-packages os)
   ;; field contains a duplicated nss-certs packages.
   (let* ((packages (%operating-system-packages os))
          (nss-certs-packages (sort (filter (lambda (p)
-                                             (string=? "nss-certs" (package-name p)))
+                                             (and (package? p)
+                                                  (string=? "nss-certs"
+                                                            (package-name p))))
                                            packages)
                                    (lambda (x y)
                                      ;; Sort from newer to older versions.

base-commit: c81ed0970007810a4662edbc3474f5afc656fe95
-- 
2.41.0