mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 14:07:01 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

profiles: 'manifest->gexp' emits 'properties' field only when needed.

Browse source 
Partly fixes <https://issues.guix.gnu.org/55499>.
Reported by Ricardo Wurmus <rekado@elephly.net>.

For a profile built with:

  guix install r-seurat r-cistopic r-monocle3 r-cicero-monocle3

this reduces the size of the 'manifest' file from 6.4M to 5.6M (12%).

* guix/profiles.scm (manifest->gexp)[entry->gexp]: When PROPERTIES is
empty, do not emit a 'properties' field.
This commit is contained in:
Ludovic Courtès 2022-05-23 22:06:12 +02:00
parent adf5ae5a41
commit 93f601d97c
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
guix/profiles.scm
View file

@ -462,7 +462,9 @@ (define (entry->gexp entry)
(propagated-inputs #$(map entry->gexp deps))
(search-paths #$(map search-path-specification->sexp
search-paths))
(properties . #$properties)))
#$@(if (null? properties)
#~()
#~((properties . #$properties)))))
(($ <manifest-entry> name version output package
(deps ...) (search-paths ...) _ (properties ...))
#~(#$name #$version #$output
@ -470,7 +472,9 @@ (define (entry->gexp entry)
(propagated-inputs #$(map entry->gexp deps))
(search-paths #$(map search-path-specification->sexp
search-paths))
(properties . #$properties)))))
#$@(if (null? properties)
#~()
#~((properties . #$properties)))))))
(match manifest
(($ <manifest> (entries ...))