GNU bug report logs - #55231
[PATCH v1] initrd: Allow extra search paths with ‘initrd-extra-module-paths’

Previous Next

Full log

View this message in rfc822 format

From: Maxim Cournoyer <maxim.cournoyer <at> gmail.com>
To: 55231 <at> debbugs.gnu.org
Cc: Maxim Cournoyer <maxim.cournoyer <at> gmail.com>, Brian Cully <bjc <at> spork.org>, Maxime Devos <maximedevos <at> telenet.be>, Kaelyn <kaelyn.alexi <at> protonmail.com>, Ludovic Courtès <ludo <at> gnu.org>, Morgan Arnold <morgan.arnold <at> proton.me>, Ian Eure <ian <at> retrospec.tv>, John Kehayias <john.kehayias <at> protonmail.com>, Leo Famulari <leo <at> famulari.name>, Felix Lechner <felix.lechner <at> lease-up.com>, Andreas Enge <andreas <at> enge.fr>, bjc <at> spork.org, Maxim Cournoyer <maxim.cournoyer <at> gmail.com>, Christopher Baines <guix <at> cbaines.net>, Josselin Poiret <dev <at> jpoiret.xyz>, Mathieu Othacehe <othacehe <at> gnu.org>, Simon Tournier <zimon.toutoune <at> gmail.com>, Tobias Geerinckx-Rice <me <at> tobias.gr>
Subject: [bug#55231] [PATCH v6 2/4] derivations: Fix indentation.
Date: Sun, 16 Feb 2025 21:52:46 +0900

* guix/derivations.scm (derivation): Fix indentation.

Change-Id: I2407b59788ce335c21c181d9f9e3f26a359e9bf5
---
 guix/derivations.scm | 46 ++++++++++++++++++++++----------------------
 1 file changed, 23 insertions(+), 23 deletions(-)

diff --git a/guix/derivations.scm b/guix/derivations.scm
index bef98cd26a..ffa69e924c 100644
--- a/guix/derivations.scm
+++ b/guix/derivations.scm
@@ -841,30 +841,30 @@ (define* (derivation store name builder args
     ;; corresponding environment variable.
     (match drv
       (($ <derivation> outputs inputs sources
-          system builder args env-vars)
+                       system builder args env-vars)
        (let* ((drv-hash (derivation-hash drv))
               (outputs  (map (match-lambda
-                              ((output-name . ($ <derivation-output>
-                                                 _ algo hash rec?))
-                               (let ((path
-                                      (if hash
-                                          (fixed-output-path name hash
-                                                             #:hash-algo algo
-                                                             #:output output-name
-                                                             #:recursive? rec?)
-                                          (output-path output-name
-                                                       drv-hash name))))
-                                 (cons output-name
-                                       (make-derivation-output path algo
-                                                               hash rec?)))))
+                               ((output-name . ($ <derivation-output>
+                                                  _ algo hash rec?))
+                                (let ((path
+                                       (if hash
+                                           (fixed-output-path name hash
+                                                              #:hash-algo algo
+                                                              #:output output-name
+                                                              #:recursive? rec?)
+                                           (output-path output-name
+                                                        drv-hash name))))
+                                  (cons output-name
+                                        (make-derivation-output path algo
+                                                                hash rec?)))))
                              outputs)))
          (make-derivation outputs inputs sources system builder args
                           (map (match-lambda
-                                ((name . value)
-                                 (cons name
-                                       (or (and=> (assoc-ref outputs name)
-                                                  derivation-output-path)
-                                           value))))
+                                 ((name . value)
+                                  (cons name
+                                        (or (and=> (assoc-ref outputs name)
+                                                   derivation-output-path)
+                                            value))))
                                env-vars)
                           #f)))))
 
@@ -910,10 +910,10 @@ (define* (derivation store name builder args
     ;; Return a variant of ENV-VARS where each OUTPUTS is associated with an
     ;; empty string, even outputs that do not appear in ENV-VARS.
     (let ((e (map (match-lambda
-                   ((name . val)
-                    (if (member name outputs)
-                        (cons name "")
-                        (cons name val))))
+                    ((name . val)
+                     (if (member name outputs)
+                         (cons name "")
+                         (cons name val))))
                   env-vars)))
       (fold (lambda (output-name env-vars)
               (if (assoc output-name env-vars)
-- 
2.48.1

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.