cristiancmoises
/
radix
mirror of https://codeberg.org/anemofilia/radix.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

style: remove use of (pipe) module in (radix system setuid) module

pull/1/head
anemofilia 2023-08-10 09:36:29 -03:00
parent 99825bca3d
commit 415cbd9e3f
No known key found for this signature in database
GPG Key ID: 5A8F3D62C87A2B33
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
modules/radix/system/setuid.scm
View File

@ -1,5 +1,4 @@
(define-module (radix system setuid)
#:use-module (pipe)
#:use-module (ice-9 match)
#:use-module (radix utils)
#:use-module (gnu system setuid)
@ -9,7 +8,7 @@
(map-setuid-programs (package package-programs) clause ...)
(map (match-lambda ((package-program . package)
(setuid-program
(program (->> package-program
(string-append "/bin/")
(file-append package))))))
(program
(file-append package
(string-append "/bin/" package-program))))))
(associate-right (package package-programs) clause ...)))