ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: docker: Disable configuration serialization.

Browse source 
* gnu/services/docker.scm (serialize-boolean): Delete procedure.
(docker-configuration) <no-serialization>: New syntactic keyword.
This commit is contained in:
Maxim Cournoyer 2021-05-08 00:11:12 -04:00
parent a77e3a5846
commit a9a67da573
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 3 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gnu/services/docker.scm
View file

@ -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 @@ (define-module (gnu services docker)
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 @@ (define-configuration docker-configuration
"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))))