me/guix
Archived
1
0
Fork 0
Code Activity

services: mpd: Rename %set-user-group to set-user-group.

Browse source 
The convention to use % as a prefix is for "special" variables rather than
procedures.

* gnu/services/audio.scm (%set-user-group): Rename to...
(set-user-group): ... this.
This commit is contained in:
Maxim Cournoyer 2023-04-26 20:22:51 -04:00
parent 42c8a2e296
commit 005912c595
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gnu/services/audio.scm
View file

@ -143,7 +143,7 @@
;; Helpers for deprecated field types, to be removed later. ;; Helpers for deprecated field types, to be removed later.
(define %lazy-group (make-symbol "%lazy-group")) (define %lazy-group (make-symbol "%lazy-group"))
(define (%set-user-group user group) (define (set-user-group user group)
(user-account (user-account
(inherit user) (inherit user)
(group (user-group-name group)))) (group (user-group-name group))))
@ -636,7 +636,7 @@ MPD (PID ~a)." pid))
(match-record config <mpd-configuration> (user group) (match-record config <mpd-configuration> (user group)
;; TODO: Deprecation code, to be removed. ;; TODO: Deprecation code, to be removed.
(let ((user (if (eq? (user-account-group user) %lazy-group) (let ((user (if (eq? (user-account-group user) %lazy-group)
(%set-user-group user group) (set-user-group user group)
user))) user)))
(list user group)))) (list user group))))
@ -907,7 +907,7 @@ prompting a pin from the user.")
(match-record config <mympd-configuration> (user group) (match-record config <mympd-configuration> (user group)
;; TODO: Deprecation code, to be removed. ;; TODO: Deprecation code, to be removed.
(let ((user (if (eq? (user-account-group user) %lazy-group) (let ((user (if (eq? (user-account-group user) %lazy-group)
(%set-user-group user group) (set-user-group user group)
user))) user)))
(list user group)))) (list user group))))