summary refs log tree commit diff
path: root/gnu/services/ganeti.scm
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2021-11-18 22:44:26 +0100
committerTobias Geerinckx-Rice <me@tobias.gr>2021-11-30 01:08:55 +0100
commit892f1b7273d57b25940700877a02618fe826cc08 (patch)
treea1295e5a0cada105bbecee5728a7bfd500d30280 /gnu/services/ganeti.scm
parentdc9be12eafa793e02c0e85e9b991c53e48892092 (diff)
downloadguix-892f1b7273d57b25940700877a02618fe826cc08.tar.gz
services: Accept <inferior-package>s in lieu of <package>s.
* gnu/services/authentication.scm (fprintd-configuration)
(nslcd-configuration): Substitute file-like objects for package ones.
* gnu/services/cgit.scm (cgit-configuration, opaque-cgit-configuration):
Likewise.
* gnu/services/cups.scm (package-list?, cups-configuration): Likewise.
* gnu/services/dns.scm (verify-knot-configuration)
(ddclient-configuration): Likewise.
* gnu/services/docker.scm (docker-configuration): Likewise.
* gnu/services/file-sharing.scm (transmission-daemon-configuration): Likewise.
* gnu/services/getmail.scm (getmail-configuration): Likewise.
* gnu/services/mail.scm (dovecot-configuration)
(opaque-dovecot-configuration): Likewise.
* gnu/services/messaging.scm (prosody-configuration)
(opaque-prosody-configuration): Likewise.
* gnu/services/monitoring.scm (zabbix-server-configuration)
(zabbix-agent-configuration): Likewise.
* gnu/services/networking.scm (opendht-configuration): Likewise.
* gnu/services/pm.scm (tlp-configuration): Likewise.
* gnu/services/telephony.scm (jami-configuration): Likewise.
* gnu/services/virtualization.scm (libvirt-configuration)
(qemu-guest-agent-configuration): Likewise.
* gnu/services/vpn.scm (openvpn-client-configuration): Likewise.
Diffstat (limited to 'gnu/services/ganeti.scm')
-rw-r--r--gnu/services/ganeti.scm20
1 files changed, 10 insertions, 10 deletions
diff --git a/gnu/services/ganeti.scm b/gnu/services/ganeti.scm
index ef22d1a331..85adbd7362 100644
--- a/gnu/services/ganeti.scm
+++ b/gnu/services/ganeti.scm
@@ -190,7 +190,7 @@
 (define-record-type* <ganeti-noded-configuration>
   ganeti-noded-configuration make-ganeti-noded-configuration
   ganeti-noded-configuration?
-  (ganeti      ganeti-noded-configuration-ganeti        ;<package>
+  (ganeti      ganeti-noded-configuration-ganeti        ;file-like
                (default ganeti))
   (port        ganeti-noded-configuration-port          ;integer
                (default 1811))
@@ -256,7 +256,7 @@ for the node functions in the Ganeti system.")))
 (define-record-type* <ganeti-confd-configuration>
   ganeti-confd-configuration make-ganeti-confd-configuration
   ganeti-confd-configuration?
-  (ganeti      ganeti-confd-configuration-ganeti        ;<package>
+  (ganeti      ganeti-confd-configuration-ganeti        ;file-like
                (default ganeti))
   (port        ganeti-confd-configuration-port          ;integer
                (default 1814))
@@ -298,7 +298,7 @@ related to the configuration of a Ganeti cluster.")))
 (define-record-type* <ganeti-wconfd-configuration>
   ganeti-wconfd-configuration make-ganeti-wconfd-configuration
   ganeti-wconfd-configuration?
-  (ganeti      ganeti-wconfd-configuration-ganeti       ;<package>
+  (ganeti      ganeti-wconfd-configuration-ganeti       ;file-like
                (default ganeti))
   (no-voting?  ganeti-wconfd-configuration-no-voting?   ;Boolean
                (default #f))
@@ -389,7 +389,7 @@ appropriate requests to this daemon.")))
 (define-record-type* <ganeti-luxid-configuration>
   ganeti-luxid-configuration make-ganeti-luxid-configuration
   ganeti-luxid-configuration?
-  (ganeti      ganeti-luxid-configuration-ganeti        ;<package>
+  (ganeti      ganeti-luxid-configuration-ganeti        ;file-like
                (default ganeti))
   (no-voting?  ganeti-luxid-configuration-no-voting?    ;Boolean
                (default #f))
@@ -436,7 +436,7 @@ be submitted via this daemon and it schedules and starts them.")))
 (define-record-type* <ganeti-rapi-configuration>
   ganeti-rapi-configuration make-ganeti-rapi-configuration
   ganeti-rapi-configuration?
-  (ganeti      ganeti-rapi-configuration-ganeti         ;<package>
+  (ganeti      ganeti-rapi-configuration-ganeti         ;file-like
                (default ganeti))
   (require-authentication?
    ganeti-rapi-configuration-require-authentication?    ;Boolean
@@ -509,7 +509,7 @@ for Ganeti clusters.")))
 (define-record-type* <ganeti-kvmd-configuration>
   ganeti-kvmd-configuration make-ganeti-kvmd-configuration
   ganeti-kvmd-configuration?
-  (ganeti      ganeti-kvmd-configuration-ganeti         ;<package>
+  (ganeti      ganeti-kvmd-configuration-ganeti         ;file-like
                (default ganeti))
   (debug?      ganeti-kvmd-configuration-debug?         ;Boolean
                (default #f)))
@@ -555,7 +555,7 @@ communicated to Ganeti via a special file in the file system.")))
 (define-record-type* <ganeti-mond-configuration>
   ganeti-mond-configuration make-ganeti-mond-configuration
   ganeti-mond-configuration?
-  (ganeti      ganeti-mond-configuration-ganeti         ;<package>
+  (ganeti      ganeti-mond-configuration-ganeti         ;file-like
                (default ganeti))
   (port        ganeti-mond-configuration-port           ;integer
                (default 1815))
@@ -596,7 +596,7 @@ provide the collected information through a HTTP interface.")))
 (define-record-type* <ganeti-metad-configuration>
   ganeti-metad-configuration make-ganeti-metad-configuration
   ganeti-metad-configuration?
-  (ganeti      ganeti-metad-configuration-ganeti        ;<package>
+  (ganeti      ganeti-metad-configuration-ganeti        ;file-like
                (default ganeti))
   (port        ganeti-metad-configuration-port          ;integer
                (default 80))
@@ -642,7 +642,7 @@ information to OS install scripts or instances.")))
 (define-record-type* <ganeti-watcher-configuration>
   ganeti-watcher-configuration make-ganeti-watcher-configuration
   ganeti-watcher-configuration?
-  (ganeti        ganeti-watcher-configuration-ganeti        ;<package>
+  (ganeti        ganeti-watcher-configuration-ganeti        ;file-like
                  (default ganeti))
   (schedule      ganeti-watcher-configuration-schedule      ;list | string
                  (default '(next-second-from
@@ -705,7 +705,7 @@ is declared offline by known master candidates.")))
 (define-record-type* <ganeti-cleaner-configuration>
   ganeti-cleaner-configuration make-ganeti-cleaner-configuration
   ganeti-cleaner-configuration?
-  (ganeti          ganeti-cleaner-configuration-ganeti          ;<package>
+  (ganeti          ganeti-cleaner-configuration-ganeti          ;file-like
                    (default ganeti))
   (master-schedule ganeti-cleaner-configuration-master-schedule ;list | string
                    ;; Run the master cleaner at 01:45 every day.