guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

18/29: packages: Default origin 'patch-flags' is a gexp.


From: guix-commits
Subject: 18/29: packages: Default origin 'patch-flags' is a gexp.
Date: Mon, 8 Mar 2021 06:24:53 -0500 (EST)

civodul pushed a commit to branch wip-build-systems-gexp
in repository guix.

commit 28376e6f8c5d6cd871cdcb6f7bb74af5e2217bb5
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Feb 28 20:53:00 2021 +0100

    packages: Default origin 'patch-flags' is a gexp.
    
    Using a gexp instead of a list means that 'gexp->sexp' & co. do not need
    to scan that list for file-like objects.
    
    * guix/packages.scm (<origin>)[patch-flags]: Default to
    %DEFAULT-PATCH-FLAGS.
    (%default-patch-flags): New variable.
    (patch-and-repack): #:flags defaults to %DEFAULT-PATCH-FLAGS.
    (origin->derivation): Don't expect FLAGS to be a list.
---
 guix/packages.scm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/guix/packages.scm b/guix/packages.scm
index 4080af9..4eb81e8 100644
--- a/guix/packages.scm
+++ b/guix/packages.scm
@@ -275,8 +275,8 @@ as base32.  Otherwise, it must be a bytevector."
              (default '()) (delayed))
 
   (snippet   origin-snippet (default #f))         ; sexp or #f
-  (patch-flags  origin-patch-flags                ; list of strings
-                (default '("-p1")))
+  (patch-flags  origin-patch-flags                ; string-list gexp
+                (default %default-patch-flags))
 
   ;; Patching requires Guile, GNU Patch, and a few more.  These two fields are
   ;; used to specify these dependencies when needed.
@@ -324,6 +324,9 @@ specifications to 'hash'."
 
 (set-record-type-printer! <origin> print-origin)
 
+(define %default-patch-flags
+  #~("-p1"))
+
 (define (origin-actual-file-name origin)
   "Return the file name of ORIGIN, either its 'file-name' field or the file
 name of its URI."
@@ -587,7 +590,7 @@ the build code of derivation."
                            #:key
                            inputs
                            (snippet #f)
-                           (flags '("-p1"))
+                           (flags %default-patch-flags)
                            (modules '())
                            (guile-for-build (%guile-for-build))
                            (system (%current-system)))
@@ -1615,7 +1618,7 @@ unless you know what you are doing."
              (content-hash-value hash)
              name #:system system))
     (($ <origin> uri method hash name (= force (patches ...)) snippet
-        (flags ...) inputs (modules ...) guile-for-build)
+                 flags inputs (modules ...) guile-for-build)
      ;; Patches and/or a snippet.
      (mlet %store-monad ((source (method uri
                                          (content-hash-algorithm hash)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]