GNU bug report logs - #63082
mpd defaul configuration does not work ('No database' error)

Previous Next

Full log

Message #224 received at 63082 <at> debbugs.gnu.org (full text, mbox):

From: Maxim Cournoyer <maxim.cournoyer <at> gmail.com>
To: 63082 <at> debbugs.gnu.org
Cc: Maxim Cournoyer <maxim.cournoyer <at> gmail.com>
Subject: [PATCH v3 04/16] services: mpd: Rename %set-user-group to
 set-user-group.
Date: Fri,  5 May 2023 14:28:59 -0400

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.
---
 gnu/services/audio.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gnu/services/audio.scm b/gnu/services/audio.scm
index dc83479e40..7874539810 100644
--- a/gnu/services/audio.scm
+++ b/gnu/services/audio.scm
@@ -143,7 +143,7 @@ (define list-of-symbol?
 ;; 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 @@ (define (mpd-accounts config)
   (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 @@ (define (mympd-accounts config)
   (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))))
 
-- 
2.39.2

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.