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