diff options
| author | Ashvith Shetty <ashvith@noreply.codeberg.org> | 2026-03-03 22:02:34 +0530 |
|---|---|---|
| committer | Sharlatan Hellseher <sharlatanus@gmail.com> | 2026-04-07 21:41:58 +0100 |
| commit | 75ad22703e7b22a19de0a0733555d33f1010f6a4 (patch) | |
| tree | a95922a15ed05449aabca01d41f1b60512aec143 /gnu | |
| parent | 2f2d3f9b6ab0400348eba2597f574fd7168ede73 (diff) | |
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>
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/services/databases.scm | 20 |
1 files 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" |