tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

gnu: uucp: Use GEXPs.

Browse Source 
* gnu/packages/uucp.scm (uucp) [arguments]: Use GEXPs.

Change-Id: I482d4237324e23725dcaabc9dbe0f8406f01e3da
This commit is contained in:
Artyom V. Poptsov
2025-10-25 11:40:03 +03:00
parent 50f3431719
commit 0ed74c3b92
1 changed files with 11 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
gnu/packages/uucp.scm
View File

@@ -48,18 +48,17 @@
"0b5nhl9vvif1w3wdipjsk8ckw49jj1w85xw1mmqi3zbcpazia306"))))
(build-system gnu-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key outputs #:allow-other-keys)
;; The old 'configure' script doesn't support the arguments
;; that we pass by default.
(setenv "CONFIG_SHELL" (which "sh"))
(let ((out (assoc-ref outputs "out")))
(invoke "./configure"
(string-append "--prefix=" out)
(string-append "--infodir=" out
"/share/info"))))))))
(list #:phases
#~(modify-phases %standard-phases
(replace 'configure
(lambda _
;; The old 'configure' script doesn't support the arguments
;; that we pass by default.
(setenv "CONFIG_SHELL" (which "sh"))
(invoke "./configure"
(string-append "--prefix=" #$output)
(string-append "--infodir=" #$output
"/share/info")))))))
(native-inputs (list gcc-13))
(home-page "https://www.gnu.org/software/uucp/uucp.html")
(synopsis "UUCP protocol implementation")