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

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
1 changed files with 1 additions and 13 deletions
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)
"Return a directory with a udev rule file FILE-NAME containing CONTENTS."
(computed-file file-name
(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)))))))
(file->udev-rule file-name (plain-file file-name contents)))
(define (file->udev-rule file-name file)
"Return a directory with a udev rule file FILE-NAME which is a copy of FILE."