diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2021-05-08 00:11:12 -0400 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2021-05-08 01:04:31 -0400 |
| commit | a9a67da573222715ea3152eacdfb5d3840dccd9a (patch) | |
| tree | 2ca3a07137114cf30e57bbdcf99413ce9e2b9f50 /gnu/services | |
| parent | a77e3a5846d8b4b4b8d0fe4887d1ee17340971e0 (diff) | |
| download | guix-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.scm | 10 |
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)))) |