[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/06: services: configuration: Add a define-configuration/no-serializat
From: |
guix-commits |
Subject: |
02/06: services: configuration: Add a define-configuration/no-serialization syntax. |
Date: |
Mon, 17 May 2021 23:32:45 -0400 (EDT) |
apteryx pushed a commit to branch master
in repository guix.
commit cdd1e15a250238631afb3c97ca362bf719ae8039
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Mon May 17 10:18:34 2021 -0400
services: configuration: Add a define-configuration/no-serialization syntax.
This is added for convenience and for uniformity with the
define-maybe/no-serialization syntax introduced in the previous commit.
* gnu/services/configuration.scm
(define-configuration/no-serialization): New syntax.
---
gnu/services/configuration.scm | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/gnu/services/configuration.scm b/gnu/services/configuration.scm
index 72b1d1c..f23840e 100644
--- a/gnu/services/configuration.scm
+++ b/gnu/services/configuration.scm
@@ -44,6 +44,7 @@
configuration-error?
define-configuration
+ define-configuration/no-serialization
no-serialization
serialize-configuration
@@ -222,6 +223,13 @@ does not have a default value" field kind)))
#t #'(_ stem (field (field-type def ...) doc custom-serializer ...)
...))))))
+(define-syntax-rule (define-configuration/no-serialization
+ stem (field (field-type def ...)
+ doc custom-serializer ...) ...)
+ (define-configuration stem (field (field-type def ...)
+ doc custom-serializer ...) ...
+ (no-serialization)))
+
(define (empty-serializer field-name val) "")
(define serialize-package empty-serializer)
- branch master updated (e7e2b1c -> 0ac95b4), guix-commits, 2021/05/17
- 03/06: gnu: opendht: Update to 2.2.0rc7., guix-commits, 2021/05/17
- 04/06: gnu: opendht: Add Python bindings, tools., guix-commits, 2021/05/17
- 01/06: services: configuration: Add a define-maybe/no-serialization syntax., guix-commits, 2021/05/17
- 02/06: services: configuration: Add a define-configuration/no-serialization syntax.,
guix-commits <=
- 05/06: services: Add a service for opendht., guix-commits, 2021/05/17
- 06/06: gnu: disarchive: Fix build when cross-compiling., guix-commits, 2021/05/17