02/06: services: configuration: Add a define-configuration/no-serialization syntax.

[guix-commits]

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)