me/guix
Archived
1
0
Fork 0
Code Activity

services: udev: Rewrite udev-rule to use file->udev-rule.

Browse source 
* gnu/services/base.scm (udev-rule): Use file->udev-rule.
This commit is contained in:
Vivien Kraus 2023-10-05 19:33:24 +02:00 • committed by Liliana Marie Prikler
parent cde1becfab
commit c2c29eb1b4
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 1 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
gnu/services/base.scm
View file

@ -2262,19 +2262,7 @@ item of @var{packages}."
(define (udev-rule file-name contents) (define (udev-rule file-name contents)
"Return a directory with a udev rule file FILE-NAME containing CONTENTS." "Return a directory with a udev rule file FILE-NAME containing CONTENTS."
(computed-file file-name (file->udev-rule file-name (plain-file file-name contents)))
(with-imported-modules '((guix build utils))
#~(begin
(use-modules (guix build utils))
(define rules.d
(string-append #$output "/lib/udev/rules.d"))
(mkdir-p rules.d)
(call-with-output-file
(string-append rules.d "/" #$file-name)
(lambda (port)
(display #$contents port)))))))
(define (file->udev-rule file-name file) (define (file->udev-rule file-name file)
"Return a directory with a udev rule file FILE-NAME which is a copy of FILE." "Return a directory with a udev rule file FILE-NAME which is a copy of FILE."