diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2025-06-08 10:19:45 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2025-06-08 10:28:54 +0300 |
| commit | 733d95df01160e20278193c1765a6a8a13bc79e7 (patch) | |
| tree | 6dc23f128ada17de2eeec82a12c690d8e7590ed0 /gnu/packages/admin.scm | |
| parent | b1cda7341942e0da27b7b646f59f8e27a9b5544a (diff) | |
gnu: mingetty: Use GEXPs.
* gnu/packages/admin.scm (mingetty): Use GEXPs.
Change-Id: I01950a5b220c74438d5c2b4a98d1265b7c02bb05
Diffstat (limited to 'gnu/packages/admin.scm')
| -rw-r--r-- | gnu/packages/admin.scm | 51 |
1 files changed, 22 insertions, 29 deletions
diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm index 67162e5937..059f634404 100644 --- a/gnu/packages/admin.scm +++ b/gnu/packages/admin.scm @@ -1390,38 +1390,31 @@ login, passwd, su, groupadd, and useradd.") "05yxrp44ky2kg6qknk1ih0kvwkgbn9fbz77r3vci7agslh5wjm8g")))) (build-system gnu-build-system) (arguments - `(#:phases - (modify-phases %standard-phases - (replace 'configure - (lambda* (#:key inputs outputs target #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (man8 (string-append out "/share/man/man8")) - (sbin (string-append out "/sbin")) - (shadow (assoc-ref inputs "shadow")) - (login (string-append shadow "/bin/login"))) - (substitute* "Makefile" - ,@(if (%current-target-system) - '((("CC=.*$") - (string-append "CC=" target "-gcc\n"))) - '()) - (("^SBINDIR.*") - (string-append "SBINDIR = " out - "/sbin\n")) - (("^MANDIR.*") - (string-append "MANDIR = " out - "/share/man/man8\n"))) + (list + #:tests? #f ; no tests + #:phases + #~(modify-phases %standard-phases + (replace 'configure + (lambda* (#:key inputs #:allow-other-keys) + (let* ((man8 (string-append #$output "/share/man/man8")) + (sbin (string-append #$output "/sbin")) + (login (search-input-file inputs "/bin/login"))) + (substitute* "Makefile" + (("CC=.*$") + (string-append "CC=" #$(cc-for-target) "\n")) + (("^SBINDIR.*") + (string-append "SBINDIR = " #$output "/sbin\n")) + (("^MANDIR.*") + (string-append "MANDIR = " #$output "/share/man/man8\n"))) - ;; Pick the right 'login' by default. - (substitute* "mingetty.c" - (("\"/bin/login\"") - (string-append "\"" login "\""))) + ;; Pick the right 'login' by default. + (substitute* "mingetty.c" + (("\"/bin/login\"") + (string-append "\"" login "\""))) - (mkdir-p sbin) - (mkdir-p man8)) - #t))) - #:tests? #f)) ; no tests + (mkdir-p sbin) + (mkdir-p man8))))))) (inputs (list shadow)) - (home-page "https://sourceforge.net/projects/mingetty") (synopsis "Getty for the text console") (description |