summary refs log tree commit diff
path: root/gnu/packages/admin.scm
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2023-07-02 02:00:03 +0200
committerTobias Geerinckx-Rice <me@tobias.gr>2023-07-02 02:00:06 +0200
commitadf097908c204ded0c7847f1061c486b92d7d0e1 (patch)
treed52bf1aaba8a2d449bbd448b906bfcbf67914a1a /gnu/packages/admin.scm
parentc39abdedbbce8c26b81951bfc04c589ed5dc01ed (diff)
downloadguix-adf097908c204ded0c7847f1061c486b92d7d0e1.tar.gz
gnu: di: Use G-expressions.
* gnu/packages/admin.scm (di)[arguments]: Rewrite as G-expressions.
Rename 'setup-environment phase to 'override-environment.
Diffstat (limited to 'gnu/packages/admin.scm')
-rw-r--r--gnu/packages/admin.scm20
1 files changed, 11 insertions, 9 deletions
diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index 7eb04a058f..ff3eee5127 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -3553,15 +3553,17 @@ a new command using the matched rule, and runs it.")
         (base32 "07vsnn1gxm3r7dchbrq63iazd64gza2ac7b2m1039708rf5flxdp"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:tests? #f                      ; obscure test failures
-       #:phases
-       (modify-phases %standard-phases
-         (delete 'configure)            ; no configure script
-         (add-before 'build 'setup-environment
-           (lambda* (#:key outputs #:allow-other-keys)
-             (setenv "CC" ,(cc-for-target))
-             (setenv "prefix" (assoc-ref outputs "out")))))
-       #:make-flags (list "--environment-overrides")))
+     (list
+      #:tests? #f                       ; obscure test failures
+      #:phases
+      #~(modify-phases %standard-phases
+          (delete 'configure)           ; no configure script
+          (add-before 'build 'override-environment
+            (lambda _
+              (setenv "CC" #$(cc-for-target))
+              (setenv "prefix" #$output))))
+      #:make-flags
+      #~(list "--environment-overrides")))
     (home-page "https://gentoo.com/di/")
     (synopsis "Advanced df like disk information utility")
     (description