[bug#66099] [PATCH gnome-team v7 2/5] services: udev: unify udev-rule and file->udev-rule.

[Maxim Cournoyer]

Hi,

Vivien Kraus <vivien@planete-kraus.eu> writes:

> * gnu/services/base.scm (udev-rule): Implements in terms of file->udev-rule.
> Use texinfo in docstring.
> ---
>  gnu/services/base.scm | 17 +++--------------
>  1 file changed, 3 insertions(+), 14 deletions(-)
>
> diff --git a/gnu/services/base.scm b/gnu/services/base.scm
> index b3f2d2e8b8..190803b780 100644
> --- a/gnu/services/base.scm
> +++ b/gnu/services/base.scm
> @@ -2211,20 +2211,9 @@ (define (udev-rules-union packages)
>    (computed-file "udev-rules" build))
>  
>  (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)))))))
> +  "Return a directory with a udev rule file @var{file-name} containing
> +@var{contents}."
> +  (file->udev-rule file-name (plain-file file-name contents)))

That one LGTM!

-- 
Thanks,
Maxim