10/36: services: knot: Remove obsolete DISABLE-ANY? zone option.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 8b5b7478ab474019630551b3c07ef534cf6e2520
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Oct 3 23:09:38 2021 +0200

    services: knot: Remove obsolete DISABLE-ANY? zone option.
    
    It is now silently ignored by knotd.
    
    * gnu/services/dns.scm (<knot-zone-configuration>):
    Remove DISABLE-ANY? field.  Adjust all previous users.
    * doc/guix.texi (DNS Services): Undocument it.
---
 doc/guix.texi        | 3 ---
 gnu/services/dns.scm | 4 ----
 2 files changed, 7 deletions(-)

diff --git a/doc/guix.texi b/doc/guix.texi
index 2a1fea2..423b26e 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -26799,9 +26799,6 @@ A list of acl identifiers.
 @item @code{semantic-checks?} (default: @code{#f})
 When set, this adds more semantic checks to the zone.
 
-@item @code{disable-any?} (default: @code{#f})
-When set, this forbids queries of the ANY type.
-
 @item @code{zonefile-sync} (default: @code{0})
 The delay between a modification in memory and on disk.  0 means immediate
 synchronization.
diff --git a/gnu/services/dns.scm b/gnu/services/dns.scm
index aeb2bfd..93055eb 100644
--- a/gnu/services/dns.scm
+++ b/gnu/services/dns.scm
@@ -185,8 +185,6 @@
                      (default '()))
   (semantic-checks?  knot-zone-configuration-semantic-checks?
                      (default #f))
-  (disable-any?      knot-zone-configuration-disable-any?
-                     (default #f))
   (zonefile-sync     knot-zone-configuration-zonefile-sync
                      (default 0))
   (zonefile-load     knot-zone-configuration-zonefile-load
@@ -509,7 +507,6 @@
                 (notify (list #$@(knot-zone-configuration-notify zone)))
                 (acl (list #$@(knot-zone-configuration-acl zone)))
                 (semantic-checks? #$(knot-zone-configuration-semantic-checks? 
zone))
-                (disable-any? #$(knot-zone-configuration-disable-any? zone))
                 (zonefile-sync #$(knot-zone-configuration-zonefile-sync zone))
                 (zonefile-load '#$(knot-zone-configuration-zonefile-load zone))
                 (journal-content #$(knot-zone-configuration-journal-content 
zone))
@@ -541,7 +538,6 @@
                       #$(format-string-list
                           (knot-zone-configuration-acl zone))))
             (format #t "      semantic-checks: ~a\n" (if semantic-checks? "on" 
"off"))
-            (format #t "      disable-any: ~a\n" (if disable-any? "on" "off"))
             (if zonefile-sync
               (format #t "      zonefile-sync: ~a\n" zonefile-sync))
             (if zonefile-load