aboutsummaryrefslogtreecommitdiff
path: root/gnu/services
diff options
context:
space:
mode:
authorMaxim Cournoyer <maxim.cournoyer@gmail.com>2021-05-08 00:11:12 -0400
committerMaxim Cournoyer <maxim.cournoyer@gmail.com>2021-05-08 01:04:31 -0400
commita9a67da573222715ea3152eacdfb5d3840dccd9a (patch)
tree2ca3a07137114cf30e57bbdcf99413ce9e2b9f50 /gnu/services
parenta77e3a5846d8b4b4b8d0fe4887d1ee17340971e0 (diff)
downloadguix-a9a67da573222715ea3152eacdfb5d3840dccd9a.tar.gz
guix-a9a67da573222715ea3152eacdfb5d3840dccd9a.zip
services: docker: Disable configuration serialization.
* gnu/services/docker.scm (serialize-boolean): Delete procedure. (docker-configuration) <no-serialization>: New syntactic keyword.
Diffstat (limited to 'gnu/services')
-rw-r--r--gnu/services/docker.scm10
1 files changed, 3 insertions, 7 deletions
diff --git a/gnu/services/docker.scm b/gnu/services/docker.scm
index 7acfbea49f..be85316180 100644
--- a/gnu/services/docker.scm
+++ b/gnu/services/docker.scm
@@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Danny Milosavljevic <dannym@scratchpost.org>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
-;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
+;;; Copyright © 2020, 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2020 Jesse Dowell <jessedowell@gmail.com>
;;;
@@ -37,11 +37,6 @@
docker-service-type
singularity-service-type))
-;;; We're not using serialize-configuration, but we must define this because
-;;; the define-configuration macro validates it exists.
-(define (serialize-boolean field-name val)
- "")
-
(define-configuration docker-configuration
(docker
(package docker)
@@ -64,7 +59,8 @@ loop-back communications.")
"Enable or disable debug output.")
(enable-iptables?
(boolean #t)
- "Enable addition of iptables rules (enabled by default)."))
+ "Enable addition of iptables rules (enabled by default).")
+ (no-serialization))
(define %docker-accounts
(list (user-group (name "docker") (system? #t))))