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

profiles: Rename default-properties function and expose it.

Browse source 
* guix/profiles.scm: Expose default-package-properties.
(default-package-properties, package->manifest-entry):
Rename default-properties.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Romain GARBAGE 2025-06-24 12:02:05 +02:00 • committed by Ludovic Courtès
parent 391b943914
commit 6cf105ebee
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
guix/profiles.scm
View file

@ -133,6 +133,7 @@
profile-derivation profile-derivation
profile-search-paths profile-search-paths
load-profile load-profile
default-package-properties
profile profile
profile? profile?
@ -371,7 +372,7 @@ file name."
#t #t
lst))) lst)))
(define (default-properties package) (define (default-package-properties package)
"Return the default properties of a manifest entry for PACKAGE." "Return the default properties of a manifest entry for PACKAGE."
;; Preserve transformation options by default. ;; Preserve transformation options by default.
(match (assq-ref (package-properties package) 'transformations) (match (assq-ref (package-properties package) 'transformations)
@ -380,7 +381,7 @@ file name."
(define* (package->manifest-entry package #:optional (output "out") (define* (package->manifest-entry package #:optional (output "out")
#:key (parent (delay #f)) #:key (parent (delay #f))
(properties (default-properties package))) (properties (default-package-properties package)))
"Return a manifest entry for the OUTPUT of package PACKAGE." "Return a manifest entry for the OUTPUT of package PACKAGE."
;; For each dependency, keep a promise pointing to its "parent" entry. ;; For each dependency, keep a promise pointing to its "parent" entry.
(letrec* ((deps (map (match-lambda (letrec* ((deps (map (match-lambda