ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 21:59:08 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

image: 'register-closure' leaves it up to the caller to deduplicate.

Browse source 
* gnu/build/image.scm (register-closure): Remove #:deduplicate?
parameter and pass #:deduplicate? #f to 'register-items'.
(initialize-root-partition): Adjust accordingly.
* gnu/build/vm.scm (register-closure, root-partition-initializer):
Likewise.
This commit is contained in:
Ludovic Courtès 2020-12-10 21:25:39 +01:00
parent 6a060ff27f
commit 2aa512ec28
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 5 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gnu/build/image.scm
View file

@ -140,21 +140,18 @@ (define* (genimage config)
(define* (register-closure prefix closure
#:key
(deduplicate? #t)
(schema (sql-schema))
(wal-mode? #t))
"Register CLOSURE in PREFIX, where PREFIX is the directory name of the
target store and CLOSURE is the name of a file containing a reference graph as
produced by #:references-graphs. As a side effect, if DEDUPLICATE? is true,
deduplicates files common to CLOSURE and the rest of PREFIX. Pass WAL-MODE?
to call-with-database."
produced by #:references-graphs. Pass WAL-MODE? to call-with-database."
(let ((items (call-with-input-file closure read-reference-graph)))
(parameterize ((sql-schema schema))
(with-database (store-database-file #:prefix prefix) db
#:wal-mode? wal-mode?
(register-items db items
#:prefix prefix
#:deduplicate? deduplicate?
#:deduplicate? #f
#:registration-time %epoch)))))
(define* (initialize-efi-partition root
@ -196,7 +193,6 @@ (define* (initialize-root-partition root
(when register-closures?
(for-each (lambda (closure)
(register-closure root closure
#:deduplicate? #f
#:wal-mode? wal-mode?))
references-graphs))

9
gnu/build/vm.scm
View file

@ -215,18 +215,16 @@ (define arch-specific-flags
(define* (register-closure prefix closure
#:key
(deduplicate? #t)
(schema (sql-schema)))
"Register CLOSURE in PREFIX, where PREFIX is the directory name of the
target store and CLOSURE is the name of a file containing a reference graph as
produced by #:references-graphs. As a side effect, if DEDUPLICATE? is true,
deduplicates files common to CLOSURE and the rest of PREFIX."
produced by #:references-graphs."
(let ((items (call-with-input-file closure read-reference-graph)))
(parameterize ((sql-schema schema))
(with-database (store-database-file #:prefix prefix) db
(register-items db items
#:prefix prefix
#:deduplicate? deduplicate?
#:deduplicate? #f
#:registration-time %epoch)))))
@ -412,8 +410,7 @@ (define target-store
(display "registering closures...\n")
(for-each (lambda (closure)
(register-closure target
(string-append "/xchg/" closure)
#:deduplicate? #f))
(string-append "/xchg/" closure)))
closures)
(unless copy-closures?
(umount target-store)))