ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 23:46:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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 @@ (define (rules-sub-directory directory)
(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."