From 75ad22703e7b22a19de0a0733555d33f1010f6a4 Mon Sep 17 00:00:00 2001
From: Ashvith Shetty <ashvith@noreply.codeberg.org>
Date: Tue, 3 Mar 2026 22:02:34 +0530
Subject: services: redis: Add prefix `redis-`.

* gnu/services/databases.scm
(maybe-string): Add prefix.
(serialize-field): Rename to `redis-serialize-field`,
remove gexp.
(redis-serialize-package): Add variable.
(serialize-string): Rename to `redis-serialize-string`.
(serialize-number): Rename to `redis-serialize-number`.
(redis-configuration): Add prefix.
* doc/guix.texi (Database Services) <redis>: Regenerate
documentation.

Merges: https://codeberg.org/guix/guix/pulls/6850
Change-Id: Iccbbb7108f8211b31769638ef885e485bab0ebc3
Signed-off-by: Sharlatan Hellseher <sharlatanus@gmail.com>
---
 gnu/services/databases.scm | 20 ++++++++++++++------
 1 file changed, 14 insertions(+), 6 deletions(-)

diff --git a/gnu/services/databases.scm b/gnu/services/databases.scm
index f6b121b9310..82aee3c75bb 100644
--- a/gnu/services/databases.scm
+++ b/gnu/services/databases.scm
@@ -10,6 +10,7 @@
 ;;; Copyright © 2021 David Larsson <david.larsson@selfhosted.xyz>
 ;;; Copyright © 2021 Aljosha Papsch <ep@stern-data.com>
 ;;; Copyright © 2025, 2026 Giacomo Leidi <therewasa@fishinthecalculator.me>
+;;; Copyright © 2025, 2026 Ashvith Shetty <ashvithshetty0010@zohomail.in>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -809,16 +810,22 @@ port=" (number->string port) "
 ;;; Redis
 ;;;
 
-(define-maybe string)
+(define-maybe string (prefix redis-))
 
 (define (uglify-field-name field-name)
   (string-delete #\? (symbol->string field-name)))
 
-(define (serialize-field field-name val)
-  #~(format #f "~a=~a\n" #$(uglify-field-name field-name) #$val))
+(define (redis-serialize-field field-name val)
+  (format #f "~a=~a\n" (uglify-field-name field-name) val))
 
-(define serialize-string serialize-field)
-(define serialize-number serialize-field)
+(define redis-serialize-package
+  serialize-package)
+
+(define redis-serialize-string
+  redis-serialize-field)
+
+(define redis-serialize-number
+  redis-serialize-field)
 
 (define-configuration redis-configuration
   (redis (package redis)
@@ -831,7 +838,8 @@ a value of 0 will disable listening on a TCP socket.")
   (working-directory (string "/var/lib/redis")
                      "Directory in which to store the
 database and related files.")
-  (config-file maybe-string "Default location for config file."))
+  (config-file maybe-string "Default location for config file.")
+  (prefix redis-))
 
 (define (default-redis.conf bind port working-directory)
   (mixed-text-file "redis.conf"
-- 
cgit v1.3