amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: Use target-hurd?, system-hurd? instead of hurd-target?, hurd-system?.

Browse source 
* gnu/packages/hurd.scm (hurd-target?): Remove.
(hurd-system?): Move to...
* guix/utils.scm (system-hurd?): ...here.
* gnu/packages/*: Update all users, removing (gnu packages hurd) include where
now unused.
This commit is contained in:
Janneke Nieuwenhuizen 2023-06-17 13:51:05 +02:00
parent 52f2980fa3
commit ff690faf66
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
21 changed files with 80 additions and 97 deletions
Download patch file Download diff file Expand all files Collapse all files

6
guix/utils.scm
View file

@ -17,6 +17,7 @@
;;; Copyright © 2022 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
;;; Copyright © 2022 Antero Mejr <antero@mailbox.org>
;;; Copyright © 2023 Philip McGrath <philip@philipmcgrath.com>
;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -89,6 +90,7 @@
package-name->name+version
target-linux?
target-hurd?
system-hurd?
target-mingw?
target-x86-32?
target-x86-64?
@ -674,6 +676,10 @@ a character other than '@'."
(and (string-suffix? "-gnu" target)
(not (string-contains target "linux"))))
(define* (system-hurd?)
"Is the current system the GNU(/Hurd) system?"
(and=> (%current-system) target-hurd?))
(define* (target-mingw? #:optional (target (%current-target-system)))
"Is the operating system of TARGET Windows?"
(and target