Subject: [bug#55231] [PATCH v7 2/4] derivations: Fix indentation.

From: Morgan Arnold <[email-masked]>
Date: Mon, 17 Feb 2025 14:34:59 +0000

From: Maxim Cournoyer <[email-masked]>

* 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 bef98cd..ffa69e9 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.47.1