summary refs log tree commit diff
path: root/gnu/services
diff options
context:
space:
mode:
authorSergey Trofimov <sarg@sarg.org.ru>2024-05-01 22:43:31 +0200
committerLudovic Courtès <ludo@gnu.org>2024-06-13 22:43:59 +0200
commit10d8bbdabb9fb9f2041d2ab419906cb23b874a49 (patch)
tree8e63d2ec0ae485d0063a2392c6f44176336178d3 /gnu/services
parent48a82a0d683b2e15174d85e745095d47382c4ad3 (diff)
downloadguix-10d8bbdabb9fb9f2041d2ab419906cb23b874a49.tar.gz
services: dnsmasq: Add escape hatch.
* gnu/service/dns.scm: (<dnsmasq-configuration>)[extra-options]: Add.
* doc/guix.texi: Document (<dnsmasq-configuration>)[extra-options].

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Change-Id: I7d2df7aa5d3b041b69b2f8b3e311a7328c28a3be
Diffstat (limited to 'gnu/services')
-rw-r--r--gnu/services/dns.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/gnu/services/dns.scm b/gnu/services/dns.scm
index 6608046909..043c34599c 100644
--- a/gnu/services/dns.scm
+++ b/gnu/services/dns.scm
@@ -739,6 +739,8 @@ cache.size = 100 * MB
                     (default #t))       ;boolean
   (listen-addresses dnsmasq-configuration-listen-address
                     (default '()))      ;list of string
+  (extra-options    dnsmasq-configuration-extra-options
+                    (default '()))      ;list of string
   (resolv-file      dnsmasq-configuration-resolv-file
                     (default "/etc/resolv.conf")) ;string
   (no-resolv?       dnsmasq-configuration-no-resolv?
@@ -798,7 +800,7 @@ cache.size = 100 * MB
      tftp-single-port? tftp-secure?
      tftp-max tftp-mtu tftp-no-blocksize?
      tftp-lowercase? tftp-port-range
-     tftp-root tftp-unique-root)
+     tftp-root tftp-unique-root extra-options)
     (shepherd-service
      (provision '(dnsmasq))
      (requirement '(networking))
@@ -877,7 +879,8 @@ cache.size = 100 * MB
                         (if (> (length tftp-unique-root) 0)
                             (format #f "--tftp-unique-root=~a" tftp-unique-root)
                             (format #f "--tftp-unique-root")))
-                       '()))
+                       '())
+                #$@extra-options)
                #:pid-file "/run/dnsmasq.pid"))
      (stop #~(make-kill-destructor)))))