me
/
guix
Archived
1
0
Fork 0
Code

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

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