nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

packages: Mark the 'patches' field as delayed. 

* guix/packages.scm (<origin>)[patches]: Mark as 'delayed'.
  (print-origin, origin->derivation): Add call to 'force' when accessing
  'patches'.
This commit is contained in:
Ludovic Courtès 2015-01-20 09:59:56 +01:00
parent 310b32a2a6
commit 6b1f9721a8
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
guix/packages.scm
View File

@ -135,7 +135,13 @@
(method origin-method) ; procedure (method origin-method) ; procedure
(sha256 origin-sha256) ; bytevector (sha256 origin-sha256) ; bytevector
(file-name origin-file-name (default #f)) ; optional file name (file-name origin-file-name (default #f)) ; optional file name
(patches origin-patches (default '())) ; list of file names
;; Patches are delayed so that the 'search-patch' calls are made lazily,
;; which reduces I/O on startup and allows patch-not-found errors to be
;; gracefully handled at run time.
(patches origin-patches ; list of file names
(default '()) (delayed))
(snippet origin-snippet (default #f)) ; sexp or #f (snippet origin-snippet (default #f)) ; sexp or #f
(patch-flags origin-patch-flags ; list of strings (patch-flags origin-patch-flags ; list of strings
(default '("-p1"))) (default '("-p1")))
@ -157,7 +163,7 @@
(($ <origin> uri method sha256 file-name patches) (($ <origin> uri method sha256 file-name patches)
(simple-format port "#<origin ~s ~a ~s ~a>" (simple-format port "#<origin ~s ~a ~s ~a>"
uri (bytevector->base32-string sha256) uri (bytevector->base32-string sha256)
patches (force patches)
(number->string (object-address origin) 16))))) (number->string (object-address origin) 16)))))
(set-record-type-printer! <origin> print-origin) (set-record-type-printer! <origin> print-origin)
@ -937,10 +943,10 @@ cross-compilation target triplet."
SOURCE is a file name, return either the interned file name (if SOURCE is SOURCE is a file name, return either the interned file name (if SOURCE is
outside of the store) or SOURCE itself (if SOURCE is already a store item.)" outside of the store) or SOURCE itself (if SOURCE is already a store item.)"
(match source (match source
(($ <origin> uri method sha256 name () #f) (($ <origin> uri method sha256 name (= force ()) #f)
;; No patches, no snippet: this is a fixed-output derivation. ;; No patches, no snippet: this is a fixed-output derivation.
(method uri 'sha256 sha256 name #:system system)) (method uri 'sha256 sha256 name #:system system))
(($ <origin> uri method sha256 name (patches ...) snippet (($ <origin> uri method sha256 name (= force (patches ...)) snippet
(flags ...) inputs (modules ...) (imported-modules ...) (flags ...) inputs (modules ...) (imported-modules ...)
guile-for-build) guile-for-build)
;; Patches and/or a snippet. ;; Patches and/or a snippet.